In [ ]:
. ./nbs_header.ps1
. ./core.ps1
In [ ]:
{ . "$ScriptDir/../apps/builder/build.ps1" } | Invoke-Block
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Builder (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : (unit -> System...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () () : bool =
let v0 : bool option = None
let mutable _v0 = v0
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v1 : bool = null |> unbox<bool>
v1
#endif
#if FABLE_COMPILER_RUST && WASM
let v2 : bool = null |> unbox<bool>
v2
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v3 : bool = null |> unbox<bool>
v3
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v4 : System.Runtime.InteropServices.OSPlatform =
System.Runtime.InteropServices.OSPlatform.Windows
let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v6 : bool = v...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
let US0_0 =
#if !INTERACTIVE
Trace.US0_0
#else
US0_0
#endif
let US0_1 =
#if !INTERACTIVE
Trace.US0_1
#else
US0_1
#endif
let US0_2 =
#if !INTERACTIVE
Trace.US0_2
#else
US0_2
#endif
let US0_3 =
#if !INTERACTIVE
Trace.US0_3
#else
US0_3
#endif
let US0_4 =
#if !INTERACTIVE
Trace.US0_4
#else
US0_4
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x ...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Networking.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.US0_0
| Debug -> SpiralTrace.US0_1
| Info -> SpiralTrace.US0_2
| Warning -> SpiralTrace.US0_3
| Critical -> SpiralTrace.US0_4
let trace level fn g...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.A...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Networking =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## testPortOpen
let inline testPortOpen port = async {
let! ct = Async.CancellationToken
use client = new System.Net.Sockets.TcpClient ()
try
do! client.ConnectAsync ("127.0.0.1", port, ct) |>
Async.awaitValueTaskUnit
return true
with ex ->
trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
SpiralSm.format_exception}") getLocals
return false
}
let inline testPortOpenTimeout timeout port = async {
let! result =
testPortOpen port
|> Async.runWithTimeoutAsync timeout
return
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitCommand
type private CommandParseStep =
| Start
| Path of quoted: bool
| Arguments
let splitCommand (command: string) =
let rec loop (path, args) chars step =
match chars, step with
| ('"' | '\'') :: tail, _ when path = "" -> loop (path, args) tail
(Path true)
| ('"' | '\'') :: tail, Path true -> loop (path, args) tail (Path
false)
| ' ' :: tail, Path true -> loop ($"{path} ", args) tail (Path true)
| ' ' :: tail, (Start | Path _) -> loop (path, args) tail Arguments
| char :: tail, Arguments -> loo...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Sys...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open SpiralFileSystem.Operators
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildProject │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildProject runtime outputDir path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let fileDir = fullPath |> System.IO.Path.GetDirectoryName
let extension = fullPath |> System.IO.Path.GetExtension
let getLocals () = $"fullPath: {fullPath} / {getLocals ()}"
trace Debug (fun () -> "buildProject") getLocals
match extension with
| ".fsproj" -> ()
| _ -> failwith "Invalid project file"
let runtimes =
runtime
|> Option.map List.singleton
|> Option.defaultValue [[ "linux-x64"; "win-x64" ]]
let outputDir = outputDir |> Option.defaultValue "dist"
return!
runtimes
|> List.map (fun runtime -> async {
let! exitCode, _result =
Runtime.executeWithOptionsAsync
{
Command = $@"dotnet publish ""{path}"" --configuration
Release --output ""{outputDir}"" --runtime {runtime}"
CancellationToken = None
OnLine = None
WorkingDirectory = Some fileDir
}
return exitCode
})
|> Async.Sequential
|> Async.map Array.sum
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## persistCodeProject │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline persistCodeProject packages modules name code = async {
let getLocals () = $"packages: {packages} / modules: {modules} / name:
{name} / code.Length: {code |> String.length} / {getLocals ()}"
trace Debug (fun () -> "persistCodeProject") getLocals
let repositoryRoot = SpiralFileSystem.get_source_directory () |>
SpiralFileSystem.find_parent ".paket" false
let targetDir = repositoryRoot </> "target/polyglot/builder" </> name
System.IO.Directory.CreateDirectory targetDir |> ignore
let filePath = targetDir </> $"{name}.fs" |> System.IO.Path.GetFullPath
do! code |> SpiralFileSystem.write_all_text_exists filePath
let modulesCode =
modules
|> List.map (fun path -> $"""<Compile Include="{repositoryRoot </>
path}" />""")
|> SpiralSm.concat "\n "
let fsprojPath = targetDir </> $"{name}.fsproj"
let fsprojCode = $"""<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<TargetFramework>net9.0</TargetFramework>
<LangVersion>preview</LangVersion>
<RollForward>Major</RollForward>
<TargetLatestRuntimePatch>true</TargetLatestRuntimePatch>
<PublishAot>false</PublishAot>
<PublishTrimmed>false</PublishTrimmed>
<PublishSingleFile>true</PublishSingleFile>
<SelfContained>true</SelfContained>
<Version>0.0.1-alpha.1</Version>
<OutputType>Exe</OutputType>
</PropertyGroup>
<ItemGroup>
{modulesCode}
<Compile Include="{filePath}" />
</ItemGroup>
<Import Project="{repositoryRoot}/.paket/Paket.Restore.targets" />
</Project>
"""
do! fsprojCode |> SpiralFileSystem.write_all_text_exists fsprojPath
let paketReferencesPath = targetDir </> "paket.references"
let paketReferencesCode =
"FSharp.Core" :: packages
|> SpiralSm.concat "\n"
do! paketReferencesCode |> SpiralFileSystem.write_all_text_exists
paketReferencesPath
return fsprojPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildCode runtime packages modules outputDir name code = async {
let! fsprojPath = code |> persistCodeProject packages modules name
return! fsprojPath |> buildProject runtime outputDir
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"1 + 1 |> ignore"
|> buildCode None [[]] [[]] None "test1"
|> Async.runWithTimeout 180000
|> _assertEqual (Some 0)
╭─[ 8.55s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] persistCodeProject / packages: [] / modules: [] / name: │
│ test1 / code.Length: 15 │
│ 00:00:00 #2 [debug] buildProject / fullPath: │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj │
│ 00:00:00 #3 [debug] executeAsync / options: { Command = │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test1\test1.fsproj" │
│ --configuration Release --output "dist" --runtime linux-x64" │
│ WorkingDirectory = Some │
│ "C:\home\git\polyglot\target\polyglot\builder\test1" │
│ CancellationToken = None │
│ OnLine = None } │
│ 00:00:00 #4 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:00 #5 [verbose] > Determining projects to restore... │
│ 00:00:01 #6 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj (in 319 ms). │
│ 00:00:01 #7 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj] │
│ 00:00:02 #8 [verbose] > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\bin\Release\net9.0\linux- │
│ x64\test1.dll │
│ 00:00:03 #9 [verbose] > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\dist\ │
│ 00:00:03 #10 [debug] executeAsync / exitCode: 0 / output.Length: 693 │
│ 00:00:03 #11 [debug] executeAsync / options: { Command = │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test1\test1.fsproj" │
│ --configuration Release --output "dist" --runtime win-x64" │
│ WorkingDirectory = Some │
│ "C:\home\git\polyglot\target\polyglot\builder\test1" │
│ CancellationToken = None │
│ OnLine = None } │
│ 00:00:03 #12 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:04 #13 [verbose] > Determining projects to restore... │
│ 00:00:04 #14 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj (in 304 ms). │
│ 00:00:04 #15 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test1\test1.fsproj] │
│ 00:00:05 #16 [verbose] > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\bin\Release\net9.0\win-x6 │
│ 4\test1.dll │
│ 00:00:08 #17 [verbose] > test1 -> │
│ C:\home\git\polyglot\target\polyglot\builder\test1\dist\ │
│ 00:00:08 #18 [debug] executeAsync / exitCode: 0 / output.Length: 691 │
│ FSharpOption<Int32> │
│ Value: 0 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"1 + a |> ignore"
|> buildCode None [[]] [[]] None "test2"
|> Async.runWithTimeout 180000
|> _assertEqual (Some 2)
╭─[ 6.17s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:08 #19 [debug] persistCodeProject / packages: [] / modules: [] / name: │
│ test2 / code.Length: 15 │
│ 00:00:08 #20 [debug] buildProject / fullPath: │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj │
│ 00:00:08 #21 [debug] executeAsync / options: { Command = │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test2\test2.fsproj" │
│ --configuration Release --output "dist" --runtime linux-x64" │
│ WorkingDirectory = Some │
│ "C:\home\git\polyglot\target\polyglot\builder\test2" │
│ CancellationToken = None │
│ OnLine = None } │
│ 00:00:08 #22 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:09 #23 [verbose] > Determining projects to restore... │
│ 00:00:09 #24 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj (in 328 ms). │
│ 00:00:10 #25 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:11 #26 [verbose] > │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fs(1,5): error │
│ FS0039: The value or constructor 'a' is not defined. [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:11 #27 [debug] executeAsync / exitCode: 1 / output.Length: 715 │
│ 00:00:11 #28 [debug] executeAsync / options: { Command = │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\test2\test2.fsproj" │
│ --configuration Release --output "dist" --runtime win-x64" │
│ WorkingDirectory = Some │
│ "C:\home\git\polyglot\target\polyglot\builder\test2" │
│ CancellationToken = None │
│ OnLine = None } │
│ 00:00:11 #29 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:12 #30 [verbose] > Determining projects to restore... │
│ 00:00:12 #31 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj (in 310 ms). │
│ 00:00:12 #32 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:14 #33 [verbose] > │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fs(1,5): error │
│ FS0039: The value or constructor 'a' is not defined. [ │
│ C:\home\git\polyglot\target\polyglot\builder\test2\test2.fsproj] │
│ 00:00:14 #34 [debug] executeAsync / exitCode: 1 / output.Length: 715 │
│ FSharpOption<Int32> │
│ Value: 2 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## readFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline readFile path = async {
let! code = path |> SpiralFileSystem.read_all_text_async
let code = System.Text.RegularExpressions.Regex.Replace (
code,
@"( *)(let\s+main\s+.*?\s*=)",
fun m -> m.Groups.[[1]].Value + "[[<EntryPoint>]]\n" +
m.Groups.[[1]].Value + m.Groups.[[2]].Value
)
let codeTrim = code |> SpiralSm.trim_end [[||]]
return
if codeTrim |> SpiralSm.ends_with "\n()"
then codeTrim |> SpiralSm.slice 0 ((codeTrim |> String.length) - 3)
else code
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildFile runtime packages modules path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let dir = fullPath |> System.IO.Path.GetDirectoryName
let name = fullPath |> System.IO.Path.GetFileNameWithoutExtension
let! code = fullPath |> readFile
return! code |> buildCode runtime packages modules (dir </> "dist" |> Some)
name
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## persistFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline persistFile packages modules path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let name = fullPath |> System.IO.Path.GetFileNameWithoutExtension
let! code = fullPath |> readFile
return! code |> persistCodeProject packages modules name
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce>]]
Path of path : string
| [[<Argu.ArguAttributes.Unique>]] Packages of packages : string list
| [[<Argu.ArguAttributes.Unique>]] Modules of modules : string list
| [[<Argu.ArguAttributes.Unique>]] Runtime of runtime : string
| [[<Argu.ArguAttributes.Unique>]] Persist_Only
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| Path _ -> nameof Path
| Packages _ -> nameof Packages
| Modules _ -> nameof Modules
| Runtime _ -> nameof Runtime
| Persist_Only -> nameof Persist_Only
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 106.05ms - return value ]──────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] [--packages [<packages>...]] │
│ [--modules [<modules>...]] [--runtime <runtime>] │
│ [--persist-only] <path> │
│ │
│ PATH: │
│ │
│ <path> Path │
│ │
│ OPTIONS: │
│ │
│ --packages [<packages>...] │
│ Packages │
│ --modules [<modules>...] │
│ Modules │
│ --runtime <runtime> Runtime │
│ --persist-only Persist_Only │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let path =
match argsMap.[[nameof Arguments.Path]] with
| [[ Arguments.Path path ]] -> Some path
| _ -> None
|> Option.get
let packages =
match argsMap |> Map.tryFind (nameof Arguments.Packages) with
| Some [[ Arguments.Packages packages ]] -> packages
| _ -> [[]]
let modules =
match argsMap |> Map.tryFind (nameof Arguments.Modules) with
| Some [[ Arguments.Modules modules ]] -> modules
| _ -> [[]]
let runtime =
match argsMap |> Map.tryFind (nameof Arguments.Runtime) with
| Some [[ Arguments.Runtime runtime ]] -> Some runtime
| _ -> None
let persistOnly = argsMap |> Map.containsKey (nameof Arguments.Persist_Only)
if persistOnly
then path |> persistFile packages modules |> Async.map (fun _ -> 0)
else path |> buildFile runtime packages modules
|> Async.runWithTimeout (60000 * 60)
|> function
| Some exitCode -> exitCode
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 14.56s - return value ]────────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 14.58s - stdout ]──────────────────────────────────────────────────────────╮
│ 00:00:15 #35 [debug] persistCodeProject / packages: [Argu; │
│ FSharp.Control.AsyncSeq; System.CommandLine; ... ] / modules: [ │
│ lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / │
│ name: Builder / code.Length: 7189 │
│ 00:00:15 #36 [debug] buildProject / fullPath: │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj │
│ 00:00:15 #37 [debug] executeAsync / options: { Command = │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\Builder\Builder.fsproj" │
│ --configuration Release --output "C:\home\git\polyglot\apps\builder\dist" │
│ --runtime linux-x64" │
│ WorkingDirectory = Some │
│ "C:\home\git\polyglot\target\polyglot\builder\Builder" │
│ CancellationToken = None │
│ OnLine = None } │
│ 00:00:15 #38 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:16 #39 [verbose] > Determining projects to restore... │
│ 00:00:17 #40 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj (in 371 │
│ ms). │
│ 00:00:17 #41 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj] │
│ 00:00:23 #42 [verbose] > Builder -> │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\bin\Release\net9.0\linu │
│ x-x64\Builder.dll │
│ 00:00:24 #43 [verbose] > Builder -> │
│ C:\home\git\polyglot\apps\builder\dist\ │
│ 00:00:24 #44 [debug] executeAsync / exitCode: 0 / output.Length: 692 │
│ 00:00:24 #45 [debug] executeAsync / options: { Command = │
│ "dotnet publish │
│ "C:\home\git\polyglot\target/polyglot/builder\Builder\Builder.fsproj" │
│ --configuration Release --output "C:\home\git\polyglot\apps\builder\dist" │
│ --runtime win-x64" │
│ WorkingDirectory = Some │
│ "C:\home\git\polyglot\target\polyglot\builder\Builder" │
│ CancellationToken = None │
│ OnLine = None } │
│ 00:00:24 #46 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f │
│ for .NET │
│ 00:00:25 #47 [verbose] > Determining projects to restore... │
│ 00:00:26 #48 [verbose] > Restored │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj (in 339 │
│ ms). │
│ 00:00:26 #49 [verbose] > │
│ C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.2 │
│ 4101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInferen │
│ ce.targets(313,5): message NETSDK1057: You are using a preview version of │
│ .NET. See: https://aka.ms/dotnet-support-policy [ │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\Builder.fsproj] │
│ 00:00:26 #50 [verbose] > Builder -> │
│ C:\home\git\polyglot\target\polyglot\builder\Builder\bin\Release\net9.0\win- │
│ x64\Builder.dll │
│ 00:00:29 #51 [verbose] > Builder -> │
│ C:\home\git\polyglot\apps\builder\dist\ │
│ 00:00:29 #52 [debug] executeAsync / exitCode: 0 / output.Length: 690 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook Builder.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 327850 bytes to Builder.dib.html
In [ ]:
{ . "$ScriptDir/../apps/parser/build.ps1" } | Invoke-Block
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # DibParser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : (unit -> System...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () () : bool =
let v0 : bool option = None
let mutable _v0 = v0
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v1 : bool = null |> unbox<bool>
v1
#endif
#if FABLE_COMPILER_RUST && WASM
let v2 : bool = null |> unbox<bool>
v2
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v3 : bool = null |> unbox<bool>
v3
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v4 : System.Runtime.InteropServices.OSPlatform =
System.Runtime.InteropServices.OSPlatform.Windows
let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v6 : bool = v...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
let US0_0 =
#if !INTERACTIVE
Trace.US0_0
#else
US0_0
#endif
let US0_1 =
#if !INTERACTIVE
Trace.US0_1
#else
US0_1
#endif
let US0_2 =
#if !INTERACTIVE
Trace.US0_2
#else
US0_2
#endif
let US0_3 =
#if !INTERACTIVE
Trace.US0_3
#else
US0_3
#endif
let US0_4 =
#if !INTERACTIVE
Trace.US0_4
#else
US0_4
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x ...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── pwsh ────────────────────────────────────────────────────────────────────────
ls ~/.nuget/packages/argu
╭─[ 524.78ms - stdout ]────────────────────────────────────────────────────────╮
│ │
│ Directory: C:\Users\i574n\.nuget\packages\argu │
│ │
│ Mode LastWriteTime Length[ │
│ 32;1m Name │
│ ---- ------------- ------ [ │
│ 32;1m---- │
│ d---- 2023-05-17 3:38 PM 6.1.1 │
│ d---- 2024-03-12 8:22 PM 6.1.4 │
│ d---- 2024-01-29 5:12 PM 6.1.5 │
│ d---- 2024-03-12 8:20 PM 6.2.0 │
│ d---- 2024-02-23 6:50 PM 6.2.1 │
│ d---- 2024-03-12 8:15 PM 6.2.2 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsec.dll"
#r
@"../../../../../../../.nuget/packages/fparsec/2.0.0-beta2/lib/netstandard2.1/FP
arsecCS.dll"
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.US0_0
| Debug -> SpiralTrace.US0_1
| Info -> SpiralTrace.US0_2
| Warning -> SpiralTrace.US0_3
| Critical -> SpiralTrace.US0_4
let trace level fn g...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.A...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitCommand
type private CommandParseStep =
| Start
| Path of quoted: bool
| Arguments
let splitCommand (command: string) =
let rec loop (path, args) chars step =
match chars, step with
| ('"' | '\'') :: tail, _ when path = "" -> loop (path, args) tail
(Path true)
| ('"' | '\'') :: tail, Path true -> loop (path, args) tail (Path
false)
| ' ' :: tail, Path true -> loop ($"{path} ", args) tail (Path true)
| ' ' :: tail, (Start | Path _) -> loop (path, args) tail Arguments
| char :: tail, Arguments -> loo...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Sys...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open FParsec
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## escapeCell (test) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let inline escapeCell input =
input
|> SpiralSm.split "\n"
|> Array.map (function
| line when line |> SpiralSm.starts_with "\\#!" || line |>
SpiralSm.starts_with "\\#r" ->
System.Text.RegularExpressions.Regex.Replace (line, "^\\\\#", "#")
| line -> line
)
|> SpiralSm.concat "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
$"a{nl}\\#!magic{nl}b{nl}"
|> escapeCell
|> _assertEqual (
$"a{nl}#!magic{nl}b{nl}"
)
╭─[ 47.94ms - stdout ]─────────────────────────────────────────────────────────╮
│ a │
│ #!magic │
│ b │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicMarker │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicMarker : Parser<string, unit> = pstring "#!"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic"
|> run magicMarker
|> _assertEqual (
Success ("#!", (), Position ("", 2, 1, 3))
)
╭─[ 42.47ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: #! │
│ Item2: <null> │
│ Item3: Position │
│ Index: 2 │
│ Line: 1 │
│ Column: 3 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"##!magic"
|> run magicMarker
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl}##!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 51.07ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: Error in Ln: 1 Col: 1 │
│ ##!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ Item2: ParserError │
│ Position: Position │
│ Index: 0 │
│ Line: 1 │
│ Column: 1 │
│ StreamName: │
│ UserState: <null> │
│ Messages: ErrorMessageList │
│ Head: ExpectedString │
│ String: #! │
│ Type: ExpectedString │
│ Tail: <null> │
│ Item3: <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## magicCommand │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let magicCommand =
magicMarker
>>. manyTill anyChar newline
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a"
|> run magicCommand
|> _assertEqual (
Success ("magic", (), Position ("", 8, 2, 1))
)
╭─[ 48.33ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: magic │
│ Item2: <null> │
│ Item3: Position │
│ Index: 8 │
│ Line: 2 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
" #!magic
a"
|> run magicCommand
|> _assertEqual (
Failure (
$"Error in Ln: 1 Col: 1{nl} #!magic{nl}^{nl}Expecting: '#!'{nl}",
ParserError (
Position ("", 0, 1, 1),
(),
ErrorMessageList (ExpectedString "#!")
),
()
)
)
╭─[ 34.05ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: Error in Ln: 1 Col: 1 │
│ #!magic │
│ ^ │
│ Expecting: '#!' │
│ │
│ Item2: ParserError │
│ Position: Position │
│ Index: 0 │
│ Line: 1 │
│ Column: 1 │
│ StreamName: │
│ UserState: <null> │
│ Messages: ErrorMessageList │
│ Head: ExpectedString │
│ String: #! │
│ Type: ExpectedString │
│ Tail: <null> │
│ Item3: <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## content │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let content =
(newline >>. magicMarker) <|> (eof >>. preturn "")
|> attempt
|> lookAhead
|> manyTill anyChar
|>> (System.String.Concat >> SpiralSm.trim)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run content
|> _assertEqual (
Success ("#!magic
a", (), Position ("", 14, 7, 1))
)
╭─[ 31.51ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: #!magic │
│ │
│ │
│ a │
│ Item2: <null> │
│ Item3: Position │
│ Index: 14 │
│ Line: 7 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Block =
{
magic : string
content : string
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## block │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let block =
pipe2
magicCommand
content
(fun magic content ->
{
magic = magic
content = content
})
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic
a
"
|> run block
|> _assertEqual (
Success (
{ magic = "magic"; content = "a" },
(),
Position ("", 14, 7, 1)
)
)
╭─[ 34.38ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: Block │
│ magic: magic │
│ content: a │
│ Item2: <null> │
│ Item3: Position │
│ Index: 14 │
│ Line: 7 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## blocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let blocks =
skipMany newline
>>. sepEndBy block (skipMany1 newline)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!magic1
a
\#!magic2
b
"
|> escapeCell
|> run blocks
|> _assertEqual (
Success (
[[
{ magic = "magic1"; content = "a" }
{ magic = "magic2"; content = "b" }
]],
(),
Position ("", 26, 9, 1)
)
)
╭─[ 49.53ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item1: FSharpList<Block> │
│ - magic: magic1 │
│ content: a │
│ - magic: magic2 │
│ content: b │
│ Item2: <null> │
│ Item3: Position │
│ Index: 26 │
│ Line: 9 │
│ Column: 1 │
│ StreamName: │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Output │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Output =
| Fs
| Md
| Spi
| Spir
let inline kernelOutputs magic =
match magic with
| "fsharp" -> [[ Fs ]]
| "markdown" -> [[ Md ]]
| "spiral" -> [[ Spi; Spir ]]
| _ -> [[]]
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlock │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlock output (block : Block) =
match output, block with
| output, { magic = "markdown"; content = content } ->
let markdownComment =
match output with
| Spi | Spir -> "// // "
| Fs -> "/// "
| _ -> ""
content
|> SpiralSm.split "\n"
|> Array.map (SpiralSm.trim_end [[||]])
|> Array.filter (SpiralSm.ends_with " (test)" >> not)
|> Array.map (function
| "" -> markdownComment |> SpiralSm.trim
| line -> System.Text.RegularExpressions.Regex.Replace (line,
"^\\s*", $"$&{markdownComment}")
)
|> SpiralSm.concat "\n"
| Fs, { magic = "fsharp"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "//// test" || trimmedContent
|> SpiralSm.starts_with "//// ignore"
then ""
else
content
|> SpiralSm.split "\n"
|> Array.filter (SpiralSm.trim_start [[||]] >> SpiralSm.starts_with
"#r" >> not)
|> SpiralSm.concat "\n"
| (Spi | Spir), { magic = "spiral"; content = content } ->
let trimmedContent = content |> SpiralSm.trim
if trimmedContent |> SpiralSm.starts_with "// // test" || trimmedContent
|> SpiralSm.starts_with "// // ignore"
then ""
else content
| _ -> ""
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
c
\#!markdown
c
\#!fsharp
let a = 1"
|> escapeCell
|> run block
|> function
| Success (block, _, _) -> formatBlock Fs block
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
///
/// c"
╭─[ 49.42ms - stdout ]─────────────────────────────────────────────────────────╮
│ /// a │
│ /// │
│ /// b │
│ /// │
│ /// c │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## formatBlocks │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline formatBlocks output blocks =
blocks
|> List.map (formatBlock output)
|> List.filter ((<>) "")
|> SpiralSm.concat "\n\n"
|> fun s -> s + "\n"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"#!markdown
a
b
\#!markdown
c
\#!fsharp
let a = 1
\#!markdown
d (test)
\#!fsharp
//// test
let a = 2
\#!markdown
e
\#!fsharp
let a = 3"
|> escapeCell
|> run blocks
|> function
| Success (blocks, _, _) -> formatBlocks Fs blocks
| Failure (msg, _, _) -> failwith msg
|> _assertEqual "/// a
///
/// b
/// c
let a = 1
/// e
let a = 3
"
╭─[ 60.43ms - stdout ]─────────────────────────────────────────────────────────╮
│ /// a │
│ /// │
│ /// b │
│ │
│ /// c │
│ │
│ let a = 1 │
│ │
│ /// e │
│ │
│ let a = 3 │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parse │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parse output input =
match run blocks input with
| Success (blocks, _, _) ->
let blocks =
blocks
|> List.filter (fun block ->
block.magic |> kernelOutputs |> List.contains output ||
block.magic = "markdown"
)
match blocks with
| { magic = "markdown"; content = content } :: _
when output = Fs
&& content |> SpiralSm.starts_with "# "
&& content |> SpiralSm.ends_with ")"
->
let inline indentBlock (block : Block) =
{ block with
content =
block.content
|> SpiralSm.split "\n"
|> Array.fold
(fun (lines, isMultiline) line ->
let trimmedLine = line |> SpiralSm.trim
if trimmedLine = ""
then "" :: lines, isMultiline
else
let inline singleQuoteLine () =
trimmedLine |> Seq.sumBy ((=) '"' >>
System.Convert.ToInt32) = 1
&& trimmedLine |> SpiralSm.contains
@"'""'" |> not
&& trimmedLine |> SpiralSm.ends_with "{"
|> not
&& trimmedLine |> SpiralSm.ends_with
"{|" |> not
&& trimmedLine |> SpiralSm.starts_with
"}" |> not
&& trimmedLine |> SpiralSm.starts_with
"|}" |> not
match isMultiline, trimmedLine |>
SpiralSm.split_string [[| $"{q}{q}{q}" |]] with
| false, [[| _; _ |]] ->
$" {line}" :: lines, true
| true, [[| _; _ |]] ->
line :: lines, false
| false, _ when singleQuoteLine () ->
$" {line}" :: lines, true
| false, _ when line |> SpiralSm.starts_with
"#" && block.magic = "fsharp" ->
line :: lines, false
| false, _ ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () && line |>
SpiralSm.starts_with " " ->
$" {line}" :: lines, false
| true, _ when singleQuoteLine () ->
line :: lines, false
| true, _ ->
line :: lines, true
)
([[]], false)
|> fst
|> List.rev
|> SpiralSm.concat "\n"
}
let moduleName, namespaceName =
System.Text.RegularExpressions.Regex.Match (content, @"# (.*)
\((.*)\)$")
|> fun m -> m.Groups.[[1]].Value, m.Groups.[[2]].Value
let moduleBlock =
{
magic = "fsharp"
content =
$"#if !INTERACTIVE
namespace {namespaceName}
#endif
module {moduleName} ="
}
blocks
|> List.indexed
|> List.fold
(fun blocks (index, block) ->
match index with
| 0 -> blocks
| 1 -> indentBlock block :: moduleBlock :: blocks
| _ -> indentBlock block :: blocks
)
[[]]
|> List.rev
| _ -> blocks
|> Result.Ok
| Failure (errorMsg, _, _) -> Result.Error errorMsg
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example1 =
$"""#!meta
{{"kernelInfo":{{"defaultKernelName":"fsharp","items":[[{{"aliases":[[]],"name":
"fsharp"}},{{"aliases":[[]],"name":"fsharp"}}]]}}}}
\#!markdown
# TestModule (TestNamespace)
\#!fsharp
\#!import file.dib
\#!fsharp
\#r "nuget:Expecto"
\#!markdown
## ParserLibrary
\#!fsharp
open System
\#!markdown
## x (test)
\#!fsharp
//// ignore
let x = 1
\#!spiral
// // test
inl x = 0i32
\#!spiral
inl x = 0i32
\#!markdown
### TextInput
\#!fsharp
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
\#!fsharp
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}"""
|> escapeCell
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Fs
|> Result.toOption
|> Option.get
|> (formatBlocks Fs)
|> _assertEqual $"""#if !INTERACTIVE
namespace TestNamespace
#endif
module TestModule =
/// ## ParserLibrary
open System
/// ### TextInput
let str1 = "abc
def"
let str2 =
"abc\
def"
let str3 =
$"1{{
1
}}1"
let str4 =
$"1{{({{|
a = 1
|}}).a}}1"
let str5 =
"abc \
def"
let x =
match '"' with
| '"' -> true
| _ -> false
let long1 = {q}{q}{q}a{q}{q}{q}
let long2 =
{q}{q}{q}
a
{q}{q}{q}
type Position =
{{
#if INTERACTIVE
line : string
#else
line : int
#endif
column : int
}}
"""
╭─[ 156.93ms - stdout ]────────────────────────────────────────────────────────╮
│ #if !INTERACTIVE │
│ namespace TestNamespace │
│ #endif │
│ │
│ module TestModule = │
│ │
│ /// ## ParserLibrary │
│ │
│ open System │
│ │
│ /// ### TextInput │
│ │
│ let str1 = "abc │
│ def" │
│ │
│ let str2 = │
│ "abc\ │
│ def" │
│ │
│ let str3 = │
│ $"1{ │
│ 1 │
│ }1" │
│ │
│ let str4 = │
│ $"1{({| │
│ a = 1 │
│ |}).a}1" │
│ │
│ let str5 = │
│ "abc \ │
│ def" │
│ │
│ let x = │
│ match '"' with │
│ | '"' -> true │
│ | _ -> false │
│ │
│ let long1 = """a""" │
│ │
│ let long2 = │
│ """ │
│ a │
│ """ │
│ │
│ type Position = │
│ { │
│ #if INTERACTIVE │
│ line : string │
│ #else │
│ line : int │
│ #endif │
│ column : int │
│ } │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Md
|> Result.toOption
|> Option.get
|> (formatBlocks Md)
|> _assertEqual "# TestModule (TestNamespace)
## ParserLibrary
### TextInput
"
╭─[ 255.68ms - stdout ]────────────────────────────────────────────────────────╮
│ # TestModule (TestNamespace) │
│ │
│ ## ParserLibrary │
│ │
│ ### TextInput │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
example1
|> parse Spi
|> Result.toOption
|> Option.get
|> (formatBlocks Spi)
|> _assertEqual "// // # TestModule (TestNamespace)
// // ## ParserLibrary
inl x = 0i32
// // ### TextInput
"
╭─[ 144.48ms - stdout ]────────────────────────────────────────────────────────╮
│ // // # TestModule (TestNamespace) │
│ │
│ // // ## ParserLibrary │
│ │
│ inl x = 0i32 │
│ │
│ // // ### TextInput │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## parseDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parseDibCode output file = async {
let getLocals () = $"output: {output} / file: {file} / {getLocals ()}"
trace Debug (fun () -> "parseDibCode") getLocals
let! input = file |> SpiralFileSystem.read_all_text_async
match parse output input with
| Result.Ok blocks -> return blocks |> formatBlocks output
| Result.Error msg -> return failwith msg
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## writeDibCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline writeDibCode output path = async {
let getLocals () = $"output: {output} / path: {path} / {getLocals ()}"
trace Debug (fun () -> "writeDibCode") getLocals
let! result = parseDibCode output path
let outputPath = path |> SpiralSm.replace ".dib" $".{output |> string |>
SpiralSm.to_lower}"
do! result |> SpiralFileSystem.write_all_text_async outputPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.Mandatory>]]
File of file : string * Output
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| File _ -> nameof File
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 96.64ms - return value ]───────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] <file> <fs|md|spi|spir> │
│ │
│ FILE: │
│ │
│ <file> <fs|md|spi|spir> │
│ File │
│ │
│ OPTIONS: │
│ │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let files =
argsMap.[[nameof Arguments.File]]
|> List.map (function
| Arguments.File (path, output) -> path, output
)
files
|> List.map (fun (path, output) -> path |> writeDibCode output)
|> Async.Parallel
|> Async.Ignore
|> Async.runWithTimeout 30000
|> function
| Some () -> 0
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 141.73ms - return value ]──────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 154.86ms - stdout ]────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] writeDibCode / output: Fs / path: DibParser.dib │
│ 00:00:00 #2 [debug] parseDibCode / output: Fs / file: DibParser.dib │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook DibParser.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 369380 bytes to DibParser.dib.html
00:00:00 #1 [debug] persistCodeProject / packages: [Argu; FParsec; FSharp.Control.AsyncSeq; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: DibParser / code.Length: 9188
00:00:00 #2 [debug] buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj
00:00:00 #3 [debug] executeAsync / options: { Command =
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DibParser\DibParser.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\parser\dist" --runtime linux-x64"
WorkingDirectory =
Some "C:\home\git\polyglot\target\polyglot\builder\DibParser"
CancellationToken = None
OnLine = None }
00:00:00 #4 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:00 #5 [verbose] > Determining projects to restore...
00:00:01 #6 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj (in 365 ms).
00:00:01 #7 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj]
00:00:08 #8 [verbose] > DibParser -> C:\home\git\polyglot\target\polyglot\builder\DibParser\bin\Release\net9.0\linux-x64\DibParser.dll
00:00:09 #9 [verbose] > DibParser -> C:\home\git\polyglot\apps\parser\dist\
00:00:09 #10 [debug] executeAsync / exitCode: 0 / output.Length: 707
00:00:09 #11 [debug] executeAsync / options: { Command =
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DibParser\DibParser.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\parser\dist" --runtime win-x64"
WorkingDirectory =
Some "C:\home\git\polyglot\target\polyglot\builder\DibParser"
CancellationToken = None
OnLine = None }
00:00:10 #12 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:10 #13 [verbose] > Determining projects to restore...
00:00:11 #14 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj (in 356 ms).
00:00:11 #15 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DibParser\DibParser.fsproj]
00:00:17 #16 [verbose] > DibParser -> C:\home\git\polyglot\target\polyglot\builder\DibParser\bin\Release\net9.0\win-x64\DibParser.dll
00:00:24 #17 [verbose] > DibParser -> C:\home\git\polyglot\apps\parser\dist\
00:00:24 #18 [debug] executeAsync / exitCode: 0 / output.Length: 705
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # JsonParser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : (unit -> System...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () () : bool =
let v0 : bool option = None
let mutable _v0 = v0
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v1 : bool = null |> unbox<bool>
v1
#endif
#if FABLE_COMPILER_RUST && WASM
let v2 : bool = null |> unbox<bool>
v2
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v3 : bool = null |> unbox<bool>
v3
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v4 : System.Runtime.InteropServices.OSPlatform =
System.Runtime.InteropServices.OSPlatform.Windows
let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v6 : bool = v...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
let US0_0 =
#if !INTERACTIVE
Trace.US0_0
#else
US0_0
#endif
let US0_1 =
#if !INTERACTIVE
Trace.US0_1
#else
US0_1
#endif
let US0_2 =
#if !INTERACTIVE
Trace.US0_2
#else
US0_2
#endif
let US0_3 =
#if !INTERACTIVE
Trace.US0_3
#else
US0_3
#endif
let US0_4 =
#if !INTERACTIVE
Trace.US0_4
#else
US0_4
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x ...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import Parser.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.US0_0
| Debug -> SpiralTrace.US0_1
| Info -> SpiralTrace.US0_2
| Warning -> SpiralTrace.US0_3
| Critical -> SpiralTrace.US0_4
let trace level fn g...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Parser =
open Common
/// ### TextInput
type Position =
{
line : int
column : int
}
let initialPos = { line = 0; column = 0 }
let inline incrCol (pos : Position) =
{ pos with column = pos.column + 1 }
let inline incrLine pos =
{ line = pos.line + 1; column = 0 }
type InputState =
{
lines : string[[]]
position : Position
}
let inline fromStr str =
{
lines =
if str |> String.IsNullOrEmpty
then [[||]]
else str |> SpiralSm.split_string [[| "\r\n"; "\n" |]]
position = initialPos
}
...
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open Parser
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## JsonParser │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
(*
// --------------------------------
JSON spec from http://www.json.org/
// --------------------------------
The JSON spec is available at [[json.org]](http://www.json.org/). I'll paraphase
it here:
* A `value` can be a `string` or a `number` or a `bool` or `null` or an `object`
or an `array`.
* These structures can be nested.
* A `string` is a sequence of zero or more Unicode characters, wrapped in double
quotes, using backslash escapes.
* A `number` is very much like a C or Java number, except that the octal and
hexadecimal formats are not used.
* A `boolean` is the literal `true` or `false`
* A `null` is the literal `null`
* An `object` is an unordered set of name/value pairs.
* An object begins with { (left brace) and ends with } (right brace).
* Each name is followed by : (colon) and the name/value pairs are separated by
, (comma).
* An `array` is an ordered collection of values.
* An array begins with [[ (left bracket) and ends with ]] (right bracket).
* Values are separated by , (comma).
* Whitespace can be inserted between any pair of tokens.
*)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let inline parserEqual (expected : ParseResult<'a>) (actual : ParseResult<'a *
Input>) =
match actual, expected with
| Success (_actual, _), Success _expected ->
printResult actual
_actual |> _assertEqual _expected
| Failure (l1, e1, p1), Failure (l2, e2, p2) when l1 = l2 && e1 = e2 && p1 =
p2 ->
printResult actual
| _ ->
printfn $"Actual: {actual}"
printfn $"Expected: {expected}"
failwith "Parse failed"
actual
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### JValue │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type JValue =
| JString of string
| JNumber of float
| JBool of bool
| JNull
| JObject of Map<string, JValue>
| JArray of JValue list
── fsharp ──────────────────────────────────────────────────────────────────────
let jValue, jValueRef = createParserForwardedToRef<JValue> ()
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jNull │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jNull =
pstring "null"
>>% JNull
<?> "null"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jValue "null"
|> parserEqual (Success JNull)
╭─[ 216.69ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNull, { lines = [ │
│ |"null"|]<br/> position = { line = 0<br/> │
│ column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNull, { lines = [|"null"|]<br/> │
│ position = { line = 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNull</code></span></summary><div><table><thead> │
│ <tr></tr></thead><tbody><tr><td>IsJString</td><td><d... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 226.88ms - stdout ]────────────────────────────────────────────────────────╮
│ JNull │
│ JValue │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: True │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNull "nulp"
|> parserEqual (
Failure (
"null",
"Unexpected 'p'",
{ currentLine = "nulp"; line = 0; column = 3 }
)
)
╭─[ 42.82ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("null", "Unexpected │
│ 'p'", { currentLine = "nulp"<br/> │
│ line = 0<br/> column = 3 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>null</pre></div></td></tr><tr><td>Item2</td><td>< │
│ div class="dni-plaintext"><pre>Unexpected │
│ 'p'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "nulp"<br/> line = 0<br/> column = 3 │
│ }</code></span></summary><div><table><thead><tr></tr></thead... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 48.95ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:3 Error parsing null │
│ nulp │
│ ^Unexpected 'p' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jBool │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jBool =
let jtrue =
pstring "true"
>>% JBool true
let jfalse =
pstring "false"
>>% JBool false
jtrue <|> jfalse
<?> "bool"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jBool "true"
|> parserEqual (Success (JBool true))
╭─[ 78.72ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JBool true, { lines = [ │
│ |"true"|]<br/> position = { line = 0<br/> │
│ column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JBool true, { lines = [|"true"|]<br/> │
│ position = { line = 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JBool │
│ true</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr.. │
│ . │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 88.38ms - stdout ]─────────────────────────────────────────────────────────╮
│ JBool true │
│ JBool │
│ Item: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jBool "false"
|> parserEqual (Success (JBool false))
╭─[ 47.76ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JBool false, { lines = [ │
│ |"false"|]<br/> position = { line = 0<br/> │
│ column = 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JBool false, { lines = [ │
│ |"false"|]<br/> position = { line = 0<br/> column = │
│ 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JBool │
│ false</code></span></summary><div><table><thead><tr></tr></thead><tb... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 55.02ms - stdout ]─────────────────────────────────────────────────────────╮
│ JBool false │
│ JBool │
│ Item: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jBool "truX"
|> parserEqual (
Failure (
"bool",
"Unexpected 't'",
{ currentLine = "truX"; line = 0; column = 0 }
)
)
╭─[ 25.79ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("bool", "Unexpected │
│ 't'", { currentLine = "truX"<br/> │
│ line = 0<br/> column = 0 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>bool</pre></div></td></tr><tr><td>Item2</td><td>< │
│ div class="dni-plaintext"><pre>Unexpected │
│ 't'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "truX"<br/> line = 0<br/> column = 0 │
│ }</code></span></summary><div><table><thead><tr></tr></thead... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 31.77ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:0 Error parsing bool │
│ truX │
│ ^Unexpected 't' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jUnescapedChar │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jUnescapedChar =
satisfy (fun ch -> ch <> '\\' && ch <> '\"') "char"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jUnescapedChar "a"
|> parserEqual (Success 'a')
╭─[ 53.43ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('a', { lines = [ │
│ |"a"|]<br/> position = { line = 0<br/> │
│ column = 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(a, { lines = [|"a"|]<br/> position = │
│ { line = 0<br/> column = 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>a</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"a"|]<br/... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 60.43ms - stdout ]─────────────────────────────────────────────────────────╮
│ 'a' │
│ a │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jUnescapedChar "\\"
|> parserEqual (
Failure (
"char",
"Unexpected '\\'",
{ currentLine = "\\"; line = 0; column = 0 }
)
)
╭─[ 30.06ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("char", "Unexpected │
│ '\'", { currentLine = "\"<br/> │
│ line = 0<br/> column = 0 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>char</pre></div></td></tr><tr><td>Item2</td><td>< │
│ div class="dni-plaintext"><pre>Unexpected │
│ '\'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "\"<br/> line = 0<br/> column = 0 │
│ }</code></span></summary><div><table><thead><tr></tr></thead><tbod... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 36.40ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:0 Error parsing char │
│ \ │
│ ^Unexpected '\' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jEscapedChar │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jEscapedChar =
[[
("\\\"",'\"')
("\\\\",'\\')
("\\/",'/')
("\\b",'\b')
("\\f",'\f')
("\\n",'\n')
("\\r",'\r')
("\\t",'\t')
]]
|> List.map (fun (toMatch, result) ->
pstring toMatch >>% result
)
|> choice
<?> "escaped char"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar "\\\\"
|> parserEqual (Success '\\')
╭─[ 35.43ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\\', { lines = [ │
│ |"\\"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(\, { lines = [|"\\"|]<br/> position │
│ = { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>\</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"\\"... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 42.05ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\\' │
│ \ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar "\\t"
|> parserEqual (Success '\t')
╭─[ 33.64ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\009', { lines = [ │
│ |"\t"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>( , { lines = [|"\t"|]<br/> position = │
│ { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre> │
│ </pre></div></td></tr><tr><td>Item2</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = [ │
│ |"\t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 41.16ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\009' │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar @"\\"
|> parserEqual (Success '\\')
╭─[ 30.05ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\\', { lines = [ │
│ |"\\"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(\, { lines = [|"\\"|]<br/> position │
│ = { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>\</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"\\"... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 37.76ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\\' │
│ \ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar @"\n"
|> parserEqual (Success '\n')
╭─[ 38.23ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('\010', { lines = [ │
│ |"<br/>"|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(<br/>, { lines = [|"<br/>"|]<br/> │
│ position = { line = 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre> │
│ </pre></div></td></tr><tr><td>Item2</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines = │
│ ... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 45.23ms - stdout ]─────────────────────────────────────────────────────────╮
│ '\010' │
│ │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jEscapedChar "a"
|> parserEqual (
Failure (
"escaped char",
"Unexpected 'a'",
{ currentLine = "a"; line = 0; column = 0 }
)
)
╭─[ 25.05ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("escaped char", │
│ "Unexpected 'a'", { currentLine = "a"<br/> │
│ line = 0<br/> column = 0 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre>escaped │
│ char</pre></div></td></tr><tr><td>Item2</td><td><div │
│ class="dni-plaintext"><pre>Unexpected │
│ 'a'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "a"<br/> line = 0<br/> column = 0 │
│ }</code></span></summary><div><tab... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 31.48ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:0 Error parsing escaped char │
│ a │
│ ^Unexpected 'a' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jUnicodeChar │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jUnicodeChar =
let backslash = pchar '\\'
let uChar = pchar 'u'
let hexdigit = anyOf ([[ '0' .. '9' ]] @ [[ 'A' .. 'F' ]] @ [[ 'a' .. 'f'
]])
let fourHexDigits = hexdigit .>>. hexdigit .>>. hexdigit .>>. hexdigit
let inline convertToChar (((h1, h2), h3), h4) =
let str = $"%c{h1}%c{h2}%c{h3}%c{h4}"
Int32.Parse (str, Globalization.NumberStyles.HexNumber) |> char
backslash >>. uChar >>. fourHexDigits
|>> convertToChar
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jUnicodeChar "\\u263A"
|> parserEqual (Success '☺')
╭─[ 42.89ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success ('☺', { lines = [ │
│ |"\u263A"|]<br/> position = { line = 0<br/> │
│ column = 6 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(☺, { lines = [|"\u263A"|]<br/> │
│ position = { line = 0<br/> column = 6 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>☺</pre></div></td></tr><tr><td>Item2</td><td><det │
│ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>{ lines │
│ = [|"\u2... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 51.54ms - stdout ]─────────────────────────────────────────────────────────╮
│ '☺' │
│ ☺ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jString │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let quotedString =
let quote = pchar '\"' <?> "quote"
let jchar = jUnescapedChar <|> jEscapedChar <|> jUnicodeChar
quote >>. manyChars jchar .>> quote
── fsharp ──────────────────────────────────────────────────────────────────────
let jString =
quotedString
|>> JString
<?> "quoted string"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
jString
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"\""
|> parserEqual (Success (JString ""))
╭─[ 51.64ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "", { lines = [ │
│ |""""|]<br/> position = { line = │
│ 0<br/> column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "", { lines = [ │
│ |""""|]<br/> position = { line = 0<br/> │
│ column = 2 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString ""</code></span></summary>... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 58.91ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "" │
│ JString │
│ Item: │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"a\""
|> parserEqual (Success (JString "a"))
╭─[ 33.05ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "a", { lines = [ │
│ |""a""|]<br/> position = { line = │
│ 0<br/> column = 3 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "a", { lines = [ │
│ |""a""|]<br/> position = { line = 0<br/> │
│ column = 3 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString "a"</code></span></s... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 38.94ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "a" │
│ JString │
│ Item: a │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"ab\""
|> parserEqual (Success (JString "ab"))
╭─[ 34.32ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "ab", { lines = [ │
│ |""ab""|]<br/> position = { line │
│ = 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "ab", { lines = [ │
│ |""ab""|]<br/> position = { line = 0<br/> │
│ column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString "ab"</code></s... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 42.07ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "ab" │
│ JString │
│ Item: ab │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"ab\\tde\""
|> parserEqual (Success (JString "ab\tde"))
╭─[ 35.03ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "ab de", { lines = [ │
│ |""ab\tde""|]<br/> position = │
│ { line = 0<br/> column = 8 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "ab de", { lines = [ │
│ |""ab\tde""|]<br/> position = { line = 0<br/> │
│ column = 8 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JString &quo... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 42.47ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "ab de" │
│ JString │
│ Item: ab de │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jString "\"ab\\u263Ade\""
|> parserEqual (Success (JString "ab☺de"))
╭─[ 42.93ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JString "ab☺de", { lines = [ │
│ |""ab\u263Ade""|]<br/> │
│ position = { line = 0<br/> column = │
│ 12 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JString "ab☺de", { lines = [ │
│ |""ab\u263Ade""|]<br/> position = { line = 0<br/> │
│ column = 12 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JS... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 50.35ms - stdout ]─────────────────────────────────────────────────────────╮
│ JString "ab☺de" │
│ JString │
│ Item: ab☺de │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jNumber │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jNumber =
let optSign = opt (pchar '-')
let zero = pstring "0"
let digitOneNine =
satisfy (fun ch -> Char.IsDigit ch && ch <> '0') "1-9"
let digit =
satisfy Char.IsDigit "digit"
let point = pchar '.'
let e = pchar 'e' <|> pchar 'E'
let optPlusMinus = opt (pchar '-' <|> pchar '+')
let nonZeroInt =
digitOneNine .>>. manyChars digit
|>> fun (first, rest) -> string first + rest
let intPart = zero <|> nonZeroInt
let fractionPart = point >>. manyChars1 digit
let exponentPart = e >>. optPlusMinus .>>. manyChars1 digit
let inline (|>?) opt f =
match opt with
| None -> ""
| Some x -> f x
let inline convertToJNumber (((optSign, intPart), fractionPart), expPart) =
let signStr =
optSign
|>? string
let fractionPartStr =
fractionPart
|>? (fun digits -> "." + digits)
let expPartStr =
expPart
|>? fun (optSign, digits) ->
let sign = optSign |>? string
"e" + sign + digits
(signStr + intPart + fractionPartStr + expPartStr)
|> float
|> JNumber
optSign .>>. intPart .>>. opt fractionPart .>>. opt exponentPart
|>> convertToJNumber
<?> "number"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
jString
jNumber
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "123"
|> parserEqual (Success (JNumber 123.0))
╭─[ 57.61ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 0<br/> │
│ column = 3 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 0<br/> column = 3 │
│ } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.0</code></span></summary><div><table><thead><tr></tr></the... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 65.04ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.0 │
│ JNumber │
│ Item: 123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "-123"
|> parserEqual (Success (JNumber -123.0))
╭─[ 37.12ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = │
│ 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = 0<br/> column = │
│ 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ -123.0</code></span></summary><div><table><thead><tr></t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 44.51ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber -123.0 │
│ JNumber │
│ Item: -123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "123.4"
|> parserEqual (Success (JNumber 123.4))
╭─[ 45.00ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = │
│ 0<br/> column = 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = 0<br/> column = │
│ 5 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.4</code></span></summary><div><table><thead><tr></tr><... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 52.61ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.4 │
│ JNumber │
│ Item: 123.4 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "-123."
|> parserEqual (Success (JNumber -123.0))
╭─[ 34.34ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │
│ |"-123."|]<br/> position = { line = │
│ 0<br/> column = 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │
│ |"-123."|]<br/> position = { line = 0<br/> column = │
│ 4 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ -123.0</code></span></summary><div><table><thead><tr><... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 42.08ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber -123.0 │
│ JNumber │
│ Item: -123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber "00.1"
|> parserEqual (Success (JNumber 0.0))
╭─[ 32.69ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 0.0, { lines = [ │
│ |"00.1"|]<br/> position = { line = 0<br/> │
│ column = 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 0.0, { lines = [ │
│ |"00.1"|]<br/> position = { line = 0<br/> column = │
│ 1 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 0.0</code></span></summary><div><table><thead><tr></tr></thead><tbod... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 40.82ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 0.0 │
│ JNumber │
│ Item: 0 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let jNumber_ = jNumber .>> spaces1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123"
|> parserEqual (Success (JNumber 123.0))
╭─[ 37.71ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.0, { lines = [ │
│ |"123"|]<br/> position = { line = 1<br/> column = 0 │
│ } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.0</code></span></summary><div><table><thead><tr></tr></the... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 44.90ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.0 │
│ JNumber │
│ Item: 123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "-123"
|> parserEqual (Success (JNumber -123.0))
╭─[ 35.28ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber -123.0, { lines = [ │
│ |"-123"|]<br/> position = { line = 1<br/> column = │
│ 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ -123.0</code></span></summary><div><table><thead><tr></t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 43.16ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber -123.0 │
│ JNumber │
│ Item: -123 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "-123."
|> parserEqual (
Failure (
"number andThen many1 whitespace",
"Unexpected '.'",
{ currentLine = "-123."; line = 0; column = 4 }
)
)
╭─[ 29.77ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure<br/> ("number andThen many1 │
│ whitespace", "Unexpected '.'", { currentLine = │
│ "-123."<br/> │
│ line = 0<br/> │
│ column = 4 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre>number andThen many1 │
│ whitespace</pre></div></td></tr><tr><td>Item2</td><td><div │
│ class="dni-plaintext"><pre>Unexpected │
│ '.'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 37.01ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:4 Error parsing number andThen many1 whitespace │
│ -123. │
│ ^Unexpected '.' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123.4"
|> parserEqual (Success (JNumber 123.4))
╭─[ 32.68ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 123.4, { lines = [ │
│ |"123.4"|]<br/> position = { line = 1<br/> column = │
│ 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 123.4</code></span></summary><div><table><thead><tr></tr><... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 39.99ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 123.4 │
│ JNumber │
│ Item: 123.4 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "00.4"
|> parserEqual (
Failure (
"number andThen many1 whitespace",
"Unexpected '0'",
{ currentLine = "00.4"; line = 0; column = 1 }
)
)
╭─[ 27.82ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure<br/> ("number andThen many1 │
│ whitespace", "Unexpected '0'", { currentLine = │
│ "00.4"<br/> │
│ line = 0<br/> │
│ column = 1 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div class="dni-plaintext"><pre>number andThen many1 │
│ whitespace</pre></div></td></tr><tr><td>Item2</td><td><div │
│ class="dni-plaintext"><pre>Unexpected │
│ '0'</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "0... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 34.38ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:1 Error parsing number andThen many1 whitespace │
│ 00.4 │
│ ^Unexpected '0' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123e4"
|> parserEqual (Success (JNumber 1230000.0))
╭─[ 40.40ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 1230000.0, { lines = [ │
│ |"123e4"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 1230000.0, { lines = [ │
│ |"123e4"|]<br/> position = { line = 1<br/> column = │
│ 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 1230000.0</code></span></summary><div><tab... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 47.83ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 1230000.0 │
│ JNumber │
│ Item: 1230000 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123.4e5"
|> parserEqual (Success (JNumber 12340000.0))
╭─[ 33.33ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 12340000.0, { lines = [ │
│ |"123.4e5"|]<br/> position = { line │
│ = 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 12340000.0, { lines = [ │
│ |"123.4e5"|]<br/> position = { line = 1<br/> column │
│ = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber 12340000.0</code></span></summary>... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 40.63ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 12340000.0 │
│ JNumber │
│ Item: 12340000 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jNumber_ "123.4e-5"
|> parserEqual (Success (JNumber 0.001234))
╭─[ 37.72ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JNumber 0.001234, { lines = [ │
│ |"123.4e-5"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JNumber 0.001234, { lines = [ │
│ |"123.4e-5"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>JNumber │
│ 0.001234</code></span></summary><div><ta... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 45.20ms - stdout ]─────────────────────────────────────────────────────────╮
│ JNumber 0.001234 │
│ JNumber │
│ Item: 0.001234 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jArray │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jArray =
let left = pchar '[[' .>> spaces
let right = pchar ']]' .>> spaces
let comma = pchar ',' .>> spaces
let value = jValue .>> spaces
let values = sepBy value comma
between left values right
|>> JArray
<?> "array"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
jValueRef <|
choice
[[
jNull
jBool
jString
jNumber
jArray
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jArray "[[ 1, 2 ]]"
|> parserEqual (Success (JArray [[ JNumber 1.0; JNumber 2.0 ]]))
╭─[ 86.71ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success (JArray [JNumber 1.0; JNumber 2.0], { │
│ lines = [|"[ 1, 2 ]"|]<br/> │
│ position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JArray [JNumber 1.0; JNumber 2.0], { lines = [ │
│ |"[ 1, 2 ]"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><details class="dni-treeview"><summary><span class="d... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 93.68ms - stdout ]─────────────────────────────────────────────────────────╮
│ JArray [JNumber 1.0; JNumber 2.0] │
│ JArray │
│ Item: FSharpList<JValue> │
│ - Item: 1 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 2 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jArray "[[ 1, 2, ]]"
|> parserEqual (
Failure (
"array",
"Unexpected ','",
{ currentLine = "[[ 1, 2, ]]"; line = 0; column = 6 }
)
)
╭─[ 40.20ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("array", "Unexpected │
│ ','", { currentLine = "[ 1, 2, ]"<br/> │
│ line = 0<br/> column = 6 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>array</pre></div></td></tr><tr><td>Item2</td><td> │
│ <div class="dni-plaintext"><pre>Unexpected │
│ ','</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "[ 1, 2, ]"<br/> line = 0<br/> column = 6 │
│ }</code></span></summary><div><table><thead><t... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 46.84ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:6 Error parsing array │
│ [ 1, 2, ] │
│ ^Unexpected ',' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jObject │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let jObject =
let left = spaces >>. pchar '{' .>> spaces
let right = pchar '}' .>> spaces
let colon = pchar ':' .>> spaces
let comma = pchar ',' .>> spaces
let key = quotedString .>> spaces
let value = jValue .>> spaces
let keyValue = (key .>> colon) .>>. value
let keyValues = sepBy keyValue comma
between left keyValues right
|>> Map.ofList
|>> JObject
<?> "object"
── fsharp ──────────────────────────────────────────────────────────────────────
jValueRef <|
choice
[[
jNull
jBool
jString
jNumber
jArray
jObject
]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jObject """{ "a":1, "b" : 2 }"""
|> parserEqual (
Success (
JObject (
Map.ofList [[
"a", JNumber 1.0
"b", JNumber 2.0
]]
)
)
)
╭─[ 82.76ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject (map [("a", │
│ JNumber 1.0); ("b", JNumber 2.0)]),<br/> { lines = [|"{ │
│ "a":1, "b" : 2 }"|]<br/> position = { line = │
│ 1<br/> column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject (map [("a", JNumber 1.0); │
│ ("b", JNumber 2.0)]), { lines = [|"{ "a":1, │
│ "b" : 2 }"|]<br/> position = { line = 1<br/> │
│ column = 0 } │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbod... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 88.98ms - stdout ]─────────────────────────────────────────────────────────╮
│ JObject (map [("a", JNumber 1.0); ("b", JNumber 2.0)]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: a │
│ Value: JNumber │
│ Item: 1 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: b │
│ Value: JNumber │
│ Item: 2 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run jObject """{ "a":1, "b" : 2, }"""
|> parserEqual (
Failure (
"object",
"Unexpected ','",
{ currentLine = """{ "a":1, "b" : 2, }"""; line = 0; column = 18 }
)
)
╭─[ 38.96ms - return value ]───────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Failure ("object", "Unexpected │
│ ','", { currentLine = "{ "a":1, "b" : │
│ 2, }"<br/> line = 0<br/> │
│ column = 18 │
│ })</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
│ >Item1</td><td><div │
│ class="dni-plaintext"><pre>object</pre></div></td></tr><tr><td>Item2</td><td │
│ ><div class="dni-plaintext"><pre>Unexpected │
│ ','</pre></div></td></tr><tr><td>Item3</td><td><details │
│ class="dni-treeview"><summary><span class="dni-code-hint"><code>{ │
│ currentLine = "{ "a":1, "b" : 2, }"<br/> │
│ lin... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 45.81ms - stdout ]─────────────────────────────────────────────────────────╮
│ Line:0 Col:18 Error parsing object │
│ { "a":1, "b" : 2, } │
│ ^Unexpected ',' │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### jValue │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example1 = """{
"name" : "Scott",
"isMale" : true,
"bday" : {"year":2001, "month":12, "day":25 },
"favouriteColors" : [["blue", "green"]],
"emptyArray" : [[]],
"emptyObject" : {}
}"""
run jValue example1
|> parserEqual (
Success (
JObject (
Map.ofList [[
"name", JString "Scott"
"isMale", JBool true
"bday", JObject (
Map.ofList [[
"year", JNumber 2001.0
"month", JNumber 12.0
"day", JNumber 25.0
]]
)
"favouriteColors", JArray [[ JString "blue"; JString "green" ]]
"emptyArray", JArray [[]]
"emptyObject", JObject Map.empty
]]
)
)
)
╭─[ 143.86ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject<br/> (map<br/> │
│ [("bday",<br/> JObject<br/> (map<br/> │
│ [("day", JNumber 25.0); ("month", JNumber 12.0);<br/> │
│ ("year", JNumber 2001.0)])); ("emptyArray", JArray [ │
│ ]);<br/> ("emptyObject", JObject (map []));<br/> │
│ ("favouriteColors", │
│ ...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │
│ d>Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject<br/> (map<br/> [ │
│ ("bday",<br/> JObject<br/> (map<br/> [ │
│ (... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 150.75ms - stdout ]────────────────────────────────────────────────────────╮
│ JObject │
│ (map │
│ [("bday", │
│ JObject │
│ (map │
│ [("day", JNumber 25.0); ("month", JNumber 12.0); │
│ ("year", JNumber 2001.0)])); ("emptyArray", JArray []); │
│ ("emptyObject", JObject (map [])); │
│ ("favouriteColors", JArray [JString "blue"; JString "green"]); │
│ ("isMale", JBool true); ("name", JString "Scott")]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: bday │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: day │
│ Value: JNumber 25.0 │
│ - Key: month │
│ Value: JNumber 12.0 │
│ - Key: year │
│ Value: JNumber 2001.0 │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: emptyArray │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: emptyObject │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: favouriteColors │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: blue │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: green │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: isMale │
│ Value: JBool │
│ Item: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: name │
│ Value: JString │
│ Item: Scott │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example2 = """{"widget": {
"debug": "on",
"window": {
"title": "Sample Konfabulator Widget",
"name": "main_window",
"width": 500,
"height": 500
},
"image": {
"src": "Images/Sun.png",
"name": "sun1",
"hOffset": 250,
"vOffset": 250,
"alignment": "center"
},
"text": {
"data": "Click Here",
"size": 36,
"style": "bold",
"name": "text1",
"hOffset": 250,
"vOffset": 100,
"alignment": "center",
"onMouseUp": "sun1.opacity = (sun1.opacity / 100) * 90;"
}
}}"""
run jValue example2
|> parserEqual (
Success (
JObject (
Map.ofList [[
"widget", JObject (
Map.ofList [[
"debug", JString "on"
"window", JObject (
Map.ofList [[
"title", JString "Sample Konfabulator Widget"
"name", JString "main_window"
"width", JNumber 500.0
"height", JNumber 500.0
]]
)
"image", JObject (
Map.ofList [[
"src", JString "Images/Sun.png"
"name", JString "sun1"
"hOffset", JNumber 250.0
"vOffset", JNumber 250.0
"alignment", JString "center"
]]
)
"text", JObject (
Map.ofList [[
"data", JString "Click Here"
"size", JNumber 36.0
"style", JString "bold"
"name", JString "text1"
"hOffset", JNumber 250.0
"vOffset", JNumber 100.0
"alignment", JString "center"
"onMouseUp", JString "sun1.opacity =
(sun1.opacity / 100) * 90;"
]]
)
]]
)
]]
)
)
)
╭─[ 307.17ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject<br/> (map<br/> │
│ [("widget",<br/> JObject<br/> (map<br/> │
│ [("debug", JString "on");<br/> │
│ ("image",<br/> JObject<br/> │
│ (map<br/> [("alignment", JString │
│ "center");<br/> │
│ ("hOffset"...</code></span></summary><div><table><thead><tr></tr>< │
│ /thead><tbody><tr><td>Item</td><td><details │
│ class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject<br/> (map<br/> [ │
│ ("widget",<br/> JObject<br/> (map<br/> ... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 315.11ms - stdout ]────────────────────────────────────────────────────────╮
│ JObject │
│ (map │
│ [("widget", │
│ JObject │
│ (map │
│ [("debug", JString "on"); │
│ ("image", │
│ JObject │
│ (map │
│ [("alignment", JString "center"); ("hOffset", JNumber │
│ 250.0); │
│ ("name", JString "sun1"); ("src", JString │
│ "Images/Sun.png"); │
│ ("vOffset", JNumber 250.0)])); │
│ ("text", │
│ JObject │
│ (map │
│ [("alignment", JString "center"); │
│ ("data", JString "Click Here"); ("hOffset", JNumber │
│ 250.0); │
│ ("name", JString "text1"); │
│ ("onMouseUp", │
│ JString "sun1.opacity = (sun1.opacity / 100) * 90;"); │
│ ("size", JNumber 36.0); ("style", JString "bold"); │
│ ("vOffset", JNumber 100.0)])); │
│ ("window", │
│ JObject │
│ (map │
│ [("height", JNumber 500.0); ("name", JString │
│ "main_window"); │
│ ("title", JString "Sample Konfabulator Widget"); │
│ ("width", JNumber 500.0)]))]))]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: widget │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: debug │
│ Value: JString "on" │
│ - Key: image │
│ Value: JObject │
│ (map │
│ [("alignment", JString "center"); ("hOffset", JNumber 250.0); │
│ ("name", JString "sun1"); ("src", JString "Images/Sun.png"); │
│ ("vOffset", JNumber 250.0)]) │
│ - Key: text │
│ Value: JObject │
│ (map │
│ [("alignment", JString "center"); ("data", JString "Click Here"); │
│ ("hOffset", JNumber 250.0); ("name", JString "text1"); │
│ ("onMouseUp", JString "sun1.opacity = (sun1.opacity / 100) * 90;"); │
│ ("size", JNumber 36.0); ("style", JString "bold"); │
│ ("vOffset", JNumber 100.0)]) │
│ - Key: window │
│ Value: JObject │
│ (map │
│ [("height", JNumber 500.0); ("name", JString "main_window"); │
│ ("title", JString "Sample Konfabulator Widget"); ("width", JNumber │
│ 500.0)]) │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let example3 = """{
"string": "Hello, \"World\"!",
"escapedString": "This string contains \\/\\\\\\b\\f\\n\\r\\t\\\"\\'",
"number": 42,
"scientificNumber": 3.14e-10,
"boolean": true,
"nullValue": null,
"array": [[1, 2, 3, 4, 5]],
"unicodeString1": "프리마",
"unicodeString2": "\u0048\u0065\u006C\u006C\u006F,
\u0022\u0057\u006F\u0072\u006C\u0064\u0022!",
"specialCharacters": "!@#$%^&*()",
"emptyArray": [[]],
"emptyObject": {},
"nestedArrays": [[[[1, 2, 3]], [[4, 5, 6]]]],
"object": {
"nestedString": "Nested Value",
"nestedNumber": 3.14,
"nestedBoolean": false,
"nestedNull": null,
"nestedArray": [["a", "b", "c"]],
"nestedObject": {
"nestedProperty": "Nested Object Value"
}
},
"nestedObjects": [[
{"name": "Alice", "age": 25},
{"name": "Bob", "age": 30}
]]
}"""
run jValue example3
|> parserEqual (
Success (
JObject (
Map.ofList [[
"string", JString @"Hello, ""World""!"
"escapedString", JString @"This string contains
\/\\\b\f\n\r\t\""\'"
"number", JNumber 42.0
"scientificNumber", JNumber 3.14e-10
"boolean", JBool true
"nullValue", JNull
"array", JArray [[
JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber
5.0
]]
"unicodeString1", JString "프리마"
"unicodeString2", JString @"Hello, ""World""!"
"specialCharacters", JString "!@#$%^&*()"
"emptyArray", JArray [[]]
"emptyObject", JObject Map.empty
"nestedArrays", JArray [[
JArray [[ JNumber 1.0; JNumber 2.0; JNumber 3.0 ]]
JArray [[ JNumber 4.0; JNumber 5.0; JNumber 6.0 ]]
]]
"object", JObject (
Map.ofList [[
"nestedString", JString "Nested Value"
"nestedNumber", JNumber 3.14
"nestedBoolean", JBool false
"nestedNull", JNull
"nestedArray", JArray [[JString "a"; JString "b";
JString "c"]]
"nestedObject", JObject (
Map.ofList [[
"nestedProperty", JString "Nested Object Value"
]]
)
]]
)
"nestedObjects", JArray [[
JObject (Map.ofList [[ "name", JString "Alice"; "age", JNumber
25.0 ]])
JObject (Map.ofList [[ "name", JString "Bob"; "age", JNumber
30.0 ]])
]]
]]
)
)
)
╭─[ 438.48ms - return value ]──────────────────────────────────────────────────╮
│ <details open="open" class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>Success<br/> (JObject<br/> (map<br/> │
│ [("array",<br/> JArray<br/> [JNumber 1.0; │
│ JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber 5.0]);<br/> │
│ ("boolean", JBool true); ("emptyArray", JArray []);<br/> │
│ ("emptyObject", JObject (map []));<br/> │
│ ("escapedString", JString "This │
│ s...</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr>< │
│ td>Item</td><td><details class="dni-treeview"><summary><span │
│ class="dni-code-hint"><code>(JObject<br/> (map<br/> [ │
│ ("array",<br/> JArray [JNumber 1.0; JNumber 2.0; JNumber │
│ 3.0; JNumber 4.0; J... │
╰──────────────────────────────────────────────────────────────────────────────╯
╭─[ 447.72ms - stdout ]────────────────────────────────────────────────────────╮
│ JObject │
│ (map │
│ [("array", │
│ JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0; JNumber 4.0; JNumber │
│ 5.0]); │
│ ("boolean", JBool true); ("emptyArray", JArray []); │
│ ("emptyObject", JObject (map [])); │
│ ("escapedString", JString "This string contains \/\\\b\f\n\r\t\"\'"); │
│ ("nestedArrays", │
│ JArray │
│ [JArray [JNumber 1.0; JNumber 2.0; JNumber 3.0]; │
│ JArray [JNumber 4.0; JNumber 5.0; JNumber 6.0]]); │
│ ("nestedObjects", │
│ JArray │
│ [JObject (map [("age", JNumber 25.0); ("name", JString "Alice")]); │
│ JObject (map [("age", JNumber 30.0); ("name", JString "Bob")])]); │
│ ("nullValue", JNull); ("number", JNumber 42.0); ...]) │
│ JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: array │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: 1 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 2 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 3 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 4 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Item: 5 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: boolean │
│ Value: JBool │
│ Item: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: True │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: emptyArray │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: emptyObject │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: escapedString │
│ Value: JString │
│ Item: This string contains \/\\\b\f\n\r\t\"\' │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: nestedArrays │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: [ JNumber 1.0, JNumber 2.0, JNumber 3.0 ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Item: [ JNumber 4.0, JNumber 5.0, JNumber 6.0 ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: nestedObjects │
│ Value: JArray │
│ Item: FSharpList<JValue> │
│ - Item: [ [age, JNumber 25.0], [name, JString "Alice"] ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Item: [ [age, JNumber 30.0], [name, JString "Bob"] ] │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: True │
│ - Key: nullValue │
│ Value: JValue │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: True │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: number │
│ Value: JNumber │
│ Item: 42 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: object │
│ Value: JObject │
│ Item: FSharpMap<String,JValue> │
│ - Key: nestedArray │
│ Value: JArray [JString "a"; JString "b"; JString "c"] │
│ - Key: nestedBoolean │
│ Value: JBool false │
│ - Key: nestedNull │
│ Value: JNull │
│ - Key: nestedNumber │
│ Value: JNumber 3.14 │
│ - Key: nestedObject │
│ Value: JObject (map [("nestedProperty", JString "Nested │
│ Object Value")]) │
│ - Key: nestedString │
│ Value: JString "Nested Value" │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ - Key: scientificNumber │
│ Value: JNumber │
│ Item: 3.14E-10 │
│ IsJString: False │
│ IsJNumber: True │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: specialCharacters │
│ Value: JString │
│ Item: !@#$%^&*() │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: string │
│ Value: JString │
│ Item: Hello, "World"! │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: unicodeString1 │
│ Value: JString │
│ Item: 프리마 │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ - Key: unicodeString2 │
│ Value: JString │
│ Item: Hello, "World"! │
│ IsJString: True │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: False │
│ IsJArray: False │
│ IsJString: False │
│ IsJNumber: False │
│ IsJBool: False │
│ IsJNull: False │
│ IsJObject: True │
│ IsJArray: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook JsonParser.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 545453 bytes to JsonParser.dib.html
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Parser (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : (unit -> System...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () () : bool =
let v0 : bool option = None
let mutable _v0 = v0
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v1 : bool = null |> unbox<bool>
v1
#endif
#if FABLE_COMPILER_RUST && WASM
let v2 : bool = null |> unbox<bool>
v2
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v3 : bool = null |> unbox<bool>
v3
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v4 : System.Runtime.InteropServices.OSPlatform =
System.Runtime.InteropServices.OSPlatform.Windows
let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v6 : bool = v...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
let US0_0 =
#if !INTERACTIVE
Trace.US0_0
#else
US0_0
#endif
let US0_1 =
#if !INTERACTIVE
Trace.US0_1
#else
US0_1
#endif
let US0_2 =
#if !INTERACTIVE
Trace.US0_2
#else
US0_2
#endif
let US0_3 =
#if !INTERACTIVE
Trace.US0_3
#else
US0_3
#endif
let US0_4 =
#if !INTERACTIVE
Trace.US0_4
#else
US0_4
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x ...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.US0_0
| Debug -> SpiralTrace.US0_1
| Info -> SpiralTrace.US0_2
| Warning -> SpiralTrace.US0_3
| Critical -> SpiralTrace.US0_4
let trace level fn g...
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### TextInput │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Position =
{
line : int
column : int
}
── fsharp ──────────────────────────────────────────────────────────────────────
let initialPos = { line = 0; column = 0 }
── fsharp ──────────────────────────────────────────────────────────────────────
let inline incrCol (pos : Position) =
{ pos with column = pos.column + 1 }
── fsharp ──────────────────────────────────────────────────────────────────────
let inline incrLine pos =
{ line = pos.line + 1; column = 0 }
── fsharp ──────────────────────────────────────────────────────────────────────
type InputState =
{
lines : string[[]]
position : Position
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline fromStr str =
{
lines =
if str |> String.IsNullOrEmpty
then [[||]]
else str |> SpiralSm.split_string [[| "\r\n"; "\n" |]]
position = initialPos
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
fromStr "" |> _assertEqual {
lines = [[||]]
position = { line = 0; column = 0 }
}
╭─[ 50.77ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
fromStr "Hello \n World" |> _assertEqual {
lines = [[| "Hello "; " World" |]]
position = { line = 0; column = 0 }
}
╭─[ 18.52ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ Hello , World ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline currentLine inputState =
let linePos = inputState.position.line
if linePos < inputState.lines.Length
then inputState.lines.[[linePos]]
else "end of file"
── fsharp ──────────────────────────────────────────────────────────────────────
let inline nextChar input =
let linePos = input.position.line
let colPos = input.position.column
if linePos >= input.lines.Length
then input, None
else
let currentLine = currentLine input
if colPos < currentLine.Length then
let char = currentLine.[[colPos]]
let newPos = incrCol input.position
let newState = { input with position = newPos }
newState, Some char
else
let char = '\n'
let newPos = incrLine input.position
let newState = { input with position = newPos }
newState, Some char
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let newInput, charOpt = fromStr "Hello World" |> nextChar
newInput |> _assertEqual {
lines = [[| "Hello World" |]]
position = { line = 0; column = 1 }
}
charOpt |> _assertEqual (Some 'H')
╭─[ 36.20ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ Hello World ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ FSharpOption<Char> │
│ Value: H │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let newInput, charOpt = fromStr "Hello\n\nWorld" |> nextChar
newInput |> _assertEqual {
lines = [[| "Hello"; ""; "World" |]]
position = { line = 0; column = 1 }
}
charOpt |> _assertEqual (Some 'H')
╭─[ 28.71ms - stdout ]─────────────────────────────────────────────────────────╮
│ InputState │
│ lines: [ Hello, , World ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ FSharpOption<Char> │
│ Value: H │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ### Parser │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type Input = InputState
type ParserLabel = string
type ParserError = string
type ParserPosition =
{
currentLine : string
line : int
column : int
}
type ParseResult<'a> =
| Success of 'a
| Failure of ParserLabel * ParserError * ParserPosition
type Parser<'a> =
{
label : ParserLabel
parseFn : Input -> ParseResult<'a * Input>
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline printResult result =
match result with
| Success (value, input) ->
printfn $"%A{value}"
| Failure (label, error, parserPos) ->
let errorLine = parserPos.currentLine
let colPos = parserPos.column
let linePos = parserPos.line
let failureCaret = $"{' ' |> string |> String.replicate colPos}^{error}"
printfn $"Line:%i{linePos} Col:%i{colPos} Error parsing
%s{label}\n%s{errorLine}\n%s{failureCaret}"
── fsharp ──────────────────────────────────────────────────────────────────────
let inline runOnInput parser input =
parser.parseFn input
── fsharp ──────────────────────────────────────────────────────────────────────
let inline run parser inputStr =
runOnInput parser (fromStr inputStr)
── fsharp ──────────────────────────────────────────────────────────────────────
let inline parserPositionFromInputState (inputState : Input) =
{
currentLine = currentLine inputState
line = inputState.position.line
column = inputState.position.column
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getLabel parser =
parser.label
── fsharp ──────────────────────────────────────────────────────────────────────
let inline setLabel parser newLabel =
{
label = newLabel
parseFn = fun input ->
match parser.parseFn input with
| Success s -> Success s
| Failure (oldLabel, err, pos) -> Failure (newLabel, err, pos)
}
── fsharp ──────────────────────────────────────────────────────────────────────
let (<?>) = setLabel
── fsharp ──────────────────────────────────────────────────────────────────────
let inline satisfy predicate label =
{
label = label
parseFn = fun input ->
let remainingInput, charOpt = nextChar input
match charOpt with
| None ->
let err = "No more input"
let pos = parserPositionFromInputState input
Failure (label, err, pos)
| Some first ->
if predicate first
then Success (first, remainingInput)
else
let err = $"Unexpected '%c{first}'"
let pos = parserPositionFromInputState input
Failure (label, err, pos)
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
runOnInput parser input |> _assertEqual (
Success (
'H',
{
lines = [[| "Hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 36.11ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - H │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "World"
let parser = satisfy (fun c -> c = 'H') "H"
runOnInput parser input |> _assertEqual (
Failure (
"H",
"Unexpected 'W'",
{
currentLine = "World"
line = 0
column = 0
}
)
)
╭─[ 30.18ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: H │
│ Item2: Unexpected 'W' │
│ Item3: ParserPosition │
│ currentLine: World │
│ line: 0 │
│ column: 0 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline bindP f p =
{
label = "unknown"
parseFn = fun input ->
match runOnInput p input with
| Failure (label, err, pos) -> Failure (label, err, pos)
| Success (value1, remainingInput) -> runOnInput (f value1)
remainingInput
}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (>>=) p f = bindP f p
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = parser >>= fun c -> satisfy (fun c -> c = 'e') "e"
runOnInput parser2 input |> _assertEqual (
Success (
'e',
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 45.29ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - e │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "World"
let parser = satisfy (fun c -> c = 'W') "W"
let parser2 = parser >>= fun c -> satisfy (fun c -> c = 'e') "e"
runOnInput parser2 input |> _assertEqual (
Failure (
"e",
"Unexpected 'o'",
{
currentLine = "World"
line = 0
column = 1
}
)
)
╭─[ 41.72ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: e │
│ Item2: Unexpected 'o' │
│ Item3: ParserPosition │
│ currentLine: World │
│ line: 0 │
│ column: 1 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline returnP x =
{
label = $"%A{x}"
parseFn = fun input -> Success (x, input)
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = returnP "Hello"
runOnInput parser input |> _assertEqual (
Success (
"Hello",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 0 }
}
)
)
╭─[ 33.56ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline mapP f =
bindP (f >> returnP)
── fsharp ──────────────────────────────────────────────────────────────────────
let (<!>) = mapP
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (|>>) x f = f <!> x
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = parser |>> string
runOnInput parser2 input |> _assertEqual (
Success (
"H",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 33.46ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - H │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline applyP fP xP =
fP >>=
fun f ->
xP >>=
fun x ->
returnP (f x)
── fsharp ──────────────────────────────────────────────────────────────────────
let (<*>) = applyP
── fsharp ──────────────────────────────────────────────────────────────────────
let inline lift2 f xP yP =
returnP f <*> xP <*> yP
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'e') "e"
let parser3 = lift2 (fun c1 c2 -> string c1 + string c2) parser parser2
runOnInput parser3 input |> _assertEqual (
Success (
"He",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 56.97ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - He │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline andThen p1 p2 =
p1 >>=
fun p1Result ->
p2 >>=
fun p2Result ->
returnP (p1Result, p2Result)
<?> $"{getLabel p1} andThen {getLabel p2}"
── fsharp ──────────────────────────────────────────────────────────────────────
let (.>>.) = andThen
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'e') "e"
let parser3 = parser .>>. parser2
runOnInput parser3 input |> _assertEqual (
Success (
('H', 'e'),
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 52.87ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - ( H, e ) │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline orElse p1 p2 =
{
label = $"{getLabel p1} orElse {getLabel p2}"
parseFn = fun input ->
match runOnInput p1 input with
| Success _ as result -> result
| Failure _ -> runOnInput p2 input
}
── fsharp ──────────────────────────────────────────────────────────────────────
let (<|>) = orElse
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'h') "h"
let parser3 = parser <|> parser2
runOnInput parser3 input |> _assertEqual (
Success (
'h',
{
lines = [[| "hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 45.58ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - h │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline choice listOfParsers =
listOfParsers |> List.reduce (<|>)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'h') "h"
let parser3 = choice [[ parser; parser2 ]]
runOnInput parser3 input |> _assertEqual (
Success (
'h',
{
lines = [[| "hello" |]]
position = { line = 0; column = 1 }
}
)
)
╭─[ 36.59ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - h │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 1 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let rec sequence parserList =
match parserList with
| [[]] -> returnP [[]]
| head :: tail -> (lift2 cons) head (sequence tail)
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = satisfy (fun c -> c = 'e') "e"
let parser3 = sequence [[ parser; parser2 ]]
runOnInput parser3 input |> _assertEqual (
Success (
[[ 'H'; 'e' ]],
{
lines = [[| "Hello" |]]
position = { line = 0; column = 2 }
}
)
)
╭─[ 59.41ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ H, e ] │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 2 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let rec parseZeroOrMore parser input =
match runOnInput parser input with
| Failure (_, _, _) ->
[[]], input
| Success (firstValue, inputAfterFirstParse) ->
let subsequentValues, remainingInput = parseZeroOrMore parser
inputAfterFirstParse
firstValue :: subsequentValues, remainingInput
── fsharp ──────────────────────────────────────────────────────────────────────
let inline many parser =
{
label = $"many {getLabel parser}"
parseFn = fun input -> Success (parseZeroOrMore parser input)
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = many parser
runOnInput parser2 input |> _assertEqual (
Success (
[[]],
{
lines = [[| "hello" |]]
position = { line = 0; column = 0 }
}
)
)
╭─[ 43.61ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ ] │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline many1 p =
p >>=
fun head ->
many p >>=
fun tail ->
returnP (head :: tail)
<?> $"many1 {getLabel p}"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = many1 parser
runOnInput parser2 input |> _assertEqual (
Failure (
"many1 H",
"Unexpected 'h'",
{
currentLine = "hello"
line = 0
column = 0
}
)
)
╭─[ 45.93ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: many1 H │
│ Item2: Unexpected 'h' │
│ Item3: ParserPosition │
│ currentLine: hello │
│ line: 0 │
│ column: 0 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline opt p =
let some = p |>> Some
let none = returnP None
(some <|> none)
<?> $"opt {getLabel p}"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "hello"
let parser = satisfy (fun c -> c = 'H') "H"
let parser2 = opt parser
runOnInput parser2 input |> _assertEqual (
Success (
None,
{
lines = [[| "hello" |]]
position = { line = 0; column = 0 }
}
)
)
╭─[ 40.10ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - <null> │
│ - InputState │
│ lines: [ hello ] │
│ position: Position │
│ line: 0 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (.>>) p1 p2 =
p1 .>>. p2
|> mapP fst
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (>>.) p1 p2 =
p1 .>>. p2
|> mapP snd
── fsharp ──────────────────────────────────────────────────────────────────────
let inline between p1 p2 p3 =
p1 >>. p2 .>> p3
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "[[Hello]]"
let parser =
between
(satisfy (fun c -> c = '[[') "[[")
(many (satisfy (fun c -> [[ 'a' .. 'z' ]] @ [[ 'A' .. 'Z' ]] |>
List.contains c) "letter"))
(satisfy (fun c -> c = ']]') "]]")
runOnInput parser input |> _assertEqual (
Success (
[[ 'H'; 'e'; 'l'; 'l'; 'o' ]],
{
lines = [[| "[[Hello]]" |]]
position = { line = 0; column = 7 }
}
)
)
╭─[ 115.20ms - stdout ]────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ H, e, l, l, o ] │
│ - InputState │
│ lines: [ [Hello] ] │
│ position: Position │
│ line: 0 │
│ column: 7 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sepBy1 p sep =
let sepThenP = sep >>. p
p .>>. many sepThenP
|>> fun (p, pList) -> p :: pList
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sepBy p sep =
sepBy1 p sep <|> returnP [[]]
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello,World"
let parser = sepBy (many (satisfy (fun c -> c <> ',') "not comma")) (satisfy
(fun c -> c = ',') "comma")
runOnInput parser input |> _assertEqual (
Success (
[[ [[ 'H'; 'e'; 'l'; 'l'; 'o' ]]; [[ 'W'; 'o'; 'r'; 'l'; 'd'; '\n' ]]
]],
{
lines = [[| "Hello,World" |]]
position = { line = 1; column = 0 }
}
)
)
╭─[ 75.38ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - FSharpList<FSharpList<Char>> │
│ [ H, e, l, l, o ] │
│ [ W, o, r, l, d, │
│ ] │
│ - InputState │
│ lines: [ Hello,World ] │
│ position: Position │
│ line: 1 │
│ column: 0 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline pchar charToMatch =
satisfy ((=) charToMatch) $"%c{charToMatch}"
── fsharp ──────────────────────────────────────────────────────────────────────
let inline anyOf listOfChars =
listOfChars
|> List.map pchar
|> choice
<?> $"anyOf %A{listOfChars}"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = anyOf [[ 'H'; 'e'; 'l'; 'o' ]] |> many
runOnInput parser input |> _assertEqual (
Success (
[[ 'H'; 'e'; 'l'; 'l'; 'o' ]],
{
lines = [[| "Hello" |]]
position = { line = 0; column = 5 }
}
)
)
╭─[ 41.59ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - [ H, e, l, l, o ] │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 5 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline charListToStr charList =
charList |> List.toArray |> String
── fsharp ──────────────────────────────────────────────────────────────────────
let inline manyChars cp =
many cp
|>> charListToStr
── fsharp ──────────────────────────────────────────────────────────────────────
let inline manyChars1 cp =
many1 cp
|>> charListToStr
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = manyChars1 (anyOf [[ 'H'; 'e'; 'l'; 'o' ]])
runOnInput parser input |> _assertEqual (
Success (
"Hello",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 5 }
}
)
)
╭─[ 64.47ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 5 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline pstring str =
str
|> List.ofSeq
|> List.map pchar
|> sequence
|> mapP charListToStr
<?> str
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = pstring "Hello"
runOnInput parser input |> _assertEqual (
Success (
"Hello",
{
lines = [[| "Hello" |]]
position = { line = 0; column = 5 }
}
)
)
╭─[ 46.13ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 5 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let whitespaceChar =
satisfy Char.IsWhiteSpace "whitespace"
── fsharp ──────────────────────────────────────────────────────────────────────
let spaces = many whitespaceChar
── fsharp ──────────────────────────────────────────────────────────────────────
let spaces1 = many1 whitespaceChar
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr " Hello"
let parser = spaces1 .>>. pstring "Hello"
runOnInput parser input |> _assertEqual (
Success (
([[ ' '; ' ' ]], "Hello"),
{
lines = [[| " Hello" |]]
position = { line = 0; column = 7 }
}
)
)
╭─[ 57.03ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - - [ , ] │
│ - Hello │
│ - InputState │
│ lines: [ Hello ] │
│ position: Position │
│ line: 0 │
│ column: 7 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let digitChar =
satisfy Char.IsDigit "digit"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let input = fromStr "Hello"
let parser = digitChar
runOnInput parser input |> _assertEqual (
Failure (
"digit",
"Unexpected 'H'",
{
currentLine = "Hello"
line = 0
column = 0
}
)
)
╭─[ 22.04ms - stdout ]─────────────────────────────────────────────────────────╮
│ Failure │
│ Item1: digit │
│ Item2: Unexpected 'H' │
│ Item3: ParserPosition │
│ currentLine: Hello │
│ line: 0 │
│ column: 0 │
│ IsSuccess: False │
│ IsFailure: True │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let pint =
let inline resultToInt (sign, digits) =
let i = int digits
match sign with
| Some ch -> -i
| None -> i
let digits = manyChars1 digitChar
opt (pchar '-') .>>. digits
|> mapP resultToInt
<?> "integer"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run pint "-123"
|> _assertEqual (
Success (
-123,
{
lines = [[| "-123" |]]
position = { line = 0; column = 4 }
}
)
)
╭─[ 34.41ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - -123 │
│ - InputState │
│ lines: [ -123 ] │
│ position: Position │
│ line: 0 │
│ column: 4 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let pfloat =
let inline resultToFloat (((sign, digits1), point), digits2) =
let fl = float $"{digits1}.{digits2}"
match sign with
| Some ch -> -fl
| None -> fl
let digits = manyChars1 digitChar
opt (pchar '-') .>>. digits .>>. pchar '.' .>>. digits
|> mapP resultToFloat
<?> "float"
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
run pfloat "-123.45"
|> _assertEqual (
Success (
-123.45,
{
lines = [[| "-123.45" |]]
position = { line = 0; column = 7 }
}
)
)
╭─[ 36.58ms - stdout ]─────────────────────────────────────────────────────────╮
│ Success │
│ Item: - -123.45 │
│ - InputState │
│ lines: [ -123.45 ] │
│ position: Position │
│ line: 0 │
│ column: 7 │
│ - IsSuccess: True │
│ IsFailure: False │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline createParserForwardedToRef<'a> () =
let mutable parserRef : Parser<'a> =
{
label = "unknown"
parseFn = fun _ -> failwith "unfixed forwarded parser"
}
let wrapperParser =
{ parserRef with
parseFn = fun input -> runOnInput parserRef input
}
wrapperParser, (fun v -> parserRef <- v)
── fsharp ──────────────────────────────────────────────────────────────────────
let inline (>>%) p x =
p
|>> fun _ -> x
[NbConvertApp] Converting notebook Parser.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 415273 bytes to Parser.dib.html
00:00:00 #1 [debug] writeDibCode / output: Fs / path: JsonParser.dib
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Parser.dib
00:00:00 #3 [debug] parseDibCode / output: Fs / file: Parser.dib
00:00:00 #3 [debug] parseDibCode / output: Fs / file: JsonParser.dib
In [ ]:
{ . "$ScriptDir/../apps/spiral/build.ps1" } | Invoke-Block
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Supervisor (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.cli
ent/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.common/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client.core/
7.0.0/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.Core.dll"
#r
@"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
rp.Json.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r @"../../../../../../../.nuget/packages/micros...
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : (unit -> System...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () () : bool =
let v0 : bool option = None
let mutable _v0 = v0
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v1 : bool = null |> unbox<bool>
v1
#endif
#if FABLE_COMPILER_RUST && WASM
let v2 : bool = null |> unbox<bool>
v2
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v3 : bool = null |> unbox<bool>
v3
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v4 : System.Runtime.InteropServices.OSPlatform =
System.Runtime.InteropServices.OSPlatform.Windows
let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v6 : bool = v...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
let US0_0 =
#if !INTERACTIVE
Trace.US0_0
#else
US0_0
#endif
let US0_1 =
#if !INTERACTIVE
Trace.US0_1
#else
US0_1
#endif
let US0_2 =
#if !INTERACTIVE
Trace.US0_2
#else
US0_2
#endif
let US0_3 =
#if !INTERACTIVE
Trace.US0_3
#else
US0_3
#endif
let US0_4 =
#if !INTERACTIVE
Trace.US0_4
#else
US0_4
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x ...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Threading.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Networking.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.US0_0
| Debug -> SpiralTrace.US0_1
| Info -> SpiralTrace.US0_2
| Warning -> SpiralTrace.US0_3
| Critical -> SpiralTrace.US0_4
let trace level fn g...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Threading =
open Common
/// ## newDisposableToken
let inline newDisposableToken (mergeToken:
System.Threading.CancellationToken option) =
let cts = new System.Threading.CancellationTokenSource ()
let cts =
match mergeToken with
| None -> cts
| Some mergeToken ->
System.Threading.CancellationTokenSource.CreateLinkedTokenSource
[[| cts.Token; mergeToken |]]
let disposable = new_disposable cts.Cancel
cts.Token, disposable
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.A...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Networking =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## testPortOpen
let inline testPortOpen port = async {
let! ct = Async.CancellationToken
use client = new System.Net.Sockets.TcpClient ()
try
do! client.ConnectAsync ("127.0.0.1", port, ct) |>
Async.awaitValueTaskUnit
return true
with ex ->
trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
SpiralSm.format_exception}") getLocals
return false
}
let inline testPortOpenTimeout timeout port = async {
let! result =
testPortOpen port
|> Async.runWithTimeoutAsync timeout
return
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitCommand
type private CommandParseStep =
| Start
| Path of quoted: bool
| Arguments
let splitCommand (command: string) =
let rec loop (path, args) chars step =
match chars, step with
| ('"' | '\'') :: tail, _ when path = "" -> loop (path, args) tail
(Path true)
| ('"' | '\'') :: tail, Path true -> loop (path, args) tail (Path
false)
| ' ' :: tail, Path true -> loop ($"{path} ", args) tail (Path true)
| ' ' :: tail, (Start | Path _) -> loop (path, args) tail Arguments
| char :: tail, Arguments -> loo...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Sys...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open SpiralFileSystem.Operators
open Microsoft.AspNetCore.SignalR.Client
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## sendJson │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sendJson (port : int) (json : string) = async {
let! portOpen = Networking.testPortOpen port
if portOpen then
try
let connection =
HubConnectionBuilder().WithUrl($"http://127.0.0.1:{port}").Build()
do! connection.StartAsync () |> Async.AwaitTask
let! result = connection.InvokeAsync<string>("ClientToServerMsg",
json) |> Async.AwaitTask
do! connection.StopAsync () |> Async.AwaitTask
trace Debug (fun () -> $"sendJson / port: {port} / json: {json} /
result.Length: {result |> Option.ofObj |> Option.map String.length}") getLocals
return Some result
with ex ->
trace Critical (fun () -> $"sendJson / port: {port} / json: {json} /
ex: {ex |> SpiralSm.format_exception}") getLocals
return None
else
trace Debug (fun () -> "sendJson / error: port not open") getLocals
return None
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## sendObj │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline sendObj port obj =
obj
|> System.Text.Json.JsonSerializer.Serialize
|> sendJson port
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## awaitCompiler │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
type VSCPos = {| line : int; character : int |}
type VSCRange = VSCPos * VSCPos
type RString = VSCRange * string
type TracedError = {| trace : string list; message : string |}
type ClientErrorsRes =
| FatalError of string
| TracedError of TracedError
| PackageErrors of {| uri : string; errors : RString list |}
| TokenizerErrors of {| uri : string; errors : RString list |}
| ParserErrors of {| uri : string; errors : RString list |}
| TypeErrors of {| uri : string; errors : RString list |}
── fsharp ──────────────────────────────────────────────────────────────────────
let inline awaitCompiler port cancellationToken = async {
let ct, disposable = cancellationToken |> Threading.newDisposableToken
let! ct = ct |> SpiralAsync.merge_cancellation_token_with_default_async
let compiler = MailboxProcessor.Start (fun inbox -> async {
let! availablePort = Networking.getAvailablePort (Some 60) port
if availablePort <> port then
inbox.Post (port, false)
else
let repositoryRoot = SpiralFileSystem.get_source_directory () |>
SpiralFileSystem.find_parent ".paket" false
let compilerPath =
repositoryRoot </> "deps/The-Spiral-Language/The Spiral Language
2/artifacts/bin/The Spiral Language 2/release"
|> System.IO.Path.GetFullPath
let dllPath = compilerPath </> "Spiral.dll"
let! exitCode, result =
Runtime.executeWithOptionsAsync
{
Command = $@"dotnet ""{dllPath}"" --port {availablePort}
--default-int i32 --default-float f64"
CancellationToken = Some ct
WorkingDirectory = None
OnLine = Some <| fun { Line = line } -> async {
if line |> SpiralSm.contains $"Server bound to:
http://localhost:{availablePort}" then
do! Networking.waitForPortAccess (Some 500) true
availablePort |> Async.Ignore
let rec loop retry = async {
let getLocals () = $"port: {availablePort} /
retry: {retry} / {getLocals ()}"
try
let pingObj = {| Ping = true |}
let! pingResult = pingObj |> sendObj
availablePort
trace Verbose (fun () -> $"awaitCompiler
/ Ping / result: {pingResult}") getLocals
with ex ->
trace Verbose (fun () -> $"awaitCompiler
/ Ping / ex: {ex |> SpiralSm.format_exception}") getLocals
do! Async.Sleep 10
do! loop (retry + 1)
}
do! loop 0
inbox.Post (availablePort, true)
}
}
trace Debug (fun () -> $"awaitCompiler / exitCode: {exitCode} /
result: {result}") getLocals
disposable.Dispose ()
}, ct)
let! serverPort, managed = compiler.Receive ()
let connection =
HubConnectionBuilder().WithUrl($"http://127.0.0.1:{serverPort}").Build ()
do! connection.StartAsync () |> Async.AwaitTask
let event = Event<_> ()
let disposable' = connection.On<string> ("ServerToClientMsg", event.Trigger)
let stream =
FSharp.Control.AsyncSeq.unfoldAsync
(fun () -> async {
let! msg = event.Publish |> Async.AwaitEvent
return Some (msg |>
FSharp.Json.Json.deserialize<ClientErrorsRes>, ())
})
()
let disposable' =
new_disposable (fun () ->
async {
disposable'.Dispose ()
do! connection.StopAsync () |> Async.AwaitTask
disposable.Dispose ()
if managed
then do! Networking.waitForPortAccess (Some 2000) false
serverPort |> Async.Ignore
}
|> Async.RunSynchronously
)
return
serverPort,
stream,
ct,
disposable'
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getFileUri │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getFileUri (path : string) =
let path =
if SpiralRuntime.is_windows () |> not
then path
else $"{path.[[0]] |> System.Char.ToLower}{path.[[1..]]}" |>
SpiralSm.replace "\\" "/"
$"file:///{path |> SpiralSm.trim_start [[| '/' |]]}"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getFilePathFromUri │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getFilePathFromUri uri =
match System.Uri.TryCreate (uri, System.UriKind.Absolute) with
| true, uri -> uri.AbsolutePath |> System.IO.Path.GetFullPath
| _ -> failwith "invalid uri"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getCompilerPort │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getCompilerPort () =
13805
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## serialize_obj │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let serializeObj obj =
obj
|> FSharp.Json.Json.serialize
|> SpiralSm.replace "\\\\" "\\"
|> SpiralSm.replace "\\r\\n" "\n"
|> SpiralSm.replace "\\n" "\n"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildFile timeout port cancellationToken path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let fileDir = fullPath |> System.IO.Path.GetDirectoryName
let fileName = fullPath |> System.IO.Path.GetFileNameWithoutExtension
let! code = fullPath |> SpiralFileSystem.read_all_text_async
let stream, disposable = fileDir |> FileSystem.watchDirectory (fun _ ->
false)
use _ = disposable
let token, disposable = Threading.newDisposableToken cancellationToken
use _ = disposable
let! serverPort, errors, ct, disposable = awaitCompiler port (Some token)
use _ = disposable
let fsxContentSeq =
stream
|> FSharp.Control.AsyncSeq.chooseAsync (function
| _, (FileSystem.FileSystemChange.Changed (path, _))
when (path |> System.IO.Path.GetFileName) = $"{fileName}.fsx"
->
fileDir </> path |>
SpiralFileSystem.read_all_text_retry_async
| _ -> None |> Async.init
)
|> FSharp.Control.AsyncSeq.map (fun content ->
Some (content |> SpiralSm.replace "\r\n" "\n"), None
)
let inline printErrorData (data : {| uri : string; errors : RString list |})
=
let fileName = data.uri |> System.IO.Path.GetFileName
let errors =
data.errors
|> List.map snd
|> SpiralSm.concat "\n"
$"{fileName}:\n{errors}"
let errorsSeq =
errors
|> FSharp.Control.AsyncSeq.choose (fun error ->
match error with
| FatalError message ->
Some (message, error)
| TracedError data ->
Some (data.message, error)
| PackageErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| TokenizerErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| ParserErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| TypeErrors data when data.errors |> List.isEmpty |> not ->
Some (data |> printErrorData, error)
| _ -> None
)
|> FSharp.Control.AsyncSeq.map (fun (message, error) ->
None, Some (message, error)
)
let timerSeq =
1000
|> FSharp.Control.AsyncSeq.intervalMs
|> FSharp.Control.AsyncSeq.map (fun _ -> None, None)
let outputSeq =
[[ fsxContentSeq; errorsSeq; timerSeq ]]
|> FSharp.Control.AsyncSeq.mergeAll
let! outputChild =
((None, [[]], 0), outputSeq)
||> FSharp.Control.AsyncSeq.scan (
fun (fsxContentResult, errors, typeErrorCount) (fsxContent, error)
->
match fsxContent, error with
| Some fsxContent, None -> Some fsxContent, errors,
typeErrorCount
| None, Some (_, FatalError "File main has a type error
somewhere in its path.") ->
fsxContentResult, errors, typeErrorCount + 1
| None, Some error -> fsxContentResult, error :: errors,
typeErrorCount
| None, None when typeErrorCount >= 1 ->
fsxContentResult, errors, typeErrorCount + 1
| _ -> fsxContentResult, errors, typeErrorCount
)
|> FSharp.Control.AsyncSeq.takeWhileInclusive (fun (fsxContent, errors,
typeErrorCount) ->
trace Debug (fun () -> $"buildFile / takeWhileInclusive /
fsxContent: {fsxContent |> Option.defaultValue System.String.Empty |>
SpiralSm.ellipsis 750} / errors: {errors |> serializeObj} / typeErrorCount:
{typeErrorCount}") getLocals
#if INTERACTIVE
let errorWait = 2
#else
let errorWait = 10
#endif
match fsxContent, errors with
| None, [[]] when typeErrorCount > errorWait -> false
| None, [[]] -> true
| _ -> false
)
|> FSharp.Control.AsyncSeq.tryLast
|> Async.withCancellationToken ct
|> Async.catch
|> Async.runWithTimeoutAsync timeout
|> Async.StartChild
let fileOpenObj = {| FileOpen = {| uri = fullPath |> getFileUri; spiText =
code |} |}
let! _fileOpenResult = fileOpenObj |> sendObj serverPort
do! Async.Sleep 60
let buildFileObj = {| BuildFile = {| uri = fullPath |> getFileUri; backend =
"Fsharp" |} |}
let! _buildFileResult = buildFileObj |> sendObj serverPort
return!
outputChild
|> Async.map (function
| Some (Ok (Some (message, errors, _))) ->
message, errors |> List.distinct |> List.rev
| Some (Error ex) ->
trace Critical (fun () -> $"buildFile / error: {ex |>
serializeObj}") getLocals
None, [[]]
| _ -> None, [[]]
)
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## persistCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline persistCode code = async {
let repositoryRoot = SpiralFileSystem.get_source_directory () |>
SpiralFileSystem.find_parent ".paket" false
let targetDir = repositoryRoot </> "target/polyglot/spiral_eval"
let packagesDir = targetDir </> "packages"
let hashHex = code |> SpiralCrypto.hash_text
let codeDir = packagesDir </> hashHex
codeDir |> System.IO.Directory.CreateDirectory |> ignore
let mainPath = codeDir </> "main.spi"
do! code |> SpiralFileSystem.write_all_text_exists mainPath
let spiprojPath = codeDir </> "package.spiproj"
let spiprojCode =
$"""packageDir: {repositoryRoot </> "lib"}
packages:
|core-
spiral-
modules:
main
"""
do! spiprojCode |> SpiralFileSystem.write_all_text_exists spiprojPath
return mainPath
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## buildCode │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline buildCode timeout cancellationToken code = async {
let! mainPath = persistCode code
let port = getCompilerPort ()
return! mainPath |> buildFile timeout port cancellationToken
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let buildCode timeout cancellationToken code = buildCode timeout
cancellationToken code
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl app () =
console.write_line "text"
1i32
inl main () =
app
|> dyn
|> ignore
"""
|> buildCode 15000 None
|> Async.runWithTimeout 15000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
Some """let rec closure0 () () : int32 =
let v0 : string = "text"
System.Console.WriteLine v0
1
let v0 : (unit -> int32) = closure0()
()
""",
[[]]
)
)
╭─[ 5.83s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:00 #2 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:00 #3 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:00 #4 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:00 #5 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:00 #6 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:00 #7 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:00 #8 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:01 #9 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:01 #10 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:01 #11 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:01 #12 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:01 #13 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:01 #14 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl app () =\n console.write_line │
│ \u0022text\u0022\n 1i32\n\ninl main () =\n app\n |\u003E dyn\n │
│ |\u003E │
│ ignore\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/pa │
│ ckages/0ad2ee90a0886647a7d9c334e1811a0c3ae5599125952e30eba9d5e3b57a56e0/main │
│ .spi"}} / result.Length: │
│ 00:00:01 #15 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/0ad2ee90a0886647a7d9c334e1811a0c3ae5599125952e │
│ 30eba9d5e3b57a56e0/main.spi"}} / result.Length: │
│ 00:00:01 #16 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0ad2ee90a0886647a7 │
│ d9c334e1811a0c3ae5599125952e30eba9d5e3b57a56e0\main.spi │
│ 00:00:02 #17 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:03 #18 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:03 #19 [debug] buildFile / takeWhileInclusive / fsxContent: let rec │
│ closure0 () () : int32 = │
│ let v0 : string = "text" │
│ System.Console.WriteLine v0 │
│ 1 │
│ let v0 : (unit -> int32) = closure0() │
│ () │
│ / errors: [] / typeErrorCount: 0 │
│ 00:00:05 #20 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:05 #21 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - FSharpOption<String> │
│ Value: let rec closure0 () () : int32 = │
│ let v0 : string = "text" │
│ System.Console.WriteLine v0 │
│ 1 │
│ let v0 : (unit -> int32) = closure0() │
│ () │
│ │
│ - [ ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> _assertEqual None
╭─[ 12.16s - stdout ]──────────────────────────────────────────────────────────╮
│ 00:00:05 #22 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:05 #23 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:06 #24 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:06 #25 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:06 #26 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:06 #27 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:06 #28 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:06 #29 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:06 #30 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:06 #31 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:06 #32 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:06 #33 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:06 #34 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:06 #35 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"","uri":"file:///c:/home/git/polyglot/target/polyglo │
│ t/spiral_eval/packages/e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca4959 │
│ 91b7852b855/main.spi"}} / result.Length: │
│ 00:00:06 #36 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b93 │
│ 4ca495991b7852b855/main.spi"}} / result.Length: │
│ 00:00:07 #37 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e3b0c44298fc1c149a │
│ fbf4c8996fb92427ae41e4649b934ca495991b7852b855\main.spi │
│ 00:00:07 #38 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:08 #39 [verbose] > Cannot find `main` in file main. │
│ 00:00:08 #40 [verbose] > Build skipped for │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e3b0c44298fc1c149a │
│ fbf4c8996fb92427ae41e4649b934ca495991b7852b855\main.spi │
│ 00:00:08 #41 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:09 #42 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:10 #43 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:11 #44 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:12 #45 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:13 #46 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:14 #47 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:15 #48 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:17 #49 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:17 #50 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ 00:00:17 #51 [debug] runWithTimeoutChildAsync / timeout: 10000 │
│ <null> │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"inl app () =
0i32
inl a = 1
inl main () =
app
|> dyn
|> ignore
"
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "main.spi:
Global inl/let statements should all return functions known at parse time." ]]
)
)
╭─[ 3.74s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:17 #52 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:17 #53 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:18 #54 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:18 #55 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:18 #56 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:18 #57 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:18 #58 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:18 #59 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:19 #60 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:19 #61 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:19 #62 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:19 #63 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:19 #64 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:19 #65 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl app () =\n 0i32\n\ninl a = 1\n\ninl main () │
│ =\n app\n |\u003E dyn\n |\u003E │
│ ignore\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/pa │
│ ckages/348c96764a8f66af39dd3ea799f5e487a51761b1e220b84a7038f033a002a481/main │
│ .spi"}} / result.Length: │
│ 00:00:19 #66 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/348c96764a8f66af39dd3ea799f5e487a51761b1e220b8 │
│ 4a7038f033a002a481/main.spi"}} / result.Length: │
│ 00:00:19 #67 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\348c96764a8f66af39 │
│ dd3ea799f5e487a51761b1e220b84a7038f033a002a481\main.spi │
│ 00:00:19 #68 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [ │
│ [ │
│ "main.spi: │
│ Global inl/let statements should all return functions known at parse time.", │
│ { │
│ "ParserErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 0, │
│ "line": 3 │
│ }, │
│ { │
│ "character": 9, │
│ "line": 3 │
│ } │
│ ], │
│ "Global inl/let statements should all return functions known at │
│ parse time." │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:\home\git\polyglot\target\polyglot\spiral_eval\packages\348c96764 │
│ a8f66af39dd3ea799f5e487a51761b1e220b84a7038f033a002a481\main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:19 #69 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:21 #70 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:21 #71 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Global inl/let statements should all return functions known at parse time. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () =
1i32 / 0i32
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "An attempt to divide by zero has been detected at compile time." ]]
)
)
╭─[ 5.32s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:21 #72 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:21 #73 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:22 #74 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:22 #75 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:22 #76 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:22 #77 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:22 #78 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:22 #79 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:22 #80 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:22 #81 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:22 #82 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:22 #83 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:22 #84 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:22 #85 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () =\n 1i32 / │
│ 0i32\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/pack │
│ ages/232df6d862bb0667133bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620/main.s │
│ pi"}} / result.Length: │
│ 00:00:22 #86 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/232df6d862bb0667133bf3fbc55c0b33286bde4b85cdb1 │
│ 7fe93dda9c433ec620/main.spi"}} / result.Length: │
│ 00:00:23 #87 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620\main.spi │
│ 00:00:23 #88 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:24 #89 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:24 #90 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [ │
│ [ │
│ "An attempt to divide by zero has been detected at compile time.", │
│ { │
│ "TracedError": { │
│ "message": "An attempt to divide by zero has been detected at │
│ compile time.", │
│ "trace": [ │
│ "Error trace on line: 1, column: 10 in module: │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620\main.spi. │
│ inl main () = │
│ ^ │
│ ", │
│ "Error trace on line: 2, column: 5 in module: │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\232df6d862bb066713 │
│ 3bf3fbc55c0b33286bde4b85cdb17fe93dda9c433ec620\main.spi. │
│ 1i32 / 0i32 │
│ ^ │
│ " │
│ ] │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:24 #91 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:26 #92 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:26 #93 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ An attempt to divide by zero has been detected at compile time. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () =
1 + ""
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[
"main.spi:
Constraint satisfaction error.
Got: string
Fails to satisfy: number"
]]
)
)
╭─[ 4.74s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:27 #94 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:27 #95 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:27 #96 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:27 #97 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:27 #98 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:27 #99 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:28 #100 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:28 #101 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:28 #102 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:28 #103 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:28 #104 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:28 #105 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:28 #106 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:28 #107 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () =\n 1 \u002B │
│ \u0022\u0022\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_e │
│ val/packages/2278923ce88b0e473e77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82 │
│ d/main.spi"}} / result.Length: │
│ 00:00:28 #108 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/2278923ce88b0e473e77d4d93e25afa6e5e4f5efe80398 │
│ 2e504cc198d4c4d82d/main.spi"}} / result.Length: │
│ 00:00:28 #109 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2278923ce88b0e473e │
│ 77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82d\main.spi │
│ 00:00:29 #110 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:29 #111 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 1 │
│ 00:00:29 #112 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [ │
│ [ │
│ "main.spi: │
│ Constraint satisfaction error. │
│ Got: string │
│ Fails to satisfy: number", │
│ { │
│ "TypeErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 8, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 10, │
│ "line": 1 │
│ } │
│ ], │
│ "Constraint satisfaction error. │
│ Got: string │
│ Fails to satisfy: number" │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2278923ce │
│ 88b0e473e77d4d93e25afa6e5e4f5efe803982e504cc198d4c4d82d\main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 1 │
│ 00:00:29 #113 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:31 #114 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:31 #115 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Constraint satisfaction error. │
│ Got: string │
│ Fails to satisfy: number ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () =
x + y
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[
"main.spi:
Unbound variable: x.
Unbound variable: y."
]]
)
)
╭─[ 4.67s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:31 #116 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:31 #117 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:32 #118 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:32 #119 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:32 #120 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:32 #121 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:32 #122 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:32 #123 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:33 #124 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:33 #125 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:33 #126 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:33 #127 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:33 #128 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:33 #129 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () =\n x \u002B │
│ y\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/package │
│ s/5d8d0e66f59ab13f3bfd8d88f05ce13771ab005b08581d99225216170ba6489b/main.spi" │
│ }} / result.Length: │
│ 00:00:33 #130 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/5d8d0e66f59ab13f3bfd8d88f05ce13771ab005b08581d │
│ 99225216170ba6489b/main.spi"}} / result.Length: │
│ 00:00:33 #131 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5d8d0e66f59ab13f3b │
│ fd8d88f05ce13771ab005b08581d99225216170ba6489b\main.spi │
│ 00:00:34 #132 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:34 #133 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 1 │
│ 00:00:34 #134 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [ │
│ [ │
│ "main.spi: │
│ Unbound variable: x. │
│ Unbound variable: y.", │
│ { │
│ "TypeErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 4, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 5, │
│ "line": 1 │
│ } │
│ ], │
│ "Unbound variable: x." │
│ ], │
│ [ │
│ [ │
│ { │
│ "character": 8, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 9, │
│ "line": 1 │
│ } │
│ ], │
│ "Unbound variable: y." │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5d8d0e66f │
│ 59ab13f3bfd8d88f05ce13771ab005b08581d99225216170ba6489b\main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 1 │
│ 00:00:34 #135 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:36 #136 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:36 #137 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Unbound variable: x. │
│ Unbound variable: y. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""union a =
| B
| c
inl main () =
()
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "main.spi:
Expected: uppercase variable" ]]
)
)
╭─[ 3.75s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:36 #138 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:36 #139 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:37 #140 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:37 #141 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:37 #142 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:37 #143 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:37 #144 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:37 #145 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:37 #146 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:37 #147 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:37 #148 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:37 #149 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:37 #150 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:37 #151 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"union a =\n | B\n | c\n\ninl main () =\n │
│ ()\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packag │
│ es/e711a7af82ac8ecfc9df9208c576e0745b2b4e6fbb3a46a168b4c4f56921eb3a/main.spi │
│ "}} / result.Length: │
│ 00:00:37 #152 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/e711a7af82ac8ecfc9df9208c576e0745b2b4e6fbb3a46 │
│ a168b4c4f56921eb3a/main.spi"}} / result.Length: │
│ 00:00:38 #153 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e711a7af82ac8ecfc9 │
│ df9208c576e0745b2b4e6fbb3a46a168b4c4f56921eb3a\main.spi │
│ 00:00:38 #154 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [ │
│ [ │
│ "main.spi: │
│ Expected: uppercase variable", │
│ { │
│ "ParserErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 6, │
│ "line": 2 │
│ }, │
│ { │
│ "character": 7, │
│ "line": 2 │
│ } │
│ ], │
│ "Expected: uppercase variable" │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e711a7af8 │
│ 2ac8ecfc9df9208c576e0745b2b4e6fbb3a46a168b4c4f56921eb3a\main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:38 #155 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:40 #156 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:40 #157 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Expected: uppercase variable ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
/// abc
inl main () =
()
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "main.spi:
Expected: whitespace" ]]
)
)
╭─[ 3.55s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:40 #158 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:40 #159 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:40 #160 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:40 #161 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:40 #162 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:41 #163 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:41 #164 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:41 #165 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:41 #166 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:41 #167 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:41 #168 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:41 #169 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:41 #170 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:41 #171 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\n/// abc\ninl main () =\n │
│ ()\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packag │
│ es/e83597a8ca85933ec91ea140faca562c6789f98f5348e641a1c44c73de804631/main.spi │
│ "}} / result.Length: │
│ 00:00:41 #172 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/e83597a8ca85933ec91ea140faca562c6789f98f5348e6 │
│ 41a1c44c73de804631/main.spi"}} / result.Length: │
│ 00:00:41 #173 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [ │
│ [ │
│ "main.spi: │
│ Expected: whitespace", │
│ { │
│ "TokenizerErrors": { │
│ "errors": [ │
│ [ │
│ [ │
│ { │
│ "character": 2, │
│ "line": 1 │
│ }, │
│ { │
│ "character": 3, │
│ "line": 1 │
│ } │
│ ], │
│ "Expected: whitespace" │
│ ] │
│ ], │
│ "uri": │
│ "file:///c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e83597a8c │
│ a85933ec91ea140faca562c6789f98f5348e641a1c44c73de804631\main.spi" │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:41 #174 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:43 #175 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:43 #176 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ main.spi: │
│ Expected: whitespace ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl main () =
real
inl real_unbox forall a. (obj : a) : a =
typecase obj with
| _ => obj
real_unbox ()
()
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "Cannot apply a forall with a term." ]]
)
)
╭─[ 4.97s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:44 #177 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:44 #178 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:44 #179 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:44 #180 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:44 #181 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:44 #182 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:44 #183 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:44 #184 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:45 #185 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:45 #186 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:45 #187 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:45 #188 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:45 #189 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:45 #190 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl main () =\n real\n inl real_unbox │
│ forall a. (obj : a) : a =\n typecase obj with\n | _ │
│ =\u003E obj\n real_unbox ()\n │
│ ()\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packag │
│ es/a2aa158e3d25dde470018a814a2045bf437bae1760d98ab33335c72b076d4d50/main.spi │
│ "}} / result.Length: │
│ 00:00:45 #191 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/a2aa158e3d25dde470018a814a2045bf437bae1760d98a │
│ b33335c72b076d4d50/main.spi"}} / result.Length: │
│ 00:00:45 #192 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50\main.spi │
│ 00:00:46 #193 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:46 #194 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [ │
│ [ │
│ "Cannot apply a forall with a term.", │
│ { │
│ "TracedError": { │
│ "message": "Cannot apply a forall with a term.", │
│ "trace": [ │
│ "Error trace on line: 2, column: 10 in module: │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50\main.spi. │
│ inl main () = │
│ ^ │
│ ", │
│ "Error trace on line: 4, column: 9 in module: │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50\main.spi. │
│ inl real_unbox forall a. (obj : a) : a = │
│ ^ │
│ ", │
│ "Error trace on line: 7, column: 9 in module: │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a2aa158e3d25dde470 │
│ 018a814a2045bf437bae1760d98ab33335c72b076d4d50\main.spi. │
│ real_unbox () │
│ ^ │
│ " │
│ ] │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:46 #195 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:48 #196 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:48 #197 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ Cannot apply a forall with a term. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl main () =
real
inl real_unbox forall a. (obj : a) : a =
typecase obj with
| _ => obj
real_unbox `i32 1
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
None,
[[ "The main function should not have a forall." ]]
)
)
╭─[ 4.80s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:49 #198 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:49 #199 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:49 #200 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:49 #201 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:49 #202 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:49 #203 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:49 #204 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:49 #205 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:50 #206 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:50 #207 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:50 #208 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:50 #209 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:50 #210 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:50 #211 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl main () =\n real\n inl real_unbox │
│ forall a. (obj : a) : a =\n typecase obj with\n | _ │
│ =\u003E obj\n real_unbox \u0060i32 │
│ 1\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/package │
│ s/84eca3865a0cfc1afd28f49a38d395e9b89071527b4bda759de7cfb116593b3e/main.spi" │
│ }} / result.Length: │
│ 00:00:50 #212 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/84eca3865a0cfc1afd28f49a38d395e9b89071527b4bda │
│ 759de7cfb116593b3e/main.spi"}} / result.Length: │
│ 00:00:50 #213 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\84eca3865a0cfc1afd │
│ 28f49a38d395e9b89071527b4bda759de7cfb116593b3e\main.spi │
│ 00:00:51 #214 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:51 #215 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [ │
│ [ │
│ "The main function should not have a forall.", │
│ { │
│ "TracedError": { │
│ "message": "The main function should not have a forall.", │
│ "trace": [] │
│ } │
│ } │
│ ] │
│ ] / typeErrorCount: 0 │
│ 00:00:51 #216 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:53 #217 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:53 #218 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - <null> │
│ - [ The main function should not have a forall. ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl init_series start end inc =
inl total : f64 = conv ((end - start) / inc) + 1
listm.init total (conv >> (*) inc >> (+) start) : list f64
type integration = (f64 -> f64) -> f64 -> f64 -> f64
inl integral dt : integration =
fun f a b =>
init_series (a + dt / 2) (b - dt / 2) dt
|> listm.map (f >> (*) dt)
|> listm.fold (+) 0
inl main () =
integral 0.1 (fun x => x ** 2) 0 1
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
Some "0.3325000000000001\n",
[[]]
)
)
╭─[ 5.12s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:53 #219 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:53 #220 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:54 #221 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:54 #222 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:54 #223 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:54 #224 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:54 #225 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:54 #226 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:55 #227 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:55 #228 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:55 #229 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:55 #230 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:55 #231 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:55 #232 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │
│ f64 = conv ((end - start) / inc) \u002B 1\n listm.init total (conv │
│ \u003E\u003E (*) inc \u003E\u003E (\u002B) start) : list f64\n\ntype │
│ integration = (f64 -\u003E f64) -\u003E f64 -\u003E f64 -\u003E f64\n\ninl │
│ integral dt : integration =\n fun f a b =\u003E\n init_series (a │
│ \u002B dt / 2) (b - dt / 2) dt\n |\u003E listm.map (f \u003E\u003E │
│ (*) dt)\n |\u003E listm.fold (\u002B) 0\n\ninl main () =\n │
│ integral 0.1 (fun x =\u003E x ** 2) 0 │
│ 1\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/package │
│ s/c0932fdbf60389c2ae8b78bb5443994f2d0ecdc6c6e7dfddf408cecaa050d294/main.spi" │
│ }} / result.Length: │
│ 00:00:55 #233 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/c0932fdbf60389c2ae8b78bb5443994f2d0ecdc6c6e7df │
│ ddf408cecaa050d294/main.spi"}} / result.Length: │
│ 00:00:55 #234 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c0932fdbf60389c2ae │
│ 8b78bb5443994f2d0ecdc6c6e7dfddf408cecaa050d294\main.spi │
│ 00:00:56 #235 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:00:56 #236 [debug] buildFile / takeWhileInclusive / fsxContent: │
│ 0.3325000000000001 │
│ / errors: [] / typeErrorCount: 0 │
│ 00:00:56 #237 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:58 #238 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:00:58 #239 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - FSharpOption<String> │
│ Value: 0.3325000000000001 │
│ │
│ - [ ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""
inl init_series start end inc =
inl total : f64 = conv ((end - start) / inc) + 1
listm.init total (conv >> (*) inc >> (+) start) : list f64
type integration = (f64 -> f64) -> f64 -> f64 -> f64
inl integral dt : integration =
fun f a b =>
init_series (a + dt / 2) (b - dt / 2) dt
|> listm.map (f >> (*) dt)
|> listm.fold (+) 0
inl main () =
integral 0.01 (fun x => x ** 2) 0 1
"""
|> buildCode 10000 None
|> Async.runWithTimeout 10000
|> Option.map (fun (fsxContent, errors) -> fsxContent, errors |> List.map fst)
|> _assertEqual (
Some (
Some "0.33332500000000004\n",
[[]]
)
)
// |> _assertEqual None
// |> fun x -> printfn $"{x.ToDisplayString ()}"
╭─[ 5.00s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:59 #240 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:59 #241 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:buildCode@3-592> } │
│ 00:00:59 #242 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:00:59 #243 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:59 #244 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:59 #245 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:01:00 #246 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:01:00 #247 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:01:00 #248 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:01:00 #249 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:01:00 #250 [verbose] > Server bound to: http://localhost:13805 │
│ 00:01:00 #251 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:01:00 #252 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:01:00 #253 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"\ninl init_series start end inc =\n inl total : │
│ f64 = conv ((end - start) / inc) \u002B 1\n listm.init total (conv │
│ \u003E\u003E (*) inc \u003E\u003E (\u002B) start) : list f64\n\ntype │
│ integration = (f64 -\u003E f64) -\u003E f64 -\u003E f64 -\u003E f64\n\ninl │
│ integral dt : integration =\n fun f a b =\u003E\n init_series (a │
│ \u002B dt / 2) (b - dt / 2) dt\n |\u003E listm.map (f \u003E\u003E │
│ (*) dt)\n |\u003E listm.fold (\u002B) 0\n\ninl main () =\n │
│ integral 0.01 (fun x =\u003E x ** 2) 0 │
│ 1\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/package │
│ s/355c36b6d259fe6b1c7527aa9b475ca37914ad348c4a239687383dcd0daeed2c/main.spi" │
│ }} / result.Length: │
│ 00:01:00 #254 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/target/ │
│ polyglot/spiral_eval/packages/355c36b6d259fe6b1c7527aa9b475ca37914ad348c4a23 │
│ 9687383dcd0daeed2c/main.spi"}} / result.Length: │
│ 00:01:00 #255 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\355c36b6d259fe6b1c │
│ 7527aa9b475ca37914ad348c4a239687383dcd0daeed2c\main.spi │
│ 00:01:01 #256 [debug] buildFile / takeWhileInclusive / fsxContent: / │
│ errors: [] / typeErrorCount: 0 │
│ 00:01:01 #257 [debug] buildFile / takeWhileInclusive / fsxContent: │
│ 0.33332500000000004 │
│ / errors: [] / typeErrorCount: 0 │
│ 00:01:01 #258 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:01:04 #259 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ 00:01:04 #260 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ FSharpOption<Tuple<FSharpOption<String>,FSharpList<String>>> │
│ Value: - FSharpOption<String> │
│ Value: 0.33332500000000004 │
│ │
│ - [ ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getFileTokenRange │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getFileTokenRange port cancellationToken path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let! code = fullPath |> SpiralFileSystem.read_all_text_async
let lines = code |> SpiralSm.split "\n"
let token, disposable = Threading.newDisposableToken cancellationToken
use _ = disposable
let! serverPort, _errors, ct, disposable =
match port with
| Some port -> awaitCompiler port (Some token)
| None -> (getCompilerPort (), FSharp.Control.AsyncSeq.empty, token,
new_disposable id) |> Async.init
use _ = disposable
let fileOpenObj = {| FileOpen = {| uri = fullPath |> getFileUri; spiText =
code |} |}
let! _fileOpenResult = fileOpenObj |> sendObj serverPort
let fileTokenRangeObj =
{|
FileTokenRange =
{|
uri = fullPath |> getFileUri
range =
[[|
{| line = 0; character = 0 |}
{| line = lines.Length - 1; character =
lines.[[lines.Length - 1]].Length |}
|]]
|}
|}
let! fileTokenRangeResult =
fileTokenRangeObj
|> sendObj serverPort
|> Async.withCancellationToken ct
return fileTokenRangeResult |> Option.map FSharp.Json.Json.deserialize<int
array>
}
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## getCodeTokenRange │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline getCodeTokenRange cancellationToken code = async {
let! mainPath = persistCode code
let port = getCompilerPort ()
return! mainPath |> getFileTokenRange (Some port) cancellationToken
}
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () = ()"""
|> getCodeTokenRange None
|> Async.runWithTimeout 10000
|> Option.flatten
|> _assertEqual (Some [[| 0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1;
8; 0; 0; 2; 1; 4; 0; 0;
2; 1; 8; 0; 0; 1; 1; 8; 0 |]])
╭─[ 6.40s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:01:12 #261 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:01:12 #262 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:it@4-233> } │
│ 00:01:12 #263 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:01:12 #264 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:01:12 #265 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:01:12 #266 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:01:12 #267 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:01:12 #268 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:01:13 #269 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:01:13 #270 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:01:13 #271 [verbose] > Server bound to: http://localhost:13805 │
│ 00:01:13 #272 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () = │
│ ()","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages │
│ /fb6c8d45c45c5bed6706c564f1573e80b77a3923967ce83cb69737ce2ce5040c/main.spi"} │
│ } / result.Length: │
│ 00:01:13 #273 [debug] sendJson / port: 13805 / json: │
│ {"FileTokenRange":{"range":[ │
│ {"character":0,"line":0},{"character":16,"line":0}],"uri":"file:///c:/home/g │
│ it/polyglot/target/polyglot/spiral_eval/packages/fb6c8d45c45c5bed6706c564f15 │
│ 73e80b77a3923967ce83cb69737ce2ce5040c/main.spi"}} / result.Length: Some(213) │
│ 00:01:15 #274 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ FSharpOption<Int32[]> │
│ Value: [ 0, 0, 3, 7, 0, 0, 4, 4, 0, 0, 0, 5, 1, 8, 0, 0, 1, 1, 8, 0, │
│ 0, 2, 1, 4, 0, 0, 2, 1, 8, 0, 0, 1, 1, 8, 0 ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
"""inl main () = 1i32"""
|> getCodeTokenRange None
|> Async.runWithTimeout 10000
|> Option.flatten
|> _assertEqual (Some [[| 0; 0; 3; 7; 0; 0; 4; 4; 0; 0; 0; 5; 1; 8; 0; 0; 1; 1;
8; 0; 0; 2; 1; 4; 0; 0;
2; 1; 3; 0; 0; 1; 3; 12; 0 |]])
╭─[ 6.53s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:01:18 #275 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:01:18 #276 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:it@4-594> } │
│ 00:01:18 #277 [verbose] > pwd: C:\home\git\polyglot\apps\spiral │
│ 00:01:18 #278 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:01:18 #279 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:01:19 #280 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:01:19 #281 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:01:19 #282 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:01:19 #283 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:01:19 #284 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:01:19 #285 [verbose] > Server bound to: http://localhost:13805 │
│ 00:01:19 #286 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"inl main () = │
│ 1i32","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packag │
│ es/9df95a2f18642bd8d2f682f6edb6cef45c30ca9c616b33ebb0e5577eed14871c/main.spi │
│ "}} / result.Length: │
│ 00:01:20 #287 [debug] sendJson / port: 13805 / json: │
│ {"FileTokenRange":{"range":[ │
│ {"character":0,"line":0},{"character":18,"line":0}],"uri":"file:///c:/home/g │
│ it/polyglot/target/polyglot/spiral_eval/packages/9df95a2f18642bd8d2f682f6edb │
│ 6cef45c30ca9c616b33ebb0e5577eed14871c/main.spi"}} / result.Length: Some(214) │
│ 00:01:22 #288 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ FSharpOption<Int32[]> │
│ Value: [ 0, 0, 3, 7, 0, 0, 4, 4, 0, 0, 0, 5, 1, 8, 0, 0, 1, 1, 8, 0, │
│ 0, 2, 1, 4, 0, 0, 2, 1, 3, 0, 0, 1, 3, 12, 0 ] │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| Build_File of string * string
| File_Token_Range of string * string
| Execute_Command of string
| [[<Argu.ArguAttributes.Unique>]] Timeout of int
| [[<Argu.ArguAttributes.Unique>]] Port of int
| [[<Argu.ArguAttributes.Unique>]] Parallel
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| Build_File _ -> nameof Build_File
| File_Token_Range _ -> nameof File_Token_Range
| Execute_Command _ -> nameof Execute_Command
| Timeout _ -> nameof Timeout
| Port _ -> nameof Port
| Parallel -> nameof Parallel
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 116.73ms - return value ]──────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] [--build-file <string> <string>] │
│ [--file-token-range <string> <string>] │
│ [--execute-command <string>] [--timeout <int>] [--port │
│ <int>] │
│ [--parallel] │
│ │
│ OPTIONS: │
│ │
│ --build-file <string> <string> │
│ Build_File │
│ --file-token-range <string> <string> │
│ File_Token_Range │
│ --execute-command <string> │
│ Execute_Command │
│ --timeout <int> Timeout │
│ --port <int> Port │
│ --parallel Parallel │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let buildFileActions =
argsMap
|> Map.tryFind (nameof Arguments.Build_File)
|> Option.defaultValue [[]]
|> List.choose (function
| Arguments.Build_File (inputPath, outputPath) -> Some (inputPath,
outputPath)
| _ -> None
)
let fileTokenRangeActions =
argsMap
|> Map.tryFind (nameof Arguments.File_Token_Range)
|> Option.defaultValue [[]]
|> List.choose (function
| Arguments.File_Token_Range (inputPath, outputPath) -> Some
(inputPath, outputPath)
| _ -> None
)
let executeCommandActions =
argsMap
|> Map.tryFind (nameof Arguments.Execute_Command)
|> Option.defaultValue [[]]
|> List.choose (function
| Arguments.Execute_Command command -> Some command
| _ -> None
)
let timeout =
match argsMap |> Map.tryFind (nameof Arguments.Timeout) with
| Some [[ Arguments.Timeout timeout ]] -> timeout
| _ -> 60000 * 60
let port =
match argsMap |> Map.tryFind (nameof Arguments.Port) with
| Some [[ Arguments.Port port ]] -> Some port
| _ -> None
let isParallel = argsMap |> Map.containsKey (nameof Arguments.Parallel)
async {
let port = port |> Option.defaultWith getCompilerPort
let localToken, disposable = Threading.newDisposableToken None
let! serverPort, _errors, compilerToken, disposable = awaitCompiler port
(Some localToken)
use _ = disposable
let buildFileAsync =
buildFileActions
|> List.map (fun (inputPath, outputPath) -> async {
let! outputCode, errors = inputPath |> buildFile timeout
serverPort None
errors
|> List.map snd
|> List.iter (fun error ->
trace Critical (fun () -> $"main / error: {error |>
serializeObj}") getLocals
)
match outputCode with
| Some outputCode ->
do! outputCode |> SpiralFileSystem.write_all_text_async
outputPath
return 0
| None ->
return 1
})
let fileTokenRangeAsync =
fileTokenRangeActions
|> List.map (fun (inputPath, outputPath) -> async {
let! tokenRange = inputPath |> getFileTokenRange (Some
serverPort) None
match tokenRange with
| Some tokenRange ->
do! tokenRange |> FSharp.Json.Json.serialize |>
SpiralFileSystem.write_all_text_async outputPath
return 0
| None ->
return 1
})
let executeCommandAsync =
executeCommandActions
|> List.map (fun command -> async {
let! exitCode, result =
Runtime.executeWithOptionsAsync
{
Command = command
CancellationToken = Some compilerToken
WorkingDirectory = None
OnLine = None
}
trace Debug (fun () -> $"main / executeCommand / exitCode:
{exitCode}") getLocals
return exitCode
})
return!
[[| buildFileAsync; fileTokenRangeAsync; executeCommandAsync |]]
|> Seq.collect id
|> fun x ->
if isParallel
then Async.Parallel (x, float System.Environment.ProcessorCount
* 0.75 |> ceil |> int)
else Async.Sequential x
|> Async.map Array.sum
}
|> Async.runWithTimeout timeout
|> Option.defaultValue 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 66.94ms - return value ]───────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook Supervisor.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 458217 bytes to Supervisor.dib.html
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Supervisor.dib
00:00:00 #2 [debug] parseDibCode / output: Fs / file: Supervisor.dib
00:00:00 #1 [debug] persistCodeProject / packages: [Argu; FSharp.Control.AsyncSeq; FSharp.Json; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: Supervisor / code.Length: 20036
00:00:00 #2 [debug] buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj
00:00:00 #3 [debug] executeAsync / options: { Command =
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\Supervisor\Supervisor.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\spiral\dist" --runtime linux-x64"
WorkingDirectory =
Some "C:\home\git\polyglot\target\polyglot\builder\Supervisor"
CancellationToken = None
OnLine = None }
00:00:00 #4 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:01 #5 [verbose] > Determining projects to restore...
00:00:01 #6 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj (in 540 ms).
00:00:02 #7 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj]
00:00:16 #8 [verbose] > Supervisor -> C:\home\git\polyglot\target\polyglot\builder\Supervisor\bin\Release\net9.0\linux-x64\Supervisor.dll
00:00:17 #9 [verbose] > Supervisor -> C:\home\git\polyglot\apps\spiral\dist\
00:00:17 #10 [debug] executeAsync / exitCode: 0 / output.Length: 715
00:00:17 #11 [debug] executeAsync / options: { Command =
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\Supervisor\Supervisor.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\spiral\dist" --runtime win-x64"
WorkingDirectory =
Some "C:\home\git\polyglot\target\polyglot\builder\Supervisor"
CancellationToken = None
OnLine = None }
00:00:17 #12 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:18 #13 [verbose] > Determining projects to restore...
00:00:19 #14 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj (in 482 ms).
00:00:19 #15 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\Supervisor\Supervisor.fsproj]
00:00:35 #16 [verbose] > Supervisor -> C:\home\git\polyglot\target\polyglot\builder\Supervisor\bin\Release\net9.0\win-x64\Supervisor.dll
00:00:44 #17 [verbose] > Supervisor -> C:\home\git\polyglot\apps\spiral\dist\
00:00:44 #18 [debug] executeAsync / exitCode: 0 / output.Length: 713
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # Eval (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : (unit -> System...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () () : bool =
let v0 : bool option = None
let mutable _v0 = v0
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v1 : bool = null |> unbox<bool>
v1
#endif
#if FABLE_COMPILER_RUST && WASM
let v2 : bool = null |> unbox<bool>
v2
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v3 : bool = null |> unbox<bool>
v3
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v4 : System.Runtime.InteropServices.OSPlatform =
System.Runtime.InteropServices.OSPlatform.Windows
let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v6 : bool = v...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
let US0_0 =
#if !INTERACTIVE
Trace.US0_0
#else
US0_0
#endif
let US0_1 =
#if !INTERACTIVE
Trace.US0_1
#else
US0_1
#endif
let US0_2 =
#if !INTERACTIVE
Trace.US0_2
#else
US0_2
#endif
let US0_3 =
#if !INTERACTIVE
Trace.US0_3
#else
US0_3
#endif
let US0_4 =
#if !INTERACTIVE
Trace.US0_4
#else
US0_4
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x ...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.com
mon/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.http.connections.cli
ent/7.0.0/lib/net7.0/Microsoft.AspNetCore.Http.Connections.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.common/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Common.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client/7.0.0
/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.dll"
#r
@"../../../../../../../.nuget/packages/microsoft.aspnetcore.signalr.client.core/
7.0.0/lib/net7.0/Microsoft.AspNetCore.SignalR.Client.Core.dll"
#r
@"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
rp.Json.dll"
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Threading.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Networking.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
#!import ../../apps/builder/Builder.fs
#!import ../../apps/spiral/Supervisor.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.US0_0
| Debug -> SpiralTrace.US0_1
| Info -> SpiralTrace.US0_2
| Warning -> SpiralTrace.US0_3
| Critical -> SpiralTrace.US0_4
let trace level fn g...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Threading =
open Common
/// ## newDisposableToken
let inline newDisposableToken (mergeToken:
System.Threading.CancellationToken option) =
let cts = new System.Threading.CancellationTokenSource ()
let cts =
match mergeToken with
| None -> cts
| Some mergeToken ->
System.Threading.CancellationTokenSource.CreateLinkedTokenSource
[[| cts.Token; mergeToken |]]
let disposable = new_disposable cts.Cancel
cts.Token, disposable
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.A...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Networking =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## testPortOpen
let inline testPortOpen port = async {
let! ct = Async.CancellationToken
use client = new System.Net.Sockets.TcpClient ()
try
do! client.ConnectAsync ("127.0.0.1", port, ct) |>
Async.awaitValueTaskUnit
return true
with ex ->
trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
SpiralSm.format_exception}") getLocals
return false
}
let inline testPortOpenTimeout timeout port = async {
let! result =
testPortOpen port
|> Async.runWithTimeoutAsync timeout
return
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitCommand
type private CommandParseStep =
| Start
| Path of quoted: bool
| Arguments
let splitCommand (command: string) =
let rec loop (path, args) chars step =
match chars, step with
| ('"' | '\'') :: tail, _ when path = "" -> loop (path, args) tail
(Path true)
| ('"' | '\'') :: tail, Path true -> loop (path, args) tail (Path
false)
| ' ' :: tail, Path true -> loop ($"{path} ", args) tail (Path true)
| ' ' :: tail, (Start | Path _) -> loop (path, args) tail Arguments
| char :: tail, Arguments -> loo...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Sys...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Builder =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## buildProject
let inline buildProject runtime outputDir path = async {
let fullPath = path |> System.IO.Path.GetFullPath
let fileDir = fullPath |> System.IO.Path.GetDirectoryName
let extension = fullPath |> System.IO.Path.GetExtension
let getLocals () = $"fullPath: {fullPath} / {getLocals ()}"
trace Debug (fun () -> "buildProject") getLocals
match extension with
| ".fsproj" -> ()
| _ -> failwith "Invalid project file"
let runtimes =
runtime
|> Option.map List.singleton
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Supervisor =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
open Microsoft.AspNetCore.SignalR.Client
/// ## sendJson
let inline sendJson (port : int) (json : string) = async {
let! portOpen = Networking.testPortOpen port
if portOpen then
try
let connection =
HubConnectionBuilder().WithUrl($"http://127.0.0.1:{port}").Build()
do! connection.StartAsync () |> Async.AwaitTask
let! result =
connection.InvokeAsync<string>("ClientToServerMsg", json) |> Async.AwaitTask
do! connection.StopAsync () |> Async.AwaitTask
trace Debug (fun () -...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open Common
open SpiralFileSystem.Operators
open Microsoft.AspNetCore.SignalR.Client
── fsharp ──────────────────────────────────────────────────────────────────────
open System
open System.Collections.Generic
open System.IO
open System.Text
open System.Threading
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## mapErrors │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline mapErrors (severity, errors, lastTopLevelIndex) allCode =
let allCodeLineLength =
allCode |> SpiralSm.split "\n" |> Array.length
errors
|> List.map (fun (_, error) ->
match error with
| Supervisor.FatalError message ->
(
severity, message, 0, ("", (0, 0), (0, 0))
)
|> List.singleton
| Supervisor.TracedError data ->
data.trace
|> List.truncate 5
|> List.append [[ data.message ]]
|> List.map (fun message ->
(
severity, message, 0, ("", (0, 0), (0, 0))
)
)
| Supervisor.PackageErrors data
| Supervisor.TokenizerErrors data
| Supervisor.ParserErrors data
| Supervisor.TypeErrors data ->
data.errors
|> List.filter (fun ((rangeStart, _), _) ->
trace Debug (fun () -> $"Eval.mapErrors / rangeStart.line:
{rangeStart.line} / lastTopLevelIndex: {lastTopLevelIndex} / allCodeLineLength:
{allCodeLineLength} / filtered: {rangeStart.line > allCodeLineLength}")
getLocals
rangeStart.line > allCodeLineLength
)
|> List.map (fun ((rangeStart, rangeEnd), message) ->
(
severity,
message,
0,
(
(data.uri |> System.IO.Path.GetFileName),
(
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeStart.line - allCodeLineLength - 2
| _ -> rangeStart.line - allCodeLineLength),
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeStart.character - 4
| _ -> rangeStart.character)
),
(
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeEnd.line - allCodeLineLength - 2
| _ -> rangeEnd.line - allCodeLineLength),
(match lastTopLevelIndex with
| Some i when rangeStart.line >= i +
allCodeLineLength + 3 ->
rangeEnd.character - 4
| _ -> rangeEnd.character)
)
)
)
)
)
|> List.collect id
|> List.toArray
── fsharp ──────────────────────────────────────────────────────────────────────
let repositoryRoot = SpiralFileSystem.get_source_directory () |>
SpiralFileSystem.find_parent ".paket" false
let targetDir = repositoryRoot </> "target/polyglot/spiral_eval"
let traceDir = targetDir </> "eval_trace"
[[ targetDir; traceDir ]]
|> List.iter (fun dir -> if Directory.Exists dir |> not then
Directory.CreateDirectory dir |> ignore)
let mutable allCode = ""
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## traceFile │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let traceFile filePath (text : string) =
let struct (_, _, _, level, _) = SpiralTrace.get_trace_state ()
match level with
| { l0 = x } when x = SpiralTrace.US0_0 ->
let dateTimeStr = DateTime.Now |> SpiralDateTime.new_guid_from_date_time
let traceFile = traceDir </> filePath
File.AppendAllText (traceFile, $"{dateTimeStr} Eval /
{text}{Environment.NewLine}") |> ignore
| _ -> ()
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## log │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let assemblyName = Reflection.Assembly.GetEntryAssembly().GetName().Name
── fsharp ──────────────────────────────────────────────────────────────────────
let log (text : string) =
let dateTimeStr = DateTime.Now |> SpiralDateTime.new_guid_from_date_time
text |> traceFile $"{assemblyName}_{dateTimeStr}_{Random().Next()}.txt"
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## startTokenRangeWatcher │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline startTokenRangeWatcher () =
if [[ "dotnet-repl" ]] |> List.contains assemblyName |> not then
let packagesDir = targetDir </> "packages"
[[ packagesDir ]]
|> List.iter (fun dir -> if Directory.Exists dir |> not then
Directory.CreateDirectory dir |> ignore)
let stream, disposable = FileSystem.watchDirectory (fun _ -> false)
packagesDir
try
let existingFilesChild =
packagesDir
|> System.IO.Directory.GetDirectories
|> Array.map (fun codeDir -> async {
try
let tokensPath = codeDir </> "tokens.json"
let packagePath = codeDir </> "package.spiproj"
if (tokensPath |> File.Exists |> not) && (packagePath |>
File.Exists |> not) then
let codePath = codeDir </> "main.spi"
let! tokens = codePath |>
Supervisor.getFileTokenRange None None
match tokens with
| Some tokens ->
do!
tokens
|> FSharp.Json.Json.serialize
|> SpiralFileSystem.write_all_text_async
tokensPath
| None ->
log $"Eval.startTokenRangeWatcher /
GetDirectories / tokens: None / {getLocals ()}"
with ex ->
log $"Eval.startTokenRangeWatcher / GetDirectories / ex:
{ex |> SpiralSm.format_exception} / {getLocals ()}"
})
|> Async.Parallel
|> Async.Ignore
let streamAsyncChild =
stream
|> FSharp.Control.AsyncSeq.iterAsyncParallel (fun (ticks, event)
-> async {
try
let getLocals () = $"ticks: {ticks} / event: {event} /
{getLocals ()}"
log $"Eval.startTokenRangeWatcher / iterAsyncParallel /
{getLocals ()}"
match event with
| FileSystem.FileSystemChange.Changed (codePath, _)
when System.IO.Path.GetFileName codePath =
"main.spi"
->
let hashDir = codePath |>
System.IO.Directory.GetParent
let hashHex = hashDir.Name
let packagePath = packagesDir </> hashHex </>
"package.spiproj"
if packagePath |> System.IO.File.Exists |> not then
let codePath = packagesDir </> codePath
let tokensPath = packagesDir </> hashHex </>
"tokens.json"
do!
codePath
|>
SpiralFileSystem.wait_for_file_access_read
|> Async.runWithTimeoutAsync 1000
|> Async.Ignore
let! tokens = codePath |>
Supervisor.getFileTokenRange None None
match tokens with
| Some tokens ->
do!
tokens
|> FSharp.Json.Json.serialize
|> SpiralFileSystem.write_all_text_async
tokensPath
| None ->
log $"Eval.startTokenRangeWatcher /
iterAsyncParallel / tokens: None / {getLocals ()}"
| _ -> ()
with ex ->
log $"Eval.startTokenRangeWatcher / iterAsyncParallel /
ex: {ex |> SpiralSm.format_exception} / {getLocals ()}"
})
async {
do! Async.Sleep 3000
existingFilesChild |> Async.StartImmediate
streamAsyncChild |> Async.Start
}
|> Async.Start
with ex ->
log $"Eval.startTokenRangeWatcher / ex: {ex |>
SpiralSm.format_exception}"
disposable
else new_disposable (fun () -> ())
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## startCommandsWatcher │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let startCommandsWatcher (uriServer : string) =
let commandsDir = targetDir </> "eval_commands"
let commandHistoryDir = targetDir </> "eval_command_history"
[[ commandsDir; commandHistoryDir ]]
|> List.iter (fun dir -> if Directory.Exists dir |> not then
Directory.CreateDirectory dir |> ignore)
Directory.EnumerateFiles commandsDir |> Seq.iter File.Delete
let stream, disposable =
commandsDir
|> FileSystem.watchDirectory (function
| FileSystem.FileSystemChange.Created _ -> true
| _ -> false
)
let connection = HubConnectionBuilder().WithUrl(uriServer).Build()
connection.StartAsync() |> Async.AwaitTask |> Async.Start
// let _ = connection.On<string>("ServerToClientMsg", fun x ->
// printfn $"ServerToClientMsg: '{x}'"
// )
stream
|> FSharp.Control.AsyncSeq.iterAsyncParallel (fun (ticks, event) -> async {
let getLocals () = $"ticks: {ticks} / event: {event} / {getLocals ()}"
trace Verbose (fun () -> "Eval.startCommandsWatcher /
iterAsyncParallel") getLocals
match event with
| FileSystem.FileSystemChange.Created (path, Some json) ->
try
let fullPath = commandsDir </> path
let! result =
connection.InvokeAsync<string>("ClientToServerMsg", json) |> Async.AwaitTask
let commandHistoryPath = commandHistoryDir </> path
do! fullPath |> SpiralFileSystem.move_file_async
commandHistoryPath |> Async.Ignore
if result |> SpiralSm.trim |> String.length > 0 then
let resultPath = commandHistoryDir </>
$"{Path.GetFileNameWithoutExtension path}_result.json"
do! result |> SpiralFileSystem.write_all_text_async
resultPath
with ex ->
trace Critical (fun () -> "Eval.startCommandsWatcher /
iterAsyncParallel / ex: {ex |> SpiralSm.format_exception}") getLocals
| _ -> ()
})
|> Async.StartChild
|> Async.Ignore
|> Async.Start
new_disposable (fun () ->
disposable.Dispose ()
)
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## eval │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let inline eval
(fsi_eval:
string
-> System.Threading.CancellationToken
-> Choice<'a,Exception> * (TraceLevel * string * int * (string * (int *
int) * (int * int))) array)
(cancellationToken: Option<System.Threading.CancellationToken>)
(code: string)
=
log $"Eval.eval / code: %A{code}"
let rawCellCode =
if code |> SpiralSm.trim <> "// // trace"
then code |> SpiralSm.replace "\r\n" "\n"
else
let struct (_, dump, _, level, _) = SpiralTrace.get_trace_state ()
match level with
| { l0 = x } when x = SpiralTrace.US0_2 -> level.l0 <-
SpiralTrace.US0_0
| _ -> level.l0 <- SpiralTrace.US0_2
dump.l0 <- level.l0 = SpiralTrace.US0_0
"inl main () = ()"
let lines = rawCellCode |> SpiralSm.split "\n"
if lines |> Array.exists (fun line -> line |> SpiralSm.starts_with "#r " &&
line |> SpiralSm.ends_with "\"") then
let cancellationToken = defaultArg cancellationToken
System.Threading.CancellationToken.None
let ch, errors = fsi_eval code cancellationToken
match ch with
| Choice1Of2 v -> Ok(v), errors
| Choice2Of2 ex -> Error(ex), errors
else
try
let lastBlock =
lines
|> Array.tryFindBack (fun line ->
line |> String.length > 0
&& line.[[0]] <> ' '
)
let hasMain =
lastBlock
|> Option.exists (fun line ->
line |> SpiralSm.starts_with "inl main "
|| line |> SpiralSm.starts_with "let main "
)
let cellCode, lastTopLevelIndex =
if hasMain
then rawCellCode, None
else
let lastTopLevelIndex, _ =
(lines |> Array.indexed, (None, false))
||> Array.foldBack (fun (i, line) (lastTopLevelIndex,
finished) ->
trace Debug (fun () -> $"i: {i} / line: '{line}' /
lastTopLevelIndex: {lastTopLevelIndex} / finished: {finished}") getLocals
match line with
| _ when finished -> lastTopLevelIndex, true
| "" -> lastTopLevelIndex, false
| line when
line |> SpiralSm.starts_with " "
|| line |> SpiralSm.starts_with "// " ->
lastTopLevelIndex, false
| line when
line |> SpiralSm.starts_with "open "
|| line |> SpiralSm.starts_with "prototype "
|| line |> SpiralSm.starts_with "instance "
|| line |> SpiralSm.starts_with "type "
|| line |> SpiralSm.starts_with "union "
|| line |> SpiralSm.starts_with "nominal " ->
lastTopLevelIndex, true
| line when
line |> SpiralSm.starts_with "inl "
|| line |> SpiralSm.starts_with "let " ->
let m =
System.Text.RegularExpressions.Regex.Match (
line,
@"^(inl|let) +([[~\(\w]][[\w\d']]*(?:|
*[[~\w]][[\w\d']]*\)|, *[[~\w]][[\w\d']]*)) +[[:=]](?! +function)"
)
trace Debug (fun () -> $"m: '{m}' /
m.Groups.Count: {m.Groups.Count}") getLocals
if m.Groups.Count = 3
then Some i, false
else lastTopLevelIndex, true
| _ -> Some i, false
)
let code =
match lastTopLevelIndex with
| Some lastTopLevelIndex ->
lines
|> Array.mapi (fun i line ->
match i with
| i when i < lastTopLevelIndex -> line
| i when i = lastTopLevelIndex -> $"\nlet main
() =\n {line}"
| _ when line |> SpiralSm.trim = "" -> ""
| _ -> $" {line}"
)
|> SpiralSm.concat "\n"
| None -> $"{rawCellCode}\n\ninl main () = ()\n"
code, lastTopLevelIndex
let newAllCode = $"{allCode}\n\n{cellCode}"
let rustArgs =
lines
|> Array.tryPick (fun line ->
if line |> SpiralSm.starts_with "// // rust="
then line |> SpiralSm.split "=" |> Array.tryItem 1
else None
)
let timeout =
lines
|> Array.tryPick (fun line ->
if line |> SpiralSm.starts_with "// // timeout="
then line |> SpiralSm.split "=" |> Array.tryItem 1 |>
Option.map int
else None
)
|> Option.defaultValue (60000 * 60)
let printCode =
lines
|> Array.tryPick (fun line ->
if line |> SpiralSm.starts_with "// // print_code="
then line |> SpiralSm.split "=" |> Array.tryItem 1 |>
Option.map ((=) "true")
else None
)
|> Option.defaultValue true
async {
try
let! mainPath = newAllCode |> Supervisor.persistCode
let port = Supervisor.getCompilerPort ()
let! codeChoice =
mainPath
|> Supervisor.buildFile timeout port cancellationToken
|> Async.catch
|> Async.runWithTimeoutAsync timeout
let code =
match codeChoice with
| Some (Ok code) -> Some code
| Some (Error ex) ->
log $"Eval / errors: {ex |>
SpiralSm.format_exception}"
None
| _ -> None
match code with
| Some (Some code, spiralErrors) ->
let spiralErrors =
mapErrors (Warning, spiralErrors, lastTopLevelIndex)
allCode
let inline _trace (fn : unit -> string) =
let struct (_, _, _, level, _) =
SpiralTrace.get_trace_state ()
match level with
| { l0 = x } when x = SpiralTrace.US0_2 -> fn () |>
System.Console.WriteLine
| _ -> trace Info (fun () -> $"Eval.eval / {fn ()}")
getLocals
if printCode
then _trace (fun () -> if rustArgs |> Option.isSome then
$"\n.fsx:\n{code}" else code)
let! rustResult =
if rustArgs |> Option.isNone || lastTopLevelIndex =
None
then None |> Async.init
else
async {
// let hash = $"repl_{code |>
SpiralCrypto.hash_text}"
let hash = $"spiral_eval"
let! fsprojPath = code |>
Builder.persistCodeProject [["Fable.Core"]] [[]] hash
let projectDir = fsprojPath |>
Path.GetDirectoryName
let outDir = projectDir </> $"target/{hash}"
let libLinkTargetPath = projectDir </>
"target/fable-library-rust"
let libLinkPath = outDir </>
$"fable_modules/fable-library-rust"
if Directory.Exists libLinkTargetPath |> not
then libLinkTargetPath |>
Directory.CreateDirectory |> ignore
libLinkPath |> Path.GetDirectoryName |>
Directory.CreateDirectory |> ignore
let libLinkPathInfo = DirectoryInfo
libLinkPath
if libLinkPathInfo.Exists &&
libLinkPathInfo.LinkTarget = null then
Directory.Delete (libLinkPath, true)
if libLinkPath |> Directory.Exists |> not
then
Directory.CreateSymbolicLink
(libLinkPath, libLinkTargetPath)
|> ignore
let! exitCode, result =
Runtime.executeWithOptionsAsync
{
Command = $@"dotnet fable
{fsprojPath} --optimize --lang rs --extension .rs --outDir {outDir}"
CancellationToken =
cancellationToken
WorkingDirectory = None
OnLine = None
}
if exitCode <> 0
then return Some (Error result)
else
let rsPath = outDir </> $"{hash}.rs"
let! rsCode = rsPath |>
SpiralFileSystem.read_all_text_async
let mainCode = "pub fn main() ->
Result<(), String> { Ok(()) }"
let cached = rsCode |> SpiralSm.contains
mainCode
let rsCode =
if cached
then rsCode
else rsCode |> SpiralSm.replace
"),);" "));"
if printCode
then _trace (fun () ->
$"\n.rs:\n{rsCode}")
if not cached
then do!
$"{rsCode}\n\n{mainCode}\n"
|>
SpiralFileSystem.write_all_text_async rsPath
let cargoTomlPath = outDir </>
$"Cargo.toml"
let cargoTomlContent = $"""[[package]]
name = "{hash}"
version = "0.0.1"
edition = "2021"
[[workspace]]
[[dependencies]]
fable_library_rust = {{ path = "fable_modules/fable-library-rust", optional =
true, default-features = false }}
clap = {{}}
num-complex = {{}}
pyo3 = "~0.21.0-beta.0"
[[features]]
default = [["fable_library_rust/default",
"fable_library_rust/static_do_bindings"]]
[[[[bin]]]]
name = "{hash}"
path = "{hash}.rs"
"""
do! cargoTomlContent |>
SpiralFileSystem.write_all_text_exists cargoTomlPath
let! exitCode, result =
Runtime.executeWithOptionsAsync
{
Command = $@"cargo run
--release --manifest-path {cargoTomlPath}"
CancellationToken =
cancellationToken
WorkingDirectory = None
OnLine = None
}
if exitCode = 0 then
try
let result =
result
|> SpiralSm.split "\n"
|> Array.skipWhile (fun line
->
line |>
SpiralSm.contains @"[[optimized]] target" |> not
)
|> Array.skip 2
|> SpiralSm.concat "\n"
return Some (Ok result)
with ex ->
return $"ex:
{ex}\nresult:\n{result}" |> Error |> Some
else
return Some (Error result)
}
let cancellationToken = defaultArg cancellationToken
System.Threading.CancellationToken.None
let fsxResult =
if rustArgs |> Option.isSome
then None
else
try
let ch, errors = fsi_eval code
cancellationToken
let errors =
errors
|> Array.map (fun (e1, e2, e3, _) ->
(e1, e2, e3, ("", (0, 0), (0, 0)))
)
Some (ch, errors)
with ex ->
trace Critical (fun () -> $"Eval.eval / ex:
{ex |> SpiralSm.format_exception}") getLocals
None
match fsxResult, rustResult with
| Some (ch, errors), None ->
let errors = errors |> Array.append spiralErrors
match ch with
| Choice1Of2 v ->
allCode <- newAllCode
return Ok(v), errors
| Choice2Of2 ex -> return Error ex, errors
| _, Some result ->
let result, errors =
match result with
| Ok result -> result, [[||]]
| Error error ->
"",
[[|
(
TraceLevel.Critical, error, 0, ("",
(0, 0), (0, 0))
)
|]]
let header = if printCode then ".rs output:\n" else
""
let ch, errors2 = fsi_eval
$"\"\"\"{header}{result}\n\"\"\"" cancellationToken
let errors =
errors
|> Array.append spiralErrors
|> Array.append errors2
match ch with
| Choice1Of2 v ->
allCode <- newAllCode
return Ok(v), errors
| Choice2Of2 ex ->
return Error ex, errors
| _ ->
let ch, errors = fsi_eval "()" cancellationToken
match ch with
| Choice1Of2 v ->
allCode <- newAllCode
return Ok(v), errors
| Choice2Of2 ex ->
return Error ex, errors
| Some (None, errors) when errors |> List.isEmpty |> not ->
return errors.[[0]] |> fst |> Exception |> Error,
mapErrors (TraceLevel.Critical, errors,
lastTopLevelIndex) allCode
| _ ->
return Error (Exception "Spiral error or timeout"),
[[|
(
TraceLevel.Critical, "Diag: Spiral error or
timeout", 0, ("", (0, 0), (0, 0))
)
|]]
with ex ->
log $"Eval / ex: {ex |> SpiralSm.format_exception}"
return Error (Exception $"Spiral error or timeout (4_) / ex:
{ex |> SpiralSm.format_exception}"),
[[|
(
TraceLevel.Critical, $"Diag: Spiral error or timeout
(4) / ex: {ex |> SpiralSm.format_exception}", 0, ("", (0, 0), (0, 0))
)
|]]
}
|> Async.runWithTimeoutStrict timeout
|> Option.defaultValue (
Error (Exception "Spiral error or timeout (2)"),
[[|
(
TraceLevel.Critical, "Diag: Spiral error or timeout
(2)", 0, ("", (0, 0), (0, 0))
)
|]]
)
with ex ->
log $"Eval / ex: {ex |> SpiralSm.format_exception}"
Error (Exception $"Spiral error or timeout (3) / ex: {ex |>
SpiralSm.format_exception}"),
[[|
(
TraceLevel.Critical, $"Diag: Spiral error or timeout (3) /
ex: {ex |> SpiralSm.format_exception}", 0, ("", (0, 0), (0, 0))
)
|]]
[NbConvertApp] Converting notebook Eval.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 384531 bytes to Eval.dib.html
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Eval.dib
00:00:00 #2 [debug] parseDibCode / output: Fs / file: Eval.dib
In [ ]:
{ . "$ScriptDir/../lib/fsharp/build.ps1" -sequential 1 } | Invoke-Block
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #2 [debug] executeAsync / options: { Command =
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = Some <fun:main@441-43> }
00:00:00 #3 [verbose] > pwd: C:\home\git\polyglot\lib\fsharp
00:00:00 #4 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #5 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #6 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:00 #7 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:00 #8 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #9 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #10 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #11 [verbose] > Server bound to: http://localhost:13805
00:00:01 #12 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 Async.dib" -Retries 3"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:00:04 #13 [verbose] >
00:00:04 #14 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 #15 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 #16 [verbose] > │ # Async (Polyglot) │
00:00:04 #17 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 #18 [verbose] >
00:00:04 #19 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:04 #20 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:00:04 #21 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:00:04 #22 [verbose] >
00:00:04 #23 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:04 #24 [verbose] > #r
00:00:04 #25 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:04 #26 [verbose] > spNetCore.Html.Abstractions.dll"
00:00:04 #27 [verbose] > #r
00:00:04 #28 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 #29 [verbose] > otNet.Interactive.dll"
00:00:04 #30 [verbose] > #r
00:00:04 #31 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 #32 [verbose] > otNet.Interactive.FSharp.dll"
00:00:04 #33 [verbose] > #r
00:00:04 #34 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 #35 [verbose] > otNet.Interactive.Formatting.dll"
00:00:04 #36 [verbose] > open System
00:00:04 #37 [verbose] > open System.IO
00:00:04 #38 [verbose] > open System.Text
00:00:04 #39 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:00:07 #40 [verbose] >
00:00:07 #41 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:07 #42 [verbose] > #r
00:00:07 #43 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:07 #44 [verbose] > otNet.Interactive.FSharp.dll"
00:00:07 #45 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:07 #46 [verbose] > #r
00:00:07 #47 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:07 #48 [verbose] > otNet.Interactive.dll"
00:00:07 #49 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:00:07 #50 [verbose] >
00:00:07 #51 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:07 #52 [verbose] > //// test
00:00:07 #53 [verbose] >
00:00:07 #54 [verbose] > Formatter.ListExpansionLimit <- 100
00:00:08 #55 [verbose] >
00:00:08 #56 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 #57 [verbose] > type [[<Struct>]] US0 =
00:00:08 #58 [verbose] > | US0_0
00:00:08 #59 [verbose] > | US0_1
00:00:08 #60 [verbose] > and [[<Struct>]] US1 =
00:00:08 #61 [verbose] > | US1_0 of f0_0 : US0
00:00:08 #62 [verbose] > | US1_1
00:00:08 #63 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:00:08 #64 [verbose] > let v1 : System.IDisposable option = None
00:00:08 #65 [verbose] > let mutable _v1 = v1
00:00:08 #66 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:08 #67 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:08 #68 [verbose] > v2
00:00:08 #69 [verbose] > #endif
00:00:08 #70 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:08 #71 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:08 #72 [verbose] > v3
00:00:08 #73 [verbose] > #endif
00:00:08 #74 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:08 #75 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:08 #76 [verbose] > v4
00:00:08 #77 [verbose] > #endif
00:00:08 #78 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:08 #79 [verbose] > !WASM && !CONTRACT
00:00:08 #80 [verbose] > let v5 : System.ID...
00:00:09 #81 [verbose] >
00:00:09 #82 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 #83 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:09 #84 [verbose] > and Mut1 = {mutable l0 : int32}
00:00:09 #85 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:09 #86 [verbose] > let v2 : bool = v1.Contains v0
00:00:09 #87 [verbose] > v2
00:00:09 #88 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:00:09 #89 [verbose] > closure1(v0)
00:00:09 #90 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:00:09 #91 [verbose] > let v2 : bool = v1.EndsWith v0
00:00:09 #92 [verbose] > v2
00:00:09 #93 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:00:09 #94 [verbose] > closure3(v0)
00:00:09 #95 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:09 #96 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:00:09 #97 [verbose] > v3
00:00:09 #98 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:09 #99 [verbose] > closure6(v0, v1)
00:00:09 #100 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:09 #101 [verbose] > closure5(v0)
00:00:09 #102 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:00:09 #103 [verbose] > let v2 : stri...
00:00:10 #104 [verbose] >
00:00:10 #105 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 #106 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:10 #107 [verbose] > type Mut0 = {mutable l0 : int32}
00:00:10 #108 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:10 #109 [verbose] > let v2 : int32 = v1.l0
00:00:10 #110 [verbose] > let v3 : bool = v2 < v0
00:00:10 #111 [verbose] > v3
00:00:10 #112 [verbose] > and closure0 () (v0 : string) : string =
00:00:10 #113 [verbose] > let v1 : string option = None
00:00:10 #114 [verbose] > let mutable _v1 = v1
00:00:10 #115 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:10 #116 [verbose] > let v2 : string = null |> unbox<string>
00:00:10 #117 [verbose] > v2
00:00:10 #118 [verbose] > #endif
00:00:10 #119 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:10 #120 [verbose] > let v3 : string = null |> unbox<string>
00:00:10 #121 [verbose] > v3
00:00:10 #122 [verbose] > #endif
00:00:10 #123 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:10 #124 [verbose] > let v4 : string = null |> unbox<string>
00:00:10 #125 [verbose] > v4
00:00:10 #126 [verbose] > #endif
00:00:10 #127 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:10 #128 [verbose] > !WASM && !CONTRACT
00:00:10 #129 [verbose] > let v5 : (unit -> System...
00:00:10 #130 [verbose] >
00:00:10 #131 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 #132 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:10 #133 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:00:10 #134 [verbose] > let v3 : string = v2 v0
00:00:10 #135 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:10 #136 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:10 #137 [verbose] > v5
00:00:10 #138 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:10 #139 [verbose] > closure1(v0)
00:00:10 #140 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:10 #141 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:00:10 #142 [verbose] > v3
00:00:10 #143 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:10 #144 [verbose] > closure5(v0, v1)
00:00:10 #145 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:10 #146 [verbose] > closure4(v0)
00:00:10 #147 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:00:10 #148 [verbose] > closure3()
00:00:10 #149 [verbose] > and closure2 (...
00:00:10 #150 [verbose] >
00:00:10 #151 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 #152 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:10 #153 [verbose] > Async<System.Threading.CancellationToken> =
00:00:10 #154 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:10 #155 [verbose] > let mutable _v1 = v1
00:00:10 #156 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:10 #157 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:10 #158 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:10 #159 [verbose] > v2
00:00:10 #160 [verbose] > #endif
00:00:10 #161 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:10 #162 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:00:10 #163 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:10 #164 [verbose] > v3
00:00:10 #165 [verbose] > #endif
00:00:10 #166 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:10 #167 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:00:10 #168 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:10 #169 [verbose] > v4
00:00:10 #170 [verbose] > #endif
00:00:10 #171 [verbose] > #if !FABLE_COMPILER...
00:00:10 #172 [verbose] >
00:00:10 #173 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 #174 [verbose] > let rec closure0 () () : bool =
00:00:10 #175 [verbose] > let v0 : bool option = None
00:00:10 #176 [verbose] > let mutable _v0 = v0
00:00:10 #177 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:10 #178 [verbose] > let v1 : bool = null |> unbox<bool>
00:00:10 #179 [verbose] > v1
00:00:10 #180 [verbose] > #endif
00:00:10 #181 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:10 #182 [verbose] > let v2 : bool = null |> unbox<bool>
00:00:10 #183 [verbose] > v2
00:00:10 #184 [verbose] > #endif
00:00:10 #185 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:10 #186 [verbose] > let v3 : bool = null |> unbox<bool>
00:00:10 #187 [verbose] > v3
00:00:10 #188 [verbose] > #endif
00:00:10 #189 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:10 #190 [verbose] > !WASM && !CONTRACT
00:00:10 #191 [verbose] > let v4 : System.Runtime.InteropServices.OSPlatform =
00:00:10 #192 [verbose] > System.Runtime.InteropServices.OSPlatform.Windows
00:00:10 #193 [verbose] > let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:10 #194 [verbose] > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:10 #195 [verbose] > let v6 : bool = v...
00:00:10 #196 [verbose] >
00:00:10 #197 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 #198 [verbose] > #if FABLE_COMPILER // file_system.types
00:00:10 #199 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:10 #200 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:10 #201 [verbose] > base64_DecodeError = class end
00:00:10 #202 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:10 #203 [verbose] > = class end
00:00:10 #204 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:10 #205 [verbose] > = class end
00:00:10 #206 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:10 #207 [verbose] > serde_json_Error = class end
00:00:10 #208 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:10 #209 [verbose] > serde_json_Value = class end
00:00:10 #210 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:10 #211 [verbose] > serde_wasm_bindgen_Error = class end
00:00:10 #212 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:12 #213 [verbose] >
00:00:12 #214 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #215 [verbose] > module State = let mutable trace_state = None
00:00:12 #216 [verbose] > type [[<Struct>]] US0 =
00:00:12 #217 [verbose] > | US0_0
00:00:12 #218 [verbose] > | US0_1
00:00:12 #219 [verbose] > | US0_2
00:00:12 #220 [verbose] > | US0_3
00:00:12 #221 [verbose] > | US0_4
00:00:12 #222 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:12 #223 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:12 #224 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:12 #225 [verbose] > and [[<Struct>]] US1 =
00:00:12 #226 [verbose] > | US1_0 of f0_0 : int64
00:00:12 #227 [verbose] > | US1_1
00:00:12 #228 [verbose] > and [[<Struct>]] US2 =
00:00:12 #229 [verbose] > | US2_0 of f0_0 : int64
00:00:12 #230 [verbose] > | US2_1
00:00:12 #231 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:00:12 #232 [verbose] > v0
00:00:12 #233 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:00:12 #234 [verbose] > v0
00:00:12 #235 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:00:12 #236 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:00:12 #237 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:00:12 #238 [verbose] > let v2 : US0 = US0_0
00:00:12 #239 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:00:12 #240 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:00:12 #241 [verbose] > let v5 : int64 option option = None
00:00:12 #242 [verbose] > ...
00:00:12 #243 [verbose] >
00:00:12 #244 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #245 [verbose] > module SpiralTrace =
00:00:12 #246 [verbose] > let get_trace_state () =
00:00:12 #247 [verbose] > #if !INTERACTIVE
00:00:12 #248 [verbose] > Trace.get_trace_state ()
00:00:12 #249 [verbose] > #else
00:00:12 #250 [verbose] > get_trace_state ()
00:00:12 #251 [verbose] > #endif
00:00:12 #252 [verbose] > let trace x =
00:00:12 #253 [verbose] > #if !INTERACTIVE
00:00:12 #254 [verbose] > Trace.trace x
00:00:12 #255 [verbose] > #else
00:00:12 #256 [verbose] > trace x
00:00:12 #257 [verbose] > #endif
00:00:12 #258 [verbose] >
00:00:12 #259 [verbose] > let US0_0 =
00:00:12 #260 [verbose] > #if !INTERACTIVE
00:00:12 #261 [verbose] > Trace.US0_0
00:00:12 #262 [verbose] > #else
00:00:12 #263 [verbose] > US0_0
00:00:12 #264 [verbose] > #endif
00:00:12 #265 [verbose] >
00:00:12 #266 [verbose] > let US0_1 =
00:00:12 #267 [verbose] > #if !INTERACTIVE
00:00:12 #268 [verbose] > Trace.US0_1
00:00:12 #269 [verbose] > #else
00:00:12 #270 [verbose] > US0_1
00:00:12 #271 [verbose] > #endif
00:00:12 #272 [verbose] >
00:00:12 #273 [verbose] > let US0_2 =
00:00:12 #274 [verbose] > #if !INTERACTIVE
00:00:12 #275 [verbose] > Trace.US0_2
00:00:12 #276 [verbose] > #else
00:00:12 #277 [verbose] > US0_2
00:00:12 #278 [verbose] > #endif
00:00:12 #279 [verbose] >
00:00:12 #280 [verbose] > let US0_3 =
00:00:12 #281 [verbose] > #if !INTERACTIVE
00:00:12 #282 [verbose] > Trace.US0_3
00:00:12 #283 [verbose] > #else
00:00:12 #284 [verbose] > US0_3
00:00:12 #285 [verbose] > #endif
00:00:12 #286 [verbose] >
00:00:12 #287 [verbose] > let US0_4 =
00:00:12 #288 [verbose] > #if !INTERACTIVE
00:00:12 #289 [verbose] > Trace.US0_4
00:00:12 #290 [verbose] > #else
00:00:12 #291 [verbose] > US0_4
00:00:12 #292 [verbose] > #endif
00:00:12 #293 [verbose] >
00:00:12 #294 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:12 #295 [verbose] >
00:00:12 #296 [verbose] > module SpiralAsync =
00:00:12 #297 [verbose] > let merge_cancellation_token_with_default_async x ...
00:00:12 #298 [verbose] >
00:00:12 #299 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #300 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:12 #301 [verbose] >
00:00:12 #302 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #303 [verbose] > //// test
00:00:12 #304 [verbose] >
00:00:12 #305 [verbose] > type AssertExceptionFormatter (ex) =
00:00:12 #306 [verbose] > member _.Text =
00:00:12 #307 [verbose] > ex.ToString()
00:00:12 #308 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:00:12 #309 [verbose] > .Replace("36m", "</span>")
00:00:12 #310 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:00:12 #311 [verbose] > .Replace("\n", "<br/>\n")
00:00:12 #312 [verbose] >
00:00:12 #313 [verbose] >
00:00:12 #314 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:12 #315 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:12 #316 [verbose] >
00:00:12 #317 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #318 [verbose] > //// test
00:00:12 #319 [verbose] >
00:00:12 #320 [verbose] > let inline __expect fn log expected actual =
00:00:12 #321 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:00:12 #322 [verbose] > try
00:00:12 #323 [verbose] > "Testing.__expect" |> fn actual expected
00:00:12 #324 [verbose] > with :? Expecto.AssertException as ex ->
00:00:12 #325 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:00:12 #326 [verbose] > failwith (ex.GetType().FullName)
00:00:12 #327 [verbose] >
00:00:12 #328 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:12 #329 [verbose] > expected actual
00:00:12 #330 [verbose] > let inline _contains expected actual = __contains true expected actual
00:00:12 #331 [verbose] >
00:00:12 #332 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:12 #333 [verbose] > expected actual
00:00:12 #334 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:12 #335 [verbose] >
00:00:12 #336 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:00:12 #337 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:00:12 #338 [verbose] >
00:00:12 #339 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #340 [verbose] > //// test
00:00:12 #341 [verbose] >
00:00:12 #342 [verbose] > let inline __isBetween log a b actual =
00:00:12 #343 [verbose] > let inline isBetween actual (a, b) _ =
00:00:12 #344 [verbose] > __isGreaterThanOrEqual log a actual
00:00:12 #345 [verbose] > __isLessThanOrEqual log b actual
00:00:12 #346 [verbose] > __expect isBetween log (a, b) actual
00:00:12 #347 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:00:12 #348 [verbose] >
00:00:12 #349 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #350 [verbose] > #!import ../../lib/fsharp/Common.fs
00:00:12 #351 [verbose] >
00:00:12 #352 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #353 [verbose] > #if !INTERACTIVE
00:00:12 #354 [verbose] > namespace Polyglot
00:00:12 #355 [verbose] > #endif
00:00:12 #356 [verbose] >
00:00:12 #357 [verbose] > module Common =
00:00:12 #358 [verbose] >
00:00:12 #359 [verbose] > #if !INTERACTIVE
00:00:12 #360 [verbose] > open Lib
00:00:12 #361 [verbose] > #endif
00:00:12 #362 [verbose] >
00:00:12 #363 [verbose] > let nl = System.Environment.NewLine
00:00:12 #364 [verbose] > let q = @""""
00:00:12 #365 [verbose] >
00:00:12 #366 [verbose] > let inline cons head tail = head :: tail
00:00:12 #367 [verbose] >
00:00:12 #368 [verbose] > /// ## memoize
00:00:12 #369 [verbose] >
00:00:12 #370 [verbose] > let inline memoize fn =
00:00:12 #371 [verbose] > let result = lazy fn ()
00:00:12 #372 [verbose] > fun () -> result.Value
00:00:12 #373 [verbose] >
00:00:12 #374 [verbose] > /// ## TraceLevel
00:00:12 #375 [verbose] >
00:00:12 #376 [verbose] > type TraceLevel =
00:00:12 #377 [verbose] > | Verbose
00:00:12 #378 [verbose] > | Debug
00:00:12 #379 [verbose] > | Info
00:00:12 #380 [verbose] > | Warning
00:00:12 #381 [verbose] > | Critical
00:00:12 #382 [verbose] >
00:00:12 #383 [verbose] > let inline getLocals () = ""
00:00:12 #384 [verbose] >
00:00:12 #385 [verbose] > /// ## trace
00:00:12 #386 [verbose] >
00:00:12 #387 [verbose] > let to_trace_level = function
00:00:12 #388 [verbose] > | Verbose -> SpiralTrace.US0_0
00:00:12 #389 [verbose] > | Debug -> SpiralTrace.US0_1
00:00:12 #390 [verbose] > | Info -> SpiralTrace.US0_2
00:00:12 #391 [verbose] > | Warning -> SpiralTrace.US0_3
00:00:12 #392 [verbose] > | Critical -> SpiralTrace.US0_4
00:00:12 #393 [verbose] >
00:00:12 #394 [verbose] > let trace level fn g...
00:00:12 #395 [verbose] >
00:00:12 #396 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #397 [verbose] > #if !INTERACTIVE
00:00:12 #398 [verbose] > open Lib
00:00:12 #399 [verbose] > #endif
00:00:12 #400 [verbose] >
00:00:12 #401 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #402 [verbose] > open Common
00:00:12 #403 [verbose] >
00:00:12 #404 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 #405 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 #406 [verbose] > │ ## choice │
00:00:12 #407 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 #408 [verbose] >
00:00:12 #409 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:12 #410 [verbose] > let inline choice asyncs = async {
00:00:12 #411 [verbose] > let e = Event<_> ()
00:00:12 #412 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:00:12 #413 [verbose] > let fn =
00:00:12 #414 [verbose] > asyncs
00:00:12 #415 [verbose] > |> Seq.map (fun a -> async {
00:00:12 #416 [verbose] > let! x = a
00:00:12 #417 [verbose] > e.Trigger x
00:00:12 #418 [verbose] > })
00:00:12 #419 [verbose] > |> Async.Parallel
00:00:12 #420 [verbose] > |> Async.Ignore
00:00:12 #421 [verbose] > Async.Start (fn, cts.Token)
00:00:12 #422 [verbose] > let! result = Async.AwaitEvent e.Publish
00:00:12 #423 [verbose] > cts.Cancel ()
00:00:12 #424 [verbose] > return result
00:00:12 #425 [verbose] > }
00:00:13 #426 [verbose] >
00:00:13 #427 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 #428 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 #429 [verbose] > │ ## map │
00:00:13 #430 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #431 [verbose] >
00:00:13 #432 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #433 [verbose] > let inline map fn a = async {
00:00:13 #434 [verbose] > let! x = a
00:00:13 #435 [verbose] > return fn x
00:00:13 #436 [verbose] > }
00:00:13 #437 [verbose] >
00:00:13 #438 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 #439 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 #440 [verbose] > │ ## catch │
00:00:13 #441 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #442 [verbose] >
00:00:13 #443 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #444 [verbose] > let inline catch a =
00:00:13 #445 [verbose] > a
00:00:13 #446 [verbose] > |> Async.Catch
00:00:13 #447 [verbose] > |> map (function
00:00:13 #448 [verbose] > | Choice1Of2 result -> Ok result
00:00:13 #449 [verbose] > | Choice2Of2 ex -> Error ex
00:00:13 #450 [verbose] > )
00:00:13 #451 [verbose] >
00:00:13 #452 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 #453 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 #454 [verbose] > │ ## runWithTimeoutAsync │
00:00:13 #455 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #456 [verbose] >
00:00:13 #457 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #458 [verbose] > let inline runWithTimeoutAsync_ (timeout : int) fn =
00:00:13 #459 [verbose] > let getLocals () = $"timeout: {timeout} / {getLocals ()}"
00:00:13 #460 [verbose] >
00:00:13 #461 [verbose] > let timeoutTask = async {
00:00:13 #462 [verbose] > do! Async.Sleep timeout
00:00:13 #463 [verbose] > trace Debug (fun () -> "runWithTimeoutAsync") getLocals
00:00:13 #464 [verbose] > return None
00:00:13 #465 [verbose] > }
00:00:13 #466 [verbose] >
00:00:13 #467 [verbose] > let task = async {
00:00:13 #468 [verbose] > try
00:00:13 #469 [verbose] > let! result = fn
00:00:13 #470 [verbose] > return Some result
00:00:13 #471 [verbose] > with
00:00:13 #472 [verbose] > | :? System.AggregateException as ex when
00:00:13 #473 [verbose] > ex.InnerExceptions
00:00:13 #474 [verbose] > |> Seq.exists (function :?
00:00:13 #475 [verbose] > System.Threading.Tasks.TaskCanceledException -> true | _ -> false)
00:00:13 #476 [verbose] > ->
00:00:13 #477 [verbose] > let getLocals () = $"ex: {ex |> SpiralSm.format_exception}
00:00:13 #478 [verbose] > {getLocals ()}"
00:00:13 #479 [verbose] > trace Warning (fun () -> "runWithTimeoutAsync") getLocals
00:00:13 #480 [verbose] > return None
00:00:13 #481 [verbose] > | ex ->
00:00:13 #482 [verbose] > trace Critical (fun () -> $"runWithTimeoutAsync** / ex: {ex |>
00:00:13 #483 [verbose] > SpiralSm.format_exception}") getLocals
00:00:13 #484 [verbose] > return None
00:00:13 #485 [verbose] > }
00:00:13 #486 [verbose] >
00:00:13 #487 [verbose] > [[ timeoutTask; task ]]
00:00:13 #488 [verbose] > |> choice
00:00:13 #489 [verbose] >
00:00:13 #490 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #491 [verbose] > let inline runWithTimeout_ timeout fn =
00:00:13 #492 [verbose] > fn
00:00:13 #493 [verbose] > |> runWithTimeoutAsync_ timeout
00:00:13 #494 [verbose] > |> Async.RunSynchronously
00:00:13 #495 [verbose] >
00:00:13 #496 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #497 [verbose] > //// test
00:00:13 #498 [verbose] >
00:00:13 #499 [verbose] > Async.Sleep 120
00:00:13 #500 [verbose] > |> runWithTimeout_ 10
00:00:13 #501 [verbose] > |> _assertEqual None
00:00:13 #502 [verbose] >
00:00:13 #503 [verbose] > ╭─[ 167.85ms - stdout ]────────────────────────────────────────────────────────╮
00:00:13 #504 [verbose] > │ 00:00:00 #1 [debug] runWithTimeoutAsync / timeout: 10 │
00:00:13 #505 [verbose] > │ <null> │
00:00:13 #506 [verbose] > │ │
00:00:13 #507 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #508 [verbose] >
00:00:13 #509 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #510 [verbose] > //// test
00:00:13 #511 [verbose] >
00:00:13 #512 [verbose] > Async.Sleep 10
00:00:13 #513 [verbose] > |> runWithTimeout_ 60
00:00:13 #514 [verbose] > |> _assertEqual (Some ())
00:00:13 #515 [verbose] >
00:00:13 #516 [verbose] > ╭─[ 97.18ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:13 #517 [verbose] > │ FSharpOption<Unit> │
00:00:13 #518 [verbose] > │ Value: <null> │
00:00:13 #519 [verbose] > │ │
00:00:13 #520 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #521 [verbose] >
00:00:13 #522 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #523 [verbose] > //// test
00:00:13 #524 [verbose] >
00:00:13 #525 [verbose] > async {
00:00:13 #526 [verbose] > raise (exn "error")
00:00:13 #527 [verbose] > }
00:00:13 #528 [verbose] > |> runWithTimeout_ 60
00:00:13 #529 [verbose] > |> _assertEqual None
00:00:13 #530 [verbose] >
00:00:13 #531 [verbose] > ╭─[ 121.70ms - stdout ]────────────────────────────────────────────────────────╮
00:00:13 #532 [verbose] > │ 00:00:00 #2 [critical] runWithTimeoutAsync** / ex: System.Exception: error / │
00:00:13 #533 [verbose] > │ timeout: 60 │
00:00:13 #534 [verbose] > │ <null> │
00:00:13 #535 [verbose] > │ │
00:00:13 #536 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #537 [verbose] >
00:00:13 #538 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:13 #539 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:13 #540 [verbose] > │ ## runWithTimeoutChildAsync │
00:00:13 #541 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:13 #542 [verbose] >
00:00:13 #543 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #544 [verbose] > let inline runWithTimeoutChildAsync (timeout : int) fn = async {
00:00:13 #545 [verbose] > let getLocals () = $"timeout: {timeout} / {getLocals ()}"
00:00:13 #546 [verbose] > let! child = Async.StartChild (fn, timeout)
00:00:13 #547 [verbose] > return!
00:00:13 #548 [verbose] > child
00:00:13 #549 [verbose] > |> catch
00:00:13 #550 [verbose] > |> map (function
00:00:13 #551 [verbose] > | Ok result -> Some result
00:00:13 #552 [verbose] > | Error (:? System.TimeoutException as ex) ->
00:00:13 #553 [verbose] > trace Debug (fun () -> $"runWithTimeoutChildAsync") getLocals
00:00:13 #554 [verbose] > None
00:00:13 #555 [verbose] > | Error ex ->
00:00:13 #556 [verbose] > trace Critical (fun () -> $"runWithTimeoutChildAsync** / ex: {ex
00:00:13 #557 [verbose] > |> SpiralSm.format_exception}") getLocals
00:00:13 #558 [verbose] > None
00:00:13 #559 [verbose] > )
00:00:13 #560 [verbose] > }
00:00:13 #561 [verbose] >
00:00:13 #562 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #563 [verbose] > let inline runWithTimeoutChild timeout fn =
00:00:13 #564 [verbose] > fn
00:00:13 #565 [verbose] > |> runWithTimeoutChildAsync timeout
00:00:13 #566 [verbose] > |> Async.RunSynchronously
00:00:13 #567 [verbose] >
00:00:13 #568 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #569 [verbose] > let inline runWithTimeoutAsync timeout fn =
00:00:13 #570 [verbose] > runWithTimeoutChildAsync timeout fn
00:00:13 #571 [verbose] >
00:00:13 #572 [verbose] > let inline runWithTimeout timeout fn =
00:00:13 #573 [verbose] > runWithTimeoutChild timeout fn
00:00:13 #574 [verbose] >
00:00:13 #575 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:13 #576 [verbose] > //// test
00:00:13 #577 [verbose] >
00:00:13 #578 [verbose] > Async.Sleep 60
00:00:13 #579 [verbose] > |> runWithTimeoutChild 10
00:00:13 #580 [verbose] > |> _assertEqual None
00:00:14 #581 [verbose] >
00:00:14 #582 [verbose] > ╭─[ 99.55ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:14 #583 [verbose] > │ 00:00:00 #3 [debug] runWithTimeoutChildAsync / timeout: 10 │
00:00:14 #584 [verbose] > │ <null> │
00:00:14 #585 [verbose] > │ │
00:00:14 #586 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #587 [verbose] >
00:00:14 #588 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #589 [verbose] > //// test
00:00:14 #590 [verbose] >
00:00:14 #591 [verbose] > Async.Sleep 10
00:00:14 #592 [verbose] > |> runWithTimeoutChild 60
00:00:14 #593 [verbose] > |> _assertEqual (Some ())
00:00:14 #594 [verbose] >
00:00:14 #595 [verbose] > ╭─[ 71.52ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:14 #596 [verbose] > │ FSharpOption<Unit> │
00:00:14 #597 [verbose] > │ Value: <null> │
00:00:14 #598 [verbose] > │ │
00:00:14 #599 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #600 [verbose] >
00:00:14 #601 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #602 [verbose] > //// test
00:00:14 #603 [verbose] >
00:00:14 #604 [verbose] > async {
00:00:14 #605 [verbose] > raise (exn "error")
00:00:14 #606 [verbose] > }
00:00:14 #607 [verbose] > |> runWithTimeoutChild 60
00:00:14 #608 [verbose] > |> _assertEqual None
00:00:14 #609 [verbose] >
00:00:14 #610 [verbose] > ╭─[ 73.85ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:14 #611 [verbose] > │ 00:00:00 #4 [critical] runWithTimeoutChildAsync** / ex: System.Exception: │
00:00:14 #612 [verbose] > │ error / timeout: 60 │
00:00:14 #613 [verbose] > │ <null> │
00:00:14 #614 [verbose] > │ │
00:00:14 #615 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #616 [verbose] >
00:00:14 #617 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:14 #618 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:14 #619 [verbose] > │ ## runWithTimeoutStrict │
00:00:14 #620 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #621 [verbose] >
00:00:14 #622 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #623 [verbose] > let inline runWithTimeoutStrict (timeout : int) fn =
00:00:14 #624 [verbose] > let getLocals () = $"timeout: {timeout} / {getLocals ()}"
00:00:14 #625 [verbose] >
00:00:14 #626 [verbose] > let timeoutTask = async {
00:00:14 #627 [verbose] > do! Async.Sleep timeout
00:00:14 #628 [verbose] > return None, getLocals
00:00:14 #629 [verbose] > }
00:00:14 #630 [verbose] >
00:00:14 #631 [verbose] > let task = async {
00:00:14 #632 [verbose] > try
00:00:14 #633 [verbose] > return Async.RunSynchronously (fn, timeout) |> Some, getLocals
00:00:14 #634 [verbose] > with
00:00:14 #635 [verbose] > | :? System.TimeoutException as ex ->
00:00:14 #636 [verbose] > let getLocals () = $"ex: {ex |> SpiralSm.format_exception}
00:00:14 #637 [verbose] > {getLocals ()}"
00:00:14 #638 [verbose] > return None, getLocals
00:00:14 #639 [verbose] > | ex ->
00:00:14 #640 [verbose] > trace Critical (fun () -> $"runWithTimeoutStrict / ex: {ex |>
00:00:14 #641 [verbose] > SpiralSm.format_exception}") getLocals
00:00:14 #642 [verbose] > return raise ex
00:00:14 #643 [verbose] > }
00:00:14 #644 [verbose] >
00:00:14 #645 [verbose] > try
00:00:14 #646 [verbose] > [[| timeoutTask; task |]]
00:00:14 #647 [verbose] > |> Array.map Async.StartAsTask
00:00:14 #648 [verbose] > |> System.Threading.Tasks.Task.WhenAny
00:00:14 #649 [verbose] > |> fun task ->
00:00:14 #650 [verbose] > match task.Result.Result with
00:00:14 #651 [verbose] > | None, getLocals ->
00:00:14 #652 [verbose] > trace Debug (fun () -> "runWithTimeoutStrict") getLocals
00:00:14 #653 [verbose] > None
00:00:14 #654 [verbose] > | result, _ -> result
00:00:14 #655 [verbose] > with
00:00:14 #656 [verbose] > | :? System.AggregateException as ex when
00:00:14 #657 [verbose] > ex.InnerExceptions
00:00:14 #658 [verbose] > |> Seq.exists (function :? System.Threading.Tasks.TaskCanceledException
00:00:14 #659 [verbose] > -> true | _ -> false)
00:00:14 #660 [verbose] > ->
00:00:14 #661 [verbose] > let getLocals () = $"ex: {ex |> SpiralSm.format_exception} / {getLocals
00:00:14 #662 [verbose] > ()}"
00:00:14 #663 [verbose] > trace Warning (fun () -> "runWithTimeoutStrict") getLocals
00:00:14 #664 [verbose] > None
00:00:14 #665 [verbose] > | ex ->
00:00:14 #666 [verbose] > let getLocals () = $"ex: {ex |> SpiralSm.format_exception} / {getLocals
00:00:14 #667 [verbose] > ()}"
00:00:14 #668 [verbose] > trace Critical (fun () -> "runWithTimeoutStrict**") getLocals
00:00:14 #669 [verbose] > None
00:00:14 #670 [verbose] >
00:00:14 #671 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #672 [verbose] > //// test
00:00:14 #673 [verbose] >
00:00:14 #674 [verbose] > Async.Sleep 60
00:00:14 #675 [verbose] > |> runWithTimeoutStrict 10
00:00:14 #676 [verbose] > |> _assertEqual None
00:00:14 #677 [verbose] >
00:00:14 #678 [verbose] > ╭─[ 105.10ms - stdout ]────────────────────────────────────────────────────────╮
00:00:14 #679 [verbose] > │ 00:00:00 #5 [debug] runWithTimeoutStrict / timeout: 10 │
00:00:14 #680 [verbose] > │ <null> │
00:00:14 #681 [verbose] > │ │
00:00:14 #682 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #683 [verbose] >
00:00:14 #684 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #685 [verbose] > //// test
00:00:14 #686 [verbose] >
00:00:14 #687 [verbose] > Async.Sleep 10
00:00:14 #688 [verbose] > |> runWithTimeoutStrict 60
00:00:14 #689 [verbose] > |> _assertEqual (Some ())
00:00:14 #690 [verbose] >
00:00:14 #691 [verbose] > ╭─[ 105.04ms - stdout ]────────────────────────────────────────────────────────╮
00:00:14 #692 [verbose] > │ FSharpOption<Unit> │
00:00:14 #693 [verbose] > │ Value: <null> │
00:00:14 #694 [verbose] > │ │
00:00:14 #695 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #696 [verbose] >
00:00:14 #697 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #698 [verbose] > //// test
00:00:14 #699 [verbose] >
00:00:14 #700 [verbose] > async {
00:00:14 #701 [verbose] > raise (exn "error")
00:00:14 #702 [verbose] > }
00:00:14 #703 [verbose] > |> runWithTimeoutStrict 60
00:00:14 #704 [verbose] > |> _assertEqual None
00:00:14 #705 [verbose] >
00:00:14 #706 [verbose] > ╭─[ 111.15ms - stdout ]────────────────────────────────────────────────────────╮
00:00:14 #707 [verbose] > │ 00:00:01 #6 [critical] runWithTimeoutStrict / ex: System.Exception: error / │
00:00:14 #708 [verbose] > │ timeout: 60 │
00:00:14 #709 [verbose] > │ 00:00:01 #7 [critical] runWithTimeoutStrict** / ex: │
00:00:14 #710 [verbose] > │ System.AggregateException: One or more errors occurred. (error) / timeout: │
00:00:14 #711 [verbose] > │ 60 │
00:00:14 #712 [verbose] > │ <null> │
00:00:14 #713 [verbose] > │ │
00:00:14 #714 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #715 [verbose] >
00:00:14 #716 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:14 #717 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:14 #718 [verbose] > │ ## awaitValueTask │
00:00:14 #719 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #720 [verbose] >
00:00:14 #721 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #722 [verbose] > let inline awaitValueTaskUnit (task : System.Threading.Tasks.ValueTask) =
00:00:14 #723 [verbose] > task.AsTask () |> Async.AwaitTask
00:00:14 #724 [verbose] >
00:00:14 #725 [verbose] > let inline awaitValueTask (task : System.Threading.Tasks.ValueTask<_>) =
00:00:14 #726 [verbose] > task.AsTask () |> Async.AwaitTask
00:00:14 #727 [verbose] >
00:00:14 #728 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:14 #729 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:14 #730 [verbose] > │ ## init │
00:00:14 #731 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #732 [verbose] >
00:00:14 #733 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #734 [verbose] > let inline init x = async {
00:00:14 #735 [verbose] > return x
00:00:14 #736 [verbose] > }
00:00:14 #737 [verbose] >
00:00:14 #738 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #739 [verbose] > //// test
00:00:14 #740 [verbose] >
00:00:14 #741 [verbose] > init 1
00:00:14 #742 [verbose] > |> Async.RunSynchronously
00:00:14 #743 [verbose] > |> _assertEqual 1
00:00:14 #744 [verbose] >
00:00:14 #745 [verbose] > ╭─[ 59.03ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:14 #746 [verbose] > │ 1 │
00:00:14 #747 [verbose] > │ │
00:00:14 #748 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #749 [verbose] >
00:00:14 #750 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:14 #751 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:14 #752 [verbose] > │ ## withCancellationToken │
00:00:14 #753 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #754 [verbose] >
00:00:14 #755 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #756 [verbose] > let inline withCancellationToken (ct : System.Threading.CancellationToken) fn =
00:00:14 #757 [verbose] > Async.StartImmediateAsTask (fn, ct)
00:00:14 #758 [verbose] > |> Async.AwaitTask
00:00:14 #759 [verbose] >
00:00:14 #760 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:14 #761 [verbose] > //// test
00:00:14 #762 [verbose] >
00:00:14 #763 [verbose] > let cts = new System.Threading.CancellationTokenSource ()
00:00:14 #764 [verbose] >
00:00:14 #765 [verbose] > async {
00:00:14 #766 [verbose] > let run = async {
00:00:14 #767 [verbose] > do! Async.Sleep 100
00:00:14 #768 [verbose] > return 1
00:00:14 #769 [verbose] > }
00:00:14 #770 [verbose] >
00:00:14 #771 [verbose] > let! child =
00:00:14 #772 [verbose] > run
00:00:14 #773 [verbose] > |> withCancellationToken cts.Token
00:00:14 #774 [verbose] > |> catch
00:00:14 #775 [verbose] > |> Async.StartChild
00:00:14 #776 [verbose] >
00:00:14 #777 [verbose] > do! Async.Sleep 50
00:00:14 #778 [verbose] > cts.Cancel ()
00:00:14 #779 [verbose] > return! child
00:00:14 #780 [verbose] > }
00:00:14 #781 [verbose] > |> Async.RunSynchronously
00:00:14 #782 [verbose] > |> Result.mapError _.Message
00:00:14 #783 [verbose] > |> _assertEqual (Error ("A task was canceled."))
00:00:15 #784 [verbose] >
00:00:15 #785 [verbose] > ╭─[ 220.45ms - stdout ]────────────────────────────────────────────────────────╮
00:00:15 #786 [verbose] > │ FSharpResult<Int32,String> │
00:00:15 #787 [verbose] > │ ResultValue: 0 │
00:00:15 #788 [verbose] > │ ErrorValue: A task was canceled. │
00:00:15 #789 [verbose] > │ │
00:00:15 #790 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:15 #791 [verbose] >
00:00:15 #792 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:15 #793 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:15 #794 [verbose] > │ ## withTraceLevel │
00:00:15 #795 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:15 #796 [verbose] >
00:00:15 #797 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:15 #798 [verbose] > let inline withTraceLevel level fn = async {
00:00:15 #799 [verbose] > let struct (_, _, _, level', _) = SpiralTrace.get_trace_state ()
00:00:15 #800 [verbose] > let oldTraceLevel = level'.l0
00:00:15 #801 [verbose] > try
00:00:15 #802 [verbose] > level'.l0 <- level |> to_trace_level
00:00:15 #803 [verbose] > return! fn
00:00:15 #804 [verbose] > finally
00:00:15 #805 [verbose] > level'.l0 <- oldTraceLevel
00:00:15 #806 [verbose] > }
00:00:16 #807 [verbose] > [NbConvertApp] Converting notebook Async.dib.ipynb to html
00:00:16 #808 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:16 #809 [verbose] > validate(nb)
00:00:17 #810 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:17 #811 [verbose] > return _pygments_highlight(
00:00:17 #812 [verbose] > [NbConvertApp] Writing 324244 bytes to Async.dib.html
00:00:18 #813 [debug] executeAsync / exitCode: 0 / output.Length: 29220
00:00:18 #814 [debug] main / executeCommand / exitCode: 0
00:00:18 #815 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 AsyncSeq.dib" -Retries 3"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:00:20 #816 [verbose] >
00:00:20 #817 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:20 #818 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:20 #819 [verbose] > │ # AsyncSeq (Polyglot) │
00:00:20 #820 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 #821 [verbose] >
00:00:20 #822 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:20 #823 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:00:20 #824 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:00:20 #825 [verbose] >
00:00:20 #826 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:20 #827 [verbose] > #r
00:00:20 #828 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:20 #829 [verbose] > spNetCore.Html.Abstractions.dll"
00:00:20 #830 [verbose] > #r
00:00:20 #831 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:20 #832 [verbose] > otNet.Interactive.dll"
00:00:20 #833 [verbose] > #r
00:00:20 #834 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:20 #835 [verbose] > otNet.Interactive.FSharp.dll"
00:00:20 #836 [verbose] > #r
00:00:20 #837 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:20 #838 [verbose] > otNet.Interactive.Formatting.dll"
00:00:20 #839 [verbose] > open System
00:00:20 #840 [verbose] > open System.IO
00:00:20 #841 [verbose] > open System.Text
00:00:20 #842 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:00:24 #843 [verbose] >
00:00:24 #844 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:24 #845 [verbose] > #r
00:00:24 #846 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:24 #847 [verbose] > otNet.Interactive.FSharp.dll"
00:00:24 #848 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:24 #849 [verbose] > #r
00:00:24 #850 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:24 #851 [verbose] > otNet.Interactive.dll"
00:00:24 #852 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:00:24 #853 [verbose] >
00:00:24 #854 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:24 #855 [verbose] > //// test
00:00:24 #856 [verbose] >
00:00:24 #857 [verbose] > Formatter.ListExpansionLimit <- 100
00:00:25 #858 [verbose] >
00:00:25 #859 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:25 #860 [verbose] > type [[<Struct>]] US0 =
00:00:25 #861 [verbose] > | US0_0
00:00:25 #862 [verbose] > | US0_1
00:00:25 #863 [verbose] > and [[<Struct>]] US1 =
00:00:25 #864 [verbose] > | US1_0 of f0_0 : US0
00:00:25 #865 [verbose] > | US1_1
00:00:25 #866 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:00:25 #867 [verbose] > let v1 : System.IDisposable option = None
00:00:25 #868 [verbose] > let mutable _v1 = v1
00:00:25 #869 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:25 #870 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:25 #871 [verbose] > v2
00:00:25 #872 [verbose] > #endif
00:00:25 #873 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:25 #874 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:25 #875 [verbose] > v3
00:00:25 #876 [verbose] > #endif
00:00:25 #877 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:25 #878 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:25 #879 [verbose] > v4
00:00:25 #880 [verbose] > #endif
00:00:25 #881 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:25 #882 [verbose] > !WASM && !CONTRACT
00:00:25 #883 [verbose] > let v5 : System.ID...
00:00:26 #884 [verbose] >
00:00:26 #885 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:26 #886 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:26 #887 [verbose] > and Mut1 = {mutable l0 : int32}
00:00:26 #888 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:26 #889 [verbose] > let v2 : bool = v1.Contains v0
00:00:26 #890 [verbose] > v2
00:00:26 #891 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:00:26 #892 [verbose] > closure1(v0)
00:00:26 #893 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:00:26 #894 [verbose] > let v2 : bool = v1.EndsWith v0
00:00:26 #895 [verbose] > v2
00:00:26 #896 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:00:26 #897 [verbose] > closure3(v0)
00:00:26 #898 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:26 #899 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:00:26 #900 [verbose] > v3
00:00:26 #901 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:26 #902 [verbose] > closure6(v0, v1)
00:00:26 #903 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:26 #904 [verbose] > closure5(v0)
00:00:26 #905 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:00:26 #906 [verbose] > let v2 : stri...
00:00:26 #907 [verbose] >
00:00:26 #908 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:26 #909 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:26 #910 [verbose] > type Mut0 = {mutable l0 : int32}
00:00:26 #911 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:26 #912 [verbose] > let v2 : int32 = v1.l0
00:00:26 #913 [verbose] > let v3 : bool = v2 < v0
00:00:26 #914 [verbose] > v3
00:00:26 #915 [verbose] > and closure0 () (v0 : string) : string =
00:00:26 #916 [verbose] > let v1 : string option = None
00:00:26 #917 [verbose] > let mutable _v1 = v1
00:00:26 #918 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:26 #919 [verbose] > let v2 : string = null |> unbox<string>
00:00:26 #920 [verbose] > v2
00:00:26 #921 [verbose] > #endif
00:00:26 #922 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:26 #923 [verbose] > let v3 : string = null |> unbox<string>
00:00:26 #924 [verbose] > v3
00:00:26 #925 [verbose] > #endif
00:00:26 #926 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:26 #927 [verbose] > let v4 : string = null |> unbox<string>
00:00:26 #928 [verbose] > v4
00:00:26 #929 [verbose] > #endif
00:00:26 #930 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:26 #931 [verbose] > !WASM && !CONTRACT
00:00:26 #932 [verbose] > let v5 : (unit -> System...
00:00:26 #933 [verbose] >
00:00:26 #934 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:26 #935 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:26 #936 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:00:26 #937 [verbose] > let v3 : string = v2 v0
00:00:26 #938 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:26 #939 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:26 #940 [verbose] > v5
00:00:26 #941 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:26 #942 [verbose] > closure1(v0)
00:00:26 #943 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:26 #944 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:00:26 #945 [verbose] > v3
00:00:26 #946 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:26 #947 [verbose] > closure5(v0, v1)
00:00:26 #948 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:26 #949 [verbose] > closure4(v0)
00:00:26 #950 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:00:26 #951 [verbose] > closure3()
00:00:26 #952 [verbose] > and closure2 (...
00:00:27 #953 [verbose] >
00:00:27 #954 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:27 #955 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:27 #956 [verbose] > Async<System.Threading.CancellationToken> =
00:00:27 #957 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:27 #958 [verbose] > let mutable _v1 = v1
00:00:27 #959 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:27 #960 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:27 #961 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:27 #962 [verbose] > v2
00:00:27 #963 [verbose] > #endif
00:00:27 #964 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:27 #965 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:00:27 #966 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:27 #967 [verbose] > v3
00:00:27 #968 [verbose] > #endif
00:00:27 #969 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:27 #970 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:00:27 #971 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:27 #972 [verbose] > v4
00:00:27 #973 [verbose] > #endif
00:00:27 #974 [verbose] > #if !FABLE_COMPILER...
00:00:27 #975 [verbose] >
00:00:27 #976 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:27 #977 [verbose] > let rec closure0 () () : bool =
00:00:27 #978 [verbose] > let v0 : bool option = None
00:00:27 #979 [verbose] > let mutable _v0 = v0
00:00:27 #980 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:27 #981 [verbose] > let v1 : bool = null |> unbox<bool>
00:00:27 #982 [verbose] > v1
00:00:27 #983 [verbose] > #endif
00:00:27 #984 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:27 #985 [verbose] > let v2 : bool = null |> unbox<bool>
00:00:27 #986 [verbose] > v2
00:00:27 #987 [verbose] > #endif
00:00:27 #988 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:27 #989 [verbose] > let v3 : bool = null |> unbox<bool>
00:00:27 #990 [verbose] > v3
00:00:27 #991 [verbose] > #endif
00:00:27 #992 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:27 #993 [verbose] > !WASM && !CONTRACT
00:00:27 #994 [verbose] > let v4 : System.Runtime.InteropServices.OSPlatform =
00:00:27 #995 [verbose] > System.Runtime.InteropServices.OSPlatform.Windows
00:00:27 #996 [verbose] > let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:27 #997 [verbose] > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:27 #998 [verbose] > let v6 : bool = v...
00:00:27 #999 [verbose] >
00:00:27 #1000 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:27 #1001 [verbose] > #if FABLE_COMPILER // file_system.types
00:00:27 #1002 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:27 #1003 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:27 #1004 [verbose] > base64_DecodeError = class end
00:00:27 #1005 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:27 #1006 [verbose] > = class end
00:00:27 #1007 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:27 #1008 [verbose] > = class end
00:00:27 #1009 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:27 #1010 [verbose] > serde_json_Error = class end
00:00:27 #1011 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:27 #1012 [verbose] > serde_json_Value = class end
00:00:27 #1013 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:27 #1014 [verbose] > serde_wasm_bindgen_Error = class end
00:00:27 #1015 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:28 #1016 [verbose] >
00:00:28 #1017 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:28 #1018 [verbose] > module State = let mutable trace_state = None
00:00:28 #1019 [verbose] > type [[<Struct>]] US0 =
00:00:28 #1020 [verbose] > | US0_0
00:00:28 #1021 [verbose] > | US0_1
00:00:28 #1022 [verbose] > | US0_2
00:00:28 #1023 [verbose] > | US0_3
00:00:28 #1024 [verbose] > | US0_4
00:00:28 #1025 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:28 #1026 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:28 #1027 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:28 #1028 [verbose] > and [[<Struct>]] US1 =
00:00:28 #1029 [verbose] > | US1_0 of f0_0 : int64
00:00:28 #1030 [verbose] > | US1_1
00:00:28 #1031 [verbose] > and [[<Struct>]] US2 =
00:00:28 #1032 [verbose] > | US2_0 of f0_0 : int64
00:00:28 #1033 [verbose] > | US2_1
00:00:28 #1034 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:00:28 #1035 [verbose] > v0
00:00:28 #1036 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:00:28 #1037 [verbose] > v0
00:00:28 #1038 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:00:28 #1039 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:00:28 #1040 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:00:28 #1041 [verbose] > let v2 : US0 = US0_0
00:00:28 #1042 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:00:28 #1043 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:00:28 #1044 [verbose] > let v5 : int64 option option = None
00:00:28 #1045 [verbose] > ...
00:00:28 #1046 [verbose] >
00:00:28 #1047 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:28 #1048 [verbose] > module SpiralTrace =
00:00:28 #1049 [verbose] > let get_trace_state () =
00:00:28 #1050 [verbose] > #if !INTERACTIVE
00:00:28 #1051 [verbose] > Trace.get_trace_state ()
00:00:28 #1052 [verbose] > #else
00:00:28 #1053 [verbose] > get_trace_state ()
00:00:28 #1054 [verbose] > #endif
00:00:28 #1055 [verbose] > let trace x =
00:00:28 #1056 [verbose] > #if !INTERACTIVE
00:00:28 #1057 [verbose] > Trace.trace x
00:00:28 #1058 [verbose] > #else
00:00:28 #1059 [verbose] > trace x
00:00:28 #1060 [verbose] > #endif
00:00:28 #1061 [verbose] >
00:00:28 #1062 [verbose] > let US0_0 =
00:00:28 #1063 [verbose] > #if !INTERACTIVE
00:00:28 #1064 [verbose] > Trace.US0_0
00:00:28 #1065 [verbose] > #else
00:00:28 #1066 [verbose] > US0_0
00:00:28 #1067 [verbose] > #endif
00:00:28 #1068 [verbose] >
00:00:28 #1069 [verbose] > let US0_1 =
00:00:28 #1070 [verbose] > #if !INTERACTIVE
00:00:28 #1071 [verbose] > Trace.US0_1
00:00:28 #1072 [verbose] > #else
00:00:28 #1073 [verbose] > US0_1
00:00:28 #1074 [verbose] > #endif
00:00:28 #1075 [verbose] >
00:00:28 #1076 [verbose] > let US0_2 =
00:00:28 #1077 [verbose] > #if !INTERACTIVE
00:00:28 #1078 [verbose] > Trace.US0_2
00:00:28 #1079 [verbose] > #else
00:00:28 #1080 [verbose] > US0_2
00:00:28 #1081 [verbose] > #endif
00:00:28 #1082 [verbose] >
00:00:28 #1083 [verbose] > let US0_3 =
00:00:28 #1084 [verbose] > #if !INTERACTIVE
00:00:28 #1085 [verbose] > Trace.US0_3
00:00:28 #1086 [verbose] > #else
00:00:28 #1087 [verbose] > US0_3
00:00:28 #1088 [verbose] > #endif
00:00:28 #1089 [verbose] >
00:00:28 #1090 [verbose] > let US0_4 =
00:00:28 #1091 [verbose] > #if !INTERACTIVE
00:00:28 #1092 [verbose] > Trace.US0_4
00:00:28 #1093 [verbose] > #else
00:00:28 #1094 [verbose] > US0_4
00:00:28 #1095 [verbose] > #endif
00:00:28 #1096 [verbose] >
00:00:28 #1097 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:28 #1098 [verbose] >
00:00:28 #1099 [verbose] > module SpiralAsync =
00:00:28 #1100 [verbose] > let merge_cancellation_token_with_default_async x ...
00:00:29 #1101 [verbose] >
00:00:29 #1102 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:29 #1103 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:29 #1104 [verbose] >
00:00:29 #1105 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:29 #1106 [verbose] > //// test
00:00:29 #1107 [verbose] >
00:00:29 #1108 [verbose] > type AssertExceptionFormatter (ex) =
00:00:29 #1109 [verbose] > member _.Text =
00:00:29 #1110 [verbose] > ex.ToString()
00:00:29 #1111 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:00:29 #1112 [verbose] > .Replace("36m", "</span>")
00:00:29 #1113 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:00:29 #1114 [verbose] > .Replace("\n", "<br/>\n")
00:00:29 #1115 [verbose] >
00:00:29 #1116 [verbose] >
00:00:29 #1117 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:29 #1118 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:29 #1119 [verbose] >
00:00:29 #1120 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:29 #1121 [verbose] > //// test
00:00:29 #1122 [verbose] >
00:00:29 #1123 [verbose] > let inline __expect fn log expected actual =
00:00:29 #1124 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:00:29 #1125 [verbose] > try
00:00:29 #1126 [verbose] > "Testing.__expect" |> fn actual expected
00:00:29 #1127 [verbose] > with :? Expecto.AssertException as ex ->
00:00:29 #1128 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:00:29 #1129 [verbose] > failwith (ex.GetType().FullName)
00:00:29 #1130 [verbose] >
00:00:29 #1131 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:29 #1132 [verbose] > expected actual
00:00:29 #1133 [verbose] > let inline _contains expected actual = __contains true expected actual
00:00:29 #1134 [verbose] >
00:00:29 #1135 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:29 #1136 [verbose] > expected actual
00:00:29 #1137 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:29 #1138 [verbose] >
00:00:29 #1139 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:00:29 #1140 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:00:29 #1141 [verbose] >
00:00:29 #1142 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:29 #1143 [verbose] > //// test
00:00:29 #1144 [verbose] >
00:00:29 #1145 [verbose] > let inline __isBetween log a b actual =
00:00:29 #1146 [verbose] > let inline isBetween actual (a, b) _ =
00:00:29 #1147 [verbose] > __isGreaterThanOrEqual log a actual
00:00:29 #1148 [verbose] > __isLessThanOrEqual log b actual
00:00:29 #1149 [verbose] > __expect isBetween log (a, b) actual
00:00:29 #1150 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:00:29 #1151 [verbose] >
00:00:29 #1152 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:29 #1153 [verbose] > #r
00:00:29 #1154 [verbose] > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:00:29 #1155 [verbose] > dard2.1/FSharp.Control.AsyncSeq.dll"
00:00:29 #1156 [verbose] > #r
00:00:29 #1157 [verbose] > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:00:29 #1158 [verbose] > 0/System.Reactive.dll"
00:00:29 #1159 [verbose] > #r
00:00:29 #1160 [verbose] > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:00:29 #1161 [verbose] > netstandard2.0/System.Reactive.Linq.dll"
00:00:29 #1162 [verbose] >
00:00:29 #1163 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:29 #1164 [verbose] > #!import ../../lib/fsharp/Common.fs
00:00:29 #1165 [verbose] > #!import ../../lib/fsharp/Async.fs
00:00:29 #1166 [verbose] >
00:00:29 #1167 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:29 #1168 [verbose] > #if !INTERACTIVE
00:00:29 #1169 [verbose] > namespace Polyglot
00:00:29 #1170 [verbose] > #endif
00:00:29 #1171 [verbose] >
00:00:29 #1172 [verbose] > module Common =
00:00:29 #1173 [verbose] >
00:00:29 #1174 [verbose] > #if !INTERACTIVE
00:00:29 #1175 [verbose] > open Lib
00:00:29 #1176 [verbose] > #endif
00:00:29 #1177 [verbose] >
00:00:29 #1178 [verbose] > let nl = System.Environment.NewLine
00:00:29 #1179 [verbose] > let q = @""""
00:00:29 #1180 [verbose] >
00:00:29 #1181 [verbose] > let inline cons head tail = head :: tail
00:00:29 #1182 [verbose] >
00:00:29 #1183 [verbose] > /// ## memoize
00:00:29 #1184 [verbose] >
00:00:29 #1185 [verbose] > let inline memoize fn =
00:00:29 #1186 [verbose] > let result = lazy fn ()
00:00:29 #1187 [verbose] > fun () -> result.Value
00:00:29 #1188 [verbose] >
00:00:29 #1189 [verbose] > /// ## TraceLevel
00:00:29 #1190 [verbose] >
00:00:29 #1191 [verbose] > type TraceLevel =
00:00:29 #1192 [verbose] > | Verbose
00:00:29 #1193 [verbose] > | Debug
00:00:29 #1194 [verbose] > | Info
00:00:29 #1195 [verbose] > | Warning
00:00:29 #1196 [verbose] > | Critical
00:00:29 #1197 [verbose] >
00:00:29 #1198 [verbose] > let inline getLocals () = ""
00:00:29 #1199 [verbose] >
00:00:29 #1200 [verbose] > /// ## trace
00:00:29 #1201 [verbose] >
00:00:29 #1202 [verbose] > let to_trace_level = function
00:00:29 #1203 [verbose] > | Verbose -> SpiralTrace.US0_0
00:00:29 #1204 [verbose] > | Debug -> SpiralTrace.US0_1
00:00:29 #1205 [verbose] > | Info -> SpiralTrace.US0_2
00:00:29 #1206 [verbose] > | Warning -> SpiralTrace.US0_3
00:00:29 #1207 [verbose] > | Critical -> SpiralTrace.US0_4
00:00:29 #1208 [verbose] >
00:00:29 #1209 [verbose] > let trace level fn g...
00:00:29 #1210 [verbose] >
00:00:29 #1211 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:29 #1212 [verbose] > #if !INTERACTIVE
00:00:29 #1213 [verbose] > namespace Polyglot
00:00:29 #1214 [verbose] > #endif
00:00:29 #1215 [verbose] >
00:00:29 #1216 [verbose] > module Async =
00:00:29 #1217 [verbose] >
00:00:29 #1218 [verbose] > #if !INTERACTIVE
00:00:29 #1219 [verbose] > open Lib
00:00:29 #1220 [verbose] > #endif
00:00:29 #1221 [verbose] >
00:00:29 #1222 [verbose] > open Common
00:00:29 #1223 [verbose] >
00:00:29 #1224 [verbose] > /// ## choice
00:00:29 #1225 [verbose] >
00:00:29 #1226 [verbose] > let inline choice asyncs = async {
00:00:29 #1227 [verbose] > let e = Event<_> ()
00:00:29 #1228 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:00:29 #1229 [verbose] > let fn =
00:00:29 #1230 [verbose] > asyncs
00:00:29 #1231 [verbose] > |> Seq.map (fun a -> async {
00:00:29 #1232 [verbose] > let! x = a
00:00:29 #1233 [verbose] > e.Trigger x
00:00:29 #1234 [verbose] > })
00:00:29 #1235 [verbose] > |> Async.Parallel
00:00:29 #1236 [verbose] > |> Async.Ignore
00:00:29 #1237 [verbose] > Async.Start (fn, cts.Token)
00:00:29 #1238 [verbose] > let! result = Async.AwaitEvent e.Publish
00:00:29 #1239 [verbose] > cts.Cancel ()
00:00:29 #1240 [verbose] > return result
00:00:29 #1241 [verbose] > }
00:00:29 #1242 [verbose] >
00:00:29 #1243 [verbose] > /// ## map
00:00:29 #1244 [verbose] >
00:00:29 #1245 [verbose] > let inline map fn a = async {
00:00:29 #1246 [verbose] > let! x = a
00:00:29 #1247 [verbose] > return fn x
00:00:29 #1248 [verbose] > }
00:00:29 #1249 [verbose] >
00:00:29 #1250 [verbose] > /// ## catch
00:00:29 #1251 [verbose] >
00:00:29 #1252 [verbose] > let inline catch a =
00:00:29 #1253 [verbose] > ...
00:00:30 #1254 [verbose] >
00:00:30 #1255 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:30 #1256 [verbose] > #if !INTERACTIVE
00:00:30 #1257 [verbose] > open Lib
00:00:30 #1258 [verbose] > #endif
00:00:30 #1259 [verbose] >
00:00:30 #1260 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:30 #1261 [verbose] > open Common
00:00:30 #1262 [verbose] >
00:00:30 #1263 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:30 #1264 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:30 #1265 [verbose] > │ ## subscribeEvent │
00:00:30 #1266 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 #1267 [verbose] >
00:00:30 #1268 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:30 #1269 [verbose] > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:00:30 #1270 [verbose] > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:00:30 #1271 [verbose] > 'A>(event.AddHandler, event.RemoveHandler)
00:00:30 #1272 [verbose] > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:00:30 #1273 [verbose] > event.EventArgs)
00:00:30 #1274 [verbose] > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:00:30 #1275 [verbose] >
00:00:30 #1276 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:30 #1277 [verbose] > //// test
00:00:30 #1278 [verbose] >
00:00:30 #1279 [verbose] > type TestEvent () as self =
00:00:30 #1280 [verbose] > member val Calls = [[]] with get, set
00:00:30 #1281 [verbose] > member val Event = Event<ErrorEventHandler, ErrorEventArgs> () with get
00:00:30 #1282 [verbose] >
00:00:30 #1283 [verbose] > member _.AddCall text =
00:00:30 #1284 [verbose] > self.Calls <- self.Calls @ [[ text ]]
00:00:30 #1285 [verbose] >
00:00:30 #1286 [verbose] > member _.EventInterface =
00:00:30 #1287 [verbose] > { new IEvent<ErrorEventHandler, ErrorEventArgs> with
00:00:30 #1288 [verbose] > member _.AddHandler handler =
00:00:30 #1289 [verbose] > self.AddCall "AddHandler"
00:00:30 #1290 [verbose] > self.Event.Publish.AddHandler handler
00:00:30 #1291 [verbose] >
00:00:30 #1292 [verbose] > member _.RemoveHandler handler =
00:00:30 #1293 [verbose] > self.AddCall "RemoveHandler"
00:00:30 #1294 [verbose] > self.Event.Publish.RemoveHandler handler
00:00:30 #1295 [verbose] >
00:00:30 #1296 [verbose] > member _.Subscribe observer =
00:00:30 #1297 [verbose] > self.AddCall "IObservable.Subscribe"
00:00:30 #1298 [verbose] > let disposable = self.Event.Publish.Subscribe observer
00:00:30 #1299 [verbose] > new_disposable (fun () ->
00:00:30 #1300 [verbose] > self.AddCall "IObservable.Dispose"
00:00:30 #1301 [verbose] > disposable.Dispose ()
00:00:30 #1302 [verbose] > )
00:00:30 #1303 [verbose] > }
00:00:30 #1304 [verbose] >
00:00:30 #1305 [verbose] > member _.Subscribe () =
00:00:30 #1306 [verbose] > subscribeEvent
00:00:30 #1307 [verbose] > self.EventInterface
00:00:30 #1308 [verbose] > (fun args ->
00:00:30 #1309 [verbose] > let result = args.GetException () |> SpiralSm.format_exception
00:00:30 #1310 [verbose] > self.AddCall $"TestEvent.Subscribe({result})"
00:00:30 #1311 [verbose] > result
00:00:30 #1312 [verbose] > )
00:00:30 #1313 [verbose] >
00:00:30 #1314 [verbose] > member _.Iter subscription =
00:00:30 #1315 [verbose] > subscription
00:00:30 #1316 [verbose] > |> FSharp.Control.AsyncSeq.iteriAsync (fun i error -> async {
00:00:30 #1317 [verbose] > self.AddCall $"TestEvent.Iter({i}: {error})"
00:00:30 #1318 [verbose] > })
00:00:30 #1319 [verbose] >
00:00:30 #1320 [verbose] > member _.WaitCall text = async {
00:00:30 #1321 [verbose] > while self.Calls |> List.last <> text do
00:00:30 #1322 [verbose] > do! Async.SwitchToThreadPool ()
00:00:30 #1323 [verbose] > }
00:00:30 #1324 [verbose] >
00:00:30 #1325 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:30 #1326 [verbose] > //// test
00:00:30 #1327 [verbose] >
00:00:30 #1328 [verbose] > let testEvent = TestEvent ()
00:00:30 #1329 [verbose] >
00:00:30 #1330 [verbose] > async {
00:00:30 #1331 [verbose] > testEvent.AddCall "1"
00:00:30 #1332 [verbose] > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:30 #1333 [verbose] > do! testEvent.WaitCall "AddHandler"
00:00:30 #1334 [verbose] > testEvent.AddCall "2"
00:00:30 #1335 [verbose] > do! child
00:00:30 #1336 [verbose] > testEvent.AddCall "3"
00:00:30 #1337 [verbose] > }
00:00:30 #1338 [verbose] > |> Async.runWithTimeout 300
00:00:30 #1339 [verbose] > |> _assertEqual None
00:00:30 #1340 [verbose] >
00:00:30 #1341 [verbose] > testEvent.Calls
00:00:30 #1342 [verbose] > |> Seq.toList
00:00:30 #1343 [verbose] > |> _assertEqual [[ "1"; "AddHandler"; "2"; "RemoveHandler" ]]
00:00:30 #1344 [verbose] >
00:00:30 #1345 [verbose] > ╭─[ 499.19ms - stdout ]────────────────────────────────────────────────────────╮
00:00:30 #1346 [verbose] > │ 00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 300 │
00:00:30 #1347 [verbose] > │ <null> │
00:00:30 #1348 [verbose] > │ [ 1, AddHandler, 2, RemoveHandler ] │
00:00:30 #1349 [verbose] > │ │
00:00:30 #1350 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:30 #1351 [verbose] >
00:00:30 #1352 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:30 #1353 [verbose] > //// test
00:00:30 #1354 [verbose] >
00:00:30 #1355 [verbose] > let testEvent = TestEvent ()
00:00:30 #1356 [verbose] >
00:00:30 #1357 [verbose] > async {
00:00:30 #1358 [verbose] > testEvent.AddCall "1"
00:00:30 #1359 [verbose] > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:30 #1360 [verbose] > do! testEvent.WaitCall "AddHandler"
00:00:30 #1361 [verbose] > testEvent.AddCall "2"
00:00:30 #1362 [verbose] > use _ = testEvent.EventInterface.Subscribe (fun args ->
00:00:30 #1363 [verbose] > testEvent.AddCall $"testEvent.EventInterface.Subscribe({args})"
00:00:30 #1364 [verbose] > )
00:00:30 #1365 [verbose] > testEvent.AddCall "3"
00:00:30 #1366 [verbose] > do! child
00:00:30 #1367 [verbose] > testEvent.AddCall "4"
00:00:30 #1368 [verbose] > }
00:00:30 #1369 [verbose] > |> Async.runWithTimeout 300
00:00:30 #1370 [verbose] > |> _assertEqual None
00:00:30 #1371 [verbose] >
00:00:30 #1372 [verbose] > testEvent.Calls
00:00:30 #1373 [verbose] > |> _assertEqual [[ "1"; "AddHandler"; "2"; "IObservable.Subscribe"; "3";
00:00:30 #1374 [verbose] > "RemoveHandler"; "IObservable.Dispose" ]]
00:00:31 #1375 [verbose] >
00:00:31 #1376 [verbose] > ╭─[ 423.15ms - stdout ]────────────────────────────────────────────────────────╮
00:00:31 #1377 [verbose] > │ 00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 300 │
00:00:31 #1378 [verbose] > │ <null> │
00:00:31 #1379 [verbose] > │ [ 1, AddHandler, 2, IObservable.Subscribe, 3, RemoveHandler, │
00:00:31 #1380 [verbose] > │ IObservable.Dispose ] │
00:00:31 #1381 [verbose] > │ │
00:00:31 #1382 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 #1383 [verbose] >
00:00:31 #1384 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:31 #1385 [verbose] > //// test
00:00:31 #1386 [verbose] >
00:00:31 #1387 [verbose] > let testEvent = TestEvent ()
00:00:31 #1388 [verbose] >
00:00:31 #1389 [verbose] > async {
00:00:31 #1390 [verbose] > testEvent.AddCall "1"
00:00:31 #1391 [verbose] > let! child = testEvent.Subscribe () |> testEvent.Iter |> Async.StartChild
00:00:31 #1392 [verbose] > do! testEvent.WaitCall "AddHandler"
00:00:31 #1393 [verbose] > testEvent.AddCall "2"
00:00:31 #1394 [verbose] > use _ = testEvent.EventInterface.Subscribe (fun args ->
00:00:31 #1395 [verbose] > async {
00:00:31 #1396 [verbose] > do! testEvent.WaitCall "TestEvent.Iter(0: System.Exception: error)"
00:00:31 #1397 [verbose] > testEvent.AddCall
00:00:31 #1398 [verbose] > $"testEvent.EventInterface.Subscribe({args.GetException () |>
00:00:31 #1399 [verbose] > SpiralSm.format_exception})"
00:00:31 #1400 [verbose] > }
00:00:31 #1401 [verbose] > |> Async.RunSynchronously
00:00:31 #1402 [verbose] > )
00:00:31 #1403 [verbose] > testEvent.AddCall "3"
00:00:31 #1404 [verbose] > testEvent.Event.Trigger (null, ErrorEventArgs (Exception "error"))
00:00:31 #1405 [verbose] > testEvent.AddCall "4"
00:00:31 #1406 [verbose] > do! child
00:00:31 #1407 [verbose] > testEvent.AddCall "5"
00:00:31 #1408 [verbose] > }
00:00:31 #1409 [verbose] > |> Async.runWithTimeout 300
00:00:31 #1410 [verbose] > |> _assertEqual None
00:00:31 #1411 [verbose] >
00:00:31 #1412 [verbose] > testEvent.Calls
00:00:31 #1413 [verbose] > |> _assertEqual [[
00:00:31 #1414 [verbose] > "1"
00:00:31 #1415 [verbose] > "AddHandler"
00:00:31 #1416 [verbose] > "2"
00:00:31 #1417 [verbose] > "IObservable.Subscribe"
00:00:31 #1418 [verbose] > "3"
00:00:31 #1419 [verbose] > "TestEvent.Subscribe(System.Exception: error)"
00:00:31 #1420 [verbose] > "TestEvent.Iter(0: System.Exception: error)"
00:00:31 #1421 [verbose] > "testEvent.EventInterface.Subscribe(System.Exception: error)"
00:00:31 #1422 [verbose] > "4"
00:00:31 #1423 [verbose] > "RemoveHandler"
00:00:31 #1424 [verbose] > "IObservable.Dispose"
00:00:31 #1425 [verbose] > ]]
00:00:31 #1426 [verbose] >
00:00:31 #1427 [verbose] > ╭─[ 466.89ms - stdout ]────────────────────────────────────────────────────────╮
00:00:31 #1428 [verbose] > │ 00:00:00 #3 [debug] runWithTimeoutChildAsync / timeout: 300 │
00:00:31 #1429 [verbose] > │ <null> │
00:00:31 #1430 [verbose] > │ [ 1, AddHandler, 2, IObservable.Subscribe, 3, │
00:00:31 #1431 [verbose] > │ TestEvent.Subscribe(System.Exception: error), TestEvent.Iter(0: │
00:00:31 #1432 [verbose] > │ System.Exception: error), │
00:00:31 #1433 [verbose] > │ testEvent.EventInterface.Subscribe(System.Exception: error), 4, │
00:00:31 #1434 [verbose] > │ RemoveHandler, IObservable.Dispose ] │
00:00:31 #1435 [verbose] > │ │
00:00:31 #1436 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:31 #1437 [verbose] >
00:00:31 #1438 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:31 #1439 [verbose] > let subscribeToken (token : System.Threading.CancellationToken) =
00:00:31 #1440 [verbose] > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:00:31 #1441 [verbose] > System.Action tcs.SetResult |> token.Register |> ignore
00:00:31 #1442 [verbose] > let start = System.DateTime.Now.Ticks
00:00:31 #1443 [verbose] > FSharp.Control.AsyncSeq.unfoldAsync
00:00:31 #1444 [verbose] > (fun () -> async {
00:00:31 #1445 [verbose] > do! tcs.Task |> Async.AwaitTask
00:00:31 #1446 [verbose] > return Some (System.DateTime.Now.Ticks - start, ())
00:00:31 #1447 [verbose] > })
00:00:31 #1448 [verbose] > ()
00:00:31 #1449 [verbose] >
00:00:31 #1450 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:31 #1451 [verbose] > //// test
00:00:31 #1452 [verbose] >
00:00:31 #1453 [verbose] > let cts = new System.Threading.CancellationTokenSource ()
00:00:31 #1454 [verbose] >
00:00:31 #1455 [verbose] > async {
00:00:31 #1456 [verbose] > let! child =
00:00:31 #1457 [verbose] > cts.Token
00:00:31 #1458 [verbose] > |> subscribeToken
00:00:31 #1459 [verbose] > |> FSharp.Control.AsyncSeq.tryFirst
00:00:31 #1460 [verbose] > |> Async.StartChild
00:00:31 #1461 [verbose] >
00:00:31 #1462 [verbose] > do! Async.Sleep 100
00:00:31 #1463 [verbose] > cts.Cancel ()
00:00:31 #1464 [verbose] > return! child
00:00:31 #1465 [verbose] > }
00:00:31 #1466 [verbose] > |> Async.RunSynchronously
00:00:31 #1467 [verbose] > |> Option.get
00:00:31 #1468 [verbose] > |> _isGreaterThan 900000
00:00:32 #1469 [verbose] >
00:00:32 #1470 [verbose] > ╭─[ 185.18ms - stdout ]────────────────────────────────────────────────────────╮
00:00:32 #1471 [verbose] > │ 1138402 │
00:00:32 #1472 [verbose] > │ │
00:00:32 #1473 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #1474 [verbose] > [NbConvertApp] Converting notebook AsyncSeq.dib.ipynb to html
00:00:33 #1475 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:33 #1476 [verbose] > validate(nb)
00:00:34 #1477 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:34 #1478 [verbose] > return _pygments_highlight(
00:00:34 #1479 [verbose] > [NbConvertApp] Writing 302251 bytes to AsyncSeq.dib.html
00:00:35 #1480 [debug] executeAsync / exitCode: 0 / output.Length: 22129
00:00:35 #1481 [debug] main / executeCommand / exitCode: 0
00:00:35 #1482 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 Common.dib" -Retries 3"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:00:37 #1483 [verbose] >
00:00:37 #1484 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:37 #1485 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:37 #1486 [verbose] > │ # Common (Polyglot) │
00:00:37 #1487 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:37 #1488 [verbose] >
00:00:37 #1489 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:37 #1490 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:00:37 #1491 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:00:37 #1492 [verbose] >
00:00:37 #1493 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:37 #1494 [verbose] > #r
00:00:37 #1495 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:37 #1496 [verbose] > spNetCore.Html.Abstractions.dll"
00:00:37 #1497 [verbose] > #r
00:00:37 #1498 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:37 #1499 [verbose] > otNet.Interactive.dll"
00:00:37 #1500 [verbose] > #r
00:00:37 #1501 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:37 #1502 [verbose] > otNet.Interactive.FSharp.dll"
00:00:37 #1503 [verbose] > #r
00:00:37 #1504 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:37 #1505 [verbose] > otNet.Interactive.Formatting.dll"
00:00:37 #1506 [verbose] > open System
00:00:37 #1507 [verbose] > open System.IO
00:00:37 #1508 [verbose] > open System.Text
00:00:37 #1509 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:00:41 #1510 [verbose] >
00:00:41 #1511 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 #1512 [verbose] > #r
00:00:41 #1513 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:41 #1514 [verbose] > otNet.Interactive.FSharp.dll"
00:00:41 #1515 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:41 #1516 [verbose] > #r
00:00:41 #1517 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:41 #1518 [verbose] > otNet.Interactive.dll"
00:00:41 #1519 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:00:41 #1520 [verbose] >
00:00:41 #1521 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 #1522 [verbose] > //// test
00:00:41 #1523 [verbose] >
00:00:41 #1524 [verbose] > Formatter.ListExpansionLimit <- 100
00:00:41 #1525 [verbose] >
00:00:41 #1526 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:41 #1527 [verbose] > type [[<Struct>]] US0 =
00:00:41 #1528 [verbose] > | US0_0
00:00:41 #1529 [verbose] > | US0_1
00:00:41 #1530 [verbose] > and [[<Struct>]] US1 =
00:00:41 #1531 [verbose] > | US1_0 of f0_0 : US0
00:00:41 #1532 [verbose] > | US1_1
00:00:41 #1533 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:00:41 #1534 [verbose] > let v1 : System.IDisposable option = None
00:00:41 #1535 [verbose] > let mutable _v1 = v1
00:00:41 #1536 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:41 #1537 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:41 #1538 [verbose] > v2
00:00:41 #1539 [verbose] > #endif
00:00:41 #1540 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:41 #1541 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:41 #1542 [verbose] > v3
00:00:41 #1543 [verbose] > #endif
00:00:41 #1544 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:41 #1545 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:41 #1546 [verbose] > v4
00:00:41 #1547 [verbose] > #endif
00:00:41 #1548 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:41 #1549 [verbose] > !WASM && !CONTRACT
00:00:41 #1550 [verbose] > let v5 : System.ID...
00:00:42 #1551 [verbose] >
00:00:42 #1552 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:42 #1553 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:42 #1554 [verbose] > and Mut1 = {mutable l0 : int32}
00:00:42 #1555 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:42 #1556 [verbose] > let v2 : bool = v1.Contains v0
00:00:42 #1557 [verbose] > v2
00:00:42 #1558 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:00:42 #1559 [verbose] > closure1(v0)
00:00:42 #1560 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:00:42 #1561 [verbose] > let v2 : bool = v1.EndsWith v0
00:00:42 #1562 [verbose] > v2
00:00:42 #1563 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:00:42 #1564 [verbose] > closure3(v0)
00:00:42 #1565 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:42 #1566 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:00:42 #1567 [verbose] > v3
00:00:42 #1568 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:42 #1569 [verbose] > closure6(v0, v1)
00:00:42 #1570 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:42 #1571 [verbose] > closure5(v0)
00:00:42 #1572 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:00:42 #1573 [verbose] > let v2 : stri...
00:00:43 #1574 [verbose] >
00:00:43 #1575 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:43 #1576 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:43 #1577 [verbose] > type Mut0 = {mutable l0 : int32}
00:00:43 #1578 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:43 #1579 [verbose] > let v2 : int32 = v1.l0
00:00:43 #1580 [verbose] > let v3 : bool = v2 < v0
00:00:43 #1581 [verbose] > v3
00:00:43 #1582 [verbose] > and closure0 () (v0 : string) : string =
00:00:43 #1583 [verbose] > let v1 : string option = None
00:00:43 #1584 [verbose] > let mutable _v1 = v1
00:00:43 #1585 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:43 #1586 [verbose] > let v2 : string = null |> unbox<string>
00:00:43 #1587 [verbose] > v2
00:00:43 #1588 [verbose] > #endif
00:00:43 #1589 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:43 #1590 [verbose] > let v3 : string = null |> unbox<string>
00:00:43 #1591 [verbose] > v3
00:00:43 #1592 [verbose] > #endif
00:00:43 #1593 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:43 #1594 [verbose] > let v4 : string = null |> unbox<string>
00:00:43 #1595 [verbose] > v4
00:00:43 #1596 [verbose] > #endif
00:00:43 #1597 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:43 #1598 [verbose] > !WASM && !CONTRACT
00:00:43 #1599 [verbose] > let v5 : (unit -> System...
00:00:43 #1600 [verbose] >
00:00:43 #1601 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:43 #1602 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:43 #1603 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:00:43 #1604 [verbose] > let v3 : string = v2 v0
00:00:43 #1605 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:43 #1606 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:43 #1607 [verbose] > v5
00:00:43 #1608 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:43 #1609 [verbose] > closure1(v0)
00:00:43 #1610 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:43 #1611 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:00:43 #1612 [verbose] > v3
00:00:43 #1613 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:43 #1614 [verbose] > closure5(v0, v1)
00:00:43 #1615 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:43 #1616 [verbose] > closure4(v0)
00:00:43 #1617 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:00:43 #1618 [verbose] > closure3()
00:00:43 #1619 [verbose] > and closure2 (...
00:00:43 #1620 [verbose] >
00:00:43 #1621 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:43 #1622 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:43 #1623 [verbose] > Async<System.Threading.CancellationToken> =
00:00:43 #1624 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:43 #1625 [verbose] > let mutable _v1 = v1
00:00:43 #1626 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:43 #1627 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:43 #1628 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:43 #1629 [verbose] > v2
00:00:43 #1630 [verbose] > #endif
00:00:43 #1631 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:43 #1632 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:00:43 #1633 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:43 #1634 [verbose] > v3
00:00:43 #1635 [verbose] > #endif
00:00:43 #1636 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:43 #1637 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:00:43 #1638 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:43 #1639 [verbose] > v4
00:00:43 #1640 [verbose] > #endif
00:00:43 #1641 [verbose] > #if !FABLE_COMPILER...
00:00:43 #1642 [verbose] >
00:00:43 #1643 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:43 #1644 [verbose] > let rec closure0 () () : bool =
00:00:43 #1645 [verbose] > let v0 : bool option = None
00:00:43 #1646 [verbose] > let mutable _v0 = v0
00:00:43 #1647 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:43 #1648 [verbose] > let v1 : bool = null |> unbox<bool>
00:00:43 #1649 [verbose] > v1
00:00:43 #1650 [verbose] > #endif
00:00:43 #1651 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:43 #1652 [verbose] > let v2 : bool = null |> unbox<bool>
00:00:43 #1653 [verbose] > v2
00:00:43 #1654 [verbose] > #endif
00:00:43 #1655 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:43 #1656 [verbose] > let v3 : bool = null |> unbox<bool>
00:00:43 #1657 [verbose] > v3
00:00:43 #1658 [verbose] > #endif
00:00:43 #1659 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:43 #1660 [verbose] > !WASM && !CONTRACT
00:00:43 #1661 [verbose] > let v4 : System.Runtime.InteropServices.OSPlatform =
00:00:43 #1662 [verbose] > System.Runtime.InteropServices.OSPlatform.Windows
00:00:43 #1663 [verbose] > let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:43 #1664 [verbose] > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:43 #1665 [verbose] > let v6 : bool = v...
00:00:43 #1666 [verbose] >
00:00:43 #1667 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:43 #1668 [verbose] > #if FABLE_COMPILER // file_system.types
00:00:43 #1669 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:43 #1670 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:43 #1671 [verbose] > base64_DecodeError = class end
00:00:43 #1672 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:43 #1673 [verbose] > = class end
00:00:43 #1674 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:43 #1675 [verbose] > = class end
00:00:43 #1676 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:43 #1677 [verbose] > serde_json_Error = class end
00:00:43 #1678 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:43 #1679 [verbose] > serde_json_Value = class end
00:00:43 #1680 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:43 #1681 [verbose] > serde_wasm_bindgen_Error = class end
00:00:43 #1682 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:45 #1683 [verbose] >
00:00:45 #1684 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:45 #1685 [verbose] > module State = let mutable trace_state = None
00:00:45 #1686 [verbose] > type [[<Struct>]] US0 =
00:00:45 #1687 [verbose] > | US0_0
00:00:45 #1688 [verbose] > | US0_1
00:00:45 #1689 [verbose] > | US0_2
00:00:45 #1690 [verbose] > | US0_3
00:00:45 #1691 [verbose] > | US0_4
00:00:45 #1692 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:45 #1693 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:45 #1694 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:45 #1695 [verbose] > and [[<Struct>]] US1 =
00:00:45 #1696 [verbose] > | US1_0 of f0_0 : int64
00:00:45 #1697 [verbose] > | US1_1
00:00:45 #1698 [verbose] > and [[<Struct>]] US2 =
00:00:45 #1699 [verbose] > | US2_0 of f0_0 : int64
00:00:45 #1700 [verbose] > | US2_1
00:00:45 #1701 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:00:45 #1702 [verbose] > v0
00:00:45 #1703 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:00:45 #1704 [verbose] > v0
00:00:45 #1705 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:00:45 #1706 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:00:45 #1707 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:00:45 #1708 [verbose] > let v2 : US0 = US0_0
00:00:45 #1709 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:00:45 #1710 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:00:45 #1711 [verbose] > let v5 : int64 option option = None
00:00:45 #1712 [verbose] > ...
00:00:45 #1713 [verbose] >
00:00:45 #1714 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:45 #1715 [verbose] > module SpiralTrace =
00:00:45 #1716 [verbose] > let get_trace_state () =
00:00:45 #1717 [verbose] > #if !INTERACTIVE
00:00:45 #1718 [verbose] > Trace.get_trace_state ()
00:00:45 #1719 [verbose] > #else
00:00:45 #1720 [verbose] > get_trace_state ()
00:00:45 #1721 [verbose] > #endif
00:00:45 #1722 [verbose] > let trace x =
00:00:45 #1723 [verbose] > #if !INTERACTIVE
00:00:45 #1724 [verbose] > Trace.trace x
00:00:45 #1725 [verbose] > #else
00:00:45 #1726 [verbose] > trace x
00:00:45 #1727 [verbose] > #endif
00:00:45 #1728 [verbose] >
00:00:45 #1729 [verbose] > let US0_0 =
00:00:45 #1730 [verbose] > #if !INTERACTIVE
00:00:45 #1731 [verbose] > Trace.US0_0
00:00:45 #1732 [verbose] > #else
00:00:45 #1733 [verbose] > US0_0
00:00:45 #1734 [verbose] > #endif
00:00:45 #1735 [verbose] >
00:00:45 #1736 [verbose] > let US0_1 =
00:00:45 #1737 [verbose] > #if !INTERACTIVE
00:00:45 #1738 [verbose] > Trace.US0_1
00:00:45 #1739 [verbose] > #else
00:00:45 #1740 [verbose] > US0_1
00:00:45 #1741 [verbose] > #endif
00:00:45 #1742 [verbose] >
00:00:45 #1743 [verbose] > let US0_2 =
00:00:45 #1744 [verbose] > #if !INTERACTIVE
00:00:45 #1745 [verbose] > Trace.US0_2
00:00:45 #1746 [verbose] > #else
00:00:45 #1747 [verbose] > US0_2
00:00:45 #1748 [verbose] > #endif
00:00:45 #1749 [verbose] >
00:00:45 #1750 [verbose] > let US0_3 =
00:00:45 #1751 [verbose] > #if !INTERACTIVE
00:00:45 #1752 [verbose] > Trace.US0_3
00:00:45 #1753 [verbose] > #else
00:00:45 #1754 [verbose] > US0_3
00:00:45 #1755 [verbose] > #endif
00:00:45 #1756 [verbose] >
00:00:45 #1757 [verbose] > let US0_4 =
00:00:45 #1758 [verbose] > #if !INTERACTIVE
00:00:45 #1759 [verbose] > Trace.US0_4
00:00:45 #1760 [verbose] > #else
00:00:45 #1761 [verbose] > US0_4
00:00:45 #1762 [verbose] > #endif
00:00:45 #1763 [verbose] >
00:00:45 #1764 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:45 #1765 [verbose] >
00:00:45 #1766 [verbose] > module SpiralAsync =
00:00:45 #1767 [verbose] > let merge_cancellation_token_with_default_async x ...
00:00:45 #1768 [verbose] >
00:00:45 #1769 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:45 #1770 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:45 #1771 [verbose] >
00:00:45 #1772 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:45 #1773 [verbose] > //// test
00:00:45 #1774 [verbose] >
00:00:45 #1775 [verbose] > type AssertExceptionFormatter (ex) =
00:00:45 #1776 [verbose] > member _.Text =
00:00:45 #1777 [verbose] > ex.ToString()
00:00:45 #1778 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:00:45 #1779 [verbose] > .Replace("36m", "</span>")
00:00:45 #1780 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:00:45 #1781 [verbose] > .Replace("\n", "<br/>\n")
00:00:45 #1782 [verbose] >
00:00:45 #1783 [verbose] >
00:00:45 #1784 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:45 #1785 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:45 #1786 [verbose] >
00:00:45 #1787 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:45 #1788 [verbose] > //// test
00:00:45 #1789 [verbose] >
00:00:45 #1790 [verbose] > let inline __expect fn log expected actual =
00:00:45 #1791 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:00:45 #1792 [verbose] > try
00:00:45 #1793 [verbose] > "Testing.__expect" |> fn actual expected
00:00:45 #1794 [verbose] > with :? Expecto.AssertException as ex ->
00:00:45 #1795 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:00:45 #1796 [verbose] > failwith (ex.GetType().FullName)
00:00:45 #1797 [verbose] >
00:00:45 #1798 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:45 #1799 [verbose] > expected actual
00:00:45 #1800 [verbose] > let inline _contains expected actual = __contains true expected actual
00:00:45 #1801 [verbose] >
00:00:45 #1802 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:45 #1803 [verbose] > expected actual
00:00:45 #1804 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:45 #1805 [verbose] >
00:00:45 #1806 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:00:45 #1807 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:00:46 #1808 [verbose] >
00:00:46 #1809 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:46 #1810 [verbose] > //// test
00:00:46 #1811 [verbose] >
00:00:46 #1812 [verbose] > let inline __isBetween log a b actual =
00:00:46 #1813 [verbose] > let inline isBetween actual (a, b) _ =
00:00:46 #1814 [verbose] > __isGreaterThanOrEqual log a actual
00:00:46 #1815 [verbose] > __isLessThanOrEqual log b actual
00:00:46 #1816 [verbose] > __expect isBetween log (a, b) actual
00:00:46 #1817 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:00:46 #1818 [verbose] >
00:00:46 #1819 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:46 #1820 [verbose] > #if !INTERACTIVE
00:00:46 #1821 [verbose] > open Lib
00:00:46 #1822 [verbose] > #endif
00:00:46 #1823 [verbose] >
00:00:46 #1824 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:46 #1825 [verbose] > let nl = System.Environment.NewLine
00:00:46 #1826 [verbose] > let q = @""""
00:00:46 #1827 [verbose] >
00:00:46 #1828 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:46 #1829 [verbose] > let inline cons head tail = head :: tail
00:00:46 #1830 [verbose] >
00:00:46 #1831 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 #1832 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 #1833 [verbose] > │ ## memoize │
00:00:46 #1834 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 #1835 [verbose] >
00:00:46 #1836 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:46 #1837 [verbose] > let inline memoize fn =
00:00:46 #1838 [verbose] > let result = lazy fn ()
00:00:46 #1839 [verbose] > fun () -> result.Value
00:00:46 #1840 [verbose] >
00:00:46 #1841 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 #1842 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 #1843 [verbose] > │ ## TraceLevel │
00:00:46 #1844 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 #1845 [verbose] >
00:00:46 #1846 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:46 #1847 [verbose] > type TraceLevel =
00:00:46 #1848 [verbose] > | Verbose
00:00:46 #1849 [verbose] > | Debug
00:00:46 #1850 [verbose] > | Info
00:00:46 #1851 [verbose] > | Warning
00:00:46 #1852 [verbose] > | Critical
00:00:46 #1853 [verbose] >
00:00:46 #1854 [verbose] > let inline getLocals () = ""
00:00:46 #1855 [verbose] >
00:00:46 #1856 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 #1857 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 #1858 [verbose] > │ ## trace │
00:00:46 #1859 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 #1860 [verbose] >
00:00:46 #1861 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:46 #1862 [verbose] > let to_trace_level = function
00:00:46 #1863 [verbose] > | Verbose -> SpiralTrace.US0_0
00:00:46 #1864 [verbose] > | Debug -> SpiralTrace.US0_1
00:00:46 #1865 [verbose] > | Info -> SpiralTrace.US0_2
00:00:46 #1866 [verbose] > | Warning -> SpiralTrace.US0_3
00:00:46 #1867 [verbose] > | Critical -> SpiralTrace.US0_4
00:00:46 #1868 [verbose] >
00:00:46 #1869 [verbose] > let trace level fn getLocals =
00:00:46 #1870 [verbose] > let level = level |> to_trace_level
00:00:46 #1871 [verbose] > SpiralTrace.trace level fn getLocals
00:00:46 #1872 [verbose] >
00:00:46 #1873 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:46 #1874 [verbose] > //// test
00:00:46 #1875 [verbose] >
00:00:46 #1876 [verbose] > trace Debug (fun () -> "test") getLocals
00:00:46 #1877 [verbose] >
00:00:46 #1878 [verbose] > ╭─[ 18.31ms - stdout ]─────────────────────────────────────────────────────────╮
00:00:46 #1879 [verbose] > │ 00:00:00 #1 [debug] test │
00:00:46 #1880 [verbose] > │ │
00:00:46 #1881 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:48 #1882 [verbose] > [NbConvertApp] Converting notebook Common.dib.ipynb to html
00:00:48 #1883 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:48 #1884 [verbose] > validate(nb)
00:00:48 #1885 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:48 #1886 [verbose] > return _pygments_highlight(
00:00:48 #1887 [verbose] > [NbConvertApp] Writing 280415 bytes to Common.dib.html
00:00:49 #1888 [debug] executeAsync / exitCode: 0 / output.Length: 14373
00:00:49 #1889 [debug] main / executeCommand / exitCode: 0
00:00:49 #1890 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 CommonFSharp.dib" -Retries 3"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:00:52 #1891 [verbose] >
00:00:52 #1892 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:52 #1893 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:52 #1894 [verbose] > │ # CommonFSharp (Polyglot) │
00:00:52 #1895 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #1896 [verbose] >
00:00:52 #1897 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:52 #1898 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:00:52 #1899 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:00:52 #1900 [verbose] >
00:00:52 #1901 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:52 #1902 [verbose] > #r
00:00:52 #1903 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:52 #1904 [verbose] > spNetCore.Html.Abstractions.dll"
00:00:52 #1905 [verbose] > #r
00:00:52 #1906 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:52 #1907 [verbose] > otNet.Interactive.dll"
00:00:52 #1908 [verbose] > #r
00:00:52 #1909 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:52 #1910 [verbose] > otNet.Interactive.FSharp.dll"
00:00:52 #1911 [verbose] > #r
00:00:52 #1912 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:52 #1913 [verbose] > otNet.Interactive.Formatting.dll"
00:00:52 #1914 [verbose] > open System
00:00:52 #1915 [verbose] > open System.IO
00:00:52 #1916 [verbose] > open System.Text
00:00:52 #1917 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:00:55 #1918 [verbose] >
00:00:55 #1919 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 #1920 [verbose] > #r
00:00:55 #1921 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:55 #1922 [verbose] > otNet.Interactive.FSharp.dll"
00:00:55 #1923 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:55 #1924 [verbose] > #r
00:00:55 #1925 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:55 #1926 [verbose] > otNet.Interactive.dll"
00:00:55 #1927 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:00:55 #1928 [verbose] >
00:00:55 #1929 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:55 #1930 [verbose] > //// test
00:00:55 #1931 [verbose] >
00:00:55 #1932 [verbose] > Formatter.ListExpansionLimit <- 100
00:00:56 #1933 [verbose] >
00:00:56 #1934 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:56 #1935 [verbose] > type [[<Struct>]] US0 =
00:00:56 #1936 [verbose] > | US0_0
00:00:56 #1937 [verbose] > | US0_1
00:00:56 #1938 [verbose] > and [[<Struct>]] US1 =
00:00:56 #1939 [verbose] > | US1_0 of f0_0 : US0
00:00:56 #1940 [verbose] > | US1_1
00:00:56 #1941 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:00:56 #1942 [verbose] > let v1 : System.IDisposable option = None
00:00:56 #1943 [verbose] > let mutable _v1 = v1
00:00:56 #1944 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:56 #1945 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:56 #1946 [verbose] > v2
00:00:56 #1947 [verbose] > #endif
00:00:56 #1948 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:56 #1949 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:56 #1950 [verbose] > v3
00:00:56 #1951 [verbose] > #endif
00:00:56 #1952 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:56 #1953 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:56 #1954 [verbose] > v4
00:00:56 #1955 [verbose] > #endif
00:00:56 #1956 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:56 #1957 [verbose] > !WASM && !CONTRACT
00:00:56 #1958 [verbose] > let v5 : System.ID...
00:00:57 #1959 [verbose] >
00:00:57 #1960 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:57 #1961 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:57 #1962 [verbose] > and Mut1 = {mutable l0 : int32}
00:00:57 #1963 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:57 #1964 [verbose] > let v2 : bool = v1.Contains v0
00:00:57 #1965 [verbose] > v2
00:00:57 #1966 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:00:57 #1967 [verbose] > closure1(v0)
00:00:57 #1968 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:00:57 #1969 [verbose] > let v2 : bool = v1.EndsWith v0
00:00:57 #1970 [verbose] > v2
00:00:57 #1971 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:00:57 #1972 [verbose] > closure3(v0)
00:00:57 #1973 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:57 #1974 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:00:57 #1975 [verbose] > v3
00:00:57 #1976 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:57 #1977 [verbose] > closure6(v0, v1)
00:00:57 #1978 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:57 #1979 [verbose] > closure5(v0)
00:00:57 #1980 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:00:57 #1981 [verbose] > let v2 : stri...
00:00:57 #1982 [verbose] >
00:00:57 #1983 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:57 #1984 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:57 #1985 [verbose] > type Mut0 = {mutable l0 : int32}
00:00:57 #1986 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:57 #1987 [verbose] > let v2 : int32 = v1.l0
00:00:57 #1988 [verbose] > let v3 : bool = v2 < v0
00:00:57 #1989 [verbose] > v3
00:00:57 #1990 [verbose] > and closure0 () (v0 : string) : string =
00:00:57 #1991 [verbose] > let v1 : string option = None
00:00:57 #1992 [verbose] > let mutable _v1 = v1
00:00:57 #1993 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:57 #1994 [verbose] > let v2 : string = null |> unbox<string>
00:00:57 #1995 [verbose] > v2
00:00:57 #1996 [verbose] > #endif
00:00:57 #1997 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:57 #1998 [verbose] > let v3 : string = null |> unbox<string>
00:00:57 #1999 [verbose] > v3
00:00:57 #2000 [verbose] > #endif
00:00:57 #2001 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:57 #2002 [verbose] > let v4 : string = null |> unbox<string>
00:00:57 #2003 [verbose] > v4
00:00:57 #2004 [verbose] > #endif
00:00:57 #2005 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:57 #2006 [verbose] > !WASM && !CONTRACT
00:00:57 #2007 [verbose] > let v5 : (unit -> System...
00:00:58 #2008 [verbose] >
00:00:58 #2009 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:58 #2010 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:58 #2011 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:00:58 #2012 [verbose] > let v3 : string = v2 v0
00:00:58 #2013 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:58 #2014 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:58 #2015 [verbose] > v5
00:00:58 #2016 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:58 #2017 [verbose] > closure1(v0)
00:00:58 #2018 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:58 #2019 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:00:58 #2020 [verbose] > v3
00:00:58 #2021 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:58 #2022 [verbose] > closure5(v0, v1)
00:00:58 #2023 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:58 #2024 [verbose] > closure4(v0)
00:00:58 #2025 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:00:58 #2026 [verbose] > closure3()
00:00:58 #2027 [verbose] > and closure2 (...
00:00:58 #2028 [verbose] >
00:00:58 #2029 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:58 #2030 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:58 #2031 [verbose] > Async<System.Threading.CancellationToken> =
00:00:58 #2032 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:58 #2033 [verbose] > let mutable _v1 = v1
00:00:58 #2034 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:58 #2035 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:58 #2036 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:58 #2037 [verbose] > v2
00:00:58 #2038 [verbose] > #endif
00:00:58 #2039 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:58 #2040 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:00:58 #2041 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:58 #2042 [verbose] > v3
00:00:58 #2043 [verbose] > #endif
00:00:58 #2044 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:58 #2045 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:00:58 #2046 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:58 #2047 [verbose] > v4
00:00:58 #2048 [verbose] > #endif
00:00:58 #2049 [verbose] > #if !FABLE_COMPILER...
00:00:58 #2050 [verbose] >
00:00:58 #2051 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:58 #2052 [verbose] > let rec closure0 () () : bool =
00:00:58 #2053 [verbose] > let v0 : bool option = None
00:00:58 #2054 [verbose] > let mutable _v0 = v0
00:00:58 #2055 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:58 #2056 [verbose] > let v1 : bool = null |> unbox<bool>
00:00:58 #2057 [verbose] > v1
00:00:58 #2058 [verbose] > #endif
00:00:58 #2059 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:58 #2060 [verbose] > let v2 : bool = null |> unbox<bool>
00:00:58 #2061 [verbose] > v2
00:00:58 #2062 [verbose] > #endif
00:00:58 #2063 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:58 #2064 [verbose] > let v3 : bool = null |> unbox<bool>
00:00:58 #2065 [verbose] > v3
00:00:58 #2066 [verbose] > #endif
00:00:58 #2067 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:58 #2068 [verbose] > !WASM && !CONTRACT
00:00:58 #2069 [verbose] > let v4 : System.Runtime.InteropServices.OSPlatform =
00:00:58 #2070 [verbose] > System.Runtime.InteropServices.OSPlatform.Windows
00:00:58 #2071 [verbose] > let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:58 #2072 [verbose] > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:58 #2073 [verbose] > let v6 : bool = v...
00:00:58 #2074 [verbose] >
00:00:58 #2075 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:58 #2076 [verbose] > #if FABLE_COMPILER // file_system.types
00:00:58 #2077 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:58 #2078 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:58 #2079 [verbose] > base64_DecodeError = class end
00:00:58 #2080 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:58 #2081 [verbose] > = class end
00:00:58 #2082 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:58 #2083 [verbose] > = class end
00:00:58 #2084 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:58 #2085 [verbose] > serde_json_Error = class end
00:00:58 #2086 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:58 #2087 [verbose] > serde_json_Value = class end
00:00:58 #2088 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:58 #2089 [verbose] > serde_wasm_bindgen_Error = class end
00:00:58 #2090 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:01:00 #2091 [verbose] >
00:01:00 #2092 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:00 #2093 [verbose] > module State = let mutable trace_state = None
00:01:00 #2094 [verbose] > type [[<Struct>]] US0 =
00:01:00 #2095 [verbose] > | US0_0
00:01:00 #2096 [verbose] > | US0_1
00:01:00 #2097 [verbose] > | US0_2
00:01:00 #2098 [verbose] > | US0_3
00:01:00 #2099 [verbose] > | US0_4
00:01:00 #2100 [verbose] > and Mut0 = {mutable l0 : int64}
00:01:00 #2101 [verbose] > and Mut1 = {mutable l0 : bool}
00:01:00 #2102 [verbose] > and Mut2 = {mutable l0 : US0}
00:01:00 #2103 [verbose] > and [[<Struct>]] US1 =
00:01:00 #2104 [verbose] > | US1_0 of f0_0 : int64
00:01:00 #2105 [verbose] > | US1_1
00:01:00 #2106 [verbose] > and [[<Struct>]] US2 =
00:01:00 #2107 [verbose] > | US2_0 of f0_0 : int64
00:01:00 #2108 [verbose] > | US2_1
00:01:00 #2109 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:01:00 #2110 [verbose] > v0
00:01:00 #2111 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:01:00 #2112 [verbose] > v0
00:01:00 #2113 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:01:00 #2114 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:01:00 #2115 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:01:00 #2116 [verbose] > let v2 : US0 = US0_0
00:01:00 #2117 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:01:00 #2118 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:01:00 #2119 [verbose] > let v5 : int64 option option = None
00:01:00 #2120 [verbose] > ...
00:01:00 #2121 [verbose] >
00:01:00 #2122 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:00 #2123 [verbose] > module SpiralTrace =
00:01:00 #2124 [verbose] > let get_trace_state () =
00:01:00 #2125 [verbose] > #if !INTERACTIVE
00:01:00 #2126 [verbose] > Trace.get_trace_state ()
00:01:00 #2127 [verbose] > #else
00:01:00 #2128 [verbose] > get_trace_state ()
00:01:00 #2129 [verbose] > #endif
00:01:00 #2130 [verbose] > let trace x =
00:01:00 #2131 [verbose] > #if !INTERACTIVE
00:01:00 #2132 [verbose] > Trace.trace x
00:01:00 #2133 [verbose] > #else
00:01:00 #2134 [verbose] > trace x
00:01:00 #2135 [verbose] > #endif
00:01:00 #2136 [verbose] >
00:01:00 #2137 [verbose] > let US0_0 =
00:01:00 #2138 [verbose] > #if !INTERACTIVE
00:01:00 #2139 [verbose] > Trace.US0_0
00:01:00 #2140 [verbose] > #else
00:01:00 #2141 [verbose] > US0_0
00:01:00 #2142 [verbose] > #endif
00:01:00 #2143 [verbose] >
00:01:00 #2144 [verbose] > let US0_1 =
00:01:00 #2145 [verbose] > #if !INTERACTIVE
00:01:00 #2146 [verbose] > Trace.US0_1
00:01:00 #2147 [verbose] > #else
00:01:00 #2148 [verbose] > US0_1
00:01:00 #2149 [verbose] > #endif
00:01:00 #2150 [verbose] >
00:01:00 #2151 [verbose] > let US0_2 =
00:01:00 #2152 [verbose] > #if !INTERACTIVE
00:01:00 #2153 [verbose] > Trace.US0_2
00:01:00 #2154 [verbose] > #else
00:01:00 #2155 [verbose] > US0_2
00:01:00 #2156 [verbose] > #endif
00:01:00 #2157 [verbose] >
00:01:00 #2158 [verbose] > let US0_3 =
00:01:00 #2159 [verbose] > #if !INTERACTIVE
00:01:00 #2160 [verbose] > Trace.US0_3
00:01:00 #2161 [verbose] > #else
00:01:00 #2162 [verbose] > US0_3
00:01:00 #2163 [verbose] > #endif
00:01:00 #2164 [verbose] >
00:01:00 #2165 [verbose] > let US0_4 =
00:01:00 #2166 [verbose] > #if !INTERACTIVE
00:01:00 #2167 [verbose] > Trace.US0_4
00:01:00 #2168 [verbose] > #else
00:01:00 #2169 [verbose] > US0_4
00:01:00 #2170 [verbose] > #endif
00:01:00 #2171 [verbose] >
00:01:00 #2172 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:00 #2173 [verbose] >
00:01:00 #2174 [verbose] > module SpiralAsync =
00:01:00 #2175 [verbose] > let merge_cancellation_token_with_default_async x ...
00:01:00 #2176 [verbose] >
00:01:00 #2177 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:00 #2178 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:00 #2179 [verbose] >
00:01:00 #2180 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:00 #2181 [verbose] > //// test
00:01:00 #2182 [verbose] >
00:01:00 #2183 [verbose] > type AssertExceptionFormatter (ex) =
00:01:00 #2184 [verbose] > member _.Text =
00:01:00 #2185 [verbose] > ex.ToString()
00:01:00 #2186 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:01:00 #2187 [verbose] > .Replace("36m", "</span>")
00:01:00 #2188 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:01:00 #2189 [verbose] > .Replace("\n", "<br/>\n")
00:01:00 #2190 [verbose] >
00:01:00 #2191 [verbose] >
00:01:00 #2192 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:00 #2193 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:00 #2194 [verbose] >
00:01:00 #2195 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:00 #2196 [verbose] > //// test
00:01:00 #2197 [verbose] >
00:01:00 #2198 [verbose] > let inline __expect fn log expected actual =
00:01:00 #2199 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:01:00 #2200 [verbose] > try
00:01:00 #2201 [verbose] > "Testing.__expect" |> fn actual expected
00:01:00 #2202 [verbose] > with :? Expecto.AssertException as ex ->
00:01:00 #2203 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:01:00 #2204 [verbose] > failwith (ex.GetType().FullName)
00:01:00 #2205 [verbose] >
00:01:00 #2206 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:00 #2207 [verbose] > expected actual
00:01:00 #2208 [verbose] > let inline _contains expected actual = __contains true expected actual
00:01:00 #2209 [verbose] >
00:01:00 #2210 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:00 #2211 [verbose] > expected actual
00:01:00 #2212 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:00 #2213 [verbose] >
00:01:00 #2214 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:01:00 #2215 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:01:00 #2216 [verbose] >
00:01:00 #2217 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:00 #2218 [verbose] > //// test
00:01:00 #2219 [verbose] >
00:01:00 #2220 [verbose] > let inline __isBetween log a b actual =
00:01:00 #2221 [verbose] > let inline isBetween actual (a, b) _ =
00:01:00 #2222 [verbose] > __isGreaterThanOrEqual log a actual
00:01:00 #2223 [verbose] > __isLessThanOrEqual log b actual
00:01:00 #2224 [verbose] > __expect isBetween log (a, b) actual
00:01:00 #2225 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:01:00 #2226 [verbose] >
00:01:00 #2227 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:00 #2228 [verbose] > #!import ../../lib/fsharp/Common.fs
00:01:00 #2229 [verbose] >
00:01:00 #2230 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:00 #2231 [verbose] > #if !INTERACTIVE
00:01:00 #2232 [verbose] > namespace Polyglot
00:01:00 #2233 [verbose] > #endif
00:01:00 #2234 [verbose] >
00:01:00 #2235 [verbose] > module Common =
00:01:00 #2236 [verbose] >
00:01:00 #2237 [verbose] > #if !INTERACTIVE
00:01:00 #2238 [verbose] > open Lib
00:01:00 #2239 [verbose] > #endif
00:01:00 #2240 [verbose] >
00:01:00 #2241 [verbose] > let nl = System.Environment.NewLine
00:01:00 #2242 [verbose] > let q = @""""
00:01:00 #2243 [verbose] >
00:01:00 #2244 [verbose] > let inline cons head tail = head :: tail
00:01:00 #2245 [verbose] >
00:01:00 #2246 [verbose] > /// ## memoize
00:01:00 #2247 [verbose] >
00:01:00 #2248 [verbose] > let inline memoize fn =
00:01:00 #2249 [verbose] > let result = lazy fn ()
00:01:00 #2250 [verbose] > fun () -> result.Value
00:01:00 #2251 [verbose] >
00:01:00 #2252 [verbose] > /// ## TraceLevel
00:01:00 #2253 [verbose] >
00:01:00 #2254 [verbose] > type TraceLevel =
00:01:00 #2255 [verbose] > | Verbose
00:01:00 #2256 [verbose] > | Debug
00:01:00 #2257 [verbose] > | Info
00:01:00 #2258 [verbose] > | Warning
00:01:00 #2259 [verbose] > | Critical
00:01:00 #2260 [verbose] >
00:01:00 #2261 [verbose] > let inline getLocals () = ""
00:01:00 #2262 [verbose] >
00:01:00 #2263 [verbose] > /// ## trace
00:01:00 #2264 [verbose] >
00:01:00 #2265 [verbose] > let to_trace_level = function
00:01:00 #2266 [verbose] > | Verbose -> SpiralTrace.US0_0
00:01:00 #2267 [verbose] > | Debug -> SpiralTrace.US0_1
00:01:00 #2268 [verbose] > | Info -> SpiralTrace.US0_2
00:01:00 #2269 [verbose] > | Warning -> SpiralTrace.US0_3
00:01:00 #2270 [verbose] > | Critical -> SpiralTrace.US0_4
00:01:00 #2271 [verbose] >
00:01:00 #2272 [verbose] > let trace level fn g...
00:01:00 #2273 [verbose] >
00:01:00 #2274 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:00 #2275 [verbose] > open Common
00:01:00 #2276 [verbose] >
00:01:00 #2277 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:00 #2278 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:00 #2279 [verbose] > │ ## getUnionCaseName │
00:01:00 #2280 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #2281 [verbose] >
00:01:00 #2282 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:00 #2283 [verbose] > let inline getUnionCaseName<'T> (x: 'T) =
00:01:00 #2284 [verbose] > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:01:00 #2285 [verbose] > | case, _ -> case.Name
00:01:00 #2286 [verbose] >
00:01:00 #2287 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:00 #2288 [verbose] > //// test
00:01:00 #2289 [verbose] >
00:01:00 #2290 [verbose] > TraceLevel.Critical
00:01:00 #2291 [verbose] > |> getUnionCaseName
00:01:00 #2292 [verbose] > |> _assertEqual (nameof TraceLevel.Critical)
00:01:00 #2293 [verbose] >
00:01:00 #2294 [verbose] > ╭─[ 60.75ms - stdout ]─────────────────────────────────────────────────────────╮
00:01:00 #2295 [verbose] > │ Critical │
00:01:00 #2296 [verbose] > │ │
00:01:00 #2297 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:02 #2298 [verbose] > [NbConvertApp] Converting notebook CommonFSharp.dib.ipynb to html
00:01:02 #2299 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:02 #2300 [verbose] > validate(nb)
00:01:03 #2301 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:03 #2302 [verbose] > return _pygments_highlight(
00:01:03 #2303 [verbose] > [NbConvertApp] Writing 275588 bytes to CommonFSharp.dib.html
00:01:04 #2304 [debug] executeAsync / exitCode: 0 / output.Length: 13923
00:01:04 #2305 [debug] main / executeCommand / exitCode: 0
00:01:04 #2306 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 Threading.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:01:06 #2307 [verbose] >
00:01:06 #2308 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:06 #2309 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:06 #2310 [verbose] > │ # Threading (Polyglot) │
00:01:06 #2311 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:06 #2312 [verbose] >
00:01:06 #2313 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:06 #2314 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:01:06 #2315 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:01:06 #2316 [verbose] >
00:01:06 #2317 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:06 #2318 [verbose] > #r
00:01:06 #2319 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:06 #2320 [verbose] > spNetCore.Html.Abstractions.dll"
00:01:06 #2321 [verbose] > #r
00:01:06 #2322 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:06 #2323 [verbose] > otNet.Interactive.dll"
00:01:06 #2324 [verbose] > #r
00:01:06 #2325 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:06 #2326 [verbose] > otNet.Interactive.FSharp.dll"
00:01:06 #2327 [verbose] > #r
00:01:06 #2328 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:06 #2329 [verbose] > otNet.Interactive.Formatting.dll"
00:01:06 #2330 [verbose] > open System
00:01:06 #2331 [verbose] > open System.IO
00:01:06 #2332 [verbose] > open System.Text
00:01:06 #2333 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:01:10 #2334 [verbose] >
00:01:10 #2335 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 #2336 [verbose] > #r
00:01:10 #2337 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:10 #2338 [verbose] > otNet.Interactive.FSharp.dll"
00:01:10 #2339 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:10 #2340 [verbose] > #r
00:01:10 #2341 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:10 #2342 [verbose] > otNet.Interactive.dll"
00:01:10 #2343 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:01:10 #2344 [verbose] >
00:01:10 #2345 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 #2346 [verbose] > //// test
00:01:10 #2347 [verbose] >
00:01:10 #2348 [verbose] > Formatter.ListExpansionLimit <- 100
00:01:10 #2349 [verbose] >
00:01:10 #2350 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:10 #2351 [verbose] > type [[<Struct>]] US0 =
00:01:10 #2352 [verbose] > | US0_0
00:01:10 #2353 [verbose] > | US0_1
00:01:10 #2354 [verbose] > and [[<Struct>]] US1 =
00:01:10 #2355 [verbose] > | US1_0 of f0_0 : US0
00:01:10 #2356 [verbose] > | US1_1
00:01:10 #2357 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:01:10 #2358 [verbose] > let v1 : System.IDisposable option = None
00:01:10 #2359 [verbose] > let mutable _v1 = v1
00:01:10 #2360 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:10 #2361 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:10 #2362 [verbose] > v2
00:01:10 #2363 [verbose] > #endif
00:01:10 #2364 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:10 #2365 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:10 #2366 [verbose] > v3
00:01:10 #2367 [verbose] > #endif
00:01:10 #2368 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:10 #2369 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:10 #2370 [verbose] > v4
00:01:10 #2371 [verbose] > #endif
00:01:10 #2372 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:01:10 #2373 [verbose] > !WASM && !CONTRACT
00:01:10 #2374 [verbose] > let v5 : System.ID...
00:01:11 #2375 [verbose] >
00:01:11 #2376 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:11 #2377 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:01:11 #2378 [verbose] > and Mut1 = {mutable l0 : int32}
00:01:11 #2379 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:01:11 #2380 [verbose] > let v2 : bool = v1.Contains v0
00:01:11 #2381 [verbose] > v2
00:01:11 #2382 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:01:11 #2383 [verbose] > closure1(v0)
00:01:11 #2384 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:01:11 #2385 [verbose] > let v2 : bool = v1.EndsWith v0
00:01:11 #2386 [verbose] > v2
00:01:11 #2387 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:01:11 #2388 [verbose] > closure3(v0)
00:01:11 #2389 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:01:11 #2390 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:01:11 #2391 [verbose] > v3
00:01:11 #2392 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:01:11 #2393 [verbose] > closure6(v0, v1)
00:01:11 #2394 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:01:11 #2395 [verbose] > closure5(v0)
00:01:11 #2396 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:01:11 #2397 [verbose] > let v2 : stri...
00:01:12 #2398 [verbose] >
00:01:12 #2399 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:12 #2400 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:01:12 #2401 [verbose] > type Mut0 = {mutable l0 : int32}
00:01:12 #2402 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:01:12 #2403 [verbose] > let v2 : int32 = v1.l0
00:01:12 #2404 [verbose] > let v3 : bool = v2 < v0
00:01:12 #2405 [verbose] > v3
00:01:12 #2406 [verbose] > and closure0 () (v0 : string) : string =
00:01:12 #2407 [verbose] > let v1 : string option = None
00:01:12 #2408 [verbose] > let mutable _v1 = v1
00:01:12 #2409 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:12 #2410 [verbose] > let v2 : string = null |> unbox<string>
00:01:12 #2411 [verbose] > v2
00:01:12 #2412 [verbose] > #endif
00:01:12 #2413 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:12 #2414 [verbose] > let v3 : string = null |> unbox<string>
00:01:12 #2415 [verbose] > v3
00:01:12 #2416 [verbose] > #endif
00:01:12 #2417 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:12 #2418 [verbose] > let v4 : string = null |> unbox<string>
00:01:12 #2419 [verbose] > v4
00:01:12 #2420 [verbose] > #endif
00:01:12 #2421 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:01:12 #2422 [verbose] > !WASM && !CONTRACT
00:01:12 #2423 [verbose] > let v5 : (unit -> System...
00:01:12 #2424 [verbose] >
00:01:12 #2425 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:12 #2426 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:01:12 #2427 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:01:12 #2428 [verbose] > let v3 : string = v2 v0
00:01:12 #2429 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:01:12 #2430 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:01:12 #2431 [verbose] > v5
00:01:12 #2432 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:01:12 #2433 [verbose] > closure1(v0)
00:01:12 #2434 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:01:12 #2435 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:01:12 #2436 [verbose] > v3
00:01:12 #2437 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:01:12 #2438 [verbose] > closure5(v0, v1)
00:01:12 #2439 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:01:12 #2440 [verbose] > closure4(v0)
00:01:12 #2441 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:01:12 #2442 [verbose] > closure3()
00:01:12 #2443 [verbose] > and closure2 (...
00:01:12 #2444 [verbose] >
00:01:12 #2445 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:12 #2446 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:01:12 #2447 [verbose] > Async<System.Threading.CancellationToken> =
00:01:12 #2448 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:01:12 #2449 [verbose] > let mutable _v1 = v1
00:01:12 #2450 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:12 #2451 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:01:12 #2452 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:12 #2453 [verbose] > v2
00:01:12 #2454 [verbose] > #endif
00:01:12 #2455 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:12 #2456 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:01:12 #2457 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:12 #2458 [verbose] > v3
00:01:12 #2459 [verbose] > #endif
00:01:12 #2460 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:12 #2461 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:01:12 #2462 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:12 #2463 [verbose] > v4
00:01:12 #2464 [verbose] > #endif
00:01:12 #2465 [verbose] > #if !FABLE_COMPILER...
00:01:12 #2466 [verbose] >
00:01:12 #2467 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:12 #2468 [verbose] > let rec closure0 () () : bool =
00:01:12 #2469 [verbose] > let v0 : bool option = None
00:01:12 #2470 [verbose] > let mutable _v0 = v0
00:01:12 #2471 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:12 #2472 [verbose] > let v1 : bool = null |> unbox<bool>
00:01:12 #2473 [verbose] > v1
00:01:12 #2474 [verbose] > #endif
00:01:12 #2475 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:12 #2476 [verbose] > let v2 : bool = null |> unbox<bool>
00:01:12 #2477 [verbose] > v2
00:01:12 #2478 [verbose] > #endif
00:01:12 #2479 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:12 #2480 [verbose] > let v3 : bool = null |> unbox<bool>
00:01:12 #2481 [verbose] > v3
00:01:12 #2482 [verbose] > #endif
00:01:12 #2483 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:01:12 #2484 [verbose] > !WASM && !CONTRACT
00:01:12 #2485 [verbose] > let v4 : System.Runtime.InteropServices.OSPlatform =
00:01:12 #2486 [verbose] > System.Runtime.InteropServices.OSPlatform.Windows
00:01:12 #2487 [verbose] > let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:01:12 #2488 [verbose] > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:01:12 #2489 [verbose] > let v6 : bool = v...
00:01:12 #2490 [verbose] >
00:01:12 #2491 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:12 #2492 [verbose] > #if FABLE_COMPILER // file_system.types
00:01:12 #2493 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:01:12 #2494 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:01:12 #2495 [verbose] > base64_DecodeError = class end
00:01:12 #2496 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:01:12 #2497 [verbose] > = class end
00:01:12 #2498 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:01:12 #2499 [verbose] > = class end
00:01:12 #2500 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:01:12 #2501 [verbose] > serde_json_Error = class end
00:01:12 #2502 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:01:12 #2503 [verbose] > serde_json_Value = class end
00:01:12 #2504 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:01:12 #2505 [verbose] > serde_wasm_bindgen_Error = class end
00:01:12 #2506 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:01:14 #2507 [verbose] >
00:01:14 #2508 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:14 #2509 [verbose] > module State = let mutable trace_state = None
00:01:14 #2510 [verbose] > type [[<Struct>]] US0 =
00:01:14 #2511 [verbose] > | US0_0
00:01:14 #2512 [verbose] > | US0_1
00:01:14 #2513 [verbose] > | US0_2
00:01:14 #2514 [verbose] > | US0_3
00:01:14 #2515 [verbose] > | US0_4
00:01:14 #2516 [verbose] > and Mut0 = {mutable l0 : int64}
00:01:14 #2517 [verbose] > and Mut1 = {mutable l0 : bool}
00:01:14 #2518 [verbose] > and Mut2 = {mutable l0 : US0}
00:01:14 #2519 [verbose] > and [[<Struct>]] US1 =
00:01:14 #2520 [verbose] > | US1_0 of f0_0 : int64
00:01:14 #2521 [verbose] > | US1_1
00:01:14 #2522 [verbose] > and [[<Struct>]] US2 =
00:01:14 #2523 [verbose] > | US2_0 of f0_0 : int64
00:01:14 #2524 [verbose] > | US2_1
00:01:14 #2525 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:01:14 #2526 [verbose] > v0
00:01:14 #2527 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:01:14 #2528 [verbose] > v0
00:01:14 #2529 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:01:14 #2530 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:01:14 #2531 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:01:14 #2532 [verbose] > let v2 : US0 = US0_0
00:01:14 #2533 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:01:14 #2534 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:01:14 #2535 [verbose] > let v5 : int64 option option = None
00:01:14 #2536 [verbose] > ...
00:01:14 #2537 [verbose] >
00:01:14 #2538 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:14 #2539 [verbose] > module SpiralTrace =
00:01:14 #2540 [verbose] > let get_trace_state () =
00:01:14 #2541 [verbose] > #if !INTERACTIVE
00:01:14 #2542 [verbose] > Trace.get_trace_state ()
00:01:14 #2543 [verbose] > #else
00:01:14 #2544 [verbose] > get_trace_state ()
00:01:14 #2545 [verbose] > #endif
00:01:14 #2546 [verbose] > let trace x =
00:01:14 #2547 [verbose] > #if !INTERACTIVE
00:01:14 #2548 [verbose] > Trace.trace x
00:01:14 #2549 [verbose] > #else
00:01:14 #2550 [verbose] > trace x
00:01:14 #2551 [verbose] > #endif
00:01:14 #2552 [verbose] >
00:01:14 #2553 [verbose] > let US0_0 =
00:01:14 #2554 [verbose] > #if !INTERACTIVE
00:01:14 #2555 [verbose] > Trace.US0_0
00:01:14 #2556 [verbose] > #else
00:01:14 #2557 [verbose] > US0_0
00:01:14 #2558 [verbose] > #endif
00:01:14 #2559 [verbose] >
00:01:14 #2560 [verbose] > let US0_1 =
00:01:14 #2561 [verbose] > #if !INTERACTIVE
00:01:14 #2562 [verbose] > Trace.US0_1
00:01:14 #2563 [verbose] > #else
00:01:14 #2564 [verbose] > US0_1
00:01:14 #2565 [verbose] > #endif
00:01:14 #2566 [verbose] >
00:01:14 #2567 [verbose] > let US0_2 =
00:01:14 #2568 [verbose] > #if !INTERACTIVE
00:01:14 #2569 [verbose] > Trace.US0_2
00:01:14 #2570 [verbose] > #else
00:01:14 #2571 [verbose] > US0_2
00:01:14 #2572 [verbose] > #endif
00:01:14 #2573 [verbose] >
00:01:14 #2574 [verbose] > let US0_3 =
00:01:14 #2575 [verbose] > #if !INTERACTIVE
00:01:14 #2576 [verbose] > Trace.US0_3
00:01:14 #2577 [verbose] > #else
00:01:14 #2578 [verbose] > US0_3
00:01:14 #2579 [verbose] > #endif
00:01:14 #2580 [verbose] >
00:01:14 #2581 [verbose] > let US0_4 =
00:01:14 #2582 [verbose] > #if !INTERACTIVE
00:01:14 #2583 [verbose] > Trace.US0_4
00:01:14 #2584 [verbose] > #else
00:01:14 #2585 [verbose] > US0_4
00:01:14 #2586 [verbose] > #endif
00:01:14 #2587 [verbose] >
00:01:14 #2588 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:14 #2589 [verbose] >
00:01:14 #2590 [verbose] > module SpiralAsync =
00:01:14 #2591 [verbose] > let merge_cancellation_token_with_default_async x ...
00:01:14 #2592 [verbose] >
00:01:14 #2593 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:14 #2594 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:14 #2595 [verbose] >
00:01:14 #2596 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:14 #2597 [verbose] > //// test
00:01:14 #2598 [verbose] >
00:01:14 #2599 [verbose] > type AssertExceptionFormatter (ex) =
00:01:14 #2600 [verbose] > member _.Text =
00:01:14 #2601 [verbose] > ex.ToString()
00:01:14 #2602 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:01:14 #2603 [verbose] > .Replace("36m", "</span>")
00:01:14 #2604 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:01:14 #2605 [verbose] > .Replace("\n", "<br/>\n")
00:01:14 #2606 [verbose] >
00:01:14 #2607 [verbose] >
00:01:14 #2608 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:14 #2609 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:14 #2610 [verbose] >
00:01:14 #2611 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:14 #2612 [verbose] > //// test
00:01:14 #2613 [verbose] >
00:01:14 #2614 [verbose] > let inline __expect fn log expected actual =
00:01:14 #2615 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:01:14 #2616 [verbose] > try
00:01:14 #2617 [verbose] > "Testing.__expect" |> fn actual expected
00:01:14 #2618 [verbose] > with :? Expecto.AssertException as ex ->
00:01:14 #2619 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:01:14 #2620 [verbose] > failwith (ex.GetType().FullName)
00:01:14 #2621 [verbose] >
00:01:14 #2622 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:14 #2623 [verbose] > expected actual
00:01:14 #2624 [verbose] > let inline _contains expected actual = __contains true expected actual
00:01:14 #2625 [verbose] >
00:01:14 #2626 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:14 #2627 [verbose] > expected actual
00:01:14 #2628 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:14 #2629 [verbose] >
00:01:14 #2630 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:01:14 #2631 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:01:15 #2632 [verbose] >
00:01:15 #2633 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:15 #2634 [verbose] > //// test
00:01:15 #2635 [verbose] >
00:01:15 #2636 [verbose] > let inline __isBetween log a b actual =
00:01:15 #2637 [verbose] > let inline isBetween actual (a, b) _ =
00:01:15 #2638 [verbose] > __isGreaterThanOrEqual log a actual
00:01:15 #2639 [verbose] > __isLessThanOrEqual log b actual
00:01:15 #2640 [verbose] > __expect isBetween log (a, b) actual
00:01:15 #2641 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:01:15 #2642 [verbose] >
00:01:15 #2643 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:15 #2644 [verbose] > #!import ../../lib/fsharp/Common.fs
00:01:15 #2645 [verbose] >
00:01:15 #2646 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:15 #2647 [verbose] > #if !INTERACTIVE
00:01:15 #2648 [verbose] > namespace Polyglot
00:01:15 #2649 [verbose] > #endif
00:01:15 #2650 [verbose] >
00:01:15 #2651 [verbose] > module Common =
00:01:15 #2652 [verbose] >
00:01:15 #2653 [verbose] > #if !INTERACTIVE
00:01:15 #2654 [verbose] > open Lib
00:01:15 #2655 [verbose] > #endif
00:01:15 #2656 [verbose] >
00:01:15 #2657 [verbose] > let nl = System.Environment.NewLine
00:01:15 #2658 [verbose] > let q = @""""
00:01:15 #2659 [verbose] >
00:01:15 #2660 [verbose] > let inline cons head tail = head :: tail
00:01:15 #2661 [verbose] >
00:01:15 #2662 [verbose] > /// ## memoize
00:01:15 #2663 [verbose] >
00:01:15 #2664 [verbose] > let inline memoize fn =
00:01:15 #2665 [verbose] > let result = lazy fn ()
00:01:15 #2666 [verbose] > fun () -> result.Value
00:01:15 #2667 [verbose] >
00:01:15 #2668 [verbose] > /// ## TraceLevel
00:01:15 #2669 [verbose] >
00:01:15 #2670 [verbose] > type TraceLevel =
00:01:15 #2671 [verbose] > | Verbose
00:01:15 #2672 [verbose] > | Debug
00:01:15 #2673 [verbose] > | Info
00:01:15 #2674 [verbose] > | Warning
00:01:15 #2675 [verbose] > | Critical
00:01:15 #2676 [verbose] >
00:01:15 #2677 [verbose] > let inline getLocals () = ""
00:01:15 #2678 [verbose] >
00:01:15 #2679 [verbose] > /// ## trace
00:01:15 #2680 [verbose] >
00:01:15 #2681 [verbose] > let to_trace_level = function
00:01:15 #2682 [verbose] > | Verbose -> SpiralTrace.US0_0
00:01:15 #2683 [verbose] > | Debug -> SpiralTrace.US0_1
00:01:15 #2684 [verbose] > | Info -> SpiralTrace.US0_2
00:01:15 #2685 [verbose] > | Warning -> SpiralTrace.US0_3
00:01:15 #2686 [verbose] > | Critical -> SpiralTrace.US0_4
00:01:15 #2687 [verbose] >
00:01:15 #2688 [verbose] > let trace level fn g...
00:01:15 #2689 [verbose] >
00:01:15 #2690 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:15 #2691 [verbose] > open Common
00:01:15 #2692 [verbose] >
00:01:15 #2693 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:15 #2694 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:15 #2695 [verbose] > │ ## newDisposableToken │
00:01:15 #2696 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:15 #2697 [verbose] >
00:01:15 #2698 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:15 #2699 [verbose] > let inline newDisposableToken (mergeToken: System.Threading.CancellationToken
00:01:15 #2700 [verbose] > option) =
00:01:15 #2701 [verbose] > let cts = new System.Threading.CancellationTokenSource ()
00:01:15 #2702 [verbose] > let cts =
00:01:15 #2703 [verbose] > match mergeToken with
00:01:15 #2704 [verbose] > | None -> cts
00:01:15 #2705 [verbose] > | Some mergeToken ->
00:01:15 #2706 [verbose] > System.Threading.CancellationTokenSource.CreateLinkedTokenSource [[|
00:01:15 #2707 [verbose] > cts.Token; mergeToken |]]
00:01:15 #2708 [verbose] > let disposable = new_disposable cts.Cancel
00:01:15 #2709 [verbose] > cts.Token, disposable
00:01:15 #2710 [verbose] >
00:01:15 #2711 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:15 #2712 [verbose] > //// test
00:01:15 #2713 [verbose] >
00:01:15 #2714 [verbose] > let mutable counter = 0
00:01:15 #2715 [verbose] >
00:01:15 #2716 [verbose] > let inline run fn =
00:01:15 #2717 [verbose] > let token, disposable = newDisposableToken None
00:01:15 #2718 [verbose] > use _ = disposable
00:01:15 #2719 [verbose] > fn token
00:01:15 #2720 [verbose] > async {
00:01:15 #2721 [verbose] > fn token
00:01:15 #2722 [verbose] > }
00:01:15 #2723 [verbose] > |> Async.Start
00:01:15 #2724 [verbose] >
00:01:15 #2725 [verbose] > let inline fn (token : System.Threading.CancellationToken) =
00:01:15 #2726 [verbose] > counter <- counter + (if token.IsCancellationRequested then 10 else 1)
00:01:15 #2727 [verbose] >
00:01:15 #2728 [verbose] > async {
00:01:15 #2729 [verbose] > run fn
00:01:15 #2730 [verbose] > do! Async.Sleep 10
00:01:15 #2731 [verbose] > return counter
00:01:15 #2732 [verbose] > }
00:01:15 #2733 [verbose] > |> Async.RunSynchronously
00:01:15 #2734 [verbose] > |> _assertEqual 11
00:01:15 #2735 [verbose] >
00:01:15 #2736 [verbose] > ╭─[ 114.04ms - stdout ]────────────────────────────────────────────────────────╮
00:01:15 #2737 [verbose] > │ 11 │
00:01:15 #2738 [verbose] > │ │
00:01:15 #2739 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:17 #2740 [verbose] > [NbConvertApp] Converting notebook Threading.dib.ipynb to html
00:01:17 #2741 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:17 #2742 [verbose] > validate(nb)
00:01:17 #2743 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:17 #2744 [verbose] > return _pygments_highlight(
00:01:17 #2745 [verbose] > [NbConvertApp] Writing 278606 bytes to Threading.dib.html
00:01:18 #2746 [debug] executeAsync / exitCode: 0 / output.Length: 14554
00:01:18 #2747 [debug] main / executeCommand / exitCode: 0
00:01:18 #2748 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 FileSystem.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:01:21 #2749 [verbose] >
00:01:21 #2750 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:21 #2751 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:21 #2752 [verbose] > │ # FileSystem (Polyglot) │
00:01:21 #2753 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:21 #2754 [verbose] >
00:01:21 #2755 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:21 #2756 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:01:21 #2757 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:01:21 #2758 [verbose] >
00:01:21 #2759 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:21 #2760 [verbose] > #r
00:01:21 #2761 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:21 #2762 [verbose] > spNetCore.Html.Abstractions.dll"
00:01:21 #2763 [verbose] > #r
00:01:21 #2764 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:21 #2765 [verbose] > otNet.Interactive.dll"
00:01:21 #2766 [verbose] > #r
00:01:21 #2767 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:21 #2768 [verbose] > otNet.Interactive.FSharp.dll"
00:01:21 #2769 [verbose] > #r
00:01:21 #2770 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:21 #2771 [verbose] > otNet.Interactive.Formatting.dll"
00:01:21 #2772 [verbose] > open System
00:01:21 #2773 [verbose] > open System.IO
00:01:21 #2774 [verbose] > open System.Text
00:01:21 #2775 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:01:24 #2776 [verbose] >
00:01:24 #2777 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:24 #2778 [verbose] > #r
00:01:24 #2779 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:24 #2780 [verbose] > otNet.Interactive.FSharp.dll"
00:01:24 #2781 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:01:24 #2782 [verbose] > #r
00:01:24 #2783 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:24 #2784 [verbose] > otNet.Interactive.dll"
00:01:24 #2785 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:01:24 #2786 [verbose] >
00:01:24 #2787 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:24 #2788 [verbose] > //// test
00:01:24 #2789 [verbose] >
00:01:24 #2790 [verbose] > Formatter.ListExpansionLimit <- 100
00:01:25 #2791 [verbose] >
00:01:25 #2792 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:25 #2793 [verbose] > type [[<Struct>]] US0 =
00:01:25 #2794 [verbose] > | US0_0
00:01:25 #2795 [verbose] > | US0_1
00:01:25 #2796 [verbose] > and [[<Struct>]] US1 =
00:01:25 #2797 [verbose] > | US1_0 of f0_0 : US0
00:01:25 #2798 [verbose] > | US1_1
00:01:25 #2799 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:01:25 #2800 [verbose] > let v1 : System.IDisposable option = None
00:01:25 #2801 [verbose] > let mutable _v1 = v1
00:01:25 #2802 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:25 #2803 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:25 #2804 [verbose] > v2
00:01:25 #2805 [verbose] > #endif
00:01:25 #2806 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:25 #2807 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:25 #2808 [verbose] > v3
00:01:25 #2809 [verbose] > #endif
00:01:25 #2810 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:25 #2811 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:01:25 #2812 [verbose] > v4
00:01:25 #2813 [verbose] > #endif
00:01:25 #2814 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:01:25 #2815 [verbose] > !WASM && !CONTRACT
00:01:25 #2816 [verbose] > let v5 : System.ID...
00:01:26 #2817 [verbose] >
00:01:26 #2818 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:26 #2819 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:01:26 #2820 [verbose] > and Mut1 = {mutable l0 : int32}
00:01:26 #2821 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:01:26 #2822 [verbose] > let v2 : bool = v1.Contains v0
00:01:26 #2823 [verbose] > v2
00:01:26 #2824 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:01:26 #2825 [verbose] > closure1(v0)
00:01:26 #2826 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:01:26 #2827 [verbose] > let v2 : bool = v1.EndsWith v0
00:01:26 #2828 [verbose] > v2
00:01:26 #2829 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:01:26 #2830 [verbose] > closure3(v0)
00:01:26 #2831 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:01:26 #2832 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:01:26 #2833 [verbose] > v3
00:01:26 #2834 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:01:26 #2835 [verbose] > closure6(v0, v1)
00:01:26 #2836 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:01:26 #2837 [verbose] > closure5(v0)
00:01:26 #2838 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:01:26 #2839 [verbose] > let v2 : stri...
00:01:26 #2840 [verbose] >
00:01:26 #2841 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:26 #2842 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:01:26 #2843 [verbose] > type Mut0 = {mutable l0 : int32}
00:01:26 #2844 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:01:26 #2845 [verbose] > let v2 : int32 = v1.l0
00:01:26 #2846 [verbose] > let v3 : bool = v2 < v0
00:01:26 #2847 [verbose] > v3
00:01:26 #2848 [verbose] > and closure0 () (v0 : string) : string =
00:01:26 #2849 [verbose] > let v1 : string option = None
00:01:26 #2850 [verbose] > let mutable _v1 = v1
00:01:26 #2851 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:26 #2852 [verbose] > let v2 : string = null |> unbox<string>
00:01:26 #2853 [verbose] > v2
00:01:26 #2854 [verbose] > #endif
00:01:26 #2855 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:26 #2856 [verbose] > let v3 : string = null |> unbox<string>
00:01:26 #2857 [verbose] > v3
00:01:26 #2858 [verbose] > #endif
00:01:26 #2859 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:26 #2860 [verbose] > let v4 : string = null |> unbox<string>
00:01:26 #2861 [verbose] > v4
00:01:26 #2862 [verbose] > #endif
00:01:26 #2863 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:01:26 #2864 [verbose] > !WASM && !CONTRACT
00:01:26 #2865 [verbose] > let v5 : (unit -> System...
00:01:26 #2866 [verbose] >
00:01:26 #2867 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:26 #2868 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:01:26 #2869 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:01:26 #2870 [verbose] > let v3 : string = v2 v0
00:01:26 #2871 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:01:26 #2872 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:01:26 #2873 [verbose] > v5
00:01:26 #2874 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:01:26 #2875 [verbose] > closure1(v0)
00:01:26 #2876 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:01:26 #2877 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:01:26 #2878 [verbose] > v3
00:01:26 #2879 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:01:26 #2880 [verbose] > closure5(v0, v1)
00:01:26 #2881 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:01:26 #2882 [verbose] > closure4(v0)
00:01:26 #2883 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:01:26 #2884 [verbose] > closure3()
00:01:26 #2885 [verbose] > and closure2 (...
00:01:27 #2886 [verbose] >
00:01:27 #2887 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:27 #2888 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:01:27 #2889 [verbose] > Async<System.Threading.CancellationToken> =
00:01:27 #2890 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:01:27 #2891 [verbose] > let mutable _v1 = v1
00:01:27 #2892 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:27 #2893 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:01:27 #2894 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:27 #2895 [verbose] > v2
00:01:27 #2896 [verbose] > #endif
00:01:27 #2897 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:27 #2898 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:01:27 #2899 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:27 #2900 [verbose] > v3
00:01:27 #2901 [verbose] > #endif
00:01:27 #2902 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:27 #2903 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:01:27 #2904 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:01:27 #2905 [verbose] > v4
00:01:27 #2906 [verbose] > #endif
00:01:27 #2907 [verbose] > #if !FABLE_COMPILER...
00:01:27 #2908 [verbose] >
00:01:27 #2909 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:27 #2910 [verbose] > let rec closure0 () () : bool =
00:01:27 #2911 [verbose] > let v0 : bool option = None
00:01:27 #2912 [verbose] > let mutable _v0 = v0
00:01:27 #2913 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:01:27 #2914 [verbose] > let v1 : bool = null |> unbox<bool>
00:01:27 #2915 [verbose] > v1
00:01:27 #2916 [verbose] > #endif
00:01:27 #2917 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:01:27 #2918 [verbose] > let v2 : bool = null |> unbox<bool>
00:01:27 #2919 [verbose] > v2
00:01:27 #2920 [verbose] > #endif
00:01:27 #2921 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:01:27 #2922 [verbose] > let v3 : bool = null |> unbox<bool>
00:01:27 #2923 [verbose] > v3
00:01:27 #2924 [verbose] > #endif
00:01:27 #2925 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:01:27 #2926 [verbose] > !WASM && !CONTRACT
00:01:27 #2927 [verbose] > let v4 : System.Runtime.InteropServices.OSPlatform =
00:01:27 #2928 [verbose] > System.Runtime.InteropServices.OSPlatform.Windows
00:01:27 #2929 [verbose] > let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:01:27 #2930 [verbose] > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:01:27 #2931 [verbose] > let v6 : bool = v...
00:01:27 #2932 [verbose] >
00:01:27 #2933 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:27 #2934 [verbose] > #if FABLE_COMPILER // file_system.types
00:01:27 #2935 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:01:27 #2936 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:01:27 #2937 [verbose] > base64_DecodeError = class end
00:01:27 #2938 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:01:27 #2939 [verbose] > = class end
00:01:27 #2940 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:01:27 #2941 [verbose] > = class end
00:01:27 #2942 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:01:27 #2943 [verbose] > serde_json_Error = class end
00:01:27 #2944 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:01:27 #2945 [verbose] > serde_json_Value = class end
00:01:27 #2946 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:01:27 #2947 [verbose] > serde_wasm_bindgen_Error = class end
00:01:27 #2948 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:01:28 #2949 [verbose] >
00:01:28 #2950 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:28 #2951 [verbose] > module State = let mutable trace_state = None
00:01:28 #2952 [verbose] > type [[<Struct>]] US0 =
00:01:28 #2953 [verbose] > | US0_0
00:01:28 #2954 [verbose] > | US0_1
00:01:28 #2955 [verbose] > | US0_2
00:01:28 #2956 [verbose] > | US0_3
00:01:28 #2957 [verbose] > | US0_4
00:01:28 #2958 [verbose] > and Mut0 = {mutable l0 : int64}
00:01:28 #2959 [verbose] > and Mut1 = {mutable l0 : bool}
00:01:28 #2960 [verbose] > and Mut2 = {mutable l0 : US0}
00:01:28 #2961 [verbose] > and [[<Struct>]] US1 =
00:01:28 #2962 [verbose] > | US1_0 of f0_0 : int64
00:01:28 #2963 [verbose] > | US1_1
00:01:28 #2964 [verbose] > and [[<Struct>]] US2 =
00:01:28 #2965 [verbose] > | US2_0 of f0_0 : int64
00:01:28 #2966 [verbose] > | US2_1
00:01:28 #2967 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:01:28 #2968 [verbose] > v0
00:01:28 #2969 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:01:28 #2970 [verbose] > v0
00:01:28 #2971 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:01:28 #2972 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:01:28 #2973 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:01:28 #2974 [verbose] > let v2 : US0 = US0_0
00:01:28 #2975 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:01:28 #2976 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:01:28 #2977 [verbose] > let v5 : int64 option option = None
00:01:28 #2978 [verbose] > ...
00:01:29 #2979 [verbose] >
00:01:29 #2980 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 #2981 [verbose] > module SpiralTrace =
00:01:29 #2982 [verbose] > let get_trace_state () =
00:01:29 #2983 [verbose] > #if !INTERACTIVE
00:01:29 #2984 [verbose] > Trace.get_trace_state ()
00:01:29 #2985 [verbose] > #else
00:01:29 #2986 [verbose] > get_trace_state ()
00:01:29 #2987 [verbose] > #endif
00:01:29 #2988 [verbose] > let trace x =
00:01:29 #2989 [verbose] > #if !INTERACTIVE
00:01:29 #2990 [verbose] > Trace.trace x
00:01:29 #2991 [verbose] > #else
00:01:29 #2992 [verbose] > trace x
00:01:29 #2993 [verbose] > #endif
00:01:29 #2994 [verbose] >
00:01:29 #2995 [verbose] > let US0_0 =
00:01:29 #2996 [verbose] > #if !INTERACTIVE
00:01:29 #2997 [verbose] > Trace.US0_0
00:01:29 #2998 [verbose] > #else
00:01:29 #2999 [verbose] > US0_0
00:01:29 #3000 [verbose] > #endif
00:01:29 #3001 [verbose] >
00:01:29 #3002 [verbose] > let US0_1 =
00:01:29 #3003 [verbose] > #if !INTERACTIVE
00:01:29 #3004 [verbose] > Trace.US0_1
00:01:29 #3005 [verbose] > #else
00:01:29 #3006 [verbose] > US0_1
00:01:29 #3007 [verbose] > #endif
00:01:29 #3008 [verbose] >
00:01:29 #3009 [verbose] > let US0_2 =
00:01:29 #3010 [verbose] > #if !INTERACTIVE
00:01:29 #3011 [verbose] > Trace.US0_2
00:01:29 #3012 [verbose] > #else
00:01:29 #3013 [verbose] > US0_2
00:01:29 #3014 [verbose] > #endif
00:01:29 #3015 [verbose] >
00:01:29 #3016 [verbose] > let US0_3 =
00:01:29 #3017 [verbose] > #if !INTERACTIVE
00:01:29 #3018 [verbose] > Trace.US0_3
00:01:29 #3019 [verbose] > #else
00:01:29 #3020 [verbose] > US0_3
00:01:29 #3021 [verbose] > #endif
00:01:29 #3022 [verbose] >
00:01:29 #3023 [verbose] > let US0_4 =
00:01:29 #3024 [verbose] > #if !INTERACTIVE
00:01:29 #3025 [verbose] > Trace.US0_4
00:01:29 #3026 [verbose] > #else
00:01:29 #3027 [verbose] > US0_4
00:01:29 #3028 [verbose] > #endif
00:01:29 #3029 [verbose] >
00:01:29 #3030 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:01:29 #3031 [verbose] >
00:01:29 #3032 [verbose] > module SpiralAsync =
00:01:29 #3033 [verbose] > let merge_cancellation_token_with_default_async x ...
00:01:29 #3034 [verbose] >
00:01:29 #3035 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 #3036 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:01:29 #3037 [verbose] >
00:01:29 #3038 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 #3039 [verbose] > //// test
00:01:29 #3040 [verbose] >
00:01:29 #3041 [verbose] > type AssertExceptionFormatter (ex) =
00:01:29 #3042 [verbose] > member _.Text =
00:01:29 #3043 [verbose] > ex.ToString()
00:01:29 #3044 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:01:29 #3045 [verbose] > .Replace("36m", "</span>")
00:01:29 #3046 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:01:29 #3047 [verbose] > .Replace("\n", "<br/>\n")
00:01:29 #3048 [verbose] >
00:01:29 #3049 [verbose] >
00:01:29 #3050 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:01:29 #3051 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:01:29 #3052 [verbose] >
00:01:29 #3053 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 #3054 [verbose] > //// test
00:01:29 #3055 [verbose] >
00:01:29 #3056 [verbose] > let inline __expect fn log expected actual =
00:01:29 #3057 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:01:29 #3058 [verbose] > try
00:01:29 #3059 [verbose] > "Testing.__expect" |> fn actual expected
00:01:29 #3060 [verbose] > with :? Expecto.AssertException as ex ->
00:01:29 #3061 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:01:29 #3062 [verbose] > failwith (ex.GetType().FullName)
00:01:29 #3063 [verbose] >
00:01:29 #3064 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:01:29 #3065 [verbose] > expected actual
00:01:29 #3066 [verbose] > let inline _contains expected actual = __contains true expected actual
00:01:29 #3067 [verbose] >
00:01:29 #3068 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:01:29 #3069 [verbose] > expected actual
00:01:29 #3070 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:01:29 #3071 [verbose] >
00:01:29 #3072 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:01:29 #3073 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:01:29 #3074 [verbose] >
00:01:29 #3075 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 #3076 [verbose] > //// test
00:01:29 #3077 [verbose] >
00:01:29 #3078 [verbose] > let inline __isBetween log a b actual =
00:01:29 #3079 [verbose] > let inline isBetween actual (a, b) _ =
00:01:29 #3080 [verbose] > __isGreaterThanOrEqual log a actual
00:01:29 #3081 [verbose] > __isLessThanOrEqual log b actual
00:01:29 #3082 [verbose] > __expect isBetween log (a, b) actual
00:01:29 #3083 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:01:29 #3084 [verbose] >
00:01:29 #3085 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:29 #3086 [verbose] > #r
00:01:29 #3087 [verbose] > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:01:29 #3088 [verbose] > dard2.1/FSharp.Control.AsyncSeq.dll"
00:01:29 #3089 [verbose] > #r
00:01:29 #3090 [verbose] > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:01:29 #3091 [verbose] > 0/System.Reactive.dll"
00:01:29 #3092 [verbose] > #r
00:01:29 #3093 [verbose] > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:01:29 #3094 [verbose] > netstandard2.0/System.Reactive.Linq.dll"
00:01:29 #3095 [verbose] > #r
00:01:29 #3096 [verbose] > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:01:29 #3097 [verbose] > #r
00:01:29 #3098 [verbose] > @"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
00:01:29 #3099 [verbose] > b/net6.0/System.CommandLine.dll"
00:01:29 #3100 [verbose] >
00:01:29 #3101 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:29 #3102 [verbose] > #!import ../../lib/fsharp/Common.fs
00:01:29 #3103 [verbose] > #!import ../../lib/fsharp/CommonFSharp.fs
00:01:29 #3104 [verbose] > #!import ../../lib/fsharp/Async.fs
00:01:29 #3105 [verbose] > #!import ../../lib/fsharp/AsyncSeq.fs
00:01:29 #3106 [verbose] > #!import ../../lib/fsharp/Runtime.fs
00:01:29 #3107 [verbose] >
00:01:29 #3108 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 #3109 [verbose] > #if !INTERACTIVE
00:01:29 #3110 [verbose] > namespace Polyglot
00:01:29 #3111 [verbose] > #endif
00:01:29 #3112 [verbose] >
00:01:29 #3113 [verbose] > module Common =
00:01:29 #3114 [verbose] >
00:01:29 #3115 [verbose] > #if !INTERACTIVE
00:01:29 #3116 [verbose] > open Lib
00:01:29 #3117 [verbose] > #endif
00:01:29 #3118 [verbose] >
00:01:29 #3119 [verbose] > let nl = System.Environment.NewLine
00:01:29 #3120 [verbose] > let q = @""""
00:01:29 #3121 [verbose] >
00:01:29 #3122 [verbose] > let inline cons head tail = head :: tail
00:01:29 #3123 [verbose] >
00:01:29 #3124 [verbose] > /// ## memoize
00:01:29 #3125 [verbose] >
00:01:29 #3126 [verbose] > let inline memoize fn =
00:01:29 #3127 [verbose] > let result = lazy fn ()
00:01:29 #3128 [verbose] > fun () -> result.Value
00:01:29 #3129 [verbose] >
00:01:29 #3130 [verbose] > /// ## TraceLevel
00:01:29 #3131 [verbose] >
00:01:29 #3132 [verbose] > type TraceLevel =
00:01:29 #3133 [verbose] > | Verbose
00:01:29 #3134 [verbose] > | Debug
00:01:29 #3135 [verbose] > | Info
00:01:29 #3136 [verbose] > | Warning
00:01:29 #3137 [verbose] > | Critical
00:01:29 #3138 [verbose] >
00:01:29 #3139 [verbose] > let inline getLocals () = ""
00:01:29 #3140 [verbose] >
00:01:29 #3141 [verbose] > /// ## trace
00:01:29 #3142 [verbose] >
00:01:29 #3143 [verbose] > let to_trace_level = function
00:01:29 #3144 [verbose] > | Verbose -> SpiralTrace.US0_0
00:01:29 #3145 [verbose] > | Debug -> SpiralTrace.US0_1
00:01:29 #3146 [verbose] > | Info -> SpiralTrace.US0_2
00:01:29 #3147 [verbose] > | Warning -> SpiralTrace.US0_3
00:01:29 #3148 [verbose] > | Critical -> SpiralTrace.US0_4
00:01:29 #3149 [verbose] >
00:01:29 #3150 [verbose] > let trace level fn g...
00:01:29 #3151 [verbose] >
00:01:29 #3152 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 #3153 [verbose] > #if !INTERACTIVE
00:01:29 #3154 [verbose] > namespace Polyglot
00:01:29 #3155 [verbose] > #endif
00:01:29 #3156 [verbose] >
00:01:29 #3157 [verbose] > module CommonFSharp =
00:01:29 #3158 [verbose] >
00:01:29 #3159 [verbose] > open Common
00:01:29 #3160 [verbose] >
00:01:29 #3161 [verbose] > /// ## getUnionCaseName
00:01:29 #3162 [verbose] >
00:01:29 #3163 [verbose] > let inline getUnionCaseName<'T> (x: 'T) =
00:01:29 #3164 [verbose] > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:01:29 #3165 [verbose] > | case, _ -> case.Name
00:01:29 #3166 [verbose] >
00:01:29 #3167 [verbose] >
00:01:29 #3168 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:29 #3169 [verbose] > #if !INTERACTIVE
00:01:29 #3170 [verbose] > namespace Polyglot
00:01:29 #3171 [verbose] > #endif
00:01:29 #3172 [verbose] >
00:01:29 #3173 [verbose] > module Async =
00:01:29 #3174 [verbose] >
00:01:29 #3175 [verbose] > #if !INTERACTIVE
00:01:29 #3176 [verbose] > open Lib
00:01:29 #3177 [verbose] > #endif
00:01:29 #3178 [verbose] >
00:01:29 #3179 [verbose] > open Common
00:01:29 #3180 [verbose] >
00:01:29 #3181 [verbose] > /// ## choice
00:01:29 #3182 [verbose] >
00:01:29 #3183 [verbose] > let inline choice asyncs = async {
00:01:29 #3184 [verbose] > let e = Event<_> ()
00:01:29 #3185 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:01:29 #3186 [verbose] > let fn =
00:01:29 #3187 [verbose] > asyncs
00:01:29 #3188 [verbose] > |> Seq.map (fun a -> async {
00:01:29 #3189 [verbose] > let! x = a
00:01:29 #3190 [verbose] > e.Trigger x
00:01:29 #3191 [verbose] > })
00:01:29 #3192 [verbose] > |> Async.Parallel
00:01:29 #3193 [verbose] > |> Async.Ignore
00:01:29 #3194 [verbose] > Async.Start (fn, cts.Token)
00:01:29 #3195 [verbose] > let! result = Async.AwaitEvent e.Publish
00:01:29 #3196 [verbose] > cts.Cancel ()
00:01:29 #3197 [verbose] > return result
00:01:29 #3198 [verbose] > }
00:01:29 #3199 [verbose] >
00:01:29 #3200 [verbose] > /// ## map
00:01:29 #3201 [verbose] >
00:01:29 #3202 [verbose] > let inline map fn a = async {
00:01:29 #3203 [verbose] > let! x = a
00:01:29 #3204 [verbose] > return fn x
00:01:29 #3205 [verbose] > }
00:01:29 #3206 [verbose] >
00:01:29 #3207 [verbose] > /// ## catch
00:01:29 #3208 [verbose] >
00:01:29 #3209 [verbose] > let inline catch a =
00:01:29 #3210 [verbose] > ...
00:01:30 #3211 [verbose] >
00:01:30 #3212 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:30 #3213 [verbose] > #if !INTERACTIVE
00:01:30 #3214 [verbose] > namespace Polyglot
00:01:30 #3215 [verbose] > #endif
00:01:30 #3216 [verbose] >
00:01:30 #3217 [verbose] > module AsyncSeq =
00:01:30 #3218 [verbose] >
00:01:30 #3219 [verbose] > #if !INTERACTIVE
00:01:30 #3220 [verbose] > open Lib
00:01:30 #3221 [verbose] > #endif
00:01:30 #3222 [verbose] >
00:01:30 #3223 [verbose] > open Common
00:01:30 #3224 [verbose] >
00:01:30 #3225 [verbose] > /// ## subscribeEvent
00:01:30 #3226 [verbose] >
00:01:30 #3227 [verbose] > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:01:30 #3228 [verbose] > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:01:30 #3229 [verbose] > 'A>(event.AddHandler, event.RemoveHandler)
00:01:30 #3230 [verbose] > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:01:30 #3231 [verbose] > event.EventArgs)
00:01:30 #3232 [verbose] > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:01:30 #3233 [verbose] >
00:01:30 #3234 [verbose] > let subscribeToken (token : System.Threading.CancellationToken) =
00:01:30 #3235 [verbose] > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:01:30 #3236 [verbose] > System.Action tcs.SetResult |> token.Register |> ignore
00:01:30 #3237 [verbose] > let start = System.DateTime.Now.Ticks
00:01:30 #3238 [verbose] > FSharp.Control.A...
00:01:30 #3239 [verbose] >
00:01:30 #3240 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:30 #3241 [verbose] > #if !INTERACTIVE
00:01:30 #3242 [verbose] > namespace Polyglot
00:01:30 #3243 [verbose] > #endif
00:01:30 #3244 [verbose] >
00:01:30 #3245 [verbose] > module Runtime =
00:01:30 #3246 [verbose] >
00:01:30 #3247 [verbose] > #if !INTERACTIVE
00:01:30 #3248 [verbose] > open Lib
00:01:30 #3249 [verbose] > #endif
00:01:30 #3250 [verbose] >
00:01:30 #3251 [verbose] > open Common
00:01:30 #3252 [verbose] >
00:01:30 #3253 [verbose] > /// ## splitCommand
00:01:30 #3254 [verbose] >
00:01:30 #3255 [verbose] > type private CommandParseStep =
00:01:30 #3256 [verbose] > | Start
00:01:30 #3257 [verbose] > | Path of quoted: bool
00:01:30 #3258 [verbose] > | Arguments
00:01:30 #3259 [verbose] >
00:01:30 #3260 [verbose] > let splitCommand (command: string) =
00:01:30 #3261 [verbose] > let rec loop (path, args) chars step =
00:01:30 #3262 [verbose] > match chars, step with
00:01:30 #3263 [verbose] > | ('"' | '\'') :: tail, _ when path = "" -> loop (path, args) tail
00:01:30 #3264 [verbose] > (Path true)
00:01:30 #3265 [verbose] > | ('"' | '\'') :: tail, Path true -> loop (path, args) tail (Path
00:01:30 #3266 [verbose] > false)
00:01:30 #3267 [verbose] > | ' ' :: tail, Path true -> loop ($"{path} ", args) tail (Path true)
00:01:30 #3268 [verbose] > | ' ' :: tail, (Start | Path _) -> loop (path, args) tail Arguments
00:01:30 #3269 [verbose] > | char :: tail, Arguments -> loo...
00:01:31 #3270 [verbose] >
00:01:31 #3271 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:31 #3272 [verbose] > #if !INTERACTIVE
00:01:31 #3273 [verbose] > open Lib
00:01:31 #3274 [verbose] > #endif
00:01:31 #3275 [verbose] >
00:01:31 #3276 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:31 #3277 [verbose] > open Common
00:01:31 #3278 [verbose] > open SpiralFileSystem.Operators
00:01:31 #3279 [verbose] >
00:01:31 #3280 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:31 #3281 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:31 #3282 [verbose] > │ ## watchDirectory │
00:01:31 #3283 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 #3284 [verbose] >
00:01:31 #3285 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:31 #3286 [verbose] > [[<RequireQualifiedAccess>]]
00:01:31 #3287 [verbose] > type FileSystemChangeType =
00:01:31 #3288 [verbose] > | Failure
00:01:31 #3289 [verbose] > | Changed
00:01:31 #3290 [verbose] > | Created
00:01:31 #3291 [verbose] > | Deleted
00:01:31 #3292 [verbose] > | Renamed
00:01:31 #3293 [verbose] >
00:01:31 #3294 [verbose] > [[<RequireQualifiedAccess>]]
00:01:31 #3295 [verbose] > type FileSystemChange =
00:01:31 #3296 [verbose] > | Failure of exn: exn
00:01:31 #3297 [verbose] > | Changed of path: string * content: string option
00:01:31 #3298 [verbose] > | Created of path: string * content: string option
00:01:31 #3299 [verbose] > | Deleted of path: string
00:01:31 #3300 [verbose] > | Renamed of oldPath: string * (string * string option)
00:01:31 #3301 [verbose] >
00:01:31 #3302 [verbose] >
00:01:31 #3303 [verbose] > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:01:31 #3304 [verbose] > let fullPath = path |> System.IO.Path.GetFullPath
00:01:31 #3305 [verbose] > let getLocals () = $"filter: {filter} / {getLocals ()}"
00:01:31 #3306 [verbose] >
00:01:31 #3307 [verbose] > let watcher =
00:01:31 #3308 [verbose] > new System.IO.FileSystemWatcher (
00:01:31 #3309 [verbose] > Path = fullPath,
00:01:31 #3310 [verbose] > NotifyFilter = filter,
00:01:31 #3311 [verbose] > EnableRaisingEvents = true,
00:01:31 #3312 [verbose] > IncludeSubdirectories = true
00:01:31 #3313 [verbose] > )
00:01:31 #3314 [verbose] >
00:01:31 #3315 [verbose] > let inline getEventPath (path : string) =
00:01:31 #3316 [verbose] > path |> SpiralSm.trim |> SpiralSm.replace fullPath "" |>
00:01:31 #3317 [verbose] > SpiralSm.trim_start [[| '/'; '\\' |]]
00:01:31 #3318 [verbose] >
00:01:31 #3319 [verbose] > let inline ticks () =
00:01:31 #3320 [verbose] > System.DateTime.UtcNow.Ticks
00:01:31 #3321 [verbose] >
00:01:31 #3322 [verbose] > let changedStream =
00:01:31 #3323 [verbose] > AsyncSeq.subscribeEvent
00:01:31 #3324 [verbose] > watcher.Changed
00:01:31 #3325 [verbose] > (fun event ->
00:01:31 #3326 [verbose] > ticks (),
00:01:31 #3327 [verbose] > [[ FileSystemChange.Changed (getEventPath event.FullPath, None)
00:01:31 #3328 [verbose] > ]]
00:01:31 #3329 [verbose] > )
00:01:31 #3330 [verbose] >
00:01:31 #3331 [verbose] > let deletedStream =
00:01:31 #3332 [verbose] > AsyncSeq.subscribeEvent
00:01:31 #3333 [verbose] > watcher.Deleted
00:01:31 #3334 [verbose] > (fun event ->
00:01:31 #3335 [verbose] > ticks (),
00:01:31 #3336 [verbose] > [[ FileSystemChange.Deleted (getEventPath event.FullPath) ]]
00:01:31 #3337 [verbose] > )
00:01:31 #3338 [verbose] >
00:01:31 #3339 [verbose] > let createdStream =
00:01:31 #3340 [verbose] > AsyncSeq.subscribeEvent
00:01:31 #3341 [verbose] > watcher.Created
00:01:31 #3342 [verbose] > (fun event ->
00:01:31 #3343 [verbose] > let path = getEventPath event.FullPath
00:01:31 #3344 [verbose] > ticks (), [[
00:01:31 #3345 [verbose] > FileSystemChange.Created (path, None)
00:01:31 #3346 [verbose] > if SpiralRuntime.is_windows () then
00:01:31 #3347 [verbose] > FileSystemChange.Changed (path, None)
00:01:31 #3348 [verbose] > ]])
00:01:31 #3349 [verbose] >
00:01:31 #3350 [verbose] > let renamedStream =
00:01:31 #3351 [verbose] > AsyncSeq.subscribeEvent
00:01:31 #3352 [verbose] > watcher.Renamed
00:01:31 #3353 [verbose] > (fun event ->
00:01:31 #3354 [verbose] > ticks (), [[
00:01:31 #3355 [verbose] > FileSystemChange.Renamed (
00:01:31 #3356 [verbose] > getEventPath event.OldFullPath,
00:01:31 #3357 [verbose] > (getEventPath event.FullPath, None)
00:01:31 #3358 [verbose] > )
00:01:31 #3359 [verbose] > ]]
00:01:31 #3360 [verbose] > )
00:01:31 #3361 [verbose] >
00:01:31 #3362 [verbose] > let failureStream =
00:01:31 #3363 [verbose] > AsyncSeq.subscribeEvent
00:01:31 #3364 [verbose] > watcher.Error
00:01:31 #3365 [verbose] > (fun event -> ticks (), [[ FileSystemChange.Failure
00:01:31 #3366 [verbose] > (event.GetException ()) ]])
00:01:31 #3367 [verbose] >
00:01:31 #3368 [verbose] > let stream =
00:01:31 #3369 [verbose] > [[
00:01:31 #3370 [verbose] > changedStream
00:01:31 #3371 [verbose] > deletedStream
00:01:31 #3372 [verbose] > createdStream
00:01:31 #3373 [verbose] > renamedStream
00:01:31 #3374 [verbose] > failureStream
00:01:31 #3375 [verbose] > ]]
00:01:31 #3376 [verbose] > |> FSharp.Control.AsyncSeq.mergeAll
00:01:31 #3377 [verbose] > |> FSharp.Control.AsyncSeq.map (fun (t, events) ->
00:01:31 #3378 [verbose] > events
00:01:31 #3379 [verbose] > |> List.fold
00:01:31 #3380 [verbose] > (fun (i, events) event ->
00:01:31 #3381 [verbose] > i + 1L,
00:01:31 #3382 [verbose] > (t + i, event) :: events)
00:01:31 #3383 [verbose] > (0L, [[]])
00:01:31 #3384 [verbose] > |> snd
00:01:31 #3385 [verbose] > |> List.rev
00:01:31 #3386 [verbose] > )
00:01:31 #3387 [verbose] > |> FSharp.Control.AsyncSeq.concatSeq
00:01:31 #3388 [verbose] > |> FSharp.Control.AsyncSeq.mapAsyncParallel (fun (t, event) -> async {
00:01:31 #3389 [verbose] > match shouldReadContent event, event with
00:01:31 #3390 [verbose] > | true, FileSystemChange.Changed (path, _) ->
00:01:31 #3391 [verbose] > do! Async.Sleep 5
00:01:31 #3392 [verbose] > let! content = fullPath </> path |>
00:01:31 #3393 [verbose] > SpiralFileSystem.read_all_text_retry_async
00:01:31 #3394 [verbose] > return t, FileSystemChange.Changed (path, content)
00:01:31 #3395 [verbose] > | true, FileSystemChange.Created (path, _) ->
00:01:31 #3396 [verbose] > do! Async.Sleep 5
00:01:31 #3397 [verbose] > let! content = fullPath </> path |>
00:01:31 #3398 [verbose] > SpiralFileSystem.read_all_text_retry_async
00:01:31 #3399 [verbose] > return t, FileSystemChange.Created (path, content)
00:01:31 #3400 [verbose] > | true, FileSystemChange.Renamed (oldPath, (newPath, _)) ->
00:01:31 #3401 [verbose] > let! content = fullPath </> newPath |>
00:01:31 #3402 [verbose] > SpiralFileSystem.read_all_text_retry_async
00:01:31 #3403 [verbose] > return t, FileSystemChange.Renamed (oldPath, (newPath, content))
00:01:31 #3404 [verbose] > | _ -> return t, event
00:01:31 #3405 [verbose] > })
00:01:31 #3406 [verbose] >
00:01:31 #3407 [verbose] > let disposable =
00:01:31 #3408 [verbose] > new_disposable (fun () ->
00:01:31 #3409 [verbose] > trace Debug (fun () -> "watchWithFilter / Disposing watch stream")
00:01:31 #3410 [verbose] > getLocals
00:01:31 #3411 [verbose] > watcher.EnableRaisingEvents <- false
00:01:31 #3412 [verbose] > watcher.Dispose ()
00:01:31 #3413 [verbose] > )
00:01:31 #3414 [verbose] >
00:01:31 #3415 [verbose] > stream, disposable
00:01:31 #3416 [verbose] >
00:01:31 #3417 [verbose] > let inline watchDirectory path =
00:01:31 #3418 [verbose] > watchDirectoryWithFilter
00:01:31 #3419 [verbose] > (System.IO.NotifyFilters.FileName
00:01:31 #3420 [verbose] > // ||| System.IO.NotifyFilters.DirectoryName
00:01:31 #3421 [verbose] > // ||| System.IO.NotifyFilters.Attributes
00:01:31 #3422 [verbose] > //// ||| System.IO.NotifyFilters.Size
00:01:31 #3423 [verbose] > ||| System.IO.NotifyFilters.LastWrite
00:01:31 #3424 [verbose] > //// ||| System.IO.NotifyFilters.LastAccess
00:01:31 #3425 [verbose] > // ||| System.IO.NotifyFilters.CreationTime
00:01:31 #3426 [verbose] > // ||| System.IO.NotifyFilters.Security
00:01:31 #3427 [verbose] > )
00:01:31 #3428 [verbose] > path
00:01:31 #3429 [verbose] >
00:01:31 #3430 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:31 #3431 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:31 #3432 [verbose] > │ ### testEventsRaw (test) │
00:01:31 #3433 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 #3434 [verbose] >
00:01:31 #3435 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:31 #3436 [verbose] > //// test
00:01:31 #3437 [verbose] >
00:01:31 #3438 [verbose] > let inline testEventsRaw
00:01:31 #3439 [verbose] > (watchFn : (_ -> bool) -> string -> FSharp.Control.AsyncSeq<int64 *
00:01:31 #3440 [verbose] > FileSystemChange> * IDisposable)
00:01:31 #3441 [verbose] > write
00:01:31 #3442 [verbose] > =
00:01:31 #3443 [verbose] > let struct (tempDir, tempDisposable) =
00:01:31 #3444 [verbose] > SpiralFileSystem.create_temp_directory ()
00:01:31 #3445 [verbose] > let stream, disposable = watchFn (fun _ -> true) tempDir
00:01:31 #3446 [verbose] >
00:01:31 #3447 [verbose] > let events = System.Collections.Concurrent.ConcurrentBag ()
00:01:31 #3448 [verbose] >
00:01:31 #3449 [verbose] > let inline iter () =
00:01:31 #3450 [verbose] > stream
00:01:31 #3451 [verbose] > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun event -> async {
00:01:31 #3452 [verbose] > events.Add event })
00:01:31 #3453 [verbose] >
00:01:31 #3454 [verbose] > let run = async {
00:01:31 #3455 [verbose] > let! _ = iter () |> Async.StartChild
00:01:31 #3456 [verbose] > do! Async.Sleep 250
00:01:31 #3457 [verbose] > return! write tempDir
00:01:31 #3458 [verbose] > }
00:01:31 #3459 [verbose] >
00:01:31 #3460 [verbose] > try
00:01:31 #3461 [verbose] > run
00:01:31 #3462 [verbose] > |> Async.runWithTimeout 60000
00:01:31 #3463 [verbose] > |> _assertEqual (Some ())
00:01:31 #3464 [verbose] > finally
00:01:31 #3465 [verbose] > disposable.Dispose ()
00:01:31 #3466 [verbose] > tempDisposable.Dispose ()
00:01:31 #3467 [verbose] >
00:01:31 #3468 [verbose] > let eventsLog =
00:01:31 #3469 [verbose] > events
00:01:31 #3470 [verbose] > |> Seq.toList
00:01:31 #3471 [verbose] > |> List.sortBy fst
00:01:31 #3472 [verbose] > |> List.fold
00:01:31 #3473 [verbose] > (fun (prev, acc) (ticks, event) ->
00:01:31 #3474 [verbose] > ticks, (ticks, (if prev = 0L then 0L else ticks - prev), event)
00:01:31 #3475 [verbose] > :: acc
00:01:31 #3476 [verbose] > )
00:01:31 #3477 [verbose] > (0L, [[]])
00:01:31 #3478 [verbose] > |> snd
00:01:31 #3479 [verbose] > |> List.rev
00:01:31 #3480 [verbose] > |> List.map (fun (diff, n, event) -> $"{n} / {diff} / {event}" |>
00:01:31 #3481 [verbose] > SpiralSm.ellipsis_end 100L)
00:01:31 #3482 [verbose] > |> SpiralSm.concat "\n"
00:01:31 #3483 [verbose] > let getLocals () = $"eventsLog: \n{eventsLog} / {getLocals ()}"
00:01:31 #3484 [verbose] > trace Debug (fun () -> "testEventsRaw") getLocals
00:01:31 #3485 [verbose] >
00:01:31 #3486 [verbose] > events
00:01:31 #3487 [verbose] > |> Seq.toList
00:01:31 #3488 [verbose] > |> List.sortBy fst
00:01:31 #3489 [verbose] > |> List.map snd
00:01:31 #3490 [verbose] > |> List.fold
00:01:31 #3491 [verbose] > (fun acc event ->
00:01:31 #3492 [verbose] > match acc, event with
00:01:31 #3493 [verbose] > | FileSystemChange.Changed (lastPath, Some lastContent) as lastEvent
00:01:31 #3494 [verbose] > :: acc,
00:01:31 #3495 [verbose] > FileSystemChange.Changed (path, Some content)
00:01:31 #3496 [verbose] > when lastPath = path && content |> SpiralSm.starts_with
00:01:31 #3497 [verbose] > lastContent
00:01:31 #3498 [verbose] > ->
00:01:31 #3499 [verbose] > event :: acc
00:01:31 #3500 [verbose] > | _ -> event :: acc
00:01:31 #3501 [verbose] > )
00:01:31 #3502 [verbose] > [[]]
00:01:31 #3503 [verbose] > |> List.rev
00:01:31 #3504 [verbose] >
00:01:31 #3505 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:31 #3506 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:31 #3507 [verbose] > │ #### fast (test) │
00:01:31 #3508 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:31 #3509 [verbose] >
00:01:31 #3510 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:31 #3511 [verbose] > //// test
00:01:31 #3512 [verbose] >
00:01:31 #3513 [verbose] > let inline write path = async {
00:01:31 #3514 [verbose] > let n = 2
00:01:31 #3515 [verbose] >
00:01:31 #3516 [verbose] > for i = 1 to n do
00:01:31 #3517 [verbose] > do! $"a{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:31 #3518 [verbose] > $"file{i}.txt")
00:01:31 #3519 [verbose] >
00:01:31 #3520 [verbose] > do! Async.Sleep 250
00:01:31 #3521 [verbose] >
00:01:31 #3522 [verbose] > for i = 1 to n do
00:01:31 #3523 [verbose] > do! $"b{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:31 #3524 [verbose] > $"file{i}.txt")
00:01:31 #3525 [verbose] >
00:01:31 #3526 [verbose] > do! Async.Sleep 250
00:01:31 #3527 [verbose] >
00:01:31 #3528 [verbose] > for i = 1 to n do
00:01:31 #3529 [verbose] > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:31 #3530 [verbose] > </> $"file_{i}.txt") |> Async.Ignore
00:01:31 #3531 [verbose] >
00:01:31 #3532 [verbose] > do! Async.Sleep 250
00:01:31 #3533 [verbose] >
00:01:31 #3534 [verbose] > for i = 1 to n do
00:01:31 #3535 [verbose] > do! $"c{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:31 #3536 [verbose] > $"file_{i}.txt")
00:01:31 #3537 [verbose] >
00:01:31 #3538 [verbose] > do! Async.Sleep 250
00:01:31 #3539 [verbose] >
00:01:31 #3540 [verbose] > for i = 1 to n do
00:01:31 #3541 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:31 #3542 [verbose] > Async.Ignore
00:01:31 #3543 [verbose] >
00:01:31 #3544 [verbose] > do! Async.Sleep 250
00:01:31 #3545 [verbose] > }
00:01:31 #3546 [verbose] >
00:01:31 #3547 [verbose] > let inline run () =
00:01:31 #3548 [verbose] > let events = testEventsRaw watchDirectory write
00:01:31 #3549 [verbose] >
00:01:31 #3550 [verbose] > events
00:01:31 #3551 [verbose] > |> _sequenceEqual [[
00:01:31 #3552 [verbose] > FileSystemChange.Created ("file1.txt", Some "a1")
00:01:31 #3553 [verbose] > FileSystemChange.Changed ("file1.txt", Some "a1")
00:01:31 #3554 [verbose] > FileSystemChange.Created ("file2.txt", Some "a2")
00:01:31 #3555 [verbose] > FileSystemChange.Changed ("file2.txt", Some "a2")
00:01:31 #3556 [verbose] >
00:01:31 #3557 [verbose] > FileSystemChange.Changed ("file1.txt", Some "b1")
00:01:31 #3558 [verbose] > FileSystemChange.Changed ("file2.txt", Some "b2")
00:01:31 #3559 [verbose] >
00:01:31 #3560 [verbose] > FileSystemChange.Renamed ("file1.txt", ("file_1.txt", Some "b1"))
00:01:31 #3561 [verbose] > FileSystemChange.Renamed ("file2.txt", ("file_2.txt", Some "b2"))
00:01:31 #3562 [verbose] >
00:01:31 #3563 [verbose] > FileSystemChange.Changed ("file_1.txt", Some "c1")
00:01:31 #3564 [verbose] > FileSystemChange.Changed ("file_2.txt", Some "c2")
00:01:31 #3565 [verbose] >
00:01:31 #3566 [verbose] > FileSystemChange.Deleted "file_1.txt"
00:01:31 #3567 [verbose] > FileSystemChange.Deleted "file_2.txt"
00:01:31 #3568 [verbose] > ]]
00:01:31 #3569 [verbose] >
00:01:31 #3570 [verbose] > run
00:01:31 #3571 [verbose] > |> retry_fn 3
00:01:31 #3572 [verbose] > |> _assertEqual (Some ())
00:01:34 #3573 [verbose] >
00:01:34 #3574 [verbose] > ╭─[ 2.97s - stdout ]───────────────────────────────────────────────────────────╮
00:01:34 #3575 [verbose] > │ FSharpOption<Unit> │
00:01:34 #3576 [verbose] > │ Value: <null> │
00:01:34 #3577 [verbose] > │ 00:00:00 #1 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:34 #3578 [verbose] > │ FileName, LastWrite │
00:01:34 #3579 [verbose] > │ 00:00:00 #2 [debug] testEventsRaw / eventsLog: │
00:01:34 #3580 [verbose] > │ 0 / 638484790486691917 / Created ("file1.txt", Some "a1") │
00:01:34 #3581 [verbose] > │ 1 / 638484790486691918 / Changed ("file1.txt", Some "a1") │
00:01:34 #3582 [verbose] > │ 31624 / 638484790486723542 / Changed ("file1.txt", Some "a1") │
00:01:34 #3583 [verbose] > │ 1073 / 638484790486724615 / Created ("file2.txt", Some "a2") │
00:01:34 #3584 [verbose] > │ 1 / 638484790486724616 / Changed ("file2.txt", Some "a2") │
00:01:34 #3585 [verbose] > │ 66 / 638484790486724682 / Changed ("file2.txt", Some "a2") │
00:01:34 #3586 [verbose] > │ 2451056 / 638484790489175738 / Changed ("file1.txt", Some "b1") │
00:01:34 #3587 [verbose] > │ 1616 / 638484790489177354 / Changed ("file1.txt", Some "b1") │
00:01:34 #3588 [verbose] > │ 5861 / 638484790489183215 / Changed ("file2.txt", Some "b2") │
00:01:34 #3589 [verbose] > │ 1363 / 638484790489184578 / Changed ("file2.txt", Some "b2") │
00:01:34 #3590 [verbose] > │ 2638326 / 638484790491822904 / Renamed ("file1.txt", ("file_1.txt", Some │
00:01:34 #3591 [verbose] > │ "b1")) │
00:01:34 #3592 [verbose] > │ 15001 / 638484790491837905 / Renamed ("file2.txt", ("file_2.txt", Some │
00:01:34 #3593 [verbose] > │ "b2")) │
00:01:34 #3594 [verbose] > │ 2653417 / 638484790494491322 / Changed ("file_1.txt", Some "c1") │
00:01:34 #3595 [verbose] > │ 1754 / 638484790494493076 / Changed ("file_1.txt", Some "c1") │
00:01:34 #3596 [verbose] > │ 5501 / 638484790494498577 / Changed ("file_2.txt", Some "c2") │
00:01:34 #3597 [verbose] > │ 1346 / 638484790494499923 / Changed ("file_2.txt", Some "c2") │
00:01:34 #3598 [verbose] > │ 2662983 / 638484790497162906 / Deleted "file_1.txt" │
00:01:34 #3599 [verbose] > │ 1774 / 638484790497164680 / Deleted "file_2.txt" │
00:01:34 #3600 [verbose] > │ FSharpList<FileSystemChange> │
00:01:34 #3601 [verbose] > │ - path: file1.txt │
00:01:34 #3602 [verbose] > │ content: FSharpOption<String> │
00:01:34 #3603 [verbose] > │ Value: a1 │
00:01:34 #3604 [verbose] > │ IsFailure: False │
00:01:34 #3605 [verbose] > │ IsChanged: False │
00:01:34 #3606 [verbose] > │ IsCreated: True │
00:01:34 #3607 [verbose] > │ IsDeleted: False │
00:01:34 #3608 [verbose] > │ IsRenamed: False │
00:01:34 #3609 [verbose] > │ - path: file1.txt │
00:01:34 #3610 [verbose] > │ content: FSharpOption<String> │
00:01:34 #3611 [verbose] > │ Value: a1 │
00:01:34 #3612 [verbose] > │ IsFailure: False │
00:01:34 #3613 [verbose] > │ IsChanged: True │
00:01:34 #3614 [verbose] > │ IsCreated: False │
00:01:34 #3615 [verbose] > │ IsDeleted: False │
00:01:34 #3616 [verbose] > │ IsRenamed: False │
00:01:34 #3617 [verbose] > │ - path: file2.txt │
00:01:34 #3618 [verbose] > │ content: FSharpOption<String> │
00:01:34 #3619 [verbose] > │ Value: a2 │
00:01:34 #3620 [verbose] > │ IsFailure: False │
00:01:34 #3621 [verbose] > │ IsChanged: False │
00:01:34 #3622 [verbose] > │ IsCreated: True │
00:01:34 #3623 [verbose] > │ IsDeleted: False │
00:01:34 #3624 [verbose] > │ IsRenamed: False │
00:01:34 #3625 [verbose] > │ - path: file2.txt │
00:01:34 #3626 [verbose] > │ content: FSharpOption<String> │
00:01:34 #3627 [verbose] > │ Value: a2 │
00:01:34 #3628 [verbose] > │ IsFailure: False │
00:01:34 #3629 [verbose] > │ IsChanged: True │
00:01:34 #3630 [verbose] > │ IsCreated: False │
00:01:34 #3631 [verbose] > │ IsDeleted: False │
00:01:34 #3632 [verbose] > │ IsRenamed: False │
00:01:34 #3633 [verbose] > │ - path: file1.txt │
00:01:34 #3634 [verbose] > │ content: FSharpOption<String> │
00:01:34 #3635 [verbose] > │ Value: b1 │
00:01:34 #3636 [verbose] > │ IsFailure: False │
00:01:34 #3637 [verbose] > │ IsChanged: True │
00:01:34 #3638 [verbose] > │ IsCreated: False │
00:01:34 #3639 [verbose] > │ IsDeleted: False │
00:01:34 #3640 [verbose] > │ IsRenamed: False │
00:01:34 #3641 [verbose] > │ - path: file2.txt │
00:01:34 #3642 [verbose] > │ content: FSharpOption<String> │
00:01:34 #3643 [verbose] > │ Value: b2 │
00:01:34 #3644 [verbose] > │ IsFailure: False │
00:01:34 #3645 [verbose] > │ IsChanged: True │
00:01:34 #3646 [verbose] > │ IsCreated: False │
00:01:34 #3647 [verbose] > │ IsDeleted: False │
00:01:34 #3648 [verbose] > │ IsRenamed: False │
00:01:34 #3649 [verbose] > │ - oldPath: file1.txt │
00:01:34 #3650 [verbose] > │ Item2: - file_1.txt │
00:01:34 #3651 [verbose] > │ - FSharpOption<String> │
00:01:34 #3652 [verbose] > │ Value: b1 │
00:01:34 #3653 [verbose] > │ - IsFailure: False │
00:01:34 #3654 [verbose] > │ IsChanged: False │
00:01:34 #3655 [verbose] > │ IsCreated: False │
00:01:34 #3656 [verbose] > │ IsDeleted: False │
00:01:34 #3657 [verbose] > │ IsRenamed: True │
00:01:34 #3658 [verbose] > │ - oldPath: file2.txt │
00:01:34 #3659 [verbose] > │ Item2: - file_2.txt │
00:01:34 #3660 [verbose] > │ - FSharpOption<String> │
00:01:34 #3661 [verbose] > │ Value: b2 │
00:01:34 #3662 [verbose] > │ - IsFailure: False │
00:01:34 #3663 [verbose] > │ IsChanged: False │
00:01:34 #3664 [verbose] > │ IsCreated: False │
00:01:34 #3665 [verbose] > │ IsDeleted: False │
00:01:34 #3666 [verbose] > │ IsRenamed: True │
00:01:34 #3667 [verbose] > │ - path: file_1.txt │
00:01:34 #3668 [verbose] > │ content: FSharpOption<String> │
00:01:34 #3669 [verbose] > │ Value: c1 │
00:01:34 #3670 [verbose] > │ IsFailure: False │
00:01:34 #3671 [verbose] > │ IsChanged: True │
00:01:34 #3672 [verbose] > │ IsCreated: False │
00:01:34 #3673 [verbose] > │ IsDeleted: False │
00:01:34 #3674 [verbose] > │ IsRenamed: False │
00:01:34 #3675 [verbose] > │ - path: file_2.txt │
00:01:34 #3676 [verbose] > │ content: FSharpOption<String> │
00:01:34 #3677 [verbose] > │ Value: c2 │
00:01:34 #3678 [verbose] > │ IsFailure: False │
00:01:34 #3679 [verbose] > │ IsChanged: True │
00:01:34 #3680 [verbose] > │ IsCreated: False │
00:01:34 #3681 [verbose] > │ IsDeleted: False │
00:01:34 #3682 [verbose] > │ IsRenamed: False │
00:01:34 #3683 [verbose] > │ - path: file_1.txt │
00:01:34 #3684 [verbose] > │ IsFailure: False │
00:01:34 #3685 [verbose] > │ IsChanged: False │
00:01:34 #3686 [verbose] > │ IsCreated: False │
00:01:34 #3687 [verbose] > │ IsDeleted: True │
00:01:34 #3688 [verbose] > │ IsRenamed: False │
00:01:34 #3689 [verbose] > │ - path: file_2.txt │
00:01:34 #3690 [verbose] > │ IsFailure: False │
00:01:34 #3691 [verbose] > │ IsChanged: False │
00:01:34 #3692 [verbose] > │ IsCreated: False │
00:01:34 #3693 [verbose] > │ IsDeleted: True │
00:01:34 #3694 [verbose] > │ IsRenamed: False │
00:01:34 #3695 [verbose] > │ FSharpOption<Unit> │
00:01:34 #3696 [verbose] > │ Value: <null> │
00:01:34 #3697 [verbose] > │ │
00:01:34 #3698 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 #3699 [verbose] >
00:01:34 #3700 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:34 #3701 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:34 #3702 [verbose] > │ #### slow (test) │
00:01:34 #3703 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 #3704 [verbose] >
00:01:34 #3705 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:34 #3706 [verbose] > //// test
00:01:34 #3707 [verbose] >
00:01:34 #3708 [verbose] > let inline write path = async {
00:01:34 #3709 [verbose] > let n = 2
00:01:34 #3710 [verbose] >
00:01:34 #3711 [verbose] > let contents =
00:01:34 #3712 [verbose] > [[ 1 .. n ]]
00:01:34 #3713 [verbose] > |> List.map (string >> String.replicate 1_000_000)
00:01:34 #3714 [verbose] >
00:01:34 #3715 [verbose] > for i = 1 to n do
00:01:34 #3716 [verbose] > do! $"{contents.[[i - 1]]}a" |> SpiralFileSystem.write_all_text_async
00:01:34 #3717 [verbose] > (path </> $"file{i}.txt")
00:01:34 #3718 [verbose] >
00:01:34 #3719 [verbose] > do! Async.Sleep 1500
00:01:34 #3720 [verbose] >
00:01:34 #3721 [verbose] > for i = 1 to n do
00:01:34 #3722 [verbose] > do! $"{contents.[[i - 1]]}b" |> SpiralFileSystem.write_all_text_async
00:01:34 #3723 [verbose] > (path </> $"file{i}.txt")
00:01:34 #3724 [verbose] >
00:01:34 #3725 [verbose] > do! Async.Sleep 1500
00:01:34 #3726 [verbose] >
00:01:34 #3727 [verbose] > for i = 1 to n do
00:01:34 #3728 [verbose] > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:34 #3729 [verbose] > </> $"file_{i}.txt") |> Async.Ignore
00:01:34 #3730 [verbose] >
00:01:34 #3731 [verbose] > do! Async.Sleep 1500
00:01:34 #3732 [verbose] >
00:01:34 #3733 [verbose] > for i = 1 to n do
00:01:34 #3734 [verbose] > do! $"{contents.[[i - 1]]}c" |> SpiralFileSystem.write_all_text_async
00:01:34 #3735 [verbose] > (path </> $"file_{i}.txt")
00:01:34 #3736 [verbose] >
00:01:34 #3737 [verbose] > do! Async.Sleep 1500
00:01:34 #3738 [verbose] >
00:01:34 #3739 [verbose] > for i = 1 to n do
00:01:34 #3740 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:34 #3741 [verbose] > Async.Ignore
00:01:34 #3742 [verbose] >
00:01:34 #3743 [verbose] > do! Async.Sleep 1500
00:01:34 #3744 [verbose] > }
00:01:34 #3745 [verbose] >
00:01:34 #3746 [verbose] > let inline run () =
00:01:34 #3747 [verbose] > let events =
00:01:34 #3748 [verbose] > testEventsRaw watchDirectory write
00:01:34 #3749 [verbose] > |> List.map (function
00:01:34 #3750 [verbose] > | FileSystemChange.Changed (path, Some content) ->
00:01:34 #3751 [verbose] > FileSystemChange.Changed (path, content |> Seq.distinct |>
00:01:34 #3752 [verbose] > Seq.map string |> SpiralSm.concat "" |> Some)
00:01:34 #3753 [verbose] > | FileSystemChange.Created (path, Some content) ->
00:01:34 #3754 [verbose] > FileSystemChange.Created (path, content |> Seq.distinct |>
00:01:34 #3755 [verbose] > Seq.map string |> SpiralSm.concat "" |> Some)
00:01:34 #3756 [verbose] > | FileSystemChange.Renamed (oldPath, (newPath, Some content)) ->
00:01:34 #3757 [verbose] > FileSystemChange.Renamed (
00:01:34 #3758 [verbose] > oldPath,
00:01:34 #3759 [verbose] > (newPath, content |> Seq.distinct |> Seq.map string |>
00:01:34 #3760 [verbose] > SpiralSm.concat "" |> Some)
00:01:34 #3761 [verbose] > )
00:01:34 #3762 [verbose] > | event -> event
00:01:34 #3763 [verbose] > )
00:01:34 #3764 [verbose] >
00:01:34 #3765 [verbose] > events
00:01:34 #3766 [verbose] > |> _sequenceEqual [[
00:01:34 #3767 [verbose] > FileSystemChange.Created ("file1.txt", Some "1a")
00:01:34 #3768 [verbose] > FileSystemChange.Changed ("file1.txt", Some "1a")
00:01:34 #3769 [verbose] > FileSystemChange.Created ("file2.txt", Some "2a")
00:01:34 #3770 [verbose] > FileSystemChange.Changed ("file2.txt", Some "2a")
00:01:34 #3771 [verbose] >
00:01:34 #3772 [verbose] > FileSystemChange.Changed ("file1.txt", Some "1b")
00:01:34 #3773 [verbose] > FileSystemChange.Changed ("file2.txt", Some "2b")
00:01:34 #3774 [verbose] >
00:01:34 #3775 [verbose] > FileSystemChange.Renamed ("file1.txt", ("file_1.txt", Some "1b"))
00:01:34 #3776 [verbose] > FileSystemChange.Renamed ("file2.txt", ("file_2.txt", Some "2b"))
00:01:34 #3777 [verbose] >
00:01:34 #3778 [verbose] > FileSystemChange.Changed ("file_1.txt", Some "1c")
00:01:34 #3779 [verbose] > FileSystemChange.Changed ("file_2.txt", Some "2c")
00:01:34 #3780 [verbose] >
00:01:34 #3781 [verbose] > FileSystemChange.Deleted "file_1.txt"
00:01:34 #3782 [verbose] > FileSystemChange.Deleted "file_2.txt"
00:01:34 #3783 [verbose] > ]]
00:01:34 #3784 [verbose] >
00:01:34 #3785 [verbose] > run
00:01:34 #3786 [verbose] > |> retry_fn 5
00:01:34 #3787 [verbose] > |> _assertEqual (Some ())
00:01:44 #3788 [verbose] >
00:01:44 #3789 [verbose] > ╭─[ 9.77s - stdout ]───────────────────────────────────────────────────────────╮
00:01:44 #3790 [verbose] > │ FSharpOption<Unit> │
00:01:44 #3791 [verbose] > │ Value: <null> │
00:01:44 #3792 [verbose] > │ 00:00:09 #3 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:44 #3793 [verbose] > │ FileName, LastWrite │
00:01:44 #3794 [verbose] > │ 00:00:09 #4 [debug] testEventsRaw / eventsLog: │
00:01:44 #3795 [verbose] > │ 0 / 638484790518295339 / Created │
00:01:44 #3796 [verbose] > │ ("file1.txt", │
00:01:44 #3797 [verbose] > │ ...11111111111111111111111111111111111111111111111a") │
00:01:44 #3798 [verbose] > │ 1 / 638484790518295340 / Changed │
00:01:44 #3799 [verbose] > │ ("file1.txt", │
00:01:44 #3800 [verbose] > │ ...11111111111111111111111111111111111111111111111a") │
00:01:44 #3801 [verbose] > │ 66283 / 638484790518361623 / Changed │
00:01:44 #3802 [verbose] > │ ("file1.txt...11111111111111111111111111111111111111111111111a") │
00:01:44 #3803 [verbose] > │ 16007 / 638484790518377630 / Created │
00:01:44 #3804 [verbose] > │ ("file2.txt...22222222222222222222222222222222222222222222222a") │
00:01:44 #3805 [verbose] > │ 1 / 638484790518377631 / Changed │
00:01:44 #3806 [verbose] > │ ("file2.txt", │
00:01:44 #3807 [verbose] > │ ...22222222222222222222222222222222222222222222222a") │
00:01:44 #3808 [verbose] > │ 66629 / 638484790518444260 / Changed │
00:01:44 #3809 [verbose] > │ ("file2.txt...22222222222222222222222222222222222222222222222a") │
00:01:44 #3810 [verbose] > │ 15248015 / 638484790533692275 / Changed │
00:01:44 #3811 [verbose] > │ ("file1....11111111111111111111111111111111111111111111111b") │
00:01:44 #3812 [verbose] > │ 109065 / 638484790533801340 / Changed │
00:01:44 #3813 [verbose] > │ ("file1.tx...11111111111111111111111111111111111111111111111b") │
00:01:44 #3814 [verbose] > │ 38617 / 638484790533839957 / Changed │
00:01:44 #3815 [verbose] > │ ("file2.txt...22222222222222222222222222222222222222222222222b") │
00:01:44 #3816 [verbose] > │ 95512 / 638484790533935469 / Changed │
00:01:44 #3817 [verbose] > │ ("file2.txt...22222222222222222222222222222222222222222222222b") │
00:01:44 #3818 [verbose] > │ 15107020 / 638484790549042489 / Renamed │
00:01:44 #3819 [verbose] > │ ("file1....1111111111111111111111111111111111111111111111b")) │
00:01:44 #3820 [verbose] > │ 9201 / 638484790549051690 / Renamed │
00:01:44 #3821 [verbose] > │ ("file2.txt"...2222222222222222222222222222222222222222222222b")) │
00:01:44 #3822 [verbose] > │ 15150620 / 638484790564202310 / Changed │
00:01:44 #3823 [verbose] > │ ("file_1...11111111111111111111111111111111111111111111111c") │
00:01:44 #3824 [verbose] > │ 237488 / 638484790564439798 / Changed │
00:01:44 #3825 [verbose] > │ ("file_1.t...11111111111111111111111111111111111111111111111c") │
00:01:44 #3826 [verbose] > │ 36333 / 638484790564476131 / Changed │
00:01:44 #3827 [verbose] > │ ("file_2.tx...22222222222222222222222222222222222222222222222c") │
00:01:44 #3828 [verbose] > │ 154687 / 638484790564630818 / Changed │
00:01:44 #3829 [verbose] > │ ("file_2.t...22222222222222222222222222222222222222222222222c") │
00:01:44 #3830 [verbose] > │ 15139223 / 638484790579770041 / Deleted "file_1.txt" │
00:01:44 #3831 [verbose] > │ 9754 / 638484790579779795 / Deleted "file_2.txt" │
00:01:44 #3832 [verbose] > │ FSharpList<FileSystemChange> │
00:01:44 #3833 [verbose] > │ - path: file1.txt │
00:01:44 #3834 [verbose] > │ content: FSharpOption<String> │
00:01:44 #3835 [verbose] > │ Value: 1a │
00:01:44 #3836 [verbose] > │ IsFailure: False │
00:01:44 #3837 [verbose] > │ IsChanged: False │
00:01:44 #3838 [verbose] > │ IsCreated: True │
00:01:44 #3839 [verbose] > │ IsDeleted: False │
00:01:44 #3840 [verbose] > │ IsRenamed: False │
00:01:44 #3841 [verbose] > │ - path: file1.txt │
00:01:44 #3842 [verbose] > │ content: FSharpOption<String> │
00:01:44 #3843 [verbose] > │ Value: 1a │
00:01:44 #3844 [verbose] > │ IsFailure: False │
00:01:44 #3845 [verbose] > │ IsChanged: True │
00:01:44 #3846 [verbose] > │ IsCreated: False │
00:01:44 #3847 [verbose] > │ IsDeleted: False │
00:01:44 #3848 [verbose] > │ IsRenamed: False │
00:01:44 #3849 [verbose] > │ - path: file2.txt │
00:01:44 #3850 [verbose] > │ content: FSharpOption<String> │
00:01:44 #3851 [verbose] > │ Value: 2a │
00:01:44 #3852 [verbose] > │ IsFailure: False │
00:01:44 #3853 [verbose] > │ IsChanged: False │
00:01:44 #3854 [verbose] > │ IsCreated: True │
00:01:44 #3855 [verbose] > │ IsDeleted: False │
00:01:44 #3856 [verbose] > │ IsRenamed: False │
00:01:44 #3857 [verbose] > │ - path: file2.txt │
00:01:44 #3858 [verbose] > │ content: FSharpOption<String> │
00:01:44 #3859 [verbose] > │ Value: 2a │
00:01:44 #3860 [verbose] > │ IsFailure: False │
00:01:44 #3861 [verbose] > │ IsChanged: True │
00:01:44 #3862 [verbose] > │ IsCreated: False │
00:01:44 #3863 [verbose] > │ IsDeleted: False │
00:01:44 #3864 [verbose] > │ IsRenamed: False │
00:01:44 #3865 [verbose] > │ - path: file1.txt │
00:01:44 #3866 [verbose] > │ content: FSharpOption<String> │
00:01:44 #3867 [verbose] > │ Value: 1b │
00:01:44 #3868 [verbose] > │ IsFailure: False │
00:01:44 #3869 [verbose] > │ IsChanged: True │
00:01:44 #3870 [verbose] > │ IsCreated: False │
00:01:44 #3871 [verbose] > │ IsDeleted: False │
00:01:44 #3872 [verbose] > │ IsRenamed: False │
00:01:44 #3873 [verbose] > │ - path: file2.txt │
00:01:44 #3874 [verbose] > │ content: FSharpOption<String> │
00:01:44 #3875 [verbose] > │ Value: 2b │
00:01:44 #3876 [verbose] > │ IsFailure: False │
00:01:44 #3877 [verbose] > │ IsChanged: True │
00:01:44 #3878 [verbose] > │ IsCreated: False │
00:01:44 #3879 [verbose] > │ IsDeleted: False │
00:01:44 #3880 [verbose] > │ IsRenamed: False │
00:01:44 #3881 [verbose] > │ - oldPath: file1.txt │
00:01:44 #3882 [verbose] > │ Item2: - file_1.txt │
00:01:44 #3883 [verbose] > │ - FSharpOption<String> │
00:01:44 #3884 [verbose] > │ Value: 1b │
00:01:44 #3885 [verbose] > │ - IsFailure: False │
00:01:44 #3886 [verbose] > │ IsChanged: False │
00:01:44 #3887 [verbose] > │ IsCreated: False │
00:01:44 #3888 [verbose] > │ IsDeleted: False │
00:01:44 #3889 [verbose] > │ IsRenamed: True │
00:01:44 #3890 [verbose] > │ - oldPath: file2.txt │
00:01:44 #3891 [verbose] > │ Item2: - file_2.txt │
00:01:44 #3892 [verbose] > │ - FSharpOption<String> │
00:01:44 #3893 [verbose] > │ Value: 2b │
00:01:44 #3894 [verbose] > │ - IsFailure: False │
00:01:44 #3895 [verbose] > │ IsChanged: False │
00:01:44 #3896 [verbose] > │ IsCreated: False │
00:01:44 #3897 [verbose] > │ IsDeleted: False │
00:01:44 #3898 [verbose] > │ IsRenamed: True │
00:01:44 #3899 [verbose] > │ - path: file_1.txt │
00:01:44 #3900 [verbose] > │ content: FSharpOption<String> │
00:01:44 #3901 [verbose] > │ Value: 1c │
00:01:44 #3902 [verbose] > │ IsFailure: False │
00:01:44 #3903 [verbose] > │ IsChanged: True │
00:01:44 #3904 [verbose] > │ IsCreated: False │
00:01:44 #3905 [verbose] > │ IsDeleted: False │
00:01:44 #3906 [verbose] > │ IsRenamed: False │
00:01:44 #3907 [verbose] > │ - path: file_2.txt │
00:01:44 #3908 [verbose] > │ content: FSharpOption<String> │
00:01:44 #3909 [verbose] > │ Value: 2c │
00:01:44 #3910 [verbose] > │ IsFailure: False │
00:01:44 #3911 [verbose] > │ IsChanged: True │
00:01:44 #3912 [verbose] > │ IsCreated: False │
00:01:44 #3913 [verbose] > │ IsDeleted: False │
00:01:44 #3914 [verbose] > │ IsRenamed: False │
00:01:44 #3915 [verbose] > │ - path: file_1.txt │
00:01:44 #3916 [verbose] > │ IsFailure: False │
00:01:44 #3917 [verbose] > │ IsChanged: False │
00:01:44 #3918 [verbose] > │ IsCreated: False │
00:01:44 #3919 [verbose] > │ IsDeleted: True │
00:01:44 #3920 [verbose] > │ IsRenamed: False │
00:01:44 #3921 [verbose] > │ - path: file_2.txt │
00:01:44 #3922 [verbose] > │ IsFailure: False │
00:01:44 #3923 [verbose] > │ IsChanged: False │
00:01:44 #3924 [verbose] > │ IsCreated: False │
00:01:44 #3925 [verbose] > │ IsDeleted: True │
00:01:44 #3926 [verbose] > │ IsRenamed: False │
00:01:44 #3927 [verbose] > │ FSharpOption<Unit> │
00:01:44 #3928 [verbose] > │ Value: <null> │
00:01:44 #3929 [verbose] > │ │
00:01:44 #3930 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #3931 [verbose] >
00:01:44 #3932 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:44 #3933 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:44 #3934 [verbose] > │ ### testEventsSorted (test) │
00:01:44 #3935 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #3936 [verbose] >
00:01:44 #3937 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:44 #3938 [verbose] > //// test
00:01:44 #3939 [verbose] >
00:01:44 #3940 [verbose] > let inline sortEvent event =
00:01:44 #3941 [verbose] > match event with
00:01:44 #3942 [verbose] > | FileSystemChange.Failure _ -> 0
00:01:44 #3943 [verbose] > | FileSystemChange.Created _ -> 1
00:01:44 #3944 [verbose] > | FileSystemChange.Changed _ -> 2
00:01:44 #3945 [verbose] > | FileSystemChange.Renamed (_oldPath, _) -> 3
00:01:44 #3946 [verbose] > | FileSystemChange.Deleted _ -> 4
00:01:44 #3947 [verbose] >
00:01:44 #3948 [verbose] > let inline formatEvents events =
00:01:44 #3949 [verbose] > events
00:01:44 #3950 [verbose] > |> Seq.toList
00:01:44 #3951 [verbose] > |> List.sortBy (snd >> sortEvent)
00:01:44 #3952 [verbose] > |> List.choose (fun (ticks, event) ->
00:01:44 #3953 [verbose] > match event with
00:01:44 #3954 [verbose] > | FileSystemChange.Failure _ ->
00:01:44 #3955 [verbose] > None
00:01:44 #3956 [verbose] > | FileSystemChange.Changed (path, _) ->
00:01:44 #3957 [verbose] > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:44 #3958 [verbose] > FileSystemChangeType.Changed)
00:01:44 #3959 [verbose] > | FileSystemChange.Created (path, _) ->
00:01:44 #3960 [verbose] > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:44 #3961 [verbose] > FileSystemChangeType.Created)
00:01:44 #3962 [verbose] > | FileSystemChange.Deleted path ->
00:01:44 #3963 [verbose] > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:44 #3964 [verbose] > FileSystemChangeType.Deleted)
00:01:44 #3965 [verbose] > | FileSystemChange.Renamed (_oldPath, (path, _)) ->
00:01:44 #3966 [verbose] > Some (ticks, System.IO.Path.GetFileName path, nameof
00:01:44 #3967 [verbose] > FileSystemChangeType.Renamed)
00:01:44 #3968 [verbose] > )
00:01:44 #3969 [verbose] > |> List.sortBy (fun (_, path, _) -> path)
00:01:44 #3970 [verbose] > |> List.distinctBy (fun (_, path, event) -> path, event)
00:01:44 #3971 [verbose] >
00:01:44 #3972 [verbose] > let inline testEventsSorted
00:01:44 #3973 [verbose] > (watchFn : string -> FSharp.Control.AsyncSeq<int64 * FileSystemChange> *
00:01:44 #3974 [verbose] > IDisposable)
00:01:44 #3975 [verbose] > write
00:01:44 #3976 [verbose] > =
00:01:44 #3977 [verbose] > let struct (tempDir, tempDisposable) =
00:01:44 #3978 [verbose] > SpiralFileSystem.create_temp_directory ()
00:01:44 #3979 [verbose] > let stream, disposable = watchFn tempDir
00:01:44 #3980 [verbose] >
00:01:44 #3981 [verbose] > let events = System.Collections.Concurrent.ConcurrentBag ()
00:01:44 #3982 [verbose] >
00:01:44 #3983 [verbose] > let inline iter () =
00:01:44 #3984 [verbose] > stream
00:01:44 #3985 [verbose] > |> FSharp.Control.AsyncSeq.iterAsyncParallel (fun event -> async {
00:01:44 #3986 [verbose] > events.Add event })
00:01:44 #3987 [verbose] >
00:01:44 #3988 [verbose] > let run = async {
00:01:44 #3989 [verbose] > let! _ = iter () |> Async.StartChild
00:01:44 #3990 [verbose] > do! Async.Sleep 250
00:01:44 #3991 [verbose] > return! write tempDir
00:01:44 #3992 [verbose] > }
00:01:44 #3993 [verbose] >
00:01:44 #3994 [verbose] > try
00:01:44 #3995 [verbose] > run
00:01:44 #3996 [verbose] > |> Async.runWithTimeout 5000
00:01:44 #3997 [verbose] > |> _assertEqual (Some ())
00:01:44 #3998 [verbose] > finally
00:01:44 #3999 [verbose] > disposable.Dispose ()
00:01:44 #4000 [verbose] > tempDisposable.Dispose ()
00:01:44 #4001 [verbose] >
00:01:44 #4002 [verbose] > let events = formatEvents events
00:01:44 #4003 [verbose] >
00:01:44 #4004 [verbose] > let eventMap =
00:01:44 #4005 [verbose] > events
00:01:44 #4006 [verbose] > |> List.map (fun (ticks, path, event) -> path, (event, ticks))
00:01:44 #4007 [verbose] > |> List.groupBy fst
00:01:44 #4008 [verbose] > |> List.map (fun (path, events) ->
00:01:44 #4009 [verbose] > let event, _ticks =
00:01:44 #4010 [verbose] > events
00:01:44 #4011 [verbose] > |> List.map snd
00:01:44 #4012 [verbose] > |> List.sortByDescending snd
00:01:44 #4013 [verbose] > |> List.head
00:01:44 #4014 [verbose] >
00:01:44 #4015 [verbose] > path, event
00:01:44 #4016 [verbose] > )
00:01:44 #4017 [verbose] > |> Map.ofList
00:01:44 #4018 [verbose] >
00:01:44 #4019 [verbose] > let eventList =
00:01:44 #4020 [verbose] > events
00:01:44 #4021 [verbose] > |> List.map (fun (_ticks, path, event) -> path, event)
00:01:44 #4022 [verbose] >
00:01:44 #4023 [verbose] > eventMap, eventList
00:01:44 #4024 [verbose] >
00:01:44 #4025 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:44 #4026 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:44 #4027 [verbose] > │ #### create and delete (test) │
00:01:44 #4028 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #4029 [verbose] >
00:01:44 #4030 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:44 #4031 [verbose] > //// test
00:01:44 #4032 [verbose] >
00:01:44 #4033 [verbose] > let inline write path = async {
00:01:44 #4034 [verbose] > let n = 3
00:01:44 #4035 [verbose] >
00:01:44 #4036 [verbose] > for i = 1 to n do
00:01:44 #4037 [verbose] > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:44 #4038 [verbose] > $"file{i}.txt")
00:01:44 #4039 [verbose] >
00:01:44 #4040 [verbose] > for i = 1 to n do
00:01:44 #4041 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file{i}.txt") |>
00:01:44 #4042 [verbose] > Async.Ignore
00:01:44 #4043 [verbose] >
00:01:44 #4044 [verbose] > do! Async.Sleep 150
00:01:44 #4045 [verbose] > }
00:01:44 #4046 [verbose] >
00:01:44 #4047 [verbose] > let inline run () =
00:01:44 #4048 [verbose] > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:44 #4049 [verbose] > write
00:01:44 #4050 [verbose] >
00:01:44 #4051 [verbose] > [[
00:01:44 #4052 [verbose] > "file1.txt", nameof FileSystemChangeType.Created
00:01:44 #4053 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:44 #4054 [verbose] > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:44 #4055 [verbose] >
00:01:44 #4056 [verbose] > "file2.txt", nameof FileSystemChangeType.Created
00:01:44 #4057 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:44 #4058 [verbose] > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:44 #4059 [verbose] >
00:01:44 #4060 [verbose] > "file3.txt", nameof FileSystemChangeType.Created
00:01:44 #4061 [verbose] > "file3.txt", nameof FileSystemChangeType.Changed
00:01:44 #4062 [verbose] > "file3.txt", nameof FileSystemChangeType.Deleted
00:01:44 #4063 [verbose] > ]]
00:01:44 #4064 [verbose] > |> _sequenceEqual eventList
00:01:44 #4065 [verbose] >
00:01:44 #4066 [verbose] > [[
00:01:44 #4067 [verbose] > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:44 #4068 [verbose] > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:44 #4069 [verbose] > "file3.txt", nameof FileSystemChangeType.Deleted
00:01:44 #4070 [verbose] > ]]
00:01:44 #4071 [verbose] > |> Map.ofList
00:01:44 #4072 [verbose] > |> _sequenceEqual eventMap
00:01:44 #4073 [verbose] >
00:01:44 #4074 [verbose] > run
00:01:44 #4075 [verbose] > |> retry_fn 3
00:01:44 #4076 [verbose] > |> _assertEqual (Some ())
00:01:46 #4077 [verbose] >
00:01:46 #4078 [verbose] > ╭─[ 1.41s - stdout ]───────────────────────────────────────────────────────────╮
00:01:46 #4079 [verbose] > │ FSharpOption<Unit> │
00:01:46 #4080 [verbose] > │ Value: <null> │
00:01:46 #4081 [verbose] > │ 00:00:11 #5 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:46 #4082 [verbose] > │ FileName, LastWrite │
00:01:46 #4083 [verbose] > │ FSharpList<Tuple<String,String>> │
00:01:46 #4084 [verbose] > │ ( file1.txt, Created ) │
00:01:46 #4085 [verbose] > │ ( file1.txt, Changed ) │
00:01:46 #4086 [verbose] > │ ( file1.txt, Deleted ) │
00:01:46 #4087 [verbose] > │ ( file2.txt, Created ) │
00:01:46 #4088 [verbose] > │ ( file2.txt, Changed ) │
00:01:46 #4089 [verbose] > │ ( file2.txt, Deleted ) │
00:01:46 #4090 [verbose] > │ ( file3.txt, Created ) │
00:01:46 #4091 [verbose] > │ ( file3.txt, Changed ) │
00:01:46 #4092 [verbose] > │ ( file3.txt, Deleted ) │
00:01:46 #4093 [verbose] > │ FSharpMap<String,String> │
00:01:46 #4094 [verbose] > │ - Key: file1.txt │
00:01:46 #4095 [verbose] > │ Value: Deleted │
00:01:46 #4096 [verbose] > │ - Key: file2.txt │
00:01:46 #4097 [verbose] > │ Value: Deleted │
00:01:46 #4098 [verbose] > │ - Key: file3.txt │
00:01:46 #4099 [verbose] > │ Value: Deleted │
00:01:46 #4100 [verbose] > │ FSharpOption<Unit> │
00:01:46 #4101 [verbose] > │ Value: <null> │
00:01:46 #4102 [verbose] > │ │
00:01:46 #4103 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 #4104 [verbose] >
00:01:46 #4105 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:46 #4106 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:46 #4107 [verbose] > │ #### change (test) │
00:01:46 #4108 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 #4109 [verbose] >
00:01:46 #4110 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:46 #4111 [verbose] > //// test
00:01:46 #4112 [verbose] >
00:01:46 #4113 [verbose] > let inline write path = async {
00:01:46 #4114 [verbose] > let n = 2
00:01:46 #4115 [verbose] >
00:01:46 #4116 [verbose] > for i = 1 to n do
00:01:46 #4117 [verbose] > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:46 #4118 [verbose] > $"file{i}.txt")
00:01:46 #4119 [verbose] >
00:01:46 #4120 [verbose] > for i = 1 to n do
00:01:46 #4121 [verbose] > do! "" |> SpiralFileSystem.write_all_text_async (path </>
00:01:46 #4122 [verbose] > $"file{i}.txt")
00:01:46 #4123 [verbose] >
00:01:46 #4124 [verbose] > for i = 1 to n do
00:01:46 #4125 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file{i}.txt") |>
00:01:46 #4126 [verbose] > Async.Ignore
00:01:46 #4127 [verbose] >
00:01:46 #4128 [verbose] > do! Async.Sleep 150
00:01:46 #4129 [verbose] > }
00:01:46 #4130 [verbose] >
00:01:46 #4131 [verbose] > let inline run () =
00:01:46 #4132 [verbose] > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:46 #4133 [verbose] > write
00:01:46 #4134 [verbose] >
00:01:46 #4135 [verbose] > [[
00:01:46 #4136 [verbose] > "file1.txt", nameof FileSystemChangeType.Created
00:01:46 #4137 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:46 #4138 [verbose] > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:46 #4139 [verbose] >
00:01:46 #4140 [verbose] > "file2.txt", nameof FileSystemChangeType.Created
00:01:46 #4141 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:46 #4142 [verbose] > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:46 #4143 [verbose] > ]]
00:01:46 #4144 [verbose] > |> _sequenceEqual eventList
00:01:46 #4145 [verbose] >
00:01:46 #4146 [verbose] > [[
00:01:46 #4147 [verbose] > "file1.txt", nameof FileSystemChangeType.Deleted
00:01:46 #4148 [verbose] > "file2.txt", nameof FileSystemChangeType.Deleted
00:01:46 #4149 [verbose] > ]]
00:01:46 #4150 [verbose] > |> Map.ofList
00:01:46 #4151 [verbose] > |> _sequenceEqual eventMap
00:01:46 #4152 [verbose] >
00:01:46 #4153 [verbose] > run
00:01:46 #4154 [verbose] > |> retry_fn 3
00:01:46 #4155 [verbose] > |> _assertEqual (Some ())
00:01:47 #4156 [verbose] >
00:01:47 #4157 [verbose] > ╭─[ 1.46s - stdout ]───────────────────────────────────────────────────────────╮
00:01:47 #4158 [verbose] > │ FSharpOption<Unit> │
00:01:47 #4159 [verbose] > │ Value: <null> │
00:01:47 #4160 [verbose] > │ 00:00:13 #6 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:47 #4161 [verbose] > │ FileName, LastWrite │
00:01:47 #4162 [verbose] > │ FSharpList<Tuple<String,String>> │
00:01:47 #4163 [verbose] > │ ( file1.txt, Created ) │
00:01:47 #4164 [verbose] > │ ( file1.txt, Changed ) │
00:01:47 #4165 [verbose] > │ ( file1.txt, Deleted ) │
00:01:47 #4166 [verbose] > │ ( file2.txt, Created ) │
00:01:47 #4167 [verbose] > │ ( file2.txt, Changed ) │
00:01:47 #4168 [verbose] > │ ( file2.txt, Deleted ) │
00:01:47 #4169 [verbose] > │ FSharpMap<String,String> │
00:01:47 #4170 [verbose] > │ - Key: file1.txt │
00:01:47 #4171 [verbose] > │ Value: Deleted │
00:01:47 #4172 [verbose] > │ - Key: file2.txt │
00:01:47 #4173 [verbose] > │ Value: Deleted │
00:01:47 #4174 [verbose] > │ FSharpOption<Unit> │
00:01:47 #4175 [verbose] > │ Value: <null> │
00:01:47 #4176 [verbose] > │ │
00:01:47 #4177 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 #4178 [verbose] >
00:01:47 #4179 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:47 #4180 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:47 #4181 [verbose] > │ #### rename (test) │
00:01:47 #4182 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:47 #4183 [verbose] >
00:01:47 #4184 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:47 #4185 [verbose] > //// test
00:01:47 #4186 [verbose] >
00:01:47 #4187 [verbose] > let inline write path = async {
00:01:47 #4188 [verbose] > let n = 2
00:01:47 #4189 [verbose] >
00:01:47 #4190 [verbose] > for i = 1 to n do
00:01:47 #4191 [verbose] > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:47 #4192 [verbose] > $"file{i}.txt")
00:01:47 #4193 [verbose] >
00:01:47 #4194 [verbose] > for i = 1 to n do
00:01:47 #4195 [verbose] > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:47 #4196 [verbose] > </> $"file_{i}.txt") |> Async.Ignore
00:01:47 #4197 [verbose] >
00:01:47 #4198 [verbose] > for i = 1 to n do
00:01:47 #4199 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:47 #4200 [verbose] > Async.Ignore
00:01:47 #4201 [verbose] >
00:01:47 #4202 [verbose] > do! Async.Sleep 150
00:01:47 #4203 [verbose] > }
00:01:47 #4204 [verbose] >
00:01:47 #4205 [verbose] > let inline run () =
00:01:47 #4206 [verbose] > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:47 #4207 [verbose] > write
00:01:47 #4208 [verbose] >
00:01:47 #4209 [verbose] > [[
00:01:47 #4210 [verbose] > "file1.txt", nameof FileSystemChangeType.Created
00:01:47 #4211 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:47 #4212 [verbose] > "file2.txt", nameof FileSystemChangeType.Created
00:01:47 #4213 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:47 #4214 [verbose] >
00:01:47 #4215 [verbose] > "file_1.txt", nameof FileSystemChangeType.Renamed
00:01:47 #4216 [verbose] > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:47 #4217 [verbose] >
00:01:47 #4218 [verbose] > "file_2.txt", nameof FileSystemChangeType.Renamed
00:01:47 #4219 [verbose] > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:47 #4220 [verbose] > ]]
00:01:47 #4221 [verbose] > |> _sequenceEqual eventList
00:01:47 #4222 [verbose] >
00:01:47 #4223 [verbose] > [[
00:01:47 #4224 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:47 #4225 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:47 #4226 [verbose] > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:47 #4227 [verbose] > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:47 #4228 [verbose] > ]]
00:01:47 #4229 [verbose] > |> Map.ofList
00:01:47 #4230 [verbose] > |> _sequenceEqual eventMap
00:01:47 #4231 [verbose] >
00:01:47 #4232 [verbose] > run
00:01:47 #4233 [verbose] > |> retry_fn 3
00:01:47 #4234 [verbose] > |> _assertEqual (Some ())
00:01:49 #4235 [verbose] >
00:01:49 #4236 [verbose] > ╭─[ 1.72s - stdout ]───────────────────────────────────────────────────────────╮
00:01:49 #4237 [verbose] > │ FSharpOption<Unit> │
00:01:49 #4238 [verbose] > │ Value: <null> │
00:01:49 #4239 [verbose] > │ 00:00:14 #7 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:49 #4240 [verbose] > │ FileName, LastWrite │
00:01:49 #4241 [verbose] > │ FSharpList<Tuple<String,String>> │
00:01:49 #4242 [verbose] > │ ( file1.txt, Created ) │
00:01:49 #4243 [verbose] > │ ( file1.txt, Changed ) │
00:01:49 #4244 [verbose] > │ ( file2.txt, Created ) │
00:01:49 #4245 [verbose] > │ ( file2.txt, Changed ) │
00:01:49 #4246 [verbose] > │ ( file_1.txt, Renamed ) │
00:01:49 #4247 [verbose] > │ ( file_1.txt, Deleted ) │
00:01:49 #4248 [verbose] > │ ( file_2.txt, Renamed ) │
00:01:49 #4249 [verbose] > │ ( file_2.txt, Deleted ) │
00:01:49 #4250 [verbose] > │ FSharpMap<String,String> │
00:01:49 #4251 [verbose] > │ - Key: file1.txt │
00:01:49 #4252 [verbose] > │ Value: Changed │
00:01:49 #4253 [verbose] > │ - Key: file2.txt │
00:01:49 #4254 [verbose] > │ Value: Changed │
00:01:49 #4255 [verbose] > │ - Key: file_1.txt │
00:01:49 #4256 [verbose] > │ Value: Deleted │
00:01:49 #4257 [verbose] > │ - Key: file_2.txt │
00:01:49 #4258 [verbose] > │ Value: Deleted │
00:01:49 #4259 [verbose] > │ FSharpOption<Unit> │
00:01:49 #4260 [verbose] > │ Value: <null> │
00:01:49 #4261 [verbose] > │ │
00:01:49 #4262 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:49 #4263 [verbose] >
00:01:49 #4264 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:49 #4265 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:49 #4266 [verbose] > │ #### full (test) │
00:01:49 #4267 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:49 #4268 [verbose] >
00:01:49 #4269 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:49 #4270 [verbose] > //// test
00:01:49 #4271 [verbose] >
00:01:49 #4272 [verbose] > let inline write path = async {
00:01:49 #4273 [verbose] > let n = 2
00:01:49 #4274 [verbose] >
00:01:49 #4275 [verbose] > for i = 1 to n do
00:01:49 #4276 [verbose] > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:49 #4277 [verbose] > $"file{i}.txt")
00:01:49 #4278 [verbose] >
00:01:49 #4279 [verbose] > for i = 1 to n do
00:01:49 #4280 [verbose] > do! "" |> SpiralFileSystem.write_all_text_async (path </>
00:01:49 #4281 [verbose] > $"file{i}.txt")
00:01:49 #4282 [verbose] >
00:01:49 #4283 [verbose] > for i = 1 to n do
00:01:49 #4284 [verbose] > do! path </> $"file{i}.txt" |> SpiralFileSystem.move_file_async (path
00:01:49 #4285 [verbose] > </> $"file_{i}.txt") |> Async.Ignore
00:01:49 #4286 [verbose] >
00:01:49 #4287 [verbose] > for i = 1 to n do
00:01:49 #4288 [verbose] > do! $"{i}" |> SpiralFileSystem.write_all_text_async (path </>
00:01:49 #4289 [verbose] > $"file_{i}.txt")
00:01:49 #4290 [verbose] >
00:01:49 #4291 [verbose] > for i = 1 to n do
00:01:49 #4292 [verbose] > do! SpiralFileSystem.delete_file_async (path </> $"file_{i}.txt") |>
00:01:49 #4293 [verbose] > Async.Ignore
00:01:49 #4294 [verbose] >
00:01:49 #4295 [verbose] > do! Async.Sleep 150
00:01:49 #4296 [verbose] > }
00:01:49 #4297 [verbose] >
00:01:49 #4298 [verbose] > let inline run () =
00:01:49 #4299 [verbose] > let eventMap, eventList = testEventsSorted (watchDirectory (fun _ -> false))
00:01:49 #4300 [verbose] > write
00:01:49 #4301 [verbose] >
00:01:49 #4302 [verbose] > [[
00:01:49 #4303 [verbose] > "file1.txt", nameof FileSystemChangeType.Created
00:01:49 #4304 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:49 #4305 [verbose] > "file2.txt", nameof FileSystemChangeType.Created
00:01:49 #4306 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:49 #4307 [verbose] >
00:01:49 #4308 [verbose] > "file_1.txt", nameof FileSystemChangeType.Changed
00:01:49 #4309 [verbose] > "file_1.txt", nameof FileSystemChangeType.Renamed
00:01:49 #4310 [verbose] > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:49 #4311 [verbose] >
00:01:49 #4312 [verbose] > "file_2.txt", nameof FileSystemChangeType.Changed
00:01:49 #4313 [verbose] > "file_2.txt", nameof FileSystemChangeType.Renamed
00:01:49 #4314 [verbose] > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:49 #4315 [verbose] > ]]
00:01:49 #4316 [verbose] > |> _sequenceEqual eventList
00:01:49 #4317 [verbose] >
00:01:49 #4318 [verbose] > [[
00:01:49 #4319 [verbose] > "file1.txt", nameof FileSystemChangeType.Changed
00:01:49 #4320 [verbose] > "file2.txt", nameof FileSystemChangeType.Changed
00:01:49 #4321 [verbose] > "file_1.txt", nameof FileSystemChangeType.Deleted
00:01:49 #4322 [verbose] > "file_2.txt", nameof FileSystemChangeType.Deleted
00:01:49 #4323 [verbose] > ]]
00:01:49 #4324 [verbose] > |> Map.ofList
00:01:49 #4325 [verbose] > |> _sequenceEqual eventMap
00:01:49 #4326 [verbose] >
00:01:49 #4327 [verbose] > run
00:01:49 #4328 [verbose] > |> retry_fn 3
00:01:49 #4329 [verbose] > |> _assertEqual (Some ())
00:01:51 #4330 [verbose] >
00:01:51 #4331 [verbose] > ╭─[ 1.78s - stdout ]───────────────────────────────────────────────────────────╮
00:01:51 #4332 [verbose] > │ FSharpOption<Unit> │
00:01:51 #4333 [verbose] > │ Value: <null> │
00:01:51 #4334 [verbose] > │ 00:00:16 #8 [debug] watchWithFilter / Disposing watch stream / filter: │
00:01:51 #4335 [verbose] > │ FileName, LastWrite │
00:01:51 #4336 [verbose] > │ FSharpList<Tuple<String,String>> │
00:01:51 #4337 [verbose] > │ ( file1.txt, Created ) │
00:01:51 #4338 [verbose] > │ ( file1.txt, Changed ) │
00:01:51 #4339 [verbose] > │ ( file2.txt, Created ) │
00:01:51 #4340 [verbose] > │ ( file2.txt, Changed ) │
00:01:51 #4341 [verbose] > │ ( file_1.txt, Changed ) │
00:01:51 #4342 [verbose] > │ ( file_1.txt, Renamed ) │
00:01:51 #4343 [verbose] > │ ( file_1.txt, Deleted ) │
00:01:51 #4344 [verbose] > │ ( file_2.txt, Changed ) │
00:01:51 #4345 [verbose] > │ ( file_2.txt, Renamed ) │
00:01:51 #4346 [verbose] > │ ( file_2.txt, Deleted ) │
00:01:51 #4347 [verbose] > │ FSharpMap<String,String> │
00:01:51 #4348 [verbose] > │ - Key: file1.txt │
00:01:51 #4349 [verbose] > │ Value: Changed │
00:01:51 #4350 [verbose] > │ - Key: file2.txt │
00:01:51 #4351 [verbose] > │ Value: Changed │
00:01:51 #4352 [verbose] > │ - Key: file_1.txt │
00:01:51 #4353 [verbose] > │ Value: Deleted │
00:01:51 #4354 [verbose] > │ - Key: file_2.txt │
00:01:51 #4355 [verbose] > │ Value: Deleted │
00:01:51 #4356 [verbose] > │ FSharpOption<Unit> │
00:01:51 #4357 [verbose] > │ Value: <null> │
00:01:51 #4358 [verbose] > │ │
00:01:51 #4359 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:53 #4360 [verbose] > [NbConvertApp] Converting notebook FileSystem.dib.ipynb to html
00:01:53 #4361 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:53 #4362 [verbose] > validate(nb)
00:01:53 #4363 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:53 #4364 [verbose] > return _pygments_highlight(
00:01:54 #4365 [verbose] > [NbConvertApp] Writing 388129 bytes to FileSystem.dib.html
00:01:54 #4366 [debug] executeAsync / exitCode: 0 / output.Length: 69033
00:01:54 #4367 [debug] main / executeCommand / exitCode: 0
00:01:54 #4368 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 Networking.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:01:57 #4369 [verbose] >
00:01:57 #4370 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:57 #4371 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:57 #4372 [verbose] > │ # Networking (Polyglot) │
00:01:57 #4373 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:57 #4374 [verbose] >
00:01:57 #4375 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:57 #4376 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:01:57 #4377 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:01:57 #4378 [verbose] >
00:01:57 #4379 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:01:57 #4380 [verbose] > #r
00:01:57 #4381 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:01:57 #4382 [verbose] > spNetCore.Html.Abstractions.dll"
00:01:57 #4383 [verbose] > #r
00:01:57 #4384 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:57 #4385 [verbose] > otNet.Interactive.dll"
00:01:57 #4386 [verbose] > #r
00:01:57 #4387 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:57 #4388 [verbose] > otNet.Interactive.FSharp.dll"
00:01:57 #4389 [verbose] > #r
00:01:57 #4390 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:01:57 #4391 [verbose] > otNet.Interactive.Formatting.dll"
00:01:57 #4392 [verbose] > open System
00:01:57 #4393 [verbose] > open System.IO
00:01:57 #4394 [verbose] > open System.Text
00:01:57 #4395 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:02:00 #4396 [verbose] >
00:02:00 #4397 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:00 #4398 [verbose] > #r
00:02:00 #4399 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:00 #4400 [verbose] > otNet.Interactive.FSharp.dll"
00:02:00 #4401 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:02:00 #4402 [verbose] > #r
00:02:00 #4403 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:00 #4404 [verbose] > otNet.Interactive.dll"
00:02:00 #4405 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:02:01 #4406 [verbose] >
00:02:01 #4407 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:01 #4408 [verbose] > //// test
00:02:01 #4409 [verbose] >
00:02:01 #4410 [verbose] > Formatter.ListExpansionLimit <- 100
00:02:01 #4411 [verbose] >
00:02:01 #4412 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:01 #4413 [verbose] > type [[<Struct>]] US0 =
00:02:01 #4414 [verbose] > | US0_0
00:02:01 #4415 [verbose] > | US0_1
00:02:01 #4416 [verbose] > and [[<Struct>]] US1 =
00:02:01 #4417 [verbose] > | US1_0 of f0_0 : US0
00:02:01 #4418 [verbose] > | US1_1
00:02:01 #4419 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:02:01 #4420 [verbose] > let v1 : System.IDisposable option = None
00:02:01 #4421 [verbose] > let mutable _v1 = v1
00:02:01 #4422 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:01 #4423 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:01 #4424 [verbose] > v2
00:02:01 #4425 [verbose] > #endif
00:02:01 #4426 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:01 #4427 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:01 #4428 [verbose] > v3
00:02:01 #4429 [verbose] > #endif
00:02:01 #4430 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:01 #4431 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:01 #4432 [verbose] > v4
00:02:01 #4433 [verbose] > #endif
00:02:01 #4434 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:01 #4435 [verbose] > !WASM && !CONTRACT
00:02:01 #4436 [verbose] > let v5 : System.ID...
00:02:02 #4437 [verbose] >
00:02:02 #4438 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:02 #4439 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:02:02 #4440 [verbose] > and Mut1 = {mutable l0 : int32}
00:02:02 #4441 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:02:02 #4442 [verbose] > let v2 : bool = v1.Contains v0
00:02:02 #4443 [verbose] > v2
00:02:02 #4444 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:02:02 #4445 [verbose] > closure1(v0)
00:02:02 #4446 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:02:02 #4447 [verbose] > let v2 : bool = v1.EndsWith v0
00:02:02 #4448 [verbose] > v2
00:02:02 #4449 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:02:02 #4450 [verbose] > closure3(v0)
00:02:02 #4451 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:02:02 #4452 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:02:02 #4453 [verbose] > v3
00:02:02 #4454 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:02:02 #4455 [verbose] > closure6(v0, v1)
00:02:02 #4456 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:02:02 #4457 [verbose] > closure5(v0)
00:02:02 #4458 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:02:02 #4459 [verbose] > let v2 : stri...
00:02:03 #4460 [verbose] >
00:02:03 #4461 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:03 #4462 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:02:03 #4463 [verbose] > type Mut0 = {mutable l0 : int32}
00:02:03 #4464 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:02:03 #4465 [verbose] > let v2 : int32 = v1.l0
00:02:03 #4466 [verbose] > let v3 : bool = v2 < v0
00:02:03 #4467 [verbose] > v3
00:02:03 #4468 [verbose] > and closure0 () (v0 : string) : string =
00:02:03 #4469 [verbose] > let v1 : string option = None
00:02:03 #4470 [verbose] > let mutable _v1 = v1
00:02:03 #4471 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:03 #4472 [verbose] > let v2 : string = null |> unbox<string>
00:02:03 #4473 [verbose] > v2
00:02:03 #4474 [verbose] > #endif
00:02:03 #4475 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:03 #4476 [verbose] > let v3 : string = null |> unbox<string>
00:02:03 #4477 [verbose] > v3
00:02:03 #4478 [verbose] > #endif
00:02:03 #4479 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:03 #4480 [verbose] > let v4 : string = null |> unbox<string>
00:02:03 #4481 [verbose] > v4
00:02:03 #4482 [verbose] > #endif
00:02:03 #4483 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:03 #4484 [verbose] > !WASM && !CONTRACT
00:02:03 #4485 [verbose] > let v5 : (unit -> System...
00:02:03 #4486 [verbose] >
00:02:03 #4487 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:03 #4488 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:02:03 #4489 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:02:03 #4490 [verbose] > let v3 : string = v2 v0
00:02:03 #4491 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:02:03 #4492 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:02:03 #4493 [verbose] > v5
00:02:03 #4494 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:02:03 #4495 [verbose] > closure1(v0)
00:02:03 #4496 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:02:03 #4497 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:02:03 #4498 [verbose] > v3
00:02:03 #4499 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:02:03 #4500 [verbose] > closure5(v0, v1)
00:02:03 #4501 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:02:03 #4502 [verbose] > closure4(v0)
00:02:03 #4503 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:02:03 #4504 [verbose] > closure3()
00:02:03 #4505 [verbose] > and closure2 (...
00:02:03 #4506 [verbose] >
00:02:03 #4507 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:03 #4508 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:02:03 #4509 [verbose] > Async<System.Threading.CancellationToken> =
00:02:03 #4510 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:02:03 #4511 [verbose] > let mutable _v1 = v1
00:02:03 #4512 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:03 #4513 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:02:03 #4514 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:03 #4515 [verbose] > v2
00:02:03 #4516 [verbose] > #endif
00:02:03 #4517 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:03 #4518 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:02:03 #4519 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:03 #4520 [verbose] > v3
00:02:03 #4521 [verbose] > #endif
00:02:03 #4522 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:03 #4523 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:02:03 #4524 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:03 #4525 [verbose] > v4
00:02:03 #4526 [verbose] > #endif
00:02:03 #4527 [verbose] > #if !FABLE_COMPILER...
00:02:03 #4528 [verbose] >
00:02:03 #4529 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:03 #4530 [verbose] > let rec closure0 () () : bool =
00:02:03 #4531 [verbose] > let v0 : bool option = None
00:02:03 #4532 [verbose] > let mutable _v0 = v0
00:02:03 #4533 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:03 #4534 [verbose] > let v1 : bool = null |> unbox<bool>
00:02:03 #4535 [verbose] > v1
00:02:03 #4536 [verbose] > #endif
00:02:03 #4537 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:03 #4538 [verbose] > let v2 : bool = null |> unbox<bool>
00:02:03 #4539 [verbose] > v2
00:02:03 #4540 [verbose] > #endif
00:02:03 #4541 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:03 #4542 [verbose] > let v3 : bool = null |> unbox<bool>
00:02:03 #4543 [verbose] > v3
00:02:03 #4544 [verbose] > #endif
00:02:03 #4545 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:03 #4546 [verbose] > !WASM && !CONTRACT
00:02:03 #4547 [verbose] > let v4 : System.Runtime.InteropServices.OSPlatform =
00:02:03 #4548 [verbose] > System.Runtime.InteropServices.OSPlatform.Windows
00:02:03 #4549 [verbose] > let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:02:03 #4550 [verbose] > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:02:03 #4551 [verbose] > let v6 : bool = v...
00:02:03 #4552 [verbose] >
00:02:03 #4553 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:03 #4554 [verbose] > #if FABLE_COMPILER // file_system.types
00:02:03 #4555 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:02:03 #4556 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:02:03 #4557 [verbose] > base64_DecodeError = class end
00:02:03 #4558 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:02:03 #4559 [verbose] > = class end
00:02:03 #4560 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:02:03 #4561 [verbose] > = class end
00:02:03 #4562 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:02:03 #4563 [verbose] > serde_json_Error = class end
00:02:03 #4564 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:02:03 #4565 [verbose] > serde_json_Value = class end
00:02:03 #4566 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:02:03 #4567 [verbose] > serde_wasm_bindgen_Error = class end
00:02:03 #4568 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:02:05 #4569 [verbose] >
00:02:05 #4570 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:05 #4571 [verbose] > module State = let mutable trace_state = None
00:02:05 #4572 [verbose] > type [[<Struct>]] US0 =
00:02:05 #4573 [verbose] > | US0_0
00:02:05 #4574 [verbose] > | US0_1
00:02:05 #4575 [verbose] > | US0_2
00:02:05 #4576 [verbose] > | US0_3
00:02:05 #4577 [verbose] > | US0_4
00:02:05 #4578 [verbose] > and Mut0 = {mutable l0 : int64}
00:02:05 #4579 [verbose] > and Mut1 = {mutable l0 : bool}
00:02:05 #4580 [verbose] > and Mut2 = {mutable l0 : US0}
00:02:05 #4581 [verbose] > and [[<Struct>]] US1 =
00:02:05 #4582 [verbose] > | US1_0 of f0_0 : int64
00:02:05 #4583 [verbose] > | US1_1
00:02:05 #4584 [verbose] > and [[<Struct>]] US2 =
00:02:05 #4585 [verbose] > | US2_0 of f0_0 : int64
00:02:05 #4586 [verbose] > | US2_1
00:02:05 #4587 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:02:05 #4588 [verbose] > v0
00:02:05 #4589 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:02:05 #4590 [verbose] > v0
00:02:05 #4591 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:02:05 #4592 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:02:05 #4593 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:02:05 #4594 [verbose] > let v2 : US0 = US0_0
00:02:05 #4595 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:02:05 #4596 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:02:05 #4597 [verbose] > let v5 : int64 option option = None
00:02:05 #4598 [verbose] > ...
00:02:05 #4599 [verbose] >
00:02:05 #4600 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:05 #4601 [verbose] > module SpiralTrace =
00:02:05 #4602 [verbose] > let get_trace_state () =
00:02:05 #4603 [verbose] > #if !INTERACTIVE
00:02:05 #4604 [verbose] > Trace.get_trace_state ()
00:02:05 #4605 [verbose] > #else
00:02:05 #4606 [verbose] > get_trace_state ()
00:02:05 #4607 [verbose] > #endif
00:02:05 #4608 [verbose] > let trace x =
00:02:05 #4609 [verbose] > #if !INTERACTIVE
00:02:05 #4610 [verbose] > Trace.trace x
00:02:05 #4611 [verbose] > #else
00:02:05 #4612 [verbose] > trace x
00:02:05 #4613 [verbose] > #endif
00:02:05 #4614 [verbose] >
00:02:05 #4615 [verbose] > let US0_0 =
00:02:05 #4616 [verbose] > #if !INTERACTIVE
00:02:05 #4617 [verbose] > Trace.US0_0
00:02:05 #4618 [verbose] > #else
00:02:05 #4619 [verbose] > US0_0
00:02:05 #4620 [verbose] > #endif
00:02:05 #4621 [verbose] >
00:02:05 #4622 [verbose] > let US0_1 =
00:02:05 #4623 [verbose] > #if !INTERACTIVE
00:02:05 #4624 [verbose] > Trace.US0_1
00:02:05 #4625 [verbose] > #else
00:02:05 #4626 [verbose] > US0_1
00:02:05 #4627 [verbose] > #endif
00:02:05 #4628 [verbose] >
00:02:05 #4629 [verbose] > let US0_2 =
00:02:05 #4630 [verbose] > #if !INTERACTIVE
00:02:05 #4631 [verbose] > Trace.US0_2
00:02:05 #4632 [verbose] > #else
00:02:05 #4633 [verbose] > US0_2
00:02:05 #4634 [verbose] > #endif
00:02:05 #4635 [verbose] >
00:02:05 #4636 [verbose] > let US0_3 =
00:02:05 #4637 [verbose] > #if !INTERACTIVE
00:02:05 #4638 [verbose] > Trace.US0_3
00:02:05 #4639 [verbose] > #else
00:02:05 #4640 [verbose] > US0_3
00:02:05 #4641 [verbose] > #endif
00:02:05 #4642 [verbose] >
00:02:05 #4643 [verbose] > let US0_4 =
00:02:05 #4644 [verbose] > #if !INTERACTIVE
00:02:05 #4645 [verbose] > Trace.US0_4
00:02:05 #4646 [verbose] > #else
00:02:05 #4647 [verbose] > US0_4
00:02:05 #4648 [verbose] > #endif
00:02:05 #4649 [verbose] >
00:02:05 #4650 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:02:05 #4651 [verbose] >
00:02:05 #4652 [verbose] > module SpiralAsync =
00:02:05 #4653 [verbose] > let merge_cancellation_token_with_default_async x ...
00:02:05 #4654 [verbose] >
00:02:05 #4655 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:05 #4656 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:02:05 #4657 [verbose] >
00:02:05 #4658 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:05 #4659 [verbose] > //// test
00:02:05 #4660 [verbose] >
00:02:05 #4661 [verbose] > type AssertExceptionFormatter (ex) =
00:02:05 #4662 [verbose] > member _.Text =
00:02:05 #4663 [verbose] > ex.ToString()
00:02:05 #4664 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:02:05 #4665 [verbose] > .Replace("36m", "</span>")
00:02:05 #4666 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:02:05 #4667 [verbose] > .Replace("\n", "<br/>\n")
00:02:05 #4668 [verbose] >
00:02:05 #4669 [verbose] >
00:02:05 #4670 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:02:05 #4671 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:02:05 #4672 [verbose] >
00:02:05 #4673 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:05 #4674 [verbose] > //// test
00:02:05 #4675 [verbose] >
00:02:05 #4676 [verbose] > let inline __expect fn log expected actual =
00:02:05 #4677 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:02:05 #4678 [verbose] > try
00:02:05 #4679 [verbose] > "Testing.__expect" |> fn actual expected
00:02:05 #4680 [verbose] > with :? Expecto.AssertException as ex ->
00:02:05 #4681 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:02:05 #4682 [verbose] > failwith (ex.GetType().FullName)
00:02:05 #4683 [verbose] >
00:02:05 #4684 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:02:05 #4685 [verbose] > expected actual
00:02:05 #4686 [verbose] > let inline _contains expected actual = __contains true expected actual
00:02:05 #4687 [verbose] >
00:02:05 #4688 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:02:05 #4689 [verbose] > expected actual
00:02:05 #4690 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:02:05 #4691 [verbose] >
00:02:05 #4692 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:02:05 #4693 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:02:05 #4694 [verbose] >
00:02:05 #4695 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:05 #4696 [verbose] > //// test
00:02:05 #4697 [verbose] >
00:02:05 #4698 [verbose] > let inline __isBetween log a b actual =
00:02:05 #4699 [verbose] > let inline isBetween actual (a, b) _ =
00:02:05 #4700 [verbose] > __isGreaterThanOrEqual log a actual
00:02:05 #4701 [verbose] > __isLessThanOrEqual log b actual
00:02:05 #4702 [verbose] > __expect isBetween log (a, b) actual
00:02:05 #4703 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:02:06 #4704 [verbose] >
00:02:06 #4705 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:06 #4706 [verbose] > #r
00:02:06 #4707 [verbose] > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:02:06 #4708 [verbose] > #r
00:02:06 #4709 [verbose] > @"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
00:02:06 #4710 [verbose] > b/net6.0/System.CommandLine.dll"
00:02:06 #4711 [verbose] >
00:02:06 #4712 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:06 #4713 [verbose] > #!import ../../lib/fsharp/Common.fs
00:02:06 #4714 [verbose] > #!import ../../lib/fsharp/CommonFSharp.fs
00:02:06 #4715 [verbose] > #!import ../../lib/fsharp/Async.fs
00:02:06 #4716 [verbose] > #!import ../../lib/fsharp/Runtime.fs
00:02:06 #4717 [verbose] >
00:02:06 #4718 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:06 #4719 [verbose] > #if !INTERACTIVE
00:02:06 #4720 [verbose] > namespace Polyglot
00:02:06 #4721 [verbose] > #endif
00:02:06 #4722 [verbose] >
00:02:06 #4723 [verbose] > module Common =
00:02:06 #4724 [verbose] >
00:02:06 #4725 [verbose] > #if !INTERACTIVE
00:02:06 #4726 [verbose] > open Lib
00:02:06 #4727 [verbose] > #endif
00:02:06 #4728 [verbose] >
00:02:06 #4729 [verbose] > let nl = System.Environment.NewLine
00:02:06 #4730 [verbose] > let q = @""""
00:02:06 #4731 [verbose] >
00:02:06 #4732 [verbose] > let inline cons head tail = head :: tail
00:02:06 #4733 [verbose] >
00:02:06 #4734 [verbose] > /// ## memoize
00:02:06 #4735 [verbose] >
00:02:06 #4736 [verbose] > let inline memoize fn =
00:02:06 #4737 [verbose] > let result = lazy fn ()
00:02:06 #4738 [verbose] > fun () -> result.Value
00:02:06 #4739 [verbose] >
00:02:06 #4740 [verbose] > /// ## TraceLevel
00:02:06 #4741 [verbose] >
00:02:06 #4742 [verbose] > type TraceLevel =
00:02:06 #4743 [verbose] > | Verbose
00:02:06 #4744 [verbose] > | Debug
00:02:06 #4745 [verbose] > | Info
00:02:06 #4746 [verbose] > | Warning
00:02:06 #4747 [verbose] > | Critical
00:02:06 #4748 [verbose] >
00:02:06 #4749 [verbose] > let inline getLocals () = ""
00:02:06 #4750 [verbose] >
00:02:06 #4751 [verbose] > /// ## trace
00:02:06 #4752 [verbose] >
00:02:06 #4753 [verbose] > let to_trace_level = function
00:02:06 #4754 [verbose] > | Verbose -> SpiralTrace.US0_0
00:02:06 #4755 [verbose] > | Debug -> SpiralTrace.US0_1
00:02:06 #4756 [verbose] > | Info -> SpiralTrace.US0_2
00:02:06 #4757 [verbose] > | Warning -> SpiralTrace.US0_3
00:02:06 #4758 [verbose] > | Critical -> SpiralTrace.US0_4
00:02:06 #4759 [verbose] >
00:02:06 #4760 [verbose] > let trace level fn g...
00:02:06 #4761 [verbose] >
00:02:06 #4762 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:06 #4763 [verbose] > #if !INTERACTIVE
00:02:06 #4764 [verbose] > namespace Polyglot
00:02:06 #4765 [verbose] > #endif
00:02:06 #4766 [verbose] >
00:02:06 #4767 [verbose] > module CommonFSharp =
00:02:06 #4768 [verbose] >
00:02:06 #4769 [verbose] > open Common
00:02:06 #4770 [verbose] >
00:02:06 #4771 [verbose] > /// ## getUnionCaseName
00:02:06 #4772 [verbose] >
00:02:06 #4773 [verbose] > let inline getUnionCaseName<'T> (x: 'T) =
00:02:06 #4774 [verbose] > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:02:06 #4775 [verbose] > | case, _ -> case.Name
00:02:06 #4776 [verbose] >
00:02:06 #4777 [verbose] >
00:02:06 #4778 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:06 #4779 [verbose] > #if !INTERACTIVE
00:02:06 #4780 [verbose] > namespace Polyglot
00:02:06 #4781 [verbose] > #endif
00:02:06 #4782 [verbose] >
00:02:06 #4783 [verbose] > module Async =
00:02:06 #4784 [verbose] >
00:02:06 #4785 [verbose] > #if !INTERACTIVE
00:02:06 #4786 [verbose] > open Lib
00:02:06 #4787 [verbose] > #endif
00:02:06 #4788 [verbose] >
00:02:06 #4789 [verbose] > open Common
00:02:06 #4790 [verbose] >
00:02:06 #4791 [verbose] > /// ## choice
00:02:06 #4792 [verbose] >
00:02:06 #4793 [verbose] > let inline choice asyncs = async {
00:02:06 #4794 [verbose] > let e = Event<_> ()
00:02:06 #4795 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:02:06 #4796 [verbose] > let fn =
00:02:06 #4797 [verbose] > asyncs
00:02:06 #4798 [verbose] > |> Seq.map (fun a -> async {
00:02:06 #4799 [verbose] > let! x = a
00:02:06 #4800 [verbose] > e.Trigger x
00:02:06 #4801 [verbose] > })
00:02:06 #4802 [verbose] > |> Async.Parallel
00:02:06 #4803 [verbose] > |> Async.Ignore
00:02:06 #4804 [verbose] > Async.Start (fn, cts.Token)
00:02:06 #4805 [verbose] > let! result = Async.AwaitEvent e.Publish
00:02:06 #4806 [verbose] > cts.Cancel ()
00:02:06 #4807 [verbose] > return result
00:02:06 #4808 [verbose] > }
00:02:06 #4809 [verbose] >
00:02:06 #4810 [verbose] > /// ## map
00:02:06 #4811 [verbose] >
00:02:06 #4812 [verbose] > let inline map fn a = async {
00:02:06 #4813 [verbose] > let! x = a
00:02:06 #4814 [verbose] > return fn x
00:02:06 #4815 [verbose] > }
00:02:06 #4816 [verbose] >
00:02:06 #4817 [verbose] > /// ## catch
00:02:06 #4818 [verbose] >
00:02:06 #4819 [verbose] > let inline catch a =
00:02:06 #4820 [verbose] > ...
00:02:06 #4821 [verbose] >
00:02:06 #4822 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:06 #4823 [verbose] > #if !INTERACTIVE
00:02:06 #4824 [verbose] > namespace Polyglot
00:02:06 #4825 [verbose] > #endif
00:02:06 #4826 [verbose] >
00:02:06 #4827 [verbose] > module Runtime =
00:02:06 #4828 [verbose] >
00:02:06 #4829 [verbose] > #if !INTERACTIVE
00:02:06 #4830 [verbose] > open Lib
00:02:06 #4831 [verbose] > #endif
00:02:06 #4832 [verbose] >
00:02:06 #4833 [verbose] > open Common
00:02:06 #4834 [verbose] >
00:02:06 #4835 [verbose] > /// ## splitCommand
00:02:06 #4836 [verbose] >
00:02:06 #4837 [verbose] > type private CommandParseStep =
00:02:06 #4838 [verbose] > | Start
00:02:06 #4839 [verbose] > | Path of quoted: bool
00:02:06 #4840 [verbose] > | Arguments
00:02:06 #4841 [verbose] >
00:02:06 #4842 [verbose] > let splitCommand (command: string) =
00:02:06 #4843 [verbose] > let rec loop (path, args) chars step =
00:02:06 #4844 [verbose] > match chars, step with
00:02:06 #4845 [verbose] > | ('"' | '\'') :: tail, _ when path = "" -> loop (path, args) tail
00:02:06 #4846 [verbose] > (Path true)
00:02:06 #4847 [verbose] > | ('"' | '\'') :: tail, Path true -> loop (path, args) tail (Path
00:02:06 #4848 [verbose] > false)
00:02:06 #4849 [verbose] > | ' ' :: tail, Path true -> loop ($"{path} ", args) tail (Path true)
00:02:06 #4850 [verbose] > | ' ' :: tail, (Start | Path _) -> loop (path, args) tail Arguments
00:02:06 #4851 [verbose] > | char :: tail, Arguments -> loo...
00:02:07 #4852 [verbose] >
00:02:07 #4853 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:07 #4854 [verbose] > #if !INTERACTIVE
00:02:07 #4855 [verbose] > open Lib
00:02:07 #4856 [verbose] > #endif
00:02:07 #4857 [verbose] >
00:02:07 #4858 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:07 #4859 [verbose] > open Common
00:02:07 #4860 [verbose] >
00:02:07 #4861 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:07 #4862 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:07 #4863 [verbose] > │ ## testPortOpen │
00:02:07 #4864 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:07 #4865 [verbose] >
00:02:07 #4866 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:07 #4867 [verbose] > let inline testPortOpen port = async {
00:02:07 #4868 [verbose] > let! ct = Async.CancellationToken
00:02:07 #4869 [verbose] > use client = new System.Net.Sockets.TcpClient ()
00:02:07 #4870 [verbose] > try
00:02:07 #4871 [verbose] > do! client.ConnectAsync ("127.0.0.1", port, ct) |>
00:02:07 #4872 [verbose] > Async.awaitValueTaskUnit
00:02:07 #4873 [verbose] > return true
00:02:07 #4874 [verbose] > with ex ->
00:02:07 #4875 [verbose] > trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
00:02:07 #4876 [verbose] > SpiralSm.format_exception}") getLocals
00:02:07 #4877 [verbose] > return false
00:02:07 #4878 [verbose] > }
00:02:07 #4879 [verbose] >
00:02:07 #4880 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:07 #4881 [verbose] > //// test
00:02:07 #4882 [verbose] >
00:02:07 #4883 [verbose] > testPortOpen 65536
00:02:07 #4884 [verbose] > |> Async.runWithTimeout 120
00:02:07 #4885 [verbose] > |> _assertEqual (Some false)
00:02:07 #4886 [verbose] >
00:02:07 #4887 [verbose] > ╭─[ 143.65ms - stdout ]────────────────────────────────────────────────────────╮
00:02:07 #4888 [verbose] > │ 00:00:00 #1 [verbose] testPortOpen / ex: System.ArgumentOutOfRangeException: │
00:02:07 #4889 [verbose] > │ Specified argument was out of the range of valid values. (Parameter 'port') │
00:02:07 #4890 [verbose] > │ FSharpOption<Boolean> │
00:02:07 #4891 [verbose] > │ Value: False │
00:02:07 #4892 [verbose] > │ │
00:02:07 #4893 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:07 #4894 [verbose] >
00:02:07 #4895 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:07 #4896 [verbose] > let inline testPortOpenTimeout timeout port = async {
00:02:07 #4897 [verbose] > let! result =
00:02:07 #4898 [verbose] > testPortOpen port
00:02:07 #4899 [verbose] > |> Async.runWithTimeoutAsync timeout
00:02:07 #4900 [verbose] > return
00:02:07 #4901 [verbose] > match result with
00:02:07 #4902 [verbose] > | None -> false
00:02:07 #4903 [verbose] > | Some result -> result
00:02:07 #4904 [verbose] > }
00:02:07 #4905 [verbose] >
00:02:07 #4906 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:07 #4907 [verbose] > //// test
00:02:07 #4908 [verbose] >
00:02:07 #4909 [verbose] > testPortOpenTimeout 120 65535
00:02:07 #4910 [verbose] > |> Async.RunSynchronously
00:02:07 #4911 [verbose] > |> _assertEqual false
00:02:08 #4912 [verbose] >
00:02:08 #4913 [verbose] > ╭─[ 246.69ms - stdout ]────────────────────────────────────────────────────────╮
00:02:08 #4914 [verbose] > │ 00:00:00 #2 [debug] runWithTimeoutChildAsync / timeout: 120 │
00:02:08 #4915 [verbose] > │ False │
00:02:08 #4916 [verbose] > │ │
00:02:08 #4917 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:08 #4918 [verbose] >
00:02:08 #4919 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:08 #4920 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:08 #4921 [verbose] > │ ## waitForPortAccess │
00:02:08 #4922 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:08 #4923 [verbose] >
00:02:08 #4924 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:08 #4925 [verbose] > let inline waitForPortAccess timeout status port =
00:02:08 #4926 [verbose] > let rec loop retry = async {
00:02:08 #4927 [verbose] > let! isPortOpen =
00:02:08 #4928 [verbose] > match timeout with
00:02:08 #4929 [verbose] > | None -> testPortOpen port
00:02:08 #4930 [verbose] > | Some timeout -> testPortOpenTimeout timeout port
00:02:08 #4931 [verbose] > if isPortOpen = status
00:02:08 #4932 [verbose] > then return retry
00:02:08 #4933 [verbose] > else
00:02:08 #4934 [verbose] > if retry % 100 = 0 then
00:02:08 #4935 [verbose] > let getLocals () = $"port: {port} / retry: {retry} / {getLocals
00:02:08 #4936 [verbose] > ()}"
00:02:08 #4937 [verbose] > trace Verbose (fun () -> "waitForPortAccess") getLocals
00:02:08 #4938 [verbose] > do! Async.Sleep 10
00:02:08 #4939 [verbose] > return! loop (retry + 1)
00:02:08 #4940 [verbose] > }
00:02:08 #4941 [verbose] > loop 0
00:02:08 #4942 [verbose] >
00:02:08 #4943 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:08 #4944 [verbose] > //// test
00:02:08 #4945 [verbose] >
00:02:08 #4946 [verbose] > let port = 5555
00:02:08 #4947 [verbose] >
00:02:08 #4948 [verbose] > let inline lockPort () = async {
00:02:08 #4949 [verbose] > trace Debug (fun () -> "_1") getLocals
00:02:08 #4950 [verbose] > do! Async.Sleep 5000
00:02:08 #4951 [verbose] > use listener = new System.Net.Sockets.TcpListener
00:02:08 #4952 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port)
00:02:08 #4953 [verbose] > trace Debug (fun () -> "_2") getLocals
00:02:08 #4954 [verbose] > listener.Start ()
00:02:08 #4955 [verbose] > trace Debug (fun () -> "_3") getLocals
00:02:08 #4956 [verbose] > do! Async.Sleep 2000
00:02:08 #4957 [verbose] > trace Debug (fun () -> "_4") getLocals
00:02:08 #4958 [verbose] > listener.Stop ()
00:02:08 #4959 [verbose] > trace Debug (fun () -> "_5") getLocals
00:02:08 #4960 [verbose] > }
00:02:08 #4961 [verbose] >
00:02:08 #4962 [verbose] > async {
00:02:08 #4963 [verbose] > trace Debug (fun () -> "1") getLocals
00:02:08 #4964 [verbose] > let! child = lockPort () |> Async.StartChild
00:02:08 #4965 [verbose] > trace Debug (fun () -> "2") getLocals
00:02:08 #4966 [verbose] > do! Async.Sleep 1
00:02:08 #4967 [verbose] > trace Debug (fun () -> "3") getLocals
00:02:08 #4968 [verbose] > let! retries1 = waitForPortAccess None true port
00:02:08 #4969 [verbose] > trace Debug (fun () -> "4") getLocals
00:02:08 #4970 [verbose] > let! retries2 = waitForPortAccess None false port
00:02:08 #4971 [verbose] > trace Debug (fun () -> "5") getLocals
00:02:08 #4972 [verbose] > do! child
00:02:08 #4973 [verbose] > trace Debug (fun () -> "6") getLocals
00:02:08 #4974 [verbose] > return retries1, retries2
00:02:08 #4975 [verbose] > }
00:02:08 #4976 [verbose] > |> Async.runWithTimeout 20000
00:02:08 #4977 [verbose] > |> function
00:02:08 #4978 [verbose] > | Some (retries1, retries2) ->
00:02:08 #4979 [verbose] > retries1
00:02:08 #4980 [verbose] > |> _isBetween
00:02:08 #4981 [verbose] > (if SpiralRuntime.is_windows () then 2 else 2)
00:02:08 #4982 [verbose] > (if SpiralRuntime.is_windows () then 5 else 1500)
00:02:08 #4983 [verbose] >
00:02:08 #4984 [verbose] > retries2
00:02:08 #4985 [verbose] > |> _isBetween
00:02:08 #4986 [verbose] > (if SpiralRuntime.is_windows () then 80 else 80)
00:02:08 #4987 [verbose] > (if SpiralRuntime.is_windows () then 150 else 600)
00:02:08 #4988 [verbose] >
00:02:08 #4989 [verbose] > true
00:02:08 #4990 [verbose] > | _ -> false
00:02:08 #4991 [verbose] > |> _assertEqual true
00:02:17 #4992 [verbose] >
00:02:17 #4993 [verbose] > ╭─[ 9.55s - stdout ]───────────────────────────────────────────────────────────╮
00:02:17 #4994 [verbose] > │ 00:00:01 #3 [debug] 1 │
00:02:17 #4995 [verbose] > │ 00:00:01 #4 [debug] _1 │
00:02:17 #4996 [verbose] > │ 00:00:01 #5 [debug] 2 │
00:02:17 #4997 [verbose] > │ 00:00:01 #6 [debug] 3 │
00:02:17 #4998 [verbose] > │ 00:00:03 #7 [verbose] testPortOpen / ex: System.AggregateException: One or │
00:02:17 #4999 [verbose] > │ more errors occurred. (No connection could be made because the target │
00:02:17 #5000 [verbose] > │ machine actively refused it.) │
00:02:17 #5001 [verbose] > │ 00:00:03 #8 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:17 #5002 [verbose] > │ 00:00:05 #9 [verbose] testPortOpen / ex: System.AggregateException: One or │
00:02:17 #5003 [verbose] > │ more errors occurred. (No connection could be made because the target │
00:02:17 #5004 [verbose] > │ machine actively refused it.) │
00:02:17 #5005 [verbose] > │ 00:00:06 #10 [debug] _2 │
00:02:17 #5006 [verbose] > │ 00:00:06 #11 [debug] _3 │
00:02:17 #5007 [verbose] > │ 00:00:06 #12 [debug] 4 │
00:02:17 #5008 [verbose] > │ 00:00:06 #13 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:17 #5009 [verbose] > │ 00:00:07 #14 [verbose] waitForPortAccess / port: 5555 / retry: 100 │
00:02:17 #5010 [verbose] > │ 00:00:08 #15 [debug] _4 │
00:02:17 #5011 [verbose] > │ 00:00:08 #16 [debug] _5 │
00:02:17 #5012 [verbose] > │ 00:00:10 #17 [verbose] testPortOpen / ex: System.AggregateException: One or │
00:02:17 #5013 [verbose] > │ more errors occurred. (No connection could be made because the target │
00:02:17 #5014 [verbose] > │ machine actively refused it.) │
00:02:17 #5015 [verbose] > │ 00:00:10 #18 [debug] 5 │
00:02:17 #5016 [verbose] > │ 00:00:10 #19 [debug] 6 │
00:02:17 #5017 [verbose] > │ 2 │
00:02:17 #5018 [verbose] > │ 2 │
00:02:17 #5019 [verbose] > │ 2 │
00:02:17 #5020 [verbose] > │ 120 │
00:02:17 #5021 [verbose] > │ 120 │
00:02:17 #5022 [verbose] > │ 120 │
00:02:17 #5023 [verbose] > │ True │
00:02:17 #5024 [verbose] > │ │
00:02:17 #5025 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:17 #5026 [verbose] >
00:02:17 #5027 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:17 #5028 [verbose] > //// test
00:02:17 #5029 [verbose] >
00:02:17 #5030 [verbose] > let port = 5555
00:02:17 #5031 [verbose] >
00:02:17 #5032 [verbose] > let inline lockPort () = async {
00:02:17 #5033 [verbose] > trace Debug (fun () -> "_1") getLocals
00:02:17 #5034 [verbose] > do! Async.Sleep 500
00:02:17 #5035 [verbose] > use listener = new System.Net.Sockets.TcpListener
00:02:17 #5036 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port)
00:02:17 #5037 [verbose] > trace Debug (fun () -> "_2") getLocals
00:02:17 #5038 [verbose] > listener.Start ()
00:02:17 #5039 [verbose] > trace Debug (fun () -> "_3") getLocals
00:02:17 #5040 [verbose] > do! Async.Sleep 200
00:02:17 #5041 [verbose] > trace Debug (fun () -> "_4") getLocals
00:02:17 #5042 [verbose] > listener.Stop ()
00:02:17 #5043 [verbose] > trace Debug (fun () -> "_5") getLocals
00:02:17 #5044 [verbose] > }
00:02:17 #5045 [verbose] >
00:02:17 #5046 [verbose] > async {
00:02:17 #5047 [verbose] > trace Debug (fun () -> "1") getLocals
00:02:17 #5048 [verbose] > let! child = lockPort () |> Async.StartChild
00:02:17 #5049 [verbose] > trace Debug (fun () -> "2") getLocals
00:02:17 #5050 [verbose] > do! Async.Sleep 1
00:02:17 #5051 [verbose] > trace Debug (fun () -> "3") getLocals
00:02:17 #5052 [verbose] > let! retries1 = waitForPortAccess (Some 60) true port
00:02:17 #5053 [verbose] > trace Debug (fun () -> "4") getLocals
00:02:17 #5054 [verbose] > let! retries2 = waitForPortAccess (Some 60) false port
00:02:17 #5055 [verbose] > trace Debug (fun () -> "5") getLocals
00:02:17 #5056 [verbose] > do! child
00:02:17 #5057 [verbose] > trace Debug (fun () -> "6") getLocals
00:02:17 #5058 [verbose] > return retries1, retries2
00:02:17 #5059 [verbose] > }
00:02:17 #5060 [verbose] > |> Async.runWithTimeout 2000
00:02:17 #5061 [verbose] > |> function
00:02:17 #5062 [verbose] > | Some (retries1, retries2) ->
00:02:17 #5063 [verbose] > retries1
00:02:17 #5064 [verbose] > |> _isBetween
00:02:17 #5065 [verbose] > (if SpiralRuntime.is_windows () then 4 else 2)
00:02:17 #5066 [verbose] > (if SpiralRuntime.is_windows () then 15 else 150)
00:02:17 #5067 [verbose] >
00:02:17 #5068 [verbose] > retries2
00:02:17 #5069 [verbose] > |> _isBetween
00:02:17 #5070 [verbose] > (if SpiralRuntime.is_windows () then 5 else 0)
00:02:17 #5071 [verbose] > (if SpiralRuntime.is_windows () then 20 else 60)
00:02:17 #5072 [verbose] >
00:02:17 #5073 [verbose] > true
00:02:17 #5074 [verbose] > | _ -> false
00:02:17 #5075 [verbose] > |> _assertEqual true
00:02:19 #5076 [verbose] >
00:02:19 #5077 [verbose] > ╭─[ 1.39s - stdout ]───────────────────────────────────────────────────────────╮
00:02:19 #5078 [verbose] > │ 00:00:10 #20 [debug] 1 │
00:02:19 #5079 [verbose] > │ 00:00:10 #21 [debug] 2 │
00:02:19 #5080 [verbose] > │ 00:00:10 #22 [debug] _1 │
00:02:19 #5081 [verbose] > │ 00:00:10 #23 [debug] 3 │
00:02:19 #5082 [verbose] > │ 00:00:10 #24 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:19 #5083 [verbose] > │ 00:00:10 #25 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:19 #5084 [verbose] > │ 00:00:10 #26 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:19 #5085 [verbose] > │ 00:00:11 #27 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:19 #5086 [verbose] > │ 00:00:11 #28 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:19 #5087 [verbose] > │ 00:00:11 #29 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:19 #5088 [verbose] > │ 00:00:11 #30 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:19 #5089 [verbose] > │ 00:00:11 #31 [debug] _2 │
00:02:19 #5090 [verbose] > │ 00:00:11 #32 [debug] _3 │
00:02:19 #5091 [verbose] > │ 00:00:11 #33 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:19 #5092 [verbose] > │ 00:00:11 #34 [debug] 4 │
00:02:19 #5093 [verbose] > │ 00:00:11 #35 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:19 #5094 [verbose] > │ 00:00:11 #36 [debug] _4 │
00:02:19 #5095 [verbose] > │ 00:00:11 #37 [debug] _5 │
00:02:19 #5096 [verbose] > │ 00:00:11 #38 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:19 #5097 [verbose] > │ 00:00:11 #39 [debug] 5 │
00:02:19 #5098 [verbose] > │ 00:00:11 #40 [debug] 6 │
00:02:19 #5099 [verbose] > │ 7 │
00:02:19 #5100 [verbose] > │ 7 │
00:02:19 #5101 [verbose] > │ 7 │
00:02:19 #5102 [verbose] > │ 8 │
00:02:19 #5103 [verbose] > │ 8 │
00:02:19 #5104 [verbose] > │ 8 │
00:02:19 #5105 [verbose] > │ True │
00:02:19 #5106 [verbose] > │ │
00:02:19 #5107 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:19 #5108 [verbose] >
00:02:19 #5109 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:19 #5110 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:19 #5111 [verbose] > │ ## getAvailablePort │
00:02:19 #5112 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:19 #5113 [verbose] >
00:02:19 #5114 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:19 #5115 [verbose] > let inline getAvailablePort timeout initialPort =
00:02:19 #5116 [verbose] > let rec loop port = async {
00:02:19 #5117 [verbose] > let! isPortOpen =
00:02:19 #5118 [verbose] > match timeout with
00:02:19 #5119 [verbose] > | None -> testPortOpen port
00:02:19 #5120 [verbose] > | Some timeout -> testPortOpenTimeout timeout port
00:02:19 #5121 [verbose] > if not isPortOpen
00:02:19 #5122 [verbose] > then return port
00:02:19 #5123 [verbose] > else return! loop (port + 1)
00:02:19 #5124 [verbose] > }
00:02:19 #5125 [verbose] > loop initialPort
00:02:19 #5126 [verbose] >
00:02:19 #5127 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:19 #5128 [verbose] > //// test
00:02:19 #5129 [verbose] >
00:02:19 #5130 [verbose] > let port = 5555
00:02:19 #5131 [verbose] >
00:02:19 #5132 [verbose] > let inline lockPorts () = async {
00:02:19 #5133 [verbose] > trace Debug (fun () -> "_1") getLocals
00:02:19 #5134 [verbose] > use listener1 = new System.Net.Sockets.TcpListener
00:02:19 #5135 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port)
00:02:19 #5136 [verbose] > use listener2 = new System.Net.Sockets.TcpListener
00:02:19 #5137 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port + 1)
00:02:19 #5138 [verbose] > trace Debug (fun () -> "_2") getLocals
00:02:19 #5139 [verbose] > listener1.Start ()
00:02:19 #5140 [verbose] > listener2.Start ()
00:02:19 #5141 [verbose] > trace Debug (fun () -> "_3") getLocals
00:02:19 #5142 [verbose] > do! Async.Sleep 4000
00:02:19 #5143 [verbose] > trace Debug (fun () -> "_4") getLocals
00:02:19 #5144 [verbose] > listener1.Stop ()
00:02:19 #5145 [verbose] > listener2.Stop ()
00:02:19 #5146 [verbose] > trace Debug (fun () -> "_5") getLocals
00:02:19 #5147 [verbose] > }
00:02:19 #5148 [verbose] >
00:02:19 #5149 [verbose] > async {
00:02:19 #5150 [verbose] > trace Debug (fun () -> "1") getLocals
00:02:19 #5151 [verbose] > let! child = lockPorts () |> Async.StartChild
00:02:19 #5152 [verbose] > trace Debug (fun () -> "2") getLocals
00:02:19 #5153 [verbose] > do! Async.Sleep 240
00:02:19 #5154 [verbose] > trace Debug (fun () -> "3") getLocals
00:02:19 #5155 [verbose] > let! availablePort = getAvailablePort None port
00:02:19 #5156 [verbose] > trace Debug (fun () -> "4") getLocals
00:02:19 #5157 [verbose] > let! retries = waitForPortAccess None false port
00:02:19 #5158 [verbose] > trace Debug (fun () -> "5") getLocals
00:02:19 #5159 [verbose] > do! child
00:02:19 #5160 [verbose] > trace Debug (fun () -> "6") getLocals
00:02:19 #5161 [verbose] > return availablePort, retries
00:02:19 #5162 [verbose] > }
00:02:19 #5163 [verbose] > |> Async.runWithTimeout 15000
00:02:19 #5164 [verbose] > |> function
00:02:19 #5165 [verbose] > | Some (availablePort, retries) ->
00:02:19 #5166 [verbose] > availablePort |> _assertEqual (port + 2)
00:02:19 #5167 [verbose] >
00:02:19 #5168 [verbose] > retries
00:02:19 #5169 [verbose] > |> _isBetween
00:02:19 #5170 [verbose] > (if SpiralRuntime.is_windows () then 100 else 100)
00:02:19 #5171 [verbose] > (if SpiralRuntime.is_windows () then 150 else 1200)
00:02:19 #5172 [verbose] >
00:02:19 #5173 [verbose] > true
00:02:19 #5174 [verbose] > | _ -> false
00:02:19 #5175 [verbose] > |> _assertEqual true
00:02:25 #5176 [verbose] >
00:02:25 #5177 [verbose] > ╭─[ 6.53s - stdout ]───────────────────────────────────────────────────────────╮
00:02:25 #5178 [verbose] > │ 00:00:12 #41 [debug] 1 │
00:02:25 #5179 [verbose] > │ 00:00:12 #42 [debug] 2 │
00:02:25 #5180 [verbose] > │ 00:00:12 #43 [debug] _1 │
00:02:25 #5181 [verbose] > │ 00:00:12 #44 [debug] _2 │
00:02:25 #5182 [verbose] > │ 00:00:12 #45 [debug] _3 │
00:02:25 #5183 [verbose] > │ 00:00:12 #46 [debug] 3 │
00:02:25 #5184 [verbose] > │ 00:00:14 #47 [verbose] testPortOpen / ex: System.AggregateException: One or │
00:02:25 #5185 [verbose] > │ more errors occurred. (No connection could be made because the target │
00:02:25 #5186 [verbose] > │ machine actively refused it.) │
00:02:25 #5187 [verbose] > │ 00:00:14 #48 [debug] 4 │
00:02:25 #5188 [verbose] > │ 00:00:14 #49 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:25 #5189 [verbose] > │ 00:00:16 #50 [verbose] waitForPortAccess / port: 5555 / retry: 100 │
00:02:25 #5190 [verbose] > │ 00:00:16 #51 [debug] _4 │
00:02:25 #5191 [verbose] > │ 00:00:16 #52 [debug] _5 │
00:02:25 #5192 [verbose] > │ 00:00:18 #53 [verbose] testPortOpen / ex: System.AggregateException: One or │
00:02:25 #5193 [verbose] > │ more errors occurred. (No connection could be made because the target │
00:02:25 #5194 [verbose] > │ machine actively refused it.) │
00:02:25 #5195 [verbose] > │ 00:00:18 #54 [debug] 5 │
00:02:25 #5196 [verbose] > │ 00:00:18 #55 [debug] 6 │
00:02:25 #5197 [verbose] > │ 5557 │
00:02:25 #5198 [verbose] > │ 112 │
00:02:25 #5199 [verbose] > │ 112 │
00:02:25 #5200 [verbose] > │ 112 │
00:02:25 #5201 [verbose] > │ True │
00:02:25 #5202 [verbose] > │ │
00:02:25 #5203 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #5204 [verbose] >
00:02:25 #5205 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:25 #5206 [verbose] > //// test
00:02:25 #5207 [verbose] >
00:02:25 #5208 [verbose] > let port = 5555
00:02:25 #5209 [verbose] >
00:02:25 #5210 [verbose] > let inline lockPorts () = async {
00:02:25 #5211 [verbose] > trace Debug (fun () -> "_1") getLocals
00:02:25 #5212 [verbose] > use listener1 = new System.Net.Sockets.TcpListener
00:02:25 #5213 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port)
00:02:25 #5214 [verbose] > use listener2 = new System.Net.Sockets.TcpListener
00:02:25 #5215 [verbose] > (System.Net.IPAddress.Parse "127.0.0.1", port + 1)
00:02:25 #5216 [verbose] > trace Debug (fun () -> "_2") getLocals
00:02:25 #5217 [verbose] > listener1.Start ()
00:02:25 #5218 [verbose] > listener2.Start ()
00:02:25 #5219 [verbose] > trace Debug (fun () -> "_3") getLocals
00:02:25 #5220 [verbose] > do! Async.Sleep 400
00:02:25 #5221 [verbose] > trace Debug (fun () -> "_4") getLocals
00:02:25 #5222 [verbose] > listener1.Stop ()
00:02:25 #5223 [verbose] > listener2.Stop ()
00:02:25 #5224 [verbose] > trace Debug (fun () -> "_5") getLocals
00:02:25 #5225 [verbose] > }
00:02:25 #5226 [verbose] >
00:02:25 #5227 [verbose] > async {
00:02:25 #5228 [verbose] > trace Debug (fun () -> "1") getLocals
00:02:25 #5229 [verbose] > let! child = lockPorts () |> Async.StartChild
00:02:25 #5230 [verbose] > trace Debug (fun () -> "2") getLocals
00:02:25 #5231 [verbose] > do! Async.Sleep 240
00:02:25 #5232 [verbose] > trace Debug (fun () -> "3") getLocals
00:02:25 #5233 [verbose] > let! availablePort = getAvailablePort (Some 60) port
00:02:25 #5234 [verbose] > trace Debug (fun () -> "4") getLocals
00:02:25 #5235 [verbose] > let! retries = waitForPortAccess (Some 60) false port
00:02:25 #5236 [verbose] > trace Debug (fun () -> "5") getLocals
00:02:25 #5237 [verbose] > do! child
00:02:25 #5238 [verbose] > trace Debug (fun () -> "6") getLocals
00:02:25 #5239 [verbose] > return availablePort, retries
00:02:25 #5240 [verbose] > }
00:02:25 #5241 [verbose] > |> Async.runWithTimeout 1500
00:02:25 #5242 [verbose] > |> function
00:02:25 #5243 [verbose] > | Some (availablePort, retries) ->
00:02:25 #5244 [verbose] > availablePort |> _assertEqual (port + 2)
00:02:25 #5245 [verbose] >
00:02:25 #5246 [verbose] > retries
00:02:25 #5247 [verbose] > |> _isBetween
00:02:25 #5248 [verbose] > (if SpiralRuntime.is_windows () then 2 else 1)
00:02:25 #5249 [verbose] > (if SpiralRuntime.is_windows () then 10 else 120)
00:02:25 #5250 [verbose] >
00:02:25 #5251 [verbose] > true
00:02:25 #5252 [verbose] > | _ -> false
00:02:25 #5253 [verbose] > |> _assertEqual true
00:02:26 #5254 [verbose] >
00:02:26 #5255 [verbose] > ╭─[ 939.96ms - stdout ]────────────────────────────────────────────────────────╮
00:02:26 #5256 [verbose] > │ 00:00:18 #56 [debug] 1 │
00:02:26 #5257 [verbose] > │ 00:00:18 #57 [debug] 2 │
00:02:26 #5258 [verbose] > │ 00:00:18 #58 [debug] _1 │
00:02:26 #5259 [verbose] > │ 00:00:18 #59 [debug] _2 │
00:02:26 #5260 [verbose] > │ 00:00:18 #60 [debug] _3 │
00:02:26 #5261 [verbose] > │ 00:00:19 #61 [debug] 3 │
00:02:26 #5262 [verbose] > │ 00:00:19 #62 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:26 #5263 [verbose] > │ 00:00:19 #63 [debug] 4 │
00:02:26 #5264 [verbose] > │ 00:00:19 #64 [verbose] waitForPortAccess / port: 5555 / retry: 0 │
00:02:26 #5265 [verbose] > │ 00:00:19 #65 [debug] _4 │
00:02:26 #5266 [verbose] > │ 00:00:19 #66 [debug] _5 │
00:02:26 #5267 [verbose] > │ 00:00:19 #67 [debug] runWithTimeoutChildAsync / timeout: 60 │
00:02:26 #5268 [verbose] > │ 00:00:19 #68 [debug] 5 │
00:02:26 #5269 [verbose] > │ 00:00:19 #69 [debug] 6 │
00:02:26 #5270 [verbose] > │ 5557 │
00:02:26 #5271 [verbose] > │ 4 │
00:02:26 #5272 [verbose] > │ 4 │
00:02:26 #5273 [verbose] > │ 4 │
00:02:26 #5274 [verbose] > │ True │
00:02:26 #5275 [verbose] > │ │
00:02:26 #5276 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:28 #5277 [verbose] > [NbConvertApp] Converting notebook Networking.dib.ipynb to html
00:02:28 #5278 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:28 #5279 [verbose] > validate(nb)
00:02:29 #5280 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:29 #5281 [verbose] > return _pygments_highlight(
00:02:29 #5282 [verbose] > [NbConvertApp] Writing 326050 bytes to Networking.dib.html
00:02:30 #5283 [debug] executeAsync / exitCode: 0 / output.Length: 34786
00:02:30 #5284 [debug] main / executeCommand / exitCode: 0
00:02:30 #5285 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 Runtime.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:02:32 #5286 [verbose] >
00:02:32 #5287 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:32 #5288 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:32 #5289 [verbose] > │ # Runtime (Polyglot) │
00:02:32 #5290 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 #5291 [verbose] >
00:02:32 #5292 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:32 #5293 [verbose] > #r
00:02:32 #5294 [verbose] > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:02:32 #5295 [verbose] > dard2.1/FSharp.Control.AsyncSeq.dll"
00:02:32 #5296 [verbose] > #r
00:02:32 #5297 [verbose] > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:02:32 #5298 [verbose] > 0/System.Reactive.dll"
00:02:32 #5299 [verbose] > #r
00:02:32 #5300 [verbose] > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:02:32 #5301 [verbose] > netstandard2.0/System.Reactive.Linq.dll"
00:02:32 #5302 [verbose] > #r
00:02:32 #5303 [verbose] > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:02:32 #5304 [verbose] > #r
00:02:32 #5305 [verbose] > @"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
00:02:32 #5306 [verbose] > b/net6.0/System.CommandLine.dll"
00:02:32 #5307 [verbose] >
00:02:32 #5308 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:32 #5309 [verbose] > #r
00:02:32 #5310 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:02:32 #5311 [verbose] > spNetCore.Html.Abstractions.dll"
00:02:32 #5312 [verbose] > #r
00:02:32 #5313 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:32 #5314 [verbose] > otNet.Interactive.dll"
00:02:32 #5315 [verbose] > #r
00:02:32 #5316 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:32 #5317 [verbose] > otNet.Interactive.FSharp.dll"
00:02:32 #5318 [verbose] > #r
00:02:32 #5319 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:32 #5320 [verbose] > otNet.Interactive.Formatting.dll"
00:02:32 #5321 [verbose] > open System
00:02:32 #5322 [verbose] > open System.IO
00:02:32 #5323 [verbose] > open System.Text
00:02:32 #5324 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:02:36 #5325 [verbose] >
00:02:36 #5326 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:36 #5327 [verbose] > #r
00:02:36 #5328 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:36 #5329 [verbose] > otNet.Interactive.FSharp.dll"
00:02:36 #5330 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:02:36 #5331 [verbose] > #r
00:02:36 #5332 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:36 #5333 [verbose] > otNet.Interactive.dll"
00:02:36 #5334 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:02:36 #5335 [verbose] >
00:02:36 #5336 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:36 #5337 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:02:36 #5338 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:02:36 #5339 [verbose] >
00:02:36 #5340 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:36 #5341 [verbose] > //// test
00:02:36 #5342 [verbose] >
00:02:36 #5343 [verbose] > Formatter.ListExpansionLimit <- 100
00:02:36 #5344 [verbose] >
00:02:36 #5345 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:36 #5346 [verbose] > type [[<Struct>]] US0 =
00:02:36 #5347 [verbose] > | US0_0
00:02:36 #5348 [verbose] > | US0_1
00:02:36 #5349 [verbose] > and [[<Struct>]] US1 =
00:02:36 #5350 [verbose] > | US1_0 of f0_0 : US0
00:02:36 #5351 [verbose] > | US1_1
00:02:36 #5352 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:02:36 #5353 [verbose] > let v1 : System.IDisposable option = None
00:02:36 #5354 [verbose] > let mutable _v1 = v1
00:02:36 #5355 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:36 #5356 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:36 #5357 [verbose] > v2
00:02:36 #5358 [verbose] > #endif
00:02:36 #5359 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:36 #5360 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:36 #5361 [verbose] > v3
00:02:36 #5362 [verbose] > #endif
00:02:36 #5363 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:36 #5364 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:36 #5365 [verbose] > v4
00:02:36 #5366 [verbose] > #endif
00:02:36 #5367 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:36 #5368 [verbose] > !WASM && !CONTRACT
00:02:36 #5369 [verbose] > let v5 : System.ID...
00:02:37 #5370 [verbose] >
00:02:37 #5371 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:37 #5372 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:02:37 #5373 [verbose] > and Mut1 = {mutable l0 : int32}
00:02:37 #5374 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:02:37 #5375 [verbose] > let v2 : bool = v1.Contains v0
00:02:37 #5376 [verbose] > v2
00:02:37 #5377 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:02:37 #5378 [verbose] > closure1(v0)
00:02:37 #5379 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:02:37 #5380 [verbose] > let v2 : bool = v1.EndsWith v0
00:02:37 #5381 [verbose] > v2
00:02:37 #5382 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:02:37 #5383 [verbose] > closure3(v0)
00:02:37 #5384 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:02:37 #5385 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:02:37 #5386 [verbose] > v3
00:02:37 #5387 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:02:37 #5388 [verbose] > closure6(v0, v1)
00:02:37 #5389 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:02:37 #5390 [verbose] > closure5(v0)
00:02:37 #5391 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:02:37 #5392 [verbose] > let v2 : stri...
00:02:38 #5393 [verbose] >
00:02:38 #5394 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:38 #5395 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:02:38 #5396 [verbose] > type Mut0 = {mutable l0 : int32}
00:02:38 #5397 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:02:38 #5398 [verbose] > let v2 : int32 = v1.l0
00:02:38 #5399 [verbose] > let v3 : bool = v2 < v0
00:02:38 #5400 [verbose] > v3
00:02:38 #5401 [verbose] > and closure0 () (v0 : string) : string =
00:02:38 #5402 [verbose] > let v1 : string option = None
00:02:38 #5403 [verbose] > let mutable _v1 = v1
00:02:38 #5404 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:38 #5405 [verbose] > let v2 : string = null |> unbox<string>
00:02:38 #5406 [verbose] > v2
00:02:38 #5407 [verbose] > #endif
00:02:38 #5408 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:38 #5409 [verbose] > let v3 : string = null |> unbox<string>
00:02:38 #5410 [verbose] > v3
00:02:38 #5411 [verbose] > #endif
00:02:38 #5412 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:38 #5413 [verbose] > let v4 : string = null |> unbox<string>
00:02:38 #5414 [verbose] > v4
00:02:38 #5415 [verbose] > #endif
00:02:38 #5416 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:38 #5417 [verbose] > !WASM && !CONTRACT
00:02:38 #5418 [verbose] > let v5 : (unit -> System...
00:02:38 #5419 [verbose] >
00:02:38 #5420 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:38 #5421 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:02:38 #5422 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:02:38 #5423 [verbose] > let v3 : string = v2 v0
00:02:38 #5424 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:02:38 #5425 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:02:38 #5426 [verbose] > v5
00:02:38 #5427 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:02:38 #5428 [verbose] > closure1(v0)
00:02:38 #5429 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:02:38 #5430 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:02:38 #5431 [verbose] > v3
00:02:38 #5432 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:02:38 #5433 [verbose] > closure5(v0, v1)
00:02:38 #5434 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:02:38 #5435 [verbose] > closure4(v0)
00:02:38 #5436 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:02:38 #5437 [verbose] > closure3()
00:02:38 #5438 [verbose] > and closure2 (...
00:02:38 #5439 [verbose] >
00:02:38 #5440 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:38 #5441 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:02:38 #5442 [verbose] > Async<System.Threading.CancellationToken> =
00:02:38 #5443 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:02:38 #5444 [verbose] > let mutable _v1 = v1
00:02:38 #5445 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:38 #5446 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:02:38 #5447 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:38 #5448 [verbose] > v2
00:02:38 #5449 [verbose] > #endif
00:02:38 #5450 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:38 #5451 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:02:38 #5452 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:38 #5453 [verbose] > v3
00:02:38 #5454 [verbose] > #endif
00:02:38 #5455 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:38 #5456 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:02:38 #5457 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:38 #5458 [verbose] > v4
00:02:38 #5459 [verbose] > #endif
00:02:38 #5460 [verbose] > #if !FABLE_COMPILER...
00:02:39 #5461 [verbose] >
00:02:39 #5462 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:39 #5463 [verbose] > let rec closure0 () () : bool =
00:02:39 #5464 [verbose] > let v0 : bool option = None
00:02:39 #5465 [verbose] > let mutable _v0 = v0
00:02:39 #5466 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:39 #5467 [verbose] > let v1 : bool = null |> unbox<bool>
00:02:39 #5468 [verbose] > v1
00:02:39 #5469 [verbose] > #endif
00:02:39 #5470 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:39 #5471 [verbose] > let v2 : bool = null |> unbox<bool>
00:02:39 #5472 [verbose] > v2
00:02:39 #5473 [verbose] > #endif
00:02:39 #5474 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:39 #5475 [verbose] > let v3 : bool = null |> unbox<bool>
00:02:39 #5476 [verbose] > v3
00:02:39 #5477 [verbose] > #endif
00:02:39 #5478 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:39 #5479 [verbose] > !WASM && !CONTRACT
00:02:39 #5480 [verbose] > let v4 : System.Runtime.InteropServices.OSPlatform =
00:02:39 #5481 [verbose] > System.Runtime.InteropServices.OSPlatform.Windows
00:02:39 #5482 [verbose] > let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:02:39 #5483 [verbose] > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:02:39 #5484 [verbose] > let v6 : bool = v...
00:02:39 #5485 [verbose] >
00:02:39 #5486 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:39 #5487 [verbose] > #if FABLE_COMPILER // file_system.types
00:02:39 #5488 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:02:39 #5489 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:02:39 #5490 [verbose] > base64_DecodeError = class end
00:02:39 #5491 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:02:39 #5492 [verbose] > = class end
00:02:39 #5493 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:02:39 #5494 [verbose] > = class end
00:02:39 #5495 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:02:39 #5496 [verbose] > serde_json_Error = class end
00:02:39 #5497 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:02:39 #5498 [verbose] > serde_json_Value = class end
00:02:39 #5499 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:02:39 #5500 [verbose] > serde_wasm_bindgen_Error = class end
00:02:39 #5501 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:02:40 #5502 [verbose] >
00:02:40 #5503 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:40 #5504 [verbose] > module State = let mutable trace_state = None
00:02:40 #5505 [verbose] > type [[<Struct>]] US0 =
00:02:40 #5506 [verbose] > | US0_0
00:02:40 #5507 [verbose] > | US0_1
00:02:40 #5508 [verbose] > | US0_2
00:02:40 #5509 [verbose] > | US0_3
00:02:40 #5510 [verbose] > | US0_4
00:02:40 #5511 [verbose] > and Mut0 = {mutable l0 : int64}
00:02:40 #5512 [verbose] > and Mut1 = {mutable l0 : bool}
00:02:40 #5513 [verbose] > and Mut2 = {mutable l0 : US0}
00:02:40 #5514 [verbose] > and [[<Struct>]] US1 =
00:02:40 #5515 [verbose] > | US1_0 of f0_0 : int64
00:02:40 #5516 [verbose] > | US1_1
00:02:40 #5517 [verbose] > and [[<Struct>]] US2 =
00:02:40 #5518 [verbose] > | US2_0 of f0_0 : int64
00:02:40 #5519 [verbose] > | US2_1
00:02:40 #5520 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:02:40 #5521 [verbose] > v0
00:02:40 #5522 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:02:40 #5523 [verbose] > v0
00:02:40 #5524 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:02:40 #5525 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:02:40 #5526 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:02:40 #5527 [verbose] > let v2 : US0 = US0_0
00:02:40 #5528 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:02:40 #5529 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:02:40 #5530 [verbose] > let v5 : int64 option option = None
00:02:40 #5531 [verbose] > ...
00:02:40 #5532 [verbose] >
00:02:40 #5533 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:40 #5534 [verbose] > module SpiralTrace =
00:02:40 #5535 [verbose] > let get_trace_state () =
00:02:40 #5536 [verbose] > #if !INTERACTIVE
00:02:40 #5537 [verbose] > Trace.get_trace_state ()
00:02:40 #5538 [verbose] > #else
00:02:40 #5539 [verbose] > get_trace_state ()
00:02:40 #5540 [verbose] > #endif
00:02:40 #5541 [verbose] > let trace x =
00:02:40 #5542 [verbose] > #if !INTERACTIVE
00:02:40 #5543 [verbose] > Trace.trace x
00:02:40 #5544 [verbose] > #else
00:02:40 #5545 [verbose] > trace x
00:02:40 #5546 [verbose] > #endif
00:02:40 #5547 [verbose] >
00:02:40 #5548 [verbose] > let US0_0 =
00:02:40 #5549 [verbose] > #if !INTERACTIVE
00:02:40 #5550 [verbose] > Trace.US0_0
00:02:40 #5551 [verbose] > #else
00:02:40 #5552 [verbose] > US0_0
00:02:40 #5553 [verbose] > #endif
00:02:40 #5554 [verbose] >
00:02:40 #5555 [verbose] > let US0_1 =
00:02:40 #5556 [verbose] > #if !INTERACTIVE
00:02:40 #5557 [verbose] > Trace.US0_1
00:02:40 #5558 [verbose] > #else
00:02:40 #5559 [verbose] > US0_1
00:02:40 #5560 [verbose] > #endif
00:02:40 #5561 [verbose] >
00:02:40 #5562 [verbose] > let US0_2 =
00:02:40 #5563 [verbose] > #if !INTERACTIVE
00:02:40 #5564 [verbose] > Trace.US0_2
00:02:40 #5565 [verbose] > #else
00:02:40 #5566 [verbose] > US0_2
00:02:40 #5567 [verbose] > #endif
00:02:40 #5568 [verbose] >
00:02:40 #5569 [verbose] > let US0_3 =
00:02:40 #5570 [verbose] > #if !INTERACTIVE
00:02:40 #5571 [verbose] > Trace.US0_3
00:02:40 #5572 [verbose] > #else
00:02:40 #5573 [verbose] > US0_3
00:02:40 #5574 [verbose] > #endif
00:02:40 #5575 [verbose] >
00:02:40 #5576 [verbose] > let US0_4 =
00:02:40 #5577 [verbose] > #if !INTERACTIVE
00:02:40 #5578 [verbose] > Trace.US0_4
00:02:40 #5579 [verbose] > #else
00:02:40 #5580 [verbose] > US0_4
00:02:40 #5581 [verbose] > #endif
00:02:40 #5582 [verbose] >
00:02:40 #5583 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:02:40 #5584 [verbose] >
00:02:40 #5585 [verbose] > module SpiralAsync =
00:02:40 #5586 [verbose] > let merge_cancellation_token_with_default_async x ...
00:02:41 #5587 [verbose] >
00:02:41 #5588 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:41 #5589 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:02:41 #5590 [verbose] >
00:02:41 #5591 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:41 #5592 [verbose] > //// test
00:02:41 #5593 [verbose] >
00:02:41 #5594 [verbose] > type AssertExceptionFormatter (ex) =
00:02:41 #5595 [verbose] > member _.Text =
00:02:41 #5596 [verbose] > ex.ToString()
00:02:41 #5597 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:02:41 #5598 [verbose] > .Replace("36m", "</span>")
00:02:41 #5599 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:02:41 #5600 [verbose] > .Replace("\n", "<br/>\n")
00:02:41 #5601 [verbose] >
00:02:41 #5602 [verbose] >
00:02:41 #5603 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:02:41 #5604 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:02:41 #5605 [verbose] >
00:02:41 #5606 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:41 #5607 [verbose] > //// test
00:02:41 #5608 [verbose] >
00:02:41 #5609 [verbose] > let inline __expect fn log expected actual =
00:02:41 #5610 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:02:41 #5611 [verbose] > try
00:02:41 #5612 [verbose] > "Testing.__expect" |> fn actual expected
00:02:41 #5613 [verbose] > with :? Expecto.AssertException as ex ->
00:02:41 #5614 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:02:41 #5615 [verbose] > failwith (ex.GetType().FullName)
00:02:41 #5616 [verbose] >
00:02:41 #5617 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:02:41 #5618 [verbose] > expected actual
00:02:41 #5619 [verbose] > let inline _contains expected actual = __contains true expected actual
00:02:41 #5620 [verbose] >
00:02:41 #5621 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:02:41 #5622 [verbose] > expected actual
00:02:41 #5623 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:02:41 #5624 [verbose] >
00:02:41 #5625 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:02:41 #5626 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:02:41 #5627 [verbose] >
00:02:41 #5628 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:41 #5629 [verbose] > //// test
00:02:41 #5630 [verbose] >
00:02:41 #5631 [verbose] > let inline __isBetween log a b actual =
00:02:41 #5632 [verbose] > let inline isBetween actual (a, b) _ =
00:02:41 #5633 [verbose] > __isGreaterThanOrEqual log a actual
00:02:41 #5634 [verbose] > __isLessThanOrEqual log b actual
00:02:41 #5635 [verbose] > __expect isBetween log (a, b) actual
00:02:41 #5636 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:02:41 #5637 [verbose] >
00:02:41 #5638 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:41 #5639 [verbose] > #!import ../../lib/fsharp/Common.fs
00:02:41 #5640 [verbose] > #!import ../../lib/fsharp/CommonFSharp.fs
00:02:41 #5641 [verbose] > #!import ../../lib/fsharp/Async.fs
00:02:41 #5642 [verbose] > #!import ../../lib/fsharp/AsyncSeq.fs
00:02:41 #5643 [verbose] > #!import ../../lib/fsharp/Runtime.fs
00:02:41 #5644 [verbose] > #!import ../../lib/fsharp/FileSystem.fs
00:02:41 #5645 [verbose] >
00:02:41 #5646 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:41 #5647 [verbose] > #if !INTERACTIVE
00:02:41 #5648 [verbose] > namespace Polyglot
00:02:41 #5649 [verbose] > #endif
00:02:41 #5650 [verbose] >
00:02:41 #5651 [verbose] > module Common =
00:02:41 #5652 [verbose] >
00:02:41 #5653 [verbose] > #if !INTERACTIVE
00:02:41 #5654 [verbose] > open Lib
00:02:41 #5655 [verbose] > #endif
00:02:41 #5656 [verbose] >
00:02:41 #5657 [verbose] > let nl = System.Environment.NewLine
00:02:41 #5658 [verbose] > let q = @""""
00:02:41 #5659 [verbose] >
00:02:41 #5660 [verbose] > let inline cons head tail = head :: tail
00:02:41 #5661 [verbose] >
00:02:41 #5662 [verbose] > /// ## memoize
00:02:41 #5663 [verbose] >
00:02:41 #5664 [verbose] > let inline memoize fn =
00:02:41 #5665 [verbose] > let result = lazy fn ()
00:02:41 #5666 [verbose] > fun () -> result.Value
00:02:41 #5667 [verbose] >
00:02:41 #5668 [verbose] > /// ## TraceLevel
00:02:41 #5669 [verbose] >
00:02:41 #5670 [verbose] > type TraceLevel =
00:02:41 #5671 [verbose] > | Verbose
00:02:41 #5672 [verbose] > | Debug
00:02:41 #5673 [verbose] > | Info
00:02:41 #5674 [verbose] > | Warning
00:02:41 #5675 [verbose] > | Critical
00:02:41 #5676 [verbose] >
00:02:41 #5677 [verbose] > let inline getLocals () = ""
00:02:41 #5678 [verbose] >
00:02:41 #5679 [verbose] > /// ## trace
00:02:41 #5680 [verbose] >
00:02:41 #5681 [verbose] > let to_trace_level = function
00:02:41 #5682 [verbose] > | Verbose -> SpiralTrace.US0_0
00:02:41 #5683 [verbose] > | Debug -> SpiralTrace.US0_1
00:02:41 #5684 [verbose] > | Info -> SpiralTrace.US0_2
00:02:41 #5685 [verbose] > | Warning -> SpiralTrace.US0_3
00:02:41 #5686 [verbose] > | Critical -> SpiralTrace.US0_4
00:02:41 #5687 [verbose] >
00:02:41 #5688 [verbose] > let trace level fn g...
00:02:41 #5689 [verbose] >
00:02:41 #5690 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:41 #5691 [verbose] > #if !INTERACTIVE
00:02:41 #5692 [verbose] > namespace Polyglot
00:02:41 #5693 [verbose] > #endif
00:02:41 #5694 [verbose] >
00:02:41 #5695 [verbose] > module CommonFSharp =
00:02:41 #5696 [verbose] >
00:02:41 #5697 [verbose] > open Common
00:02:41 #5698 [verbose] >
00:02:41 #5699 [verbose] > /// ## getUnionCaseName
00:02:41 #5700 [verbose] >
00:02:41 #5701 [verbose] > let inline getUnionCaseName<'T> (x: 'T) =
00:02:41 #5702 [verbose] > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:02:41 #5703 [verbose] > | case, _ -> case.Name
00:02:41 #5704 [verbose] >
00:02:41 #5705 [verbose] >
00:02:41 #5706 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:41 #5707 [verbose] > #if !INTERACTIVE
00:02:41 #5708 [verbose] > namespace Polyglot
00:02:41 #5709 [verbose] > #endif
00:02:41 #5710 [verbose] >
00:02:41 #5711 [verbose] > module Async =
00:02:41 #5712 [verbose] >
00:02:41 #5713 [verbose] > #if !INTERACTIVE
00:02:41 #5714 [verbose] > open Lib
00:02:41 #5715 [verbose] > #endif
00:02:41 #5716 [verbose] >
00:02:41 #5717 [verbose] > open Common
00:02:41 #5718 [verbose] >
00:02:41 #5719 [verbose] > /// ## choice
00:02:41 #5720 [verbose] >
00:02:41 #5721 [verbose] > let inline choice asyncs = async {
00:02:41 #5722 [verbose] > let e = Event<_> ()
00:02:41 #5723 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:02:41 #5724 [verbose] > let fn =
00:02:41 #5725 [verbose] > asyncs
00:02:41 #5726 [verbose] > |> Seq.map (fun a -> async {
00:02:41 #5727 [verbose] > let! x = a
00:02:41 #5728 [verbose] > e.Trigger x
00:02:41 #5729 [verbose] > })
00:02:41 #5730 [verbose] > |> Async.Parallel
00:02:41 #5731 [verbose] > |> Async.Ignore
00:02:41 #5732 [verbose] > Async.Start (fn, cts.Token)
00:02:41 #5733 [verbose] > let! result = Async.AwaitEvent e.Publish
00:02:41 #5734 [verbose] > cts.Cancel ()
00:02:41 #5735 [verbose] > return result
00:02:41 #5736 [verbose] > }
00:02:41 #5737 [verbose] >
00:02:41 #5738 [verbose] > /// ## map
00:02:41 #5739 [verbose] >
00:02:41 #5740 [verbose] > let inline map fn a = async {
00:02:41 #5741 [verbose] > let! x = a
00:02:41 #5742 [verbose] > return fn x
00:02:41 #5743 [verbose] > }
00:02:41 #5744 [verbose] >
00:02:41 #5745 [verbose] > /// ## catch
00:02:41 #5746 [verbose] >
00:02:41 #5747 [verbose] > let inline catch a =
00:02:41 #5748 [verbose] > ...
00:02:42 #5749 [verbose] >
00:02:42 #5750 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:42 #5751 [verbose] > #if !INTERACTIVE
00:02:42 #5752 [verbose] > namespace Polyglot
00:02:42 #5753 [verbose] > #endif
00:02:42 #5754 [verbose] >
00:02:42 #5755 [verbose] > module AsyncSeq =
00:02:42 #5756 [verbose] >
00:02:42 #5757 [verbose] > #if !INTERACTIVE
00:02:42 #5758 [verbose] > open Lib
00:02:42 #5759 [verbose] > #endif
00:02:42 #5760 [verbose] >
00:02:42 #5761 [verbose] > open Common
00:02:42 #5762 [verbose] >
00:02:42 #5763 [verbose] > /// ## subscribeEvent
00:02:42 #5764 [verbose] >
00:02:42 #5765 [verbose] > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:02:42 #5766 [verbose] > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:02:42 #5767 [verbose] > 'A>(event.AddHandler, event.RemoveHandler)
00:02:42 #5768 [verbose] > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:02:42 #5769 [verbose] > event.EventArgs)
00:02:42 #5770 [verbose] > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:02:42 #5771 [verbose] >
00:02:42 #5772 [verbose] > let subscribeToken (token : System.Threading.CancellationToken) =
00:02:42 #5773 [verbose] > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:02:42 #5774 [verbose] > System.Action tcs.SetResult |> token.Register |> ignore
00:02:42 #5775 [verbose] > let start = System.DateTime.Now.Ticks
00:02:42 #5776 [verbose] > FSharp.Control.A...
00:02:42 #5777 [verbose] >
00:02:42 #5778 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:42 #5779 [verbose] > #if !INTERACTIVE
00:02:42 #5780 [verbose] > namespace Polyglot
00:02:42 #5781 [verbose] > #endif
00:02:42 #5782 [verbose] >
00:02:42 #5783 [verbose] > module Runtime =
00:02:42 #5784 [verbose] >
00:02:42 #5785 [verbose] > #if !INTERACTIVE
00:02:42 #5786 [verbose] > open Lib
00:02:42 #5787 [verbose] > #endif
00:02:42 #5788 [verbose] >
00:02:42 #5789 [verbose] > open Common
00:02:42 #5790 [verbose] >
00:02:42 #5791 [verbose] > /// ## splitCommand
00:02:42 #5792 [verbose] >
00:02:42 #5793 [verbose] > type private CommandParseStep =
00:02:42 #5794 [verbose] > | Start
00:02:42 #5795 [verbose] > | Path of quoted: bool
00:02:42 #5796 [verbose] > | Arguments
00:02:42 #5797 [verbose] >
00:02:42 #5798 [verbose] > let splitCommand (command: string) =
00:02:42 #5799 [verbose] > let rec loop (path, args) chars step =
00:02:42 #5800 [verbose] > match chars, step with
00:02:42 #5801 [verbose] > | ('"' | '\'') :: tail, _ when path = "" -> loop (path, args) tail
00:02:42 #5802 [verbose] > (Path true)
00:02:42 #5803 [verbose] > | ('"' | '\'') :: tail, Path true -> loop (path, args) tail (Path
00:02:42 #5804 [verbose] > false)
00:02:42 #5805 [verbose] > | ' ' :: tail, Path true -> loop ($"{path} ", args) tail (Path true)
00:02:42 #5806 [verbose] > | ' ' :: tail, (Start | Path _) -> loop (path, args) tail Arguments
00:02:42 #5807 [verbose] > | char :: tail, Arguments -> loo...
00:02:42 #5808 [verbose] >
00:02:42 #5809 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:42 #5810 [verbose] > #if !INTERACTIVE
00:02:42 #5811 [verbose] > namespace Polyglot
00:02:42 #5812 [verbose] > #endif
00:02:42 #5813 [verbose] >
00:02:42 #5814 [verbose] > module FileSystem =
00:02:42 #5815 [verbose] >
00:02:42 #5816 [verbose] > #if !INTERACTIVE
00:02:42 #5817 [verbose] > open Lib
00:02:42 #5818 [verbose] > #endif
00:02:42 #5819 [verbose] >
00:02:42 #5820 [verbose] > open Common
00:02:42 #5821 [verbose] > open SpiralFileSystem.Operators
00:02:42 #5822 [verbose] >
00:02:42 #5823 [verbose] > /// ## watchDirectory
00:02:42 #5824 [verbose] >
00:02:42 #5825 [verbose] > [[<RequireQualifiedAccess>]]
00:02:42 #5826 [verbose] > type FileSystemChangeType =
00:02:42 #5827 [verbose] > | Failure
00:02:42 #5828 [verbose] > | Changed
00:02:42 #5829 [verbose] > | Created
00:02:42 #5830 [verbose] > | Deleted
00:02:42 #5831 [verbose] > | Renamed
00:02:42 #5832 [verbose] >
00:02:42 #5833 [verbose] > [[<RequireQualifiedAccess>]]
00:02:42 #5834 [verbose] > type FileSystemChange =
00:02:42 #5835 [verbose] > | Failure of exn: exn
00:02:42 #5836 [verbose] > | Changed of path: string * content: string option
00:02:42 #5837 [verbose] > | Created of path: string * content: string option
00:02:42 #5838 [verbose] > | Deleted of path: string
00:02:42 #5839 [verbose] > | Renamed of oldPath: string * (string * string option)
00:02:42 #5840 [verbose] >
00:02:42 #5841 [verbose] >
00:02:42 #5842 [verbose] > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:02:42 #5843 [verbose] > let fullPath = path |> Sys...
00:02:43 #5844 [verbose] >
00:02:43 #5845 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:43 #5846 [verbose] > #if !INTERACTIVE
00:02:43 #5847 [verbose] > open Lib
00:02:43 #5848 [verbose] > #endif
00:02:43 #5849 [verbose] >
00:02:43 #5850 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:43 #5851 [verbose] > open Common
00:02:43 #5852 [verbose] >
00:02:43 #5853 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:43 #5854 [verbose] > //// test
00:02:43 #5855 [verbose] >
00:02:43 #5856 [verbose] > open SpiralFileSystem.Operators
00:02:43 #5857 [verbose] >
00:02:43 #5858 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:43 #5859 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:43 #5860 [verbose] > │ ## splitCommand │
00:02:43 #5861 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:43 #5862 [verbose] >
00:02:43 #5863 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:43 #5864 [verbose] > type private CommandParseStep =
00:02:43 #5865 [verbose] > | Start
00:02:43 #5866 [verbose] > | Path of quoted: bool
00:02:43 #5867 [verbose] > | Arguments
00:02:43 #5868 [verbose] >
00:02:43 #5869 [verbose] > let splitCommand (command: string) =
00:02:43 #5870 [verbose] > let rec loop (path, args) chars step =
00:02:43 #5871 [verbose] > match chars, step with
00:02:43 #5872 [verbose] > | ('"' | '\'') :: tail, _ when path = "" -> loop (path, args) tail (Path
00:02:43 #5873 [verbose] > true)
00:02:43 #5874 [verbose] > | ('"' | '\'') :: tail, Path true -> loop (path, args) tail (Path false)
00:02:43 #5875 [verbose] > | ' ' :: tail, Path true -> loop ($"{path} ", args) tail (Path true)
00:02:43 #5876 [verbose] > | ' ' :: tail, (Start | Path _) -> loop (path, args) tail Arguments
00:02:43 #5877 [verbose] > | char :: tail, Arguments -> loop (path, $"{args}{char}") tail Arguments
00:02:43 #5878 [verbose] > | char :: tail, _ -> loop ($"{path}{char}", args) tail step
00:02:43 #5879 [verbose] > | _, _ -> path |> SpiralSm.replace @"\" "/", args
00:02:43 #5880 [verbose] > loop ("", "") (command |> Seq.toList) Start
00:02:43 #5881 [verbose] >
00:02:43 #5882 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:43 #5883 [verbose] > //// test
00:02:43 #5884 [verbose] >
00:02:43 #5885 [verbose] > splitCommand ""
00:02:43 #5886 [verbose] > |> _assertEqual ("", "")
00:02:43 #5887 [verbose] >
00:02:43 #5888 [verbose] > splitCommand "/a/b/c"
00:02:43 #5889 [verbose] > |> _assertEqual ("/a/b/c", "")
00:02:43 #5890 [verbose] >
00:02:43 #5891 [verbose] > splitCommand "cat file.txt"
00:02:43 #5892 [verbose] > |> _assertEqual ("cat", "file.txt")
00:02:43 #5893 [verbose] >
00:02:43 #5894 [verbose] > splitCommand """..\..\file.exe file1.txt file2.txt"""
00:02:43 #5895 [verbose] > |> _assertEqual ("../../file.exe", "file1.txt file2.txt")
00:02:43 #5896 [verbose] >
00:02:43 #5897 [verbose] > splitCommand @"c:\dir\file.exe ""file1.txt file2.txt"""
00:02:43 #5898 [verbose] > |> _assertEqual ("c:/dir/file.exe", @"""file1.txt file2.txt""")
00:02:43 #5899 [verbose] >
00:02:43 #5900 [verbose] > splitCommand @"""..\..\dir name\file.exe"" ""file 1.txt"" file2.txt"
00:02:43 #5901 [verbose] > |> _assertEqual ("../../dir name/file.exe", @"""file 1.txt"" file2.txt")
00:02:43 #5902 [verbose] >
00:02:43 #5903 [verbose] > splitCommand @"""..\..\file 1.exe"" -c \\""echo 1\\"""
00:02:43 #5904 [verbose] > |> _assertEqual ("../../file 1.exe", @"-c \\""echo 1\\""")
00:02:43 #5905 [verbose] >
00:02:43 #5906 [verbose] > splitCommand @"..\..\file 1.exe -c \\""echo 1\\"""
00:02:43 #5907 [verbose] > |> _assertEqual ("../../file", @"1.exe -c \\""echo 1\\""")
00:02:43 #5908 [verbose] >
00:02:43 #5909 [verbose] > ╭─[ 110.19ms - stdout ]────────────────────────────────────────────────────────╮
00:02:43 #5910 [verbose] > │ ( , ) │
00:02:43 #5911 [verbose] > │ ( /a/b/c, ) │
00:02:43 #5912 [verbose] > │ ( cat, file.txt ) │
00:02:43 #5913 [verbose] > │ ( ../../file.exe, file1.txt file2.txt ) │
00:02:43 #5914 [verbose] > │ ( c:/dir/file.exe, "file1.txt file2.txt" ) │
00:02:43 #5915 [verbose] > │ ( ../../dir name/file.exe, "file 1.txt" file2.txt ) │
00:02:43 #5916 [verbose] > │ ( ../../file 1.exe, -c \\"echo 1\\" ) │
00:02:43 #5917 [verbose] > │ ( ../../file, 1.exe -c \\"echo 1\\" ) │
00:02:43 #5918 [verbose] > │ │
00:02:43 #5919 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:43 #5920 [verbose] >
00:02:43 #5921 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:43 #5922 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:43 #5923 [verbose] > │ ## executeAsync │
00:02:43 #5924 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:43 #5925 [verbose] >
00:02:43 #5926 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:43 #5927 [verbose] > type ExecutionLine =
00:02:43 #5928 [verbose] > {
00:02:43 #5929 [verbose] > ProcessId : int
00:02:43 #5930 [verbose] > Line : string
00:02:43 #5931 [verbose] > Error : bool
00:02:43 #5932 [verbose] > }
00:02:43 #5933 [verbose] >
00:02:43 #5934 [verbose] > type ExecutionOptions =
00:02:43 #5935 [verbose] > {
00:02:43 #5936 [verbose] > Command : string
00:02:43 #5937 [verbose] > WorkingDirectory : string option
00:02:43 #5938 [verbose] > CancellationToken : System.Threading.CancellationToken option
00:02:43 #5939 [verbose] > OnLine : (ExecutionLine -> Async<unit>) option
00:02:43 #5940 [verbose] > }
00:02:43 #5941 [verbose] >
00:02:43 #5942 [verbose] > let inline executeWithOptionsAsync (options : ExecutionOptions) = async {
00:02:43 #5943 [verbose] > let fileName, arguments = options.Command |> splitCommand
00:02:43 #5944 [verbose] > let workingDirectory = options.WorkingDirectory |> Option.defaultValue ""
00:02:43 #5945 [verbose] >
00:02:43 #5946 [verbose] > trace Debug (fun () -> $"executeAsync / options: {options}") getLocals
00:02:43 #5947 [verbose] >
00:02:43 #5948 [verbose] > let startInfo = System.Diagnostics.ProcessStartInfo (
00:02:43 #5949 [verbose] > Arguments = arguments,
00:02:43 #5950 [verbose] > CreateNoWindow = true,
00:02:43 #5951 [verbose] > FileName = fileName,
00:02:43 #5952 [verbose] > RedirectStandardError = true,
00:02:43 #5953 [verbose] > RedirectStandardOutput = true,
00:02:43 #5954 [verbose] > StandardOutputEncoding = System.Text.Encoding.UTF8,
00:02:43 #5955 [verbose] > UseShellExecute = false,
00:02:43 #5956 [verbose] > WorkingDirectory = workingDirectory
00:02:43 #5957 [verbose] > )
00:02:43 #5958 [verbose] >
00:02:43 #5959 [verbose] > use proc = new System.Diagnostics.Process (StartInfo = startInfo)
00:02:43 #5960 [verbose] > let output = System.Collections.Concurrent.ConcurrentStack<string> ()
00:02:43 #5961 [verbose] >
00:02:43 #5962 [verbose] > let inline event error (e: System.Diagnostics.DataReceivedEventArgs) = async
00:02:43 #5963 [verbose] > {
00:02:43 #5964 [verbose] > if e.Data <> null then
00:02:43 #5965 [verbose] > match options.OnLine with
00:02:43 #5966 [verbose] > | Some onLine ->
00:02:43 #5967 [verbose] > do!
00:02:43 #5968 [verbose] > onLine
00:02:43 #5969 [verbose] > {
00:02:43 #5970 [verbose] > ProcessId = proc.Id
00:02:43 #5971 [verbose] > Line = e.Data
00:02:43 #5972 [verbose] > Error = error
00:02:43 #5973 [verbose] > }
00:02:43 #5974 [verbose] > | None -> ()
00:02:43 #5975 [verbose] >
00:02:43 #5976 [verbose] > trace
00:02:43 #5977 [verbose] > Verbose
00:02:43 #5978 [verbose] > (fun () -> $"> {e.Data}")
00:02:43 #5979 [verbose] > Common.getLocals
00:02:43 #5980 [verbose] >
00:02:43 #5981 [verbose] > output.Push
00:02:43 #5982 [verbose] > $"{
00:02:43 #5983 [verbose] > if error then '[['.ToString() else System.String.Empty
00:02:43 #5984 [verbose] > }{
00:02:43 #5985 [verbose] > e.Data
00:02:43 #5986 [verbose] > }{
00:02:43 #5987 [verbose] > if error then ']]'.ToString() else System.String.Empty
00:02:43 #5988 [verbose] > }"
00:02:43 #5989 [verbose] > }
00:02:43 #5990 [verbose] >
00:02:43 #5991 [verbose] > proc.OutputDataReceived.Add (event false >> Async.StartImmediate)
00:02:43 #5992 [verbose] > proc.ErrorDataReceived.Add (event true >> Async.StartImmediate)
00:02:43 #5993 [verbose] >
00:02:43 #5994 [verbose] > if proc.Start () |> not
00:02:43 #5995 [verbose] > then failwith $"executeAsync / proc.Start () error"
00:02:43 #5996 [verbose] >
00:02:43 #5997 [verbose] > proc.BeginErrorReadLine ()
00:02:43 #5998 [verbose] > proc.BeginOutputReadLine ()
00:02:43 #5999 [verbose] >
00:02:43 #6000 [verbose] > let! ct =
00:02:43 #6001 [verbose] > options.CancellationToken
00:02:43 #6002 [verbose] > |> Option.defaultValue System.Threading.CancellationToken.None
00:02:43 #6003 [verbose] > |> SpiralAsync.merge_cancellation_token_with_default_async
00:02:43 #6004 [verbose] >
00:02:43 #6005 [verbose] > use reg = ct.Register (fun _ ->
00:02:43 #6006 [verbose] > if not proc.HasExited then proc.Kill ()
00:02:43 #6007 [verbose] > )
00:02:43 #6008 [verbose] >
00:02:43 #6009 [verbose] > let! exitCode = async {
00:02:43 #6010 [verbose] > try
00:02:43 #6011 [verbose] > do! proc.WaitForExitAsync ct |> Async.AwaitTask
00:02:43 #6012 [verbose] > return proc.ExitCode
00:02:43 #6013 [verbose] > with :? System.Threading.Tasks.TaskCanceledException as ex ->
00:02:43 #6014 [verbose] > trace Warning (fun () -> $"executeAsync / WaitForExitAsync / ex: {ex
00:02:43 #6015 [verbose] > |> SpiralSm.format_exception}") getLocals
00:02:43 #6016 [verbose] > ex |> SpiralSm.format_exception |> output.Push
00:02:43 #6017 [verbose] > return System.Int32.MinValue
00:02:43 #6018 [verbose] > }
00:02:43 #6019 [verbose] >
00:02:43 #6020 [verbose] > let output = output |> Seq.rev |> SpiralSm.concat "\n"
00:02:43 #6021 [verbose] >
00:02:43 #6022 [verbose] > trace Debug (fun () ->
00:02:43 #6023 [verbose] > $"executeAsync / exitCode: {exitCode} / output.Length: {output.Length}"
00:02:43 #6024 [verbose] > ) getLocals
00:02:43 #6025 [verbose] >
00:02:43 #6026 [verbose] > return exitCode, output
00:02:43 #6027 [verbose] > }
00:02:43 #6028 [verbose] >
00:02:43 #6029 [verbose] > let inline executeAsync command =
00:02:43 #6030 [verbose] > executeWithOptionsAsync
00:02:43 #6031 [verbose] > {
00:02:43 #6032 [verbose] > Command = command
00:02:43 #6033 [verbose] > CancellationToken = None
00:02:43 #6034 [verbose] > OnLine = None
00:02:43 #6035 [verbose] > WorkingDirectory = None
00:02:43 #6036 [verbose] > }
00:02:44 #6037 [verbose] >
00:02:44 #6038 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:44 #6039 [verbose] > //// test
00:02:44 #6040 [verbose] >
00:02:44 #6041 [verbose] > let struct (tempFolder, disposable) = SpiralFileSystem.create_temp_directory ()
00:02:44 #6042 [verbose] > let fileName = "test.txt"
00:02:44 #6043 [verbose] > let path = tempFolder </> fileName
00:02:44 #6044 [verbose] >
00:02:44 #6045 [verbose] > async {
00:02:44 #6046 [verbose] > let! exitCode, result = executeAsync @$"pwsh -c ""Get-Content {path}"""
00:02:44 #6047 [verbose] > exitCode |> _assertEqual 1
00:02:44 #6048 [verbose] > result |> _stringContains "not exist"
00:02:44 #6049 [verbose] >
00:02:44 #6050 [verbose] > do! "0" |> SpiralFileSystem.write_all_text_async path
00:02:44 #6051 [verbose] >
00:02:44 #6052 [verbose] > return!
00:02:44 #6053 [verbose] > executeWithOptionsAsync
00:02:44 #6054 [verbose] > {
00:02:44 #6055 [verbose] > Command = @$"pwsh -c ""Get-Content {fileName}"""
00:02:44 #6056 [verbose] > CancellationToken = None
00:02:44 #6057 [verbose] > OnLine = None
00:02:44 #6058 [verbose] > WorkingDirectory = Some tempFolder
00:02:44 #6059 [verbose] > }
00:02:44 #6060 [verbose] >
00:02:44 #6061 [verbose] > }
00:02:44 #6062 [verbose] > |> Async.runWithTimeout 10000
00:02:44 #6063 [verbose] > |> function
00:02:44 #6064 [verbose] > | Some (exitCode, output) ->
00:02:44 #6065 [verbose] > exitCode |> _assertEqual 0
00:02:44 #6066 [verbose] > output |> _assertEqual "0"
00:02:44 #6067 [verbose] > true
00:02:44 #6068 [verbose] > | _ -> false
00:02:44 #6069 [verbose] > |> _assertEqual true
00:02:44 #6070 [verbose] >
00:02:44 #6071 [verbose] > disposable.Dispose ()
00:02:45 #6072 [verbose] >
00:02:45 #6073 [verbose] > ╭─[ 1.81s - stdout ]───────────────────────────────────────────────────────────╮
00:02:45 #6074 [verbose] > │ 00:00:00 #1 [debug] executeAsync / options: { Command = │
00:02:45 #6075 [verbose] > │ "pwsh -c "Get-Content │
00:02:45 #6076 [verbose] > │ C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240411-2038-3987-8751-8203a │
00:02:45 #6077 [verbose] > │ ae37ccf\test.txt"" │
00:02:45 #6078 [verbose] > │ WorkingDirectory = None │
00:02:45 #6079 [verbose] > │ CancellationToken = None │
00:02:45 #6080 [verbose] > │ OnLine = None } │
00:02:45 #6081 [verbose] > │ 00:00:00 #2 [verbose] > Get-Content: Cannot find path │
00:02:45 #6082 [verbose] > │ 'C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240411-2038-3987-8751-8203 │
00:02:45 #6083 [verbose] > │ aae37ccf\test.txt' because it does not exist. │
00:02:45 #6084 [verbose] > │ 00:00:00 #3 [debug] executeAsync / exitCode: 1 / output.Length: 171 │
00:02:45 #6085 [verbose] > │ 1 │
00:02:45 #6086 [verbose] > │ [Get-Content: Cannot find path │
00:02:45 #6087 [verbose] > │ 'C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240411-2038-3987-8751-8203 │
00:02:45 #6088 [verbose] > │ aae37ccf\test.txt' because it does not exist.] │
00:02:45 #6089 [verbose] > │ 00:00:00 #4 [debug] executeAsync / options: { Command = "pwsh -c │
00:02:45 #6090 [verbose] > │ "Get-Content test.txt"" │
00:02:45 #6091 [verbose] > │ WorkingDirectory = │
00:02:45 #6092 [verbose] > │ Some │
00:02:45 #6093 [verbose] > │ │
00:02:45 #6094 [verbose] > │ "C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240411-2038-3987-8751-8203 │
00:02:45 #6095 [verbose] > │ aae37ccf" │
00:02:45 #6096 [verbose] > │ CancellationToken = None │
00:02:45 #6097 [verbose] > │ OnLine = None } │
00:02:45 #6098 [verbose] > │ 00:00:01 #5 [verbose] > 0 │
00:02:45 #6099 [verbose] > │ 00:00:01 #6 [debug] executeAsync / exitCode: 0 / output.Length: 1 │
00:02:45 #6100 [verbose] > │ 0 │
00:02:45 #6101 [verbose] > │ 0 │
00:02:45 #6102 [verbose] > │ True │
00:02:45 #6103 [verbose] > │ │
00:02:45 #6104 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:45 #6105 [verbose] >
00:02:45 #6106 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:45 #6107 [verbose] > //// test
00:02:45 #6108 [verbose] >
00:02:45 #6109 [verbose] > let struct (tempFolder, disposable) = SpiralFileSystem.create_temp_directory ()
00:02:45 #6110 [verbose] > let path = tempFolder </> "test.txt"
00:02:45 #6111 [verbose] >
00:02:45 #6112 [verbose] > let command = @$"pwsh -c ""Get-Content {path}"""
00:02:45 #6113 [verbose] >
00:02:45 #6114 [verbose] > async {
00:02:45 #6115 [verbose] > do! "0" |> SpiralFileSystem.write_all_text_async path
00:02:45 #6116 [verbose] > let cts = new System.Threading.CancellationTokenSource ()
00:02:45 #6117 [verbose] > trace Debug (fun () -> "1") getLocals
00:02:45 #6118 [verbose] > let! result =
00:02:45 #6119 [verbose] > executeWithOptionsAsync
00:02:45 #6120 [verbose] > {
00:02:45 #6121 [verbose] > Command = command
00:02:45 #6122 [verbose] > CancellationToken = Some cts.Token
00:02:45 #6123 [verbose] > OnLine = None
00:02:45 #6124 [verbose] > WorkingDirectory = None
00:02:45 #6125 [verbose] > }
00:02:45 #6126 [verbose] > |> Async.StartChild
00:02:45 #6127 [verbose] > trace Debug (fun () -> "2") getLocals
00:02:45 #6128 [verbose] > do! Async.Sleep 100
00:02:45 #6129 [verbose] > trace Debug (fun () -> "3") getLocals
00:02:45 #6130 [verbose] > cts.Cancel ()
00:02:45 #6131 [verbose] > trace Debug (fun () -> "4") getLocals
00:02:45 #6132 [verbose] > let! exitCode, output = result
00:02:45 #6133 [verbose] > trace Debug (fun () -> "5") getLocals
00:02:45 #6134 [verbose] > return exitCode, output
00:02:45 #6135 [verbose] > }
00:02:45 #6136 [verbose] > |> Async.runWithTimeout 10000
00:02:45 #6137 [verbose] > |> function
00:02:45 #6138 [verbose] > | Some (exitCode, output) ->
00:02:45 #6139 [verbose] > exitCode |> _assertEqual -2147483648
00:02:45 #6140 [verbose] > output |> _assertEqual "System.Threading.Tasks.TaskCanceledException: A
00:02:45 #6141 [verbose] > task was canceled."
00:02:45 #6142 [verbose] >
00:02:45 #6143 [verbose] > true
00:02:45 #6144 [verbose] > | _ -> false
00:02:45 #6145 [verbose] > |> _assertEqual true
00:02:45 #6146 [verbose] >
00:02:45 #6147 [verbose] > disposable.Dispose ()
00:02:46 #6148 [verbose] >
00:02:46 #6149 [verbose] > ╭─[ 547.25ms - stdout ]────────────────────────────────────────────────────────╮
00:02:46 #6150 [verbose] > │ 00:00:01 #7 [debug] 1 │
00:02:46 #6151 [verbose] > │ 00:00:01 #9 [debug] 2 │
00:02:46 #6152 [verbose] > │ 00:00:01 #8 [debug] executeAsync / options: { Command = │
00:02:46 #6153 [verbose] > │ "pwsh -c "Get-Content │
00:02:46 #6154 [verbose] > │ C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240411-2038-4159-5919-5481f │
00:02:46 #6155 [verbose] > │ 208e192\test.txt"" │
00:02:46 #6156 [verbose] > │ WorkingDirectory = None │
00:02:46 #6157 [verbose] > │ CancellationToken = Some System.Threading.CancellationToken │
00:02:46 #6158 [verbose] > │ OnLine = None } │
00:02:46 #6159 [verbose] > │ 00:00:01 #10 [debug] 3 │
00:02:46 #6160 [verbose] > │ 00:00:01 #11 [debug] 4 │
00:02:46 #6161 [verbose] > │ 00:00:01 #12 [warning] executeAsync / WaitForExitAsync / ex: │
00:02:46 #6162 [verbose] > │ System.Threading.Tasks.TaskCanceledException: A task was canceled. │
00:02:46 #6163 [verbose] > │ 00:00:01 #13 [debug] executeAsync / exitCode: -2147483648 / output.Length: │
00:02:46 #6164 [verbose] > │ 66 │
00:02:46 #6165 [verbose] > │ 00:00:01 #14 [debug] 5 │
00:02:46 #6166 [verbose] > │ -2147483648 │
00:02:46 #6167 [verbose] > │ System.Threading.Tasks.TaskCanceledException: A task was canceled. │
00:02:46 #6168 [verbose] > │ True │
00:02:46 #6169 [verbose] > │ │
00:02:46 #6170 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 #6171 [verbose] >
00:02:46 #6172 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:46 #6173 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:46 #6174 [verbose] > │ ## splitArgs │
00:02:46 #6175 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 #6176 [verbose] >
00:02:46 #6177 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:46 #6178 [verbose] > let inline splitArgs commandLine =
00:02:46 #6179 [verbose] > commandLine
00:02:46 #6180 [verbose] > |> System.CommandLine.Parsing.CommandLineStringSplitter.Instance.Split
00:02:46 #6181 [verbose] >
00:02:46 #6182 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:46 #6183 [verbose] > //// test
00:02:46 #6184 [verbose] >
00:02:46 #6185 [verbose] > """a b "c d" e"""
00:02:46 #6186 [verbose] > |> splitArgs
00:02:46 #6187 [verbose] > |> Seq.toArray
00:02:46 #6188 [verbose] > |> _assertEqual [[| "a"; "b"; "c d"; "e" |]]
00:02:46 #6189 [verbose] >
00:02:46 #6190 [verbose] > ╭─[ 27.31ms - stdout ]─────────────────────────────────────────────────────────╮
00:02:46 #6191 [verbose] > │ [ a, b, c d, e ] │
00:02:46 #6192 [verbose] > │ │
00:02:46 #6193 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 #6194 [verbose] >
00:02:46 #6195 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:46 #6196 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:46 #6197 [verbose] > │ ## parseArgs │
00:02:46 #6198 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 #6199 [verbose] >
00:02:46 #6200 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:46 #6201 [verbose] > let inline parseArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:46 #6202 [verbose] > let assemblyName =
00:02:46 #6203 [verbose] > System.Reflection.Assembly.GetEntryAssembly().GetName().Name
00:02:46 #6204 [verbose] > let errorHandler : Argu.IExiter =
00:02:46 #6205 [verbose] > if [[ "Microsoft.DotNet.Interactive.App"; "dotnet-repl" ]] |>
00:02:46 #6206 [verbose] > List.contains assemblyName
00:02:46 #6207 [verbose] > then Argu.ExceptionExiter ()
00:02:46 #6208 [verbose] > else Argu.ProcessExiter (function Argu.ErrorCode.HelpText -> None | _ ->
00:02:46 #6209 [verbose] > Some System.ConsoleColor.Red)
00:02:46 #6210 [verbose] >
00:02:46 #6211 [verbose] > let parser =
00:02:46 #6212 [verbose] > Argu.ArgumentParser.Create<'T> (
00:02:46 #6213 [verbose] > programName = $"{assemblyName}{SpiralRuntime.get_executable_suffix
00:02:46 #6214 [verbose] > ()}",
00:02:46 #6215 [verbose] > errorHandler = errorHandler
00:02:46 #6216 [verbose] > )
00:02:46 #6217 [verbose] >
00:02:46 #6218 [verbose] > parser.ParseCommandLine args
00:02:46 #6219 [verbose] >
00:02:46 #6220 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:46 #6221 [verbose] > //// test
00:02:46 #6222 [verbose] >
00:02:46 #6223 [verbose] > [[<RequireQualifiedAccess>]]
00:02:46 #6224 [verbose] > type Arguments =
00:02:46 #6225 [verbose] > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce;
00:02:46 #6226 [verbose] > Argu.ArguAttributes.Last>]]
00:02:46 #6227 [verbose] > Paths of paths : string list
00:02:46 #6228 [verbose] >
00:02:46 #6229 [verbose] > interface Argu.IArgParserTemplate with
00:02:46 #6230 [verbose] > member s.Usage =
00:02:46 #6231 [verbose] > match s with
00:02:46 #6232 [verbose] > | Paths _ -> nameof Paths
00:02:46 #6233 [verbose] >
00:02:46 #6234 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:46 #6235 [verbose] > //// test
00:02:46 #6236 [verbose] >
00:02:46 #6237 [verbose] > Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
00:02:46 #6238 [verbose] >
00:02:46 #6239 [verbose] > ╭─[ 94.47ms - return value ]───────────────────────────────────────────────────╮
00:02:46 #6240 [verbose] > │ USAGE: dotnet-repl [--help] <paths>... │
00:02:46 #6241 [verbose] > │ │
00:02:46 #6242 [verbose] > │ PATHS: │
00:02:46 #6243 [verbose] > │ │
00:02:46 #6244 [verbose] > │ <paths>... Paths │
00:02:46 #6245 [verbose] > │ │
00:02:46 #6246 [verbose] > │ OPTIONS: │
00:02:46 #6247 [verbose] > │ │
00:02:46 #6248 [verbose] > │ --help display this list of options. │
00:02:46 #6249 [verbose] > │ │
00:02:46 #6250 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 #6251 [verbose] >
00:02:46 #6252 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:46 #6253 [verbose] > //// test
00:02:46 #6254 [verbose] >
00:02:46 #6255 [verbose] > fun () -> parseArgs<Arguments> [[||]] |> ignore
00:02:46 #6256 [verbose] > |> _throwsC (fun ex _ ->
00:02:46 #6257 [verbose] > SpiralSm.format_exception ex
00:02:46 #6258 [verbose] > |> _stringContains "Argu.ArguParseException: ERROR: missing parameter
00:02:46 #6259 [verbose] > '<paths>...'."
00:02:46 #6260 [verbose] > )
00:02:46 #6261 [verbose] >
00:02:46 #6262 [verbose] > ╭─[ 118.25ms - stdout ]────────────────────────────────────────────────────────╮
00:02:46 #6263 [verbose] > │ FSI_0035+it@3-1 │
00:02:46 #6264 [verbose] > │ Argu.ArguParseException: ERROR: missing parameter '<paths>...'. │
00:02:46 #6265 [verbose] > │ USAGE: dotnet-repl.exe [--help] <paths>... │
00:02:46 #6266 [verbose] > │ │
00:02:46 #6267 [verbose] > │ PATHS: │
00:02:46 #6268 [verbose] > │ │
00:02:46 #6269 [verbose] > │ <paths>... Paths │
00:02:46 #6270 [verbose] > │ │
00:02:46 #6271 [verbose] > │ OPTIONS: │
00:02:46 #6272 [verbose] > │ │
00:02:46 #6273 [verbose] > │ --help display this list of options. │
00:02:46 #6274 [verbose] > │ │
00:02:46 #6275 [verbose] > │ │
00:02:46 #6276 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 #6277 [verbose] >
00:02:46 #6278 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:46 #6279 [verbose] > let inline parseAllArgs<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:46 #6280 [verbose] > args
00:02:46 #6281 [verbose] > |> parseArgs<'T>
00:02:46 #6282 [verbose] > |> fun results -> results.GetAllResults ()
00:02:46 #6283 [verbose] >
00:02:46 #6284 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:46 #6285 [verbose] > //// test
00:02:46 #6286 [verbose] >
00:02:46 #6287 [verbose] > [[<RequireQualifiedAccess>]]
00:02:46 #6288 [verbose] > type Arguments =
00:02:46 #6289 [verbose] > | [[<Argu.ArguAttributes.MainCommand; Argu.ArguAttributes.ExactlyOnce;
00:02:46 #6290 [verbose] > Argu.ArguAttributes.Last>]]
00:02:46 #6291 [verbose] > Paths of paths : string list
00:02:46 #6292 [verbose] >
00:02:46 #6293 [verbose] > interface Argu.IArgParserTemplate with
00:02:46 #6294 [verbose] > member s.Usage =
00:02:46 #6295 [verbose] > match s with
00:02:46 #6296 [verbose] > | Paths _ -> nameof Paths
00:02:46 #6297 [verbose] >
00:02:46 #6298 [verbose] > parseAllArgs<Arguments> [[| "a b"; "c" |]]
00:02:46 #6299 [verbose] > |> _assertEqual [[ Arguments.Paths [[ "a b"; "c" ]] ]]
00:02:47 #6300 [verbose] >
00:02:47 #6301 [verbose] > ╭─[ 116.97ms - stdout ]────────────────────────────────────────────────────────╮
00:02:47 #6302 [verbose] > │ FSharpList<Arguments> │
00:02:47 #6303 [verbose] > │ - paths: [ a b, c ] │
00:02:47 #6304 [verbose] > │ │
00:02:47 #6305 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:47 #6306 [verbose] >
00:02:47 #6307 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:47 #6308 [verbose] > let inline parseArgsMap<'T when 'T :> Argu.IArgParserTemplate> args =
00:02:47 #6309 [verbose] > args
00:02:47 #6310 [verbose] > |> parseAllArgs<'T>
00:02:47 #6311 [verbose] > |> List.groupBy CommonFSharp.getUnionCaseName<'T>
00:02:47 #6312 [verbose] > |> Map.ofList
00:02:47 #6313 [verbose] >
00:02:47 #6314 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:47 #6315 [verbose] > //// test
00:02:47 #6316 [verbose] >
00:02:47 #6317 [verbose] > parseArgsMap<Arguments> [[| "a b"; "c" |]]
00:02:47 #6318 [verbose] > |> _assertEqual (
00:02:47 #6319 [verbose] > [[ nameof Arguments.Paths, [[ Arguments.Paths [[ "a b"; "c" ]] ]] ]]
00:02:47 #6320 [verbose] > |> Map.ofList
00:02:47 #6321 [verbose] > )
00:02:47 #6322 [verbose] >
00:02:47 #6323 [verbose] > ╭─[ 61.85ms - stdout ]─────────────────────────────────────────────────────────╮
00:02:47 #6324 [verbose] > │ FSharpMap<String,FSharpList<Arguments>> │
00:02:47 #6325 [verbose] > │ - Key: Paths │
00:02:47 #6326 [verbose] > │ Value: FSharpList<Arguments> │
00:02:47 #6327 [verbose] > │ - paths: [ a b, c ] │
00:02:47 #6328 [verbose] > │ │
00:02:47 #6329 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:48 #6330 [verbose] > [NbConvertApp] Converting notebook Runtime.dib.ipynb to html
00:02:48 #6331 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:48 #6332 [verbose] > validate(nb)
00:02:49 #6333 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:49 #6334 [verbose] > return _pygments_highlight(
00:02:49 #6335 [verbose] > [NbConvertApp] Writing 335375 bytes to Runtime.dib.html
00:02:50 #6336 [debug] executeAsync / exitCode: 0 / output.Length: 38327
00:02:50 #6337 [debug] main / executeCommand / exitCode: 0
00:02:50 #6338 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 Toml.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:02:52 #6339 [verbose] >
00:02:52 #6340 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:52 #6341 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:52 #6342 [verbose] > │ # Toml (Polyglot) │
00:02:52 #6343 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:52 #6344 [verbose] >
00:02:52 #6345 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:02:52 #6346 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:02:52 #6347 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:02:52 #6348 [verbose] >
00:02:52 #6349 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:52 #6350 [verbose] > #r
00:02:52 #6351 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:02:52 #6352 [verbose] > spNetCore.Html.Abstractions.dll"
00:02:52 #6353 [verbose] > #r
00:02:52 #6354 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:52 #6355 [verbose] > otNet.Interactive.dll"
00:02:52 #6356 [verbose] > #r
00:02:52 #6357 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:52 #6358 [verbose] > otNet.Interactive.FSharp.dll"
00:02:52 #6359 [verbose] > #r
00:02:52 #6360 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:52 #6361 [verbose] > otNet.Interactive.Formatting.dll"
00:02:52 #6362 [verbose] > open System
00:02:52 #6363 [verbose] > open System.IO
00:02:52 #6364 [verbose] > open System.Text
00:02:52 #6365 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:02:56 #6366 [verbose] >
00:02:56 #6367 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:56 #6368 [verbose] > #r
00:02:56 #6369 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:56 #6370 [verbose] > otNet.Interactive.FSharp.dll"
00:02:56 #6371 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:02:56 #6372 [verbose] > #r
00:02:56 #6373 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:02:56 #6374 [verbose] > otNet.Interactive.dll"
00:02:56 #6375 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:02:56 #6376 [verbose] >
00:02:56 #6377 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:56 #6378 [verbose] > //// test
00:02:56 #6379 [verbose] >
00:02:56 #6380 [verbose] > Formatter.ListExpansionLimit <- 100
00:02:56 #6381 [verbose] >
00:02:56 #6382 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:56 #6383 [verbose] > type [[<Struct>]] US0 =
00:02:56 #6384 [verbose] > | US0_0
00:02:56 #6385 [verbose] > | US0_1
00:02:56 #6386 [verbose] > and [[<Struct>]] US1 =
00:02:56 #6387 [verbose] > | US1_0 of f0_0 : US0
00:02:56 #6388 [verbose] > | US1_1
00:02:56 #6389 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:02:56 #6390 [verbose] > let v1 : System.IDisposable option = None
00:02:56 #6391 [verbose] > let mutable _v1 = v1
00:02:56 #6392 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:56 #6393 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:56 #6394 [verbose] > v2
00:02:56 #6395 [verbose] > #endif
00:02:56 #6396 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:56 #6397 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:56 #6398 [verbose] > v3
00:02:56 #6399 [verbose] > #endif
00:02:56 #6400 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:56 #6401 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:02:56 #6402 [verbose] > v4
00:02:56 #6403 [verbose] > #endif
00:02:56 #6404 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:56 #6405 [verbose] > !WASM && !CONTRACT
00:02:56 #6406 [verbose] > let v5 : System.ID...
00:02:57 #6407 [verbose] >
00:02:57 #6408 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:57 #6409 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:02:57 #6410 [verbose] > and Mut1 = {mutable l0 : int32}
00:02:57 #6411 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:02:57 #6412 [verbose] > let v2 : bool = v1.Contains v0
00:02:57 #6413 [verbose] > v2
00:02:57 #6414 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:02:57 #6415 [verbose] > closure1(v0)
00:02:57 #6416 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:02:57 #6417 [verbose] > let v2 : bool = v1.EndsWith v0
00:02:57 #6418 [verbose] > v2
00:02:57 #6419 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:02:57 #6420 [verbose] > closure3(v0)
00:02:57 #6421 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:02:57 #6422 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:02:57 #6423 [verbose] > v3
00:02:57 #6424 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:02:57 #6425 [verbose] > closure6(v0, v1)
00:02:57 #6426 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:02:57 #6427 [verbose] > closure5(v0)
00:02:57 #6428 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:02:57 #6429 [verbose] > let v2 : stri...
00:02:58 #6430 [verbose] >
00:02:58 #6431 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:58 #6432 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:02:58 #6433 [verbose] > type Mut0 = {mutable l0 : int32}
00:02:58 #6434 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:02:58 #6435 [verbose] > let v2 : int32 = v1.l0
00:02:58 #6436 [verbose] > let v3 : bool = v2 < v0
00:02:58 #6437 [verbose] > v3
00:02:58 #6438 [verbose] > and closure0 () (v0 : string) : string =
00:02:58 #6439 [verbose] > let v1 : string option = None
00:02:58 #6440 [verbose] > let mutable _v1 = v1
00:02:58 #6441 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:58 #6442 [verbose] > let v2 : string = null |> unbox<string>
00:02:58 #6443 [verbose] > v2
00:02:58 #6444 [verbose] > #endif
00:02:58 #6445 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:58 #6446 [verbose] > let v3 : string = null |> unbox<string>
00:02:58 #6447 [verbose] > v3
00:02:58 #6448 [verbose] > #endif
00:02:58 #6449 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:58 #6450 [verbose] > let v4 : string = null |> unbox<string>
00:02:58 #6451 [verbose] > v4
00:02:58 #6452 [verbose] > #endif
00:02:58 #6453 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:58 #6454 [verbose] > !WASM && !CONTRACT
00:02:58 #6455 [verbose] > let v5 : (unit -> System...
00:02:58 #6456 [verbose] >
00:02:58 #6457 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:58 #6458 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:02:58 #6459 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:02:58 #6460 [verbose] > let v3 : string = v2 v0
00:02:58 #6461 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:02:58 #6462 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:02:58 #6463 [verbose] > v5
00:02:58 #6464 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:02:58 #6465 [verbose] > closure1(v0)
00:02:58 #6466 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:02:58 #6467 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:02:58 #6468 [verbose] > v3
00:02:58 #6469 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:02:58 #6470 [verbose] > closure5(v0, v1)
00:02:58 #6471 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:02:58 #6472 [verbose] > closure4(v0)
00:02:58 #6473 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:02:58 #6474 [verbose] > closure3()
00:02:58 #6475 [verbose] > and closure2 (...
00:02:58 #6476 [verbose] >
00:02:58 #6477 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:58 #6478 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:02:58 #6479 [verbose] > Async<System.Threading.CancellationToken> =
00:02:58 #6480 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:02:58 #6481 [verbose] > let mutable _v1 = v1
00:02:58 #6482 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:58 #6483 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:02:58 #6484 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:58 #6485 [verbose] > v2
00:02:58 #6486 [verbose] > #endif
00:02:58 #6487 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:58 #6488 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:02:58 #6489 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:58 #6490 [verbose] > v3
00:02:58 #6491 [verbose] > #endif
00:02:58 #6492 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:58 #6493 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:02:58 #6494 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:02:58 #6495 [verbose] > v4
00:02:58 #6496 [verbose] > #endif
00:02:58 #6497 [verbose] > #if !FABLE_COMPILER...
00:02:58 #6498 [verbose] >
00:02:58 #6499 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:58 #6500 [verbose] > let rec closure0 () () : bool =
00:02:58 #6501 [verbose] > let v0 : bool option = None
00:02:58 #6502 [verbose] > let mutable _v0 = v0
00:02:58 #6503 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:02:58 #6504 [verbose] > let v1 : bool = null |> unbox<bool>
00:02:58 #6505 [verbose] > v1
00:02:58 #6506 [verbose] > #endif
00:02:58 #6507 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:02:58 #6508 [verbose] > let v2 : bool = null |> unbox<bool>
00:02:58 #6509 [verbose] > v2
00:02:58 #6510 [verbose] > #endif
00:02:58 #6511 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:02:58 #6512 [verbose] > let v3 : bool = null |> unbox<bool>
00:02:58 #6513 [verbose] > v3
00:02:58 #6514 [verbose] > #endif
00:02:58 #6515 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:02:58 #6516 [verbose] > !WASM && !CONTRACT
00:02:58 #6517 [verbose] > let v4 : System.Runtime.InteropServices.OSPlatform =
00:02:58 #6518 [verbose] > System.Runtime.InteropServices.OSPlatform.Windows
00:02:58 #6519 [verbose] > let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:02:58 #6520 [verbose] > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:02:58 #6521 [verbose] > let v6 : bool = v...
00:02:58 #6522 [verbose] >
00:02:58 #6523 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:02:58 #6524 [verbose] > #if FABLE_COMPILER // file_system.types
00:02:58 #6525 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:02:58 #6526 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:02:58 #6527 [verbose] > base64_DecodeError = class end
00:02:58 #6528 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:02:58 #6529 [verbose] > = class end
00:02:58 #6530 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:02:58 #6531 [verbose] > = class end
00:02:58 #6532 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:02:58 #6533 [verbose] > serde_json_Error = class end
00:02:58 #6534 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:02:58 #6535 [verbose] > serde_json_Value = class end
00:02:58 #6536 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:02:58 #6537 [verbose] > serde_wasm_bindgen_Error = class end
00:02:58 #6538 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:03:00 #6539 [verbose] >
00:03:00 #6540 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:00 #6541 [verbose] > module State = let mutable trace_state = None
00:03:00 #6542 [verbose] > type [[<Struct>]] US0 =
00:03:00 #6543 [verbose] > | US0_0
00:03:00 #6544 [verbose] > | US0_1
00:03:00 #6545 [verbose] > | US0_2
00:03:00 #6546 [verbose] > | US0_3
00:03:00 #6547 [verbose] > | US0_4
00:03:00 #6548 [verbose] > and Mut0 = {mutable l0 : int64}
00:03:00 #6549 [verbose] > and Mut1 = {mutable l0 : bool}
00:03:00 #6550 [verbose] > and Mut2 = {mutable l0 : US0}
00:03:00 #6551 [verbose] > and [[<Struct>]] US1 =
00:03:00 #6552 [verbose] > | US1_0 of f0_0 : int64
00:03:00 #6553 [verbose] > | US1_1
00:03:00 #6554 [verbose] > and [[<Struct>]] US2 =
00:03:00 #6555 [verbose] > | US2_0 of f0_0 : int64
00:03:00 #6556 [verbose] > | US2_1
00:03:00 #6557 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:03:00 #6558 [verbose] > v0
00:03:00 #6559 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:03:00 #6560 [verbose] > v0
00:03:00 #6561 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:03:00 #6562 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:03:00 #6563 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:03:00 #6564 [verbose] > let v2 : US0 = US0_0
00:03:00 #6565 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:03:00 #6566 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:03:00 #6567 [verbose] > let v5 : int64 option option = None
00:03:00 #6568 [verbose] > ...
00:03:00 #6569 [verbose] >
00:03:00 #6570 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:00 #6571 [verbose] > module SpiralTrace =
00:03:00 #6572 [verbose] > let get_trace_state () =
00:03:00 #6573 [verbose] > #if !INTERACTIVE
00:03:00 #6574 [verbose] > Trace.get_trace_state ()
00:03:00 #6575 [verbose] > #else
00:03:00 #6576 [verbose] > get_trace_state ()
00:03:00 #6577 [verbose] > #endif
00:03:00 #6578 [verbose] > let trace x =
00:03:00 #6579 [verbose] > #if !INTERACTIVE
00:03:00 #6580 [verbose] > Trace.trace x
00:03:00 #6581 [verbose] > #else
00:03:00 #6582 [verbose] > trace x
00:03:00 #6583 [verbose] > #endif
00:03:00 #6584 [verbose] >
00:03:00 #6585 [verbose] > let US0_0 =
00:03:00 #6586 [verbose] > #if !INTERACTIVE
00:03:00 #6587 [verbose] > Trace.US0_0
00:03:00 #6588 [verbose] > #else
00:03:00 #6589 [verbose] > US0_0
00:03:00 #6590 [verbose] > #endif
00:03:00 #6591 [verbose] >
00:03:00 #6592 [verbose] > let US0_1 =
00:03:00 #6593 [verbose] > #if !INTERACTIVE
00:03:00 #6594 [verbose] > Trace.US0_1
00:03:00 #6595 [verbose] > #else
00:03:00 #6596 [verbose] > US0_1
00:03:00 #6597 [verbose] > #endif
00:03:00 #6598 [verbose] >
00:03:00 #6599 [verbose] > let US0_2 =
00:03:00 #6600 [verbose] > #if !INTERACTIVE
00:03:00 #6601 [verbose] > Trace.US0_2
00:03:00 #6602 [verbose] > #else
00:03:00 #6603 [verbose] > US0_2
00:03:00 #6604 [verbose] > #endif
00:03:00 #6605 [verbose] >
00:03:00 #6606 [verbose] > let US0_3 =
00:03:00 #6607 [verbose] > #if !INTERACTIVE
00:03:00 #6608 [verbose] > Trace.US0_3
00:03:00 #6609 [verbose] > #else
00:03:00 #6610 [verbose] > US0_3
00:03:00 #6611 [verbose] > #endif
00:03:00 #6612 [verbose] >
00:03:00 #6613 [verbose] > let US0_4 =
00:03:00 #6614 [verbose] > #if !INTERACTIVE
00:03:00 #6615 [verbose] > Trace.US0_4
00:03:00 #6616 [verbose] > #else
00:03:00 #6617 [verbose] > US0_4
00:03:00 #6618 [verbose] > #endif
00:03:00 #6619 [verbose] >
00:03:00 #6620 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:03:00 #6621 [verbose] >
00:03:00 #6622 [verbose] > module SpiralAsync =
00:03:00 #6623 [verbose] > let merge_cancellation_token_with_default_async x ...
00:03:00 #6624 [verbose] >
00:03:00 #6625 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:00 #6626 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:03:00 #6627 [verbose] >
00:03:00 #6628 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:00 #6629 [verbose] > //// test
00:03:00 #6630 [verbose] >
00:03:00 #6631 [verbose] > type AssertExceptionFormatter (ex) =
00:03:00 #6632 [verbose] > member _.Text =
00:03:00 #6633 [verbose] > ex.ToString()
00:03:00 #6634 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:03:00 #6635 [verbose] > .Replace("36m", "</span>")
00:03:00 #6636 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:03:00 #6637 [verbose] > .Replace("\n", "<br/>\n")
00:03:00 #6638 [verbose] >
00:03:00 #6639 [verbose] >
00:03:00 #6640 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:03:00 #6641 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:03:00 #6642 [verbose] >
00:03:00 #6643 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:00 #6644 [verbose] > //// test
00:03:00 #6645 [verbose] >
00:03:00 #6646 [verbose] > let inline __expect fn log expected actual =
00:03:00 #6647 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:03:00 #6648 [verbose] > try
00:03:00 #6649 [verbose] > "Testing.__expect" |> fn actual expected
00:03:00 #6650 [verbose] > with :? Expecto.AssertException as ex ->
00:03:00 #6651 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:03:00 #6652 [verbose] > failwith (ex.GetType().FullName)
00:03:00 #6653 [verbose] >
00:03:00 #6654 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:03:00 #6655 [verbose] > expected actual
00:03:00 #6656 [verbose] > let inline _contains expected actual = __contains true expected actual
00:03:00 #6657 [verbose] >
00:03:00 #6658 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:03:00 #6659 [verbose] > expected actual
00:03:00 #6660 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:03:00 #6661 [verbose] >
00:03:00 #6662 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:03:00 #6663 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:03:01 #6664 [verbose] >
00:03:01 #6665 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:01 #6666 [verbose] > //// test
00:03:01 #6667 [verbose] >
00:03:01 #6668 [verbose] > let inline __isBetween log a b actual =
00:03:01 #6669 [verbose] > let inline isBetween actual (a, b) _ =
00:03:01 #6670 [verbose] > __isGreaterThanOrEqual log a actual
00:03:01 #6671 [verbose] > __isLessThanOrEqual log b actual
00:03:01 #6672 [verbose] > __expect isBetween log (a, b) actual
00:03:01 #6673 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:03:01 #6674 [verbose] >
00:03:01 #6675 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:01 #6676 [verbose] > #r @"../../../../../../../.nuget/packages/tomlyn/0.17.0/lib/net7.0/Tomlyn.dll"
00:03:01 #6677 [verbose] >
00:03:01 #6678 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:01 #6679 [verbose] > #!import ../../lib/fsharp/Common.fs
00:03:01 #6680 [verbose] >
00:03:01 #6681 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:01 #6682 [verbose] > #if !INTERACTIVE
00:03:01 #6683 [verbose] > namespace Polyglot
00:03:01 #6684 [verbose] > #endif
00:03:01 #6685 [verbose] >
00:03:01 #6686 [verbose] > module Common =
00:03:01 #6687 [verbose] >
00:03:01 #6688 [verbose] > #if !INTERACTIVE
00:03:01 #6689 [verbose] > open Lib
00:03:01 #6690 [verbose] > #endif
00:03:01 #6691 [verbose] >
00:03:01 #6692 [verbose] > let nl = System.Environment.NewLine
00:03:01 #6693 [verbose] > let q = @""""
00:03:01 #6694 [verbose] >
00:03:01 #6695 [verbose] > let inline cons head tail = head :: tail
00:03:01 #6696 [verbose] >
00:03:01 #6697 [verbose] > /// ## memoize
00:03:01 #6698 [verbose] >
00:03:01 #6699 [verbose] > let inline memoize fn =
00:03:01 #6700 [verbose] > let result = lazy fn ()
00:03:01 #6701 [verbose] > fun () -> result.Value
00:03:01 #6702 [verbose] >
00:03:01 #6703 [verbose] > /// ## TraceLevel
00:03:01 #6704 [verbose] >
00:03:01 #6705 [verbose] > type TraceLevel =
00:03:01 #6706 [verbose] > | Verbose
00:03:01 #6707 [verbose] > | Debug
00:03:01 #6708 [verbose] > | Info
00:03:01 #6709 [verbose] > | Warning
00:03:01 #6710 [verbose] > | Critical
00:03:01 #6711 [verbose] >
00:03:01 #6712 [verbose] > let inline getLocals () = ""
00:03:01 #6713 [verbose] >
00:03:01 #6714 [verbose] > /// ## trace
00:03:01 #6715 [verbose] >
00:03:01 #6716 [verbose] > let to_trace_level = function
00:03:01 #6717 [verbose] > | Verbose -> SpiralTrace.US0_0
00:03:01 #6718 [verbose] > | Debug -> SpiralTrace.US0_1
00:03:01 #6719 [verbose] > | Info -> SpiralTrace.US0_2
00:03:01 #6720 [verbose] > | Warning -> SpiralTrace.US0_3
00:03:01 #6721 [verbose] > | Critical -> SpiralTrace.US0_4
00:03:01 #6722 [verbose] >
00:03:01 #6723 [verbose] > let trace level fn g...
00:03:01 #6724 [verbose] >
00:03:01 #6725 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:01 #6726 [verbose] > open Common
00:03:01 #6727 [verbose] >
00:03:01 #6728 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:01 #6729 [verbose] > let inline (/./) (table: Tomlyn.Model.TomlTable) (key: string) :
00:03:01 #6730 [verbose] > Tomlyn.Model.TomlTable =
00:03:01 #6731 [verbose] > table.[[key]] :?> Tomlyn.Model.TomlTable
00:03:01 #6732 [verbose] >
00:03:01 #6733 [verbose] > let inline (/../) (table: Tomlyn.Model.TomlTable) (key: string) : 'T seq =
00:03:01 #6734 [verbose] > table.[[key]] :?> Tomlyn.Model.TomlArray |> Seq.cast<'T>
00:03:01 #6735 [verbose] >
00:03:01 #6736 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:01 #6737 [verbose] > //// test
00:03:01 #6738 [verbose] >
00:03:01 #6739 [verbose] > let tomlContent =
00:03:01 #6740 [verbose] > """
00:03:01 #6741 [verbose] > [[extension]]
00:03:01 #6742 [verbose] > paths = [["/a", "/b"]]
00:03:01 #6743 [verbose] > """
00:03:01 #6744 [verbose] >
00:03:01 #6745 [verbose] > let toml = Tomlyn.Toml.Parse tomlContent
00:03:01 #6746 [verbose] > let tomlModel = Tomlyn.Toml.ToModel toml
00:03:01 #6747 [verbose] >
00:03:01 #6748 [verbose] > let paths : string seq = tomlModel /./ "extension" /../ "paths"
00:03:01 #6749 [verbose] >
00:03:01 #6750 [verbose] > paths
00:03:01 #6751 [verbose] > |> Seq.toList
00:03:01 #6752 [verbose] > |> _assertEqual [[ "/a"; "/b" ]]
00:03:01 #6753 [verbose] >
00:03:01 #6754 [verbose] > ╭─[ 118.59ms - stdout ]────────────────────────────────────────────────────────╮
00:03:01 #6755 [verbose] > │ [ /a, /b ] │
00:03:01 #6756 [verbose] > │ │
00:03:01 #6757 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:03 #6758 [verbose] > [NbConvertApp] Converting notebook Toml.dib.ipynb to html
00:03:03 #6759 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:03 #6760 [verbose] > validate(nb)
00:03:04 #6761 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:03:04 #6762 [verbose] > return _pygments_highlight(
00:03:04 #6763 [verbose] > [NbConvertApp] Writing 277990 bytes to Toml.dib.html
00:03:05 #6764 [debug] executeAsync / exitCode: 0 / output.Length: 14063
00:03:05 #6765 [debug] main / executeCommand / exitCode: 0
00:03:07 #6766 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Async.dib
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Runtime.dib
00:00:00 #1 [debug] writeDibCode / output: Fs / path: CommonFSharp.dib
00:00:00 #1 [debug] writeDibCode / output: Fs / path: AsyncSeq.dib
00:00:00 #1 [debug] writeDibCode / output: Fs / path: FileSystem.dib
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Common.dib
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Threading.dib
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Networking.dib
00:00:00 #3 [debug] parseDibCode / output: Fs / file: Common.dib
00:00:00 #7 [debug] parseDibCode / output: Fs / file: CommonFSharp.dib
00:00:00 #8 [debug] parseDibCode / output: Fs / file: AsyncSeq.dib
00:00:00 #9 [debug] parseDibCode / output: Fs / file: FileSystem.dib
00:00:00 #3 [debug] parseDibCode / output: Fs / file: Async.dib
00:00:00 #5 [debug] parseDibCode / output: Fs / file: Runtime.dib
00:00:00 #4 [debug] parseDibCode / output: Fs / file: Threading.dib
00:00:00 #6 [debug] parseDibCode / output: Fs / file: Networking.dib
00:00:00 #10 [debug] writeDibCode / output: Fs / path: Toml.dib
00:00:00 #11 [debug] parseDibCode / output: Fs / file: Toml.dib
In [ ]:
{ . "$ScriptDir/../lib/rust/fable/build.ps1" } | Invoke-Block
── pwsh ──────────────────────────────────────────────────────────────────────── . ../../../scripts/nbs_header.ps1 . ../../../scripts/core.ps1 ── pwsh ──────────────────────────────────────────────────────────────────────── dotnet fable --optimize --lang rs --extension .rs ╭─[ 1.21s - stdout ]───────────────────────────────────────────────────────────╮ │ Fable 4.14.0: F# to Rust compiler (status: alpha) │ │ │ │ Thanks to the contributor! @tomcl │ │ Stand with Ukraine! https://standwithukraine.com.ua/ │ │ │ │ Parsing fable-library-rust.fsproj... │ │ Retrieving project options from cache, in case of issues run `dotnet fable │ │ clean` or try `--noCache` option. │ │ Project and references (1 source files) parsed in 239ms │ │ │ │ Skipped compilation because all generated files are up-to-date! │ │ │ ╰──────────────────────────────────────────────────────────────────────────────╯ [NbConvertApp] Converting notebook build.dib.ipynb to html C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future. validate(nb) C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3 return _pygments_highlight( [NbConvertApp] Writing 272477 bytes to build.dib.html
In [ ]:
{ . "$ScriptDir/../lib/math/build.ps1" } | Invoke-Block
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #2 [debug] executeAsync / options: { Command =
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = Some <fun:main@441-43> }
00:00:00 #3 [verbose] > pwd: C:\home\git\polyglot\lib\math
00:00:00 #4 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #5 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #6 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 #7 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:01 #8 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #9 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #10 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #11 [verbose] > Server bound to: http://localhost:13805
00:00:01 #12 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 math.dib""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:00:04 #13 [verbose] >
00:00:04 #14 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 #15 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 #16 [verbose] > │ # math │
00:00:04 #17 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 #18 [verbose] >
00:00:04 #19 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:04 #20 [verbose] > open testing
00:00:04 #21 [verbose] > open rust_operators
00:00:08 #22 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dbfb98f86b21deb6b35fe3a80945f9312d296d3871cb8776c774b57d259aaabf\main.spi
00:00:11 #23 [verbose] >
00:00:11 #24 [verbose] > ╭─[ 7.22s - stdout ]───────────────────────────────────────────────────────────╮
00:00:11 #25 [verbose] > │ () │
00:00:11 #26 [verbose] > │ │
00:00:11 #27 [verbose] > │ │
00:00:11 #28 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 #29 [verbose] >
00:00:11 #30 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 #31 [verbose] > inl types () =
00:00:11 #32 [verbose] > global "[[<Fable.Core.Erase;
00:00:11 #33 [verbose] > Fable.Core.Emit(\"num_complex::Complex<$0>\")>]] type num_complex_Complex<'T> =
00:00:11 #34 [verbose] > class end"
00:00:11 #35 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::types::PyModule\")>]]
00:00:11 #36 [verbose] > type pyo3_types_PyModule = class end"
00:00:11 #37 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::Bound<$0>\")>]] type
00:00:11 #38 [verbose] > pyo3_Bound<'T> = class end"
00:00:11 #39 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::Python\")>]] type
00:00:11 #40 [verbose] > pyo3_Python = class end"
00:00:11 #41 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::PyAny\")>]] type
00:00:11 #42 [verbose] > pyo3_PyAny = class end"
00:00:11 #43 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"pyo3::PyErr\")>]] type
00:00:11 #44 [verbose] > pyo3_PyErr = class end"
00:00:12 #45 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c8f0864954924202c04d677eb5455703cb3b1c12117620b7981f63f9267221bb\main.spi
00:00:12 #46 [verbose] >
00:00:12 #47 [verbose] > ╭─[ 282.42ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 #48 [verbose] > │ () │
00:00:12 #49 [verbose] > │ │
00:00:12 #50 [verbose] > │ │
00:00:12 #51 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 #52 [verbose] >
00:00:12 #53 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 #54 [verbose] > inl types () =
00:00:12 #55 [verbose] > rust.types ()
00:00:12 #56 [verbose] > sm'.types ()
00:00:12 #57 [verbose] > types ()
00:00:12 #58 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7617a3a286862b4ceb770aa451c622eaef1492d1ce601c2db1211ed261f948f6\main.spi
00:00:12 #59 [verbose] >
00:00:12 #60 [verbose] > ╭─[ 248.62ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 #61 [verbose] > │ () │
00:00:12 #62 [verbose] > │ │
00:00:12 #63 [verbose] > │ │
00:00:12 #64 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 #65 [verbose] >
00:00:12 #66 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:12 #67 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:12 #68 [verbose] > │ ## complex │
00:00:12 #69 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 #70 [verbose] >
00:00:12 #71 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 #72 [verbose] > nominal complex t = $"num_complex_Complex<`t>"
00:00:12 #73 [verbose] > nominal bound t = $"pyo3_Bound<`t>"
00:00:12 #74 [verbose] > nominal python = $"pyo3_Python"
00:00:12 #75 [verbose] > nominal pymodule = $"pyo3_types_PyModule"
00:00:12 #76 [verbose] > nominal pyany = $"pyo3_PyAny"
00:00:12 #77 [verbose] > nominal pyerr = $"pyo3_PyErr"
00:00:12 #78 [verbose] >
00:00:12 #79 [verbose] > inl complex forall t. ((re : t), (im : t)) : complex t =
00:00:12 #80 [verbose] > !\\((re, im), $'"num_complex::Complex::new($0, $1)"')
00:00:12 #81 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\94de0881508799e6879bea0aa98890075d503c37b10fc086131ba628b08fbaa7\main.spi
00:00:12 #82 [verbose] >
00:00:12 #83 [verbose] > ╭─[ 297.26ms - stdout ]────────────────────────────────────────────────────────╮
00:00:12 #84 [verbose] > │ () │
00:00:12 #85 [verbose] > │ │
00:00:12 #86 [verbose] > │ │
00:00:12 #87 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:12 #88 [verbose] >
00:00:12 #89 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:12 #90 [verbose] > // // test
00:00:12 #91 [verbose] > // // rust=
00:00:12 #92 [verbose] >
00:00:12 #93 [verbose] > types ()
00:00:12 #94 [verbose] >
00:00:12 #95 [verbose] > complex (0f64, 0f64)
00:00:12 #96 [verbose] > |> sm'.format'
00:00:12 #97 [verbose] > |> sm'.from_std_string
00:00:12 #98 [verbose] > |> _assert_eq "0+0i"
00:00:12 #99 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f8578f732a65cfae18b4b17be322b3fa7700f9cdad2aa36b7bddd231278f7461\main.spi
00:00:45 #100 [verbose] >
00:00:45 #101 [verbose] > ╭─[ 32.79s - return value ]────────────────────────────────────────────────────╮
00:00:45 #102 [verbose] > │ .rs output: │
00:00:45 #103 [verbose] > │ "0+0i" │
00:00:45 #104 [verbose] > │ │
00:00:45 #105 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 #106 [verbose] >
00:00:45 #107 [verbose] > ╭─[ 32.80s - stdout ]──────────────────────────────────────────────────────────╮
00:00:45 #108 [verbose] > │ │
00:00:45 #109 [verbose] > │ .fsx: │
00:00:45 #110 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:00:45 #111 [verbose] > │ end │
00:00:45 #112 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:00:45 #113 [verbose] > │ class end │
00:00:45 #114 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:00:45 #115 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:00:45 #116 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:00:45 #117 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:00:45 #118 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:00:45 #119 [verbose] > │ class end │
00:00:45 #120 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:00:45 #121 [verbose] > │ class end │
00:00:45 #122 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:00:45 #123 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:00:45 #124 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:00:45 #125 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:00:45 #126 [verbose] > │ class end │
00:00:45 #127 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:00:45 #128 [verbose] > │ class end │
00:00:45 #129 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:00:45 #130 [verbose] > │ class end │
00:00:45 #131 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:00:45 #132 [verbose] > │ std_cell_RefCell<'T> = class end │
00:00:45 #133 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:00:45 #134 [verbose] > │ std_pin_Pin<'T> = class end │
00:00:45 #135 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:00:45 #136 [verbose] > │ = class end │
00:00:45 #137 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:00:45 #138 [verbose] > │ std_rc_Weak<'T> = class end │
00:00:45 #139 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:00:45 #140 [verbose] > │ std_sync_Arc<'T> = class end │
00:00:45 #141 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:00:45 #142 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:00:45 #143 [verbose] > │ base64_DecodeError = class end │
00:00:45 #144 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:00:45 #145 [verbose] > │ borsh_io_Error = class end │
00:00:45 #146 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:00:45 #147 [verbose] > │ js_sys_JsString = class end │
00:00:45 #148 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:00:45 #149 [verbose] > │ serde_json_Error = class end │
00:00:45 #150 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:00:45 #151 [verbose] > │ serde_json_Value = class end │
00:00:45 #152 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:00:45 #153 [verbose] > │ serde_wasm_bindgen_Error = class end │
00:00:45 #154 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:00:45 #155 [verbose] > │ = class end │
00:00:45 #156 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:00:45 #157 [verbose] > │ std_ffi_OsString = class end │
00:00:45 #158 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:00:45 #159 [verbose] > │ std_str_Utf8Error = class end │
00:00:45 #160 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:00:45 #161 [verbose] > │ std_string_String = class end │
00:00:45 #162 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("num_complex::Complex<$0>")>] type │
00:00:45 #163 [verbose] > │ num_complex_Complex<'T> = class end │
00:00:45 #164 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::types::PyModule")>] type │
00:00:45 #165 [verbose] > │ pyo3_types_PyModule = class end │
00:00:45 #166 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Bound<$0>")>] type pyo3_Bound<'T> │
00:00:45 #167 [verbose] > │ = class end │
00:00:45 #168 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Python")>] type pyo3_Python = │
00:00:45 #169 [verbose] > │ class end │
00:00:45 #170 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyAny")>] type pyo3_PyAny = class │
00:00:45 #171 [verbose] > │ end │
00:00:45 #172 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyErr")>] type pyo3_PyErr = class │
00:00:45 #173 [verbose] > │ end │
00:00:45 #174 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:00:45 #175 [verbose] > │ v0 │
00:00:45 #176 [verbose] > │ and method0 () : unit = │
00:00:45 #177 [verbose] > │ let v0 : string = "num_complex::Complex::new($0, $1)" │
00:00:45 #178 [verbose] > │ let v1 : num_complex_Complex<float> = │
00:00:45 #179 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v0 │
00:00:45 #180 [verbose] > │ let v2 : string = @$"format!(""{{}}"", $0)" │
00:00:45 #181 [verbose] > │ let v3 : std_string_String = Fable.Core.RustInterop.emitRustExpr v1 v2 │
00:00:45 #182 [verbose] > │ let v4 : string = "fable_library_rust::String_::fromString($0)" │
00:00:45 #183 [verbose] > │ let v5 : string = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:00:45 #184 [verbose] > │ let v6 : string = $"%A{v5}" │
00:00:45 #185 [verbose] > │ System.Console.WriteLine v6 │
00:00:45 #186 [verbose] > │ let v8 : bool = v5 = "0+0i" │
00:00:45 #187 [verbose] > │ let v10 : bool = │
00:00:45 #188 [verbose] > │ if v8 then │
00:00:45 #189 [verbose] > │ true │
00:00:45 #190 [verbose] > │ else │
00:00:45 #191 [verbose] > │ method1(v8) │
00:00:45 #192 [verbose] > │ let v11 : string = "0+0i" │
00:00:45 #193 [verbose] > │ let v12 : string = $"__expect / actual: %A{v5} / expected: %A{v11}" │
00:00:45 #194 [verbose] > │ let v13 : bool = v10 = false │
00:00:45 #195 [verbose] > │ if v13 then │
00:00:45 #196 [verbose] > │ failwith<unit> v12 │
00:00:45 #197 [verbose] > │ method0() │
00:00:45 #198 [verbose] > │ │
00:00:45 #199 [verbose] > │ │
00:00:45 #200 [verbose] > │ .rs: │
00:00:45 #201 [verbose] > │ #![allow(dead_code,)] │
00:00:45 #202 [verbose] > │ #![allow(non_camel_case_types,)] │
00:00:45 #203 [verbose] > │ #![allow(non_snake_case,)] │
00:00:45 #204 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:00:45 #205 [verbose] > │ #![allow(unreachable_code,)] │
00:00:45 #206 [verbose] > │ #![allow(unused_attributes,)] │
00:00:45 #207 [verbose] > │ #![allow(unused_imports,)] │
00:00:45 #208 [verbose] > │ #![allow(unused_macros,)] │
00:00:45 #209 [verbose] > │ #![allow(unused_parens,)] │
00:00:45 #210 [verbose] > │ #![allow(unused_variables,)] │
00:00:45 #211 [verbose] > │ mod module_ccfa04bf { │
00:00:45 #212 [verbose] > │ pub mod Spiral_eval { │
00:00:45 #213 [verbose] > │ use super::*; │
00:00:45 #214 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:00:45 #215 [verbose] > │ use fable_library_rust::String_::printfn; │
00:00:45 #216 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:00:45 #217 [verbose] > │ use fable_library_rust::String_::string; │
00:00:45 #218 [verbose] > │ pub fn method1(v0: bool) -> bool { v0 } │
00:00:45 #219 [verbose] > │ pub fn method0() { │
00:00:45 #220 [verbose] > │ let v1: num_complex::Complex<f64> = │
00:00:45 #221 [verbose] > │ num_complex::Complex::new(0.0_f64, 0.0_f64); │
00:00:45 #222 [verbose] > │ let v3: std::string::String = format!("{}", v1); │
00:00:45 #223 [verbose] > │ let v5: string = fable_library_rust::String_::fromString(v3); │
00:00:45 #224 [verbose] > │ let v6: string = sprintf!("{:?}", v5.clone()); │
00:00:45 #225 [verbose] > │ printfn!("{0}", v6); │
00:00:45 #226 [verbose] > │ { │
00:00:45 #227 [verbose] > │ let v8: bool = v5.clone() == string("0+0i"); │
00:00:45 #228 [verbose] > │ if (if v8 { true } else { Spiral_eval::method1(v8) }) == │
00:00:45 #229 [verbose] > │ false │
00:00:45 #230 [verbose] > │ { │
00:00:45 #231 [verbose] > │ panic!("{}", │
00:00:45 #232 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: │
00:00:45 #233 [verbose] > │ {:?}", v5, string("0+0i"))); │
00:00:45 #234 [verbose] > │ } │
00:00:45 #235 [verbose] > │ } │
00:00:45 #236 [verbose] > │ } │
00:00:45 #237 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:00:45 #238 [verbose] > │ } │
00:00:45 #239 [verbose] > │ } │
00:00:45 #240 [verbose] > │ pub use module_ccfa04bf::*; │
00:00:45 #241 [verbose] > │ │
00:00:45 #242 [verbose] > │ │
00:00:45 #243 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 #244 [verbose] >
00:00:45 #245 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:45 #246 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:45 #247 [verbose] > │ ## complex_sin │
00:00:45 #248 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:45 #249 [verbose] >
00:00:45 #250 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:45 #251 [verbose] > inl re forall t. (c : complex t) : t =
00:00:45 #252 [verbose] > inl c = join c
00:00:45 #253 [verbose] > !\($'"!c.re"')
00:00:45 #254 [verbose] >
00:00:45 #255 [verbose] > inl im forall t. (c : complex t) : t =
00:00:45 #256 [verbose] > inl c = join c
00:00:45 #257 [verbose] > !\($'"!c.im"')
00:00:45 #258 [verbose] >
00:00:45 #259 [verbose] > inl complex_unbox forall t. (c : complex t) =
00:00:45 #260 [verbose] > re c, im c
00:00:45 #261 [verbose] >
00:00:45 #262 [verbose] > inl (~.^) c = complex c
00:00:45 #263 [verbose] >
00:00:45 #264 [verbose] > inl complex_eq forall t. (a : complex t) (b : complex t) : bool =
00:00:45 #265 [verbose] > !\($'"!a == !b"')
00:00:45 #266 [verbose] >
00:00:45 #267 [verbose] > inl (.=) a b = complex_eq a b
00:00:45 #268 [verbose] >
00:00:45 #269 [verbose] > instance equable complex t = complex_eq
00:00:45 #270 [verbose] >
00:00:45 #271 [verbose] > inl complex_add forall t. (a : complex t) (b : complex t) : complex t =
00:00:45 #272 [verbose] > !\($'"!a + !b"')
00:00:45 #273 [verbose] >
00:00:45 #274 [verbose] > inl (.+) a b = complex_add a b
00:00:45 #275 [verbose] >
00:00:45 #276 [verbose] > inl complex_sub forall t. (a : complex t) (b : complex t) : complex t =
00:00:45 #277 [verbose] > !\\((a, b), $'"$0 - $1"')
00:00:45 #278 [verbose] >
00:00:45 #279 [verbose] > inl (.-) a b = complex_sub a b
00:00:45 #280 [verbose] >
00:00:45 #281 [verbose] > inl complex_mult forall t. (a : complex t) (b : complex t) : complex t =
00:00:45 #282 [verbose] > !\\((a, b), $'"$0 * $1"')
00:00:45 #283 [verbose] >
00:00:45 #284 [verbose] > inl (.*) a b = complex_mult a b
00:00:45 #285 [verbose] >
00:00:45 #286 [verbose] > inl complex_div forall t. (a : complex t) (b : complex t) : complex t =
00:00:45 #287 [verbose] > !\($'"!a / !b"')
00:00:45 #288 [verbose] >
00:00:45 #289 [verbose] > inl (./) a b = complex_div a b
00:00:45 #290 [verbose] >
00:00:45 #291 [verbose] > inl powc forall t. (s : complex t) (c : complex t) : complex t =
00:00:45 #292 [verbose] > inl c = join c
00:00:45 #293 [verbose] > inl s = join s
00:00:45 #294 [verbose] > !\($'"num_complex::Complex::powc(!c, !s)"')
00:00:45 #295 [verbose] >
00:00:45 #296 [verbose] > inl (.**) a b = powc b a
00:00:45 #297 [verbose] >
00:00:45 #298 [verbose] > inl complex_sin forall t. (c : complex t) : complex t =
00:00:45 #299 [verbose] > !\($'"!c.sin()"')
00:00:45 #300 [verbose] >
00:00:45 #301 [verbose] > inl conj forall t. (c : complex t) : complex t =
00:00:45 #302 [verbose] > !\($'"!c.conj()"')
00:00:45 #303 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5a95c3e15923c6920070293d6716cbb2793842b5c066db481586bd441486b97c\main.spi
00:00:46 #304 [verbose] >
00:00:46 #305 [verbose] > ╭─[ 338.52ms - stdout ]────────────────────────────────────────────────────────╮
00:00:46 #306 [verbose] > │ () │
00:00:46 #307 [verbose] > │ │
00:00:46 #308 [verbose] > │ │
00:00:46 #309 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 #310 [verbose] >
00:00:46 #311 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 #312 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 #313 [verbose] > │ ## zeta │
00:00:46 #314 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 #315 [verbose] >
00:00:46 #316 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:46 #317 [verbose] > inl zeta log (gamma : complex f64 -> complex f64) (s : complex f64) : complex
00:00:46 #318 [verbose] > f64 =
00:00:46 #319 [verbose] > inl rec zeta count gamma s =
00:00:46 #320 [verbose] > if log then
00:00:46 #321 [verbose] > !\\(s, $'"println\!(\\\"zeta / count: {:?} / s: {:?}\\\", !count,
00:00:46 #322 [verbose] > $0)"')
00:00:46 #323 [verbose] > if re s > 1 then
00:00:46 #324 [verbose] > (.^(0, 0), (am.init 10000i32 id : a i32 _))
00:00:46 #325 [verbose] > ||> am.fold fun acc n =>
00:00:46 #326 [verbose] > acc .+ (.^(1, 0) ./ (.^(f64 n, 0) .** s))
00:00:46 #327 [verbose] > else
00:00:46 #328 [verbose] > inl gamma_term = gamma (.^(1, 0) .- s)
00:00:46 #329 [verbose] > inl sin_term = .^(pi, 0) .* s ./ .^(2, 0) |> complex_sin
00:00:46 #330 [verbose] > inl one_minus_s = .^(1 - re s, -(im s))
00:00:46 #331 [verbose] > inl mirror_term =
00:00:46 #332 [verbose] > if re one_minus_s <= 1
00:00:46 #333 [verbose] > then .^(0, 0)
00:00:46 #334 [verbose] > else
00:00:46 #335 [verbose] > if count <= 3
00:00:46 #336 [verbose] > then zeta (count + 1) gamma one_minus_s
00:00:46 #337 [verbose] > else one_minus_s
00:00:46 #338 [verbose] > inl reflection_formula =
00:00:46 #339 [verbose] > .^(2, 0) .* (.^(pi, 0) .** s) .* sin_term .* gamma_term .*
00:00:46 #340 [verbose] > mirror_term
00:00:46 #341 [verbose] > reflection_formula
00:00:46 #342 [verbose] > join zeta 0i32 gamma s
00:00:46 #343 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\10cc2e61d8e1c8501ee311ac1aaa7bb5ddb8c7476f64e51b4571b80e485463bd\main.spi
00:00:46 #344 [verbose] >
00:00:46 #345 [verbose] > ╭─[ 309.82ms - stdout ]────────────────────────────────────────────────────────╮
00:00:46 #346 [verbose] > │ () │
00:00:46 #347 [verbose] > │ │
00:00:46 #348 [verbose] > │ │
00:00:46 #349 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 #350 [verbose] >
00:00:46 #351 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 #352 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 #353 [verbose] > │ ## eval │
00:00:46 #354 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 #355 [verbose] >
00:00:46 #356 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:46 #357 [verbose] > inl module_from_code (py : python) (code : string) : _ (bound pymodule) _ =
00:00:46 #358 [verbose] > inl py = join py
00:00:46 #359 [verbose] > inl code = code |> sm'.as_str
00:00:46 #360 [verbose] > !\($'"pyo3::types::PyModule::from_code_bound(!py, !code, \\"\\", \\"\\")"')
00:00:46 #361 [verbose] > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:46 #362 [verbose] >
00:00:46 #363 [verbose] > inl use_pyanymethods () =
00:00:46 #364 [verbose] > global "Fable.Core.RustInterop.emitRustExpr () \");\nuse
00:00:46 #365 [verbose] > pyo3::prelude::PyAnyMethods;\n//\""
00:00:46 #366 [verbose] >
00:00:46 #367 [verbose] > inl getattr (attr : string) (module : bound pymodule) : _ (bound pyany) _ =
00:00:46 #368 [verbose] > inl attr = join attr
00:00:46 #369 [verbose] > inl attr = attr |> sm'.as_str
00:00:46 #370 [verbose] > inl module = join module
00:00:46 #371 [verbose] > use_pyanymethods ()
00:00:46 #372 [verbose] > !\($'"!module.getattr(!attr)"')
00:00:46 #373 [verbose] > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:46 #374 [verbose] >
00:00:46 #375 [verbose] > inl call forall t. (args : t) (module : bound pyany) : _ (bound pyany) _ =
00:00:46 #376 [verbose] > inl args = join args
00:00:46 #377 [verbose] > inl module = join module
00:00:46 #378 [verbose] > !\($'"pyo3::prelude::PyAnyMethods::call(&!module, ((*!args).0, *(*!args).1),
00:00:46 #379 [verbose] > None)"')
00:00:46 #380 [verbose] > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:46 #381 [verbose] >
00:00:46 #382 [verbose] > inl extract forall t. (result : bound pyany) : _ t _ =
00:00:46 #383 [verbose] > inl result = join result
00:00:46 #384 [verbose] > use_pyanymethods ()
00:00:46 #385 [verbose] > !\($'"!result.extract()"')
00:00:46 #386 [verbose] > |> resultm.map_error' fun (x : pyerr) => x |> sm'.format'
00:00:46 #387 [verbose] >
00:00:46 #388 [verbose] > inl eval py code (args : pair bool (pair f64 f64)) : _ (_ f64) sm'.std_string =
00:00:46 #389 [verbose] > inl code =
00:00:46 #390 [verbose] > code
00:00:46 #391 [verbose] > |> module_from_code py
00:00:46 #392 [verbose] > |> resultm.unwrap'
00:00:46 #393 [verbose] > inl fn =
00:00:46 #394 [verbose] > code
00:00:46 #395 [verbose] > |> getattr "fn"
00:00:46 #396 [verbose] > |> resultm.unwrap'
00:00:46 #397 [verbose] >
00:00:46 #398 [verbose] > fn
00:00:46 #399 [verbose] > |> call args
00:00:46 #400 [verbose] > |> resultm.try'
00:00:46 #401 [verbose] > |> extract
00:00:46 #402 [verbose] > |> resultm.try'
00:00:46 #403 [verbose] > |> complex
00:00:46 #404 [verbose] > |> Ok
00:00:46 #405 [verbose] > |> resultm.box
00:00:46 #406 [verbose] >
00:00:46 #407 [verbose] > inl call1_ log py s code =
00:00:46 #408 [verbose] > inl code = join (a code : _ i32 _) |> sm'.concat_array_trailing "\n"
00:00:46 #409 [verbose] >
00:00:46 #410 [verbose] > inl s = new_pair (re s) (im s)
00:00:46 #411 [verbose] > inl args = new_pair log s
00:00:46 #412 [verbose] >
00:00:46 #413 [verbose] > eval py code args
00:00:46 #414 [verbose] >
00:00:46 #415 [verbose] > inl call1_ log name py s line =
00:00:46 #416 [verbose] > inl s = join s
00:00:46 #417 [verbose] > join
00:00:46 #418 [verbose] > ;[[
00:00:46 #419 [verbose] > $'$"import sys"'
00:00:46 #420 [verbose] > $'$"import traceback"'
00:00:46 #421 [verbose] > $'$"import re"'
00:00:46 #422 [verbose] > $'$"count = 0"'
00:00:46 #423 [verbose] > $'$"memory_address_pattern = re.compile(r\' at 0x[[0-9a-fA-F]]+\')"'
00:00:46 #424 [verbose] > $'$"def trace_calls(frame, event, arg):"'
00:00:46 #425 [verbose] > $'$" global count"'
00:00:46 #426 [verbose] > $'$" count += 1"'
00:00:46 #427 [verbose] > $'$" if count < 200:"'
00:00:46 #428 [verbose] > $'$" try:"'
00:00:46 #429 [verbose] > $'$" args = {{ k: v for k, v in frame.f_locals.items() if
00:00:46 #430 [verbose] > frame.f_code.co_name \!= \'make_mpc\' and k not in [[\'ctx\']] and not
00:00:46 #431 [verbose] > callable(v) }}"'
00:00:46 #432 [verbose] > $'$" args_str = \', \'.join([[
00:00:46 #433 [verbose] > f\\\"{{k}}={{re.sub(memory_address_pattern, \' at 0x<?>\', repr(v))}}\\\" for k,
00:00:46 #434 [verbose] > v in args.items() ]])"'
00:00:46 #435 [verbose] > $'$" print(f\\\"{{event}}({!name}) / f_code.co_name:
00:00:46 #436 [verbose] > {{frame.f_code.co_name}} / f_locals: {{args_str}} / f_lineno: {{frame.f_lineno}}
00:00:46 #437 [verbose] > / f_code.co_filename:
00:00:46 #438 [verbose] > {{frame.f_code.co_filename.split(\'site-packages\')[[-1]]}} / f_back.f_lineno:
00:00:46 #439 [verbose] > {{ \'\' if frame.f_back is None else frame.f_back.f_lineno }}
00:00:46 #440 [verbose] > f_back.f_code.co_filename: {{ \'\' if frame.f_back is None else
00:00:46 #441 [verbose] > frame.f_back.f_code.co_filename.split(\'site-packages\')[[-1]] }} / arg:
00:00:46 #442 [verbose] > {{re.sub(memory_address_pattern, \' at 0x<?>\', repr(arg))}}\\\", flush=True)"'
00:00:46 #443 [verbose] > $'$" except ValueError as e:"'
00:00:46 #444 [verbose] > $'$" print(f\'{!name} / e: {{e}}\', flush=True)"'
00:00:46 #445 [verbose] > $'$" return trace_calls"'
00:00:46 #446 [verbose] > $'$"import mpmath"'
00:00:46 #447 [verbose] > $'$"def fn(log, s):"'
00:00:46 #448 [verbose] > $'$" global count"'
00:00:46 #449 [verbose] > $'$" if log:"'
00:00:46 #450 [verbose] > $'$" print(f\'{!name} / s: {{s}} / count: {{count}}\',
00:00:46 #451 [verbose] > flush=True)"'
00:00:46 #452 [verbose] > $'$" s = complex(*s)"'
00:00:46 #453 [verbose] > $'$" try:"'
00:00:46 #454 [verbose] > $'$" if log: sys.settrace(trace_calls)"'
00:00:46 #455 [verbose] > line
00:00:46 #456 [verbose] > $'$" if log:"'
00:00:46 #457 [verbose] > $'$" sys.settrace(None)"'
00:00:46 #458 [verbose] > $'$" print(f\'{!name} / result: {{s}} / count:
00:00:46 #459 [verbose] > {{count}}\', flush=True)"'
00:00:46 #460 [verbose] > $'$" except ValueError as e:"'
00:00:46 #461 [verbose] > $'$" if s.real == 1:"'
00:00:46 #462 [verbose] > $'$" s = complex(float(\'inf\'), 0)"'
00:00:46 #463 [verbose] > $'$" return (s.real, s.imag)"'
00:00:46 #464 [verbose] > ]]
00:00:46 #465 [verbose] > |> call1_ log py s
00:00:46 #466 [verbose] >
00:00:46 #467 [verbose] > inl gamma_ log py s =
00:00:46 #468 [verbose] > call1_ log "gamma_" py s $'$" s = mpmath.gamma(s)"'
00:00:46 #469 [verbose] >
00:00:46 #470 [verbose] > inl zeta_ log py s =
00:00:46 #471 [verbose] > call1_ log "zeta_" py s $'$" s = mpmath.zeta(s)"'
00:00:46 #472 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1beafb1ea5033857f27d0eb49274cd5c95c2a2f402111e314b94c6a3b184b965\main.spi
00:00:46 #473 [verbose] >
00:00:46 #474 [verbose] > ╭─[ 290.50ms - stdout ]────────────────────────────────────────────────────────╮
00:00:46 #475 [verbose] > │ () │
00:00:46 #476 [verbose] > │ │
00:00:46 #477 [verbose] > │ │
00:00:46 #478 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 #479 [verbose] >
00:00:46 #480 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:46 #481 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:46 #482 [verbose] > │ ## run_test │
00:00:46 #483 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:46 #484 [verbose] >
00:00:46 #485 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:46 #486 [verbose] > inl run_test log closure_fix (fn : (complex f64 -> complex f64) * (complex f64
00:00:46 #487 [verbose] > -> complex f64) -> ()) =
00:00:46 #488 [verbose] > inl fn_ (py : python) : resultm.result' () pyerr =
00:00:46 #489 [verbose] > inl nan () =
00:00:46 #490 [verbose] > !\($'"f64::NAN"')
00:00:46 #491 [verbose] > inl gamma__ = fun (s : complex f64) =>
00:00:46 #492 [verbose] > inl result = gamma_ log py s
00:00:46 #493 [verbose] > if log then
00:00:46 #494 [verbose] > inl s = join s
00:00:46 #495 [verbose] > !\($'"println\!(\\\"gamma__ / s: {:?} / result: {:?}\\\", !s,
00:00:46 #496 [verbose] > !result)"')
00:00:46 #497 [verbose] > result |> resultm.ok' |> optionm'.unbox |> optionm'.default_value
00:00:46 #498 [verbose] > .^(nan (), nan ())
00:00:46 #499 [verbose] > inl zeta__ = fun (s : complex f64) =>
00:00:46 #500 [verbose] > inl result = zeta_ log py s
00:00:46 #501 [verbose] >
00:00:46 #502 [verbose] > inl z = zeta true gamma__ s
00:00:46 #503 [verbose] >
00:00:46 #504 [verbose] > if log then
00:00:46 #505 [verbose] > inl s = join s
00:00:46 #506 [verbose] > !\($'"println\!(\\\"zeta__ / s: {:?} / result: {:?} / z:
00:00:46 #507 [verbose] > {:?}\\\", !s, !result, !z)"')
00:00:46 #508 [verbose] >
00:00:46 #509 [verbose] > // re result - re x |> abs
00:00:46 #510 [verbose] > // |> _assert_lt 0.001
00:00:46 #511 [verbose] >
00:00:46 #512 [verbose] > // im result - im x |> abs
00:00:46 #513 [verbose] > // |> _assert_lt 0.001
00:00:46 #514 [verbose] >
00:00:46 #515 [verbose] > result |> resultm.ok' |> optionm'.unbox |> optionm'.default_value
00:00:46 #516 [verbose] > .^(nan (), nan ())
00:00:46 #517 [verbose] > join fn (zeta__, gamma__)
00:00:46 #518 [verbose] >
00:00:46 #519 [verbose] > Ok ()
00:00:46 #520 [verbose] > |> resultm.box
00:00:46 #521 [verbose] >
00:00:46 #522 [verbose] > join
00:00:46 #523 [verbose] > !\($'"pyo3::prepare_freethreaded_python()"') : ()
00:00:46 #524 [verbose] >
00:00:46 #525 [verbose] > !\($'"let __result = pyo3::Python::with_gil(|py| -> pyo3::PyResult<()> {
00:00:46 #526 [verbose] > //"')
00:00:46 #527 [verbose] >
00:00:46 #528 [verbose] > let x' = fn_ (!\($'"py"') : python)
00:00:46 #529 [verbose] > inl x' = join x'
00:00:46 #530 [verbose] >
00:00:46 #531 [verbose] > inl closure_fix = 2u8, 1u8
00:00:46 #532 [verbose] > x' |> rust.fix_closure closure_fix
00:00:46 #533 [verbose] >
00:00:46 #534 [verbose] > (!\($'"__result"') : _ () pyerr)
00:00:46 #535 [verbose] > |> resultm.unwrap'
00:00:46 #536 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\60cb034f29db0aa707880c66bc2a81fa6de304bdcf50fe99066307718b6a0a28\main.spi
00:00:47 #537 [verbose] >
00:00:47 #538 [verbose] > ╭─[ 594.84ms - stdout ]────────────────────────────────────────────────────────╮
00:00:47 #539 [verbose] > │ () │
00:00:47 #540 [verbose] > │ │
00:00:47 #541 [verbose] > │ │
00:00:47 #542 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 #543 [verbose] >
00:00:47 #544 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:47 #545 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:47 #546 [verbose] > │ ## test_zeta_at_known_values_ │
00:00:47 #547 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 #548 [verbose] >
00:00:47 #549 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:47 #550 [verbose] > inl test_zeta_at_known_values_ log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:00:47 #551 [verbose] > ;[[
00:00:47 #552 [verbose] > .^(2, 0), pi ** 2 / 6
00:00:47 #553 [verbose] > .^(-1, 0), -1 / 12
00:00:47 #554 [verbose] > ]]
00:00:47 #555 [verbose] > |> fun x => a x : _ i32 _
00:00:47 #556 [verbose] > |> am.iter fun s, e =>
00:00:47 #557 [verbose] > inl result = zeta s
00:00:47 #558 [verbose] >
00:00:47 #559 [verbose] > result |> im |> _assert_eq 0
00:00:47 #560 [verbose] > re result - e |> abs |> _assert_lt 0.0001
00:00:47 #561 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fd5fefba53273641104c90da554fd24610fadf039beccf1db1aee723e1700ecb\main.spi
00:00:47 #562 [verbose] >
00:00:47 #563 [verbose] > ╭─[ 237.51ms - stdout ]────────────────────────────────────────────────────────╮
00:00:47 #564 [verbose] > │ () │
00:00:47 #565 [verbose] > │ │
00:00:47 #566 [verbose] > │ │
00:00:47 #567 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:47 #568 [verbose] >
00:00:47 #569 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:47 #570 [verbose] > // // test
00:00:47 #571 [verbose] > // // rust=
00:00:47 #572 [verbose] > // // print_code=false
00:00:47 #573 [verbose] >
00:00:47 #574 [verbose] > types ()
00:00:47 #575 [verbose] > test_zeta_at_known_values_ true
00:00:47 #576 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c781d4d8759e20d2658a8ca5848941870b7ad14357541382e69fab0bc9a8bf43\main.spi
00:00:59 #577 [verbose] >
00:00:59 #578 [verbose] > ╭─[ 12.29s - return value ]────────────────────────────────────────────────────╮
00:00:59 #579 [verbose] > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:00:59 #580 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:59 #581 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:00:59 #582 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:59 #583 [verbose] > │ / arg: None │
00:00:59 #584 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:59 #585 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:00:59 #586 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:59 #587 [verbose] > │ / arg: None │
00:00:59 #588 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:00:59 #589 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:00:59 #590 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:00:59 #591 [verbose] > │ / arg: None │
00:00:59 #592 [verbose] > │ line(zeta_) / f_code.co_name: z... │
00:00:59 #593 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 #594 [verbose] >
00:00:59 #595 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 #596 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 #597 [verbose] > │ ## test_zeta_at_2_minus2 │
00:00:59 #598 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 #599 [verbose] >
00:00:59 #600 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 #601 [verbose] > inl test_zeta_at_2_minus2 log = run_test log (6u8, 5u8) fun zeta, gamma =>
00:00:59 #602 [verbose] > inl s = .^(2, -2)
00:00:59 #603 [verbose] > inl result = zeta s
00:00:59 #604 [verbose] >
00:00:59 #605 [verbose] > (re result - 0.8673) |> abs |> _assert_lt 0.001
00:00:59 #606 [verbose] > (im result - 0.2750) |> abs |> _assert_lt 0.001
00:00:59 #607 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\50bd39b9d8610c7d26d812e2e21d86ccf12bbbe89f0bb8fca42dafe52783f7da\main.spi
00:01:00 #608 [verbose] >
00:01:00 #609 [verbose] > ╭─[ 294.12ms - stdout ]────────────────────────────────────────────────────────╮
00:01:00 #610 [verbose] > │ () │
00:01:00 #611 [verbose] > │ │
00:01:00 #612 [verbose] > │ │
00:01:00 #613 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #614 [verbose] >
00:01:00 #615 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:00 #616 [verbose] > // // test
00:01:00 #617 [verbose] > // // rust=
00:01:00 #618 [verbose] > // // print_code=false
00:01:00 #619 [verbose] >
00:01:00 #620 [verbose] > types ()
00:01:00 #621 [verbose] > test_zeta_at_2_minus2 true
00:01:00 #622 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\995c9d4a2cb8e61d947c16deccdf7d65926c4818c476610574852f413f9e5a1e\main.spi
00:01:10 #623 [verbose] >
00:01:10 #624 [verbose] > ╭─[ 10.70s - return value ]────────────────────────────────────────────────────╮
00:01:10 #625 [verbose] > │ zeta_ / s: (2.0, -2.0) / count: 0 │
00:01:10 #626 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:01:10 #627 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:10 #628 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:10 #629 [verbose] > │ / arg: None │
00:01:10 #630 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:01:10 #631 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:10 #632 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:10 #633 [verbose] > │ / arg: None │
00:01:10 #634 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2-2j), a=1, derivative=0, │
00:01:10 #635 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:10 #636 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:10 #637 [verbose] > │ / arg: None │
00:01:10 #638 [verbose] > │ line(zeta_) / f_code.co_name: ... │
00:01:10 #639 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:10 #640 [verbose] >
00:01:10 #641 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:10 #642 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:10 #643 [verbose] > │ ## test_trivial_zero_at_negative_even___ │
00:01:10 #644 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:10 #645 [verbose] >
00:01:10 #646 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:10 #647 [verbose] > inl test_trivial_zero_at_negative_even___ log = run_test log (2u8, 1u8) fun
00:01:10 #648 [verbose] > zeta, gamma =>
00:01:10 #649 [verbose] > (join listm'.init_series -2f64 -40 -2)
00:01:10 #650 [verbose] > |> listm.iter fun n =>
00:01:10 #651 [verbose] > inl s = .^(n, 0)
00:01:10 #652 [verbose] > inl result = zeta s
00:01:10 #653 [verbose] >
00:01:10 #654 [verbose] > result |> re |> _assert_eq 0
00:01:10 #655 [verbose] > result |> im |> _assert_eq 0
00:01:10 #656 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\36d9bf28854978eccc49c247bab71a54ef8174e117f5dcadc58e8e3521bbd7d5\main.spi
00:01:11 #657 [verbose] >
00:01:11 #658 [verbose] > ╭─[ 278.07ms - stdout ]────────────────────────────────────────────────────────╮
00:01:11 #659 [verbose] > │ () │
00:01:11 #660 [verbose] > │ │
00:01:11 #661 [verbose] > │ │
00:01:11 #662 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:11 #663 [verbose] >
00:01:11 #664 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:11 #665 [verbose] > // // test
00:01:11 #666 [verbose] > // // rust=
00:01:11 #667 [verbose] > // // print_code=false
00:01:11 #668 [verbose] >
00:01:11 #669 [verbose] > types ()
00:01:11 #670 [verbose] > test_trivial_zero_at_negative_even___ true
00:01:11 #671 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3befd6d952e2ab7deb7979efed0ef8f1814fb29bf1b73860608b95c3820d87a5\main.spi
00:01:22 #672 [verbose] >
00:01:22 #673 [verbose] > ╭─[ 11.61s - return value ]────────────────────────────────────────────────────╮
00:01:22 #674 [verbose] > │ zeta_ / s: (-2.0, 0.0) / count: 0 │
00:01:22 #675 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:01:22 #676 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:22 #677 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:22 #678 [verbose] > │ / arg: None │
00:01:22 #679 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:01:22 #680 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:22 #681 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:22 #682 [verbose] > │ / arg: None │
00:01:22 #683 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(-2+0j), a=1, derivative=0, │
00:01:22 #684 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:22 #685 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:22 #686 [verbose] > │ / arg: None │
00:01:22 #687 [verbose] > │ line(zeta_) / f_code.co_nam... │
00:01:22 #688 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 #689 [verbose] >
00:01:22 #690 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:22 #691 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:22 #692 [verbose] > │ ## test_non_trivial_zero___ │
00:01:22 #693 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:22 #694 [verbose] >
00:01:22 #695 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:22 #696 [verbose] > inl test_non_trivial_zero___ log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:01:22 #697 [verbose] > ;[[
00:01:22 #698 [verbose] > .^(0.5, 14.134725)
00:01:22 #699 [verbose] > .^(0.5, 21.022040)
00:01:22 #700 [verbose] > .^(0.5, 25.010857)
00:01:22 #701 [verbose] > .^(0.5, 30.424876)
00:01:22 #702 [verbose] > .^(0.5, 32.935062)
00:01:22 #703 [verbose] > .^(0.5, 37.586178)
00:01:22 #704 [verbose] > ]]
00:01:22 #705 [verbose] > |> fun x => a x : _ i32 _
00:01:22 #706 [verbose] > |> am.iter fun x =>
00:01:22 #707 [verbose] > inl result = zeta x
00:01:22 #708 [verbose] > result |> re |> abs |> _assert_lt 0.0001
00:01:22 #709 [verbose] > result |> im |> abs |> _assert_lt 0.0001
00:01:22 #710 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e0fdf427ebfe8c84a3a54b0fac6b4ad39a8b5553d642359402615c21b392c2b2\main.spi
00:01:22 #711 [verbose] >
00:01:22 #712 [verbose] > ╭─[ 270.74ms - stdout ]────────────────────────────────────────────────────────╮
00:01:22 #713 [verbose] > │ () │
00:01:22 #714 [verbose] > │ │
00:01:22 #715 [verbose] > │ │
00:01:22 #716 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:23 #717 [verbose] >
00:01:23 #718 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:23 #719 [verbose] > // // test
00:01:23 #720 [verbose] > // // rust=
00:01:23 #721 [verbose] > // // print_code=false
00:01:23 #722 [verbose] >
00:01:23 #723 [verbose] > types ()
00:01:23 #724 [verbose] > test_non_trivial_zero___ true
00:01:23 #725 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2f272a829c8de3479752ea0d06c60e38f3ba66a88a45b648bef9568876b35997\main.spi
00:01:33 #726 [verbose] >
00:01:33 #727 [verbose] > ╭─[ 10.18s - return value ]────────────────────────────────────────────────────╮
00:01:33 #728 [verbose] > │ zeta_ / s: (0.5, 14.134725) / count: 0 │
00:01:33 #729 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:33 #730 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:33 #731 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:33 #732 [verbose] > │ / arg: None │
00:01:33 #733 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:33 #734 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:33 #735 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:33 #736 [verbose] > │ / arg: None │
00:01:33 #737 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:01:33 #738 [verbose] > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:01:33 #739 [verbose] > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:01:33 #740 [verbose] > │ f_back.f_code.co_filename: / arg: ... │
00:01:33 #741 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:33 #742 [verbose] >
00:01:33 #743 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:33 #744 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:33 #745 [verbose] > │ ## test_real_part_greater_than_one___ │
00:01:33 #746 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:33 #747 [verbose] >
00:01:33 #748 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:33 #749 [verbose] > inl test_real_part_greater_than_one___ log = run_test log (3u8, 2u8) fun zeta,
00:01:33 #750 [verbose] > gamma =>
00:01:33 #751 [verbose] > inl points = ;[[2; 3; 4; 5; 10; 20; 50]]
00:01:33 #752 [verbose] > (a points : _ i32 _)
00:01:33 #753 [verbose] > |> am.iter fun point =>
00:01:33 #754 [verbose] > inl s = .^(point, 0)
00:01:33 #755 [verbose] > inl result = zeta s
00:01:33 #756 [verbose] > result |> re |> _assert_gt 0
00:01:33 #757 [verbose] > result |> im |> _assert_eq 0
00:01:33 #758 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5dcaf2f644ec0b9e24763a5511c4afc964d5d022ed0ca7fe798f84a0b65817f6\main.spi
00:01:33 #759 [verbose] >
00:01:33 #760 [verbose] > ╭─[ 255.65ms - stdout ]────────────────────────────────────────────────────────╮
00:01:33 #761 [verbose] > │ () │
00:01:33 #762 [verbose] > │ │
00:01:33 #763 [verbose] > │ │
00:01:33 #764 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:33 #765 [verbose] >
00:01:33 #766 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:33 #767 [verbose] > // // test
00:01:33 #768 [verbose] > // // rust=
00:01:33 #769 [verbose] > // // print_code=false
00:01:33 #770 [verbose] >
00:01:33 #771 [verbose] > types ()
00:01:33 #772 [verbose] > test_real_part_greater_than_one___ true
00:01:33 #773 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e24f49fbd4c8e1c7f04e3b55c813589dcf26a83258153b537769cfdd5c109dcd\main.spi
00:01:44 #774 [verbose] >
00:01:44 #775 [verbose] > ╭─[ 10.62s - return value ]────────────────────────────────────────────────────╮
00:01:44 #776 [verbose] > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:01:44 #777 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:44 #778 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:44 #779 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:44 #780 [verbose] > │ / arg: None │
00:01:44 #781 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:44 #782 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:44 #783 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:44 #784 [verbose] > │ / arg: None │
00:01:44 #785 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:01:44 #786 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:44 #787 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:44 #788 [verbose] > │ / arg: None │
00:01:44 #789 [verbose] > │ line(zeta_) / f_code.co_name: z... │
00:01:44 #790 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #791 [verbose] >
00:01:44 #792 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:44 #793 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:44 #794 [verbose] > │ ## test_zeta_at_1___ │
00:01:44 #795 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #796 [verbose] >
00:01:44 #797 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:44 #798 [verbose] > inl test_zeta_at_1___ log = run_test log (6u8, 5u8) fun zeta, gamma =>
00:01:44 #799 [verbose] > inl s = .^(1, 0)
00:01:44 #800 [verbose] > inl result = zeta s
00:01:44 #801 [verbose] > result |> re |> _assert_eq limit.max
00:01:44 #802 [verbose] > result |> im |> _assert_eq 0
00:01:44 #803 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\681d0b454f3fc007212a3e16253bdcc6e5a9b727d9e5201275d7a16eb9403ca5\main.spi
00:01:44 #804 [verbose] >
00:01:44 #805 [verbose] > ╭─[ 287.46ms - stdout ]────────────────────────────────────────────────────────╮
00:01:44 #806 [verbose] > │ () │
00:01:44 #807 [verbose] > │ │
00:01:44 #808 [verbose] > │ │
00:01:44 #809 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #810 [verbose] >
00:01:44 #811 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:44 #812 [verbose] > // // test
00:01:44 #813 [verbose] > // // rust=
00:01:44 #814 [verbose] > // // print_code=false
00:01:44 #815 [verbose] >
00:01:44 #816 [verbose] > types ()
00:01:44 #817 [verbose] > test_zeta_at_1___ true
00:01:44 #818 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3373364c4404f323737de7a93aa7ae96b06a911eb9b71f3a495eb58e3eecbc39\main.spi
00:01:54 #819 [verbose] >
00:01:54 #820 [verbose] > ╭─[ 10.40s - return value ]────────────────────────────────────────────────────╮
00:01:54 #821 [verbose] > │ zeta_ / s: (1.0, 0.0) / count: 0 │
00:01:54 #822 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:54 #823 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:01:54 #824 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:54 #825 [verbose] > │ / arg: None │
00:01:54 #826 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:54 #827 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:01:54 #828 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:54 #829 [verbose] > │ / arg: None │
00:01:54 #830 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(1+0j), a=1, derivative=0, │
00:01:54 #831 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:01:54 #832 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:01:54 #833 [verbose] > │ / arg: None │
00:01:54 #834 [verbose] > │ line(zeta_) / f_code.co_name: z... │
00:01:54 #835 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 #836 [verbose] >
00:01:54 #837 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:54 #838 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:54 #839 [verbose] > │ ## test_symmetry_across_real_axis___ │
00:01:54 #840 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:54 #841 [verbose] >
00:01:54 #842 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:54 #843 [verbose] > inl test_symmetry_across_real_axis___ log = run_test log (8u8, 7u8) fun zeta,
00:01:54 #844 [verbose] > gamma =>
00:01:54 #845 [verbose] > inl s = .^(2, 10)
00:01:54 #846 [verbose] > inl result_positive_im = zeta s
00:01:54 #847 [verbose] > inl result_negative_im = zeta .^(re s, -(im s))
00:01:54 #848 [verbose] > inl conj = result_negative_im |> conj
00:01:54 #849 [verbose] > result_positive_im |> re |> _assert_eq (conj |> re)
00:01:54 #850 [verbose] > result_positive_im |> im |> _assert_eq (conj |> im)
00:01:54 #851 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\db0be26f008672b1a1f0025b5145d93575fc8dca48fe809b0692ffad3598a952\main.spi
00:01:55 #852 [verbose] >
00:01:55 #853 [verbose] > ╭─[ 240.67ms - stdout ]────────────────────────────────────────────────────────╮
00:01:55 #854 [verbose] > │ () │
00:01:55 #855 [verbose] > │ │
00:01:55 #856 [verbose] > │ │
00:01:55 #857 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:55 #858 [verbose] >
00:01:55 #859 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:55 #860 [verbose] > // // test
00:01:55 #861 [verbose] > // // rust=
00:01:55 #862 [verbose] > // // print_code=false
00:01:55 #863 [verbose] >
00:01:55 #864 [verbose] > types ()
00:01:55 #865 [verbose] > test_symmetry_across_real_axis___ true
00:01:55 #866 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\13c751b1b25890ec6c1abb171838126ac5c469b7df59b206f26eed3e3a3e5d9c\main.spi
00:02:04 #867 [verbose] >
00:02:04 #868 [verbose] > ╭─[ 9.64s - return value ]─────────────────────────────────────────────────────╮
00:02:04 #869 [verbose] > │ zeta_ / s: (2.0, 10.0) / count: 0 │
00:02:04 #870 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:02:04 #871 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:02:04 #872 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:04 #873 [verbose] > │ / arg: None │
00:02:04 #874 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:02:04 #875 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:02:04 #876 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:04 #877 [verbose] > │ / arg: None │
00:02:04 #878 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+10j), a=1, derivative=0, │
00:02:04 #879 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:02:04 #880 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:04 #881 [verbose] > │ / arg: None │
00:02:04 #882 [verbose] > │ line(zeta_) / f_code.co_nam... │
00:02:04 #883 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 #884 [verbose] >
00:02:04 #885 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:04 #886 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:04 #887 [verbose] > │ ## test_behavior_near_origin___ │
00:02:04 #888 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:04 #889 [verbose] >
00:02:04 #890 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:04 #891 [verbose] > inl test_behavior_near_origin___ log = run_test log (6u8, 5u8) fun zeta, gamma
00:02:04 #892 [verbose] > =>
00:02:04 #893 [verbose] > inl s = .^(0.01, 0.01)
00:02:04 #894 [verbose] > inl result = zeta s
00:02:04 #895 [verbose] > result |> re |> _assert_lt limit.max
00:02:04 #896 [verbose] > result |> im |> _assert_lt limit.max
00:02:04 #897 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\40bb3a58ea5272b8c26ea468f8de11e68721ad26ada5035a8d4798134eda7ee3\main.spi
00:02:05 #898 [verbose] >
00:02:05 #899 [verbose] > ╭─[ 294.32ms - stdout ]────────────────────────────────────────────────────────╮
00:02:05 #900 [verbose] > │ () │
00:02:05 #901 [verbose] > │ │
00:02:05 #902 [verbose] > │ │
00:02:05 #903 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 #904 [verbose] >
00:02:05 #905 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 #906 [verbose] > // // test
00:02:05 #907 [verbose] > // // rust=
00:02:05 #908 [verbose] > // // print_code=false
00:02:05 #909 [verbose] >
00:02:05 #910 [verbose] > types ()
00:02:05 #911 [verbose] > test_behavior_near_origin___ true
00:02:05 #912 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\69d313be3213b4dfcc387d224eaa0fe1188e4d4bb08b3ebc49973ed21c45984f\main.spi
00:02:14 #913 [verbose] >
00:02:14 #914 [verbose] > ╭─[ 9.76s - return value ]─────────────────────────────────────────────────────╮
00:02:14 #915 [verbose] > │ zeta_ / s: (0.01, 0.01) / count: 0 │
00:02:14 #916 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:02:14 #917 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:02:14 #918 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:14 #919 [verbose] > │ / arg: None │
00:02:14 #920 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:02:14 #921 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:02:14 #922 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:14 #923 [verbose] > │ / arg: None │
00:02:14 #924 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.01+0.01j), a=1, │
00:02:14 #925 [verbose] > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:02:14 #926 [verbose] > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:02:14 #927 [verbose] > │ f_back.f_code.co_filename: / arg: None │
00:02:14 #928 [verbose] > │ line(zeta_)... │
00:02:14 #929 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:14 #930 [verbose] >
00:02:14 #931 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:14 #932 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:14 #933 [verbose] > │ ## test_imaginary_axis │
00:02:14 #934 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:14 #935 [verbose] >
00:02:14 #936 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:14 #937 [verbose] > inl test_imaginary_axis log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:02:14 #938 [verbose] > (join a ;[[10; 20; 30; 40; 50; 60; 70; 80; 90; 100]] : _ i32 _)
00:02:14 #939 [verbose] > |> am.iter fun s =>
00:02:14 #940 [verbose] > inl s = .^(0, s)
00:02:14 #941 [verbose] > inl result = zeta s
00:02:14 #942 [verbose] > result |> re |> _assert_ne 0
00:02:14 #943 [verbose] > result |> im |> _assert_ne 0
00:02:14 #944 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d710da2ae36eff93976ecb138e7a1d96d76bd4e50e3161030b78360fb8abe30e\main.spi
00:02:15 #945 [verbose] >
00:02:15 #946 [verbose] > ╭─[ 248.34ms - stdout ]────────────────────────────────────────────────────────╮
00:02:15 #947 [verbose] > │ () │
00:02:15 #948 [verbose] > │ │
00:02:15 #949 [verbose] > │ │
00:02:15 #950 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:15 #951 [verbose] >
00:02:15 #952 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:15 #953 [verbose] > // // test
00:02:15 #954 [verbose] > // // rust=
00:02:15 #955 [verbose] > // // print_code=false
00:02:15 #956 [verbose] >
00:02:15 #957 [verbose] > types ()
00:02:15 #958 [verbose] > test_imaginary_axis true
00:02:15 #959 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\28bbf5b816de2e2b7c9e0da9b6d3aed7383346cbeed4026ea0e50cd21793cf24\main.spi
00:02:25 #960 [verbose] >
00:02:25 #961 [verbose] > ╭─[ 10.38s - return value ]────────────────────────────────────────────────────╮
00:02:25 #962 [verbose] > │ zeta_ / s: (0.0, 10.0) / count: 0 │
00:02:25 #963 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:02:25 #964 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:02:25 #965 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:25 #966 [verbose] > │ / arg: None │
00:02:25 #967 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:02:25 #968 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:02:25 #969 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:25 #970 [verbose] > │ / arg: None │
00:02:25 #971 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=10j, a=1, derivative=0, │
00:02:25 #972 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:02:25 #973 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:25 #974 [verbose] > │ / arg: None │
00:02:25 #975 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_... │
00:02:25 #976 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #977 [verbose] >
00:02:25 #978 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:25 #979 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:25 #980 [verbose] > │ ## test_critical_strip │
00:02:25 #981 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #982 [verbose] >
00:02:25 #983 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 #984 [verbose] > inl test_critical_strip log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:02:25 #985 [verbose] > ;[[
00:02:25 #986 [verbose] > .^(0.5, 14.134725)
00:02:25 #987 [verbose] > .^(0.75, 20.5)
00:02:25 #988 [verbose] > .^(1.25, 30.1)
00:02:25 #989 [verbose] > .^(0.25, 40.0)
00:02:25 #990 [verbose] > .^(1.0, 50.0)
00:02:25 #991 [verbose] > ]]
00:02:25 #992 [verbose] > |> fun x => a x : _ i32 _
00:02:25 #993 [verbose] > |> am.iter fun s =>
00:02:25 #994 [verbose] > inl result = zeta s
00:02:25 #995 [verbose] > result |> re |> _assert_ne 0
00:02:25 #996 [verbose] > result |> im |> _assert_ne 0
00:02:25 #997 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\41748520875dabfe16dfd6fa42aa9813af7b765e7a669107cd17d283feaafd6f\main.spi
00:02:25 #998 [verbose] >
00:02:25 #999 [verbose] > ╭─[ 272.76ms - stdout ]────────────────────────────────────────────────────────╮
00:02:25 #1000 [verbose] > │ () │
00:02:25 #1001 [verbose] > │ │
00:02:25 #1002 [verbose] > │ │
00:02:25 #1003 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:25 #1004 [verbose] >
00:02:25 #1005 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:25 #1006 [verbose] > // // test
00:02:25 #1007 [verbose] > // // rust=
00:02:25 #1008 [verbose] > // // print_code=false
00:02:25 #1009 [verbose] >
00:02:25 #1010 [verbose] > types ()
00:02:25 #1011 [verbose] > test_critical_strip true
00:02:25 #1012 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3bd7c56ee74de3e0119981e403d610cb951ad8a07e14464ab1a0d4b2385ccd05\main.spi
00:02:35 #1013 [verbose] >
00:02:35 #1014 [verbose] > ╭─[ 10.27s - return value ]────────────────────────────────────────────────────╮
00:02:35 #1015 [verbose] > │ zeta_ / s: (0.5, 14.134725) / count: 0 │
00:02:35 #1016 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:02:35 #1017 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:02:35 #1018 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:35 #1019 [verbose] > │ / arg: None │
00:02:35 #1020 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:02:35 #1021 [verbose] > │ derivative=0, method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:02:35 #1022 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:35 #1023 [verbose] > │ / arg: None │
00:02:35 #1024 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(0.5+14.134725j), a=1, │
00:02:35 #1025 [verbose] > │ derivative=0, method=None, kwargs={}, d=0 / f_lineno: 533 / │
00:02:35 #1026 [verbose] > │ f_code.co_filename: \mpmath\functions\zeta.py / f_back.f_lineno: 25 / │
00:02:35 #1027 [verbose] > │ f_back.f_code.co_filename: / arg: ... │
00:02:35 #1028 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #1029 [verbose] >
00:02:35 #1030 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:35 #1031 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:35 #1032 [verbose] > │ ## test_reflection_formula_for_specific_value │
00:02:35 #1033 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #1034 [verbose] >
00:02:36 #1035 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 #1036 [verbose] > inl test_reflection_formula_for_specific_value log = run_test log (3u8, 2u8) fun
00:02:36 #1037 [verbose] > zeta, gamma =>
00:02:36 #1038 [verbose] > ;[[
00:02:36 #1039 [verbose] > .^(3, 4)
00:02:36 #1040 [verbose] > .^(2.5, -3.5)
00:02:36 #1041 [verbose] > .^(1.5, 2.5)
00:02:36 #1042 [verbose] > .^(0.5, 14.134725)
00:02:36 #1043 [verbose] > ]]
00:02:36 #1044 [verbose] > |> fun x => a x : _ i32 _
00:02:36 #1045 [verbose] > |> am.iter fun s =>
00:02:36 #1046 [verbose] > inl lhs = zeta s
00:02:36 #1047 [verbose] > inl reflection_coefficient =
00:02:36 #1048 [verbose] > (.^(2, 0) .** s)
00:02:36 #1049 [verbose] > .* (.^(pi, 0) .** (s .- .^(1, 0)))
00:02:36 #1050 [verbose] > .* (.^(pi, 0) .* s ./ .^(2, 0) |> complex_sin)
00:02:36 #1051 [verbose] > .* gamma (.^(1, 0) .- s)
00:02:36 #1052 [verbose] >
00:02:36 #1053 [verbose] > inl one_minus_s = .^(1 - re s, -(im s))
00:02:36 #1054 [verbose] > inl rhs = reflection_coefficient .* zeta one_minus_s
00:02:36 #1055 [verbose] >
00:02:36 #1056 [verbose] > re lhs - re rhs |> abs |> _assert_lt 0.0001
00:02:36 #1057 [verbose] > im lhs - im rhs |> abs |> _assert_lt 0.0001
00:02:36 #1058 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\51cc5c9d9e2e5e8e09f160cab15b751d62a375de452e9145180316c10a174ba0\main.spi
00:02:36 #1059 [verbose] >
00:02:36 #1060 [verbose] > ╭─[ 271.69ms - stdout ]────────────────────────────────────────────────────────╮
00:02:36 #1061 [verbose] > │ () │
00:02:36 #1062 [verbose] > │ │
00:02:36 #1063 [verbose] > │ │
00:02:36 #1064 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #1065 [verbose] >
00:02:36 #1066 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 #1067 [verbose] > // // test
00:02:36 #1068 [verbose] > // // rust=
00:02:36 #1069 [verbose] > // // print_code=false
00:02:36 #1070 [verbose] >
00:02:36 #1071 [verbose] > types ()
00:02:36 #1072 [verbose] > test_reflection_formula_for_specific_value true
00:02:36 #1073 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fc345db85b14d4683c70648d94bdef1f3b9f748f0b1f8edfc38b11b54840b525\main.spi
00:02:46 #1074 [verbose] >
00:02:46 #1075 [verbose] > ╭─[ 10.44s - return value ]────────────────────────────────────────────────────╮
00:02:46 #1076 [verbose] > │ zeta_ / s: (3.0, 4.0) / count: 0 │
00:02:46 #1077 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:02:46 #1078 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:02:46 #1079 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:46 #1080 [verbose] > │ / arg: None │
00:02:46 #1081 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:02:46 #1082 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:02:46 #1083 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:46 #1084 [verbose] > │ / arg: None │
00:02:46 #1085 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(3+4j), a=1, derivative=0, │
00:02:46 #1086 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:02:46 #1087 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:46 #1088 [verbose] > │ / arg: None │
00:02:46 #1089 [verbose] > │ line(zeta_) / f_code.co_name: z... │
00:02:46 #1090 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 #1091 [verbose] >
00:02:46 #1092 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:46 #1093 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:46 #1094 [verbose] > │ ## test_euler_product_formula │
00:02:46 #1095 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 #1096 [verbose] >
00:02:46 #1097 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:46 #1098 [verbose] > inl test_euler_product_formula log = run_test log (3u8, 2u8) fun zeta, gamma =>
00:02:46 #1099 [verbose] > inl s_values = ;[[2; 2.5; 3; 3.5; 4; 4.5; 5]]
00:02:46 #1100 [verbose] > inl primes = ;[[2; 3; 5; 7; 11; 13; 17; 19; 23; 29; 31; 37; 41; 43; 47; 53;
00:02:46 #1101 [verbose] > 59; 61; 67; 71]]
00:02:46 #1102 [verbose] > (a s_values : _ i32 _)
00:02:46 #1103 [verbose] > |> am.iter fun s_re =>
00:02:46 #1104 [verbose] > inl s = .^(s_re, 0)
00:02:46 #1105 [verbose] > inl product =
00:02:46 #1106 [verbose] > (1, (a primes : _ i32 _))
00:02:46 #1107 [verbose] > ||> am.fold fun acc x =>
00:02:46 #1108 [verbose] > acc * 1 / (1 - x ** -s_re)
00:02:46 #1109 [verbose] >
00:02:46 #1110 [verbose] > inl result = zeta s
00:02:46 #1111 [verbose] > re result - product |> abs |> _assert_lt 0.01
00:02:46 #1112 [verbose] > result |> im |> _assert_lt 0.01
00:02:46 #1113 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5f8e6a65f4e71d4499f3e0a37c266f15602a9caa4e924ad980b5ba49407e710b\main.spi
00:02:47 #1114 [verbose] >
00:02:47 #1115 [verbose] > ╭─[ 380.41ms - stdout ]────────────────────────────────────────────────────────╮
00:02:47 #1116 [verbose] > │ () │
00:02:47 #1117 [verbose] > │ │
00:02:47 #1118 [verbose] > │ │
00:02:47 #1119 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:47 #1120 [verbose] >
00:02:47 #1121 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:47 #1122 [verbose] > // // test
00:02:47 #1123 [verbose] > // // rust=
00:02:47 #1124 [verbose] > // // print_code=false
00:02:47 #1125 [verbose] >
00:02:47 #1126 [verbose] > types ()
00:02:47 #1127 [verbose] > test_euler_product_formula true
00:02:47 #1128 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e79be65ce15b97d805936520f0d45cb76bcfe604c0beb7771a2ea883b1f850b1\main.spi
00:02:57 #1129 [verbose] >
00:02:57 #1130 [verbose] > ╭─[ 10.36s - return value ]────────────────────────────────────────────────────╮
00:02:57 #1131 [verbose] > │ zeta_ / s: (2.0, 0.0) / count: 0 │
00:02:57 #1132 [verbose] > │ call(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:02:57 #1133 [verbose] > │ method=None, kwargs={} / f_lineno: 530 / f_code.co_filename: │
00:02:57 #1134 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:57 #1135 [verbose] > │ / arg: None │
00:02:57 #1136 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:02:57 #1137 [verbose] > │ method=None, kwargs={} / f_lineno: 532 / f_code.co_filename: │
00:02:57 #1138 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:57 #1139 [verbose] > │ / arg: None │
00:02:57 #1140 [verbose] > │ line(zeta_) / f_code.co_name: zeta / f_locals: s=(2+0j), a=1, derivative=0, │
00:02:57 #1141 [verbose] > │ method=None, kwargs={}, d=0 / f_lineno: 533 / f_code.co_filename: │
00:02:57 #1142 [verbose] > │ \mpmath\functions\zeta.py / f_back.f_lineno: 25 / f_back.f_code.co_filename: │
00:02:57 #1143 [verbose] > │ / arg: None │
00:02:57 #1144 [verbose] > │ line(zeta_) / f_code.co_name: z... │
00:02:57 #1145 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:57 #1146 [verbose] >
00:02:57 #1147 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:57 #1148 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:57 #1149 [verbose] > │ ## graph │
00:02:57 #1150 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:57 #1151 [verbose] >
00:02:57 #1152 [verbose] > ── mermaid ─────────────────────────────────────────────────────────────────────
00:02:57 #1153 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:57 #1154 [verbose] > │ <div class="mermaidMarkdownContainer" style="background-color:white"> │
00:02:57 #1155 [verbose] > │ <link rel="stylesheet" │
00:02:57 #1156 [verbose] > │ href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.2.0/css/all.min. │
00:02:57 #1157 [verbose] > │ css"> │
00:02:57 #1158 [verbose] > │ <div id="722bc7cccbb24724859d67843a1a895c"></div> │
00:02:57 #1159 [verbose] > │ <script type="module"> │
00:02:57 #1160 [verbose] > │ │
00:02:57 #1161 [verbose] > │ import mermaid from │
00:02:57 #1162 [verbose] > │ 'https://cdn.jsdelivr.net/npm/mermaid@10.6.1/dist/mermaid.esm.min.mjs'; │
00:02:57 #1163 [verbose] > │ let renderTarget = │
00:02:57 #1164 [verbose] > │ document.getElementById('722bc7cccbb24724859d67843a1a895c'); │
00:02:57 #1165 [verbose] > │ try { │
00:02:57 #1166 [verbose] > │ const {svg, bindFunctions} = await │
00:02:57 #1167 [verbose] > │ mermaid.mermaidAPI.render( │
00:02:57 #1168 [verbose] > │ 'mermaid_722bc7cccbb24724859d67843a1a895c', │
00:02:57 #1169 [verbose] > │ `graph TD │
00:02:57 #1170 [verbose] > │ zeta("zeta()") --> convert │
00:02:57 #1171 [verbose] > │ zeta --> f["f()"] │
00:02:57 #1172 [verbose] > │ f --> mpc_f["mpc_zeta()"] │
00:02:57 #1173 [verbose] > │ f --> mpf_f["mpf_zeta()"] │
00:02:57 #1174 [verbose] > │ convert --> from_float │
00:02:57 #1175 [verbose] > │ from_float --> from_man_exp │
00:02:57 #1176 [verbose] > │ from_man_exp --> python_bitcount │
00:02:57 #1177 [verbose] > │ python_bitcount --> _normalize │
00:02:57 #1178 [verbose] > │ _normalize --> make_mpc │
00:02:57 #1179 [verbose] > │ make_mpc --> mpc_zeta["mpc_zeta()"] │
00:02:57 #1180 [verbose] > │ mpc_zeta --> mpf_zeta["mpf_zeta()"] │
00:02:57 #1181 [verbose] > │ mpf_zeta --> to_int │
00:02:57 #1182 [verbose] > │ to_int --> mpf_zeta_int["mpf_zeta_int()"] │
00:02:57 #1183 [verbose] > │ mpf_zeta_int --> borwein_coefficients │
00:02:57 #1184 [verbose] > │ borwein_coefficients --> from_man_exp_2("from_man_exp()") │
00:02:57 #1185 [verbose] > │ from_man_exp_2 --> python_bitcount_2("python_bitcount()") │
00:02:57 #1186 [verbose] > │ python_bitcount_2 --> _normalize_2("_normalize()") │
00:02:57 #1187 [verbose] > │ _normalize_2 --> make_mpc_2("make_mpc()") │
00:02:57 #1188 [verbose] > │ make_mpc_2 --> stop_trace │
00:02:57 #1189 [verbose] > │ mpf_zeta_int --> mpf_bernoulli │
00:02:57 #1190 [verbose] > │ mpf_bernoulli --> bernoulli_size │
00:02:57 #1191 [verbose] > │ bernoulli_size --> mpf_rdiv_int │
00:02:57 #1192 [verbose] > │ mpf_rdiv_int --> python_bitcount_3("python_bitcount()") │
00:02:57 #1193 [verbose] > │ python_bitcount_3 --> _normalize1 │
00:02:57 #1194 [verbose] > │ _normalize1 --> from_man_exp_3("from_man_exp()") │
00:02:57 #1195 [verbose] > │ from_man_exp_3 --> _normalize_3("_normalize()") │
00:02:57 #1196 [verbose] > │ _normalize_3 --> mpf_sub │
00:02:57 #1197 [verbose] > │ mpf_sub --> mpf_add │
00:02:57 #1198 [verbose] > │ mpf_add --> mpf_neg │
00:02:57 #1199 [verbose] > │ mpf_neg --> _normalize1_2("_normalize1()") │
00:02:57 #1200 [verbose] > │ _normalize1_2 --> from_int │
00:02:57 #1201 [verbose] > │ from_int --> mpf_div │
00:02:57 #1202 [verbose] > │ mpf_div --> python_bitcount_4("python_bitcount()") │
00:02:57 #1203 [verbose] > │ python_bitcount_4 --> _normalize1_3("_normalize1()") │
00:02:57 #1204 [verbose] > │ _normalize1_3 --> make_mpc_3("make_mpc()") │
00:02:57 #1205 [verbose] > │ make_mpc_3 --> final_stop["stop_trace()"]`); │
00:02:57 #1206 [verbose] > │ renderTarget.innerHTML = svg; │
00:02:57 #1207 [verbose] > │ bindFunctions?.(renderTarget); │
00:02:57 #1208 [verbose] > │ } │
00:02:57 #1209 [verbose] > │ catch (error) { │
00:02:57 #1210 [verbose] > │ console.log(error); │
00:02:57 #1211 [verbose] > │ } │
00:02:57 #1212 [verbose] > │ </script> │
00:02:57 #1213 [verbose] > │ </div> │
00:02:57 #1214 [verbose] > │ │
00:02:57 #1215 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:57 #1216 [verbose] >
00:02:57 #1217 [verbose] > ── mermaid ─────────────────────────────────────────────────────────────────────
00:02:57 #1218 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:57 #1219 [verbose] > │ <div class="mermaidMarkdownContainer" style="background-color:white"> │
00:02:57 #1220 [verbose] > │ <link rel="stylesheet" │
00:02:57 #1221 [verbose] > │ href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/6.2.0/css/all.min. │
00:02:57 #1222 [verbose] > │ css"> │
00:02:57 #1223 [verbose] > │ <div id="68d903685a1b42bf83eb3b0dc721366c"></div> │
00:02:57 #1224 [verbose] > │ <script type="module"> │
00:02:57 #1225 [verbose] > │ │
00:02:57 #1226 [verbose] > │ import mermaid from │
00:02:57 #1227 [verbose] > │ 'https://cdn.jsdelivr.net/npm/mermaid@10.6.1/dist/mermaid.esm.min.mjs'; │
00:02:57 #1228 [verbose] > │ let renderTarget = │
00:02:57 #1229 [verbose] > │ document.getElementById('68d903685a1b42bf83eb3b0dc721366c'); │
00:02:57 #1230 [verbose] > │ try { │
00:02:57 #1231 [verbose] > │ const {svg, bindFunctions} = await │
00:02:57 #1232 [verbose] > │ mermaid.mermaidAPI.render( │
00:02:57 #1233 [verbose] > │ 'mermaid_68d903685a1b42bf83eb3b0dc721366c', │
00:02:57 #1234 [verbose] > │ `graph TD │
00:02:57 #1235 [verbose] > │ zeta_rust("zeta() - Rust") --> num_traits("num-traits") │
00:02:57 #1236 [verbose] > │ zeta_rust --> num_bigint("num-bigint") │
00:02:57 #1237 [verbose] > │ zeta_rust --> rust_decimal("rust_decimal for precision") │
00:02:57 #1238 [verbose] > │ zeta_rust --> error_handling("Rust Error Handling") │
00:02:57 #1239 [verbose] > │ │
00:02:57 #1240 [verbose] > │ num_traits --> num_traits_usage("Use for common traits") │
00:02:57 #1241 [verbose] > │ num_bigint --> bigint_operations("Arbitrary-precision arithmetic │
00:02:57 #1242 [verbose] > │ operations") │
00:02:57 #1243 [verbose] > │ rust_decimal --> decimal_operations("High-precision decimal operations") │
00:02:57 #1244 [verbose] > │ error_handling --> result_type("Use Result<T, E> for error handling") │
00:02:57 #1245 [verbose] > │ │
00:02:57 #1246 [verbose] > │ bigint_operations --> convert_rust("convert() - Rust") │
00:02:57 #1247 [verbose] > │ bigint_operations --> normalize_rust("_normalize() - Rust") │
00:02:57 #1248 [verbose] > │ │
00:02:57 #1249 [verbose] > │ convert_rust --> from_float_rust("from_float() - Rust") │
00:02:57 #1250 [verbose] > │ from_float_rust --> from_man_exp_rust("from_man_exp() - Rust") │
00:02:57 #1251 [verbose] > │ from_man_exp_rust --> bitcount_rust("bitcount() - Rust") │
00:02:57 #1252 [verbose] > │ bitcount_rust --> normalize_rust │
00:02:57 #1253 [verbose] > │ normalize_rust --> mpc_zeta_rust("mpc_zeta() - Rust") │
00:02:57 #1254 [verbose] > │ mpc_zeta_rust --> mpf_zeta_rust("mpf_zeta() - Rust") │
00:02:57 #1255 [verbose] > │ mpf_zeta_rust --> to_int_rust("to_int() - Rust") │
00:02:57 #1256 [verbose] > │ to_int_rust --> mpf_zeta_int_rust("mpf_zeta_int() - Rust") │
00:02:57 #1257 [verbose] > │ │
00:02:57 #1258 [verbose] > │ mpf_zeta_int_rust --> borwein_coefficients_rust("borwein_coefficients() │
00:02:57 #1259 [verbose] > │ - Rust") │
00:02:57 #1260 [verbose] > │ borwein_coefficients_rust --> from_man_exp_rust_2("from_man_exp() - │
00:02:57 #1261 [verbose] > │ Rust") │
00:02:57 #1262 [verbose] > │ from_man_exp_rust_2 --> bitcount_rust_2("bitcount() - Rust") │
00:02:57 #1263 [verbose] > │ bitcount_rust_2 --> normalize_rust_2("_normalize() - Rust") │
00:02:57 #1264 [verbose] > │ normalize_rust_2 --> make_mpc_rust("make_mpc() - Rust") │
00:02:57 #1265 [verbose] > │ │
00:02:57 #1266 [verbose] > │ mpf_zeta_int_rust --> mpf_bernoulli_rust("mpf_bernoulli() - Rust") │
00:02:57 #1267 [verbose] > │ mpf_bernoulli_rust --> bernoulli_size_rust("bernoulli_size() - Rust") │
00:02:57 #1268 [verbose] > │ bernoulli_size_rust --> mpf_rdiv_int_rust("mpf_rdiv_int() - Rust") │
00:02:57 #1269 [verbose] > │ mpf_rdiv_int_rust --> bitcount_rust_3("bitcount() - Rust") │
00:02:57 #1270 [verbose] > │ bitcount_rust_3 --> normalize1_rust("_normalize1() - Rust") │
00:02:57 #1271 [verbose] > │ normalize1_rust --> from_man_exp_rust_3("from_man_exp() - Rust") │
00:02:57 #1272 [verbose] > │ from_man_exp_rust_3 --> normalize_rust_3("_normalize() - Rust") │
00:02:57 #1273 [verbose] > │ normalize_rust_3 --> mpf_sub_rust("mpf_sub() - Rust") │
00:02:57 #1274 [verbose] > │ mpf_sub_rust --> mpf_add_rust("mpf_add() - Rust") │
00:02:57 #1275 [verbose] > │ mpf_add_rust --> mpf_neg_rust("mpf_neg() - Rust") │
00:02:57 #1276 [verbose] > │ mpf_neg_rust --> normalize1_rust_2("_normalize1() - Rust") │
00:02:57 #1277 [verbose] > │ normalize1_rust_2 --> from_int_rust("from_int() - Rust") │
00:02:57 #1278 [verbose] > │ from_int_rust --> mpf_div_rust("mpf_div() - Rust") │
00:02:57 #1279 [verbose] > │ mpf_div_rust --> bitcount_rust_4("bitcount() - Rust") │
00:02:57 #1280 [verbose] > │ bitcount_rust_4 --> normalize1_rust_3("_normalize1() - Rust") │
00:02:57 #1281 [verbose] > │ │
00:02:57 #1282 [verbose] > │ style zeta_rust fill:#f9f,stroke:#333,stroke-width:4px │
00:02:57 #1283 [verbose] > │ style num_traits fill:#bbf,stroke:#333,stroke-width:2px │
00:02:57 #1284 [verbose] > │ style num_bigint fill:#bbf,stroke:#333,stroke-width:2px │
00:02:57 #1285 [verbose] > │ style rust_decimal fill:#bbf,stroke:#333,stroke-width:2px │
00:02:57 #1286 [verbose] > │ style error_handling fill:#bbf,stroke:#333,stroke-width:2px │
00:02:57 #1287 [verbose] > │ style bigint_operations fill:#bfb,stroke:#333,stroke-width:2px │
00:02:57 #1288 [verbose] > │ style decimal_operations fill:#bfb,stroke:#333,stroke-width:2px │
00:02:57 #1289 [verbose] > │ style result_type fill:#bfb,stroke:#333,stroke-width:2px`); │
00:02:57 #1290 [verbose] > │ renderTarget.innerHTML = svg; │
00:02:57 #1291 [verbose] > │ bindFunctions?.(renderTarget); │
00:02:57 #1292 [verbose] > │ } │
00:02:57 #1293 [verbose] > │ catch (error) { │
00:02:57 #1294 [verbose] > │ console.log(error); │
00:02:57 #1295 [verbose] > │ } │
00:02:57 #1296 [verbose] > │ </script> │
00:02:57 #1297 [verbose] > │ </div> │
00:02:57 #1298 [verbose] > │ │
00:02:57 #1299 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:57 #1300 [verbose] >
00:02:57 #1301 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:57 #1302 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:57 #1303 [verbose] > │ ## tests │
00:02:57 #1304 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:57 #1305 [verbose] >
00:02:57 #1306 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:57 #1307 [verbose] > inl tests () =
00:02:57 #1308 [verbose] > !\($'"}//"') : ()
00:02:57 #1309 [verbose] >
00:02:57 #1310 [verbose] > !\($'"#[[test]] fn test_zeta_at_known_values_() { //"') : ()
00:02:57 #1311 [verbose] > test_zeta_at_known_values_ false
00:02:57 #1312 [verbose] > !\($'"} #[[test]] fn test_zeta_at_2_minus2() { //"') : ()
00:02:57 #1313 [verbose] > test_zeta_at_2_minus2 false
00:02:57 #1314 [verbose] > !\($'"} #[[test]] fn test_trivial_zero_at_negative_even___() { //"') : ()
00:02:57 #1315 [verbose] > test_trivial_zero_at_negative_even___ false
00:02:57 #1316 [verbose] > !\($'"} #[[test]] fn test_non_trivial_zero___() { //"') : ()
00:02:57 #1317 [verbose] > test_non_trivial_zero___ false
00:02:57 #1318 [verbose] > !\($'"} #[[test]] fn test_real_part_greater_than_one___() { //"') : ()
00:02:57 #1319 [verbose] > test_real_part_greater_than_one___ false
00:02:57 #1320 [verbose] > !\($'"} #[[test]] fn test_zeta_at_1___() { //"') : ()
00:02:57 #1321 [verbose] > test_zeta_at_1___ false
00:02:57 #1322 [verbose] > !\($'"} #[[test]] fn test_symmetry_across_real_axis___() { //"') : ()
00:02:57 #1323 [verbose] > test_symmetry_across_real_axis___ false
00:02:57 #1324 [verbose] > !\($'"} #[[test]] fn test_behavior_near_origin___() { //"') : ()
00:02:57 #1325 [verbose] > test_behavior_near_origin___ false
00:02:57 #1326 [verbose] > !\($'"} #[[test]] fn test_imaginary_axis() { //"') : ()
00:02:57 #1327 [verbose] > test_imaginary_axis false
00:02:57 #1328 [verbose] > !\($'"} #[[test]] fn test_critical_strip() { //"') : ()
00:02:57 #1329 [verbose] > test_critical_strip false
00:02:57 #1330 [verbose] > !\($'"} #[[test]] fn test_reflection_formula_for_specific_value() { //"') :
00:02:57 #1331 [verbose] > ()
00:02:57 #1332 [verbose] > test_reflection_formula_for_specific_value false
00:02:57 #1333 [verbose] > !\($'"} #[[test]] fn test_euler_product_formula() { //"') : ()
00:02:57 #1334 [verbose] > test_euler_product_formula false
00:02:57 #1335 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\71715f6c6d78a9e9d429b30ab3c178078d1e0508af92fe5b5ab764b0e8816880\main.spi
00:02:58 #1336 [verbose] >
00:02:58 #1337 [verbose] > ╭─[ 650.22ms - stdout ]────────────────────────────────────────────────────────╮
00:02:58 #1338 [verbose] > │ () │
00:02:58 #1339 [verbose] > │ │
00:02:58 #1340 [verbose] > │ │
00:02:58 #1341 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:58 #1342 [verbose] >
00:02:58 #1343 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:58 #1344 [verbose] > // // rust=
00:02:58 #1345 [verbose] >
00:02:58 #1346 [verbose] > inl main (_args : array_base string) =
00:02:58 #1347 [verbose] > inl value = 1i32
00:02:58 #1348 [verbose] > console.write_line ($"$\"value: {!value}\"" : string)
00:02:58 #1349 [verbose] > 0i32
00:02:58 #1350 [verbose] >
00:02:58 #1351 [verbose] > inl main () =
00:02:58 #1352 [verbose] > types ()
00:02:58 #1353 [verbose] > $"let tests () = !tests ()" : ()
00:02:58 #1354 [verbose] > $"let main args = !main args" : ()
00:02:58 #1355 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8fcad2fea1f334fff713b886c5df4d6fd51c3be84f414babfc3e658555240cf9\main.spi
00:02:58 #1356 [verbose] >
00:02:58 #1357 [verbose] > ╭─[ 448.19ms - stdout ]────────────────────────────────────────────────────────╮
00:02:58 #1358 [verbose] > │ │
00:02:58 #1359 [verbose] > │ .fsx: │
00:02:58 #1360 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:02:58 #1361 [verbose] > │ end │
00:02:58 #1362 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:02:58 #1363 [verbose] > │ class end │
00:02:58 #1364 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:02:58 #1365 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:02:58 #1366 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:02:58 #1367 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:02:58 #1368 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:02:58 #1369 [verbose] > │ class end │
00:02:58 #1370 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:02:58 #1371 [verbose] > │ class end │
00:02:58 #1372 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:02:58 #1373 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:02:58 #1374 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:02:58 #1375 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:02:58 #1376 [verbose] > │ class end │
00:02:58 #1377 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:02:58 #1378 [verbose] > │ class end │
00:02:58 #1379 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:02:58 #1380 [verbose] > │ class end │
00:02:58 #1381 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:02:58 #1382 [verbose] > │ std_cell_RefCell<'T> = class end │
00:02:58 #1383 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:02:58 #1384 [verbose] > │ std_pin_Pin<'T> = class end │
00:02:58 #1385 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:02:58 #1386 [verbose] > │ = class end │
00:02:58 #1387 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:02:58 #1388 [verbose] > │ std_rc_Weak<'T> = class end │
00:02:58 #1389 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:02:58 #1390 [verbose] > │ std_sync_Arc<'T> = class end │
00:02:58 #1391 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:02:58 #1392 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:02:58 #1393 [verbose] > │ base64_DecodeError = class end │
00:02:58 #1394 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:02:58 #1395 [verbose] > │ borsh_io_Error = class end │
00:02:58 #1396 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:02:58 #1397 [verbose] > │ js_sys_JsString = class end │
00:02:58 #1398 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:02:58 #1399 [verbose] > │ serde_json_Error = class end │
00:02:58 #1400 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:02:58 #1401 [verbose] > │ serde_json_Value = class end │
00:02:58 #1402 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:02:58 #1403 [verbose] > │ serde_wasm_bindgen_Error = class end │
00:02:58 #1404 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:02:58 #1405 [verbose] > │ = class end │
00:02:58 #1406 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:02:58 #1407 [verbose] > │ std_ffi_OsString = class end │
00:02:58 #1408 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:02:58 #1409 [verbose] > │ std_str_Utf8Error = class end │
00:02:58 #1410 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:02:58 #1411 [verbose] > │ std_string_String = class end │
00:02:58 #1412 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("num_complex::Complex<$0>")>] type │
00:02:58 #1413 [verbose] > │ num_complex_Complex<'T> = class end │
00:02:58 #1414 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::types::PyModule")>] type │
00:02:58 #1415 [verbose] > │ pyo3_types_PyModule = class end │
00:02:58 #1416 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Bound<$0>")>] type pyo3_Bound<'T> │
00:02:58 #1417 [verbose] > │ = class end │
00:02:58 #1418 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::Python")>] type pyo3_Python = │
00:02:58 #1419 [verbose] > │ class end │
00:02:58 #1420 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyAny")>] type pyo3_PyAny = class │
00:02:58 #1421 [verbose] > │ end │
00:02:58 #1422 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("pyo3::PyErr")>] type pyo3_PyErr = class │
00:02:58 #1423 [verbose] > │ end │
00:02:58 #1424 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () "); │
00:02:58 #1425 [verbose] > │ use pyo3::prelude::PyAnyMethods; │
00:02:58 #1426 [verbose] > │ //" │
00:02:58 #1427 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:58 #1428 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : string} │
00:02:58 #1429 [verbose] > │ and Mut2 = {mutable l0 : int32; mutable l1 : num_complex_Complex<float>} │
00:02:58 #1430 [verbose] > │ and [<Struct>] US0 = │
00:02:58 #1431 [verbose] > │ | US0_0 of f0_0 : num_complex_Complex<float> │
00:02:58 #1432 [verbose] > │ | US0_1 │
00:02:58 #1433 [verbose] > │ and UH0 = │
00:02:58 #1434 [verbose] > │ | UH0_0 │
00:02:58 #1435 [verbose] > │ | UH0_1 of float * UH0 │
00:02:58 #1436 [verbose] > │ and Mut3 = {mutable l0 : int32; mutable l1 : float} │
00:02:58 #1437 [verbose] > │ let rec method2 (v0 : int32, v1 : Mut0) : bool = │
00:02:58 #1438 [verbose] > │ let v2 : int32 = v1.l0 │
00:02:58 #1439 [verbose] > │ let v3 : bool = v2 < v0 │
00:02:58 #1440 [verbose] > │ v3 │
00:02:58 #1441 [verbose] > │ and method3 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> = │
00:02:58 #1442 [verbose] > │ v0 │
00:02:58 #1443 [verbose] > │ and method6 (v0 : int32, v1 : Mut1) : bool = │
00:02:58 #1444 [verbose] > │ let v2 : int32 = v1.l0 │
00:02:58 #1445 [verbose] > │ let v3 : bool = v2 < v0 │
00:02:58 #1446 [verbose] > │ v3 │
00:02:58 #1447 [verbose] > │ and method5 (v0 : (string [])) : string = │
00:02:58 #1448 [verbose] > │ let v1 : int32 = v0.Length │
00:02:58 #1449 [verbose] > │ let v2 : string = "" │
00:02:58 #1450 [verbose] > │ let v3 : Mut1 = {l0 = 0; l1 = v2} : Mut1 │
00:02:58 #1451 [verbose] > │ while method6(v1, v3) do │
00:02:58 #1452 [verbose] > │ let v5 : int32 = v3.l0 │
00:02:58 #1453 [verbose] > │ let v6 : string = v3.l1 │
00:02:58 #1454 [verbose] > │ let v7 : string = v0.[int v5] │
00:02:58 #1455 [verbose] > │ let v8 : string = "\n" │
00:02:58 #1456 [verbose] > │ let v9 : string = v6 + v7 + v8 + "" │
00:02:58 #1457 [verbose] > │ let v10 : int32 = v5 + 1 │
00:02:58 #1458 [verbose] > │ v3.l0 <- v10 │
00:02:58 #1459 [verbose] > │ v3.l1 <- v9 │
00:02:58 #1460 [verbose] > │ () │
00:02:58 #1461 [verbose] > │ let v11 : string = v3.l1 │
00:02:58 #1462 [verbose] > │ v11 │
00:02:58 #1463 [verbose] > │ and method7 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> = │
00:02:58 #1464 [verbose] > │ v0 │
00:02:58 #1465 [verbose] > │ and method8 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> = │
00:02:58 #1466 [verbose] > │ v0 │
00:02:58 #1467 [verbose] > │ and method9 (v0 : pyo3_Python) : pyo3_Python = │
00:02:58 #1468 [verbose] > │ v0 │
00:02:58 #1469 [verbose] > │ and closure1 () (v0 : pyo3_PyErr) : std_string_String = │
00:02:58 #1470 [verbose] > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:02:58 #1471 [verbose] > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:02:58 #1472 [verbose] > │ v2 │
00:02:58 #1473 [verbose] > │ and method10 () : (pyo3_PyErr -> std_string_String) = │
00:02:58 #1474 [verbose] > │ closure1() │
00:02:58 #1475 [verbose] > │ and method11 (v0 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr>) : │
00:02:58 #1476 [verbose] > │ Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:02:58 #1477 [verbose] > │ v0 │
00:02:58 #1478 [verbose] > │ and method12 (v0 : Result<pyo3_Bound<pyo3_types_PyModule>, │
00:02:58 #1479 [verbose] > │ std_string_String>) : Result<pyo3_Bound<pyo3_types_PyModule>, │
00:02:58 #1480 [verbose] > │ std_string_String> = │
00:02:58 #1481 [verbose] > │ v0 │
00:02:58 #1482 [verbose] > │ and method13 () : string = │
00:02:58 #1483 [verbose] > │ let v0 : string = "fn" │
00:02:58 #1484 [verbose] > │ v0 │
00:02:58 #1485 [verbose] > │ and method14 (v0 : pyo3_Bound<pyo3_types_PyModule>) : │
00:02:58 #1486 [verbose] > │ pyo3_Bound<pyo3_types_PyModule> = │
00:02:58 #1487 [verbose] > │ v0 │
00:02:58 #1488 [verbose] > │ and closure2 () (v0 : pyo3_PyErr) : std_string_String = │
00:02:58 #1489 [verbose] > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:02:58 #1490 [verbose] > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:02:58 #1491 [verbose] > │ v2 │
00:02:58 #1492 [verbose] > │ and method15 () : (pyo3_PyErr -> std_string_String) = │
00:02:58 #1493 [verbose] > │ closure2() │
00:02:58 #1494 [verbose] > │ and method16 (v0 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr>) : │
00:02:58 #1495 [verbose] > │ Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:02:58 #1496 [verbose] > │ v0 │
00:02:58 #1497 [verbose] > │ and method17 (v0 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String>) : │
00:02:58 #1498 [verbose] > │ Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:02:58 #1499 [verbose] > │ v0 │
00:02:58 #1500 [verbose] > │ and method18 (v0 : (bool * (float * float))) : (bool * (float * float)) = │
00:02:58 #1501 [verbose] > │ v0 │
00:02:58 #1502 [verbose] > │ and method19 (v0 : pyo3_Bound<pyo3_PyAny>) : pyo3_Bound<pyo3_PyAny> = │
00:02:58 #1503 [verbose] > │ v0 │
00:02:58 #1504 [verbose] > │ and closure3 () (v0 : pyo3_PyErr) : std_string_String = │
00:02:58 #1505 [verbose] > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:02:58 #1506 [verbose] > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:02:58 #1507 [verbose] > │ v2 │
00:02:58 #1508 [verbose] > │ and method20 () : (pyo3_PyErr -> std_string_String) = │
00:02:58 #1509 [verbose] > │ closure3() │
00:02:58 #1510 [verbose] > │ and method21 (v0 : pyo3_Bound<pyo3_PyAny>) : pyo3_Bound<pyo3_PyAny> = │
00:02:58 #1511 [verbose] > │ v0 │
00:02:58 #1512 [verbose] > │ and closure4 () (v0 : pyo3_PyErr) : std_string_String = │
00:02:58 #1513 [verbose] > │ let v1 : string = @$"format!(""{{}}"", $0)" │
00:02:58 #1514 [verbose] > │ let v2 : std_string_String = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:02:58 #1515 [verbose] > │ v2 │
00:02:58 #1516 [verbose] > │ and method22 () : (pyo3_PyErr -> std_string_String) = │
00:02:58 #1517 [verbose] > │ closure4() │
00:02:58 #1518 [verbose] > │ and method23 (v0 : Result<struct (float * float), pyo3_PyErr>) : │
00:02:58 #1519 [verbose] > │ Result<struct (float * float), pyo3_PyErr> = │
00:02:58 #1520 [verbose] > │ v0 │
00:02:58 #1521 [verbose] > │ and method4 (v0 : pyo3_Python, v1 : string, v2 : num_complex_Complex<float>) │
00:02:58 #1522 [verbose] > │ : Result<num_complex_Complex<float>, std_string_String> = │
00:02:58 #1523 [verbose] > │ let v3 : string = $"import sys" │
00:02:58 #1524 [verbose] > │ let v4 : string = $"import traceback" │
00:02:58 #1525 [verbose] > │ let v5 : string = $"import re" │
00:02:58 #1526 [verbose] > │ let v6 : string = $"count = 0" │
00:02:58 #1527 [verbose] > │ let v7 : string = $"memory_address_pattern = re.compile(r' at 0x[ │
00:02:58 #1528 [verbose] > │ 0-9a-fA-F]+')" │
00:02:58 #1529 [verbose] > │ let v8 : string = $"def trace_calls(frame, event, arg):" │
00:02:58 #1530 [verbose] > │ let v9 : string = $" global count" │
00:02:58 #1531 [verbose] > │ let v10 : string = $" count += 1" │
00:02:58 #1532 [verbose] > │ let v11 : string = $" if count < 200:" │
00:02:58 #1533 [verbose] > │ let v12 : string = $" try:" │
00:02:58 #1534 [verbose] > │ let v13 : string = $" args = {{ k: v for k, v in │
00:02:58 #1535 [verbose] > │ frame.f_locals.items() if frame.f_code.co_name != 'make_mpc' and k not in [ │
00:02:58 #1536 [verbose] > │ 'ctx'] and not callable(v) }}" │
00:02:58 #1537 [verbose] > │ let v14 : string = $" args_str = ', '.join([ │
00:02:58 #1538 [verbose] > │ f\"{{k}}={{re.sub(memory_address_pattern, ' at 0x<?>', repr(v))}}\" for k, v │
00:02:58 #1539 [verbose] > │ in args.items() ])" │
00:02:58 #1540 [verbose] > │ let v15 : string = "zeta_" │
00:02:58 #1541 [verbose] > │ let v16 : string = $" print(f\"{{event}}({v15}) / │
00:02:58 #1542 [verbose] > │ f_code.co_name: {{frame.f_code.co_name}} / f_locals: {{args_str}} / │
00:02:58 #1543 [verbose] > │ f_lineno: {{frame.f_lineno}} / f_code.co_filename: │
00:02:58 #1544 [verbose] > │ {{frame.f_code.co_filename.split('site-packages')[-1]}} / f_back.f_lineno: │
00:02:58 #1545 [verbose] > │ {{ '' if frame.f_back is None else frame.f_back.f_lineno }} / │
00:02:58 #1546 [verbose] > │ f_back.f_code.co_filename: {{ '' if frame.f_back is None else │
00:02:58 #1547 [verbose] > │ frame.f_back.f_code.co_filename.split('site-packages')[-1] }} / arg: │
00:02:58 #1548 [verbose] > │ {{re.sub(memory_address_pattern, ' at 0x<?>', repr(arg))}}\", flush=True)" │
00:02:58 #1549 [verbose] > │ let v17 : string = $" except ValueError as e:" │
00:02:58 #1550 [verbose] > │ let v18 : string = $" print(f'{v15} / e: {{e}}', flush=True)" │
00:02:58 #1551 [verbose] > │ let v19 : string = $" return trace_calls" │
00:02:58 #1552 [verbose] > │ let v20 : string = $"import mpmath" │
00:02:58 #1553 [verbose] > │ let v21 : string = $"def fn(log, s):" │
00:02:58 #1554 [verbose] > │ let v22 : string = $" global count" │
00:02:58 #1555 [verbose] > │ let v23 : string = $" if log:" │
00:02:58 #1556 [verbose] > │ let v24 : string = $" print(f'{v15} / s: {{s}} / count: │
00:02:58 #1557 [verbose] > │ {{count}}', flush=True)" │
00:02:58 #1558 [verbose] > │ let v25 : string = $" s = complex(*s)" │
00:02:58 #1559 [verbose] > │ let v26 : string = $" try:" │
00:02:58 #1560 [verbose] > │ let v27 : string = $" if log: sys.settrace(trace_calls)" │
00:02:58 #1561 [verbose] > │ let v28 : string = $" if log:" │
00:02:58 #1562 [verbose] > │ let v29 : string = $" sys.settrace(None)" │
00:02:58 #1563 [verbose] > │ let v30 : string = $" print(f'{v15} / result: {{s}} / count: │
00:02:58 #1564 [verbose] > │ {{count}}', flush=True)" │
00:02:58 #1565 [verbose] > │ let v31 : string = $" except ValueError as e:" │
00:02:58 #1566 [verbose] > │ let v32 : string = $" if s.real == 1:" │
00:02:58 #1567 [verbose] > │ let v33 : string = $" s = complex(float('inf'), 0)" │
00:02:58 #1568 [verbose] > │ let v34 : string = $" return (s.real, s.imag)" │
00:02:58 #1569 [verbose] > │ let v35 : (string []) = [|v3; v4; v5; v6; v7; v8; v9; v10; v11; v12; │
00:02:58 #1570 [verbose] > │ v13; v14; v16; v17; v18; v19; v20; v21; v22; v23; v24; v25; v26; v27; v1; │
00:02:58 #1571 [verbose] > │ v28; v29; v30; v31; v32; v33; v34|] │
00:02:58 #1572 [verbose] > │ let v36 : string = method5(v35) │
00:02:58 #1573 [verbose] > │ let v37 : num_complex_Complex<float> = method7(v2) │
00:02:58 #1574 [verbose] > │ let v38 : string = "v37.re" │
00:02:58 #1575 [verbose] > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:02:58 #1576 [verbose] > │ let v40 : num_complex_Complex<float> = method8(v2) │
00:02:58 #1577 [verbose] > │ let v41 : string = "v40.im" │
00:02:58 #1578 [verbose] > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:02:58 #1579 [verbose] > │ let v43 : (float * float) = v39, v42 │
00:02:58 #1580 [verbose] > │ let v44 : (bool * (float * float)) = false, v43 │
00:02:58 #1581 [verbose] > │ let v45 : pyo3_Python = method9(v0) │
00:02:58 #1582 [verbose] > │ let v46 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:58 #1583 [verbose] > │ let v47 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v36 v46 │
00:02:58 #1584 [verbose] > │ let v48 : string = "pyo3::types::PyModule::from_code_bound(v45, v47, │
00:02:58 #1585 [verbose] > │ \"\", \"\")" │
00:02:58 #1586 [verbose] > │ let v49 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:02:58 #1587 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v48 │
00:02:58 #1588 [verbose] > │ let v50 : (pyo3_PyErr -> std_string_String) = method10() │
00:02:58 #1589 [verbose] > │ let v51 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:02:58 #1590 [verbose] > │ method11(v49) │
00:02:58 #1591 [verbose] > │ let v52 : string = "v51.map_err(|x| v50(x))" │
00:02:58 #1592 [verbose] > │ let v53 : Result<pyo3_Bound<pyo3_types_PyModule>, std_string_String> = │
00:02:58 #1593 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v52 │
00:02:58 #1594 [verbose] > │ let v54 : Result<pyo3_Bound<pyo3_types_PyModule>, std_string_String> = │
00:02:58 #1595 [verbose] > │ method12(v53) │
00:02:58 #1596 [verbose] > │ let v55 : string = "v54.unwrap()" │
00:02:58 #1597 [verbose] > │ let v56 : pyo3_Bound<pyo3_types_PyModule> = │
00:02:58 #1598 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v55 │
00:02:58 #1599 [verbose] > │ let v57 : string = method13() │
00:02:58 #1600 [verbose] > │ let v58 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:58 #1601 [verbose] > │ let v59 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v57 v58 │
00:02:58 #1602 [verbose] > │ let v60 : pyo3_Bound<pyo3_types_PyModule> = method14(v56) │
00:02:58 #1603 [verbose] > │ let v61 : string = "v60.getattr(v59)" │
00:02:58 #1604 [verbose] > │ let v62 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:02:58 #1605 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v61 │
00:02:58 #1606 [verbose] > │ let v63 : (pyo3_PyErr -> std_string_String) = method15() │
00:02:58 #1607 [verbose] > │ let v64 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = method16(v62) │
00:02:58 #1608 [verbose] > │ let v65 : string = "v64.map_err(|x| v63(x))" │
00:02:58 #1609 [verbose] > │ let v66 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:02:58 #1610 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v65 │
00:02:58 #1611 [verbose] > │ let v67 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:02:58 #1612 [verbose] > │ method17(v66) │
00:02:58 #1613 [verbose] > │ let v68 : string = "v67.unwrap()" │
00:02:58 #1614 [verbose] > │ let v69 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:02:58 #1615 [verbose] > │ () v68 │
00:02:58 #1616 [verbose] > │ let v70 : (bool * (float * float)) = method18(v44) │
00:02:58 #1617 [verbose] > │ let v71 : pyo3_Bound<pyo3_PyAny> = method19(v69) │
00:02:58 #1618 [verbose] > │ let v72 : string = "pyo3::prelude::PyAnyMethods::call(&v71, ((*v70).0, │
00:02:58 #1619 [verbose] > │ *(*v70).1), None)" │
00:02:58 #1620 [verbose] > │ let v73 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:02:58 #1621 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v72 │
00:02:58 #1622 [verbose] > │ let v74 : (pyo3_PyErr -> std_string_String) = method20() │
00:02:58 #1623 [verbose] > │ let v75 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = method16(v73) │
00:02:58 #1624 [verbose] > │ let v76 : string = "v75.map_err(|x| v74(x))" │
00:02:58 #1625 [verbose] > │ let v77 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:02:58 #1626 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v76 │
00:02:58 #1627 [verbose] > │ let v78 : string = "v77?" │
00:02:58 #1628 [verbose] > │ let v79 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:02:58 #1629 [verbose] > │ () v78 │
00:02:58 #1630 [verbose] > │ let v80 : pyo3_Bound<pyo3_PyAny> = method21(v79) │
00:02:58 #1631 [verbose] > │ let v81 : string = "v80.extract()" │
00:02:58 #1632 [verbose] > │ let v82 : Result<struct (float * float), pyo3_PyErr> = │
00:02:58 #1633 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v81 │
00:02:58 #1634 [verbose] > │ let v83 : (pyo3_PyErr -> std_string_String) = method22() │
00:02:58 #1635 [verbose] > │ let v84 : Result<struct (float * float), pyo3_PyErr> = method23(v82) │
00:02:58 #1636 [verbose] > │ let v85 : string = "v84.map_err(|x| v83(x))" │
00:02:58 #1637 [verbose] > │ let v86 : Result<struct (float * float), std_string_String> = │
00:02:58 #1638 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v85 │
00:02:58 #1639 [verbose] > │ let v87 : string = "v86?" │
00:02:58 #1640 [verbose] > │ let struct (v88 : float, v89 : float) = │
00:02:58 #1641 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v87 │
00:02:58 #1642 [verbose] > │ let v90 : string = "num_complex::Complex::new($0, $1)" │
00:02:58 #1643 [verbose] > │ let v91 : num_complex_Complex<float> = │
00:02:58 #1644 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v88, v89) v90 │
00:02:58 #1645 [verbose] > │ let v92 : Result<num_complex_Complex<float>, std_string_String> = Ok v91 │
00:02:58 #1646 [verbose] > │ v92 │
00:02:58 #1647 [verbose] > │ and method25 (v0 : Mut0) : bool = │
00:02:58 #1648 [verbose] > │ let v1 : int32 = v0.l0 │
00:02:58 #1649 [verbose] > │ let v2 : bool = v1 < 10000 │
00:02:58 #1650 [verbose] > │ v2 │
00:02:58 #1651 [verbose] > │ and method26 (v0 : int32, v1 : Mut2) : bool = │
00:02:58 #1652 [verbose] > │ let v2 : int32 = v1.l0 │
00:02:58 #1653 [verbose] > │ let v3 : bool = v2 < v0 │
00:02:58 #1654 [verbose] > │ v3 │
00:02:58 #1655 [verbose] > │ and method27 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> │
00:02:58 #1656 [verbose] > │ = │
00:02:58 #1657 [verbose] > │ v0 │
00:02:58 #1658 [verbose] > │ and method28 (v0 : num_complex_Complex<float>) : num_complex_Complex<float> │
00:02:58 #1659 [verbose] > │ = │
00:02:58 #1660 [verbose] > │ v0 │
00:02:58 #1661 [verbose] > │ and method29 (v0 : pyo3_Python, v1 : string, v2 : │
00:02:58 #1662 [verbose] > │ num_complex_Complex<float>) : Result<num_complex_Complex<float>, │
00:02:58 #1663 [verbose] > │ std_string_String> = │
00:02:58 #1664 [verbose] > │ let v3 : string = $"import sys" │
00:02:58 #1665 [verbose] > │ let v4 : string = $"import traceback" │
00:02:58 #1666 [verbose] > │ let v5 : string = $"import re" │
00:02:58 #1667 [verbose] > │ let v6 : string = $"count = 0" │
00:02:58 #1668 [verbose] > │ let v7 : string = $"memory_address_pattern = re.compile(r' at 0x[ │
00:02:58 #1669 [verbose] > │ 0-9a-fA-F]+')" │
00:02:58 #1670 [verbose] > │ let v8 : string = $"def trace_calls(frame, event, arg):" │
00:02:58 #1671 [verbose] > │ let v9 : string = $" global count" │
00:02:58 #1672 [verbose] > │ let v10 : string = $" count += 1" │
00:02:58 #1673 [verbose] > │ let v11 : string = $" if count < 200:" │
00:02:58 #1674 [verbose] > │ let v12 : string = $" try:" │
00:02:58 #1675 [verbose] > │ let v13 : string = $" args = {{ k: v for k, v in │
00:02:58 #1676 [verbose] > │ frame.f_locals.items() if frame.f_code.co_name != 'make_mpc' and k not in [ │
00:02:58 #1677 [verbose] > │ 'ctx'] and not callable(v) }}" │
00:02:58 #1678 [verbose] > │ let v14 : string = $" args_str = ', '.join([ │
00:02:58 #1679 [verbose] > │ f\"{{k}}={{re.sub(memory_address_pattern, ' at 0x<?>', repr(v))}}\" for k, v │
00:02:58 #1680 [verbose] > │ in args.items() ])" │
00:02:58 #1681 [verbose] > │ let v15 : string = "gamma_" │
00:02:58 #1682 [verbose] > │ let v16 : string = $" print(f\"{{event}}({v15}) / │
00:02:58 #1683 [verbose] > │ f_code.co_name: {{frame.f_code.co_name}} / f_locals: {{args_str}} / │
00:02:58 #1684 [verbose] > │ f_lineno: {{frame.f_lineno}} / f_code.co_filename: │
00:02:58 #1685 [verbose] > │ {{frame.f_code.co_filename.split('site-packages')[-1]}} / f_back.f_lineno: │
00:02:58 #1686 [verbose] > │ {{ '' if frame.f_back is None else frame.f_back.f_lineno }} / │
00:02:58 #1687 [verbose] > │ f_back.f_code.co_filename: {{ '' if frame.f_back is None else │
00:02:58 #1688 [verbose] > │ frame.f_back.f_code.co_filename.split('site-packages')[-1] }} / arg: │
00:02:58 #1689 [verbose] > │ {{re.sub(memory_address_pattern, ' at 0x<?>', repr(arg))}}\", flush=True)" │
00:02:58 #1690 [verbose] > │ let v17 : string = $" except ValueError as e:" │
00:02:58 #1691 [verbose] > │ let v18 : string = $" print(f'{v15} / e: {{e}}', flush=True)" │
00:02:58 #1692 [verbose] > │ let v19 : string = $" return trace_calls" │
00:02:58 #1693 [verbose] > │ let v20 : string = $"import mpmath" │
00:02:58 #1694 [verbose] > │ let v21 : string = $"def fn(log, s):" │
00:02:58 #1695 [verbose] > │ let v22 : string = $" global count" │
00:02:58 #1696 [verbose] > │ let v23 : string = $" if log:" │
00:02:58 #1697 [verbose] > │ let v24 : string = $" print(f'{v15} / s: {{s}} / count: │
00:02:58 #1698 [verbose] > │ {{count}}', flush=True)" │
00:02:58 #1699 [verbose] > │ let v25 : string = $" s = complex(*s)" │
00:02:58 #1700 [verbose] > │ let v26 : string = $" try:" │
00:02:58 #1701 [verbose] > │ let v27 : string = $" if log: sys.settrace(trace_calls)" │
00:02:58 #1702 [verbose] > │ let v28 : string = $" if log:" │
00:02:58 #1703 [verbose] > │ let v29 : string = $" sys.settrace(None)" │
00:02:58 #1704 [verbose] > │ let v30 : string = $" print(f'{v15} / result: {{s}} / count: │
00:02:58 #1705 [verbose] > │ {{count}}', flush=True)" │
00:02:58 #1706 [verbose] > │ let v31 : string = $" except ValueError as e:" │
00:02:58 #1707 [verbose] > │ let v32 : string = $" if s.real == 1:" │
00:02:58 #1708 [verbose] > │ let v33 : string = $" s = complex(float('inf'), 0)" │
00:02:58 #1709 [verbose] > │ let v34 : string = $" return (s.real, s.imag)" │
00:02:58 #1710 [verbose] > │ let v35 : (string []) = [|v3; v4; v5; v6; v7; v8; v9; v10; v11; v12; │
00:02:58 #1711 [verbose] > │ v13; v14; v16; v17; v18; v19; v20; v21; v22; v23; v24; v25; v26; v27; v1; │
00:02:58 #1712 [verbose] > │ v28; v29; v30; v31; v32; v33; v34|] │
00:02:58 #1713 [verbose] > │ let v36 : string = method5(v35) │
00:02:58 #1714 [verbose] > │ let v37 : num_complex_Complex<float> = method7(v2) │
00:02:58 #1715 [verbose] > │ let v38 : string = "v37.re" │
00:02:58 #1716 [verbose] > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:02:58 #1717 [verbose] > │ let v40 : num_complex_Complex<float> = method8(v2) │
00:02:58 #1718 [verbose] > │ let v41 : string = "v40.im" │
00:02:58 #1719 [verbose] > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:02:58 #1720 [verbose] > │ let v43 : (float * float) = v39, v42 │
00:02:58 #1721 [verbose] > │ let v44 : (bool * (float * float)) = false, v43 │
00:02:58 #1722 [verbose] > │ let v45 : pyo3_Python = method9(v0) │
00:02:58 #1723 [verbose] > │ let v46 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:58 #1724 [verbose] > │ let v47 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v36 v46 │
00:02:58 #1725 [verbose] > │ let v48 : string = "pyo3::types::PyModule::from_code_bound(v45, v47, │
00:02:58 #1726 [verbose] > │ \"\", \"\")" │
00:02:58 #1727 [verbose] > │ let v49 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:02:58 #1728 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v48 │
00:02:58 #1729 [verbose] > │ let v50 : (pyo3_PyErr -> std_string_String) = method10() │
00:02:58 #1730 [verbose] > │ let v51 : Result<pyo3_Bound<pyo3_types_PyModule>, pyo3_PyErr> = │
00:02:58 #1731 [verbose] > │ method11(v49) │
00:02:58 #1732 [verbose] > │ let v52 : string = "v51.map_err(|x| v50(x))" │
00:02:58 #1733 [verbose] > │ let v53 : Result<pyo3_Bound<pyo3_types_PyModule>, std_string_String> = │
00:02:58 #1734 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v52 │
00:02:58 #1735 [verbose] > │ let v54 : Result<pyo3_Bound<pyo3_types_PyModule>, std_string_String> = │
00:02:58 #1736 [verbose] > │ method12(v53) │
00:02:58 #1737 [verbose] > │ let v55 : string = "v54.unwrap()" │
00:02:58 #1738 [verbose] > │ let v56 : pyo3_Bound<pyo3_types_PyModule> = │
00:02:58 #1739 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v55 │
00:02:58 #1740 [verbose] > │ let v57 : string = method13() │
00:02:58 #1741 [verbose] > │ let v58 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:02:58 #1742 [verbose] > │ let v59 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v57 v58 │
00:02:58 #1743 [verbose] > │ let v60 : pyo3_Bound<pyo3_types_PyModule> = method14(v56) │
00:02:58 #1744 [verbose] > │ let v61 : string = "v60.getattr(v59)" │
00:02:58 #1745 [verbose] > │ let v62 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:02:58 #1746 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v61 │
00:02:58 #1747 [verbose] > │ let v63 : (pyo3_PyErr -> std_string_String) = method15() │
00:02:58 #1748 [verbose] > │ let v64 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = method16(v62) │
00:02:58 #1749 [verbose] > │ let v65 : string = "v64.map_err(|x| v63(x))" │
00:02:58 #1750 [verbose] > │ let v66 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:02:58 #1751 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v65 │
00:02:58 #1752 [verbose] > │ let v67 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:02:58 #1753 [verbose] > │ method17(v66) │
00:02:58 #1754 [verbose] > │ let v68 : string = "v67.unwrap()" │
00:02:58 #1755 [verbose] > │ let v69 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:02:58 #1756 [verbose] > │ () v68 │
00:02:58 #1757 [verbose] > │ let v70 : (bool * (float * float)) = method18(v44) │
00:02:58 #1758 [verbose] > │ let v71 : pyo3_Bound<pyo3_PyAny> = method19(v69) │
00:02:59 #1759 [verbose] > │ let v72 : string = "pyo3::prelude::PyAnyMethods::call(&v71, ((*v70).0, │
00:02:59 #1760 [verbose] > │ *(*v70).1), None)" │
00:02:59 #1761 [verbose] > │ let v73 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = │
00:02:59 #1762 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v72 │
00:02:59 #1763 [verbose] > │ let v74 : (pyo3_PyErr -> std_string_String) = method20() │
00:02:59 #1764 [verbose] > │ let v75 : Result<pyo3_Bound<pyo3_PyAny>, pyo3_PyErr> = method16(v73) │
00:02:59 #1765 [verbose] > │ let v76 : string = "v75.map_err(|x| v74(x))" │
00:02:59 #1766 [verbose] > │ let v77 : Result<pyo3_Bound<pyo3_PyAny>, std_string_String> = │
00:02:59 #1767 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v76 │
00:02:59 #1768 [verbose] > │ let v78 : string = "v77?" │
00:02:59 #1769 [verbose] > │ let v79 : pyo3_Bound<pyo3_PyAny> = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #1770 [verbose] > │ () v78 │
00:02:59 #1771 [verbose] > │ let v80 : pyo3_Bound<pyo3_PyAny> = method21(v79) │
00:02:59 #1772 [verbose] > │ let v81 : string = "v80.extract()" │
00:02:59 #1773 [verbose] > │ let v82 : Result<struct (float * float), pyo3_PyErr> = │
00:02:59 #1774 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v81 │
00:02:59 #1775 [verbose] > │ let v83 : (pyo3_PyErr -> std_string_String) = method22() │
00:02:59 #1776 [verbose] > │ let v84 : Result<struct (float * float), pyo3_PyErr> = method23(v82) │
00:02:59 #1777 [verbose] > │ let v85 : string = "v84.map_err(|x| v83(x))" │
00:02:59 #1778 [verbose] > │ let v86 : Result<struct (float * float), std_string_String> = │
00:02:59 #1779 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v85 │
00:02:59 #1780 [verbose] > │ let v87 : string = "v86?" │
00:02:59 #1781 [verbose] > │ let struct (v88 : float, v89 : float) = │
00:02:59 #1782 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v87 │
00:02:59 #1783 [verbose] > │ let v90 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1784 [verbose] > │ let v91 : num_complex_Complex<float> = │
00:02:59 #1785 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v88, v89) v90 │
00:02:59 #1786 [verbose] > │ let v92 : Result<num_complex_Complex<float>, std_string_String> = Ok v91 │
00:02:59 #1787 [verbose] > │ v92 │
00:02:59 #1788 [verbose] > │ and closure5 () (v0 : num_complex_Complex<float>) : US0 = │
00:02:59 #1789 [verbose] > │ US0_0(v0) │
00:02:59 #1790 [verbose] > │ and method30 () : (num_complex_Complex<float> -> US0) = │
00:02:59 #1791 [verbose] > │ closure5() │
00:02:59 #1792 [verbose] > │ and method24 (v0 : pyo3_Python, v1 : num_complex_Complex<float>) : │
00:02:59 #1793 [verbose] > │ num_complex_Complex<float> = │
00:02:59 #1794 [verbose] > │ let v2 : string = "println!(\"zeta / count: {:?} / s: {:?}\", 0, $0)" │
00:02:59 #1795 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v1 v2 │
00:02:59 #1796 [verbose] > │ let v3 : num_complex_Complex<float> = method7(v1) │
00:02:59 #1797 [verbose] > │ let v4 : string = "v3.re" │
00:02:59 #1798 [verbose] > │ let v5 : float = Fable.Core.RustInterop.emitRustExpr () v4 │
00:02:59 #1799 [verbose] > │ let v6 : bool = v5 > 1.0 │
00:02:59 #1800 [verbose] > │ if v6 then │
00:02:59 #1801 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1802 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:02:59 #1803 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v7 │
00:02:59 #1804 [verbose] > │ let v9 : (int32 []) = Array.zeroCreate<int32> (10000) │
00:02:59 #1805 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:02:59 #1806 [verbose] > │ while method25(v10) do │
00:02:59 #1807 [verbose] > │ let v12 : int32 = v10.l0 │
00:02:59 #1808 [verbose] > │ v9.[int v12] <- v12 │
00:02:59 #1809 [verbose] > │ let v13 : int32 = v12 + 1 │
00:02:59 #1810 [verbose] > │ v10.l0 <- v13 │
00:02:59 #1811 [verbose] > │ () │
00:02:59 #1812 [verbose] > │ let v14 : int32 = v9.Length │
00:02:59 #1813 [verbose] > │ let v15 : Mut2 = {l0 = 0; l1 = v8} : Mut2 │
00:02:59 #1814 [verbose] > │ while method26(v14, v15) do │
00:02:59 #1815 [verbose] > │ let v17 : int32 = v15.l0 │
00:02:59 #1816 [verbose] > │ let v18 : num_complex_Complex<float> = v15.l1 │
00:02:59 #1817 [verbose] > │ let v19 : int32 = v9.[int v17] │
00:02:59 #1818 [verbose] > │ let v20 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1819 [verbose] > │ let v21 : num_complex_Complex<float> = │
00:02:59 #1820 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v20 │
00:02:59 #1821 [verbose] > │ let v22 : float = float v19 │
00:02:59 #1822 [verbose] > │ let v23 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1823 [verbose] > │ let v24 : num_complex_Complex<float> = │
00:02:59 #1824 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v22, 0.0) v23 │
00:02:59 #1825 [verbose] > │ let v25 : num_complex_Complex<float> = method27(v24) │
00:02:59 #1826 [verbose] > │ let v26 : num_complex_Complex<float> = method28(v1) │
00:02:59 #1827 [verbose] > │ let v27 : string = "num_complex::Complex::powc(v25, v26)" │
00:02:59 #1828 [verbose] > │ let v28 : num_complex_Complex<float> = │
00:02:59 #1829 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v27 │
00:02:59 #1830 [verbose] > │ let v29 : string = "v21 / v28" │
00:02:59 #1831 [verbose] > │ let v30 : num_complex_Complex<float> = │
00:02:59 #1832 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v29 │
00:02:59 #1833 [verbose] > │ let v31 : string = "v18 + v30" │
00:02:59 #1834 [verbose] > │ let v32 : num_complex_Complex<float> = │
00:02:59 #1835 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v31 │
00:02:59 #1836 [verbose] > │ let v33 : int32 = v17 + 1 │
00:02:59 #1837 [verbose] > │ v15.l0 <- v33 │
00:02:59 #1838 [verbose] > │ v15.l1 <- v32 │
00:02:59 #1839 [verbose] > │ () │
00:02:59 #1840 [verbose] > │ let v34 : num_complex_Complex<float> = v15.l1 │
00:02:59 #1841 [verbose] > │ v34 │
00:02:59 #1842 [verbose] > │ else │
00:02:59 #1843 [verbose] > │ let v35 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1844 [verbose] > │ let v36 : num_complex_Complex<float> = │
00:02:59 #1845 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v35 │
00:02:59 #1846 [verbose] > │ let v37 : string = "$0 - $1" │
00:02:59 #1847 [verbose] > │ let v38 : num_complex_Complex<float> = │
00:02:59 #1848 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v36, v1) v37 │
00:02:59 #1849 [verbose] > │ let v39 : string = $" s = mpmath.gamma(s)" │
00:02:59 #1850 [verbose] > │ let v40 : num_complex_Complex<float> = method3(v38) │
00:02:59 #1851 [verbose] > │ let v41 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:59 #1852 [verbose] > │ method29(v0, v39, v40) │
00:02:59 #1853 [verbose] > │ let v42 : string = "v41.ok()" │
00:02:59 #1854 [verbose] > │ let v43 : num_complex_Complex<float> option = │
00:02:59 #1855 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v42 │
00:02:59 #1856 [verbose] > │ let v44 : (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #1857 [verbose] > │ let v45 : US0 = US0_1 │
00:02:59 #1858 [verbose] > │ let v46 : US0 = v43 |> Option.map v44 |> Option.defaultValue v45 │
00:02:59 #1859 [verbose] > │ let v47 : string = "f64::NAN" │
00:02:59 #1860 [verbose] > │ let v48 : float = Fable.Core.RustInterop.emitRustExpr () v47 │
00:02:59 #1861 [verbose] > │ let v49 : string = "f64::NAN" │
00:02:59 #1862 [verbose] > │ let v50 : float = Fable.Core.RustInterop.emitRustExpr () v49 │
00:02:59 #1863 [verbose] > │ let v51 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1864 [verbose] > │ let v52 : num_complex_Complex<float> = │
00:02:59 #1865 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v48, v50) v51 │
00:02:59 #1866 [verbose] > │ let v55 : num_complex_Complex<float> = │
00:02:59 #1867 [verbose] > │ match v46 with │
00:02:59 #1868 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #1869 [verbose] > │ v52 │
00:02:59 #1870 [verbose] > │ | US0_0(v53) -> (* Some *) │
00:02:59 #1871 [verbose] > │ v53 │
00:02:59 #1872 [verbose] > │ let v56 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1873 [verbose] > │ let v57 : num_complex_Complex<float> = │
00:02:59 #1874 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v56 │
00:02:59 #1875 [verbose] > │ let v58 : string = "$0 * $1" │
00:02:59 #1876 [verbose] > │ let v59 : num_complex_Complex<float> = │
00:02:59 #1877 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v57, v1) v58 │
00:02:59 #1878 [verbose] > │ let v60 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1879 [verbose] > │ let v61 : num_complex_Complex<float> = │
00:02:59 #1880 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v60 │
00:02:59 #1881 [verbose] > │ let v62 : string = "v59 / v61" │
00:02:59 #1882 [verbose] > │ let v63 : num_complex_Complex<float> = │
00:02:59 #1883 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v62 │
00:02:59 #1884 [verbose] > │ let v64 : string = "v63.sin()" │
00:02:59 #1885 [verbose] > │ let v65 : num_complex_Complex<float> = │
00:02:59 #1886 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v64 │
00:02:59 #1887 [verbose] > │ let v66 : num_complex_Complex<float> = method7(v1) │
00:02:59 #1888 [verbose] > │ let v67 : string = "v66.re" │
00:02:59 #1889 [verbose] > │ let v68 : float = Fable.Core.RustInterop.emitRustExpr () v67 │
00:02:59 #1890 [verbose] > │ let v69 : float = 1.0 - v68 │
00:02:59 #1891 [verbose] > │ let v70 : num_complex_Complex<float> = method8(v1) │
00:02:59 #1892 [verbose] > │ let v71 : string = "v70.im" │
00:02:59 #1893 [verbose] > │ let v72 : float = Fable.Core.RustInterop.emitRustExpr () v71 │
00:02:59 #1894 [verbose] > │ let v73 : float = -v72 │
00:02:59 #1895 [verbose] > │ let v74 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1896 [verbose] > │ let v75 : num_complex_Complex<float> = │
00:02:59 #1897 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v69, v73) v74 │
00:02:59 #1898 [verbose] > │ let v76 : num_complex_Complex<float> = method7(v75) │
00:02:59 #1899 [verbose] > │ let v77 : string = "v76.re" │
00:02:59 #1900 [verbose] > │ let v78 : float = Fable.Core.RustInterop.emitRustExpr () v77 │
00:02:59 #1901 [verbose] > │ let v79 : bool = v78 <= 1.0 │
00:02:59 #1902 [verbose] > │ let v474 : num_complex_Complex<float> = │
00:02:59 #1903 [verbose] > │ if v79 then │
00:02:59 #1904 [verbose] > │ let v80 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1905 [verbose] > │ let v81 : num_complex_Complex<float> = │
00:02:59 #1906 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v80 │
00:02:59 #1907 [verbose] > │ v81 │
00:02:59 #1908 [verbose] > │ else │
00:02:59 #1909 [verbose] > │ let v82 : string = "println!(\"zeta / count: {:?} / s: │
00:02:59 #1910 [verbose] > │ {:?}\", 1, $0)" │
00:02:59 #1911 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v75 v82 │
00:02:59 #1912 [verbose] > │ let v83 : num_complex_Complex<float> = method7(v75) │
00:02:59 #1913 [verbose] > │ let v84 : string = "v83.re" │
00:02:59 #1914 [verbose] > │ let v85 : float = Fable.Core.RustInterop.emitRustExpr () v84 │
00:02:59 #1915 [verbose] > │ let v86 : bool = v85 > 1.0 │
00:02:59 #1916 [verbose] > │ if v86 then │
00:02:59 #1917 [verbose] > │ let v87 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1918 [verbose] > │ let v88 : num_complex_Complex<float> = │
00:02:59 #1919 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v87 │
00:02:59 #1920 [verbose] > │ let v89 : (int32 []) = Array.zeroCreate<int32> (10000) │
00:02:59 #1921 [verbose] > │ let v90 : Mut0 = {l0 = 0} : Mut0 │
00:02:59 #1922 [verbose] > │ while method25(v90) do │
00:02:59 #1923 [verbose] > │ let v92 : int32 = v90.l0 │
00:02:59 #1924 [verbose] > │ v89.[int v92] <- v92 │
00:02:59 #1925 [verbose] > │ let v93 : int32 = v92 + 1 │
00:02:59 #1926 [verbose] > │ v90.l0 <- v93 │
00:02:59 #1927 [verbose] > │ () │
00:02:59 #1928 [verbose] > │ let v94 : int32 = v89.Length │
00:02:59 #1929 [verbose] > │ let v95 : Mut2 = {l0 = 0; l1 = v88} : Mut2 │
00:02:59 #1930 [verbose] > │ while method26(v94, v95) do │
00:02:59 #1931 [verbose] > │ let v97 : int32 = v95.l0 │
00:02:59 #1932 [verbose] > │ let v98 : num_complex_Complex<float> = v95.l1 │
00:02:59 #1933 [verbose] > │ let v99 : int32 = v89.[int v97] │
00:02:59 #1934 [verbose] > │ let v100 : string = "num_complex::Complex::new($0, │
00:02:59 #1935 [verbose] > │ $1)" │
00:02:59 #1936 [verbose] > │ let v101 : num_complex_Complex<float> = │
00:02:59 #1937 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v100 │
00:02:59 #1938 [verbose] > │ let v102 : float = float v99 │
00:02:59 #1939 [verbose] > │ let v103 : string = "num_complex::Complex::new($0, │
00:02:59 #1940 [verbose] > │ $1)" │
00:02:59 #1941 [verbose] > │ let v104 : num_complex_Complex<float> = │
00:02:59 #1942 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v102, 0.0) v103 │
00:02:59 #1943 [verbose] > │ let v105 : num_complex_Complex<float> = │
00:02:59 #1944 [verbose] > │ method27(v104) │
00:02:59 #1945 [verbose] > │ let v106 : num_complex_Complex<float> = │
00:02:59 #1946 [verbose] > │ method28(v75) │
00:02:59 #1947 [verbose] > │ let v107 : string = │
00:02:59 #1948 [verbose] > │ "num_complex::Complex::powc(v105, v106)" │
00:02:59 #1949 [verbose] > │ let v108 : num_complex_Complex<float> = │
00:02:59 #1950 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v107 │
00:02:59 #1951 [verbose] > │ let v109 : string = "v101 / v108" │
00:02:59 #1952 [verbose] > │ let v110 : num_complex_Complex<float> = │
00:02:59 #1953 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v109 │
00:02:59 #1954 [verbose] > │ let v111 : string = "v98 + v110" │
00:02:59 #1955 [verbose] > │ let v112 : num_complex_Complex<float> = │
00:02:59 #1956 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v111 │
00:02:59 #1957 [verbose] > │ let v113 : int32 = v97 + 1 │
00:02:59 #1958 [verbose] > │ v95.l0 <- v113 │
00:02:59 #1959 [verbose] > │ v95.l1 <- v112 │
00:02:59 #1960 [verbose] > │ () │
00:02:59 #1961 [verbose] > │ let v114 : num_complex_Complex<float> = v95.l1 │
00:02:59 #1962 [verbose] > │ v114 │
00:02:59 #1963 [verbose] > │ else │
00:02:59 #1964 [verbose] > │ let v115 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1965 [verbose] > │ let v116 : num_complex_Complex<float> = │
00:02:59 #1966 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v115 │
00:02:59 #1967 [verbose] > │ let v117 : string = "$0 - $1" │
00:02:59 #1968 [verbose] > │ let v118 : num_complex_Complex<float> = │
00:02:59 #1969 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v116, v75) v117 │
00:02:59 #1970 [verbose] > │ let v119 : string = $" s = mpmath.gamma(s)" │
00:02:59 #1971 [verbose] > │ let v120 : num_complex_Complex<float> = method3(v118) │
00:02:59 #1972 [verbose] > │ let v121 : Result<num_complex_Complex<float>, │
00:02:59 #1973 [verbose] > │ std_string_String> = method29(v0, v119, v120) │
00:02:59 #1974 [verbose] > │ let v122 : string = "v121.ok()" │
00:02:59 #1975 [verbose] > │ let v123 : num_complex_Complex<float> option = │
00:02:59 #1976 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v122 │
00:02:59 #1977 [verbose] > │ let v124 : (num_complex_Complex<float> -> US0) = │
00:02:59 #1978 [verbose] > │ method30() │
00:02:59 #1979 [verbose] > │ let v125 : US0 = US0_1 │
00:02:59 #1980 [verbose] > │ let v126 : US0 = v123 |> Option.map v124 |> │
00:02:59 #1981 [verbose] > │ Option.defaultValue v125 │
00:02:59 #1982 [verbose] > │ let v127 : string = "f64::NAN" │
00:02:59 #1983 [verbose] > │ let v128 : float = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #1984 [verbose] > │ () v127 │
00:02:59 #1985 [verbose] > │ let v129 : string = "f64::NAN" │
00:02:59 #1986 [verbose] > │ let v130 : float = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #1987 [verbose] > │ () v129 │
00:02:59 #1988 [verbose] > │ let v131 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1989 [verbose] > │ let v132 : num_complex_Complex<float> = │
00:02:59 #1990 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v128, v130) v131 │
00:02:59 #1991 [verbose] > │ let v135 : num_complex_Complex<float> = │
00:02:59 #1992 [verbose] > │ match v126 with │
00:02:59 #1993 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #1994 [verbose] > │ v132 │
00:02:59 #1995 [verbose] > │ | US0_0(v133) -> (* Some *) │
00:02:59 #1996 [verbose] > │ v133 │
00:02:59 #1997 [verbose] > │ let v136 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #1998 [verbose] > │ let v137 : num_complex_Complex<float> = │
00:02:59 #1999 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v136 │
00:02:59 #2000 [verbose] > │ let v138 : string = "$0 * $1" │
00:02:59 #2001 [verbose] > │ let v139 : num_complex_Complex<float> = │
00:02:59 #2002 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v137, v75) v138 │
00:02:59 #2003 [verbose] > │ let v140 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2004 [verbose] > │ let v141 : num_complex_Complex<float> = │
00:02:59 #2005 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v140 │
00:02:59 #2006 [verbose] > │ let v142 : string = "v139 / v141" │
00:02:59 #2007 [verbose] > │ let v143 : num_complex_Complex<float> = │
00:02:59 #2008 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v142 │
00:02:59 #2009 [verbose] > │ let v144 : string = "v143.sin()" │
00:02:59 #2010 [verbose] > │ let v145 : num_complex_Complex<float> = │
00:02:59 #2011 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v144 │
00:02:59 #2012 [verbose] > │ let v146 : num_complex_Complex<float> = method7(v75) │
00:02:59 #2013 [verbose] > │ let v147 : string = "v146.re" │
00:02:59 #2014 [verbose] > │ let v148 : float = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #2015 [verbose] > │ () v147 │
00:02:59 #2016 [verbose] > │ let v149 : float = 1.0 - v148 │
00:02:59 #2017 [verbose] > │ let v150 : num_complex_Complex<float> = method8(v75) │
00:02:59 #2018 [verbose] > │ let v151 : string = "v150.im" │
00:02:59 #2019 [verbose] > │ let v152 : float = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #2020 [verbose] > │ () v151 │
00:02:59 #2021 [verbose] > │ let v153 : float = -v152 │
00:02:59 #2022 [verbose] > │ let v154 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2023 [verbose] > │ let v155 : num_complex_Complex<float> = │
00:02:59 #2024 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v149, v153) v154 │
00:02:59 #2025 [verbose] > │ let v156 : num_complex_Complex<float> = method7(v155) │
00:02:59 #2026 [verbose] > │ let v157 : string = "v156.re" │
00:02:59 #2027 [verbose] > │ let v158 : float = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #2028 [verbose] > │ () v157 │
00:02:59 #2029 [verbose] > │ let v159 : bool = v158 <= 1.0 │
00:02:59 #2030 [verbose] > │ let v456 : num_complex_Complex<float> = │
00:02:59 #2031 [verbose] > │ if v159 then │
00:02:59 #2032 [verbose] > │ let v160 : string = │
00:02:59 #2033 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2034 [verbose] > │ let v161 : num_complex_Complex<float> = │
00:02:59 #2035 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v160 │
00:02:59 #2036 [verbose] > │ v161 │
00:02:59 #2037 [verbose] > │ else │
00:02:59 #2038 [verbose] > │ let v162 : string = "println!(\"zeta / count: │
00:02:59 #2039 [verbose] > │ {:?} / s: {:?}\", 2, $0)" │
00:02:59 #2040 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v155 v162 │
00:02:59 #2041 [verbose] > │ let v163 : num_complex_Complex<float> = │
00:02:59 #2042 [verbose] > │ method7(v155) │
00:02:59 #2043 [verbose] > │ let v164 : string = "v163.re" │
00:02:59 #2044 [verbose] > │ let v165 : float = │
00:02:59 #2045 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v164 │
00:02:59 #2046 [verbose] > │ let v166 : bool = v165 > 1.0 │
00:02:59 #2047 [verbose] > │ if v166 then │
00:02:59 #2048 [verbose] > │ let v167 : string = │
00:02:59 #2049 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2050 [verbose] > │ let v168 : num_complex_Complex<float> = │
00:02:59 #2051 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, 0.0) v167 │
00:02:59 #2052 [verbose] > │ let v169 : (int32 []) = │
00:02:59 #2053 [verbose] > │ Array.zeroCreate<int32> (10000) │
00:02:59 #2054 [verbose] > │ let v170 : Mut0 = {l0 = 0} : Mut0 │
00:02:59 #2055 [verbose] > │ while method25(v170) do │
00:02:59 #2056 [verbose] > │ let v172 : int32 = v170.l0 │
00:02:59 #2057 [verbose] > │ v169.[int v172] <- v172 │
00:02:59 #2058 [verbose] > │ let v173 : int32 = v172 + 1 │
00:02:59 #2059 [verbose] > │ v170.l0 <- v173 │
00:02:59 #2060 [verbose] > │ () │
00:02:59 #2061 [verbose] > │ let v174 : int32 = v169.Length │
00:02:59 #2062 [verbose] > │ let v175 : Mut2 = {l0 = 0; l1 = v168} : Mut2 │
00:02:59 #2063 [verbose] > │ while method26(v174, v175) do │
00:02:59 #2064 [verbose] > │ let v177 : int32 = v175.l0 │
00:02:59 #2065 [verbose] > │ let v178 : num_complex_Complex<float> = │
00:02:59 #2066 [verbose] > │ v175.l1 │
00:02:59 #2067 [verbose] > │ let v179 : int32 = v169.[int v177] │
00:02:59 #2068 [verbose] > │ let v180 : string = │
00:02:59 #2069 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2070 [verbose] > │ let v181 : num_complex_Complex<float> = │
00:02:59 #2071 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v180 │
00:02:59 #2072 [verbose] > │ let v182 : float = float v179 │
00:02:59 #2073 [verbose] > │ let v183 : string = │
00:02:59 #2074 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2075 [verbose] > │ let v184 : num_complex_Complex<float> = │
00:02:59 #2076 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v182, 0.0) v183 │
00:02:59 #2077 [verbose] > │ let v185 : num_complex_Complex<float> = │
00:02:59 #2078 [verbose] > │ method27(v184) │
00:02:59 #2079 [verbose] > │ let v186 : num_complex_Complex<float> = │
00:02:59 #2080 [verbose] > │ method28(v155) │
00:02:59 #2081 [verbose] > │ let v187 : string = │
00:02:59 #2082 [verbose] > │ "num_complex::Complex::powc(v185, v186)" │
00:02:59 #2083 [verbose] > │ let v188 : num_complex_Complex<float> = │
00:02:59 #2084 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v187 │
00:02:59 #2085 [verbose] > │ let v189 : string = "v181 / v188" │
00:02:59 #2086 [verbose] > │ let v190 : num_complex_Complex<float> = │
00:02:59 #2087 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v189 │
00:02:59 #2088 [verbose] > │ let v191 : string = "v178 + v190" │
00:02:59 #2089 [verbose] > │ let v192 : num_complex_Complex<float> = │
00:02:59 #2090 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v191 │
00:02:59 #2091 [verbose] > │ let v193 : int32 = v177 + 1 │
00:02:59 #2092 [verbose] > │ v175.l0 <- v193 │
00:02:59 #2093 [verbose] > │ v175.l1 <- v192 │
00:02:59 #2094 [verbose] > │ () │
00:02:59 #2095 [verbose] > │ let v194 : num_complex_Complex<float> = │
00:02:59 #2096 [verbose] > │ v175.l1 │
00:02:59 #2097 [verbose] > │ v194 │
00:02:59 #2098 [verbose] > │ else │
00:02:59 #2099 [verbose] > │ let v195 : string = │
00:02:59 #2100 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2101 [verbose] > │ let v196 : num_complex_Complex<float> = │
00:02:59 #2102 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v195 │
00:02:59 #2103 [verbose] > │ let v197 : string = "$0 - $1" │
00:02:59 #2104 [verbose] > │ let v198 : num_complex_Complex<float> = │
00:02:59 #2105 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v196, v155) v197 │
00:02:59 #2106 [verbose] > │ let v199 : string = $" s = │
00:02:59 #2107 [verbose] > │ mpmath.gamma(s)" │
00:02:59 #2108 [verbose] > │ let v200 : num_complex_Complex<float> = │
00:02:59 #2109 [verbose] > │ method3(v198) │
00:02:59 #2110 [verbose] > │ let v201 : │
00:02:59 #2111 [verbose] > │ Result<num_complex_Complex<float>, std_string_String> = method29(v0, v199, │
00:02:59 #2112 [verbose] > │ v200) │
00:02:59 #2113 [verbose] > │ let v202 : string = "v201.ok()" │
00:02:59 #2114 [verbose] > │ let v203 : num_complex_Complex<float> option │
00:02:59 #2115 [verbose] > │ = Fable.Core.RustInterop.emitRustExpr () v202 │
00:02:59 #2116 [verbose] > │ let v204 : (num_complex_Complex<float> -> │
00:02:59 #2117 [verbose] > │ US0) = method30() │
00:02:59 #2118 [verbose] > │ let v205 : US0 = US0_1 │
00:02:59 #2119 [verbose] > │ let v206 : US0 = v203 |> Option.map v204 |> │
00:02:59 #2120 [verbose] > │ Option.defaultValue v205 │
00:02:59 #2121 [verbose] > │ let v207 : string = "f64::NAN" │
00:02:59 #2122 [verbose] > │ let v208 : float = │
00:02:59 #2123 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v207 │
00:02:59 #2124 [verbose] > │ let v209 : string = "f64::NAN" │
00:02:59 #2125 [verbose] > │ let v210 : float = │
00:02:59 #2126 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v209 │
00:02:59 #2127 [verbose] > │ let v211 : string = │
00:02:59 #2128 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2129 [verbose] > │ let v212 : num_complex_Complex<float> = │
00:02:59 #2130 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v208, v210) v211 │
00:02:59 #2131 [verbose] > │ let v215 : num_complex_Complex<float> = │
00:02:59 #2132 [verbose] > │ match v206 with │
00:02:59 #2133 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #2134 [verbose] > │ v212 │
00:02:59 #2135 [verbose] > │ | US0_0(v213) -> (* Some *) │
00:02:59 #2136 [verbose] > │ v213 │
00:02:59 #2137 [verbose] > │ let v216 : string = │
00:02:59 #2138 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2139 [verbose] > │ let v217 : num_complex_Complex<float> = │
00:02:59 #2140 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v216 │
00:02:59 #2141 [verbose] > │ let v218 : string = "$0 * $1" │
00:02:59 #2142 [verbose] > │ let v219 : num_complex_Complex<float> = │
00:02:59 #2143 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v217, v155) v218 │
00:02:59 #2144 [verbose] > │ let v220 : string = │
00:02:59 #2145 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2146 [verbose] > │ let v221 : num_complex_Complex<float> = │
00:02:59 #2147 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v220 │
00:02:59 #2148 [verbose] > │ let v222 : string = "v219 / v221" │
00:02:59 #2149 [verbose] > │ let v223 : num_complex_Complex<float> = │
00:02:59 #2150 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v222 │
00:02:59 #2151 [verbose] > │ let v224 : string = "v223.sin()" │
00:02:59 #2152 [verbose] > │ let v225 : num_complex_Complex<float> = │
00:02:59 #2153 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v224 │
00:02:59 #2154 [verbose] > │ let v226 : num_complex_Complex<float> = │
00:02:59 #2155 [verbose] > │ method7(v155) │
00:02:59 #2156 [verbose] > │ let v227 : string = "v226.re" │
00:02:59 #2157 [verbose] > │ let v228 : float = │
00:02:59 #2158 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v227 │
00:02:59 #2159 [verbose] > │ let v229 : float = 1.0 - v228 │
00:02:59 #2160 [verbose] > │ let v230 : num_complex_Complex<float> = │
00:02:59 #2161 [verbose] > │ method8(v155) │
00:02:59 #2162 [verbose] > │ let v231 : string = "v230.im" │
00:02:59 #2163 [verbose] > │ let v232 : float = │
00:02:59 #2164 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v231 │
00:02:59 #2165 [verbose] > │ let v233 : float = -v232 │
00:02:59 #2166 [verbose] > │ let v234 : string = │
00:02:59 #2167 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2168 [verbose] > │ let v235 : num_complex_Complex<float> = │
00:02:59 #2169 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v229, v233) v234 │
00:02:59 #2170 [verbose] > │ let v236 : num_complex_Complex<float> = │
00:02:59 #2171 [verbose] > │ method7(v235) │
00:02:59 #2172 [verbose] > │ let v237 : string = "v236.re" │
00:02:59 #2173 [verbose] > │ let v238 : float = │
00:02:59 #2174 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v237 │
00:02:59 #2175 [verbose] > │ let v239 : bool = v238 <= 1.0 │
00:02:59 #2176 [verbose] > │ let v438 : num_complex_Complex<float> = │
00:02:59 #2177 [verbose] > │ if v239 then │
00:02:59 #2178 [verbose] > │ let v240 : string = │
00:02:59 #2179 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2180 [verbose] > │ let v241 : │
00:02:59 #2181 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2182 [verbose] > │ (0.0, 0.0) v240 │
00:02:59 #2183 [verbose] > │ v241 │
00:02:59 #2184 [verbose] > │ else │
00:02:59 #2185 [verbose] > │ let v242 : string = "println!(\"zeta │
00:02:59 #2186 [verbose] > │ / count: {:?} / s: {:?}\", 3, $0)" │
00:02:59 #2187 [verbose] > │ Fable.Core.RustInterop.emitRustExpr │
00:02:59 #2188 [verbose] > │ v235 v242 │
00:02:59 #2189 [verbose] > │ let v243 : │
00:02:59 #2190 [verbose] > │ num_complex_Complex<float> = method7(v235) │
00:02:59 #2191 [verbose] > │ let v244 : string = "v243.re" │
00:02:59 #2192 [verbose] > │ let v245 : float = │
00:02:59 #2193 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v244 │
00:02:59 #2194 [verbose] > │ let v246 : bool = v245 > 1.0 │
00:02:59 #2195 [verbose] > │ if v246 then │
00:02:59 #2196 [verbose] > │ let v247 : string = │
00:02:59 #2197 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2198 [verbose] > │ let v248 : │
00:02:59 #2199 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2200 [verbose] > │ (0.0, 0.0) v247 │
00:02:59 #2201 [verbose] > │ let v249 : (int32 []) = │
00:02:59 #2202 [verbose] > │ Array.zeroCreate<int32> (10000) │
00:02:59 #2203 [verbose] > │ let v250 : Mut0 = {l0 = 0} : │
00:02:59 #2204 [verbose] > │ Mut0 │
00:02:59 #2205 [verbose] > │ while method25(v250) do │
00:02:59 #2206 [verbose] > │ let v252 : int32 = v250.l0 │
00:02:59 #2207 [verbose] > │ v249.[int v252] <- v252 │
00:02:59 #2208 [verbose] > │ let v253 : int32 = v252 + 1 │
00:02:59 #2209 [verbose] > │ v250.l0 <- v253 │
00:02:59 #2210 [verbose] > │ () │
00:02:59 #2211 [verbose] > │ let v254 : int32 = v249.Length │
00:02:59 #2212 [verbose] > │ let v255 : Mut2 = {l0 = 0; l1 = │
00:02:59 #2213 [verbose] > │ v248} : Mut2 │
00:02:59 #2214 [verbose] > │ while method26(v254, v255) do │
00:02:59 #2215 [verbose] > │ let v257 : int32 = v255.l0 │
00:02:59 #2216 [verbose] > │ let v258 : │
00:02:59 #2217 [verbose] > │ num_complex_Complex<float> = v255.l1 │
00:02:59 #2218 [verbose] > │ let v259 : int32 = v249.[int │
00:02:59 #2219 [verbose] > │ v257] │
00:02:59 #2220 [verbose] > │ let v260 : string = │
00:02:59 #2221 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2222 [verbose] > │ let v261 : │
00:02:59 #2223 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2224 [verbose] > │ (1.0, 0.0) v260 │
00:02:59 #2225 [verbose] > │ let v262 : float = float │
00:02:59 #2226 [verbose] > │ v259 │
00:02:59 #2227 [verbose] > │ let v263 : string = │
00:02:59 #2228 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2229 [verbose] > │ let v264 : │
00:02:59 #2230 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2231 [verbose] > │ (v262, 0.0) v263 │
00:02:59 #2232 [verbose] > │ let v265 : │
00:02:59 #2233 [verbose] > │ num_complex_Complex<float> = method27(v264) │
00:02:59 #2234 [verbose] > │ let v266 : │
00:02:59 #2235 [verbose] > │ num_complex_Complex<float> = method28(v235) │
00:02:59 #2236 [verbose] > │ let v267 : string = │
00:02:59 #2237 [verbose] > │ "num_complex::Complex::powc(v265, v266)" │
00:02:59 #2238 [verbose] > │ let v268 : │
00:02:59 #2239 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v267 │
00:02:59 #2240 [verbose] > │ let v269 : string = "v261 / │
00:02:59 #2241 [verbose] > │ v268" │
00:02:59 #2242 [verbose] > │ let v270 : │
00:02:59 #2243 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v269 │
00:02:59 #2244 [verbose] > │ let v271 : string = "v258 + │
00:02:59 #2245 [verbose] > │ v270" │
00:02:59 #2246 [verbose] > │ let v272 : │
00:02:59 #2247 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v271 │
00:02:59 #2248 [verbose] > │ let v273 : int32 = v257 + 1 │
00:02:59 #2249 [verbose] > │ v255.l0 <- v273 │
00:02:59 #2250 [verbose] > │ v255.l1 <- v272 │
00:02:59 #2251 [verbose] > │ () │
00:02:59 #2252 [verbose] > │ let v274 : │
00:02:59 #2253 [verbose] > │ num_complex_Complex<float> = v255.l1 │
00:02:59 #2254 [verbose] > │ v274 │
00:02:59 #2255 [verbose] > │ else │
00:02:59 #2256 [verbose] > │ let v275 : string = │
00:02:59 #2257 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2258 [verbose] > │ let v276 : │
00:02:59 #2259 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2260 [verbose] > │ (1.0, 0.0) v275 │
00:02:59 #2261 [verbose] > │ let v277 : string = "$0 - $1" │
00:02:59 #2262 [verbose] > │ let v278 : │
00:02:59 #2263 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2264 [verbose] > │ (v276, v235) v277 │
00:02:59 #2265 [verbose] > │ let v279 : string = $" s │
00:02:59 #2266 [verbose] > │ = mpmath.gamma(s)" │
00:02:59 #2267 [verbose] > │ let v280 : │
00:02:59 #2268 [verbose] > │ num_complex_Complex<float> = method3(v278) │
00:02:59 #2269 [verbose] > │ let v281 : │
00:02:59 #2270 [verbose] > │ Result<num_complex_Complex<float>, std_string_String> = method29(v0, v279, │
00:02:59 #2271 [verbose] > │ v280) │
00:02:59 #2272 [verbose] > │ let v282 : string = "v281.ok()" │
00:02:59 #2273 [verbose] > │ let v283 : │
00:02:59 #2274 [verbose] > │ num_complex_Complex<float> option = Fable.Core.RustInterop.emitRustExpr () │
00:02:59 #2275 [verbose] > │ v282 │
00:02:59 #2276 [verbose] > │ let v284 : │
00:02:59 #2277 [verbose] > │ (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #2278 [verbose] > │ let v285 : US0 = US0_1 │
00:02:59 #2279 [verbose] > │ let v286 : US0 = v283 |> │
00:02:59 #2280 [verbose] > │ Option.map v284 |> Option.defaultValue v285 │
00:02:59 #2281 [verbose] > │ let v287 : string = "f64::NAN" │
00:02:59 #2282 [verbose] > │ let v288 : float = │
00:02:59 #2283 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v287 │
00:02:59 #2284 [verbose] > │ let v289 : string = "f64::NAN" │
00:02:59 #2285 [verbose] > │ let v290 : float = │
00:02:59 #2286 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v289 │
00:02:59 #2287 [verbose] > │ let v291 : string = │
00:02:59 #2288 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2289 [verbose] > │ let v292 : │
00:02:59 #2290 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2291 [verbose] > │ (v288, v290) v291 │
00:02:59 #2292 [verbose] > │ let v295 : │
00:02:59 #2293 [verbose] > │ num_complex_Complex<float> = │
00:02:59 #2294 [verbose] > │ match v286 with │
00:02:59 #2295 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #2296 [verbose] > │ v292 │
00:02:59 #2297 [verbose] > │ | US0_0(v293) -> (* Some *) │
00:02:59 #2298 [verbose] > │ v293 │
00:02:59 #2299 [verbose] > │ let v296 : string = │
00:02:59 #2300 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2301 [verbose] > │ let v297 : │
00:02:59 #2302 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2303 [verbose] > │ (3.141592653589793, 0.0) v296 │
00:02:59 #2304 [verbose] > │ let v298 : string = "$0 * $1" │
00:02:59 #2305 [verbose] > │ let v299 : │
00:02:59 #2306 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2307 [verbose] > │ (v297, v235) v298 │
00:02:59 #2308 [verbose] > │ let v300 : string = │
00:02:59 #2309 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2310 [verbose] > │ let v301 : │
00:02:59 #2311 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2312 [verbose] > │ (2.0, 0.0) v300 │
00:02:59 #2313 [verbose] > │ let v302 : string = "v299 / │
00:02:59 #2314 [verbose] > │ v301" │
00:02:59 #2315 [verbose] > │ let v303 : │
00:02:59 #2316 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v302 │
00:02:59 #2317 [verbose] > │ let v304 : string = "v303.sin()" │
00:02:59 #2318 [verbose] > │ let v305 : │
00:02:59 #2319 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v304 │
00:02:59 #2320 [verbose] > │ let v306 : │
00:02:59 #2321 [verbose] > │ num_complex_Complex<float> = method7(v235) │
00:02:59 #2322 [verbose] > │ let v307 : string = "v306.re" │
00:02:59 #2323 [verbose] > │ let v308 : float = │
00:02:59 #2324 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v307 │
00:02:59 #2325 [verbose] > │ let v309 : float = 1.0 - v308 │
00:02:59 #2326 [verbose] > │ let v310 : │
00:02:59 #2327 [verbose] > │ num_complex_Complex<float> = method8(v235) │
00:02:59 #2328 [verbose] > │ let v311 : string = "v310.im" │
00:02:59 #2329 [verbose] > │ let v312 : float = │
00:02:59 #2330 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v311 │
00:02:59 #2331 [verbose] > │ let v313 : float = -v312 │
00:02:59 #2332 [verbose] > │ let v314 : string = │
00:02:59 #2333 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2334 [verbose] > │ let v315 : │
00:02:59 #2335 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2336 [verbose] > │ (v309, v313) v314 │
00:02:59 #2337 [verbose] > │ let v316 : │
00:02:59 #2338 [verbose] > │ num_complex_Complex<float> = method7(v315) │
00:02:59 #2339 [verbose] > │ let v317 : string = "v316.re" │
00:02:59 #2340 [verbose] > │ let v318 : float = │
00:02:59 #2341 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v317 │
00:02:59 #2342 [verbose] > │ let v319 : bool = v318 <= 1.0 │
00:02:59 #2343 [verbose] > │ let v420 : │
00:02:59 #2344 [verbose] > │ num_complex_Complex<float> = │
00:02:59 #2345 [verbose] > │ if v319 then │
00:02:59 #2346 [verbose] > │ let v320 : string = │
00:02:59 #2347 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2348 [verbose] > │ let v321 : │
00:02:59 #2349 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2350 [verbose] > │ (0.0, 0.0) v320 │
00:02:59 #2351 [verbose] > │ v321 │
00:02:59 #2352 [verbose] > │ else │
00:02:59 #2353 [verbose] > │ let v322 : string = │
00:02:59 #2354 [verbose] > │ "println!(\"zeta / count: {:?} / s: {:?}\", 4, $0)" │
00:02:59 #2355 [verbose] > │ │
00:02:59 #2356 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v315 v322 │
00:02:59 #2357 [verbose] > │ let v323 : │
00:02:59 #2358 [verbose] > │ num_complex_Complex<float> = method7(v315) │
00:02:59 #2359 [verbose] > │ let v324 : string = │
00:02:59 #2360 [verbose] > │ "v323.re" │
00:02:59 #2361 [verbose] > │ let v325 : float = │
00:02:59 #2362 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v324 │
00:02:59 #2363 [verbose] > │ let v326 : bool = v325 > │
00:02:59 #2364 [verbose] > │ 1.0 │
00:02:59 #2365 [verbose] > │ if v326 then │
00:02:59 #2366 [verbose] > │ let v327 : string = │
00:02:59 #2367 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2368 [verbose] > │ let v328 : │
00:02:59 #2369 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2370 [verbose] > │ (0.0, 0.0) v327 │
00:02:59 #2371 [verbose] > │ let v329 : (int32 [ │
00:02:59 #2372 [verbose] > │ ]) = Array.zeroCreate<int32> (10000) │
00:02:59 #2373 [verbose] > │ let v330 : Mut0 = │
00:02:59 #2374 [verbose] > │ {l0 = 0} : Mut0 │
00:02:59 #2375 [verbose] > │ while method25(v330) │
00:02:59 #2376 [verbose] > │ do │
00:02:59 #2377 [verbose] > │ let v332 : int32 │
00:02:59 #2378 [verbose] > │ = v330.l0 │
00:02:59 #2379 [verbose] > │ v329.[int v332] │
00:02:59 #2380 [verbose] > │ <- v332 │
00:02:59 #2381 [verbose] > │ let v333 : int32 │
00:02:59 #2382 [verbose] > │ = v332 + 1 │
00:02:59 #2383 [verbose] > │ v330.l0 <- v333 │
00:02:59 #2384 [verbose] > │ () │
00:02:59 #2385 [verbose] > │ let v334 : int32 = │
00:02:59 #2386 [verbose] > │ v329.Length │
00:02:59 #2387 [verbose] > │ let v335 : Mut2 = │
00:02:59 #2388 [verbose] > │ {l0 = 0; l1 = v328} : Mut2 │
00:02:59 #2389 [verbose] > │ while method26(v334, │
00:02:59 #2390 [verbose] > │ v335) do │
00:02:59 #2391 [verbose] > │ let v337 : int32 │
00:02:59 #2392 [verbose] > │ = v335.l0 │
00:02:59 #2393 [verbose] > │ let v338 : │
00:02:59 #2394 [verbose] > │ num_complex_Complex<float> = v335.l1 │
00:02:59 #2395 [verbose] > │ let v339 : int32 │
00:02:59 #2396 [verbose] > │ = v329.[int v337] │
00:02:59 #2397 [verbose] > │ let v340 : │
00:02:59 #2398 [verbose] > │ string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2399 [verbose] > │ let v341 : │
00:02:59 #2400 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2401 [verbose] > │ (1.0, 0.0) v340 │
00:02:59 #2402 [verbose] > │ let v342 : float │
00:02:59 #2403 [verbose] > │ = float v339 │
00:02:59 #2404 [verbose] > │ let v343 : │
00:02:59 #2405 [verbose] > │ string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2406 [verbose] > │ let v344 : │
00:02:59 #2407 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2408 [verbose] > │ (v342, 0.0) v343 │
00:02:59 #2409 [verbose] > │ let v345 : │
00:02:59 #2410 [verbose] > │ num_complex_Complex<float> = method27(v344) │
00:02:59 #2411 [verbose] > │ let v346 : │
00:02:59 #2412 [verbose] > │ num_complex_Complex<float> = method28(v315) │
00:02:59 #2413 [verbose] > │ let v347 : │
00:02:59 #2414 [verbose] > │ string = "num_complex::Complex::powc(v345, v346)" │
00:02:59 #2415 [verbose] > │ let v348 : │
00:02:59 #2416 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v347 │
00:02:59 #2417 [verbose] > │ let v349 : │
00:02:59 #2418 [verbose] > │ string = "v341 / v348" │
00:02:59 #2419 [verbose] > │ let v350 : │
00:02:59 #2420 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v349 │
00:02:59 #2421 [verbose] > │ let v351 : │
00:02:59 #2422 [verbose] > │ string = "v338 + v350" │
00:02:59 #2423 [verbose] > │ let v352 : │
00:02:59 #2424 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v351 │
00:02:59 #2425 [verbose] > │ let v353 : int32 │
00:02:59 #2426 [verbose] > │ = v337 + 1 │
00:02:59 #2427 [verbose] > │ v335.l0 <- v353 │
00:02:59 #2428 [verbose] > │ v335.l1 <- v352 │
00:02:59 #2429 [verbose] > │ () │
00:02:59 #2430 [verbose] > │ let v354 : │
00:02:59 #2431 [verbose] > │ num_complex_Complex<float> = v335.l1 │
00:02:59 #2432 [verbose] > │ v354 │
00:02:59 #2433 [verbose] > │ else │
00:02:59 #2434 [verbose] > │ let v355 : string = │
00:02:59 #2435 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2436 [verbose] > │ let v356 : │
00:02:59 #2437 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2438 [verbose] > │ (1.0, 0.0) v355 │
00:02:59 #2439 [verbose] > │ let v357 : string = │
00:02:59 #2440 [verbose] > │ "$0 - $1" │
00:02:59 #2441 [verbose] > │ let v358 : │
00:02:59 #2442 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2443 [verbose] > │ (v356, v315) v357 │
00:02:59 #2444 [verbose] > │ let v359 : string = │
00:02:59 #2445 [verbose] > │ $" s = mpmath.gamma(s)" │
00:02:59 #2446 [verbose] > │ let v360 : │
00:02:59 #2447 [verbose] > │ num_complex_Complex<float> = method3(v358) │
00:02:59 #2448 [verbose] > │ let v361 : │
00:02:59 #2449 [verbose] > │ Result<num_complex_Complex<float>, std_string_String> = method29(v0, v359, │
00:02:59 #2450 [verbose] > │ v360) │
00:02:59 #2451 [verbose] > │ let v362 : string = │
00:02:59 #2452 [verbose] > │ "v361.ok()" │
00:02:59 #2453 [verbose] > │ let v363 : │
00:02:59 #2454 [verbose] > │ num_complex_Complex<float> option = Fable.Core.RustInterop.emitRustExpr () │
00:02:59 #2455 [verbose] > │ v362 │
00:02:59 #2456 [verbose] > │ let v364 : │
00:02:59 #2457 [verbose] > │ (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #2458 [verbose] > │ let v365 : US0 = │
00:02:59 #2459 [verbose] > │ US0_1 │
00:02:59 #2460 [verbose] > │ let v366 : US0 = │
00:02:59 #2461 [verbose] > │ v363 |> Option.map v364 |> Option.defaultValue v365 │
00:02:59 #2462 [verbose] > │ let v367 : string = │
00:02:59 #2463 [verbose] > │ "f64::NAN" │
00:02:59 #2464 [verbose] > │ let v368 : float = │
00:02:59 #2465 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v367 │
00:02:59 #2466 [verbose] > │ let v369 : string = │
00:02:59 #2467 [verbose] > │ "f64::NAN" │
00:02:59 #2468 [verbose] > │ let v370 : float = │
00:02:59 #2469 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v369 │
00:02:59 #2470 [verbose] > │ let v371 : string = │
00:02:59 #2471 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2472 [verbose] > │ let v372 : │
00:02:59 #2473 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2474 [verbose] > │ (v368, v370) v371 │
00:02:59 #2475 [verbose] > │ let v375 : │
00:02:59 #2476 [verbose] > │ num_complex_Complex<float> = │
00:02:59 #2477 [verbose] > │ match v366 with │
00:02:59 #2478 [verbose] > │ | US0_1 -> (* │
00:02:59 #2479 [verbose] > │ None *) │
00:02:59 #2480 [verbose] > │ v372 │
00:02:59 #2481 [verbose] > │ | US0_0(v373) -> │
00:02:59 #2482 [verbose] > │ (* Some *) │
00:02:59 #2483 [verbose] > │ v373 │
00:02:59 #2484 [verbose] > │ let v376 : string = │
00:02:59 #2485 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2486 [verbose] > │ let v377 : │
00:02:59 #2487 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2488 [verbose] > │ (3.141592653589793, 0.0) v376 │
00:02:59 #2489 [verbose] > │ let v378 : string = │
00:02:59 #2490 [verbose] > │ "$0 * $1" │
00:02:59 #2491 [verbose] > │ let v379 : │
00:02:59 #2492 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2493 [verbose] > │ (v377, v315) v378 │
00:02:59 #2494 [verbose] > │ let v380 : string = │
00:02:59 #2495 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2496 [verbose] > │ let v381 : │
00:02:59 #2497 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2498 [verbose] > │ (2.0, 0.0) v380 │
00:02:59 #2499 [verbose] > │ let v382 : string = │
00:02:59 #2500 [verbose] > │ "v379 / v381" │
00:02:59 #2501 [verbose] > │ let v383 : │
00:02:59 #2502 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v382 │
00:02:59 #2503 [verbose] > │ let v384 : string = │
00:02:59 #2504 [verbose] > │ "v383.sin()" │
00:02:59 #2505 [verbose] > │ let v385 : │
00:02:59 #2506 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v384 │
00:02:59 #2507 [verbose] > │ let v386 : │
00:02:59 #2508 [verbose] > │ num_complex_Complex<float> = method7(v315) │
00:02:59 #2509 [verbose] > │ let v387 : string = │
00:02:59 #2510 [verbose] > │ "v386.re" │
00:02:59 #2511 [verbose] > │ let v388 : float = │
00:02:59 #2512 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v387 │
00:02:59 #2513 [verbose] > │ let v389 : float = │
00:02:59 #2514 [verbose] > │ 1.0 - v388 │
00:02:59 #2515 [verbose] > │ let v390 : │
00:02:59 #2516 [verbose] > │ num_complex_Complex<float> = method8(v315) │
00:02:59 #2517 [verbose] > │ let v391 : string = │
00:02:59 #2518 [verbose] > │ "v390.im" │
00:02:59 #2519 [verbose] > │ let v392 : float = │
00:02:59 #2520 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v391 │
00:02:59 #2521 [verbose] > │ let v393 : float = │
00:02:59 #2522 [verbose] > │ -v392 │
00:02:59 #2523 [verbose] > │ let v394 : string = │
00:02:59 #2524 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2525 [verbose] > │ let v395 : │
00:02:59 #2526 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2527 [verbose] > │ (v389, v393) v394 │
00:02:59 #2528 [verbose] > │ let v396 : │
00:02:59 #2529 [verbose] > │ num_complex_Complex<float> = method7(v395) │
00:02:59 #2530 [verbose] > │ let v397 : string = │
00:02:59 #2531 [verbose] > │ "v396.re" │
00:02:59 #2532 [verbose] > │ let v398 : float = │
00:02:59 #2533 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v397 │
00:02:59 #2534 [verbose] > │ let v399 : bool = │
00:02:59 #2535 [verbose] > │ v398 <= 1.0 │
00:02:59 #2536 [verbose] > │ let v402 : │
00:02:59 #2537 [verbose] > │ num_complex_Complex<float> = │
00:02:59 #2538 [verbose] > │ if v399 then │
00:02:59 #2539 [verbose] > │ let v400 : │
00:02:59 #2540 [verbose] > │ string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2541 [verbose] > │ let v401 : │
00:02:59 #2542 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2543 [verbose] > │ (0.0, 0.0) v400 │
00:02:59 #2544 [verbose] > │ v401 │
00:02:59 #2545 [verbose] > │ else │
00:02:59 #2546 [verbose] > │ v395 │
00:02:59 #2547 [verbose] > │ let v403 : string = │
00:02:59 #2548 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2549 [verbose] > │ let v404 : │
00:02:59 #2550 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2551 [verbose] > │ (2.0, 0.0) v403 │
00:02:59 #2552 [verbose] > │ let v405 : string = │
00:02:59 #2553 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2554 [verbose] > │ let v406 : │
00:02:59 #2555 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2556 [verbose] > │ (3.141592653589793, 0.0) v405 │
00:02:59 #2557 [verbose] > │ let v407 : │
00:02:59 #2558 [verbose] > │ num_complex_Complex<float> = method27(v406) │
00:02:59 #2559 [verbose] > │ let v408 : │
00:02:59 #2560 [verbose] > │ num_complex_Complex<float> = method28(v315) │
00:02:59 #2561 [verbose] > │ let v409 : string = │
00:02:59 #2562 [verbose] > │ "num_complex::Complex::powc(v407, v408)" │
00:02:59 #2563 [verbose] > │ let v410 : │
00:02:59 #2564 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v409 │
00:02:59 #2565 [verbose] > │ let v411 : string = │
00:02:59 #2566 [verbose] > │ "$0 * $1" │
00:02:59 #2567 [verbose] > │ let v412 : │
00:02:59 #2568 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2569 [verbose] > │ (v404, v410) v411 │
00:02:59 #2570 [verbose] > │ let v413 : string = │
00:02:59 #2571 [verbose] > │ "$0 * $1" │
00:02:59 #2572 [verbose] > │ let v414 : │
00:02:59 #2573 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2574 [verbose] > │ (v412, v385) v413 │
00:02:59 #2575 [verbose] > │ let v415 : string = │
00:02:59 #2576 [verbose] > │ "$0 * $1" │
00:02:59 #2577 [verbose] > │ let v416 : │
00:02:59 #2578 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2579 [verbose] > │ (v414, v375) v415 │
00:02:59 #2580 [verbose] > │ let v417 : string = │
00:02:59 #2581 [verbose] > │ "$0 * $1" │
00:02:59 #2582 [verbose] > │ let v418 : │
00:02:59 #2583 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2584 [verbose] > │ (v416, v402) v417 │
00:02:59 #2585 [verbose] > │ v418 │
00:02:59 #2586 [verbose] > │ let v421 : string = │
00:02:59 #2587 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2588 [verbose] > │ let v422 : │
00:02:59 #2589 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2590 [verbose] > │ (2.0, 0.0) v421 │
00:02:59 #2591 [verbose] > │ let v423 : string = │
00:02:59 #2592 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2593 [verbose] > │ let v424 : │
00:02:59 #2594 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2595 [verbose] > │ (3.141592653589793, 0.0) v423 │
00:02:59 #2596 [verbose] > │ let v425 : │
00:02:59 #2597 [verbose] > │ num_complex_Complex<float> = method27(v424) │
00:02:59 #2598 [verbose] > │ let v426 : │
00:02:59 #2599 [verbose] > │ num_complex_Complex<float> = method28(v235) │
00:02:59 #2600 [verbose] > │ let v427 : string = │
00:02:59 #2601 [verbose] > │ "num_complex::Complex::powc(v425, v426)" │
00:02:59 #2602 [verbose] > │ let v428 : │
00:02:59 #2603 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr () v427 │
00:02:59 #2604 [verbose] > │ let v429 : string = "$0 * $1" │
00:02:59 #2605 [verbose] > │ let v430 : │
00:02:59 #2606 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2607 [verbose] > │ (v422, v428) v429 │
00:02:59 #2608 [verbose] > │ let v431 : string = "$0 * $1" │
00:02:59 #2609 [verbose] > │ let v432 : │
00:02:59 #2610 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2611 [verbose] > │ (v430, v305) v431 │
00:02:59 #2612 [verbose] > │ let v433 : string = "$0 * $1" │
00:02:59 #2613 [verbose] > │ let v434 : │
00:02:59 #2614 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2615 [verbose] > │ (v432, v295) v433 │
00:02:59 #2616 [verbose] > │ let v435 : string = "$0 * $1" │
00:02:59 #2617 [verbose] > │ let v436 : │
00:02:59 #2618 [verbose] > │ num_complex_Complex<float> = Fable.Core.RustInterop.emitRustExpr struct │
00:02:59 #2619 [verbose] > │ (v434, v420) v435 │
00:02:59 #2620 [verbose] > │ v436 │
00:02:59 #2621 [verbose] > │ let v439 : string = │
00:02:59 #2622 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2623 [verbose] > │ let v440 : num_complex_Complex<float> = │
00:02:59 #2624 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v439 │
00:02:59 #2625 [verbose] > │ let v441 : string = │
00:02:59 #2626 [verbose] > │ "num_complex::Complex::new($0, $1)" │
00:02:59 #2627 [verbose] > │ let v442 : num_complex_Complex<float> = │
00:02:59 #2628 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v441 │
00:02:59 #2629 [verbose] > │ let v443 : num_complex_Complex<float> = │
00:02:59 #2630 [verbose] > │ method27(v442) │
00:02:59 #2631 [verbose] > │ let v444 : num_complex_Complex<float> = │
00:02:59 #2632 [verbose] > │ method28(v155) │
00:02:59 #2633 [verbose] > │ let v445 : string = │
00:02:59 #2634 [verbose] > │ "num_complex::Complex::powc(v443, v444)" │
00:02:59 #2635 [verbose] > │ let v446 : num_complex_Complex<float> = │
00:02:59 #2636 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v445 │
00:02:59 #2637 [verbose] > │ let v447 : string = "$0 * $1" │
00:02:59 #2638 [verbose] > │ let v448 : num_complex_Complex<float> = │
00:02:59 #2639 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v440, v446) v447 │
00:02:59 #2640 [verbose] > │ let v449 : string = "$0 * $1" │
00:02:59 #2641 [verbose] > │ let v450 : num_complex_Complex<float> = │
00:02:59 #2642 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v448, v225) v449 │
00:02:59 #2643 [verbose] > │ let v451 : string = "$0 * $1" │
00:02:59 #2644 [verbose] > │ let v452 : num_complex_Complex<float> = │
00:02:59 #2645 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v450, v215) v451 │
00:02:59 #2646 [verbose] > │ let v453 : string = "$0 * $1" │
00:02:59 #2647 [verbose] > │ let v454 : num_complex_Complex<float> = │
00:02:59 #2648 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v452, v438) v453 │
00:02:59 #2649 [verbose] > │ v454 │
00:02:59 #2650 [verbose] > │ let v457 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2651 [verbose] > │ let v458 : num_complex_Complex<float> = │
00:02:59 #2652 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v457 │
00:02:59 #2653 [verbose] > │ let v459 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2654 [verbose] > │ let v460 : num_complex_Complex<float> = │
00:02:59 #2655 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v459 │
00:02:59 #2656 [verbose] > │ let v461 : num_complex_Complex<float> = method27(v460) │
00:02:59 #2657 [verbose] > │ let v462 : num_complex_Complex<float> = method28(v75) │
00:02:59 #2658 [verbose] > │ let v463 : string = "num_complex::Complex::powc(v461, │
00:02:59 #2659 [verbose] > │ v462)" │
00:02:59 #2660 [verbose] > │ let v464 : num_complex_Complex<float> = │
00:02:59 #2661 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v463 │
00:02:59 #2662 [verbose] > │ let v465 : string = "$0 * $1" │
00:02:59 #2663 [verbose] > │ let v466 : num_complex_Complex<float> = │
00:02:59 #2664 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v458, v464) v465 │
00:02:59 #2665 [verbose] > │ let v467 : string = "$0 * $1" │
00:02:59 #2666 [verbose] > │ let v468 : num_complex_Complex<float> = │
00:02:59 #2667 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v466, v145) v467 │
00:02:59 #2668 [verbose] > │ let v469 : string = "$0 * $1" │
00:02:59 #2669 [verbose] > │ let v470 : num_complex_Complex<float> = │
00:02:59 #2670 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v468, v135) v469 │
00:02:59 #2671 [verbose] > │ let v471 : string = "$0 * $1" │
00:02:59 #2672 [verbose] > │ let v472 : num_complex_Complex<float> = │
00:02:59 #2673 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v470, v456) v471 │
00:02:59 #2674 [verbose] > │ v472 │
00:02:59 #2675 [verbose] > │ let v475 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2676 [verbose] > │ let v476 : num_complex_Complex<float> = │
00:02:59 #2677 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v475 │
00:02:59 #2678 [verbose] > │ let v477 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2679 [verbose] > │ let v478 : num_complex_Complex<float> = │
00:02:59 #2680 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v477 │
00:02:59 #2681 [verbose] > │ let v479 : num_complex_Complex<float> = method27(v478) │
00:02:59 #2682 [verbose] > │ let v480 : num_complex_Complex<float> = method28(v1) │
00:02:59 #2683 [verbose] > │ let v481 : string = "num_complex::Complex::powc(v479, v480)" │
00:02:59 #2684 [verbose] > │ let v482 : num_complex_Complex<float> = │
00:02:59 #2685 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v481 │
00:02:59 #2686 [verbose] > │ let v483 : string = "$0 * $1" │
00:02:59 #2687 [verbose] > │ let v484 : num_complex_Complex<float> = │
00:02:59 #2688 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v476, v482) v483 │
00:02:59 #2689 [verbose] > │ let v485 : string = "$0 * $1" │
00:02:59 #2690 [verbose] > │ let v486 : num_complex_Complex<float> = │
00:02:59 #2691 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v484, v65) v485 │
00:02:59 #2692 [verbose] > │ let v487 : string = "$0 * $1" │
00:02:59 #2693 [verbose] > │ let v488 : num_complex_Complex<float> = │
00:02:59 #2694 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v486, v55) v487 │
00:02:59 #2695 [verbose] > │ let v489 : string = "$0 * $1" │
00:02:59 #2696 [verbose] > │ let v490 : num_complex_Complex<float> = │
00:02:59 #2697 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v488, v474) v489 │
00:02:59 #2698 [verbose] > │ v490 │
00:02:59 #2699 [verbose] > │ and method31 (v0 : bool) : bool = │
00:02:59 #2700 [verbose] > │ v0 │
00:02:59 #2701 [verbose] > │ and method1 (v0 : pyo3_Python) : unit = │
00:02:59 #2702 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2703 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:02:59 #2704 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v1 │
00:02:59 #2705 [verbose] > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2706 [verbose] > │ let v4 : num_complex_Complex<float> = │
00:02:59 #2707 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (-1.0, 0.0) v3 │
00:02:59 #2708 [verbose] > │ let v5 : (struct (num_complex_Complex<float> * float) []) = [|struct │
00:02:59 #2709 [verbose] > │ (v2, 1.6449340668482264); struct (v4, -0.08333333333333333)|] │
00:02:59 #2710 [verbose] > │ let v6 : int32 = v5.Length │
00:02:59 #2711 [verbose] > │ let v7 : Mut0 = {l0 = 0} : Mut0 │
00:02:59 #2712 [verbose] > │ while method2(v6, v7) do │
00:02:59 #2713 [verbose] > │ let v9 : int32 = v7.l0 │
00:02:59 #2714 [verbose] > │ let struct (v10 : num_complex_Complex<float>, v11 : float) = v5.[int │
00:02:59 #2715 [verbose] > │ v9] │
00:02:59 #2716 [verbose] > │ let v12 : string = $" s = mpmath.zeta(s)" │
00:02:59 #2717 [verbose] > │ let v13 : num_complex_Complex<float> = method3(v10) │
00:02:59 #2718 [verbose] > │ let v14 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:59 #2719 [verbose] > │ method4(v0, v12, v13) │
00:02:59 #2720 [verbose] > │ let v15 : num_complex_Complex<float> = method24(v0, v10) │
00:02:59 #2721 [verbose] > │ let v16 : string = "v14.ok()" │
00:02:59 #2722 [verbose] > │ let v17 : num_complex_Complex<float> option = │
00:02:59 #2723 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v16 │
00:02:59 #2724 [verbose] > │ let v18 : (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #2725 [verbose] > │ let v19 : US0 = US0_1 │
00:02:59 #2726 [verbose] > │ let v20 : US0 = v17 |> Option.map v18 |> Option.defaultValue v19 │
00:02:59 #2727 [verbose] > │ let v21 : string = "f64::NAN" │
00:02:59 #2728 [verbose] > │ let v22 : float = Fable.Core.RustInterop.emitRustExpr () v21 │
00:02:59 #2729 [verbose] > │ let v23 : string = "f64::NAN" │
00:02:59 #2730 [verbose] > │ let v24 : float = Fable.Core.RustInterop.emitRustExpr () v23 │
00:02:59 #2731 [verbose] > │ let v25 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2732 [verbose] > │ let v26 : num_complex_Complex<float> = │
00:02:59 #2733 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v22, v24) v25 │
00:02:59 #2734 [verbose] > │ let v29 : num_complex_Complex<float> = │
00:02:59 #2735 [verbose] > │ match v20 with │
00:02:59 #2736 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #2737 [verbose] > │ v26 │
00:02:59 #2738 [verbose] > │ | US0_0(v27) -> (* Some *) │
00:02:59 #2739 [verbose] > │ v27 │
00:02:59 #2740 [verbose] > │ let v30 : num_complex_Complex<float> = method8(v29) │
00:02:59 #2741 [verbose] > │ let v31 : string = "v30.im" │
00:02:59 #2742 [verbose] > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:02:59 #2743 [verbose] > │ let v33 : string = $"%A{v32}" │
00:02:59 #2744 [verbose] > │ System.Console.WriteLine v33 │
00:02:59 #2745 [verbose] > │ let v34 : bool = v32 = 0.0 │
00:02:59 #2746 [verbose] > │ let v36 : bool = │
00:02:59 #2747 [verbose] > │ if v34 then │
00:02:59 #2748 [verbose] > │ true │
00:02:59 #2749 [verbose] > │ else │
00:02:59 #2750 [verbose] > │ method31(v34) │
00:02:59 #2751 [verbose] > │ let v37 : string = $"__expect / actual: %A{v32} / expected: %A{0.0}" │
00:02:59 #2752 [verbose] > │ let v38 : bool = v36 = false │
00:02:59 #2753 [verbose] > │ if v38 then │
00:02:59 #2754 [verbose] > │ failwith<unit> v37 │
00:02:59 #2755 [verbose] > │ let v39 : num_complex_Complex<float> = method7(v29) │
00:02:59 #2756 [verbose] > │ let v40 : string = "v39.re" │
00:02:59 #2757 [verbose] > │ let v41 : float = Fable.Core.RustInterop.emitRustExpr () v40 │
00:02:59 #2758 [verbose] > │ let v42 : float = v41 - v11 │
00:02:59 #2759 [verbose] > │ let v43 : float = -v42 │
00:02:59 #2760 [verbose] > │ let v44 : bool = v42 >= v43 │
00:02:59 #2761 [verbose] > │ let v45 : float = │
00:02:59 #2762 [verbose] > │ if v44 then │
00:02:59 #2763 [verbose] > │ v42 │
00:02:59 #2764 [verbose] > │ else │
00:02:59 #2765 [verbose] > │ v43 │
00:02:59 #2766 [verbose] > │ let v46 : string = $"%A{v45}" │
00:02:59 #2767 [verbose] > │ System.Console.WriteLine v46 │
00:02:59 #2768 [verbose] > │ let v47 : bool = v45 < 0.0001 │
00:02:59 #2769 [verbose] > │ let v49 : bool = │
00:02:59 #2770 [verbose] > │ if v47 then │
00:02:59 #2771 [verbose] > │ true │
00:02:59 #2772 [verbose] > │ else │
00:02:59 #2773 [verbose] > │ method31(v47) │
00:02:59 #2774 [verbose] > │ let v50 : string = $"__expect / actual: %A{v45} / expected: │
00:02:59 #2775 [verbose] > │ %A{0.0001}" │
00:02:59 #2776 [verbose] > │ let v51 : bool = v49 = false │
00:02:59 #2777 [verbose] > │ if v51 then │
00:02:59 #2778 [verbose] > │ failwith<unit> v50 │
00:02:59 #2779 [verbose] > │ let v52 : int32 = v9 + 1 │
00:02:59 #2780 [verbose] > │ v7.l0 <- v52 │
00:02:59 #2781 [verbose] > │ () │
00:02:59 #2782 [verbose] > │ () │
00:02:59 #2783 [verbose] > │ and method32 (v0 : Result<unit, pyo3_PyErr>) : Result<unit, pyo3_PyErr> = │
00:02:59 #2784 [verbose] > │ v0 │
00:02:59 #2785 [verbose] > │ and method33 (v0 : Result<unit, pyo3_PyErr>) : Result<unit, pyo3_PyErr> = │
00:02:59 #2786 [verbose] > │ v0 │
00:02:59 #2787 [verbose] > │ and method0 () : unit = │
00:02:59 #2788 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:59 #2789 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:59 #2790 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:59 #2791 [verbose] > │ pyo3::PyResult<()> { //" │
00:02:59 #2792 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:59 #2793 [verbose] > │ let v2 : string = "py" │
00:02:59 #2794 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:59 #2795 [verbose] > │ method1(v3) │
00:02:59 #2796 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:59 #2797 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:02:59 #2798 [verbose] > │ let v6 : string = "v5 }})" │
00:02:59 #2799 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:59 #2800 [verbose] > │ let v7 : string = "{ //" │
00:02:59 #2801 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #2802 [verbose] > │ let v8 : string = "__result" │
00:02:59 #2803 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #2804 [verbose] > │ () v8 │
00:02:59 #2805 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:02:59 #2806 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:02:59 #2807 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:02:59 #2808 [verbose] > │ () │
00:02:59 #2809 [verbose] > │ and method35 (v0 : pyo3_Python) : unit = │
00:02:59 #2810 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2811 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:02:59 #2812 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, -2.0) v1 │
00:02:59 #2813 [verbose] > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:02:59 #2814 [verbose] > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:02:59 #2815 [verbose] > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:59 #2816 [verbose] > │ method4(v0, v3, v4) │
00:02:59 #2817 [verbose] > │ let v6 : num_complex_Complex<float> = method24(v0, v2) │
00:02:59 #2818 [verbose] > │ let v7 : string = "v5.ok()" │
00:02:59 #2819 [verbose] > │ let v8 : num_complex_Complex<float> option = │
00:02:59 #2820 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #2821 [verbose] > │ let v9 : (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #2822 [verbose] > │ let v10 : US0 = US0_1 │
00:02:59 #2823 [verbose] > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:02:59 #2824 [verbose] > │ let v12 : string = "f64::NAN" │
00:02:59 #2825 [verbose] > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:02:59 #2826 [verbose] > │ let v14 : string = "f64::NAN" │
00:02:59 #2827 [verbose] > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:02:59 #2828 [verbose] > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2829 [verbose] > │ let v17 : num_complex_Complex<float> = │
00:02:59 #2830 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:02:59 #2831 [verbose] > │ let v20 : num_complex_Complex<float> = │
00:02:59 #2832 [verbose] > │ match v11 with │
00:02:59 #2833 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #2834 [verbose] > │ v17 │
00:02:59 #2835 [verbose] > │ | US0_0(v18) -> (* Some *) │
00:02:59 #2836 [verbose] > │ v18 │
00:02:59 #2837 [verbose] > │ let v21 : num_complex_Complex<float> = method7(v20) │
00:02:59 #2838 [verbose] > │ let v22 : string = "v21.re" │
00:02:59 #2839 [verbose] > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:02:59 #2840 [verbose] > │ let v24 : float = v23 - 0.8673 │
00:02:59 #2841 [verbose] > │ let v25 : float = -v24 │
00:02:59 #2842 [verbose] > │ let v26 : bool = v24 >= v25 │
00:02:59 #2843 [verbose] > │ let v27 : float = │
00:02:59 #2844 [verbose] > │ if v26 then │
00:02:59 #2845 [verbose] > │ v24 │
00:02:59 #2846 [verbose] > │ else │
00:02:59 #2847 [verbose] > │ v25 │
00:02:59 #2848 [verbose] > │ let v28 : string = $"%A{v27}" │
00:02:59 #2849 [verbose] > │ System.Console.WriteLine v28 │
00:02:59 #2850 [verbose] > │ let v29 : bool = v27 < 0.001 │
00:02:59 #2851 [verbose] > │ let v31 : bool = │
00:02:59 #2852 [verbose] > │ if v29 then │
00:02:59 #2853 [verbose] > │ true │
00:02:59 #2854 [verbose] > │ else │
00:02:59 #2855 [verbose] > │ method31(v29) │
00:02:59 #2856 [verbose] > │ let v32 : string = $"__expect / actual: %A{v27} / expected: %A{0.001}" │
00:02:59 #2857 [verbose] > │ let v33 : bool = v31 = false │
00:02:59 #2858 [verbose] > │ if v33 then │
00:02:59 #2859 [verbose] > │ failwith<unit> v32 │
00:02:59 #2860 [verbose] > │ let v34 : num_complex_Complex<float> = method8(v20) │
00:02:59 #2861 [verbose] > │ let v35 : string = "v34.im" │
00:02:59 #2862 [verbose] > │ let v36 : float = Fable.Core.RustInterop.emitRustExpr () v35 │
00:02:59 #2863 [verbose] > │ let v37 : float = v36 - 0.275 │
00:02:59 #2864 [verbose] > │ let v38 : float = -v37 │
00:02:59 #2865 [verbose] > │ let v39 : bool = v37 >= v38 │
00:02:59 #2866 [verbose] > │ let v40 : float = │
00:02:59 #2867 [verbose] > │ if v39 then │
00:02:59 #2868 [verbose] > │ v37 │
00:02:59 #2869 [verbose] > │ else │
00:02:59 #2870 [verbose] > │ v38 │
00:02:59 #2871 [verbose] > │ let v41 : string = $"%A{v40}" │
00:02:59 #2872 [verbose] > │ System.Console.WriteLine v41 │
00:02:59 #2873 [verbose] > │ let v42 : bool = v40 < 0.001 │
00:02:59 #2874 [verbose] > │ let v44 : bool = │
00:02:59 #2875 [verbose] > │ if v42 then │
00:02:59 #2876 [verbose] > │ true │
00:02:59 #2877 [verbose] > │ else │
00:02:59 #2878 [verbose] > │ method31(v42) │
00:02:59 #2879 [verbose] > │ let v45 : string = $"__expect / actual: %A{v40} / expected: %A{0.001}" │
00:02:59 #2880 [verbose] > │ let v46 : bool = v44 = false │
00:02:59 #2881 [verbose] > │ if v46 then │
00:02:59 #2882 [verbose] > │ failwith<unit> v45 │
00:02:59 #2883 [verbose] > │ and method34 () : unit = │
00:02:59 #2884 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:59 #2885 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:59 #2886 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:59 #2887 [verbose] > │ pyo3::PyResult<()> { //" │
00:02:59 #2888 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:59 #2889 [verbose] > │ let v2 : string = "py" │
00:02:59 #2890 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:59 #2891 [verbose] > │ method35(v3) │
00:02:59 #2892 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:59 #2893 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:02:59 #2894 [verbose] > │ let v6 : string = "v5 }})" │
00:02:59 #2895 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:59 #2896 [verbose] > │ let v7 : string = "{ //" │
00:02:59 #2897 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #2898 [verbose] > │ let v8 : string = "__result" │
00:02:59 #2899 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #2900 [verbose] > │ () v8 │
00:02:59 #2901 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:02:59 #2902 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:02:59 #2903 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:02:59 #2904 [verbose] > │ () │
00:02:59 #2905 [verbose] > │ and method38 () : UH0 = │
00:02:59 #2906 [verbose] > │ let v0 : UH0 = UH0_0 │
00:02:59 #2907 [verbose] > │ let v1 : UH0 = UH0_1(-40.0, v0) │
00:02:59 #2908 [verbose] > │ let v2 : UH0 = UH0_1(-38.0, v1) │
00:02:59 #2909 [verbose] > │ let v3 : UH0 = UH0_1(-36.0, v2) │
00:02:59 #2910 [verbose] > │ let v4 : UH0 = UH0_1(-34.0, v3) │
00:02:59 #2911 [verbose] > │ let v5 : UH0 = UH0_1(-32.0, v4) │
00:02:59 #2912 [verbose] > │ let v6 : UH0 = UH0_1(-30.0, v5) │
00:02:59 #2913 [verbose] > │ let v7 : UH0 = UH0_1(-28.0, v6) │
00:02:59 #2914 [verbose] > │ let v8 : UH0 = UH0_1(-26.0, v7) │
00:02:59 #2915 [verbose] > │ let v9 : UH0 = UH0_1(-24.0, v8) │
00:02:59 #2916 [verbose] > │ let v10 : UH0 = UH0_1(-22.0, v9) │
00:02:59 #2917 [verbose] > │ let v11 : UH0 = UH0_1(-20.0, v10) │
00:02:59 #2918 [verbose] > │ let v12 : UH0 = UH0_1(-18.0, v11) │
00:02:59 #2919 [verbose] > │ let v13 : UH0 = UH0_1(-16.0, v12) │
00:02:59 #2920 [verbose] > │ let v14 : UH0 = UH0_1(-14.0, v13) │
00:02:59 #2921 [verbose] > │ let v15 : UH0 = UH0_1(-12.0, v14) │
00:02:59 #2922 [verbose] > │ let v16 : UH0 = UH0_1(-10.0, v15) │
00:02:59 #2923 [verbose] > │ let v17 : UH0 = UH0_1(-8.0, v16) │
00:02:59 #2924 [verbose] > │ let v18 : UH0 = UH0_1(-6.0, v17) │
00:02:59 #2925 [verbose] > │ let v19 : UH0 = UH0_1(-4.0, v18) │
00:02:59 #2926 [verbose] > │ UH0_1(-2.0, v19) │
00:02:59 #2927 [verbose] > │ and method39 (v0 : pyo3_Python, v1 : UH0) : unit = │
00:02:59 #2928 [verbose] > │ match v1 with │
00:02:59 #2929 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:02:59 #2930 [verbose] > │ let v4 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2931 [verbose] > │ let v5 : num_complex_Complex<float> = │
00:02:59 #2932 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v2, 0.0) v4 │
00:02:59 #2933 [verbose] > │ let v6 : string = $" s = mpmath.zeta(s)" │
00:02:59 #2934 [verbose] > │ let v7 : num_complex_Complex<float> = method3(v5) │
00:02:59 #2935 [verbose] > │ let v8 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:59 #2936 [verbose] > │ method4(v0, v6, v7) │
00:02:59 #2937 [verbose] > │ let v9 : num_complex_Complex<float> = method24(v0, v5) │
00:02:59 #2938 [verbose] > │ let v10 : string = "v8.ok()" │
00:02:59 #2939 [verbose] > │ let v11 : num_complex_Complex<float> option = │
00:02:59 #2940 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v10 │
00:02:59 #2941 [verbose] > │ let v12 : (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #2942 [verbose] > │ let v13 : US0 = US0_1 │
00:02:59 #2943 [verbose] > │ let v14 : US0 = v11 |> Option.map v12 |> Option.defaultValue v13 │
00:02:59 #2944 [verbose] > │ let v15 : string = "f64::NAN" │
00:02:59 #2945 [verbose] > │ let v16 : float = Fable.Core.RustInterop.emitRustExpr () v15 │
00:02:59 #2946 [verbose] > │ let v17 : string = "f64::NAN" │
00:02:59 #2947 [verbose] > │ let v18 : float = Fable.Core.RustInterop.emitRustExpr () v17 │
00:02:59 #2948 [verbose] > │ let v19 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #2949 [verbose] > │ let v20 : num_complex_Complex<float> = │
00:02:59 #2950 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v16, v18) v19 │
00:02:59 #2951 [verbose] > │ let v23 : num_complex_Complex<float> = │
00:02:59 #2952 [verbose] > │ match v14 with │
00:02:59 #2953 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #2954 [verbose] > │ v20 │
00:02:59 #2955 [verbose] > │ | US0_0(v21) -> (* Some *) │
00:02:59 #2956 [verbose] > │ v21 │
00:02:59 #2957 [verbose] > │ let v24 : num_complex_Complex<float> = method7(v23) │
00:02:59 #2958 [verbose] > │ let v25 : string = "v24.re" │
00:02:59 #2959 [verbose] > │ let v26 : float = Fable.Core.RustInterop.emitRustExpr () v25 │
00:02:59 #2960 [verbose] > │ let v27 : string = $"%A{v26}" │
00:02:59 #2961 [verbose] > │ System.Console.WriteLine v27 │
00:02:59 #2962 [verbose] > │ let v28 : bool = v26 = 0.0 │
00:02:59 #2963 [verbose] > │ let v30 : bool = │
00:02:59 #2964 [verbose] > │ if v28 then │
00:02:59 #2965 [verbose] > │ true │
00:02:59 #2966 [verbose] > │ else │
00:02:59 #2967 [verbose] > │ method31(v28) │
00:02:59 #2968 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{0.0}" │
00:02:59 #2969 [verbose] > │ let v32 : bool = v30 = false │
00:02:59 #2970 [verbose] > │ if v32 then │
00:02:59 #2971 [verbose] > │ failwith<unit> v31 │
00:02:59 #2972 [verbose] > │ let v33 : num_complex_Complex<float> = method8(v23) │
00:02:59 #2973 [verbose] > │ let v34 : string = "v33.im" │
00:02:59 #2974 [verbose] > │ let v35 : float = Fable.Core.RustInterop.emitRustExpr () v34 │
00:02:59 #2975 [verbose] > │ let v36 : string = $"%A{v35}" │
00:02:59 #2976 [verbose] > │ System.Console.WriteLine v36 │
00:02:59 #2977 [verbose] > │ let v37 : bool = v35 = 0.0 │
00:02:59 #2978 [verbose] > │ let v39 : bool = │
00:02:59 #2979 [verbose] > │ if v37 then │
00:02:59 #2980 [verbose] > │ true │
00:02:59 #2981 [verbose] > │ else │
00:02:59 #2982 [verbose] > │ method31(v37) │
00:02:59 #2983 [verbose] > │ let v40 : string = $"__expect / actual: %A{v35} / expected: %A{0.0}" │
00:02:59 #2984 [verbose] > │ let v41 : bool = v39 = false │
00:02:59 #2985 [verbose] > │ if v41 then │
00:02:59 #2986 [verbose] > │ failwith<unit> v40 │
00:02:59 #2987 [verbose] > │ method39(v0, v3) │
00:02:59 #2988 [verbose] > │ | UH0_0 -> (* Nil *) │
00:02:59 #2989 [verbose] > │ () │
00:02:59 #2990 [verbose] > │ and method37 (v0 : pyo3_Python) : unit = │
00:02:59 #2991 [verbose] > │ let v1 : UH0 = method38() │
00:02:59 #2992 [verbose] > │ method39(v0, v1) │
00:02:59 #2993 [verbose] > │ and method36 () : unit = │
00:02:59 #2994 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:59 #2995 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:59 #2996 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:59 #2997 [verbose] > │ pyo3::PyResult<()> { //" │
00:02:59 #2998 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:59 #2999 [verbose] > │ let v2 : string = "py" │
00:02:59 #3000 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:59 #3001 [verbose] > │ method37(v3) │
00:02:59 #3002 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:59 #3003 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:02:59 #3004 [verbose] > │ let v6 : string = "v5 }})" │
00:02:59 #3005 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:59 #3006 [verbose] > │ let v7 : string = "{ //" │
00:02:59 #3007 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #3008 [verbose] > │ let v8 : string = "__result" │
00:02:59 #3009 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #3010 [verbose] > │ () v8 │
00:02:59 #3011 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:02:59 #3012 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:02:59 #3013 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:02:59 #3014 [verbose] > │ () │
00:02:59 #3015 [verbose] > │ and method41 (v0 : pyo3_Python) : unit = │
00:02:59 #3016 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3017 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:02:59 #3018 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 14.134725) v1 │
00:02:59 #3019 [verbose] > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3020 [verbose] > │ let v4 : num_complex_Complex<float> = │
00:02:59 #3021 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 21.02204) v3 │
00:02:59 #3022 [verbose] > │ let v5 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3023 [verbose] > │ let v6 : num_complex_Complex<float> = │
00:02:59 #3024 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 25.010857) v5 │
00:02:59 #3025 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3026 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:02:59 #3027 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 30.424876) v7 │
00:02:59 #3028 [verbose] > │ let v9 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3029 [verbose] > │ let v10 : num_complex_Complex<float> = │
00:02:59 #3030 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 32.935062) v9 │
00:02:59 #3031 [verbose] > │ let v11 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3032 [verbose] > │ let v12 : num_complex_Complex<float> = │
00:02:59 #3033 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 37.586178) v11 │
00:02:59 #3034 [verbose] > │ let v13 : (num_complex_Complex<float> []) = [|v2; v4; v6; v8; v10; v12|] │
00:02:59 #3035 [verbose] > │ let v14 : int32 = v13.Length │
00:02:59 #3036 [verbose] > │ let v15 : Mut0 = {l0 = 0} : Mut0 │
00:02:59 #3037 [verbose] > │ while method2(v14, v15) do │
00:02:59 #3038 [verbose] > │ let v17 : int32 = v15.l0 │
00:02:59 #3039 [verbose] > │ let v18 : num_complex_Complex<float> = v13.[int v17] │
00:02:59 #3040 [verbose] > │ let v19 : string = $" s = mpmath.zeta(s)" │
00:02:59 #3041 [verbose] > │ let v20 : num_complex_Complex<float> = method3(v18) │
00:02:59 #3042 [verbose] > │ let v21 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:59 #3043 [verbose] > │ method4(v0, v19, v20) │
00:02:59 #3044 [verbose] > │ let v22 : num_complex_Complex<float> = method24(v0, v18) │
00:02:59 #3045 [verbose] > │ let v23 : string = "v21.ok()" │
00:02:59 #3046 [verbose] > │ let v24 : num_complex_Complex<float> option = │
00:02:59 #3047 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v23 │
00:02:59 #3048 [verbose] > │ let v25 : (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #3049 [verbose] > │ let v26 : US0 = US0_1 │
00:02:59 #3050 [verbose] > │ let v27 : US0 = v24 |> Option.map v25 |> Option.defaultValue v26 │
00:02:59 #3051 [verbose] > │ let v28 : string = "f64::NAN" │
00:02:59 #3052 [verbose] > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:02:59 #3053 [verbose] > │ let v30 : string = "f64::NAN" │
00:02:59 #3054 [verbose] > │ let v31 : float = Fable.Core.RustInterop.emitRustExpr () v30 │
00:02:59 #3055 [verbose] > │ let v32 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3056 [verbose] > │ let v33 : num_complex_Complex<float> = │
00:02:59 #3057 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v29, v31) v32 │
00:02:59 #3058 [verbose] > │ let v36 : num_complex_Complex<float> = │
00:02:59 #3059 [verbose] > │ match v27 with │
00:02:59 #3060 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #3061 [verbose] > │ v33 │
00:02:59 #3062 [verbose] > │ | US0_0(v34) -> (* Some *) │
00:02:59 #3063 [verbose] > │ v34 │
00:02:59 #3064 [verbose] > │ let v37 : num_complex_Complex<float> = method7(v36) │
00:02:59 #3065 [verbose] > │ let v38 : string = "v37.re" │
00:02:59 #3066 [verbose] > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:02:59 #3067 [verbose] > │ let v40 : float = -v39 │
00:02:59 #3068 [verbose] > │ let v41 : bool = v39 >= v40 │
00:02:59 #3069 [verbose] > │ let v42 : float = │
00:02:59 #3070 [verbose] > │ if v41 then │
00:02:59 #3071 [verbose] > │ v39 │
00:02:59 #3072 [verbose] > │ else │
00:02:59 #3073 [verbose] > │ v40 │
00:02:59 #3074 [verbose] > │ let v43 : string = $"%A{v42}" │
00:02:59 #3075 [verbose] > │ System.Console.WriteLine v43 │
00:02:59 #3076 [verbose] > │ let v44 : bool = v42 < 0.0001 │
00:02:59 #3077 [verbose] > │ let v46 : bool = │
00:02:59 #3078 [verbose] > │ if v44 then │
00:02:59 #3079 [verbose] > │ true │
00:02:59 #3080 [verbose] > │ else │
00:02:59 #3081 [verbose] > │ method31(v44) │
00:02:59 #3082 [verbose] > │ let v47 : string = $"__expect / actual: %A{v42} / expected: │
00:02:59 #3083 [verbose] > │ %A{0.0001}" │
00:02:59 #3084 [verbose] > │ let v48 : bool = v46 = false │
00:02:59 #3085 [verbose] > │ if v48 then │
00:02:59 #3086 [verbose] > │ failwith<unit> v47 │
00:02:59 #3087 [verbose] > │ let v49 : num_complex_Complex<float> = method8(v36) │
00:02:59 #3088 [verbose] > │ let v50 : string = "v49.im" │
00:02:59 #3089 [verbose] > │ let v51 : float = Fable.Core.RustInterop.emitRustExpr () v50 │
00:02:59 #3090 [verbose] > │ let v52 : float = -v51 │
00:02:59 #3091 [verbose] > │ let v53 : bool = v51 >= v52 │
00:02:59 #3092 [verbose] > │ let v54 : float = │
00:02:59 #3093 [verbose] > │ if v53 then │
00:02:59 #3094 [verbose] > │ v51 │
00:02:59 #3095 [verbose] > │ else │
00:02:59 #3096 [verbose] > │ v52 │
00:02:59 #3097 [verbose] > │ let v55 : string = $"%A{v54}" │
00:02:59 #3098 [verbose] > │ System.Console.WriteLine v55 │
00:02:59 #3099 [verbose] > │ let v56 : bool = v54 < 0.0001 │
00:02:59 #3100 [verbose] > │ let v58 : bool = │
00:02:59 #3101 [verbose] > │ if v56 then │
00:02:59 #3102 [verbose] > │ true │
00:02:59 #3103 [verbose] > │ else │
00:02:59 #3104 [verbose] > │ method31(v56) │
00:02:59 #3105 [verbose] > │ let v59 : string = $"__expect / actual: %A{v54} / expected: │
00:02:59 #3106 [verbose] > │ %A{0.0001}" │
00:02:59 #3107 [verbose] > │ let v60 : bool = v58 = false │
00:02:59 #3108 [verbose] > │ if v60 then │
00:02:59 #3109 [verbose] > │ failwith<unit> v59 │
00:02:59 #3110 [verbose] > │ let v61 : int32 = v17 + 1 │
00:02:59 #3111 [verbose] > │ v15.l0 <- v61 │
00:02:59 #3112 [verbose] > │ () │
00:02:59 #3113 [verbose] > │ () │
00:02:59 #3114 [verbose] > │ and method40 () : unit = │
00:02:59 #3115 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:59 #3116 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:59 #3117 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:59 #3118 [verbose] > │ pyo3::PyResult<()> { //" │
00:02:59 #3119 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:59 #3120 [verbose] > │ let v2 : string = "py" │
00:02:59 #3121 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:59 #3122 [verbose] > │ method41(v3) │
00:02:59 #3123 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:59 #3124 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:02:59 #3125 [verbose] > │ let v6 : string = "v5 }})" │
00:02:59 #3126 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:59 #3127 [verbose] > │ let v7 : string = "{ //" │
00:02:59 #3128 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #3129 [verbose] > │ let v8 : string = "__result" │
00:02:59 #3130 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #3131 [verbose] > │ () v8 │
00:02:59 #3132 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:02:59 #3133 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:02:59 #3134 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:02:59 #3135 [verbose] > │ () │
00:02:59 #3136 [verbose] > │ and method43 (v0 : pyo3_Python) : unit = │
00:02:59 #3137 [verbose] > │ let v1 : (float []) = [|2.0; 3.0; 4.0; 5.0; 10.0; 20.0; 50.0|] │
00:02:59 #3138 [verbose] > │ let v2 : int32 = v1.Length │
00:02:59 #3139 [verbose] > │ let v3 : Mut0 = {l0 = 0} : Mut0 │
00:02:59 #3140 [verbose] > │ while method2(v2, v3) do │
00:02:59 #3141 [verbose] > │ let v5 : int32 = v3.l0 │
00:02:59 #3142 [verbose] > │ let v6 : float = v1.[int v5] │
00:02:59 #3143 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3144 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:02:59 #3145 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v6, 0.0) v7 │
00:02:59 #3146 [verbose] > │ let v9 : string = $" s = mpmath.zeta(s)" │
00:02:59 #3147 [verbose] > │ let v10 : num_complex_Complex<float> = method3(v8) │
00:02:59 #3148 [verbose] > │ let v11 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:59 #3149 [verbose] > │ method4(v0, v9, v10) │
00:02:59 #3150 [verbose] > │ let v12 : num_complex_Complex<float> = method24(v0, v8) │
00:02:59 #3151 [verbose] > │ let v13 : string = "v11.ok()" │
00:02:59 #3152 [verbose] > │ let v14 : num_complex_Complex<float> option = │
00:02:59 #3153 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v13 │
00:02:59 #3154 [verbose] > │ let v15 : (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #3155 [verbose] > │ let v16 : US0 = US0_1 │
00:02:59 #3156 [verbose] > │ let v17 : US0 = v14 |> Option.map v15 |> Option.defaultValue v16 │
00:02:59 #3157 [verbose] > │ let v18 : string = "f64::NAN" │
00:02:59 #3158 [verbose] > │ let v19 : float = Fable.Core.RustInterop.emitRustExpr () v18 │
00:02:59 #3159 [verbose] > │ let v20 : string = "f64::NAN" │
00:02:59 #3160 [verbose] > │ let v21 : float = Fable.Core.RustInterop.emitRustExpr () v20 │
00:02:59 #3161 [verbose] > │ let v22 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3162 [verbose] > │ let v23 : num_complex_Complex<float> = │
00:02:59 #3163 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v19, v21) v22 │
00:02:59 #3164 [verbose] > │ let v26 : num_complex_Complex<float> = │
00:02:59 #3165 [verbose] > │ match v17 with │
00:02:59 #3166 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #3167 [verbose] > │ v23 │
00:02:59 #3168 [verbose] > │ | US0_0(v24) -> (* Some *) │
00:02:59 #3169 [verbose] > │ v24 │
00:02:59 #3170 [verbose] > │ let v27 : num_complex_Complex<float> = method7(v26) │
00:02:59 #3171 [verbose] > │ let v28 : string = "v27.re" │
00:02:59 #3172 [verbose] > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:02:59 #3173 [verbose] > │ let v30 : string = $"%A{v29}" │
00:02:59 #3174 [verbose] > │ System.Console.WriteLine v30 │
00:02:59 #3175 [verbose] > │ let v31 : bool = v29 > 0.0 │
00:02:59 #3176 [verbose] > │ let v33 : bool = │
00:02:59 #3177 [verbose] > │ if v31 then │
00:02:59 #3178 [verbose] > │ true │
00:02:59 #3179 [verbose] > │ else │
00:02:59 #3180 [verbose] > │ method31(v31) │
00:02:59 #3181 [verbose] > │ let v34 : string = $"__expect / actual: %A{v29} / expected: %A{0.0}" │
00:02:59 #3182 [verbose] > │ let v35 : bool = v33 = false │
00:02:59 #3183 [verbose] > │ if v35 then │
00:02:59 #3184 [verbose] > │ failwith<unit> v34 │
00:02:59 #3185 [verbose] > │ let v36 : num_complex_Complex<float> = method8(v26) │
00:02:59 #3186 [verbose] > │ let v37 : string = "v36.im" │
00:02:59 #3187 [verbose] > │ let v38 : float = Fable.Core.RustInterop.emitRustExpr () v37 │
00:02:59 #3188 [verbose] > │ let v39 : string = $"%A{v38}" │
00:02:59 #3189 [verbose] > │ System.Console.WriteLine v39 │
00:02:59 #3190 [verbose] > │ let v40 : bool = v38 = 0.0 │
00:02:59 #3191 [verbose] > │ let v42 : bool = │
00:02:59 #3192 [verbose] > │ if v40 then │
00:02:59 #3193 [verbose] > │ true │
00:02:59 #3194 [verbose] > │ else │
00:02:59 #3195 [verbose] > │ method31(v40) │
00:02:59 #3196 [verbose] > │ let v43 : string = $"__expect / actual: %A{v38} / expected: %A{0.0}" │
00:02:59 #3197 [verbose] > │ let v44 : bool = v42 = false │
00:02:59 #3198 [verbose] > │ if v44 then │
00:02:59 #3199 [verbose] > │ failwith<unit> v43 │
00:02:59 #3200 [verbose] > │ let v45 : int32 = v5 + 1 │
00:02:59 #3201 [verbose] > │ v3.l0 <- v45 │
00:02:59 #3202 [verbose] > │ () │
00:02:59 #3203 [verbose] > │ () │
00:02:59 #3204 [verbose] > │ and method42 () : unit = │
00:02:59 #3205 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:59 #3206 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:59 #3207 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:59 #3208 [verbose] > │ pyo3::PyResult<()> { //" │
00:02:59 #3209 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:59 #3210 [verbose] > │ let v2 : string = "py" │
00:02:59 #3211 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:59 #3212 [verbose] > │ method43(v3) │
00:02:59 #3213 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:59 #3214 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:02:59 #3215 [verbose] > │ let v6 : string = "v5 }})" │
00:02:59 #3216 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:59 #3217 [verbose] > │ let v7 : string = "{ //" │
00:02:59 #3218 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #3219 [verbose] > │ let v8 : string = "__result" │
00:02:59 #3220 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #3221 [verbose] > │ () v8 │
00:02:59 #3222 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:02:59 #3223 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:02:59 #3224 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:02:59 #3225 [verbose] > │ () │
00:02:59 #3226 [verbose] > │ and method45 (v0 : pyo3_Python) : unit = │
00:02:59 #3227 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3228 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:02:59 #3229 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v1 │
00:02:59 #3230 [verbose] > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:02:59 #3231 [verbose] > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:02:59 #3232 [verbose] > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:59 #3233 [verbose] > │ method4(v0, v3, v4) │
00:02:59 #3234 [verbose] > │ let v6 : num_complex_Complex<float> = method24(v0, v2) │
00:02:59 #3235 [verbose] > │ let v7 : string = "v5.ok()" │
00:02:59 #3236 [verbose] > │ let v8 : num_complex_Complex<float> option = │
00:02:59 #3237 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #3238 [verbose] > │ let v9 : (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #3239 [verbose] > │ let v10 : US0 = US0_1 │
00:02:59 #3240 [verbose] > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:02:59 #3241 [verbose] > │ let v12 : string = "f64::NAN" │
00:02:59 #3242 [verbose] > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:02:59 #3243 [verbose] > │ let v14 : string = "f64::NAN" │
00:02:59 #3244 [verbose] > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:02:59 #3245 [verbose] > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3246 [verbose] > │ let v17 : num_complex_Complex<float> = │
00:02:59 #3247 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:02:59 #3248 [verbose] > │ let v20 : num_complex_Complex<float> = │
00:02:59 #3249 [verbose] > │ match v11 with │
00:02:59 #3250 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #3251 [verbose] > │ v17 │
00:02:59 #3252 [verbose] > │ | US0_0(v18) -> (* Some *) │
00:02:59 #3253 [verbose] > │ v18 │
00:02:59 #3254 [verbose] > │ let v21 : num_complex_Complex<float> = method7(v20) │
00:02:59 #3255 [verbose] > │ let v22 : string = "v21.re" │
00:02:59 #3256 [verbose] > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:02:59 #3257 [verbose] > │ let v24 : string = $"%A{v23}" │
00:02:59 #3258 [verbose] > │ System.Console.WriteLine v24 │
00:02:59 #3259 [verbose] > │ let v25 : bool = v23 = infinity │
00:02:59 #3260 [verbose] > │ let v27 : bool = │
00:02:59 #3261 [verbose] > │ if v25 then │
00:02:59 #3262 [verbose] > │ true │
00:02:59 #3263 [verbose] > │ else │
00:02:59 #3264 [verbose] > │ method31(v25) │
00:02:59 #3265 [verbose] > │ let v28 : string = $"__expect / actual: %A{v23} / expected: │
00:02:59 #3266 [verbose] > │ %A{infinity}" │
00:02:59 #3267 [verbose] > │ let v29 : bool = v27 = false │
00:02:59 #3268 [verbose] > │ if v29 then │
00:02:59 #3269 [verbose] > │ failwith<unit> v28 │
00:02:59 #3270 [verbose] > │ let v30 : num_complex_Complex<float> = method8(v20) │
00:02:59 #3271 [verbose] > │ let v31 : string = "v30.im" │
00:02:59 #3272 [verbose] > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:02:59 #3273 [verbose] > │ let v33 : string = $"%A{v32}" │
00:02:59 #3274 [verbose] > │ System.Console.WriteLine v33 │
00:02:59 #3275 [verbose] > │ let v34 : bool = v32 = 0.0 │
00:02:59 #3276 [verbose] > │ let v36 : bool = │
00:02:59 #3277 [verbose] > │ if v34 then │
00:02:59 #3278 [verbose] > │ true │
00:02:59 #3279 [verbose] > │ else │
00:02:59 #3280 [verbose] > │ method31(v34) │
00:02:59 #3281 [verbose] > │ let v37 : string = $"__expect / actual: %A{v32} / expected: %A{0.0}" │
00:02:59 #3282 [verbose] > │ let v38 : bool = v36 = false │
00:02:59 #3283 [verbose] > │ if v38 then │
00:02:59 #3284 [verbose] > │ failwith<unit> v37 │
00:02:59 #3285 [verbose] > │ and method44 () : unit = │
00:02:59 #3286 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:59 #3287 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:59 #3288 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:59 #3289 [verbose] > │ pyo3::PyResult<()> { //" │
00:02:59 #3290 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:59 #3291 [verbose] > │ let v2 : string = "py" │
00:02:59 #3292 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:59 #3293 [verbose] > │ method45(v3) │
00:02:59 #3294 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:59 #3295 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:02:59 #3296 [verbose] > │ let v6 : string = "v5 }})" │
00:02:59 #3297 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:59 #3298 [verbose] > │ let v7 : string = "{ //" │
00:02:59 #3299 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #3300 [verbose] > │ let v8 : string = "__result" │
00:02:59 #3301 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #3302 [verbose] > │ () v8 │
00:02:59 #3303 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:02:59 #3304 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:02:59 #3305 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:02:59 #3306 [verbose] > │ () │
00:02:59 #3307 [verbose] > │ and method47 (v0 : pyo3_Python) : unit = │
00:02:59 #3308 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3309 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:02:59 #3310 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 10.0) v1 │
00:02:59 #3311 [verbose] > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:02:59 #3312 [verbose] > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:02:59 #3313 [verbose] > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:59 #3314 [verbose] > │ method4(v0, v3, v4) │
00:02:59 #3315 [verbose] > │ let v6 : num_complex_Complex<float> = method24(v0, v2) │
00:02:59 #3316 [verbose] > │ let v7 : string = "v5.ok()" │
00:02:59 #3317 [verbose] > │ let v8 : num_complex_Complex<float> option = │
00:02:59 #3318 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #3319 [verbose] > │ let v9 : (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #3320 [verbose] > │ let v10 : US0 = US0_1 │
00:02:59 #3321 [verbose] > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:02:59 #3322 [verbose] > │ let v12 : string = "f64::NAN" │
00:02:59 #3323 [verbose] > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:02:59 #3324 [verbose] > │ let v14 : string = "f64::NAN" │
00:02:59 #3325 [verbose] > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:02:59 #3326 [verbose] > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3327 [verbose] > │ let v17 : num_complex_Complex<float> = │
00:02:59 #3328 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:02:59 #3329 [verbose] > │ let v20 : num_complex_Complex<float> = │
00:02:59 #3330 [verbose] > │ match v11 with │
00:02:59 #3331 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #3332 [verbose] > │ v17 │
00:02:59 #3333 [verbose] > │ | US0_0(v18) -> (* Some *) │
00:02:59 #3334 [verbose] > │ v18 │
00:02:59 #3335 [verbose] > │ let v21 : num_complex_Complex<float> = method7(v2) │
00:02:59 #3336 [verbose] > │ let v22 : string = "v21.re" │
00:02:59 #3337 [verbose] > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:02:59 #3338 [verbose] > │ let v24 : num_complex_Complex<float> = method8(v2) │
00:02:59 #3339 [verbose] > │ let v25 : string = "v24.im" │
00:02:59 #3340 [verbose] > │ let v26 : float = Fable.Core.RustInterop.emitRustExpr () v25 │
00:02:59 #3341 [verbose] > │ let v27 : float = -v26 │
00:02:59 #3342 [verbose] > │ let v28 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3343 [verbose] > │ let v29 : num_complex_Complex<float> = │
00:02:59 #3344 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v23, v27) v28 │
00:02:59 #3345 [verbose] > │ let v30 : string = $" s = mpmath.zeta(s)" │
00:02:59 #3346 [verbose] > │ let v31 : num_complex_Complex<float> = method3(v29) │
00:02:59 #3347 [verbose] > │ let v32 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:59 #3348 [verbose] > │ method4(v0, v30, v31) │
00:02:59 #3349 [verbose] > │ let v33 : num_complex_Complex<float> = method24(v0, v29) │
00:02:59 #3350 [verbose] > │ let v34 : string = "v32.ok()" │
00:02:59 #3351 [verbose] > │ let v35 : num_complex_Complex<float> option = │
00:02:59 #3352 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v34 │
00:02:59 #3353 [verbose] > │ let v36 : (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #3354 [verbose] > │ let v37 : US0 = US0_1 │
00:02:59 #3355 [verbose] > │ let v38 : US0 = v35 |> Option.map v36 |> Option.defaultValue v37 │
00:02:59 #3356 [verbose] > │ let v39 : string = "f64::NAN" │
00:02:59 #3357 [verbose] > │ let v40 : float = Fable.Core.RustInterop.emitRustExpr () v39 │
00:02:59 #3358 [verbose] > │ let v41 : string = "f64::NAN" │
00:02:59 #3359 [verbose] > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:02:59 #3360 [verbose] > │ let v43 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3361 [verbose] > │ let v44 : num_complex_Complex<float> = │
00:02:59 #3362 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v40, v42) v43 │
00:02:59 #3363 [verbose] > │ let v47 : num_complex_Complex<float> = │
00:02:59 #3364 [verbose] > │ match v38 with │
00:02:59 #3365 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #3366 [verbose] > │ v44 │
00:02:59 #3367 [verbose] > │ | US0_0(v45) -> (* Some *) │
00:02:59 #3368 [verbose] > │ v45 │
00:02:59 #3369 [verbose] > │ let v48 : string = "v47.conj()" │
00:02:59 #3370 [verbose] > │ let v49 : num_complex_Complex<float> = │
00:02:59 #3371 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v48 │
00:02:59 #3372 [verbose] > │ let v50 : num_complex_Complex<float> = method7(v20) │
00:02:59 #3373 [verbose] > │ let v51 : string = "v50.re" │
00:02:59 #3374 [verbose] > │ let v52 : float = Fable.Core.RustInterop.emitRustExpr () v51 │
00:02:59 #3375 [verbose] > │ let v53 : num_complex_Complex<float> = method7(v49) │
00:02:59 #3376 [verbose] > │ let v54 : string = "v53.re" │
00:02:59 #3377 [verbose] > │ let v55 : float = Fable.Core.RustInterop.emitRustExpr () v54 │
00:02:59 #3378 [verbose] > │ let v56 : string = $"%A{v52}" │
00:02:59 #3379 [verbose] > │ System.Console.WriteLine v56 │
00:02:59 #3380 [verbose] > │ let v57 : bool = v52 = v55 │
00:02:59 #3381 [verbose] > │ let v59 : bool = │
00:02:59 #3382 [verbose] > │ if v57 then │
00:02:59 #3383 [verbose] > │ true │
00:02:59 #3384 [verbose] > │ else │
00:02:59 #3385 [verbose] > │ method31(v57) │
00:02:59 #3386 [verbose] > │ let v60 : string = $"__expect / actual: %A{v52} / expected: %A{v55}" │
00:02:59 #3387 [verbose] > │ let v61 : bool = v59 = false │
00:02:59 #3388 [verbose] > │ if v61 then │
00:02:59 #3389 [verbose] > │ failwith<unit> v60 │
00:02:59 #3390 [verbose] > │ let v62 : num_complex_Complex<float> = method8(v20) │
00:02:59 #3391 [verbose] > │ let v63 : string = "v62.im" │
00:02:59 #3392 [verbose] > │ let v64 : float = Fable.Core.RustInterop.emitRustExpr () v63 │
00:02:59 #3393 [verbose] > │ let v65 : num_complex_Complex<float> = method8(v49) │
00:02:59 #3394 [verbose] > │ let v66 : string = "v65.im" │
00:02:59 #3395 [verbose] > │ let v67 : float = Fable.Core.RustInterop.emitRustExpr () v66 │
00:02:59 #3396 [verbose] > │ let v68 : string = $"%A{v64}" │
00:02:59 #3397 [verbose] > │ System.Console.WriteLine v68 │
00:02:59 #3398 [verbose] > │ let v69 : bool = v64 = v67 │
00:02:59 #3399 [verbose] > │ let v71 : bool = │
00:02:59 #3400 [verbose] > │ if v69 then │
00:02:59 #3401 [verbose] > │ true │
00:02:59 #3402 [verbose] > │ else │
00:02:59 #3403 [verbose] > │ method31(v69) │
00:02:59 #3404 [verbose] > │ let v72 : string = $"__expect / actual: %A{v64} / expected: %A{v67}" │
00:02:59 #3405 [verbose] > │ let v73 : bool = v71 = false │
00:02:59 #3406 [verbose] > │ if v73 then │
00:02:59 #3407 [verbose] > │ failwith<unit> v72 │
00:02:59 #3408 [verbose] > │ and method46 () : unit = │
00:02:59 #3409 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:59 #3410 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:59 #3411 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:59 #3412 [verbose] > │ pyo3::PyResult<()> { //" │
00:02:59 #3413 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:59 #3414 [verbose] > │ let v2 : string = "py" │
00:02:59 #3415 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:59 #3416 [verbose] > │ method47(v3) │
00:02:59 #3417 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:59 #3418 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:02:59 #3419 [verbose] > │ let v6 : string = "v5 }})" │
00:02:59 #3420 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:59 #3421 [verbose] > │ let v7 : string = "{ //" │
00:02:59 #3422 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #3423 [verbose] > │ let v8 : string = "__result" │
00:02:59 #3424 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #3425 [verbose] > │ () v8 │
00:02:59 #3426 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:02:59 #3427 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:02:59 #3428 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:02:59 #3429 [verbose] > │ () │
00:02:59 #3430 [verbose] > │ and method49 (v0 : pyo3_Python) : unit = │
00:02:59 #3431 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3432 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:02:59 #3433 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.01, 0.01) v1 │
00:02:59 #3434 [verbose] > │ let v3 : string = $" s = mpmath.zeta(s)" │
00:02:59 #3435 [verbose] > │ let v4 : num_complex_Complex<float> = method3(v2) │
00:02:59 #3436 [verbose] > │ let v5 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:59 #3437 [verbose] > │ method4(v0, v3, v4) │
00:02:59 #3438 [verbose] > │ let v6 : num_complex_Complex<float> = method24(v0, v2) │
00:02:59 #3439 [verbose] > │ let v7 : string = "v5.ok()" │
00:02:59 #3440 [verbose] > │ let v8 : num_complex_Complex<float> option = │
00:02:59 #3441 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #3442 [verbose] > │ let v9 : (num_complex_Complex<float> -> US0) = method30() │
00:02:59 #3443 [verbose] > │ let v10 : US0 = US0_1 │
00:02:59 #3444 [verbose] > │ let v11 : US0 = v8 |> Option.map v9 |> Option.defaultValue v10 │
00:02:59 #3445 [verbose] > │ let v12 : string = "f64::NAN" │
00:02:59 #3446 [verbose] > │ let v13 : float = Fable.Core.RustInterop.emitRustExpr () v12 │
00:02:59 #3447 [verbose] > │ let v14 : string = "f64::NAN" │
00:02:59 #3448 [verbose] > │ let v15 : float = Fable.Core.RustInterop.emitRustExpr () v14 │
00:02:59 #3449 [verbose] > │ let v16 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3450 [verbose] > │ let v17 : num_complex_Complex<float> = │
00:02:59 #3451 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v13, v15) v16 │
00:02:59 #3452 [verbose] > │ let v20 : num_complex_Complex<float> = │
00:02:59 #3453 [verbose] > │ match v11 with │
00:02:59 #3454 [verbose] > │ | US0_1 -> (* None *) │
00:02:59 #3455 [verbose] > │ v17 │
00:02:59 #3456 [verbose] > │ | US0_0(v18) -> (* Some *) │
00:02:59 #3457 [verbose] > │ v18 │
00:02:59 #3458 [verbose] > │ let v21 : num_complex_Complex<float> = method7(v20) │
00:02:59 #3459 [verbose] > │ let v22 : string = "v21.re" │
00:02:59 #3460 [verbose] > │ let v23 : float = Fable.Core.RustInterop.emitRustExpr () v22 │
00:02:59 #3461 [verbose] > │ let v24 : string = $"%A{v23}" │
00:02:59 #3462 [verbose] > │ System.Console.WriteLine v24 │
00:02:59 #3463 [verbose] > │ let v25 : bool = v23 < infinity │
00:02:59 #3464 [verbose] > │ let v27 : bool = │
00:02:59 #3465 [verbose] > │ if v25 then │
00:02:59 #3466 [verbose] > │ true │
00:02:59 #3467 [verbose] > │ else │
00:02:59 #3468 [verbose] > │ method31(v25) │
00:02:59 #3469 [verbose] > │ let v28 : string = $"__expect / actual: %A{v23} / expected: │
00:02:59 #3470 [verbose] > │ %A{infinity}" │
00:02:59 #3471 [verbose] > │ let v29 : bool = v27 = false │
00:02:59 #3472 [verbose] > │ if v29 then │
00:02:59 #3473 [verbose] > │ failwith<unit> v28 │
00:02:59 #3474 [verbose] > │ let v30 : num_complex_Complex<float> = method8(v20) │
00:02:59 #3475 [verbose] > │ let v31 : string = "v30.im" │
00:02:59 #3476 [verbose] > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:02:59 #3477 [verbose] > │ let v33 : string = $"%A{v32}" │
00:02:59 #3478 [verbose] > │ System.Console.WriteLine v33 │
00:02:59 #3479 [verbose] > │ let v34 : bool = v32 < infinity │
00:02:59 #3480 [verbose] > │ let v36 : bool = │
00:02:59 #3481 [verbose] > │ if v34 then │
00:02:59 #3482 [verbose] > │ true │
00:02:59 #3483 [verbose] > │ else │
00:02:59 #3484 [verbose] > │ method31(v34) │
00:02:59 #3485 [verbose] > │ let v37 : string = $"__expect / actual: %A{v32} / expected: │
00:02:59 #3486 [verbose] > │ %A{infinity}" │
00:02:59 #3487 [verbose] > │ let v38 : bool = v36 = false │
00:02:59 #3488 [verbose] > │ if v38 then │
00:02:59 #3489 [verbose] > │ failwith<unit> v37 │
00:02:59 #3490 [verbose] > │ and method48 () : unit = │
00:02:59 #3491 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:02:59 #3492 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:02:59 #3493 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:02:59 #3494 [verbose] > │ pyo3::PyResult<()> { //" │
00:02:59 #3495 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:02:59 #3496 [verbose] > │ let v2 : string = "py" │
00:02:59 #3497 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:02:59 #3498 [verbose] > │ method49(v3) │
00:02:59 #3499 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:02:59 #3500 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:02:59 #3501 [verbose] > │ let v6 : string = "v5 }})" │
00:02:59 #3502 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:02:59 #3503 [verbose] > │ let v7 : string = "{ //" │
00:02:59 #3504 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:02:59 #3505 [verbose] > │ let v8 : string = "__result" │
00:02:59 #3506 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:02:59 #3507 [verbose] > │ () v8 │
00:02:59 #3508 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:02:59 #3509 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:02:59 #3510 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:02:59 #3511 [verbose] > │ () │
00:02:59 #3512 [verbose] > │ and method52 () : (float []) = │
00:02:59 #3513 [verbose] > │ let v0 : (float []) = [|10.0; 20.0; 30.0; 40.0; 50.0; 60.0; 70.0; 80.0; │
00:02:59 #3514 [verbose] > │ 90.0; 100.0|] │
00:02:59 #3515 [verbose] > │ v0 │
00:02:59 #3516 [verbose] > │ and method53 (v0 : bool) : bool = │
00:02:59 #3517 [verbose] > │ let v1 : bool = v0 = false │
00:02:59 #3518 [verbose] > │ v1 │
00:02:59 #3519 [verbose] > │ and method51 (v0 : pyo3_Python) : unit = │
00:02:59 #3520 [verbose] > │ let v1 : (float []) = method52() │
00:02:59 #3521 [verbose] > │ let v2 : int32 = v1.Length │
00:02:59 #3522 [verbose] > │ let v3 : Mut0 = {l0 = 0} : Mut0 │
00:02:59 #3523 [verbose] > │ while method2(v2, v3) do │
00:02:59 #3524 [verbose] > │ let v5 : int32 = v3.l0 │
00:02:59 #3525 [verbose] > │ let v6 : float = v1.[int v5] │
00:02:59 #3526 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:02:59 #3527 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:02:59 #3528 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.0, v6) v7 │
00:02:59 #3529 [verbose] > │ let v9 : string = $" s = mpmath.zeta(s)" │
00:02:59 #3530 [verbose] > │ let v10 : num_complex_Complex<float> = method3(v8) │
00:02:59 #3531 [verbose] > │ let v11 : Result<num_complex_Complex<float>, std_string_String> = │
00:02:59 #3532 [verbose] > │ method4(v0, v9, v10) │
00:02:59 #3533 [verbose] > │ let v12 : num_complex_Complex<float> = method24(v0, v8) │
00:03:00 #3534 [verbose] > │ let v13 : string = "v11.ok()" │
00:03:00 #3535 [verbose] > │ let v14 : num_complex_Complex<float> option = │
00:03:00 #3536 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v13 │
00:03:00 #3537 [verbose] > │ let v15 : (num_complex_Complex<float> -> US0) = method30() │
00:03:00 #3538 [verbose] > │ let v16 : US0 = US0_1 │
00:03:00 #3539 [verbose] > │ let v17 : US0 = v14 |> Option.map v15 |> Option.defaultValue v16 │
00:03:00 #3540 [verbose] > │ let v18 : string = "f64::NAN" │
00:03:00 #3541 [verbose] > │ let v19 : float = Fable.Core.RustInterop.emitRustExpr () v18 │
00:03:00 #3542 [verbose] > │ let v20 : string = "f64::NAN" │
00:03:00 #3543 [verbose] > │ let v21 : float = Fable.Core.RustInterop.emitRustExpr () v20 │
00:03:00 #3544 [verbose] > │ let v22 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3545 [verbose] > │ let v23 : num_complex_Complex<float> = │
00:03:00 #3546 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v19, v21) v22 │
00:03:00 #3547 [verbose] > │ let v26 : num_complex_Complex<float> = │
00:03:00 #3548 [verbose] > │ match v17 with │
00:03:00 #3549 [verbose] > │ | US0_1 -> (* None *) │
00:03:00 #3550 [verbose] > │ v23 │
00:03:00 #3551 [verbose] > │ | US0_0(v24) -> (* Some *) │
00:03:00 #3552 [verbose] > │ v24 │
00:03:00 #3553 [verbose] > │ let v27 : num_complex_Complex<float> = method7(v26) │
00:03:00 #3554 [verbose] > │ let v28 : string = "v27.re" │
00:03:00 #3555 [verbose] > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:03:00 #3556 [verbose] > │ let v30 : string = $"%A{v29}" │
00:03:00 #3557 [verbose] > │ System.Console.WriteLine v30 │
00:03:00 #3558 [verbose] > │ let v31 : bool = v29 = 0.0 │
00:03:00 #3559 [verbose] > │ let v32 : bool = method53(v31) │
00:03:00 #3560 [verbose] > │ let v34 : bool = │
00:03:00 #3561 [verbose] > │ if v32 then │
00:03:00 #3562 [verbose] > │ true │
00:03:00 #3563 [verbose] > │ else │
00:03:00 #3564 [verbose] > │ method31(v32) │
00:03:00 #3565 [verbose] > │ let v35 : string = $"__expect / actual: %A{v29} / expected: %A{0.0}" │
00:03:00 #3566 [verbose] > │ let v36 : bool = v34 = false │
00:03:00 #3567 [verbose] > │ if v36 then │
00:03:00 #3568 [verbose] > │ failwith<unit> v35 │
00:03:00 #3569 [verbose] > │ let v37 : num_complex_Complex<float> = method8(v26) │
00:03:00 #3570 [verbose] > │ let v38 : string = "v37.im" │
00:03:00 #3571 [verbose] > │ let v39 : float = Fable.Core.RustInterop.emitRustExpr () v38 │
00:03:00 #3572 [verbose] > │ let v40 : string = $"%A{v39}" │
00:03:00 #3573 [verbose] > │ System.Console.WriteLine v40 │
00:03:00 #3574 [verbose] > │ let v41 : bool = v39 = 0.0 │
00:03:00 #3575 [verbose] > │ let v42 : bool = method53(v41) │
00:03:00 #3576 [verbose] > │ let v44 : bool = │
00:03:00 #3577 [verbose] > │ if v42 then │
00:03:00 #3578 [verbose] > │ true │
00:03:00 #3579 [verbose] > │ else │
00:03:00 #3580 [verbose] > │ method31(v42) │
00:03:00 #3581 [verbose] > │ let v45 : string = $"__expect / actual: %A{v39} / expected: %A{0.0}" │
00:03:00 #3582 [verbose] > │ let v46 : bool = v44 = false │
00:03:00 #3583 [verbose] > │ if v46 then │
00:03:00 #3584 [verbose] > │ failwith<unit> v45 │
00:03:00 #3585 [verbose] > │ let v47 : int32 = v5 + 1 │
00:03:00 #3586 [verbose] > │ v3.l0 <- v47 │
00:03:00 #3587 [verbose] > │ () │
00:03:00 #3588 [verbose] > │ () │
00:03:00 #3589 [verbose] > │ and method50 () : unit = │
00:03:00 #3590 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:03:00 #3591 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:03:00 #3592 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:03:00 #3593 [verbose] > │ pyo3::PyResult<()> { //" │
00:03:00 #3594 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:03:00 #3595 [verbose] > │ let v2 : string = "py" │
00:03:00 #3596 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:03:00 #3597 [verbose] > │ method51(v3) │
00:03:00 #3598 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:03:00 #3599 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:03:00 #3600 [verbose] > │ let v6 : string = "v5 }})" │
00:03:00 #3601 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:03:00 #3602 [verbose] > │ let v7 : string = "{ //" │
00:03:00 #3603 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:03:00 #3604 [verbose] > │ let v8 : string = "__result" │
00:03:00 #3605 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:03:00 #3606 [verbose] > │ () v8 │
00:03:00 #3607 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:03:00 #3608 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:03:00 #3609 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:03:00 #3610 [verbose] > │ () │
00:03:00 #3611 [verbose] > │ and method55 (v0 : pyo3_Python) : unit = │
00:03:00 #3612 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3613 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:03:00 #3614 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 14.134725) v1 │
00:03:00 #3615 [verbose] > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3616 [verbose] > │ let v4 : num_complex_Complex<float> = │
00:03:00 #3617 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.75, 20.5) v3 │
00:03:00 #3618 [verbose] > │ let v5 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3619 [verbose] > │ let v6 : num_complex_Complex<float> = │
00:03:00 #3620 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.25, 30.1) v5 │
00:03:00 #3621 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3622 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:03:00 #3623 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.25, 40.0) v7 │
00:03:00 #3624 [verbose] > │ let v9 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3625 [verbose] > │ let v10 : num_complex_Complex<float> = │
00:03:00 #3626 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 50.0) v9 │
00:03:00 #3627 [verbose] > │ let v11 : (num_complex_Complex<float> []) = [|v2; v4; v6; v8; v10|] │
00:03:00 #3628 [verbose] > │ let v12 : int32 = v11.Length │
00:03:00 #3629 [verbose] > │ let v13 : Mut0 = {l0 = 0} : Mut0 │
00:03:00 #3630 [verbose] > │ while method2(v12, v13) do │
00:03:00 #3631 [verbose] > │ let v15 : int32 = v13.l0 │
00:03:00 #3632 [verbose] > │ let v16 : num_complex_Complex<float> = v11.[int v15] │
00:03:00 #3633 [verbose] > │ let v17 : string = $" s = mpmath.zeta(s)" │
00:03:00 #3634 [verbose] > │ let v18 : num_complex_Complex<float> = method3(v16) │
00:03:00 #3635 [verbose] > │ let v19 : Result<num_complex_Complex<float>, std_string_String> = │
00:03:00 #3636 [verbose] > │ method4(v0, v17, v18) │
00:03:00 #3637 [verbose] > │ let v20 : num_complex_Complex<float> = method24(v0, v16) │
00:03:00 #3638 [verbose] > │ let v21 : string = "v19.ok()" │
00:03:00 #3639 [verbose] > │ let v22 : num_complex_Complex<float> option = │
00:03:00 #3640 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v21 │
00:03:00 #3641 [verbose] > │ let v23 : (num_complex_Complex<float> -> US0) = method30() │
00:03:00 #3642 [verbose] > │ let v24 : US0 = US0_1 │
00:03:00 #3643 [verbose] > │ let v25 : US0 = v22 |> Option.map v23 |> Option.defaultValue v24 │
00:03:00 #3644 [verbose] > │ let v26 : string = "f64::NAN" │
00:03:00 #3645 [verbose] > │ let v27 : float = Fable.Core.RustInterop.emitRustExpr () v26 │
00:03:00 #3646 [verbose] > │ let v28 : string = "f64::NAN" │
00:03:00 #3647 [verbose] > │ let v29 : float = Fable.Core.RustInterop.emitRustExpr () v28 │
00:03:00 #3648 [verbose] > │ let v30 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3649 [verbose] > │ let v31 : num_complex_Complex<float> = │
00:03:00 #3650 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v27, v29) v30 │
00:03:00 #3651 [verbose] > │ let v34 : num_complex_Complex<float> = │
00:03:00 #3652 [verbose] > │ match v25 with │
00:03:00 #3653 [verbose] > │ | US0_1 -> (* None *) │
00:03:00 #3654 [verbose] > │ v31 │
00:03:00 #3655 [verbose] > │ | US0_0(v32) -> (* Some *) │
00:03:00 #3656 [verbose] > │ v32 │
00:03:00 #3657 [verbose] > │ let v35 : num_complex_Complex<float> = method7(v34) │
00:03:00 #3658 [verbose] > │ let v36 : string = "v35.re" │
00:03:00 #3659 [verbose] > │ let v37 : float = Fable.Core.RustInterop.emitRustExpr () v36 │
00:03:00 #3660 [verbose] > │ let v38 : string = $"%A{v37}" │
00:03:00 #3661 [verbose] > │ System.Console.WriteLine v38 │
00:03:00 #3662 [verbose] > │ let v39 : bool = v37 = 0.0 │
00:03:00 #3663 [verbose] > │ let v40 : bool = method53(v39) │
00:03:00 #3664 [verbose] > │ let v42 : bool = │
00:03:00 #3665 [verbose] > │ if v40 then │
00:03:00 #3666 [verbose] > │ true │
00:03:00 #3667 [verbose] > │ else │
00:03:00 #3668 [verbose] > │ method31(v40) │
00:03:00 #3669 [verbose] > │ let v43 : string = $"__expect / actual: %A{v37} / expected: %A{0.0}" │
00:03:00 #3670 [verbose] > │ let v44 : bool = v42 = false │
00:03:00 #3671 [verbose] > │ if v44 then │
00:03:00 #3672 [verbose] > │ failwith<unit> v43 │
00:03:00 #3673 [verbose] > │ let v45 : num_complex_Complex<float> = method8(v34) │
00:03:00 #3674 [verbose] > │ let v46 : string = "v45.im" │
00:03:00 #3675 [verbose] > │ let v47 : float = Fable.Core.RustInterop.emitRustExpr () v46 │
00:03:00 #3676 [verbose] > │ let v48 : string = $"%A{v47}" │
00:03:00 #3677 [verbose] > │ System.Console.WriteLine v48 │
00:03:00 #3678 [verbose] > │ let v49 : bool = v47 = 0.0 │
00:03:00 #3679 [verbose] > │ let v50 : bool = method53(v49) │
00:03:00 #3680 [verbose] > │ let v52 : bool = │
00:03:00 #3681 [verbose] > │ if v50 then │
00:03:00 #3682 [verbose] > │ true │
00:03:00 #3683 [verbose] > │ else │
00:03:00 #3684 [verbose] > │ method31(v50) │
00:03:00 #3685 [verbose] > │ let v53 : string = $"__expect / actual: %A{v47} / expected: %A{0.0}" │
00:03:00 #3686 [verbose] > │ let v54 : bool = v52 = false │
00:03:00 #3687 [verbose] > │ if v54 then │
00:03:00 #3688 [verbose] > │ failwith<unit> v53 │
00:03:00 #3689 [verbose] > │ let v55 : int32 = v15 + 1 │
00:03:00 #3690 [verbose] > │ v13.l0 <- v55 │
00:03:00 #3691 [verbose] > │ () │
00:03:00 #3692 [verbose] > │ () │
00:03:00 #3693 [verbose] > │ and method54 () : unit = │
00:03:00 #3694 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:03:00 #3695 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:03:00 #3696 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:03:00 #3697 [verbose] > │ pyo3::PyResult<()> { //" │
00:03:00 #3698 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:03:00 #3699 [verbose] > │ let v2 : string = "py" │
00:03:00 #3700 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:03:00 #3701 [verbose] > │ method55(v3) │
00:03:00 #3702 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:03:00 #3703 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:03:00 #3704 [verbose] > │ let v6 : string = "v5 }})" │
00:03:00 #3705 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:03:00 #3706 [verbose] > │ let v7 : string = "{ //" │
00:03:00 #3707 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:03:00 #3708 [verbose] > │ let v8 : string = "__result" │
00:03:00 #3709 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:03:00 #3710 [verbose] > │ () v8 │
00:03:00 #3711 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:03:00 #3712 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:03:00 #3713 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:03:00 #3714 [verbose] > │ () │
00:03:00 #3715 [verbose] > │ and method57 (v0 : pyo3_Python) : unit = │
00:03:00 #3716 [verbose] > │ let v1 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3717 [verbose] > │ let v2 : num_complex_Complex<float> = │
00:03:00 #3718 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.0, 4.0) v1 │
00:03:00 #3719 [verbose] > │ let v3 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3720 [verbose] > │ let v4 : num_complex_Complex<float> = │
00:03:00 #3721 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.5, -3.5) v3 │
00:03:00 #3722 [verbose] > │ let v5 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3723 [verbose] > │ let v6 : num_complex_Complex<float> = │
00:03:00 #3724 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.5, 2.5) v5 │
00:03:00 #3725 [verbose] > │ let v7 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3726 [verbose] > │ let v8 : num_complex_Complex<float> = │
00:03:00 #3727 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (0.5, 14.134725) v7 │
00:03:00 #3728 [verbose] > │ let v9 : (num_complex_Complex<float> []) = [|v2; v4; v6; v8|] │
00:03:00 #3729 [verbose] > │ let v10 : int32 = v9.Length │
00:03:00 #3730 [verbose] > │ let v11 : Mut0 = {l0 = 0} : Mut0 │
00:03:00 #3731 [verbose] > │ while method2(v10, v11) do │
00:03:00 #3732 [verbose] > │ let v13 : int32 = v11.l0 │
00:03:00 #3733 [verbose] > │ let v14 : num_complex_Complex<float> = v9.[int v13] │
00:03:00 #3734 [verbose] > │ let v15 : string = $" s = mpmath.zeta(s)" │
00:03:00 #3735 [verbose] > │ let v16 : num_complex_Complex<float> = method3(v14) │
00:03:00 #3736 [verbose] > │ let v17 : Result<num_complex_Complex<float>, std_string_String> = │
00:03:00 #3737 [verbose] > │ method4(v0, v15, v16) │
00:03:00 #3738 [verbose] > │ let v18 : num_complex_Complex<float> = method24(v0, v14) │
00:03:00 #3739 [verbose] > │ let v19 : string = "v17.ok()" │
00:03:00 #3740 [verbose] > │ let v20 : num_complex_Complex<float> option = │
00:03:00 #3741 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v19 │
00:03:00 #3742 [verbose] > │ let v21 : (num_complex_Complex<float> -> US0) = method30() │
00:03:00 #3743 [verbose] > │ let v22 : US0 = US0_1 │
00:03:00 #3744 [verbose] > │ let v23 : US0 = v20 |> Option.map v21 |> Option.defaultValue v22 │
00:03:00 #3745 [verbose] > │ let v24 : string = "f64::NAN" │
00:03:00 #3746 [verbose] > │ let v25 : float = Fable.Core.RustInterop.emitRustExpr () v24 │
00:03:00 #3747 [verbose] > │ let v26 : string = "f64::NAN" │
00:03:00 #3748 [verbose] > │ let v27 : float = Fable.Core.RustInterop.emitRustExpr () v26 │
00:03:00 #3749 [verbose] > │ let v28 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3750 [verbose] > │ let v29 : num_complex_Complex<float> = │
00:03:00 #3751 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v25, v27) v28 │
00:03:00 #3752 [verbose] > │ let v32 : num_complex_Complex<float> = │
00:03:00 #3753 [verbose] > │ match v23 with │
00:03:00 #3754 [verbose] > │ | US0_1 -> (* None *) │
00:03:00 #3755 [verbose] > │ v29 │
00:03:00 #3756 [verbose] > │ | US0_0(v30) -> (* Some *) │
00:03:00 #3757 [verbose] > │ v30 │
00:03:00 #3758 [verbose] > │ let v33 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3759 [verbose] > │ let v34 : num_complex_Complex<float> = │
00:03:00 #3760 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v33 │
00:03:00 #3761 [verbose] > │ let v35 : num_complex_Complex<float> = method27(v34) │
00:03:00 #3762 [verbose] > │ let v36 : num_complex_Complex<float> = method28(v14) │
00:03:00 #3763 [verbose] > │ let v37 : string = "num_complex::Complex::powc(v35, v36)" │
00:03:00 #3764 [verbose] > │ let v38 : num_complex_Complex<float> = │
00:03:00 #3765 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v37 │
00:03:00 #3766 [verbose] > │ let v39 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3767 [verbose] > │ let v40 : num_complex_Complex<float> = │
00:03:00 #3768 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v39 │
00:03:00 #3769 [verbose] > │ let v41 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3770 [verbose] > │ let v42 : num_complex_Complex<float> = │
00:03:00 #3771 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v41 │
00:03:00 #3772 [verbose] > │ let v43 : string = "$0 - $1" │
00:03:00 #3773 [verbose] > │ let v44 : num_complex_Complex<float> = │
00:03:00 #3774 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v14, v42) v43 │
00:03:00 #3775 [verbose] > │ let v45 : num_complex_Complex<float> = method27(v40) │
00:03:00 #3776 [verbose] > │ let v46 : num_complex_Complex<float> = method28(v44) │
00:03:00 #3777 [verbose] > │ let v47 : string = "num_complex::Complex::powc(v45, v46)" │
00:03:00 #3778 [verbose] > │ let v48 : num_complex_Complex<float> = │
00:03:00 #3779 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v47 │
00:03:00 #3780 [verbose] > │ let v49 : string = "$0 * $1" │
00:03:00 #3781 [verbose] > │ let v50 : num_complex_Complex<float> = │
00:03:00 #3782 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v38, v48) v49 │
00:03:00 #3783 [verbose] > │ let v51 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3784 [verbose] > │ let v52 : num_complex_Complex<float> = │
00:03:00 #3785 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (3.141592653589793, 0.0) v51 │
00:03:00 #3786 [verbose] > │ let v53 : string = "$0 * $1" │
00:03:00 #3787 [verbose] > │ let v54 : num_complex_Complex<float> = │
00:03:00 #3788 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v52, v14) v53 │
00:03:00 #3789 [verbose] > │ let v55 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3790 [verbose] > │ let v56 : num_complex_Complex<float> = │
00:03:00 #3791 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (2.0, 0.0) v55 │
00:03:00 #3792 [verbose] > │ let v57 : string = "v54 / v56" │
00:03:00 #3793 [verbose] > │ let v58 : num_complex_Complex<float> = │
00:03:00 #3794 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v57 │
00:03:00 #3795 [verbose] > │ let v59 : string = "v58.sin()" │
00:03:00 #3796 [verbose] > │ let v60 : num_complex_Complex<float> = │
00:03:00 #3797 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v59 │
00:03:00 #3798 [verbose] > │ let v61 : string = "$0 * $1" │
00:03:00 #3799 [verbose] > │ let v62 : num_complex_Complex<float> = │
00:03:00 #3800 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v50, v60) v61 │
00:03:00 #3801 [verbose] > │ let v63 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3802 [verbose] > │ let v64 : num_complex_Complex<float> = │
00:03:00 #3803 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (1.0, 0.0) v63 │
00:03:00 #3804 [verbose] > │ let v65 : string = "$0 - $1" │
00:03:00 #3805 [verbose] > │ let v66 : num_complex_Complex<float> = │
00:03:00 #3806 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v64, v14) v65 │
00:03:00 #3807 [verbose] > │ let v67 : string = $" s = mpmath.gamma(s)" │
00:03:00 #3808 [verbose] > │ let v68 : num_complex_Complex<float> = method3(v66) │
00:03:00 #3809 [verbose] > │ let v69 : Result<num_complex_Complex<float>, std_string_String> = │
00:03:00 #3810 [verbose] > │ method29(v0, v67, v68) │
00:03:00 #3811 [verbose] > │ let v70 : string = "v69.ok()" │
00:03:00 #3812 [verbose] > │ let v71 : num_complex_Complex<float> option = │
00:03:00 #3813 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v70 │
00:03:00 #3814 [verbose] > │ let v72 : (num_complex_Complex<float> -> US0) = method30() │
00:03:00 #3815 [verbose] > │ let v73 : US0 = US0_1 │
00:03:00 #3816 [verbose] > │ let v74 : US0 = v71 |> Option.map v72 |> Option.defaultValue v73 │
00:03:00 #3817 [verbose] > │ let v75 : string = "f64::NAN" │
00:03:00 #3818 [verbose] > │ let v76 : float = Fable.Core.RustInterop.emitRustExpr () v75 │
00:03:00 #3819 [verbose] > │ let v77 : string = "f64::NAN" │
00:03:00 #3820 [verbose] > │ let v78 : float = Fable.Core.RustInterop.emitRustExpr () v77 │
00:03:00 #3821 [verbose] > │ let v79 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3822 [verbose] > │ let v80 : num_complex_Complex<float> = │
00:03:00 #3823 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v76, v78) v79 │
00:03:00 #3824 [verbose] > │ let v83 : num_complex_Complex<float> = │
00:03:00 #3825 [verbose] > │ match v74 with │
00:03:00 #3826 [verbose] > │ | US0_1 -> (* None *) │
00:03:00 #3827 [verbose] > │ v80 │
00:03:00 #3828 [verbose] > │ | US0_0(v81) -> (* Some *) │
00:03:00 #3829 [verbose] > │ v81 │
00:03:00 #3830 [verbose] > │ let v84 : string = "$0 * $1" │
00:03:00 #3831 [verbose] > │ let v85 : num_complex_Complex<float> = │
00:03:00 #3832 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v62, v83) v84 │
00:03:00 #3833 [verbose] > │ let v86 : num_complex_Complex<float> = method7(v14) │
00:03:00 #3834 [verbose] > │ let v87 : string = "v86.re" │
00:03:00 #3835 [verbose] > │ let v88 : float = Fable.Core.RustInterop.emitRustExpr () v87 │
00:03:00 #3836 [verbose] > │ let v89 : float = 1.0 - v88 │
00:03:00 #3837 [verbose] > │ let v90 : num_complex_Complex<float> = method8(v14) │
00:03:00 #3838 [verbose] > │ let v91 : string = "v90.im" │
00:03:00 #3839 [verbose] > │ let v92 : float = Fable.Core.RustInterop.emitRustExpr () v91 │
00:03:00 #3840 [verbose] > │ let v93 : float = -v92 │
00:03:00 #3841 [verbose] > │ let v94 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3842 [verbose] > │ let v95 : num_complex_Complex<float> = │
00:03:00 #3843 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v89, v93) v94 │
00:03:00 #3844 [verbose] > │ let v96 : string = $" s = mpmath.zeta(s)" │
00:03:00 #3845 [verbose] > │ let v97 : num_complex_Complex<float> = method3(v95) │
00:03:00 #3846 [verbose] > │ let v98 : Result<num_complex_Complex<float>, std_string_String> = │
00:03:00 #3847 [verbose] > │ method4(v0, v96, v97) │
00:03:00 #3848 [verbose] > │ let v99 : num_complex_Complex<float> = method24(v0, v95) │
00:03:00 #3849 [verbose] > │ let v100 : string = "v98.ok()" │
00:03:00 #3850 [verbose] > │ let v101 : num_complex_Complex<float> option = │
00:03:00 #3851 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v100 │
00:03:00 #3852 [verbose] > │ let v102 : (num_complex_Complex<float> -> US0) = method30() │
00:03:00 #3853 [verbose] > │ let v103 : US0 = US0_1 │
00:03:00 #3854 [verbose] > │ let v104 : US0 = v101 |> Option.map v102 |> Option.defaultValue v103 │
00:03:00 #3855 [verbose] > │ let v105 : string = "f64::NAN" │
00:03:00 #3856 [verbose] > │ let v106 : float = Fable.Core.RustInterop.emitRustExpr () v105 │
00:03:00 #3857 [verbose] > │ let v107 : string = "f64::NAN" │
00:03:00 #3858 [verbose] > │ let v108 : float = Fable.Core.RustInterop.emitRustExpr () v107 │
00:03:00 #3859 [verbose] > │ let v109 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3860 [verbose] > │ let v110 : num_complex_Complex<float> = │
00:03:00 #3861 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v106, v108) v109 │
00:03:00 #3862 [verbose] > │ let v113 : num_complex_Complex<float> = │
00:03:00 #3863 [verbose] > │ match v104 with │
00:03:00 #3864 [verbose] > │ | US0_1 -> (* None *) │
00:03:00 #3865 [verbose] > │ v110 │
00:03:00 #3866 [verbose] > │ | US0_0(v111) -> (* Some *) │
00:03:00 #3867 [verbose] > │ v111 │
00:03:00 #3868 [verbose] > │ let v114 : string = "$0 * $1" │
00:03:00 #3869 [verbose] > │ let v115 : num_complex_Complex<float> = │
00:03:00 #3870 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v85, v113) v114 │
00:03:00 #3871 [verbose] > │ let v116 : num_complex_Complex<float> = method7(v32) │
00:03:00 #3872 [verbose] > │ let v117 : string = "v116.re" │
00:03:00 #3873 [verbose] > │ let v118 : float = Fable.Core.RustInterop.emitRustExpr () v117 │
00:03:00 #3874 [verbose] > │ let v119 : num_complex_Complex<float> = method7(v115) │
00:03:00 #3875 [verbose] > │ let v120 : string = "v119.re" │
00:03:00 #3876 [verbose] > │ let v121 : float = Fable.Core.RustInterop.emitRustExpr () v120 │
00:03:00 #3877 [verbose] > │ let v122 : float = v118 - v121 │
00:03:00 #3878 [verbose] > │ let v123 : float = -v122 │
00:03:00 #3879 [verbose] > │ let v124 : bool = v122 >= v123 │
00:03:00 #3880 [verbose] > │ let v125 : float = │
00:03:00 #3881 [verbose] > │ if v124 then │
00:03:00 #3882 [verbose] > │ v122 │
00:03:00 #3883 [verbose] > │ else │
00:03:00 #3884 [verbose] > │ v123 │
00:03:00 #3885 [verbose] > │ let v126 : string = $"%A{v125}" │
00:03:00 #3886 [verbose] > │ System.Console.WriteLine v126 │
00:03:00 #3887 [verbose] > │ let v127 : bool = v125 < 0.0001 │
00:03:00 #3888 [verbose] > │ let v129 : bool = │
00:03:00 #3889 [verbose] > │ if v127 then │
00:03:00 #3890 [verbose] > │ true │
00:03:00 #3891 [verbose] > │ else │
00:03:00 #3892 [verbose] > │ method31(v127) │
00:03:00 #3893 [verbose] > │ let v130 : string = $"__expect / actual: %A{v125} / expected: │
00:03:00 #3894 [verbose] > │ %A{0.0001}" │
00:03:00 #3895 [verbose] > │ let v131 : bool = v129 = false │
00:03:00 #3896 [verbose] > │ if v131 then │
00:03:00 #3897 [verbose] > │ failwith<unit> v130 │
00:03:00 #3898 [verbose] > │ let v132 : num_complex_Complex<float> = method8(v32) │
00:03:00 #3899 [verbose] > │ let v133 : string = "v132.im" │
00:03:00 #3900 [verbose] > │ let v134 : float = Fable.Core.RustInterop.emitRustExpr () v133 │
00:03:00 #3901 [verbose] > │ let v135 : num_complex_Complex<float> = method8(v115) │
00:03:00 #3902 [verbose] > │ let v136 : string = "v135.im" │
00:03:00 #3903 [verbose] > │ let v137 : float = Fable.Core.RustInterop.emitRustExpr () v136 │
00:03:00 #3904 [verbose] > │ let v138 : float = v134 - v137 │
00:03:00 #3905 [verbose] > │ let v139 : float = -v138 │
00:03:00 #3906 [verbose] > │ let v140 : bool = v138 >= v139 │
00:03:00 #3907 [verbose] > │ let v141 : float = │
00:03:00 #3908 [verbose] > │ if v140 then │
00:03:00 #3909 [verbose] > │ v138 │
00:03:00 #3910 [verbose] > │ else │
00:03:00 #3911 [verbose] > │ v139 │
00:03:00 #3912 [verbose] > │ let v142 : string = $"%A{v141}" │
00:03:00 #3913 [verbose] > │ System.Console.WriteLine v142 │
00:03:00 #3914 [verbose] > │ let v143 : bool = v141 < 0.0001 │
00:03:00 #3915 [verbose] > │ let v145 : bool = │
00:03:00 #3916 [verbose] > │ if v143 then │
00:03:00 #3917 [verbose] > │ true │
00:03:00 #3918 [verbose] > │ else │
00:03:00 #3919 [verbose] > │ method31(v143) │
00:03:00 #3920 [verbose] > │ let v146 : string = $"__expect / actual: %A{v141} / expected: │
00:03:00 #3921 [verbose] > │ %A{0.0001}" │
00:03:00 #3922 [verbose] > │ let v147 : bool = v145 = false │
00:03:00 #3923 [verbose] > │ if v147 then │
00:03:00 #3924 [verbose] > │ failwith<unit> v146 │
00:03:00 #3925 [verbose] > │ let v148 : int32 = v13 + 1 │
00:03:00 #3926 [verbose] > │ v11.l0 <- v148 │
00:03:00 #3927 [verbose] > │ () │
00:03:00 #3928 [verbose] > │ () │
00:03:00 #3929 [verbose] > │ and method56 () : unit = │
00:03:00 #3930 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:03:00 #3931 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:03:00 #3932 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:03:00 #3933 [verbose] > │ pyo3::PyResult<()> { //" │
00:03:00 #3934 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:03:00 #3935 [verbose] > │ let v2 : string = "py" │
00:03:00 #3936 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:03:00 #3937 [verbose] > │ method57(v3) │
00:03:00 #3938 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:03:00 #3939 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:03:00 #3940 [verbose] > │ let v6 : string = "v5 }})" │
00:03:00 #3941 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:03:00 #3942 [verbose] > │ let v7 : string = "{ //" │
00:03:00 #3943 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:03:00 #3944 [verbose] > │ let v8 : string = "__result" │
00:03:00 #3945 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:03:00 #3946 [verbose] > │ () v8 │
00:03:00 #3947 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:03:00 #3948 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:03:00 #3949 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:03:00 #3950 [verbose] > │ () │
00:03:00 #3951 [verbose] > │ and method60 (v0 : int32, v1 : Mut3) : bool = │
00:03:00 #3952 [verbose] > │ let v2 : int32 = v1.l0 │
00:03:00 #3953 [verbose] > │ let v3 : bool = v2 < v0 │
00:03:00 #3954 [verbose] > │ v3 │
00:03:00 #3955 [verbose] > │ and method59 (v0 : pyo3_Python) : unit = │
00:03:00 #3956 [verbose] > │ let v1 : (float []) = [|2.0; 2.5; 3.0; 3.5; 4.0; 4.5; 5.0|] │
00:03:00 #3957 [verbose] > │ let v2 : (float []) = [|2.0; 3.0; 5.0; 7.0; 11.0; 13.0; 17.0; 19.0; │
00:03:00 #3958 [verbose] > │ 23.0; 29.0; 31.0; 37.0; 41.0; 43.0; 47.0; 53.0; 59.0; 61.0; 67.0; 71.0|] │
00:03:00 #3959 [verbose] > │ let v3 : int32 = v1.Length │
00:03:00 #3960 [verbose] > │ let v4 : Mut0 = {l0 = 0} : Mut0 │
00:03:00 #3961 [verbose] > │ while method2(v3, v4) do │
00:03:00 #3962 [verbose] > │ let v6 : int32 = v4.l0 │
00:03:00 #3963 [verbose] > │ let v7 : float = v1.[int v6] │
00:03:00 #3964 [verbose] > │ let v8 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3965 [verbose] > │ let v9 : num_complex_Complex<float> = │
00:03:00 #3966 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v7, 0.0) v8 │
00:03:00 #3967 [verbose] > │ let v10 : int32 = v2.Length │
00:03:00 #3968 [verbose] > │ let v11 : Mut3 = {l0 = 0; l1 = 1.0} : Mut3 │
00:03:00 #3969 [verbose] > │ while method60(v10, v11) do │
00:03:00 #3970 [verbose] > │ let v13 : int32 = v11.l0 │
00:03:00 #3971 [verbose] > │ let v14 : float = v11.l1 │
00:03:00 #3972 [verbose] > │ let v15 : float = v2.[int v13] │
00:03:00 #3973 [verbose] > │ let v16 : float = -v7 │
00:03:00 #3974 [verbose] > │ let v17 : float = v15 ** v16 │
00:03:00 #3975 [verbose] > │ let v18 : float = 1.0 - v17 │
00:03:00 #3976 [verbose] > │ let v19 : float = v14 / v18 │
00:03:00 #3977 [verbose] > │ let v20 : int32 = v13 + 1 │
00:03:00 #3978 [verbose] > │ v11.l0 <- v20 │
00:03:00 #3979 [verbose] > │ v11.l1 <- v19 │
00:03:00 #3980 [verbose] > │ () │
00:03:00 #3981 [verbose] > │ let v21 : float = v11.l1 │
00:03:00 #3982 [verbose] > │ let v22 : string = $" s = mpmath.zeta(s)" │
00:03:00 #3983 [verbose] > │ let v23 : num_complex_Complex<float> = method3(v9) │
00:03:00 #3984 [verbose] > │ let v24 : Result<num_complex_Complex<float>, std_string_String> = │
00:03:00 #3985 [verbose] > │ method4(v0, v22, v23) │
00:03:00 #3986 [verbose] > │ let v25 : num_complex_Complex<float> = method24(v0, v9) │
00:03:00 #3987 [verbose] > │ let v26 : string = "v24.ok()" │
00:03:00 #3988 [verbose] > │ let v27 : num_complex_Complex<float> option = │
00:03:00 #3989 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v26 │
00:03:00 #3990 [verbose] > │ let v28 : (num_complex_Complex<float> -> US0) = method30() │
00:03:00 #3991 [verbose] > │ let v29 : US0 = US0_1 │
00:03:00 #3992 [verbose] > │ let v30 : US0 = v27 |> Option.map v28 |> Option.defaultValue v29 │
00:03:00 #3993 [verbose] > │ let v31 : string = "f64::NAN" │
00:03:00 #3994 [verbose] > │ let v32 : float = Fable.Core.RustInterop.emitRustExpr () v31 │
00:03:00 #3995 [verbose] > │ let v33 : string = "f64::NAN" │
00:03:00 #3996 [verbose] > │ let v34 : float = Fable.Core.RustInterop.emitRustExpr () v33 │
00:03:00 #3997 [verbose] > │ let v35 : string = "num_complex::Complex::new($0, $1)" │
00:03:00 #3998 [verbose] > │ let v36 : num_complex_Complex<float> = │
00:03:00 #3999 [verbose] > │ Fable.Core.RustInterop.emitRustExpr struct (v32, v34) v35 │
00:03:00 #4000 [verbose] > │ let v39 : num_complex_Complex<float> = │
00:03:00 #4001 [verbose] > │ match v30 with │
00:03:00 #4002 [verbose] > │ | US0_1 -> (* None *) │
00:03:00 #4003 [verbose] > │ v36 │
00:03:00 #4004 [verbose] > │ | US0_0(v37) -> (* Some *) │
00:03:00 #4005 [verbose] > │ v37 │
00:03:00 #4006 [verbose] > │ let v40 : num_complex_Complex<float> = method7(v39) │
00:03:00 #4007 [verbose] > │ let v41 : string = "v40.re" │
00:03:00 #4008 [verbose] > │ let v42 : float = Fable.Core.RustInterop.emitRustExpr () v41 │
00:03:00 #4009 [verbose] > │ let v43 : float = v42 - v21 │
00:03:00 #4010 [verbose] > │ let v44 : float = -v43 │
00:03:00 #4011 [verbose] > │ let v45 : bool = v43 >= v44 │
00:03:00 #4012 [verbose] > │ let v46 : float = │
00:03:00 #4013 [verbose] > │ if v45 then │
00:03:00 #4014 [verbose] > │ v43 │
00:03:00 #4015 [verbose] > │ else │
00:03:00 #4016 [verbose] > │ v44 │
00:03:00 #4017 [verbose] > │ let v47 : string = $"%A{v46}" │
00:03:00 #4018 [verbose] > │ System.Console.WriteLine v47 │
00:03:00 #4019 [verbose] > │ let v48 : bool = v46 < 0.01 │
00:03:00 #4020 [verbose] > │ let v50 : bool = │
00:03:00 #4021 [verbose] > │ if v48 then │
00:03:00 #4022 [verbose] > │ true │
00:03:00 #4023 [verbose] > │ else │
00:03:00 #4024 [verbose] > │ method31(v48) │
00:03:00 #4025 [verbose] > │ let v51 : string = $"__expect / actual: %A{v46} / expected: │
00:03:00 #4026 [verbose] > │ %A{0.01}" │
00:03:00 #4027 [verbose] > │ let v52 : bool = v50 = false │
00:03:00 #4028 [verbose] > │ if v52 then │
00:03:00 #4029 [verbose] > │ failwith<unit> v51 │
00:03:00 #4030 [verbose] > │ let v53 : num_complex_Complex<float> = method8(v39) │
00:03:00 #4031 [verbose] > │ let v54 : string = "v53.im" │
00:03:00 #4032 [verbose] > │ let v55 : float = Fable.Core.RustInterop.emitRustExpr () v54 │
00:03:00 #4033 [verbose] > │ let v56 : string = $"%A{v55}" │
00:03:00 #4034 [verbose] > │ System.Console.WriteLine v56 │
00:03:00 #4035 [verbose] > │ let v57 : bool = v55 < 0.01 │
00:03:00 #4036 [verbose] > │ let v59 : bool = │
00:03:00 #4037 [verbose] > │ if v57 then │
00:03:00 #4038 [verbose] > │ true │
00:03:00 #4039 [verbose] > │ else │
00:03:00 #4040 [verbose] > │ method31(v57) │
00:03:00 #4041 [verbose] > │ let v60 : string = $"__expect / actual: %A{v55} / expected: │
00:03:00 #4042 [verbose] > │ %A{0.01}" │
00:03:00 #4043 [verbose] > │ let v61 : bool = v59 = false │
00:03:00 #4044 [verbose] > │ if v61 then │
00:03:00 #4045 [verbose] > │ failwith<unit> v60 │
00:03:00 #4046 [verbose] > │ let v62 : int32 = v6 + 1 │
00:03:00 #4047 [verbose] > │ v4.l0 <- v62 │
00:03:00 #4048 [verbose] > │ () │
00:03:00 #4049 [verbose] > │ () │
00:03:00 #4050 [verbose] > │ and method58 () : unit = │
00:03:00 #4051 [verbose] > │ let v0 : string = "pyo3::prepare_freethreaded_python()" │
00:03:00 #4052 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:03:00 #4053 [verbose] > │ let v1 : string = "let __result = pyo3::Python::with_gil(|py| -> │
00:03:00 #4054 [verbose] > │ pyo3::PyResult<()> { //" │
00:03:00 #4055 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:03:00 #4056 [verbose] > │ let v2 : string = "py" │
00:03:00 #4057 [verbose] > │ let v3 : pyo3_Python = Fable.Core.RustInterop.emitRustExpr () v2 │
00:03:00 #4058 [verbose] > │ method59(v3) │
00:03:00 #4059 [verbose] > │ let v4 : Result<unit, pyo3_PyErr> = Ok () │
00:03:00 #4060 [verbose] > │ let v5 : Result<unit, pyo3_PyErr> = method32(v4) │
00:03:00 #4061 [verbose] > │ let v6 : string = "v5 }})" │
00:03:00 #4062 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:03:00 #4063 [verbose] > │ let v7 : string = "{ //" │
00:03:00 #4064 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:03:00 #4065 [verbose] > │ let v8 : string = "__result" │
00:03:00 #4066 [verbose] > │ let v9 : Result<unit, pyo3_PyErr> = Fable.Core.RustInterop.emitRustExpr │
00:03:00 #4067 [verbose] > │ () v8 │
00:03:00 #4068 [verbose] > │ let v10 : Result<unit, pyo3_PyErr> = method33(v9) │
00:03:00 #4069 [verbose] > │ let v11 : string = "v10.unwrap()" │
00:03:00 #4070 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:03:00 #4071 [verbose] > │ () │
00:03:00 #4072 [verbose] > │ and closure0 () () : unit = │
00:03:00 #4073 [verbose] > │ let v0 : string = "}//" │
00:03:00 #4074 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v0 │
00:03:00 #4075 [verbose] > │ let v1 : string = "#[test] fn test_zeta_at_known_values_() { //" │
00:03:00 #4076 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v1 │
00:03:00 #4077 [verbose] > │ method0() │
00:03:00 #4078 [verbose] > │ let v2 : string = "} #[test] fn test_zeta_at_2_minus2() { //" │
00:03:00 #4079 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v2 │
00:03:00 #4080 [verbose] > │ method34() │
00:03:00 #4081 [verbose] > │ let v3 : string = "} #[test] fn test_trivial_zero_at_negative_even___() │
00:03:00 #4082 [verbose] > │ { //" │
00:03:00 #4083 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v3 │
00:03:00 #4084 [verbose] > │ method36() │
00:03:00 #4085 [verbose] > │ let v4 : string = "} #[test] fn test_non_trivial_zero___() { //" │
00:03:00 #4086 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v4 │
00:03:00 #4087 [verbose] > │ method40() │
00:03:00 #4088 [verbose] > │ let v5 : string = "} #[test] fn test_real_part_greater_than_one___() { │
00:03:00 #4089 [verbose] > │ //" │
00:03:00 #4090 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v5 │
00:03:00 #4091 [verbose] > │ method42() │
00:03:00 #4092 [verbose] > │ let v6 : string = "} #[test] fn test_zeta_at_1___() { //" │
00:03:00 #4093 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v6 │
00:03:00 #4094 [verbose] > │ method44() │
00:03:00 #4095 [verbose] > │ let v7 : string = "} #[test] fn test_symmetry_across_real_axis___() { │
00:03:00 #4096 [verbose] > │ //" │
00:03:00 #4097 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v7 │
00:03:00 #4098 [verbose] > │ method46() │
00:03:00 #4099 [verbose] > │ let v8 : string = "} #[test] fn test_behavior_near_origin___() { //" │
00:03:00 #4100 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v8 │
00:03:00 #4101 [verbose] > │ method48() │
00:03:00 #4102 [verbose] > │ let v9 : string = "} #[test] fn test_imaginary_axis() { //" │
00:03:00 #4103 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v9 │
00:03:00 #4104 [verbose] > │ method50() │
00:03:00 #4105 [verbose] > │ let v10 : string = "} #[test] fn test_critical_strip() { //" │
00:03:00 #4106 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v10 │
00:03:00 #4107 [verbose] > │ method54() │
00:03:00 #4108 [verbose] > │ let v11 : string = "} #[test] fn │
00:03:00 #4109 [verbose] > │ test_reflection_formula_for_specific_value() { //" │
00:03:00 #4110 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v11 │
00:03:00 #4111 [verbose] > │ method56() │
00:03:00 #4112 [verbose] > │ let v12 : string = "} #[test] fn test_euler_product_formula() { //" │
00:03:00 #4113 [verbose] > │ Fable.Core.RustInterop.emitRustExpr () v12 │
00:03:00 #4114 [verbose] > │ method58() │
00:03:00 #4115 [verbose] > │ and closure6 () (v0 : (string [])) : int32 = │
00:03:00 #4116 [verbose] > │ let v1 : string = $"value: {1}" │
00:03:00 #4117 [verbose] > │ System.Console.WriteLine v1 │
00:03:00 #4118 [verbose] > │ 0 │
00:03:00 #4119 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:03:00 #4120 [verbose] > │ let tests () = v0 () │
00:03:00 #4121 [verbose] > │ let v1 : ((string []) -> int32) = closure6() │
00:03:00 #4122 [verbose] > │ let main args = v1 args │
00:03:00 #4123 [verbose] > │ () │
00:03:00 #4124 [verbose] > │ │
00:03:00 #4125 [verbose] > │ │
00:03:00 #4126 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:02 #4127 [verbose] > [NbConvertApp] Converting notebook math.dib.ipynb to html
00:03:03 #4128 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:03 #4129 [verbose] > validate(nb)
00:03:03 #4130 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:03:03 #4131 [verbose] > return _pygments_highlight(
00:03:05 #4132 [verbose] > [NbConvertApp] Writing 7420588 bytes to math.dib.html
00:03:07 #4133 [debug] executeAsync / exitCode: 0 / output.Length: 297960
00:03:07 #4134 [debug] main / executeCommand / exitCode: 0
00:03:09 #4135 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #1 [debug] writeDibCode / output: Spi / path: math.dib
00:00:00 #2 [debug] parseDibCode / output: Spi / file: math.dib
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #2 [debug] executeAsync / options: { Command =
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = Some <fun:main@441-43> }
00:00:00 #3 [verbose] > pwd: C:\home\git\polyglot\lib\math
00:00:00 #4 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #5 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 #6 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 #7 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:01 #8 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #9 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #10 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #11 [verbose] > Server bound to: http://localhost:13805
00:00:01 #12 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:01 #13 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 #14 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 #15 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # math\n\nopen testing\nopen rust_operators\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022num_complex::Complex\u003C$0\u003E\\\u0022)\u003E] type num_complex_Complex\u003C\u0027T\u003E = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022pyo3::types::PyModule\\\u0022)\u003E] type pyo3_types_PyModule = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022pyo3::Bound\u003C$0\u003E\\\u0022)\u003E] type pyo3_Bound\u003C\u0027T\u003E = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022pyo3::Python\\\u0022)\u003E] type pyo3_Python = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022pyo3::PyAny\\\u0022)\u003E] type pyo3_PyAny = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022pyo3::PyErr\\\u0022)\u003E] type pyo3_PyErr = class end\u0022\n\ninl types () =\n rust.types ()\n sm\u0027.types ()\n types ()\n\n// // ## complex\n\nnominal complex t = $\u0022num_complex_Complex\u003C\u0060t\u003E\u0022\nnominal bound t = $\u0022pyo3_Bound\u003C\u0060t\u003E\u0022\nnominal python = $\u0022pyo3_Python\u0022\nnominal pymodule = $\u0022pyo3_types_PyModule\u0022\nnominal pyany = $\u0022pyo3_PyAny\u0022\nnominal pyerr = $\u0022pyo3_PyErr\u0022\n\ninl complex forall t. ((re : t), (im : t)) : complex t =\n !\\\\((re, im), $\u0027\u0022num_complex::Complex::new($0, $1)\u0022\u0027)\n\n// // ## complex_sin\n\ninl re forall t. (c : complex t) : t =\n inl c = join c\n !\\($\u0027\u0022!c.re\u0022\u0027)\n\ninl im forall t. (c : complex t) : t =\n inl c = join c\n !\\($\u0027\u0022!c.im\u0022\u0027)\n\ninl complex_unbox forall t. (c : complex t) =\n re c, im c\n\ninl (~.^) c = complex c\n\ninl complex_eq forall t. (a : complex t) (b : complex t) : bool =\n !\\($\u0027\u0022!a == !b\u0022\u0027)\n\ninl (.=) a b = complex_eq a b\n\ninstance equable complex t = complex_eq\n\ninl complex_add forall t. (a : complex t) (b : complex t) : complex t =\n !\\($\u0027\u0022!a \u002B !b\u0022\u0027)\n\ninl (.\u002B) a b = complex_add a b\n\ninl complex_sub forall t. (a : complex t) (b : complex t) : complex t =\n !\\\\((a, b), $\u0027\u0022$0 - $1\u0022\u0027)\n\ninl (.-) a b = complex_sub a b\n\ninl complex_mult forall t. (a : complex t) (b : complex t) : complex t =\n !\\\\((a, b), $\u0027\u0022$0 * $1\u0022\u0027)\n\ninl (.*) a b = complex_mult a b\n\ninl complex_div forall t. (a : complex t) (b : complex t) : complex t =\n !\\($\u0027\u0022!a / !b\u0022\u0027)\n\ninl (./) a b = complex_div a b\n\ninl powc forall t. (s : complex t) (c : complex t) : complex t =\n inl c = join c\n inl s = join s\n !\\($\u0027\u0022num_complex::Complex::powc(!c, !s)\u0022\u0027)\n\ninl (.**) a b = powc b a\n\ninl complex_sin forall t. (c : complex t) : complex t =\n !\\($\u0027\u0022!c.sin()\u0022\u0027)\n\ninl conj forall t. (c : complex t) : complex t =\n !\\($\u0027\u0022!c.conj()\u0022\u0027)\n\n// // ## zeta\n\ninl zeta log (gamma : complex f64 -\u003E complex f64) (s : complex f64) : complex f64 =\n inl rec zeta count gamma s =\n if log then\n !\\\\(s, $\u0027\u0022println\\!(\\\\\\\u0022zeta / count: {:?} / s: {:?}\\\\\\\u0022, !count, $0)\u0022\u0027)\n if re s \u003E 1 then\n (.^(0, 0), (am.init 10000i32 id : a i32 _))\n ||\u003E am.fold fun acc n =\u003E\n acc .\u002B (.^(1, 0) ./ (.^(f64 n, 0) .** s))\n else\n inl gamma_term = gamma (.^(1, 0) .- s)\n inl sin_term = .^(pi, 0) .* s ./ .^(2, 0) |\u003E complex_sin\n inl one_minus_s = .^(1 - re s, -(im s))\n inl mirror_term =\n if re one_minus_s \u003C= 1\n then .^(0, 0)\n else\n if count \u003C= 3\n then zeta (count \u002B 1) gamma one_minus_s\n else one_minus_s\n inl reflection_formula =\n .^(2, 0) .* (.^(pi, 0) .** s) .* sin_term .* gamma_term .* mirror_term\n reflection_formula\n join zeta 0i32 gamma s\n\n// // ## eval\n\ninl module_from_code (py : python) (code : string) : _ (bound pymodule) _ =\n inl py = join py\n inl code = code |\u003E sm\u0027.as_str\n !\\($\u0027\u0022pyo3::types::PyModule::from_code_bound(!py, !code, \\\\\u0022\\\\\u0022, \\\\\u0022\\\\\u0022)\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : pyerr) =\u003E x |\u003E sm\u0027.format\u0027\n\ninl use_pyanymethods () =\n global \u0022Fable.Core.RustInterop.emitRustExpr () \\\u0022);\\nuse pyo3::prelude::PyAnyMethods;\\n//\\\u0022\u0022\n\ninl getattr (attr : string) (module : bound pymodule) : _ (bound pyany) _ =\n inl attr = join attr\n inl attr = attr |\u003E sm\u0027.as_str\n inl module = join module\n use_pyanymethods ()\n !\\($\u0027\u0022!module.getattr(!attr)\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : pyerr) =\u003E x |\u003E sm\u0027.format\u0027\n\ninl call forall t. (args : t) (module : bound pyany) : _ (bound pyany) _ =\n inl args = join args\n inl module = join module\n !\\($\u0027\u0022pyo3::prelude::PyAnyMethods::call(\u0026!module, ((*!args).0, *(*!args).1), None)\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : pyerr) =\u003E x |\u003E sm\u0027.format\u0027\n\ninl extract forall t. (result : bound pyany) : _ t _ =\n inl result = join result\n use_pyanymethods ()\n !\\($\u0027\u0022!result.extract()\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : pyerr) =\u003E x |\u003E sm\u0027.format\u0027\n\ninl eval py code (args : pair bool (pair f64 f64)) : _ (_ f64) sm\u0027.std_string =\n inl code =\n code\n |\u003E module_from_code py\n |\u003E resultm.unwrap\u0027\n inl fn =\n code\n |\u003E getattr \u0022fn\u0022\n |\u003E resultm.unwrap\u0027\n\n fn\n |\u003E call args\n |\u003E resultm.try\u0027\n |\u003E extract\n |\u003E resultm.try\u0027\n |\u003E complex\n |\u003E Ok\n |\u003E resultm.box\n\ninl call1_ log py s code =\n inl code = join (a code : _ i32 _) |\u003E sm\u0027.concat_array_trailing \u0022\\n\u0022\n \n inl s = new_pair (re s) (im s)\n inl args = new_pair log s\n\n eval py code args\n\ninl call1_ log name py s line =\n inl s = join s\n join\n ;[\n $\u0027$\u0022import sys\u0022\u0027\n $\u0027$\u0022import traceback\u0022\u0027\n $\u0027$\u0022import re\u0022\u0027\n $\u0027$\u0022count = 0\u0022\u0027\n $\u0027$\u0022memory_address_pattern = re.compile(r\\\u0027 at 0x[0-9a-fA-F]\u002B\\\u0027)\u0022\u0027\n $\u0027$\u0022def trace_calls(frame, event, arg):\u0022\u0027\n $\u0027$\u0022 global count\u0022\u0027\n $\u0027$\u0022 count \u002B= 1\u0022\u0027\n $\u0027$\u0022 if count \u003C 200:\u0022\u0027\n $\u0027$\u0022 try:\u0022\u0027\n $\u0027$\u0022 args = {{ k: v for k, v in frame.f_locals.items() if frame.f_code.co_name \\!= \\\u0027make_mpc\\\u0027 and k not in [\\\u0027ctx\\\u0027] and not callable(v) }}\u0022\u0027\n $\u0027$\u0022 args_str = \\\u0027, \\\u0027.join([ f\\\\\\\u0022{{k}}={{re.sub(memory_address_pattern, \\\u0027 at 0x\u003C?\u003E\\\u0027, repr(v))}}\\\\\\\u0022 for k, v in args.items() ])\u0022\u0027\n $\u0027$\u0022 print(f\\\\\\\u0022{{event}}({!name}) / f_code.co_name: {{frame.f_code.co_name}} / f_locals: {{args_str}} / f_lineno: {{frame.f_lineno}} / f_code.co_filename: {{frame.f_code.co_filename.split(\\\u0027site-packages\\\u0027)[-1]}} / f_back.f_lineno: {{ \\\u0027\\\u0027 if frame.f_back is None else frame.f_back.f_lineno }} / f_back.f_code.co_filename: {{ \\\u0027\\\u0027 if frame.f_back is None else frame.f_back.f_code.co_filename.split(\\\u0027site-packages\\\u0027)[-1] }} / arg: {{re.sub(memory_address_pattern, \\\u0027 at 0x\u003C?\u003E\\\u0027, repr(arg))}}\\\\\\\u0022, flush=True)\u0022\u0027\n $\u0027$\u0022 except ValueError as e:\u0022\u0027\n $\u0027$\u0022 print(f\\\u0027{!name} / e: {{e}}\\\u0027, flush=True)\u0022\u0027\n $\u0027$\u0022 return trace_calls\u0022\u0027\n $\u0027$\u0022import mpmath\u0022\u0027\n $\u0027$\u0022def fn(log, s):\u0022\u0027\n $\u0027$\u0022 global count\u0022\u0027\n $\u0027$\u0022 if log:\u0022\u0027\n $\u0027$\u0022 print(f\\\u0027{!name} / s: {{s}} / count: {{count}}\\\u0027, flush=True)\u0022\u0027\n $\u0027$\u0022 s = complex(*s)\u0022\u0027\n $\u0027$\u0022 try:\u0022\u0027\n $\u0027$\u0022 if log: sys.settrace(trace_calls)\u0022\u0027\n line\n $\u0027$\u0022 if log:\u0022\u0027\n $\u0027$\u0022 sys.settrace(None)\u0022\u0027\n $\u0027$\u0022 print(f\\\u0027{!name} / result: {{s}} / count: {{count}}\\\u0027, flush=True)\u0022\u0027\n $\u0027$\u0022 except ValueError as e:\u0022\u0027\n $\u0027$\u0022 if s.real == 1:\u0022\u0027\n $\u0027$\u0022 s = complex(float(\\\u0027inf\\\u0027), 0)\u0022\u0027\n $\u0027$\u0022 return (s.real, s.imag)\u0022\u0027\n ]\n |\u003E call1_ log py s\n\ninl gamma_ log py s =\n call1_ log \u0022gamma_\u0022 py s $\u0027$\u0022 s = mpmath.gamma(s)\u0022\u0027\n\ninl zeta_ log py s =\n call1_ log \u0022zeta_\u0022 py s $\u0027$\u0022 s = mpmath.zeta(s)\u0022\u0027\n\n// // ## run_test\n\ninl run_test log closure_fix (fn : (complex f64 -\u003E complex f64) * (complex f64 -\u003E complex f64) -\u003E ()) =\n inl fn_ (py : python) : resultm.result\u0027 () pyerr =\n inl nan () =\n !\\($\u0027\u0022f64::NAN\u0022\u0027)\n inl gamma__ = fun (s : complex f64) =\u003E\n inl result = gamma_ log py s\n if log then\n inl s = join s\n !\\($\u0027\u0022println\\!(\\\\\\\u0022gamma__ / s: {:?} / result: {:?}\\\\\\\u0022, !s, !result)\u0022\u0027)\n result |\u003E resultm.ok\u0027 |\u003E optionm\u0027.unbox |\u003E optionm\u0027.default_value .^(nan (), nan ())\n inl zeta__ = fun (s : complex f64) =\u003E\n inl result = zeta_ log py s\n\n inl z = zeta true gamma__ s\n\n if log then\n inl s = join s\n !\\($\u0027\u0022println\\!(\\\\\\\u0022zeta__ / s: {:?} / result: {:?} / z: {:?}\\\\\\\u0022, !s, !result, !z)\u0022\u0027)\n\n // re result - re x |\u003E abs\n // |\u003E _assert_lt 0.001\n\n // im result - im x |\u003E abs\n // |\u003E _assert_lt 0.001\n\n result |\u003E resultm.ok\u0027 |\u003E optionm\u0027.unbox |\u003E optionm\u0027.default_value .^(nan (), nan ())\n join fn (zeta__, gamma__)\n\n Ok ()\n |\u003E resultm.box\n \n join\n !\\($\u0027\u0022pyo3::prepare_freethreaded_python()\u0022\u0027) : ()\n\n !\\($\u0027\u0022let __result = pyo3::Python::with_gil(|py| -\u003E pyo3::PyResult\u003C()\u003E { //\u0022\u0027)\n\n let x\u0027 = fn_ (!\\($\u0027\u0022py\u0022\u0027) : python)\n inl x\u0027 = join x\u0027\n \n inl closure_fix = 2u8, 1u8\n x\u0027 |\u003E rust.fix_closure closure_fix\n\n (!\\($\u0027\u0022__result\u0022\u0027) : _ () pyerr)\n |\u003E resultm.unwrap\u0027\n\n// // ## test_zeta_at_known_values_\n\ninl test_zeta_at_known_values_ log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n ;[\n .^(2, 0), pi ** 2 / 6\n .^(-1, 0), -1 / 12\n ]\n |\u003E fun x =\u003E a x : _ i32 _\n |\u003E am.iter fun s, e =\u003E\n inl result = zeta s\n\n result |\u003E im |\u003E _assert_eq 0\n re result - e |\u003E abs |\u003E _assert_lt 0.0001\n\n// // ## test_zeta_at_2_minus2\n\ninl test_zeta_at_2_minus2 log = run_test log (6u8, 5u8) fun zeta, gamma =\u003E\n inl s = .^(2, -2)\n inl result = zeta s\n\n (re result - 0.8673) |\u003E abs |\u003E _assert_lt 0.001\n (im result - 0.2750) |\u003E abs |\u003E _assert_lt 0.001\n\n// // ## test_trivial_zero_at_negative_even___\n\ninl test_trivial_zero_at_negative_even___ log = run_test log (2u8, 1u8) fun zeta, gamma =\u003E\n (join listm\u0027.init_series -2f64 -40 -2)\n |\u003E listm.iter fun n =\u003E\n inl s = .^(n, 0)\n inl result = zeta s\n\n result |\u003E re |\u003E _assert_eq 0\n result |\u003E im |\u003E _assert_eq 0\n\n// // ## test_non_trivial_zero___\n\ninl test_non_trivial_zero___ log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n ;[\n .^(0.5, 14.134725)\n .^(0.5, 21.022040)\n .^(0.5, 25.010857)\n .^(0.5, 30.424876)\n .^(0.5, 32.935062)\n .^(0.5, 37.586178)\n ]\n |\u003E fun x =\u003E a x : _ i32 _\n |\u003E am.iter fun x =\u003E\n inl result = zeta x\n result |\u003E re |\u003E abs |\u003E _assert_lt 0.0001\n result |\u003E im |\u003E abs |\u003E _assert_lt 0.0001\n\n// // ## test_real_part_greater_than_one___\n\ninl test_real_part_greater_than_one___ log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n inl points = ;[2; 3; 4; 5; 10; 20; 50]\n (a points : _ i32 _)\n |\u003E am.iter fun point =\u003E\n inl s = .^(point, 0)\n inl result = zeta s\n result |\u003E re |\u003E _assert_gt 0\n result |\u003E im |\u003E _assert_eq 0\n\n// // ## test_zeta_at_1___\n\ninl test_zeta_at_1___ log = run_test log (6u8, 5u8) fun zeta, gamma =\u003E\n inl s = .^(1, 0)\n inl result = zeta s\n result |\u003E re |\u003E _assert_eq limit.max\n result |\u003E im |\u003E _assert_eq 0\n\n// // ## test_symmetry_across_real_axis___\n\ninl test_symmetry_across_real_axis___ log = run_test log (8u8, 7u8) fun zeta, gamma =\u003E\n inl s = .^(2, 10)\n inl result_positive_im = zeta s\n inl result_negative_im = zeta .^(re s, -(im s))\n inl conj = result_negative_im |\u003E conj\n result_positive_im |\u003E re |\u003E _assert_eq (conj |\u003E re)\n result_positive_im |\u003E im |\u003E _assert_eq (conj |\u003E im)\n\n// // ## test_behavior_near_origin___\n\ninl test_behavior_near_origin___ log = run_test log (6u8, 5u8) fun zeta, gamma =\u003E\n inl s = .^(0.01, 0.01)\n inl result = zeta s\n result |\u003E re |\u003E _assert_lt limit.max\n result |\u003E im |\u003E _assert_lt limit.max\n\n// // ## test_imaginary_axis\n\ninl test_imaginary_axis log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n (join a ;[10; 20; 30; 40; 50; 60; 70; 80; 90; 100] : _ i32 _)\n |\u003E am.iter fun s =\u003E\n inl s = .^(0, s)\n inl result = zeta s\n result |\u003E re |\u003E _assert_ne 0\n result |\u003E im |\u003E _assert_ne 0\n\n// // ## test_critical_strip\n\ninl test_critical_strip log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n ;[\n .^(0.5, 14.134725)\n .^(0.75, 20.5)\n .^(1.25, 30.1)\n .^(0.25, 40.0)\n .^(1.0, 50.0)\n ]\n |\u003E fun x =\u003E a x : _ i32 _\n |\u003E am.iter fun s =\u003E\n inl result = zeta s\n result |\u003E re |\u003E _assert_ne 0\n result |\u003E im |\u003E _assert_ne 0\n\n// // ## test_reflection_formula_for_specific_value\n\ninl test_reflection_formula_for_specific_value log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n ;[\n .^(3, 4)\n .^(2.5, -3.5)\n .^(1.5, 2.5)\n .^(0.5, 14.134725)\n ]\n |\u003E fun x =\u003E a x : _ i32 _\n |\u003E am.iter fun s =\u003E\n inl lhs = zeta s\n inl reflection_coefficient =\n (.^(2, 0) .** s)\n .* (.^(pi, 0) .** (s .- .^(1, 0)))\n .* (.^(pi, 0) .* s ./ .^(2, 0) |\u003E complex_sin)\n .* gamma (.^(1, 0) .- s)\n\n inl one_minus_s = .^(1 - re s, -(im s))\n inl rhs = reflection_coefficient .* zeta one_minus_s\n\n re lhs - re rhs |\u003E abs |\u003E _assert_lt 0.0001\n im lhs - im rhs |\u003E abs |\u003E _assert_lt 0.0001\n\n// // ## test_euler_product_formula\n\ninl test_euler_product_formula log = run_test log (3u8, 2u8) fun zeta, gamma =\u003E\n inl s_values = ;[2; 2.5; 3; 3.5; 4; 4.5; 5]\n inl primes = ;[2; 3; 5; 7; 11; 13; 17; 19; 23; 29; 31; 37; 41; 43; 47; 53; 59; 61; 67; 71]\n (a s_values : _ i32 _)\n |\u003E am.iter fun s_re =\u003E\n inl s = .^(s_re, 0)\n inl product =\n (1, (a primes : _ i32 _))\n ||\u003E am.fold fun acc x =\u003E\n acc * 1 / (1 - x ** -s_re)\n\n inl result = zeta s\n re result - product |\u003E abs |\u003E _assert_lt 0.01\n result |\u003E im |\u003E _assert_lt 0.01\n\n// // ## graph\n\n// // ## tests\n\ninl tests () =\n !\\($\u0027\u0022}//\u0022\u0027) : ()\n\n !\\($\u0027\u0022#[test] fn test_zeta_at_known_values_() { //\u0022\u0027) : ()\n test_zeta_at_known_values_ false\n !\\($\u0027\u0022} #[test] fn test_zeta_at_2_minus2() { //\u0022\u0027) : ()\n test_zeta_at_2_minus2 false\n !\\($\u0027\u0022} #[test] fn test_trivial_zero_at_negative_even___() { //\u0022\u0027) : ()\n test_trivial_zero_at_negative_even___ false\n !\\($\u0027\u0022} #[test] fn test_non_trivial_zero___() { //\u0022\u0027) : ()\n test_non_trivial_zero___ false\n !\\($\u0027\u0022} #[test] fn test_real_part_greater_than_one___() { //\u0022\u0027) : ()\n test_real_part_greater_than_one___ false\n !\\($\u0027\u0022} #[test] fn test_zeta_at_1___() { //\u0022\u0027) : ()\n test_zeta_at_1___ false\n !\\($\u0027\u0022} #[test] fn test_symmetry_across_real_axis___() { //\u0022\u0027) : ()\n test_symmetry_across_real_axis___ false\n !\\($\u0027\u0022} #[test] fn test_behavior_near_origin___() { //\u0022\u0027) : ()\n test_behavior_near_origin___ false\n !\\($\u0027\u0022} #[test] fn test_imaginary_axis() { //\u0022\u0027) : ()\n test_imaginary_axis false\n !\\($\u0027\u0022} #[test] fn test_critical_strip() { //\u0022\u0027) : ()\n test_critical_strip false\n !\\($\u0027\u0022} #[test] fn test_reflection_formula_for_specific_value() { //\u0022\u0027) : ()\n test_reflection_formula_for_specific_value false\n !\\($\u0027\u0022} #[test] fn test_euler_product_formula() { //\u0022\u0027) : ()\n test_euler_product_formula false\n\n// // rust=\n\ninl main (_args : array_base string) =\n inl value = 1i32\n console.write_line ($\u0022$\\\u0022value: {!value}\\\u0022\u0022 : string)\n 0i32\n\ninl main () =\n types ()\n $\u0022let tests () = !tests ()\u0022 : ()\n $\u0022let main args = !main args\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/math/math.spi"}} / result.Length:
00:00:02 #16 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/math/math.spi"}} / result.Length:
00:00:02 #17 [verbose] > Building c:\home\git\polyglot\lib\math\math.spi
00:00:03 #18 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 #19 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #20 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #21 [debug] buildFile / takeWhileInclusive / fsxContent: [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end
[<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = class end
[<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end
[<Fable.Core.Erase; Fable.Core.Emit("mut $0")>]... / errors: [] / typeErrorCount: 0
00:00:05 #22 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:07 #23 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #1 [debug] persistCodeProject / packages: [Fable.Core] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: math / code.Length: 125510
00:00:00 #2 [debug] buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj
00:00:00 #3 [debug] executeAsync / options: { Command =
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\math\math.fsproj" --configuration Release --output "C:\home\git\polyglot\lib\math\dist" --runtime linux-x64"
WorkingDirectory = Some "C:\home\git\polyglot\target\polyglot\builder\math"
CancellationToken = None
OnLine = None }
00:00:00 #4 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:01 #5 [verbose] > Determining projects to restore...
00:00:03 #6 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj (in 1.36 sec).
00:00:03 #7 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj]
00:00:12 #8 [verbose] > math -> C:\home\git\polyglot\target\polyglot\builder\math\bin\Release\net9.0\linux-x64\math.dll
00:00:14 #9 [verbose] > math -> C:\home\git\polyglot\lib\math\dist\
00:00:14 #10 [debug] executeAsync / exitCode: 0 / output.Length: 666
00:00:14 #11 [debug] executeAsync / options: { Command =
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\math\math.fsproj" --configuration Release --output "C:\home\git\polyglot\lib\math\dist" --runtime win-x64"
WorkingDirectory = Some "C:\home\git\polyglot\target\polyglot\builder\math"
CancellationToken = None
OnLine = None }
00:00:14 #12 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:15 #13 [verbose] > Determining projects to restore...
00:00:16 #14 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj (in 499 ms).
00:00:16 #15 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\math\math.fsproj]
00:00:27 #16 [verbose] > math -> C:\home\git\polyglot\target\polyglot\builder\math\bin\Release\net9.0\win-x64\math.dll
00:00:36 #17 [verbose] > math -> C:\home\git\polyglot\lib\math\dist\
00:00:36 #18 [debug] executeAsync / exitCode: 0 / output.Length: 662
targetDir: C:\home\git\polyglot\target\polyglot\builder\math
Fable 4.14.0: F# to Rust compiler (status: alpha)
Thanks to the contributor! @MaxWilson
Stand with Ukraine! https://standwithukraine.com.ua/
Parsing ..\..\target\polyglot\builder\math\math.fsproj...
Retrieving project options from cache, in case of issues run `dotnet fable clean` or try `--noCache` option.
Project and references (11 source files) parsed in 293ms
Started Fable compilation...
Fable compilation finished in 7774ms
.\..\spiral\crypto.fsx(71,0): (71,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\async_.fsx(74,0): (74,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\runtime.fsx(74,0): (74,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\common.fsx(100,0): (100,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\date_time.fsx(107,0): (107,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\sm.fsx(287,0): (287,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\trace.fsx(267,0): (267,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\file_system.fsx(3448,12): (3448,25) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\file_system.fsx(3449,0): (3449,9) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\spiral\file_system.fsx(3460,0): (3460,2) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
.\..\..\target\polyglot\builder\math\math.fs(37,0): (39,3) warning FABLE: For Rust, support for F# static and module do bindings is disabled by default. It can be enabled with the 'static_do_bindings' feature. Use at your own risk!
Compiling math v0.0.1 (C:\home\git\polyglot\lib\math)
Finished `release` profile [optimized] target(s) in 25.70s
Running unittests math.rs (C:\home\git\polyglot\target\release\deps\math-a1ccd597b0fa3539.exe)
running 12 tests
test module_b7a9935b::Math::test_behavior_near_origin___ ... ok
test module_b7a9935b::Math::test_symmetry_across_real_axis___ ... ok
test module_b7a9935b::Math::test_zeta_at_1___ ... ok
test module_b7a9935b::Math::test_critical_strip ... ok
test module_b7a9935b::Math::test_zeta_at_2_minus2 ... ok
test module_b7a9935b::Math::test_zeta_at_known_values_ ... ok
test module_b7a9935b::Math::test_non_trivial_zero___ ... ok
test module_b7a9935b::Math::test_reflection_formula_for_specific_value ... ok
test module_b7a9935b::Math::test_real_part_greater_than_one___ ... ok
test module_b7a9935b::Math::test_euler_product_formula ... ok
test module_b7a9935b::Math::test_imaginary_axis ... ok
test module_b7a9935b::Math::test_trivial_zero_at_negative_even___ ... ok
test result: ok. 12 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; finished in 0.52s
In [ ]:
{ . "$ScriptDir/../apps/plot/build.ps1" } | Invoke-Block
Compiling plot v0.0.1 (C:\home\git\polyglot\apps\plot) Finished `release` profile [optimized] target(s) in 14.76s
In [ ]:
{ . "$ScriptDir/../lib/spiral/build.ps1" -sequential 1 } | Invoke-Block
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #2 [debug] executeAsync / options: { Command =
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = Some <fun:main@441-43> }
00:00:00 #3 [verbose] > pwd: C:\home\git\polyglot\lib\spiral
00:00:00 #4 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #5 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #6 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 #7 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:01 #8 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #9 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #10 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #11 [verbose] > Server bound to: http://localhost:13805
00:00:01 #12 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 testing.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:00:05 #13 [verbose] >
00:00:05 #14 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:05 #15 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:05 #16 [verbose] > │ # testing │
00:00:05 #17 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:05 #18 [verbose] >
00:00:05 #19 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:05 #20 [verbose] > inl __expect fn log b a =
00:00:05 #21 [verbose] > if log then
00:00:05 #22 [verbose] > a |> sm'.format_debug |> console.write_line
00:00:05 #23 [verbose] > inl result = fn a b
00:00:05 #24 [verbose] > inl result =
00:00:05 #25 [verbose] > result || join result
00:00:05 #26 [verbose] > if log
00:00:05 #27 [verbose] > then $"$\"__expect / actual: %A{!a} / expected: %A{!b}\""
00:00:05 #28 [verbose] > else "__expect"
00:00:05 #29 [verbose] > |> assert result
00:00:05 #30 [verbose] >
00:00:05 #31 [verbose] > inl __assert_approx_eq log e b a = __expect (fun a b => abs (b - a) < (e |>
00:00:05 #32 [verbose] > optionm.defaultWith 0.00000001)) log b a
00:00:05 #33 [verbose] > inl _assert_approx_eq e b a = __assert_approx_eq true e b a
00:00:05 #34 [verbose] >
00:00:05 #35 [verbose] > inl __assert_eq log b a = __expect (=) log b a
00:00:05 #36 [verbose] > inl _assert_eq b a = __assert_eq true b a
00:00:05 #37 [verbose] >
00:00:05 #38 [verbose] > inl __assert_eq' log b a = __expect (=.) log b a
00:00:05 #39 [verbose] > inl _assert_eq' b a = __assert_eq' true b a
00:00:05 #40 [verbose] >
00:00:05 #41 [verbose] > inl __assert_ne log b a = __expect (fun a b => a = b |> fun x => join x |> not)
00:00:05 #42 [verbose] > log b a
00:00:05 #43 [verbose] > inl _assert_ne b a = __assert_ne true b a
00:00:05 #44 [verbose] >
00:00:05 #45 [verbose] > inl __assert_gt log b a = __expect (>) log b a
00:00:05 #46 [verbose] > inl _assert_gt b a = __assert_gt true b a
00:00:05 #47 [verbose] >
00:00:05 #48 [verbose] > inl __assert_ge log b a = __expect (>=) log b a
00:00:05 #49 [verbose] > inl _assert_ge b a = __assert_ge true b a
00:00:05 #50 [verbose] >
00:00:05 #51 [verbose] > inl __assert_lt log b a = __expect (<) log b a
00:00:05 #52 [verbose] > inl _assert_lt b a = __assert_lt true b a
00:00:05 #53 [verbose] >
00:00:05 #54 [verbose] > inl __assert_le log b a = __expect (<=) log b a
00:00:05 #55 [verbose] > inl _assert_le b a = __assert_le true b a
00:00:05 #56 [verbose] >
00:00:05 #57 [verbose] > inl __assert_contains forall t. log (b : t) a =
00:00:05 #58 [verbose] > __expect
00:00:05 #59 [verbose] > (fun a b => a |> $'Seq.tryFind' ((=) b) |> optionm'.unbox |> fun (x :
00:00:05 #60 [verbose] > option t) => x <> None)
00:00:05 #61 [verbose] > log b a
00:00:05 #62 [verbose] > inl _assert_contains b a = __assert_contains true b a
00:00:05 #63 [verbose] >
00:00:05 #64 [verbose] > inl _throws (fn : () -> ()) : option exn =
00:00:05 #65 [verbose] > inl none = None : option exn
00:00:05 #66 [verbose] > inl some (s : exn) = Some s
00:00:05 #67 [verbose] > $"try !fn (); !none with ex -> ex |> !some"
00:00:05 #68 [verbose] >
00:00:05 #69 [verbose] > inl __assert_between log a b actual =
00:00:05 #70 [verbose] > inl assert_between actual (a, b) =
00:00:05 #71 [verbose] > __assert_ge log a actual
00:00:05 #72 [verbose] > __assert_le log b actual
00:00:05 #73 [verbose] > true
00:00:05 #74 [verbose] > __expect assert_between log (a, b) actual
00:00:05 #75 [verbose] > inl _assert_between a b actual = __assert_between true a b actual
00:00:10 #76 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8199ed1f1f6fedb9b1abbb00daf61588285152442aae9dd5373a2e2b301edd27\main.spi
00:00:14 #77 [verbose] >
00:00:14 #78 [verbose] > ╭─[ 9.46s - stdout ]───────────────────────────────────────────────────────────╮
00:00:14 #79 [verbose] > │ () │
00:00:14 #80 [verbose] > │ │
00:00:14 #81 [verbose] > │ │
00:00:14 #82 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:14 #83 [verbose] >
00:00:14 #84 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:14 #85 [verbose] > // // test
00:00:14 #86 [verbose] >
00:00:14 #87 [verbose] > 1f64
00:00:14 #88 [verbose] > |> _assert_approx_eq (Some 3) 2
00:00:14 #89 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b849eebf7d7b49dbc71f6caea758584ac5cf7e28e78421315d7342b189eedd75\main.spi
00:00:16 #90 [verbose] >
00:00:16 #91 [verbose] > ╭─[ 1.40s - stdout ]───────────────────────────────────────────────────────────╮
00:00:16 #92 [verbose] > │ let rec method0 () : unit = │
00:00:16 #93 [verbose] > │ let v0 : string = $"%A{1.0}" │
00:00:16 #94 [verbose] > │ System.Console.WriteLine v0 │
00:00:16 #95 [verbose] > │ let v1 : string = $"__expect / actual: %A{1.0} / expected: %A{2.0}" │
00:00:16 #96 [verbose] > │ () │
00:00:16 #97 [verbose] > │ method0() │
00:00:16 #98 [verbose] > │ │
00:00:16 #99 [verbose] > │ 1.0 │
00:00:16 #100 [verbose] > │ │
00:00:16 #101 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 #102 [verbose] >
00:00:16 #103 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 #104 [verbose] > // // test
00:00:16 #105 [verbose] >
00:00:16 #106 [verbose] > "abcd"
00:00:16 #107 [verbose] > |> _assert_contains 'b'
00:00:16 #108 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\85da4b7f7a268738ed82ba4f0f18a77a82a83398d4a918e88a2ffe0ddc678a1e\main.spi
00:00:17 #109 [verbose] >
00:00:17 #110 [verbose] > ╭─[ 1.27s - stdout ]───────────────────────────────────────────────────────────╮
00:00:17 #111 [verbose] > │ type [<Struct>] US0 = │
00:00:17 #112 [verbose] > │ | US0_0 of f0_0 : char │
00:00:17 #113 [verbose] > │ | US0_1 │
00:00:17 #114 [verbose] > │ let rec closure0 () (v0 : char) : bool = │
00:00:17 #115 [verbose] > │ let v1 : bool = 'b' = v0 │
00:00:17 #116 [verbose] > │ v1 │
00:00:17 #117 [verbose] > │ and closure1 () (v0 : char) : US0 = │
00:00:17 #118 [verbose] > │ US0_0(v0) │
00:00:17 #119 [verbose] > │ and method1 () : (char -> US0) = │
00:00:17 #120 [verbose] > │ closure1() │
00:00:17 #121 [verbose] > │ and method2 (v0 : bool) : bool = │
00:00:17 #122 [verbose] > │ v0 │
00:00:17 #123 [verbose] > │ and method0 () : unit = │
00:00:17 #124 [verbose] > │ let v0 : string = "abcd" │
00:00:17 #125 [verbose] > │ let v1 : string = $"%A{v0}" │
00:00:17 #126 [verbose] > │ System.Console.WriteLine v1 │
00:00:17 #127 [verbose] > │ let v2 : ((char -> bool) -> (string -> char option)) = Seq.tryFind │
00:00:17 #128 [verbose] > │ let v3 : (char -> bool) = closure0() │
00:00:17 #129 [verbose] > │ let v4 : (string -> char option) = v2 v3 │
00:00:17 #130 [verbose] > │ let v5 : char option = v4 v0 │
00:00:17 #131 [verbose] > │ let v6 : (char -> US0) = method1() │
00:00:17 #132 [verbose] > │ let v7 : US0 = US0_1 │
00:00:17 #133 [verbose] > │ let v8 : US0 = v5 |> Option.map v6 |> Option.defaultValue v7 │
00:00:17 #134 [verbose] > │ let v10 : bool = │
00:00:17 #135 [verbose] > │ match v8 with │
00:00:17 #136 [verbose] > │ | US0_1 -> (* None *) │
00:00:17 #137 [verbose] > │ true │
00:00:17 #138 [verbose] > │ | _ -> │
00:00:17 #139 [verbose] > │ false │
00:00:17 #140 [verbose] > │ let v11 : bool = v10 <> true │
00:00:17 #141 [verbose] > │ let v13 : bool = │
00:00:17 #142 [verbose] > │ if v11 then │
00:00:17 #143 [verbose] > │ true │
00:00:17 #144 [verbose] > │ else │
00:00:17 #145 [verbose] > │ method2(v11) │
00:00:17 #146 [verbose] > │ let v14 : string = $"__expect / actual: %A{v0} / expected: %A{'b'}" │
00:00:17 #147 [verbose] > │ let v15 : bool = v13 = false │
00:00:17 #148 [verbose] > │ if v15 then │
00:00:17 #149 [verbose] > │ failwith<unit> v14 │
00:00:17 #150 [verbose] > │ method0() │
00:00:17 #151 [verbose] > │ │
00:00:17 #152 [verbose] > │ "abcd" │
00:00:17 #153 [verbose] > │ │
00:00:17 #154 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #155 [verbose] >
00:00:17 #156 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 #157 [verbose] > // // test
00:00:17 #158 [verbose] >
00:00:17 #159 [verbose] > (dyn 1f64)
00:00:17 #160 [verbose] > |> _assert_approx_eq (Some 3) 2
00:00:17 #161 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\66ce9439be9f1271b47dd03243505e86066d3c01977f6369e2b0315f4ecf89aa\main.spi
00:00:17 #162 [verbose] >
00:00:17 #163 [verbose] > ╭─[ 350.45ms - stdout ]────────────────────────────────────────────────────────╮
00:00:17 #164 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:00:17 #165 [verbose] > │ v0 │
00:00:17 #166 [verbose] > │ and method0 () : unit = │
00:00:17 #167 [verbose] > │ let v0 : float = 1.0 │
00:00:17 #168 [verbose] > │ let v1 : string = $"%A{v0}" │
00:00:17 #169 [verbose] > │ System.Console.WriteLine v1 │
00:00:17 #170 [verbose] > │ let v2 : float = 2.0 - v0 │
00:00:17 #171 [verbose] > │ let v3 : float = -v2 │
00:00:17 #172 [verbose] > │ let v4 : bool = v2 >= v3 │
00:00:17 #173 [verbose] > │ let v5 : float = │
00:00:17 #174 [verbose] > │ if v4 then │
00:00:17 #175 [verbose] > │ v2 │
00:00:17 #176 [verbose] > │ else │
00:00:17 #177 [verbose] > │ v3 │
00:00:17 #178 [verbose] > │ let v6 : bool = v5 < 3.0 │
00:00:17 #179 [verbose] > │ let v8 : bool = │
00:00:17 #180 [verbose] > │ if v6 then │
00:00:17 #181 [verbose] > │ true │
00:00:17 #182 [verbose] > │ else │
00:00:17 #183 [verbose] > │ method1(v6) │
00:00:17 #184 [verbose] > │ let v9 : string = $"__expect / actual: %A{v0} / expected: %A{2.0}" │
00:00:17 #185 [verbose] > │ let v10 : bool = v8 = false │
00:00:17 #186 [verbose] > │ if v10 then │
00:00:17 #187 [verbose] > │ failwith<unit> v9 │
00:00:17 #188 [verbose] > │ method0() │
00:00:17 #189 [verbose] > │ │
00:00:17 #190 [verbose] > │ 1.0 │
00:00:17 #191 [verbose] > │ │
00:00:17 #192 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #193 [verbose] >
00:00:17 #194 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 #195 [verbose] > inl print_and_return x =
00:00:17 #196 [verbose] > $"printfn $\"print_and_return / x: {!x}\""
00:00:17 #197 [verbose] > x
00:00:17 #198 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b51ac49bb406218bb6bd4cd6325c88c9546a0639d0d60cd357826cfd3c0d8bed\main.spi
00:00:18 #199 [verbose] >
00:00:18 #200 [verbose] > ╭─[ 343.02ms - stdout ]────────────────────────────────────────────────────────╮
00:00:18 #201 [verbose] > │ () │
00:00:18 #202 [verbose] > │ │
00:00:18 #203 [verbose] > │ │
00:00:18 #204 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:20 #205 [verbose] > [NbConvertApp] Converting notebook testing.dib.ipynb to html
00:00:20 #206 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:20 #207 [verbose] > validate(nb)
00:00:21 #208 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:21 #209 [verbose] > return _pygments_highlight(
00:00:21 #210 [verbose] > [NbConvertApp] Writing 288401 bytes to testing.dib.html
00:00:23 #211 [debug] executeAsync / exitCode: 0 / output.Length: 11281
00:00:23 #212 [debug] main / executeCommand / exitCode: 0
00:00:23 #213 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 guid.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:00:27 #214 [verbose] >
00:00:27 #215 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:27 #216 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:27 #217 [verbose] > │ # guid │
00:00:27 #218 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:27 #219 [verbose] >
00:00:27 #220 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:27 #221 [verbose] > // // test
00:00:27 #222 [verbose] >
00:00:27 #223 [verbose] > open testing
00:00:31 #224 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:00:33 #225 [verbose] >
00:00:33 #226 [verbose] > ╭─[ 5.94s - stdout ]───────────────────────────────────────────────────────────╮
00:00:33 #227 [verbose] > │ () │
00:00:33 #228 [verbose] > │ │
00:00:33 #229 [verbose] > │ │
00:00:33 #230 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #231 [verbose] >
00:00:33 #232 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:33 #233 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:33 #234 [verbose] > │ ## guid │
00:00:33 #235 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #236 [verbose] >
00:00:33 #237 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 #238 [verbose] > nominal guid = $"System.Guid"
00:00:33 #239 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a75c685f6960362eab9a8fe1a3e2b3278ffd74315908bf46c8e60d83cf8715fd\main.spi
00:00:33 #240 [verbose] >
00:00:33 #241 [verbose] > ╭─[ 420.13ms - stdout ]────────────────────────────────────────────────────────╮
00:00:33 #242 [verbose] > │ () │
00:00:33 #243 [verbose] > │ │
00:00:33 #244 [verbose] > │ │
00:00:33 #245 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #246 [verbose] >
00:00:33 #247 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:33 #248 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:33 #249 [verbose] > │ ## new_guid │
00:00:33 #250 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #251 [verbose] >
00:00:33 #252 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 #253 [verbose] > inl new_guid (x : string) : guid =
00:00:33 #254 [verbose] > $'`guid !x '
00:00:33 #255 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cda63d39ae325d8a34c76067fb2a26b2bb91b40507122d404bd07cc0ac607868\main.spi
00:00:33 #256 [verbose] >
00:00:33 #257 [verbose] > ╭─[ 358.57ms - stdout ]────────────────────────────────────────────────────────╮
00:00:33 #258 [verbose] > │ () │
00:00:33 #259 [verbose] > │ │
00:00:33 #260 [verbose] > │ │
00:00:33 #261 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #262 [verbose] >
00:00:33 #263 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:33 #264 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:33 #265 [verbose] > │ ## new_raw_guid │
00:00:33 #266 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:33 #267 [verbose] >
00:00:33 #268 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:33 #269 [verbose] > inl new_raw_guid () : guid =
00:00:33 #270 [verbose] > $"System.Guid.NewGuid ()"
00:00:34 #271 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\17475be22bfb40029be299879a84344d6c09cdd87b5c5bd3cf868a8d42099288\main.spi
00:00:34 #272 [verbose] >
00:00:34 #273 [verbose] > ╭─[ 322.68ms - stdout ]────────────────────────────────────────────────────────╮
00:00:34 #274 [verbose] > │ () │
00:00:34 #275 [verbose] > │ │
00:00:34 #276 [verbose] > │ │
00:00:34 #277 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 #278 [verbose] >
00:00:34 #279 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:34 #280 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:34 #281 [verbose] > │ ## main │
00:00:34 #282 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:34 #283 [verbose] >
00:00:34 #284 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:34 #285 [verbose] > inl main () =
00:00:34 #286 [verbose] > $"let new_guid x = !new_guid x" : ()
00:00:34 #287 [verbose] > $"let new_raw_guid x = !new_raw_guid x" : ()
00:00:34 #288 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5b058abdfc3b2df628d49e420079117d23cd4a15771fc466a6a31bb6c3eca04c\main.spi
00:00:35 #289 [verbose] >
00:00:35 #290 [verbose] > ╭─[ 1.31s - stdout ]───────────────────────────────────────────────────────────╮
00:00:35 #291 [verbose] > │ let rec closure0 () (v0 : string) : System.Guid = │
00:00:35 #292 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:00:35 #293 [verbose] > │ v1 │
00:00:35 #294 [verbose] > │ and closure1 () () : System.Guid = │
00:00:35 #295 [verbose] > │ let v0 : System.Guid = System.Guid.NewGuid () │
00:00:35 #296 [verbose] > │ v0 │
00:00:35 #297 [verbose] > │ let v0 : (string -> System.Guid) = closure0() │
00:00:35 #298 [verbose] > │ let new_guid x = v0 x │
00:00:35 #299 [verbose] > │ let v1 : (unit -> System.Guid) = closure1() │
00:00:35 #300 [verbose] > │ let new_raw_guid x = v1 x │
00:00:35 #301 [verbose] > │ () │
00:00:35 #302 [verbose] > │ │
00:00:35 #303 [verbose] > │ │
00:00:35 #304 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:38 #305 [verbose] > [NbConvertApp] Converting notebook guid.dib.ipynb to html
00:00:38 #306 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:38 #307 [verbose] > validate(nb)
00:00:38 #308 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:38 #309 [verbose] > return _pygments_highlight(
00:00:39 #310 [verbose] > [NbConvertApp] Writing 278591 bytes to guid.dib.html
00:00:39 #311 [debug] executeAsync / exitCode: 0 / output.Length: 5882
00:00:39 #312 [debug] main / executeCommand / exitCode: 0
00:00:39 #313 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 async.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:00:43 #314 [verbose] >
00:00:43 #315 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:43 #316 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:43 #317 [verbose] > │ # async │
00:00:43 #318 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:43 #319 [verbose] >
00:00:43 #320 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:43 #321 [verbose] > // // test
00:00:43 #322 [verbose] >
00:00:43 #323 [verbose] > open testing
00:00:46 #324 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:00:48 #325 [verbose] >
00:00:48 #326 [verbose] > ╭─[ 4.95s - stdout ]───────────────────────────────────────────────────────────╮
00:00:48 #327 [verbose] > │ () │
00:00:48 #328 [verbose] > │ │
00:00:48 #329 [verbose] > │ │
00:00:48 #330 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:48 #331 [verbose] >
00:00:48 #332 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:48 #333 [verbose] > open rust_operators
00:00:48 #334 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b9bafaa9190fd8b92f96dcaf4c2d6855aa7c524558dd349c71163ab7065188b0\main.spi
00:00:48 #335 [verbose] >
00:00:48 #336 [verbose] > ╭─[ 253.12ms - stdout ]────────────────────────────────────────────────────────╮
00:00:48 #337 [verbose] > │ () │
00:00:48 #338 [verbose] > │ │
00:00:48 #339 [verbose] > │ │
00:00:48 #340 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:48 #341 [verbose] >
00:00:48 #342 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:48 #343 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:48 #344 [verbose] > │ ## types │
00:00:48 #345 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:48 #346 [verbose] >
00:00:48 #347 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:48 #348 [verbose] > inl types () =
00:00:48 #349 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::future::Future<Output =
00:00:48 #350 [verbose] > $0>\")>]] type Future<'T> = class end"
00:00:48 #351 [verbose] > global "[[<Fable.Core.Erase;
00:00:48 #352 [verbose] > Fable.Core.Emit(\"futures::future::TryJoinAll<$0>\")>]] type TryJoinAll<'T> =
00:00:48 #353 [verbose] > class end"
00:00:48 #354 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ab48399130e43dc117c178a16c23aaf0cfcd57375b0fc291fd5344858a320691\main.spi
00:00:48 #355 [verbose] >
00:00:48 #356 [verbose] > ╭─[ 270.97ms - stdout ]────────────────────────────────────────────────────────╮
00:00:48 #357 [verbose] > │ () │
00:00:48 #358 [verbose] > │ │
00:00:48 #359 [verbose] > │ │
00:00:48 #360 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:48 #361 [verbose] >
00:00:48 #362 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:48 #363 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:48 #364 [verbose] > │ ## async │
00:00:48 #365 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:48 #366 [verbose] >
00:00:48 #367 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:48 #368 [verbose] > nominal async t = $"Async<`t>"
00:00:48 #369 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fc0de2587f0accec53ff19c544f544c661e9b32d33ffa2503370af0363f6877e\main.spi
00:00:48 #370 [verbose] >
00:00:48 #371 [verbose] > ╭─[ 286.91ms - stdout ]────────────────────────────────────────────────────────╮
00:00:48 #372 [verbose] > │ () │
00:00:48 #373 [verbose] > │ │
00:00:48 #374 [verbose] > │ │
00:00:48 #375 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:48 #376 [verbose] >
00:00:48 #377 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:48 #378 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:48 #379 [verbose] > │ ## future │
00:00:48 #380 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:48 #381 [verbose] >
00:00:48 #382 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:48 #383 [verbose] > nominal future t = $"Future<`t>"
00:00:49 #384 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e4f84321309f279e617a9744317f8e172c01eb74e217f8a530c524f1d33075e7\main.spi
00:00:49 #385 [verbose] >
00:00:49 #386 [verbose] > ╭─[ 311.07ms - stdout ]────────────────────────────────────────────────────────╮
00:00:49 #387 [verbose] > │ () │
00:00:49 #388 [verbose] > │ │
00:00:49 #389 [verbose] > │ │
00:00:49 #390 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:49 #391 [verbose] >
00:00:49 #392 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:49 #393 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:49 #394 [verbose] > │ ## task │
00:00:49 #395 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:49 #396 [verbose] >
00:00:49 #397 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:49 #398 [verbose] > nominal task t =
00:00:49 #399 [verbose] > `(
00:00:49 #400 [verbose] > typecase t with
00:00:49 #401 [verbose] > | () => $'' : $"System.Threading.Tasks.Task"
00:00:49 #402 [verbose] > | _ => $'' : $"System.Threading.Tasks.Task<`t>"
00:00:49 #403 [verbose] > )
00:00:49 #404 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\73f5e0bd9fb0b3233b72b9e40160ae6ab9eaaf2ab7439d9e6cbbba6fa76b399c\main.spi
00:00:49 #405 [verbose] >
00:00:49 #406 [verbose] > ╭─[ 271.88ms - stdout ]────────────────────────────────────────────────────────╮
00:00:49 #407 [verbose] > │ () │
00:00:49 #408 [verbose] > │ │
00:00:49 #409 [verbose] > │ │
00:00:49 #410 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:49 #411 [verbose] >
00:00:49 #412 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:49 #413 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:49 #414 [verbose] > │ ## future_pin │
00:00:49 #415 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:49 #416 [verbose] >
00:00:49 #417 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:49 #418 [verbose] > type future_pin t = rust.pin (rust.box (rust.dyn' (future t)))
00:00:49 #419 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\97819fa2046bdb234404c32ad0ccf9e77d947e19edf308af274ea808c7717a2a\main.spi
00:00:49 #420 [verbose] >
00:00:49 #421 [verbose] > ╭─[ 278.87ms - stdout ]────────────────────────────────────────────────────────╮
00:00:49 #422 [verbose] > │ () │
00:00:49 #423 [verbose] > │ │
00:00:49 #424 [verbose] > │ │
00:00:49 #425 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:49 #426 [verbose] >
00:00:49 #427 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:49 #428 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:49 #429 [verbose] > │ ## try_join_all │
00:00:49 #430 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:49 #431 [verbose] >
00:00:49 #432 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:49 #433 [verbose] > nominal try_join_all t = $"TryJoinAll<`t>"
00:00:50 #434 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\98a25d4bd5f4ba6f83eae67495e26feb4431f7bf83f156f90ab65ba3c65b6f24\main.spi
00:00:50 #435 [verbose] >
00:00:50 #436 [verbose] > ╭─[ 348.40ms - stdout ]────────────────────────────────────────────────────────╮
00:00:50 #437 [verbose] > │ () │
00:00:50 #438 [verbose] > │ │
00:00:50 #439 [verbose] > │ │
00:00:50 #440 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:50 #441 [verbose] >
00:00:50 #442 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:50 #443 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:50 #444 [verbose] > │ ## future_init │
00:00:50 #445 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:50 #446 [verbose] >
00:00:50 #447 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:50 #448 [verbose] > inl future_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -> t) :
00:00:50 #449 [verbose] > future_pin t =
00:00:50 #450 [verbose] > join
00:00:50 #451 [verbose] > if flag = 1
00:00:50 #452 [verbose] > then !\($'"let __result = Box::pin(async move { //"')
00:00:50 #453 [verbose] > else !\($'"let __result = Box::pin(async { //"')
00:00:50 #454 [verbose] >
00:00:50 #455 [verbose] > let x' = x ()
00:00:50 #456 [verbose] > inl x' = join x'
00:00:50 #457 [verbose] >
00:00:50 #458 [verbose] > x' |> rust.fix_closure depth
00:00:50 #459 [verbose] >
00:00:50 #460 [verbose] > !\($'"__result"')
00:00:50 #461 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e8d427dfa8e4fa2fc41dfc1c67ab29ec184329ae4a0ed22c11710eabe52420e8\main.spi
00:00:50 #462 [verbose] >
00:00:50 #463 [verbose] > ╭─[ 640.37ms - stdout ]────────────────────────────────────────────────────────╮
00:00:50 #464 [verbose] > │ () │
00:00:50 #465 [verbose] > │ │
00:00:50 #466 [verbose] > │ │
00:00:50 #467 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:50 #468 [verbose] >
00:00:50 #469 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:50 #470 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:50 #471 [verbose] > │ ## try_join_all │
00:00:50 #472 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:50 #473 [verbose] >
00:00:50 #474 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:50 #475 [verbose] > inl try_join_all forall t. (x : am'.vec (future_pin (resultm.result' t
00:00:50 #476 [verbose] > sm'.std_string))) : try_join_all (future_pin (resultm.result' t sm'.std_string))
00:00:50 #477 [verbose] > =
00:00:50 #478 [verbose] > inl x = join x
00:00:50 #479 [verbose] > !\($'"futures::future::try_join_all(!x)"')
00:00:51 #480 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a437e159340cda7f81d273968ac133f94aa0c79ee35383818d4f375c7edb5f3b\main.spi
00:00:51 #481 [verbose] >
00:00:51 #482 [verbose] > ╭─[ 411.67ms - stdout ]────────────────────────────────────────────────────────╮
00:00:51 #483 [verbose] > │ () │
00:00:51 #484 [verbose] > │ │
00:00:51 #485 [verbose] > │ │
00:00:51 #486 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:51 #487 [verbose] >
00:00:51 #488 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:51 #489 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:51 #490 [verbose] > │ ## await' │
00:00:51 #491 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:51 #492 [verbose] >
00:00:51 #493 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:51 #494 [verbose] > inl await' forall t. (x : try_join_all (future_pin (resultm.result' t
00:00:51 #495 [verbose] > sm'.std_string))) : resultm.result' (am'.vec t) sm'.std_string =
00:00:51 #496 [verbose] > !\($'"!x.await"')
00:00:51 #497 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\374f2fb42b3a6d09a9ce679715e25c7f6ed401061be64f9a93b4eeaf81c8a0cd\main.spi
00:00:51 #498 [verbose] >
00:00:51 #499 [verbose] > ╭─[ 422.13ms - stdout ]────────────────────────────────────────────────────────╮
00:00:51 #500 [verbose] > │ () │
00:00:51 #501 [verbose] > │ │
00:00:51 #502 [verbose] > │ │
00:00:51 #503 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:51 #504 [verbose] >
00:00:51 #505 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:51 #506 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:51 #507 [verbose] > │ ## await │
00:00:51 #508 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:51 #509 [verbose] >
00:00:51 #510 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:51 #511 [verbose] > inl await forall t. (x : future_pin t) : t =
00:00:51 #512 [verbose] > !\($'"!x.await"')
00:00:51 #513 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\baafb274d6977aef3e87907cd8f013de950094c8579b8b8e320b5b4e20912589\main.spi
00:00:52 #514 [verbose] >
00:00:52 #515 [verbose] > ╭─[ 423.61ms - stdout ]────────────────────────────────────────────────────────╮
00:00:52 #516 [verbose] > │ () │
00:00:52 #517 [verbose] > │ │
00:00:52 #518 [verbose] > │ │
00:00:52 #519 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #520 [verbose] >
00:00:52 #521 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:52 #522 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:52 #523 [verbose] > │ ## new_async_unit │
00:00:52 #524 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #525 [verbose] >
00:00:52 #526 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:52 #527 [verbose] > inl new_async_unit forall t. (fn : () -> ()) : async t =
00:00:52 #528 [verbose] > run_target function
00:00:52 #529 [verbose] > | Fsharp (Native) => fun () =>
00:00:52 #530 [verbose] > inl result : optionm'.option' (async t) = optionm'.none' ()
00:00:52 #531 [verbose] > $"let mutable _!result = !result"
00:00:52 #532 [verbose] > $"async {"
00:00:52 #533 [verbose] > fn ()
00:00:52 #534 [verbose] > $"}"
00:00:52 #535 [verbose] > $"|> fun x -> _!result <- Some x"
00:00:52 #536 [verbose] > $"_!result |> Option.get"
00:00:52 #537 [verbose] > | _ => fun () => null ()
00:00:52 #538 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\83a1440082d71d134a69afa0e9c9f97d5dc8062f1abccdeebb908643cce2cf3a\main.spi
00:00:52 #539 [verbose] >
00:00:52 #540 [verbose] > ╭─[ 397.36ms - stdout ]────────────────────────────────────────────────────────╮
00:00:52 #541 [verbose] > │ () │
00:00:52 #542 [verbose] > │ │
00:00:52 #543 [verbose] > │ │
00:00:52 #544 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #545 [verbose] >
00:00:52 #546 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:52 #547 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:52 #548 [verbose] > │ ## new_async │
00:00:52 #549 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:52 #550 [verbose] >
00:00:52 #551 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:52 #552 [verbose] > inl new_async forall t. (fn : () -> t) : async t =
00:00:52 #553 [verbose] > new_async_unit (fn >> ignore)
00:00:52 #554 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\431d72cb81fd5920e9c047eb7bf1e48b213645f916b6a532bd10ede14f65e776\main.spi
00:00:53 #555 [verbose] >
00:00:53 #556 [verbose] > ╭─[ 548.59ms - stdout ]────────────────────────────────────────────────────────╮
00:00:53 #557 [verbose] > │ () │
00:00:53 #558 [verbose] > │ │
00:00:53 #559 [verbose] > │ │
00:00:53 #560 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 #561 [verbose] >
00:00:53 #562 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:53 #563 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:53 #564 [verbose] > │ ## new_task │
00:00:53 #565 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 #566 [verbose] >
00:00:53 #567 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:53 #568 [verbose] > inl new_task forall t. (fn : () -> t) : task t =
00:00:53 #569 [verbose] > run_target function
00:00:53 #570 [verbose] > | Fsharp (Native) => fun () =>
00:00:53 #571 [verbose] > inl result : optionm'.option' (task t) = optionm'.none' ()
00:00:53 #572 [verbose] > $"let mutable _!result = !result"
00:00:53 #573 [verbose] > $"task {"
00:00:53 #574 [verbose] > fn () |> ignore
00:00:53 #575 [verbose] > $"}"
00:00:53 #576 [verbose] > $"|> fun x -> _!result <- Some x"
00:00:53 #577 [verbose] > $"_!result |> Option.get"
00:00:53 #578 [verbose] > | _ => fun () => null ()
00:00:53 #579 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5ffc7548328b078b3e481a25d4283d0d6eb7f498089ff9b7649268f720b013fc\main.spi
00:00:53 #580 [verbose] >
00:00:53 #581 [verbose] > ╭─[ 732.27ms - stdout ]────────────────────────────────────────────────────────╮
00:00:53 #582 [verbose] > │ () │
00:00:53 #583 [verbose] > │ │
00:00:53 #584 [verbose] > │ │
00:00:53 #585 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 #586 [verbose] >
00:00:53 #587 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:53 #588 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:53 #589 [verbose] > │ ## await_task │
00:00:53 #590 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:53 #591 [verbose] >
00:00:53 #592 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:53 #593 [verbose] > inl await_task forall t. (a : task t) : async t =
00:00:53 #594 [verbose] > run_target function
00:00:53 #595 [verbose] > | Fsharp (Native) => fun () =>
00:00:53 #596 [verbose] > a |> $'Async.AwaitTask'
00:00:53 #597 [verbose] > | _ => fun () => null ()
00:00:54 #598 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\917a8a659ae5a0f400178a8905a287fb2adf5b7387f59aec191632cbf796c88f\main.spi
00:00:54 #599 [verbose] >
00:00:54 #600 [verbose] > ╭─[ 448.73ms - stdout ]────────────────────────────────────────────────────────╮
00:00:54 #601 [verbose] > │ () │
00:00:54 #602 [verbose] > │ │
00:00:54 #603 [verbose] > │ │
00:00:54 #604 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 #605 [verbose] >
00:00:54 #606 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:54 #607 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:54 #608 [verbose] > │ ## ignore │
00:00:54 #609 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:54 #610 [verbose] >
00:00:54 #611 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:54 #612 [verbose] > inl ignore forall t. (a : async t) : async () =
00:00:54 #613 [verbose] > run_target function
00:00:54 #614 [verbose] > | Fsharp (Native) => fun () =>
00:00:54 #615 [verbose] > a |> $'Async.Ignore'
00:00:54 #616 [verbose] > | _ => fun () => null ()
00:00:54 #617 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e55459eea25d69436c5f07835e48c6f784080fbab79d4c06f2aeee656a774437\main.spi
00:00:55 #618 [verbose] >
00:00:55 #619 [verbose] > ╭─[ 701.71ms - stdout ]────────────────────────────────────────────────────────╮
00:00:55 #620 [verbose] > │ () │
00:00:55 #621 [verbose] > │ │
00:00:55 #622 [verbose] > │ │
00:00:55 #623 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 #624 [verbose] >
00:00:55 #625 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:55 #626 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:55 #627 [verbose] > │ ## run_synchronously │
00:00:55 #628 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 #629 [verbose] >
00:00:55 #630 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:55 #631 [verbose] > inl run_synchronously forall t. (a : async t) : t =
00:00:55 #632 [verbose] > run_target function
00:00:55 #633 [verbose] > | Fsharp (Native) => fun () =>
00:00:55 #634 [verbose] > a |> $'Async.RunSynchronously'
00:00:55 #635 [verbose] > | _ => fun () => null ()
00:00:55 #636 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e883338004ba2f71287a7ab0c1fb37907624c7293ac6dda1fe614e6d9f455752\main.spi
00:00:55 #637 [verbose] >
00:00:55 #638 [verbose] > ╭─[ 419.02ms - stdout ]────────────────────────────────────────────────────────╮
00:00:55 #639 [verbose] > │ () │
00:00:55 #640 [verbose] > │ │
00:00:55 #641 [verbose] > │ │
00:00:55 #642 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 #643 [verbose] >
00:00:55 #644 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:55 #645 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:55 #646 [verbose] > │ ## start_child │
00:00:55 #647 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 #648 [verbose] >
00:00:55 #649 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:55 #650 [verbose] > inl start_child forall t. (a : async t) : async (async t) =
00:00:55 #651 [verbose] > run_target function
00:00:55 #652 [verbose] > | Fsharp (Native) => fun () =>
00:00:55 #653 [verbose] > a |> $'Async.StartChild'
00:00:55 #654 [verbose] > | _ => fun () => null ()
00:00:55 #655 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\edd0ac963e6920d2914c09df3138b7ee4d3ebba2827618c6d03e6d9bca3615c6\main.spi
00:00:55 #656 [verbose] >
00:00:55 #657 [verbose] > ╭─[ 397.39ms - stdout ]────────────────────────────────────────────────────────╮
00:00:55 #658 [verbose] > │ () │
00:00:55 #659 [verbose] > │ │
00:00:55 #660 [verbose] > │ │
00:00:55 #661 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 #662 [verbose] >
00:00:55 #663 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:55 #664 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:55 #665 [verbose] > │ ## start_child_timeout │
00:00:55 #666 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:55 #667 [verbose] >
00:00:55 #668 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:55 #669 [verbose] > inl start_child_timeout forall t. (timeout : i32) (a : async t) : async (async
00:00:55 #670 [verbose] > t) =
00:00:55 #671 [verbose] > run_target function
00:00:55 #672 [verbose] > | Fsharp (Native) => fun () =>
00:00:55 #673 [verbose] > $'Async.StartChild (!a, !timeout)'
00:00:55 #674 [verbose] > | _ => fun () => null ()
00:00:56 #675 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dc861fc4b224356caf48bbf8e9b9c5bc87a235352adc2cf3ad683df7c1d4a4b4\main.spi
00:00:56 #676 [verbose] >
00:00:56 #677 [verbose] > ╭─[ 419.79ms - stdout ]────────────────────────────────────────────────────────╮
00:00:56 #678 [verbose] > │ () │
00:00:56 #679 [verbose] > │ │
00:00:56 #680 [verbose] > │ │
00:00:56 #681 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 #682 [verbose] >
00:00:56 #683 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:56 #684 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:56 #685 [verbose] > │ ## sleep │
00:00:56 #686 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 #687 [verbose] >
00:00:56 #688 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:56 #689 [verbose] > inl sleep (ms : i32) : async () =
00:00:56 #690 [verbose] > run_target function
00:00:56 #691 [verbose] > | Fsharp (Native) => fun () =>
00:00:56 #692 [verbose] > ms |> $'Async.Sleep'
00:00:56 #693 [verbose] > | _ => fun () => null ()
00:00:56 #694 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\71a99f554d1c5840560ecb53c4318a8df76321cb9d489d0771e5a6fc3375edae\main.spi
00:00:56 #695 [verbose] >
00:00:56 #696 [verbose] > ╭─[ 463.36ms - stdout ]────────────────────────────────────────────────────────╮
00:00:56 #697 [verbose] > │ () │
00:00:56 #698 [verbose] > │ │
00:00:56 #699 [verbose] > │ │
00:00:56 #700 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 #701 [verbose] >
00:00:56 #702 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:56 #703 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:56 #704 [verbose] > │ ## do │
00:00:56 #705 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:56 #706 [verbose] >
00:00:56 #707 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:56 #708 [verbose] > inl do (a : async ()) : () =
00:00:56 #709 [verbose] > $'do\! !a '
00:00:57 #710 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b64f0756fafbd5b85ec54cadeccc5e6e98ea6f7bf6b2ac55517da61d31f75c99\main.spi
00:00:57 #711 [verbose] >
00:00:57 #712 [verbose] > ╭─[ 808.89ms - stdout ]────────────────────────────────────────────────────────╮
00:00:57 #713 [verbose] > │ () │
00:00:57 #714 [verbose] > │ │
00:00:57 #715 [verbose] > │ │
00:00:57 #716 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:57 #717 [verbose] >
00:00:57 #718 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:57 #719 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:57 #720 [verbose] > │ ## let' │
00:00:57 #721 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:57 #722 [verbose] >
00:00:57 #723 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:57 #724 [verbose] > inl let' forall t. (a : async t) : t =
00:00:57 #725 [verbose] > $'let\! !a = !a '
00:00:57 #726 [verbose] > $'!a '
00:00:57 #727 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2af0ee57fb44bfa4b2ef850c5d8dbd27b02a2337c22ceefaf89fd102c9ce377e\main.spi
00:00:58 #728 [verbose] >
00:00:58 #729 [verbose] > ╭─[ 545.43ms - stdout ]────────────────────────────────────────────────────────╮
00:00:58 #730 [verbose] > │ () │
00:00:58 #731 [verbose] > │ │
00:00:58 #732 [verbose] > │ │
00:00:58 #733 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 #734 [verbose] >
00:00:58 #735 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 #736 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 #737 [verbose] > │ ## return_await │
00:00:58 #738 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 #739 [verbose] >
00:00:58 #740 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 #741 [verbose] > inl return_await forall t. (a : async t) : () =
00:00:58 #742 [verbose] > $'return\! !a '
00:00:58 #743 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d0fe95f990a1e0cfc776080318c4efca95bb1d223fd1c578f4e7439ecc2fe1be\main.spi
00:00:58 #744 [verbose] >
00:00:58 #745 [verbose] > ╭─[ 483.15ms - stdout ]────────────────────────────────────────────────────────╮
00:00:58 #746 [verbose] > │ () │
00:00:58 #747 [verbose] > │ │
00:00:58 #748 [verbose] > │ │
00:00:58 #749 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 #750 [verbose] >
00:00:58 #751 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:58 #752 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:58 #753 [verbose] > │ ## return_await' │
00:00:58 #754 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:58 #755 [verbose] >
00:00:58 #756 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:58 #757 [verbose] > inl return_await' forall t. (a : async t) : t =
00:00:58 #758 [verbose] > $'return\! !a '
00:00:58 #759 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\95cedce78cdd7bd0315f6cc0f8568af0f257b311418e62306ed6c5424f5a2c5a\main.spi
00:00:59 #760 [verbose] >
00:00:59 #761 [verbose] > ╭─[ 461.84ms - stdout ]────────────────────────────────────────────────────────╮
00:00:59 #762 [verbose] > │ () │
00:00:59 #763 [verbose] > │ │
00:00:59 #764 [verbose] > │ │
00:00:59 #765 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 #766 [verbose] >
00:00:59 #767 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 #768 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 #769 [verbose] > │ ## map │
00:00:59 #770 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 #771 [verbose] >
00:00:59 #772 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 #773 [verbose] > inl map forall t u. (fn : t -> u) (a : async t) : async u =
00:00:59 #774 [verbose] > fun () =>
00:00:59 #775 [verbose] > inl x = a |> let'
00:00:59 #776 [verbose] > fn x |> return
00:00:59 #777 [verbose] > |> new_async_unit
00:00:59 #778 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b79d66a5a20b3ef0dfc33e173925e8331b07b4342a9b08d27b25c7fbbbe35ed3\main.spi
00:00:59 #779 [verbose] >
00:00:59 #780 [verbose] > ╭─[ 391.00ms - stdout ]────────────────────────────────────────────────────────╮
00:00:59 #781 [verbose] > │ () │
00:00:59 #782 [verbose] > │ │
00:00:59 #783 [verbose] > │ │
00:00:59 #784 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 #785 [verbose] >
00:00:59 #786 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:59 #787 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:59 #788 [verbose] > │ ## choice │
00:00:59 #789 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:59 #790 [verbose] >
00:00:59 #791 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:59 #792 [verbose] > union choice t1 t2 =
00:00:59 #793 [verbose] > | Choice1Of2 : t1
00:00:59 #794 [verbose] > | Choice2Of2 : t2
00:00:59 #795 [verbose] >
00:00:59 #796 [verbose] > nominal choice' t1 t2 = $'Choice<`t1, `t2>'
00:00:59 #797 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fa25d7173d672633d1114961c6cc7663e60b85ef5464dfca53cf38b4ddc12792\main.spi
00:01:00 #798 [verbose] >
00:01:00 #799 [verbose] > ╭─[ 469.96ms - stdout ]────────────────────────────────────────────────────────╮
00:01:00 #800 [verbose] > │ () │
00:01:00 #801 [verbose] > │ │
00:01:00 #802 [verbose] > │ │
00:01:00 #803 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #804 [verbose] >
00:01:00 #805 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:00 #806 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:00 #807 [verbose] > │ ## choice_unbox │
00:01:00 #808 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #809 [verbose] >
00:01:00 #810 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:00 #811 [verbose] > inl choice_unbox forall t1 t2. (choice : choice' t1 t2) : choice t1 t2 =
00:01:00 #812 [verbose] > run_target function
00:01:00 #813 [verbose] > | Fsharp (Native) => fun () =>
00:01:00 #814 [verbose] > inl choice1Of2 (x : t1) : _ _ t2 = Choice1Of2 x
00:01:00 #815 [verbose] > inl choice2Of2 (x : t2) : _ t1 _ = Choice2Of2 x
00:01:00 #816 [verbose] > $'match !choice with Choice1Of2 x -> !choice1Of2 x | Choice2Of2 x ->
00:01:00 #817 [verbose] > !choice2Of2 x'
00:01:00 #818 [verbose] > | _ => fun () => null ()
00:01:00 #819 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\83770bdc0df430e8228f3cb3a4c9ec9894e3a12904b3d9a78aba90a17bf70a00\main.spi
00:01:00 #820 [verbose] >
00:01:00 #821 [verbose] > ╭─[ 407.76ms - stdout ]────────────────────────────────────────────────────────╮
00:01:00 #822 [verbose] > │ () │
00:01:00 #823 [verbose] > │ │
00:01:00 #824 [verbose] > │ │
00:01:00 #825 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #826 [verbose] >
00:01:00 #827 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:00 #828 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:00 #829 [verbose] > │ ## catch' │
00:01:00 #830 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #831 [verbose] >
00:01:00 #832 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:00 #833 [verbose] > inl catch' forall t e. (a : async t) : async (choice' t e) =
00:01:00 #834 [verbose] > run_target function
00:01:00 #835 [verbose] > | Fsharp (Native) => fun () =>
00:01:00 #836 [verbose] > a |> $'Async.Catch'
00:01:00 #837 [verbose] > | _ => fun () => null ()
00:01:00 #838 [verbose] > 00:00:56 #1 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"\n\n// // test\n\nopen testing\n\ninl main () = ()\n\n\nopen rust_operators\n\ninl main () = ()\n\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::future::Future\u003COutput = $0\u003E\\\u0022)\u003E] type Future\u003C\u0027T\u003E = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022futures::future::TryJoinAll\u003C$0\u003E\\\u0022)\u003E] type TryJoinAll\u003C\u0027T\u003E = class end\u0022\n\ninl main () = ()\n\n\nnominal async t = $\u0022Async\u003C\u0060t\u003E\u0022\n\ninl main () = ()\n\n\nnominal future t = $\u0022Future\u003C\u0060t\u003E\u0022\n\ninl main () = ()\n\n\nnominal task t =\n \u0060(\n typecase t with\n | () =\u003E $\u0027\u0027 : $\u0022System.Threading.Tasks.Task\u0022\n | _ =\u003E $\u0027\u0027 : $\u0022System.Threading.Tasks.Task\u003C\u0060t\u003E\u0022\n )\n\ninl main () = ()\n\n\ntype future_pin t = rust.pin (rust.box (rust.dyn\u0027 (future t)))\n\ninl main () = ()\n\n\nnominal try_join_all t = $\u0022TryJoinAll\u003C\u0060t\u003E\u0022\n\ninl main () = ()\n\n\ninl future_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -\u003E t) : future_pin t =\n join\n if flag = 1\n then !\\($\u0027\u0022let __result = Box::pin(async move { //\u0022\u0027)\n else !\\($\u0027\u0022let __result = Box::pin(async { //\u0022\u0027)\n\n let x\u0027 = x ()\n inl x\u0027 = join x\u0027\n\n x\u0027 |\u003E rust.fix_closure depth\n\n !\\($\u0027\u0022__result\u0022\u0027)\n\ninl main () = ()\n\n\ninl try_join_all forall t. (x : am\u0027.vec (future_pin (resultm.result\u0027 t sm\u0027.std_string))) : try_join_all (future_pin (resultm.result\u0027 t sm\u0027.std_string)) =\n inl x = join x\n !\\($\u0027\u0022futures::future::try_join_all(!x)\u0022\u0027)\n\ninl main () = ()\n\n\ninl await\u0027 forall t. (x : try_join_all (future_pin (resultm.result\u0027 t sm\u0027.std_string))) : resultm.result\u0027 (am\u0027.vec t) sm\u0027.std_string =\n !\\($\u0027\u0022!x.await\u0022\u0027)\n\ninl main () = ()\n\n\ninl await forall t. (x : future_pin t) : t =\n !\\($\u0027\u0022!x.await\u0022\u0027)\n\ninl main () = ()\n\n\ninl new_async_unit forall t. (fn : () -\u003E ()) : async t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl result : optionm\u0027.option\u0027 (async t) = optionm\u0027.none\u0027 ()\n $\u0022let mutable _!result = !result\u0022\n $\u0022async {\u0022\n fn ()\n $\u0022}\u0022\n $\u0022|\u003E fun x -\u003E _!result \u003C- Some x\u0022\n $\u0022_!result |\u003E Option.get\u0022\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl new_async forall t. (fn : () -\u003E t) : async t =\n new_async_unit (fn \u003E\u003E ignore)\n\ninl main () = ()\n\n\ninl new_task forall t. (fn : () -\u003E t) : task t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl result : optionm\u0027.option\u0027 (task t) = optionm\u0027.none\u0027 ()\n $\u0022let mutable _!result = !result\u0022\n $\u0022task {\u0022\n fn () |\u003E ignore\n $\u0022}\u0022\n $\u0022|\u003E fun x -\u003E _!result \u003C- Some x\u0022\n $\u0022_!result |\u003E Option.get\u0022\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl await_task forall t. (a : task t) : async t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.AwaitTask\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl ignore forall t. (a : async t) : async () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.Ignore\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl run_synchronously forall t. (a : async t) : t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.RunSynchronously\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl start_child forall t. (a : async t) : async (async t) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.StartChild\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl start_child_timeout forall t. (timeout : i32) (a : async t) : async (async t) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027Async.StartChild (!a, !timeout)\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl sleep (ms : i32) : async () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n ms |\u003E $\u0027Async.Sleep\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl do (a : async ()) : () =\n $\u0027do\\! !a \u0027\n\ninl main () = ()\n\n\ninl let\u0027 forall t. (a : async t) : t =\n $\u0027let\\! !a = !a \u0027\n $\u0027!a \u0027\n\ninl main () = ()\n\n\ninl return_await forall t. (a : async t) : () =\n $\u0027return\\! !a \u0027\n\ninl main () = ()\n\n\ninl return_await\u0027 forall t. (a : async t) : t =\n $\u0027return\\! !a \u0027\n\ninl main () = ()\n\n\ninl map forall t u. (fn : t -\u003E u) (a : async t) : async u =\n fun () =\u003E\n inl x = a |\u003E let\u0027\n fn x |\u003E return\n |\u003E new_async_unit\n\ninl main () = ()\n\n\nunion choice t1 t2 =\n | Choice1Of2 : t1\n | Choice2Of2 : t2\n\nnominal choice\u0027 t1 t2 = $\u0027Choice\u003C\u0060t1, \u0060t2\u003E\u0027\n\ninl main () = ()\n\n\ninl choice_unbox forall t1 t2. (choice : choice\u0027 t1 t2) : choice t1 t2 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl choice1Of2 (x : t1) : _ _ t2 = Choice1Of2 x\n inl choice2Of2 (x : t2) : _ t1 _ = Choice2Of2 x\n $\u0027match !choice with Choice1Of2 x -\u003E !choice1Of2 x | Choice2Of2 x -\u003E !choice2Of2 x\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl catch\u0027 forall t e. (a : async t) : async (choice\u0027 t e) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.Catch\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/084f27f2803953e46113b7fba1a69d97727545d04379b4147ff091193a324506/main.spi"}} / result.Length:
00:01:00 #839 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\084f27f2803953e46113b7fba1a69d97727545d04379b4147ff091193a324506\main.spi
00:01:00 #840 [verbose] > 00:00:56 #2 [debug] sendJson / port: 13805 / json: {"FileTokenRange":{"range":[{"character":0,"line":0},{"character":0,"line":237}],"uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/084f27f2803953e46113b7fba1a69d97727545d04379b4147ff091193a324506/main.spi"}} / result.Length: Some(36395)
00:01:00 #841 [verbose] >
00:01:00 #842 [verbose] > ╭─[ 475.08ms - stdout ]────────────────────────────────────────────────────────╮
00:01:00 #843 [verbose] > │ () │
00:01:00 #844 [verbose] > │ │
00:01:00 #845 [verbose] > │ │
00:01:00 #846 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #847 [verbose] >
00:01:00 #848 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:00 #849 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:00 #850 [verbose] > │ ## catch │
00:01:00 #851 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #852 [verbose] >
00:01:00 #853 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:00 #854 [verbose] > inl catch forall t e. (a : async t) : async (result t e) =
00:01:00 #855 [verbose] > a
00:01:00 #856 [verbose] > |> catch'
00:01:00 #857 [verbose] > |> map choice_unbox
00:01:00 #858 [verbose] > |> map function
00:01:00 #859 [verbose] > | Choice1Of2 result => Ok result
00:01:00 #860 [verbose] > | Choice2Of2 ex => Error ex
00:01:01 #861 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\51deb8960e347b50cd548d75d5a162995ce414d79e23ee9663a636f2e97be3f0\main.spi
00:01:01 #862 [verbose] >
00:01:01 #863 [verbose] > ╭─[ 511.41ms - stdout ]────────────────────────────────────────────────────────╮
00:01:01 #864 [verbose] > │ () │
00:01:01 #865 [verbose] > │ │
00:01:01 #866 [verbose] > │ │
00:01:01 #867 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 #868 [verbose] >
00:01:01 #869 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:01 #870 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:01 #871 [verbose] > │ ## run_with_timeout_async │
00:01:01 #872 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 #873 [verbose] >
00:01:01 #874 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:01 #875 [verbose] > inl run_with_timeout_async forall t. (timeout : i32) (fn : async t) : async
00:01:01 #876 [verbose] > (option t) =
00:01:01 #877 [verbose] > run_target function
00:01:01 #878 [verbose] > | Fsharp (Native) => fun () =>
00:01:01 #879 [verbose] > fun () =>
00:01:01 #880 [verbose] > inl get_locals () = $'$"timeout: {!timeout} / {!get_locals ()}"'
00:01:01 #881 [verbose] > : string
00:01:01 #882 [verbose] > inl child = fn |> start_child_timeout timeout |> let'
00:01:01 #883 [verbose] > child
00:01:01 #884 [verbose] > |> catch
00:01:01 #885 [verbose] > |> map function
00:01:01 #886 [verbose] > | Ok result => Some result
00:01:01 #887 [verbose] > | Error ex when ex |> sm'.format_debug |> sm'.contains
00:01:01 #888 [verbose] > "System.TimeoutException" =>
00:01:01 #889 [verbose] > trace Debug (fun () => $'"run_with_timeout_async"' :
00:01:01 #890 [verbose] > string) get_locals
00:01:01 #891 [verbose] > None
00:01:01 #892 [verbose] > | Error (ex : exn) =>
00:01:01 #893 [verbose] > inl ex = ex |> sm'.format_exception
00:01:01 #894 [verbose] > trace Critical (fun () => $'$"run_with_timeout_async**
00:01:01 #895 [verbose] > ex: {!ex}"' : string) get_locals
00:01:01 #896 [verbose] > None
00:01:01 #897 [verbose] > |> return_await
00:01:01 #898 [verbose] > // $'(*'
00:01:01 #899 [verbose] > // $'*)'
00:01:01 #900 [verbose] > |> new_async_unit
00:01:01 #901 [verbose] > | _ => fun () => null ()
00:01:01 #902 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6d40de3774d5461382ddb03b1c7339ac838451a2d5af0a88c2517f00c9dad3a3\main.spi
00:01:01 #903 [verbose] >
00:01:01 #904 [verbose] > ╭─[ 455.37ms - stdout ]────────────────────────────────────────────────────────╮
00:01:01 #905 [verbose] > │ () │
00:01:01 #906 [verbose] > │ │
00:01:01 #907 [verbose] > │ │
00:01:01 #908 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 #909 [verbose] >
00:01:01 #910 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:01 #911 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:01 #912 [verbose] > │ ## run_with_timeout │
00:01:01 #913 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 #914 [verbose] >
00:01:01 #915 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:01 #916 [verbose] > inl run_with_timeout timeout fn =
00:01:01 #917 [verbose] > fn
00:01:01 #918 [verbose] > |> run_with_timeout_async timeout
00:01:01 #919 [verbose] > |> run_synchronously
00:01:02 #920 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1823b3e6cff4d50cf65af0607a26ecd6c26d9a05c6a6b577d5eaca0e2f39ce74\main.spi
00:01:02 #921 [verbose] >
00:01:02 #922 [verbose] > ╭─[ 617.14ms - stdout ]────────────────────────────────────────────────────────╮
00:01:02 #923 [verbose] > │ () │
00:01:02 #924 [verbose] > │ │
00:01:02 #925 [verbose] > │ │
00:01:02 #926 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:02 #927 [verbose] >
00:01:02 #928 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:02 #929 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:02 #930 [verbose] > │ ## cancellation_token │
00:01:02 #931 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:02 #932 [verbose] >
00:01:02 #933 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:02 #934 [verbose] > nominal cancellation_token = $'System.Threading.CancellationToken'
00:01:02 #935 [verbose] > nominal cancellation_token_source = $'System.Threading.CancellationTokenSource'
00:01:02 #936 [verbose] >
00:01:02 #937 [verbose] > inl cancellation_token () : async cancellation_token =
00:01:02 #938 [verbose] > $'Async.CancellationToken'
00:01:02 #939 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4058ce7b8cf6a589c2e29053d36e893cec8547e255be023d32b993092815af60\main.spi
00:01:03 #940 [verbose] >
00:01:03 #941 [verbose] > ╭─[ 518.29ms - stdout ]────────────────────────────────────────────────────────╮
00:01:03 #942 [verbose] > │ () │
00:01:03 #943 [verbose] > │ │
00:01:03 #944 [verbose] > │ │
00:01:03 #945 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:03 #946 [verbose] >
00:01:03 #947 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:03 #948 [verbose] > inl default_cancellation_token () : cancellation_token =
00:01:03 #949 [verbose] > $'Async.DefaultCancellationToken'
00:01:03 #950 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bce2c5d3c98e0b99cf63d4a61abcd6f9fa55d6532ba44ff18399f8b5708768b5\main.spi
00:01:04 #951 [verbose] >
00:01:04 #952 [verbose] > ╭─[ 995.53ms - stdout ]────────────────────────────────────────────────────────╮
00:01:04 #953 [verbose] > │ () │
00:01:04 #954 [verbose] > │ │
00:01:04 #955 [verbose] > │ │
00:01:04 #956 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:04 #957 [verbose] >
00:01:04 #958 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:04 #959 [verbose] > inl cancellation_source_token (x : cancellation_token_source) :
00:01:04 #960 [verbose] > cancellation_token =
00:01:04 #961 [verbose] > $'!x.Token'
00:01:04 #962 [verbose] > 00:01:00 #3 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"\n\n// // test\n\nopen testing\n\ninl main () = ()\n\n\nopen rust_operators\n\ninl main () = ()\n\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::future::Future\u003COutput = $0\u003E\\\u0022)\u003E] type Future\u003C\u0027T\u003E = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022futures::future::TryJoinAll\u003C$0\u003E\\\u0022)\u003E] type TryJoinAll\u003C\u0027T\u003E = class end\u0022\n\ninl main () = ()\n\n\nnominal async t = $\u0022Async\u003C\u0060t\u003E\u0022\n\ninl main () = ()\n\n\nnominal future t = $\u0022Future\u003C\u0060t\u003E\u0022\n\ninl main () = ()\n\n\nnominal task t =\n \u0060(\n typecase t with\n | () =\u003E $\u0027\u0027 : $\u0022System.Threading.Tasks.Task\u0022\n | _ =\u003E $\u0027\u0027 : $\u0022System.Threading.Tasks.Task\u003C\u0060t\u003E\u0022\n )\n\ninl main () = ()\n\n\ntype future_pin t = rust.pin (rust.box (rust.dyn\u0027 (future t)))\n\ninl main () = ()\n\n\nnominal try_join_all t = $\u0022TryJoinAll\u003C\u0060t\u003E\u0022\n\ninl main () = ()\n\n\ninl future_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -\u003E t) : future_pin t =\n join\n if flag = 1\n then !\\($\u0027\u0022let __result = Box::pin(async move { //\u0022\u0027)\n else !\\($\u0027\u0022let __result = Box::pin(async { //\u0022\u0027)\n\n let x\u0027 = x ()\n inl x\u0027 = join x\u0027\n\n x\u0027 |\u003E rust.fix_closure depth\n\n !\\($\u0027\u0022__result\u0022\u0027)\n\ninl main () = ()\n\n\ninl try_join_all forall t. (x : am\u0027.vec (future_pin (resultm.result\u0027 t sm\u0027.std_string))) : try_join_all (future_pin (resultm.result\u0027 t sm\u0027.std_string)) =\n inl x = join x\n !\\($\u0027\u0022futures::future::try_join_all(!x)\u0022\u0027)\n\ninl main () = ()\n\n\ninl await\u0027 forall t. (x : try_join_all (future_pin (resultm.result\u0027 t sm\u0027.std_string))) : resultm.result\u0027 (am\u0027.vec t) sm\u0027.std_string =\n !\\($\u0027\u0022!x.await\u0022\u0027)\n\ninl main () = ()\n\n\ninl await forall t. (x : future_pin t) : t =\n !\\($\u0027\u0022!x.await\u0022\u0027)\n\ninl main () = ()\n\n\ninl new_async_unit forall t. (fn : () -\u003E ()) : async t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl result : optionm\u0027.option\u0027 (async t) = optionm\u0027.none\u0027 ()\n $\u0022let mutable _!result = !result\u0022\n $\u0022async {\u0022\n fn ()\n $\u0022}\u0022\n $\u0022|\u003E fun x -\u003E _!result \u003C- Some x\u0022\n $\u0022_!result |\u003E Option.get\u0022\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl new_async forall t. (fn : () -\u003E t) : async t =\n new_async_unit (fn \u003E\u003E ignore)\n\ninl main () = ()\n\n\ninl new_task forall t. (fn : () -\u003E t) : task t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl result : optionm\u0027.option\u0027 (task t) = optionm\u0027.none\u0027 ()\n $\u0022let mutable _!result = !result\u0022\n $\u0022task {\u0022\n fn () |\u003E ignore\n $\u0022}\u0022\n $\u0022|\u003E fun x -\u003E _!result \u003C- Some x\u0022\n $\u0022_!result |\u003E Option.get\u0022\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl await_task forall t. (a : task t) : async t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.AwaitTask\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl ignore forall t. (a : async t) : async () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.Ignore\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl run_synchronously forall t. (a : async t) : t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.RunSynchronously\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl start_child forall t. (a : async t) : async (async t) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.StartChild\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl start_child_timeout forall t. (timeout : i32) (a : async t) : async (async t) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027Async.StartChild (!a, !timeout)\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl sleep (ms : i32) : async () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n ms |\u003E $\u0027Async.Sleep\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl do (a : async ()) : () =\n $\u0027do\\! !a \u0027\n\ninl main () = ()\n\n\ninl let\u0027 forall t. (a : async t) : t =\n $\u0027let\\! !a = !a \u0027\n $\u0027!a \u0027\n\ninl main () = ()\n\n\ninl return_await forall t. (a : async t) : () =\n $\u0027return\\! !a \u0027\n\ninl main () = ()\n\n\ninl return_await\u0027 forall t. (a : async t) : t =\n $\u0027return\\! !a \u0027\n\ninl main () = ()\n\n\ninl map forall t u. (fn : t -\u003E u) (a : async t) : async u =\n fun () =\u003E\n inl x = a |\u003E let\u0027\n fn x |\u003E return\n |\u003E new_async_unit\n\ninl main () = ()\n\n\nunion choice t1 t2 =\n | Choice1Of2 : t1\n | Choice2Of2 : t2\n\nnominal choice\u0027 t1 t2 = $\u0027Choice\u003C\u0060t1, \u0060t2\u003E\u0027\n\ninl main () = ()\n\n\ninl choice_unbox forall t1 t2. (choice : choice\u0027 t1 t2) : choice t1 t2 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl choice1Of2 (x : t1) : _ _ t2 = Choice1Of2 x\n inl choice2Of2 (x : t2) : _ t1 _ = Choice2Of2 x\n $\u0027match !choice with Choice1Of2 x -\u003E !choice1Of2 x | Choice2Of2 x -\u003E !choice2Of2 x\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl catch\u0027 forall t e. (a : async t) : async (choice\u0027 t e) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.Catch\u0027\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl catch forall t e. (a : async t) : async (result t e) =\n a\n |\u003E catch\u0027\n |\u003E map choice_unbox\n |\u003E map function\n | Choice1Of2 result =\u003E Ok result\n | Choice2Of2 ex =\u003E Error ex\n\ninl main () = ()\n\n\ninl run_with_timeout_async forall t. (timeout : i32) (fn : async t) : async (option t) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n fun () =\u003E\n inl get_locals () = $\u0027$\u0022timeout: {!timeout} / {!get_locals ()}\u0022\u0027 : string\n inl child = fn |\u003E start_child_timeout timeout |\u003E let\u0027\n child\n |\u003E catch\n |\u003E map function\n | Ok result =\u003E Some result\n | Error ex when ex |\u003E sm\u0027.format_debug |\u003E sm\u0027.contains \u0022System.TimeoutException\u0022 =\u003E\n trace Debug (fun () =\u003E $\u0027\u0022run_with_timeout_async\u0022\u0027 : string) get_locals\n None\n | Error (ex : exn) =\u003E\n inl ex = ex |\u003E sm\u0027.format_exception\n trace Critical (fun () =\u003E $\u0027$\u0022run_with_timeout_async** / ex: {!ex}\u0022\u0027 : string) get_locals\n None\n |\u003E return_await\n // $\u0027(*\u0027\n // $\u0027*)\u0027\n |\u003E new_async_unit\n | _ =\u003E fun () =\u003E null ()\n\ninl main () = ()\n\n\ninl run_with_timeout timeout fn =\n fn\n |\u003E run_with_timeout_async timeout\n |\u003E run_synchronously\n\ninl main () = ()\n\n\nnominal cancellation_token = $\u0027System.Threading.CancellationToken\u0027\nnominal cancellation_token_source = $\u0027System.Threading.CancellationTokenSource\u0027\n\ninl cancellation_token () : async cancellation_token =\n $\u0027Async.CancellationToken\u0027\n\ninl main () = ()\n\n\ninl default_cancellation_token () : cancellation_token =\n $\u0027Async.DefaultCancellationToken\u0027\n\ninl main () = ()\n\n\ninl cancellation_source_token (x : cancellation_token_source) : cancellation_token =\n $\u0027!x.Token\u0027\n\ninl main () = ()\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c35c7a16083f807d7256d573df25f054dfa0ffd3cafdf5b82641ac68b8f60823/main.spi"}} / result.Length:
00:01:04 #963 [verbose] > 00:01:00 #4 [debug] sendJson / port: 13805 / json: {"FileTokenRange":{"range":[{"character":0,"line":0},{"character":0,"line":303}],"uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/c35c7a16083f807d7256d573df25f054dfa0ffd3cafdf5b82641ac68b8f60823/main.spi"}} / result.Length: Some(45265)
00:01:04 #964 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c35c7a16083f807d7256d573df25f054dfa0ffd3cafdf5b82641ac68b8f60823\main.spi
00:01:04 #965 [verbose] >
00:01:04 #966 [verbose] > ╭─[ 762.20ms - stdout ]────────────────────────────────────────────────────────╮
00:01:04 #967 [verbose] > │ () │
00:01:04 #968 [verbose] > │ │
00:01:04 #969 [verbose] > │ │
00:01:04 #970 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:04 #971 [verbose] >
00:01:04 #972 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:04 #973 [verbose] > inl create_linked_token_source (x : array_base cancellation_token) :
00:01:04 #974 [verbose] > cancellation_token_source =
00:01:04 #975 [verbose] > x |> $'System.Threading.CancellationTokenSource.CreateLinkedTokenSource'
00:01:05 #976 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\aa6c295393bd8821105639f7796222a746412b181a32c3d78a539eca59b51bfd\main.spi
00:01:06 #977 [verbose] >
00:01:06 #978 [verbose] > ╭─[ 1.82s - stdout ]───────────────────────────────────────────────────────────╮
00:01:06 #979 [verbose] > │ () │
00:01:06 #980 [verbose] > │ │
00:01:06 #981 [verbose] > │ │
00:01:06 #982 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:06 #983 [verbose] >
00:01:06 #984 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:06 #985 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:06 #986 [verbose] > │ ## merge_cancellation_token_with_default_async │
00:01:06 #987 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:06 #988 [verbose] >
00:01:06 #989 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:06 #990 [verbose] > inl merge_cancellation_token_with_default_async (token : cancellation_token) :
00:01:06 #991 [verbose] > async cancellation_token =
00:01:06 #992 [verbose] > run_target function
00:01:06 #993 [verbose] > | Fsharp (Native) => fun () =>
00:01:06 #994 [verbose] > fun () =>
00:01:06 #995 [verbose] > inl ct = cancellation_token () |> let'
00:01:06 #996 [verbose] > inl dct = default_cancellation_token ()
00:01:06 #997 [verbose] > inl cts = create_linked_token_source ;[[ ct; dct; token ]]
00:01:06 #998 [verbose] > cts |> cancellation_source_token |> return
00:01:06 #999 [verbose] > |> new_async_unit
00:01:06 #1000 [verbose] > | _ => fun () => null ()
00:01:07 #1001 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\01964c678c21e31a10cea6d7a3b32bc3489500ef3365631366db98631891444b\main.spi
00:01:07 #1002 [verbose] >
00:01:07 #1003 [verbose] > ╭─[ 655.69ms - stdout ]────────────────────────────────────────────────────────╮
00:01:07 #1004 [verbose] > │ () │
00:01:07 #1005 [verbose] > │ │
00:01:07 #1006 [verbose] > │ │
00:01:07 #1007 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:07 #1008 [verbose] >
00:01:07 #1009 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:07 #1010 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:07 #1011 [verbose] > │ ## main │
00:01:07 #1012 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:07 #1013 [verbose] >
00:01:07 #1014 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:07 #1015 [verbose] > inl main () =
00:01:07 #1016 [verbose] > $"let merge_cancellation_token_with_default_async x =
00:01:07 #1017 [verbose] > !merge_cancellation_token_with_default_async x" : ()
00:01:07 #1018 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ab27491fd02526b08443335708218511ebfbd1365e1b9492bceae3e0bcd590bf\main.spi
00:01:09 #1019 [verbose] >
00:01:09 #1020 [verbose] > ╭─[ 2.58s - stdout ]───────────────────────────────────────────────────────────╮
00:01:09 #1021 [verbose] > │ let rec closure0 () (v0 : System.Threading.CancellationToken) : │
00:01:09 #1022 [verbose] > │ Async<System.Threading.CancellationToken> = │
00:01:09 #1023 [verbose] > │ let v1 : Async<System.Threading.CancellationToken> option = None │
00:01:09 #1024 [verbose] > │ let mutable _v1 = v1 │
00:01:09 #1025 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:09 #1026 [verbose] > │ let v2 : Async<System.Threading.CancellationToken> = null |> │
00:01:09 #1027 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:09 #1028 [verbose] > │ v2 │
00:01:09 #1029 [verbose] > │ #endif │
00:01:09 #1030 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:09 #1031 [verbose] > │ let v3 : Async<System.Threading.CancellationToken> = null |> │
00:01:09 #1032 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:09 #1033 [verbose] > │ v3 │
00:01:09 #1034 [verbose] > │ #endif │
00:01:09 #1035 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:09 #1036 [verbose] > │ let v4 : Async<System.Threading.CancellationToken> = null |> │
00:01:09 #1037 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:09 #1038 [verbose] > │ v4 │
00:01:09 #1039 [verbose] > │ #endif │
00:01:09 #1040 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:09 #1041 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:09 #1042 [verbose] > │ let v5 : Async<System.Threading.CancellationToken> option = None │
00:01:09 #1043 [verbose] > │ let mutable _v5 = v5 │
00:01:09 #1044 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:09 #1045 [verbose] > │ let v6 : Async<System.Threading.CancellationToken> = null |> │
00:01:09 #1046 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:09 #1047 [verbose] > │ v6 │
00:01:09 #1048 [verbose] > │ #endif │
00:01:09 #1049 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:09 #1050 [verbose] > │ let v7 : Async<System.Threading.CancellationToken> = null |> │
00:01:10 #1051 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:10 #1052 [verbose] > │ v7 │
00:01:10 #1053 [verbose] > │ #endif │
00:01:10 #1054 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:10 #1055 [verbose] > │ let v8 : Async<System.Threading.CancellationToken> = null |> │
00:01:10 #1056 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:10 #1057 [verbose] > │ v8 │
00:01:10 #1058 [verbose] > │ #endif │
00:01:10 #1059 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:10 #1060 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:10 #1061 [verbose] > │ let v9 : Async<System.Threading.CancellationToken> option = None │
00:01:10 #1062 [verbose] > │ let mutable _v9 = v9 │
00:01:10 #1063 [verbose] > │ async { │
00:01:10 #1064 [verbose] > │ let v10 : Async<System.Threading.CancellationToken> = │
00:01:10 #1065 [verbose] > │ Async.CancellationToken │
00:01:10 #1066 [verbose] > │ let! v10 = v10 │
00:01:10 #1067 [verbose] > │ let v11 : System.Threading.CancellationToken = v10 │
00:01:10 #1068 [verbose] > │ let v12 : System.Threading.CancellationToken = │
00:01:10 #1069 [verbose] > │ Async.DefaultCancellationToken │
00:01:10 #1070 [verbose] > │ let v13 : (System.Threading.CancellationToken []) = [|v11; v12; v0|] │
00:01:10 #1071 [verbose] > │ let v14 : ((System.Threading.CancellationToken []) -> │
00:01:10 #1072 [verbose] > │ System.Threading.CancellationTokenSource) = │
00:01:10 #1073 [verbose] > │ System.Threading.CancellationTokenSource.CreateLinkedTokenSource │
00:01:10 #1074 [verbose] > │ let v15 : System.Threading.CancellationTokenSource = v14 v13 │
00:01:10 #1075 [verbose] > │ let v16 : System.Threading.CancellationToken = v15.Token │
00:01:10 #1076 [verbose] > │ return v16 │
00:01:10 #1077 [verbose] > │ } │
00:01:10 #1078 [verbose] > │ |> fun x -> _v9 <- Some x │
00:01:10 #1079 [verbose] > │ let v17 : Async<System.Threading.CancellationToken> = _v9 |> Option.get │
00:01:10 #1080 [verbose] > │ v17 │
00:01:10 #1081 [verbose] > │ #endif │
00:01:10 #1082 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 #1083 [verbose] > │ let v18 : Async<System.Threading.CancellationToken> = null |> │
00:01:10 #1084 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:10 #1085 [verbose] > │ v18 │
00:01:10 #1086 [verbose] > │ #endif │
00:01:10 #1087 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 #1088 [verbose] > │ let v19 : Async<System.Threading.CancellationToken> = │
00:01:10 #1089 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:10 #1090 [verbose] > │ v19 │
00:01:10 #1091 [verbose] > │ #endif │
00:01:10 #1092 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:10 #1093 [verbose] > │ let v20 : Async<System.Threading.CancellationToken> = _v5.Value │
00:01:10 #1094 [verbose] > │ v20 │
00:01:10 #1095 [verbose] > │ #endif │
00:01:10 #1096 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:10 #1097 [verbose] > │ let v21 : Async<System.Threading.CancellationToken> = null |> │
00:01:10 #1098 [verbose] > │ unbox<Async<System.Threading.CancellationToken>> │
00:01:10 #1099 [verbose] > │ v21 │
00:01:10 #1100 [verbose] > │ #endif │
00:01:10 #1101 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:10 #1102 [verbose] > │ let v22 : Async<System.Threading.CancellationToken> = │
00:01:10 #1103 [verbose] > │ Unchecked.defaultof<Async<System.Threading.CancellationToken>> │
00:01:10 #1104 [verbose] > │ v22 │
00:01:10 #1105 [verbose] > │ #endif │
00:01:10 #1106 [verbose] > │ |> fun x -> _v1 <- Some x │
00:01:10 #1107 [verbose] > │ let v23 : Async<System.Threading.CancellationToken> = _v1.Value │
00:01:10 #1108 [verbose] > │ v23 │
00:01:10 #1109 [verbose] > │ let v0 : (System.Threading.CancellationToken -> │
00:01:10 #1110 [verbose] > │ Async<System.Threading.CancellationToken>) = closure0() │
00:01:10 #1111 [verbose] > │ let merge_cancellation_token_with_default_async x = v0 x │
00:01:10 #1112 [verbose] > │ () │
00:01:10 #1113 [verbose] > │ │
00:01:10 #1114 [verbose] > │ │
00:01:10 #1115 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:12 #1116 [verbose] > [NbConvertApp] Converting notebook async.dib.ipynb to html
00:01:12 #1117 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:12 #1118 [verbose] > validate(nb)
00:01:13 #1119 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:13 #1120 [verbose] > return _pygments_highlight(
00:01:14 #1121 [verbose] > [NbConvertApp] Writing 358882 bytes to async.dib.html
00:01:15 #1122 [debug] executeAsync / exitCode: 0 / output.Length: 44883
00:01:15 #1123 [debug] main / executeCommand / exitCode: 0
00:01:15 #1124 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 runtime.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:01:18 #1125 [verbose] >
00:01:18 #1126 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:18 #1127 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:18 #1128 [verbose] > │ # runtime │
00:01:18 #1129 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:18 #1130 [verbose] >
00:01:18 #1131 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:18 #1132 [verbose] > // // test
00:01:18 #1133 [verbose] >
00:01:18 #1134 [verbose] > open testing
00:01:22 #1135 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:01:24 #1136 [verbose] >
00:01:24 #1137 [verbose] > ╭─[ 5.21s - stdout ]───────────────────────────────────────────────────────────╮
00:01:24 #1138 [verbose] > │ () │
00:01:24 #1139 [verbose] > │ │
00:01:24 #1140 [verbose] > │ │
00:01:24 #1141 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:24 #1142 [verbose] >
00:01:24 #1143 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:24 #1144 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:24 #1145 [verbose] > │ ## os_platform │
00:01:24 #1146 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:24 #1147 [verbose] >
00:01:24 #1148 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:24 #1149 [verbose] > nominal os_platform' = $'System.Runtime.InteropServices.OSPlatform'
00:01:24 #1150 [verbose] >
00:01:24 #1151 [verbose] > union os_platform =
00:01:24 #1152 [verbose] > | Windows
00:01:24 #1153 [verbose] >
00:01:24 #1154 [verbose] > inl os_platform = function
00:01:24 #1155 [verbose] > | Windows => $'`os_platform'.Windows' : os_platform'
00:01:24 #1156 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\72c11518800efaeb259dd87c3f7435dffc31642d088f6abaa1d4e442a42cb741\main.spi
00:01:24 #1157 [verbose] >
00:01:24 #1158 [verbose] > ╭─[ 291.19ms - stdout ]────────────────────────────────────────────────────────╮
00:01:24 #1159 [verbose] > │ () │
00:01:24 #1160 [verbose] > │ │
00:01:24 #1161 [verbose] > │ │
00:01:24 #1162 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:24 #1163 [verbose] >
00:01:24 #1164 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:24 #1165 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:24 #1166 [verbose] > │ ## is_os_platform │
00:01:24 #1167 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:24 #1168 [verbose] >
00:01:24 #1169 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:24 #1170 [verbose] > inl is_os_platform (x : os_platform') : bool =
00:01:24 #1171 [verbose] > x |> $'System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform'
00:01:24 #1172 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\db4cf812d0f9afcba99366a88688026ba5d16b77ad5d2be63ca321142970756e\main.spi
00:01:24 #1173 [verbose] >
00:01:24 #1174 [verbose] > ╭─[ 297.08ms - stdout ]────────────────────────────────────────────────────────╮
00:01:24 #1175 [verbose] > │ () │
00:01:24 #1176 [verbose] > │ │
00:01:24 #1177 [verbose] > │ │
00:01:24 #1178 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:24 #1179 [verbose] >
00:01:24 #1180 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:24 #1181 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:24 #1182 [verbose] > │ ## is_windows │
00:01:24 #1183 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:24 #1184 [verbose] >
00:01:24 #1185 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:24 #1186 [verbose] > inl is_windows () : bool =
00:01:24 #1187 [verbose] > run_target function
00:01:24 #1188 [verbose] > | Fsharp (Native) => fun () =>
00:01:24 #1189 [verbose] > Windows |> os_platform |> is_os_platform
00:01:24 #1190 [verbose] > | _ => fun () => null ()
00:01:24 #1191 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d2cc5977437f67e00bb72d45f44043e190a8b6f2df0643732846affc75c668c4\main.spi
00:01:24 #1192 [verbose] >
00:01:24 #1193 [verbose] > ╭─[ 257.99ms - stdout ]────────────────────────────────────────────────────────╮
00:01:24 #1194 [verbose] > │ () │
00:01:24 #1195 [verbose] > │ │
00:01:24 #1196 [verbose] > │ │
00:01:24 #1197 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:24 #1198 [verbose] >
00:01:24 #1199 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:24 #1200 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:24 #1201 [verbose] > │ ## get_executable_suffix │
00:01:24 #1202 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:24 #1203 [verbose] >
00:01:24 #1204 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:24 #1205 [verbose] > inl get_executable_suffix () =
00:01:24 #1206 [verbose] > if is_windows ()
00:01:24 #1207 [verbose] > then ".exe"
00:01:24 #1208 [verbose] > else ""
00:01:25 #1209 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\63533c511f5ecd8b74f50ffb5b5da0359acc92c4f35f355884438af3c21a134c\main.spi
00:01:25 #1210 [verbose] >
00:01:25 #1211 [verbose] > ╭─[ 316.75ms - stdout ]────────────────────────────────────────────────────────╮
00:01:25 #1212 [verbose] > │ () │
00:01:25 #1213 [verbose] > │ │
00:01:25 #1214 [verbose] > │ │
00:01:25 #1215 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:25 #1216 [verbose] >
00:01:25 #1217 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:25 #1218 [verbose] > // // test
00:01:25 #1219 [verbose] >
00:01:25 #1220 [verbose] > get_executable_suffix ()
00:01:25 #1221 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\25c02d63ddccaf5fc0d648bba1bb5440fab6f229af74c07ee0e4201a55965248\main.spi
00:01:26 #1222 [verbose] >
00:01:26 #1223 [verbose] > ╭─[ 1.29s - return value ]─────────────────────────────────────────────────────╮
00:01:26 #1224 [verbose] > │ .exe │
00:01:26 #1225 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:26 #1226 [verbose] >
00:01:26 #1227 [verbose] > ╭─[ 1.30s - stdout ]───────────────────────────────────────────────────────────╮
00:01:26 #1228 [verbose] > │ let rec method0 () : string = │
00:01:26 #1229 [verbose] > │ let v0 : bool option = None │
00:01:26 #1230 [verbose] > │ let mutable _v0 = v0 │
00:01:26 #1231 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:26 #1232 [verbose] > │ let v1 : bool = null |> unbox<bool> │
00:01:26 #1233 [verbose] > │ v1 │
00:01:26 #1234 [verbose] > │ #endif │
00:01:26 #1235 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:26 #1236 [verbose] > │ let v2 : bool = null |> unbox<bool> │
00:01:26 #1237 [verbose] > │ v2 │
00:01:26 #1238 [verbose] > │ #endif │
00:01:26 #1239 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:26 #1240 [verbose] > │ let v3 : bool = null |> unbox<bool> │
00:01:26 #1241 [verbose] > │ v3 │
00:01:26 #1242 [verbose] > │ #endif │
00:01:26 #1243 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:26 #1244 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:26 #1245 [verbose] > │ let v4 : System.Runtime.InteropServices.OSPlatform = │
00:01:26 #1246 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:01:26 #1247 [verbose] > │ let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:01:26 #1248 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:01:26 #1249 [verbose] > │ let v6 : bool = v5 v4 │
00:01:26 #1250 [verbose] > │ v6 │
00:01:26 #1251 [verbose] > │ #endif │
00:01:26 #1252 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:26 #1253 [verbose] > │ let v7 : bool = null |> unbox<bool> │
00:01:26 #1254 [verbose] > │ v7 │
00:01:26 #1255 [verbose] > │ #endif │
00:01:26 #1256 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:26 #1257 [verbose] > │ let v8 : bool = Unchecked.defaultof<bool> │
00:01:26 #1258 [verbose] > │ v8 │
00:01:26 #1259 [verbose] > │ #endif │
00:01:26 #1260 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:26 #1261 [verbose] > │ let v9 : bool = _v0.Value │
00:01:26 #1262 [verbose] > │ if v9 then │
00:01:26 #1263 [verbose] > │ let v10 : string = ".exe" │
00:01:26 #1264 [verbose] > │ v10 │
00:01:26 #1265 [verbose] > │ else │
00:01:26 #1266 [verbose] > │ let v11 : string = "" │
00:01:26 #1267 [verbose] > │ v11 │
00:01:26 #1268 [verbose] > │ method0() │
00:01:26 #1269 [verbose] > │ │
00:01:26 #1270 [verbose] > │ │
00:01:26 #1271 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:26 #1272 [verbose] >
00:01:26 #1273 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:26 #1274 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:26 #1275 [verbose] > │ ## main │
00:01:26 #1276 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:26 #1277 [verbose] >
00:01:26 #1278 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:26 #1279 [verbose] > inl main () =
00:01:26 #1280 [verbose] > $"let is_windows () = !is_windows ()" : ()
00:01:26 #1281 [verbose] > $"let get_executable_suffix () = !get_executable_suffix ()" : ()
00:01:26 #1282 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\caa86018c0a045f0863313aff4f299763b5fcdaccdb553f907b82362c3185567\main.spi
00:01:26 #1283 [verbose] >
00:01:26 #1284 [verbose] > ╭─[ 361.54ms - stdout ]────────────────────────────────────────────────────────╮
00:01:26 #1285 [verbose] > │ let rec closure0 () () : bool = │
00:01:26 #1286 [verbose] > │ let v0 : bool option = None │
00:01:26 #1287 [verbose] > │ let mutable _v0 = v0 │
00:01:26 #1288 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:26 #1289 [verbose] > │ let v1 : bool = null |> unbox<bool> │
00:01:26 #1290 [verbose] > │ v1 │
00:01:26 #1291 [verbose] > │ #endif │
00:01:26 #1292 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:26 #1293 [verbose] > │ let v2 : bool = null |> unbox<bool> │
00:01:26 #1294 [verbose] > │ v2 │
00:01:26 #1295 [verbose] > │ #endif │
00:01:26 #1296 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:26 #1297 [verbose] > │ let v3 : bool = null |> unbox<bool> │
00:01:26 #1298 [verbose] > │ v3 │
00:01:26 #1299 [verbose] > │ #endif │
00:01:26 #1300 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:26 #1301 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:26 #1302 [verbose] > │ let v4 : System.Runtime.InteropServices.OSPlatform = │
00:01:26 #1303 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:01:26 #1304 [verbose] > │ let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:01:26 #1305 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:01:26 #1306 [verbose] > │ let v6 : bool = v5 v4 │
00:01:26 #1307 [verbose] > │ v6 │
00:01:26 #1308 [verbose] > │ #endif │
00:01:27 #1309 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:27 #1310 [verbose] > │ let v7 : bool = null |> unbox<bool> │
00:01:27 #1311 [verbose] > │ v7 │
00:01:27 #1312 [verbose] > │ #endif │
00:01:27 #1313 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:27 #1314 [verbose] > │ let v8 : bool = Unchecked.defaultof<bool> │
00:01:27 #1315 [verbose] > │ v8 │
00:01:27 #1316 [verbose] > │ #endif │
00:01:27 #1317 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:27 #1318 [verbose] > │ let v9 : bool = _v0.Value │
00:01:27 #1319 [verbose] > │ v9 │
00:01:27 #1320 [verbose] > │ and closure1 () () : string = │
00:01:27 #1321 [verbose] > │ let v0 : bool option = None │
00:01:27 #1322 [verbose] > │ let mutable _v0 = v0 │
00:01:27 #1323 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:27 #1324 [verbose] > │ let v1 : bool = null |> unbox<bool> │
00:01:27 #1325 [verbose] > │ v1 │
00:01:27 #1326 [verbose] > │ #endif │
00:01:27 #1327 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:27 #1328 [verbose] > │ let v2 : bool = null |> unbox<bool> │
00:01:27 #1329 [verbose] > │ v2 │
00:01:27 #1330 [verbose] > │ #endif │
00:01:27 #1331 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:27 #1332 [verbose] > │ let v3 : bool = null |> unbox<bool> │
00:01:27 #1333 [verbose] > │ v3 │
00:01:27 #1334 [verbose] > │ #endif │
00:01:27 #1335 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:27 #1336 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:27 #1337 [verbose] > │ let v4 : System.Runtime.InteropServices.OSPlatform = │
00:01:27 #1338 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:01:27 #1339 [verbose] > │ let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:01:27 #1340 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:01:27 #1341 [verbose] > │ let v6 : bool = v5 v4 │
00:01:27 #1342 [verbose] > │ v6 │
00:01:27 #1343 [verbose] > │ #endif │
00:01:27 #1344 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:27 #1345 [verbose] > │ let v7 : bool = null |> unbox<bool> │
00:01:27 #1346 [verbose] > │ v7 │
00:01:27 #1347 [verbose] > │ #endif │
00:01:27 #1348 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:27 #1349 [verbose] > │ let v8 : bool = Unchecked.defaultof<bool> │
00:01:27 #1350 [verbose] > │ v8 │
00:01:27 #1351 [verbose] > │ #endif │
00:01:27 #1352 [verbose] > │ |> fun x -> _v0 <- Some x │
00:01:27 #1353 [verbose] > │ let v9 : bool = _v0.Value │
00:01:27 #1354 [verbose] > │ if v9 then │
00:01:27 #1355 [verbose] > │ let v10 : string = ".exe" │
00:01:27 #1356 [verbose] > │ v10 │
00:01:27 #1357 [verbose] > │ else │
00:01:27 #1358 [verbose] > │ let v11 : string = "" │
00:01:27 #1359 [verbose] > │ v11 │
00:01:27 #1360 [verbose] > │ let v0 : (unit -> bool) = closure0() │
00:01:27 #1361 [verbose] > │ let is_windows () = v0 () │
00:01:27 #1362 [verbose] > │ let v1 : (unit -> string) = closure1() │
00:01:27 #1363 [verbose] > │ let get_executable_suffix () = v1 () │
00:01:27 #1364 [verbose] > │ () │
00:01:27 #1365 [verbose] > │ │
00:01:27 #1366 [verbose] > │ │
00:01:27 #1367 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:29 #1368 [verbose] > [NbConvertApp] Converting notebook runtime.dib.ipynb to html
00:01:29 #1369 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:29 #1370 [verbose] > validate(nb)
00:01:30 #1371 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:30 #1372 [verbose] > return _pygments_highlight(
00:01:30 #1373 [verbose] > [NbConvertApp] Writing 286713 bytes to runtime.dib.html
00:01:31 #1374 [debug] executeAsync / exitCode: 0 / output.Length: 16750
00:01:31 #1375 [debug] main / executeCommand / exitCode: 0
00:01:31 #1376 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 trace.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:01:35 #1377 [verbose] >
00:01:35 #1378 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:35 #1379 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:35 #1380 [verbose] > │ # trace │
00:01:35 #1381 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:35 #1382 [verbose] >
00:01:35 #1383 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:35 #1384 [verbose] > // // test
00:01:35 #1385 [verbose] >
00:01:35 #1386 [verbose] > open testing
00:01:39 #1387 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:01:40 #1388 [verbose] >
00:01:40 #1389 [verbose] > ╭─[ 5.16s - stdout ]───────────────────────────────────────────────────────────╮
00:01:40 #1390 [verbose] > │ () │
00:01:40 #1391 [verbose] > │ │
00:01:40 #1392 [verbose] > │ │
00:01:40 #1393 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 #1394 [verbose] >
00:01:40 #1395 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:40 #1396 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:40 #1397 [verbose] > │ ## trace_level │
00:01:40 #1398 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 #1399 [verbose] >
00:01:40 #1400 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:40 #1401 [verbose] > union trace_level =
00:01:40 #1402 [verbose] > | Verbose
00:01:40 #1403 [verbose] > | Debug
00:01:40 #1404 [verbose] > | Info
00:01:40 #1405 [verbose] > | Warning
00:01:40 #1406 [verbose] > | Critical
00:01:40 #1407 [verbose] >
00:01:40 #1408 [verbose] > instance to_string trace_level = function
00:01:40 #1409 [verbose] > | Verbose => "Verbose"
00:01:40 #1410 [verbose] > | Debug => "Debug"
00:01:40 #1411 [verbose] > | Info => "Info"
00:01:40 #1412 [verbose] > | Warning => "Warning"
00:01:40 #1413 [verbose] > | Critical => "Critical"
00:01:40 #1414 [verbose] >
00:01:40 #1415 [verbose] > instance of_string trace_level = function
00:01:40 #1416 [verbose] > | "Verbose" => Verbose
00:01:40 #1417 [verbose] > | "Debug" => Debug
00:01:40 #1418 [verbose] > | "Info" => Info
00:01:40 #1419 [verbose] > | "Warning" => Warning
00:01:40 #1420 [verbose] > | "Critical" => Critical
00:01:40 #1421 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c0956660fd32c297e75b99edc489114a110c74b5b45c4bad3616f1fd1ce28dbf\main.spi
00:01:40 #1422 [verbose] >
00:01:40 #1423 [verbose] > ╭─[ 243.08ms - stdout ]────────────────────────────────────────────────────────╮
00:01:40 #1424 [verbose] > │ () │
00:01:40 #1425 [verbose] > │ │
00:01:40 #1426 [verbose] > │ │
00:01:40 #1427 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 #1428 [verbose] >
00:01:40 #1429 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:40 #1430 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:40 #1431 [verbose] > │ ## repl_start │
00:01:40 #1432 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 #1433 [verbose] >
00:01:40 #1434 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:40 #1435 [verbose] > inl repl_start () : optionm'.option' i64 =
00:01:40 #1436 [verbose] > inl result : optionm'.option' (optionm'.option' i64) = optionm'.none' ()
00:01:40 #1437 [verbose] > $"let mutable _!result = !result"
00:01:40 #1438 [verbose] > $'#if INTERACTIVE || \!FABLE_COMPILER' : ()
00:01:40 #1439 [verbose] > if get_entry_assembly_name () <> "Microsoft.DotNet.Interactive.App"
00:01:40 #1440 [verbose] > then date_time.now () |> date_time.ticks |> Some
00:01:40 #1441 [verbose] > else None
00:01:40 #1442 [verbose] > |> optionm'.box
00:01:40 #1443 [verbose] > |> fun x =>
00:01:40 #1444 [verbose] > inl x = join x
00:01:40 #1445 [verbose] > $'!x '
00:01:40 #1446 [verbose] > $'#else' : ()
00:01:40 #1447 [verbose] > (None : option i64) |> optionm'.box
00:01:40 #1448 [verbose] > |> fun x =>
00:01:40 #1449 [verbose] > inl x = join x
00:01:40 #1450 [verbose] > $'!x '
00:01:40 #1451 [verbose] > $'#endif' : ()
00:01:40 #1452 [verbose] > $"|> fun x -> _!result <- Some x"
00:01:40 #1453 [verbose] > $'_!result.Value'
00:01:40 #1454 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e18efccf01709dcc29772a1e685e8660b0ba82c3b518e567d9200018b377bc78\main.spi
00:01:40 #1455 [verbose] >
00:01:40 #1456 [verbose] > ╭─[ 247.65ms - stdout ]────────────────────────────────────────────────────────╮
00:01:40 #1457 [verbose] > │ () │
00:01:40 #1458 [verbose] > │ │
00:01:40 #1459 [verbose] > │ │
00:01:40 #1460 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 #1461 [verbose] >
00:01:40 #1462 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:40 #1463 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:40 #1464 [verbose] > │ ## trace_state │
00:01:40 #1465 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:40 #1466 [verbose] >
00:01:40 #1467 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:40 #1468 [verbose] > type trace_state =
00:01:40 #1469 [verbose] > {
00:01:40 #1470 [verbose] > count : mut i64
00:01:40 #1471 [verbose] > dump : mut bool
00:01:40 #1472 [verbose] > enabled : mut bool
00:01:40 #1473 [verbose] > level : mut trace_level
00:01:40 #1474 [verbose] > repl_start : optionm'.option' i64
00:01:40 #1475 [verbose] > }
00:01:40 #1476 [verbose] >
00:01:40 #1477 [verbose] > inl new_trace_state () =
00:01:40 #1478 [verbose] > {
00:01:40 #1479 [verbose] > enabled = mut true
00:01:40 #1480 [verbose] > count = mut 0i64
00:01:40 #1481 [verbose] > level = mut Verbose
00:01:40 #1482 [verbose] > dump = mut false
00:01:40 #1483 [verbose] > repl_start = repl_start ()
00:01:40 #1484 [verbose] > } : trace_state
00:01:41 #1485 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cf2b2549cbe250baa47fdc38fef171ce414517777e0b3ca6044da865a24e84f3\main.spi
00:01:41 #1486 [verbose] >
00:01:41 #1487 [verbose] > ╭─[ 237.89ms - stdout ]────────────────────────────────────────────────────────╮
00:01:41 #1488 [verbose] > │ () │
00:01:41 #1489 [verbose] > │ │
00:01:41 #1490 [verbose] > │ │
00:01:41 #1491 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 #1492 [verbose] >
00:01:41 #1493 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 #1494 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 #1495 [verbose] > │ ## init_trace_state │
00:01:41 #1496 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 #1497 [verbose] >
00:01:41 #1498 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:41 #1499 [verbose] > inl init_trace_state () : () =
00:01:41 #1500 [verbose] > global "module State = let mutable trace_state = None"
00:01:41 #1501 [verbose] > $"if State.trace_state = None then State.trace_state <- !new_trace_state ()
00:01:41 #1502 [verbose] > |> Some" : ()
00:01:41 #1503 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\05745b84632daa3eee9e0695ef1bd03c377f2779ca262cf433ec589dd671f212\main.spi
00:01:41 #1504 [verbose] >
00:01:41 #1505 [verbose] > ╭─[ 230.69ms - stdout ]────────────────────────────────────────────────────────╮
00:01:41 #1506 [verbose] > │ () │
00:01:41 #1507 [verbose] > │ │
00:01:41 #1508 [verbose] > │ │
00:01:41 #1509 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 #1510 [verbose] >
00:01:41 #1511 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 #1512 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 #1513 [verbose] > │ ## get_trace_state │
00:01:41 #1514 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 #1515 [verbose] >
00:01:41 #1516 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:41 #1517 [verbose] > inl get_trace_state () : trace_state =
00:01:41 #1518 [verbose] > init_trace_state ()
00:01:41 #1519 [verbose] > $'State.trace_state.Value'
00:01:41 #1520 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\05ec304a70c0d5237c2a62ea96f26dd4d62807ac0501b2220c18763b62cb12bc\main.spi
00:01:41 #1521 [verbose] >
00:01:41 #1522 [verbose] > ╭─[ 241.98ms - stdout ]────────────────────────────────────────────────────────╮
00:01:41 #1523 [verbose] > │ () │
00:01:41 #1524 [verbose] > │ │
00:01:41 #1525 [verbose] > │ │
00:01:41 #1526 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 #1527 [verbose] >
00:01:41 #1528 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 #1529 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 #1530 [verbose] > │ ## get_locals │
00:01:41 #1531 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 #1532 [verbose] >
00:01:41 #1533 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:41 #1534 [verbose] > inl get_locals () = ""
00:01:41 #1535 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\54aab8f314b3bde65bd956789f84c768dcae01bed8194d556cd14570142b7c29\main.spi
00:01:41 #1536 [verbose] >
00:01:41 #1537 [verbose] > ╭─[ 223.63ms - stdout ]────────────────────────────────────────────────────────╮
00:01:41 #1538 [verbose] > │ () │
00:01:41 #1539 [verbose] > │ │
00:01:41 #1540 [verbose] > │ │
00:01:41 #1541 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 #1542 [verbose] >
00:01:41 #1543 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:41 #1544 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:41 #1545 [verbose] > │ ## test_trace_level │
00:01:41 #1546 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:41 #1547 [verbose] >
00:01:41 #1548 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:41 #1549 [verbose] > inl test_trace_level level : bool =
00:01:41 #1550 [verbose] > inl state = get_trace_state ()
00:01:41 #1551 [verbose] > inl level' = *state.level
00:01:41 #1552 [verbose] > *state.enabled && $'!level >= !level' '
00:01:41 #1553 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ca235f4146c2be18c4201be2da5a4a17fd460c161f1c3615d45b69c12b87676b\main.spi
00:01:42 #1554 [verbose] >
00:01:42 #1555 [verbose] > ╭─[ 330.10ms - stdout ]────────────────────────────────────────────────────────╮
00:01:42 #1556 [verbose] > │ () │
00:01:42 #1557 [verbose] > │ │
00:01:42 #1558 [verbose] > │ │
00:01:42 #1559 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:42 #1560 [verbose] >
00:01:42 #1561 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:42 #1562 [verbose] > // // test
00:01:42 #1563 [verbose] >
00:01:42 #1564 [verbose] > test_trace_level Verbose |> _assert_eq true
00:01:42 #1565 [verbose] > test_trace_level Critical |> _assert_eq true
00:01:42 #1566 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ee65b8ef00640ecbc0563102df0df52c82ea9ead8d5855a96f6b64d137b59199\main.spi
00:01:44 #1567 [verbose] >
00:01:44 #1568 [verbose] > ╭─[ 2.00s - stdout ]───────────────────────────────────────────────────────────╮
00:01:44 #1569 [verbose] > │ module State = let mutable trace_state = None │
00:01:44 #1570 [verbose] > │ type Mut0 = {mutable l0 : int64} │
00:01:44 #1571 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:01:44 #1572 [verbose] > │ and [<Struct>] US0 = │
00:01:44 #1573 [verbose] > │ | US0_0 │
00:01:44 #1574 [verbose] > │ | US0_1 │
00:01:44 #1575 [verbose] > │ | US0_2 │
00:01:44 #1576 [verbose] > │ | US0_3 │
00:01:44 #1577 [verbose] > │ | US0_4 │
00:01:44 #1578 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:01:44 #1579 [verbose] > │ and [<Struct>] US1 = │
00:01:44 #1580 [verbose] > │ | US1_0 of f0_0 : int64 │
00:01:44 #1581 [verbose] > │ | US1_1 │
00:01:44 #1582 [verbose] > │ let rec method1 (v0 : int64 option) : int64 option = │
00:01:44 #1583 [verbose] > │ v0 │
00:01:44 #1584 [verbose] > │ and method2 (v0 : int64 option) : int64 option = │
00:01:44 #1585 [verbose] > │ v0 │
00:01:44 #1586 [verbose] > │ and closure0 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:01:44 #1587 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:44 #1588 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:44 #1589 [verbose] > │ let v2 : US0 = US0_0 │
00:01:44 #1590 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:44 #1591 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:01:44 #1592 [verbose] > │ let v5 : int64 option option = None │
00:01:44 #1593 [verbose] > │ let mutable _v5 = v5 │
00:01:44 #1594 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:44 #1595 [verbose] > │ let v6 : string option = None │
00:01:44 #1596 [verbose] > │ let mutable _v6 = v6 │
00:01:44 #1597 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:44 #1598 [verbose] > │ let v7 : string = null |> unbox<string> │
00:01:44 #1599 [verbose] > │ v7 │
00:01:44 #1600 [verbose] > │ #endif │
00:01:44 #1601 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:44 #1602 [verbose] > │ let v8 : string = null |> unbox<string> │
00:01:44 #1603 [verbose] > │ v8 │
00:01:44 #1604 [verbose] > │ #endif │
00:01:44 #1605 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:44 #1606 [verbose] > │ let v9 : string = null |> unbox<string> │
00:01:44 #1607 [verbose] > │ v9 │
00:01:44 #1608 [verbose] > │ #endif │
00:01:44 #1609 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:44 #1610 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:44 #1611 [verbose] > │ let v10 : string = │
00:01:44 #1612 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:44 #1613 [verbose] > │ v10 │
00:01:44 #1614 [verbose] > │ #endif │
00:01:44 #1615 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:44 #1616 [verbose] > │ let v11 : string = null |> unbox<string> │
00:01:44 #1617 [verbose] > │ v11 │
00:01:44 #1618 [verbose] > │ #endif │
00:01:44 #1619 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:44 #1620 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:01:44 #1621 [verbose] > │ v12 │
00:01:44 #1622 [verbose] > │ #endif │
00:01:44 #1623 [verbose] > │ |> fun x -> _v6 <- Some x │
00:01:44 #1624 [verbose] > │ let v13 : string = _v6.Value │
00:01:44 #1625 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:01:44 #1626 [verbose] > │ let v16 : bool = v15 <> true │
00:01:44 #1627 [verbose] > │ let v22 : US1 = │
00:01:44 #1628 [verbose] > │ if v16 then │
00:01:44 #1629 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:01:44 #1630 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:01:44 #1631 [verbose] > │ let v19 : int64 = v18 v17 │
00:01:44 #1632 [verbose] > │ US1_0(v19) │
00:01:44 #1633 [verbose] > │ else │
00:01:44 #1634 [verbose] > │ US1_1 │
00:01:44 #1635 [verbose] > │ let v27 : int64 option = │
00:01:44 #1636 [verbose] > │ match v22 with │
00:01:44 #1637 [verbose] > │ | US1_1 -> (* None *) │
00:01:44 #1638 [verbose] > │ let v25 : int64 option = None │
00:01:44 #1639 [verbose] > │ v25 │
00:01:44 #1640 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:01:44 #1641 [verbose] > │ let v24 : int64 option = Some v23 │
00:01:44 #1642 [verbose] > │ v24 │
00:01:44 #1643 [verbose] > │ let v28 : int64 option = method1(v27) │
00:01:44 #1644 [verbose] > │ v28 │
00:01:44 #1645 [verbose] > │ #else │
00:01:44 #1646 [verbose] > │ let v29 : int64 option = None │
00:01:44 #1647 [verbose] > │ let v30 : int64 option = method2(v29) │
00:01:44 #1648 [verbose] > │ v30 │
00:01:44 #1649 [verbose] > │ #endif │
00:01:44 #1650 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:44 #1651 [verbose] > │ let v31 : int64 option = _v5.Value │
00:01:44 #1652 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:01:44 #1653 [verbose] > │ and method3 (v0 : bool) : bool = │
00:01:44 #1654 [verbose] > │ v0 │
00:01:44 #1655 [verbose] > │ and method0 () : unit = │
00:01:44 #1656 [verbose] > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:44 #1657 [verbose] > │ closure0() │
00:01:44 #1658 [verbose] > │ if State.trace_state = None then State.trace_state <- v0 () |> Some │
00:01:44 #1659 [verbose] > │ let struct (v1 : Mut0, v2 : Mut1, v3 : Mut1, v4 : Mut2, v5 : int64 │
00:01:44 #1660 [verbose] > │ option) = State.trace_state.Value │
00:01:44 #1661 [verbose] > │ let v6 : US0 = v4.l0 │
00:01:44 #1662 [verbose] > │ let v7 : bool = v3.l0 │
00:01:44 #1663 [verbose] > │ let v10 : bool = │
00:01:44 #1664 [verbose] > │ if v7 then │
00:01:44 #1665 [verbose] > │ let v8 : US0 = US0_0 │
00:01:44 #1666 [verbose] > │ let v9 : bool = v8 >= v6 │
00:01:44 #1667 [verbose] > │ v9 │
00:01:44 #1668 [verbose] > │ else │
00:01:44 #1669 [verbose] > │ false │
00:01:44 #1670 [verbose] > │ let v11 : string = $"%A{v10}" │
00:01:44 #1671 [verbose] > │ System.Console.WriteLine v11 │
00:01:44 #1672 [verbose] > │ let v13 : bool = │
00:01:44 #1673 [verbose] > │ if v10 then │
00:01:44 #1674 [verbose] > │ true │
00:01:44 #1675 [verbose] > │ else │
00:01:44 #1676 [verbose] > │ method3(v10) │
00:01:44 #1677 [verbose] > │ let v14 : string = $"__expect / actual: %A{v10} / expected: %A{true}" │
00:01:44 #1678 [verbose] > │ let v15 : bool = v13 = false │
00:01:44 #1679 [verbose] > │ if v15 then │
00:01:44 #1680 [verbose] > │ failwith<unit> v14 │
00:01:44 #1681 [verbose] > │ if State.trace_state = None then State.trace_state <- v0 () |> Some │
00:01:44 #1682 [verbose] > │ let struct (v16 : Mut0, v17 : Mut1, v18 : Mut1, v19 : Mut2, v20 : int64 │
00:01:44 #1683 [verbose] > │ option) = State.trace_state.Value │
00:01:44 #1684 [verbose] > │ let v21 : US0 = v19.l0 │
00:01:44 #1685 [verbose] > │ let v22 : bool = v18.l0 │
00:01:44 #1686 [verbose] > │ let v25 : bool = │
00:01:44 #1687 [verbose] > │ if v22 then │
00:01:44 #1688 [verbose] > │ let v23 : US0 = US0_4 │
00:01:44 #1689 [verbose] > │ let v24 : bool = v23 >= v21 │
00:01:44 #1690 [verbose] > │ v24 │
00:01:44 #1691 [verbose] > │ else │
00:01:44 #1692 [verbose] > │ false │
00:01:44 #1693 [verbose] > │ let v26 : string = $"%A{v25}" │
00:01:44 #1694 [verbose] > │ System.Console.WriteLine v26 │
00:01:44 #1695 [verbose] > │ let v28 : bool = │
00:01:44 #1696 [verbose] > │ if v25 then │
00:01:44 #1697 [verbose] > │ true │
00:01:44 #1698 [verbose] > │ else │
00:01:44 #1699 [verbose] > │ method3(v25) │
00:01:44 #1700 [verbose] > │ let v29 : string = $"__expect / actual: %A{v25} / expected: %A{true}" │
00:01:44 #1701 [verbose] > │ let v30 : bool = v28 = false │
00:01:44 #1702 [verbose] > │ if v30 then │
00:01:44 #1703 [verbose] > │ failwith<unit> v29 │
00:01:44 #1704 [verbose] > │ method0() │
00:01:44 #1705 [verbose] > │ │
00:01:44 #1706 [verbose] > │ true │
00:01:44 #1707 [verbose] > │ true │
00:01:44 #1708 [verbose] > │ │
00:01:44 #1709 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #1710 [verbose] >
00:01:44 #1711 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:44 #1712 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:44 #1713 [verbose] > │ ## trace_raw │
00:01:44 #1714 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #1715 [verbose] >
00:01:44 #1716 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:44 #1717 [verbose] > inl trace_raw level fn =
00:01:44 #1718 [verbose] > inl trace_state = get_trace_state ()
00:01:44 #1719 [verbose] > if level |> test_trace_level then
00:01:44 #1720 [verbose] > inl count = trace_state.count
00:01:44 #1721 [verbose] > count <- *trace_state.count + 1
00:01:44 #1722 [verbose] >
00:01:44 #1723 [verbose] > inl text = $'$"%s{!fn ()}"' : string
00:01:44 #1724 [verbose] > run_target function
00:01:44 #1725 [verbose] > | Rust _ => fun () =>
00:01:44 #1726 [verbose] > open rust_operators
00:01:44 #1727 [verbose] > !\\(text, $'\@"println\!(""{}"", $0)"')
00:01:44 #1728 [verbose] > | _ => fun () =>
00:01:44 #1729 [verbose] > $'System.Console.WriteLine !text '
00:01:44 #1730 [verbose] >
00:01:44 #1731 [verbose] > // run_target function
00:01:44 #1732 [verbose] > // | Fsharp (Native) => fun () =>
00:01:44 #1733 [verbose] > // if *trace_state.dump then
00:01:44 #1734 [verbose] > // try_unit
00:01:44 #1735 [verbose] > // fun () =>
00:01:44 #1736 [verbose] > // // open file_system_operators
00:01:44 #1737 [verbose] > // // inl tmp_path = file_system.get_temp_path ()
00:01:44 #1738 [verbose] > // // inl log_dir = tmp_path </> "!polyglot"
00:01:44 #1739 [verbose] > // // file_system.create_directory log_dir |> ignore
00:01:44 #1740 [verbose] > // // inl guid = date_time.new_guid_from_date_time
00:01:44 #1741 [verbose] > (date_time.now ())
00:01:44 #1742 [verbose] > // // inl log_file = log_dir </> $'$"{!guid}.txt"'
00:01:44 #1743 [verbose] > // // file_system.write_all_text_async log_file text |>
00:01:44 #1744 [verbose] > async.run_synchronously
00:01:44 #1745 [verbose] > // ()
00:01:44 #1746 [verbose] > // fun ex =>
00:01:44 #1747 [verbose] > // inl ex = ex |> sm'.format_exception
00:01:44 #1748 [verbose] > // trace_raw Critical (fun () => $'$"trace / ex:
00:01:44 #1749 [verbose] > {!ex}"')
00:01:44 #1750 [verbose] > // | _ => fun () => ()
00:01:44 #1751 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fc7cd52b5cb921c63e9b1e1acb38e642ecc4b4002bcaf0c776fa9275e1765f77\main.spi
00:01:44 #1752 [verbose] >
00:01:44 #1753 [verbose] > ╭─[ 227.34ms - stdout ]────────────────────────────────────────────────────────╮
00:01:44 #1754 [verbose] > │ () │
00:01:44 #1755 [verbose] > │ │
00:01:44 #1756 [verbose] > │ │
00:01:44 #1757 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:44 #1758 [verbose] >
00:01:44 #1759 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:44 #1760 [verbose] > // // test
00:01:44 #1761 [verbose] > // // print_code=true
00:01:44 #1762 [verbose] >
00:01:44 #1763 [verbose] > trace_raw Debug fun () => "test"
00:01:44 #1764 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ecc47bfe40669a340fab66be37253534f47597850f8013c71e3f0f60e85e00fc\main.spi
00:01:45 #1765 [verbose] >
00:01:45 #1766 [verbose] > ╭─[ 473.68ms - stdout ]────────────────────────────────────────────────────────╮
00:01:45 #1767 [verbose] > │ module State = let mutable trace_state = None │
00:01:45 #1768 [verbose] > │ type Mut0 = {mutable l0 : int64} │
00:01:45 #1769 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:01:45 #1770 [verbose] > │ and [<Struct>] US0 = │
00:01:45 #1771 [verbose] > │ | US0_0 │
00:01:45 #1772 [verbose] > │ | US0_1 │
00:01:45 #1773 [verbose] > │ | US0_2 │
00:01:45 #1774 [verbose] > │ | US0_3 │
00:01:45 #1775 [verbose] > │ | US0_4 │
00:01:45 #1776 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:01:45 #1777 [verbose] > │ and [<Struct>] US1 = │
00:01:45 #1778 [verbose] > │ | US1_0 of f0_0 : int64 │
00:01:45 #1779 [verbose] > │ | US1_1 │
00:01:45 #1780 [verbose] > │ let rec method1 (v0 : int64 option) : int64 option = │
00:01:45 #1781 [verbose] > │ v0 │
00:01:45 #1782 [verbose] > │ and method2 (v0 : int64 option) : int64 option = │
00:01:45 #1783 [verbose] > │ v0 │
00:01:45 #1784 [verbose] > │ and closure0 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:01:45 #1785 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:45 #1786 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:45 #1787 [verbose] > │ let v2 : US0 = US0_0 │
00:01:45 #1788 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:45 #1789 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:01:45 #1790 [verbose] > │ let v5 : int64 option option = None │
00:01:45 #1791 [verbose] > │ let mutable _v5 = v5 │
00:01:45 #1792 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:45 #1793 [verbose] > │ let v6 : string option = None │
00:01:45 #1794 [verbose] > │ let mutable _v6 = v6 │
00:01:45 #1795 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:45 #1796 [verbose] > │ let v7 : string = null |> unbox<string> │
00:01:45 #1797 [verbose] > │ v7 │
00:01:45 #1798 [verbose] > │ #endif │
00:01:45 #1799 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:45 #1800 [verbose] > │ let v8 : string = null |> unbox<string> │
00:01:45 #1801 [verbose] > │ v8 │
00:01:45 #1802 [verbose] > │ #endif │
00:01:45 #1803 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:45 #1804 [verbose] > │ let v9 : string = null |> unbox<string> │
00:01:45 #1805 [verbose] > │ v9 │
00:01:45 #1806 [verbose] > │ #endif │
00:01:45 #1807 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:45 #1808 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:45 #1809 [verbose] > │ let v10 : string = │
00:01:45 #1810 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:45 #1811 [verbose] > │ v10 │
00:01:45 #1812 [verbose] > │ #endif │
00:01:45 #1813 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:45 #1814 [verbose] > │ let v11 : string = null |> unbox<string> │
00:01:45 #1815 [verbose] > │ v11 │
00:01:45 #1816 [verbose] > │ #endif │
00:01:45 #1817 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:45 #1818 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:01:45 #1819 [verbose] > │ v12 │
00:01:45 #1820 [verbose] > │ #endif │
00:01:45 #1821 [verbose] > │ |> fun x -> _v6 <- Some x │
00:01:45 #1822 [verbose] > │ let v13 : string = _v6.Value │
00:01:45 #1823 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:01:45 #1824 [verbose] > │ let v16 : bool = v15 <> true │
00:01:45 #1825 [verbose] > │ let v22 : US1 = │
00:01:45 #1826 [verbose] > │ if v16 then │
00:01:45 #1827 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:01:45 #1828 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:01:45 #1829 [verbose] > │ let v19 : int64 = v18 v17 │
00:01:45 #1830 [verbose] > │ US1_0(v19) │
00:01:45 #1831 [verbose] > │ else │
00:01:45 #1832 [verbose] > │ US1_1 │
00:01:45 #1833 [verbose] > │ let v27 : int64 option = │
00:01:45 #1834 [verbose] > │ match v22 with │
00:01:45 #1835 [verbose] > │ | US1_1 -> (* None *) │
00:01:45 #1836 [verbose] > │ let v25 : int64 option = None │
00:01:45 #1837 [verbose] > │ v25 │
00:01:45 #1838 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:01:45 #1839 [verbose] > │ let v24 : int64 option = Some v23 │
00:01:45 #1840 [verbose] > │ v24 │
00:01:45 #1841 [verbose] > │ let v28 : int64 option = method1(v27) │
00:01:45 #1842 [verbose] > │ v28 │
00:01:45 #1843 [verbose] > │ #else │
00:01:45 #1844 [verbose] > │ let v29 : int64 option = None │
00:01:45 #1845 [verbose] > │ let v30 : int64 option = method2(v29) │
00:01:45 #1846 [verbose] > │ v30 │
00:01:45 #1847 [verbose] > │ #endif │
00:01:45 #1848 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:45 #1849 [verbose] > │ let v31 : int64 option = _v5.Value │
00:01:45 #1850 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:01:45 #1851 [verbose] > │ and closure1 () () : string = │
00:01:45 #1852 [verbose] > │ let v0 : string = "test" │
00:01:45 #1853 [verbose] > │ v0 │
00:01:45 #1854 [verbose] > │ and method0 () : unit = │
00:01:45 #1855 [verbose] > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:45 #1856 [verbose] > │ closure0() │
00:01:45 #1857 [verbose] > │ if State.trace_state = None then State.trace_state <- v0 () |> Some │
00:01:45 #1858 [verbose] > │ let struct (v1 : Mut0, v2 : Mut1, v3 : Mut1, v4 : Mut2, v5 : int64 │
00:01:45 #1859 [verbose] > │ option) = State.trace_state.Value │
00:01:45 #1860 [verbose] > │ if State.trace_state = None then State.trace_state <- v0 () |> Some │
00:01:45 #1861 [verbose] > │ let struct (v6 : Mut0, v7 : Mut1, v8 : Mut1, v9 : Mut2, v10 : int64 │
00:01:45 #1862 [verbose] > │ option) = State.trace_state.Value │
00:01:45 #1863 [verbose] > │ let v11 : US0 = v9.l0 │
00:01:45 #1864 [verbose] > │ let v12 : bool = v8.l0 │
00:01:45 #1865 [verbose] > │ let v15 : bool = │
00:01:45 #1866 [verbose] > │ if v12 then │
00:01:45 #1867 [verbose] > │ let v13 : US0 = US0_1 │
00:01:45 #1868 [verbose] > │ let v14 : bool = v13 >= v11 │
00:01:45 #1869 [verbose] > │ v14 │
00:01:45 #1870 [verbose] > │ else │
00:01:45 #1871 [verbose] > │ false │
00:01:45 #1872 [verbose] > │ if v15 then │
00:01:45 #1873 [verbose] > │ let v16 : int64 = v1.l0 │
00:01:45 #1874 [verbose] > │ let v17 : int64 = v16 + 1L │
00:01:45 #1875 [verbose] > │ v1.l0 <- v17 │
00:01:45 #1876 [verbose] > │ let v18 : (unit -> string) = closure1() │
00:01:45 #1877 [verbose] > │ let v19 : string = $"%s{v18 ()}" │
00:01:45 #1878 [verbose] > │ let v20 : unit option = None │
00:01:45 #1879 [verbose] > │ let mutable _v20 = v20 │
00:01:45 #1880 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:45 #1881 [verbose] > │ let v21 : string = @"println!(""{}"", $0)" │
00:01:45 #1882 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v19 v21 │
00:01:45 #1883 [verbose] > │ () │
00:01:45 #1884 [verbose] > │ #endif │
00:01:45 #1885 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:45 #1886 [verbose] > │ let v22 : string = @"println!(""{}"", $0)" │
00:01:45 #1887 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v19 v22 │
00:01:45 #1888 [verbose] > │ () │
00:01:45 #1889 [verbose] > │ #endif │
00:01:45 #1890 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:45 #1891 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:01:45 #1892 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v19 v23 │
00:01:45 #1893 [verbose] > │ () │
00:01:45 #1894 [verbose] > │ #endif │
00:01:45 #1895 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:45 #1896 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:45 #1897 [verbose] > │ System.Console.WriteLine v19 │
00:01:45 #1898 [verbose] > │ () │
00:01:45 #1899 [verbose] > │ #endif │
00:01:45 #1900 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:45 #1901 [verbose] > │ System.Console.WriteLine v19 │
00:01:45 #1902 [verbose] > │ () │
00:01:45 #1903 [verbose] > │ #endif │
00:01:45 #1904 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:45 #1905 [verbose] > │ FABLE_COMPILER_DART │
00:01:45 #1906 [verbose] > │ Unchecked.defaultof<unit> │
00:01:45 #1907 [verbose] > │ () │
00:01:45 #1908 [verbose] > │ #endif │
00:01:45 #1909 [verbose] > │ |> fun x -> _v20 <- Some x │
00:01:45 #1910 [verbose] > │ _v20.Value │
00:01:45 #1911 [verbose] > │ () │
00:01:45 #1912 [verbose] > │ method0() │
00:01:45 #1913 [verbose] > │ │
00:01:45 #1914 [verbose] > │ test │
00:01:45 #1915 [verbose] > │ │
00:01:45 #1916 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:45 #1917 [verbose] >
00:01:45 #1918 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:45 #1919 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:45 #1920 [verbose] > │ ## trace │
00:01:45 #1921 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:45 #1922 [verbose] >
00:01:45 #1923 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:45 #1924 [verbose] > let trace (level : trace_level) (fn : () -> string) (get_locals : () -> string)
00:01:45 #1925 [verbose] > =
00:01:45 #1926 [verbose] > fun () =>
00:01:45 #1927 [verbose] > inl trace_state = get_trace_state ()
00:01:45 #1928 [verbose] > inl time =
00:01:45 #1929 [verbose] > run_target fun target =>
00:01:45 #1930 [verbose] > match target with
00:01:45 #1931 [verbose] > | Fsharp (Native)
00:01:45 #1932 [verbose] > | Rust (Native) => fun () =>
00:01:45 #1933 [verbose] > match trace_state.repl_start |> optionm'.unbox with
00:01:45 #1934 [verbose] > | Some repl_start =>
00:01:45 #1935 [verbose] > inl t =
00:01:45 #1936 [verbose] > (date_time.now () |> date_time.ticks |> fun
00:01:45 #1937 [verbose] > (date_time.timestamp x) => x)
00:01:45 #1938 [verbose] > - repl_start |> date_time.time_span
00:01:45 #1939 [verbose] > date_time.date_time_milliseconds
00:01:45 #1940 [verbose] > 1i32 1i32 1i32
00:01:45 #1941 [verbose] > (t |> date_time.hours)
00:01:45 #1942 [verbose] > (t |> date_time.minutes)
00:01:45 #1943 [verbose] > (t |> date_time.seconds)
00:01:45 #1944 [verbose] > (t |> date_time.milliseconds)
00:01:45 #1945 [verbose] > | None => date_time.now ()
00:01:45 #1946 [verbose] > |> fun date_time =>
00:01:45 #1947 [verbose] > inl format =
00:01:45 #1948 [verbose] > match target with
00:01:45 #1949 [verbose] > | Rust _ => "hh:mm:ss"
00:01:45 #1950 [verbose] > | _ => "HH:mm:ss"
00:01:45 #1951 [verbose] > $'!date_time.ToString !format '
00:01:45 #1952 [verbose] > | _ => fun () => join ""
00:01:45 #1953 [verbose] > inl count = *trace_state.count
00:01:45 #1954 [verbose] > inl level = level |> to_string |> sm'.to_lower
00:01:45 #1955 [verbose] > $'$"{!time} #{!count} [[{!level}]] %s{!fn ()} / %s{!get_locals ()}"'
00:01:45 #1956 [verbose] > |> sm'.trim_start ;[[]]
00:01:45 #1957 [verbose] > |> sm'.trim_end ;[[ ' '; '/' ]]
00:01:45 #1958 [verbose] > |> trace_raw level
00:01:45 #1959 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5956b5c56b71ec11cce4873b0f59b2370196ae3b52e964f219d1184ff1d206a1\main.spi
00:01:45 #1960 [verbose] >
00:01:45 #1961 [verbose] > ╭─[ 259.95ms - stdout ]────────────────────────────────────────────────────────╮
00:01:45 #1962 [verbose] > │ () │
00:01:45 #1963 [verbose] > │ │
00:01:45 #1964 [verbose] > │ │
00:01:45 #1965 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:45 #1966 [verbose] >
00:01:45 #1967 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:45 #1968 [verbose] > // // test
00:01:45 #1969 [verbose] > // // print_code=false
00:01:45 #1970 [verbose] >
00:01:45 #1971 [verbose] > trace Debug (fun () => "test") get_locals
00:01:45 #1972 [verbose] > trace Debug (fun () => "test") get_locals
00:01:45 #1973 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eb1d38de316261f3119db698513495c49075c8b163d8dc71e72254a6659c9075\main.spi
00:01:46 #1974 [verbose] >
00:01:46 #1975 [verbose] > ╭─[ 686.71ms - stdout ]────────────────────────────────────────────────────────╮
00:01:46 #1976 [verbose] > │ 00:00:00 #1 [debug] test │
00:01:46 #1977 [verbose] > │ 00:00:00 #2 [debug] test │
00:01:46 #1978 [verbose] > │ │
00:01:46 #1979 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 #1980 [verbose] >
00:01:46 #1981 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:46 #1982 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:46 #1983 [verbose] > │ ## main │
00:01:46 #1984 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:46 #1985 [verbose] >
00:01:46 #1986 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:46 #1987 [verbose] > inl main () =
00:01:46 #1988 [verbose] > // global "let mutable trace_state = None"
00:01:46 #1989 [verbose] > // $"let mutable trace_state : `trace_state option = None" : ()
00:01:46 #1990 [verbose] >
00:01:46 #1991 [verbose] > $"let trace x = !trace x" : ()
00:01:46 #1992 [verbose] > $"let get_trace_state () = !get_trace_state ()" : ()
00:01:46 #1993 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dfd06d8b7236fe63125fbe2af4afa1719cd7f28f1e2ad72b63f05037b09ceaf7\main.spi
00:01:46 #1994 [verbose] >
00:01:46 #1995 [verbose] > ╭─[ 657.70ms - stdout ]────────────────────────────────────────────────────────╮
00:01:46 #1996 [verbose] > │ module State = let mutable trace_state = None │
00:01:46 #1997 [verbose] > │ type [<Struct>] US0 = │
00:01:46 #1998 [verbose] > │ | US0_0 │
00:01:46 #1999 [verbose] > │ | US0_1 │
00:01:46 #2000 [verbose] > │ | US0_2 │
00:01:46 #2001 [verbose] > │ | US0_3 │
00:01:46 #2002 [verbose] > │ | US0_4 │
00:01:46 #2003 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:01:46 #2004 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:01:46 #2005 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:01:46 #2006 [verbose] > │ and [<Struct>] US1 = │
00:01:46 #2007 [verbose] > │ | US1_0 of f0_0 : int64 │
00:01:46 #2008 [verbose] > │ | US1_1 │
00:01:46 #2009 [verbose] > │ and [<Struct>] US2 = │
00:01:46 #2010 [verbose] > │ | US2_0 of f0_0 : int64 │
00:01:46 #2011 [verbose] > │ | US2_1 │
00:01:46 #2012 [verbose] > │ let rec method1 (v0 : int64 option) : int64 option = │
00:01:46 #2013 [verbose] > │ v0 │
00:01:46 #2014 [verbose] > │ and method2 (v0 : int64 option) : int64 option = │
00:01:46 #2015 [verbose] > │ v0 │
00:01:46 #2016 [verbose] > │ and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:01:46 #2017 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:01:46 #2018 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:01:46 #2019 [verbose] > │ let v2 : US0 = US0_0 │
00:01:46 #2020 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:01:46 #2021 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:01:46 #2022 [verbose] > │ let v5 : int64 option option = None │
00:01:46 #2023 [verbose] > │ let mutable _v5 = v5 │
00:01:46 #2024 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:01:46 #2025 [verbose] > │ let v6 : string option = None │
00:01:46 #2026 [verbose] > │ let mutable _v6 = v6 │
00:01:46 #2027 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:46 #2028 [verbose] > │ let v7 : string = null |> unbox<string> │
00:01:46 #2029 [verbose] > │ v7 │
00:01:46 #2030 [verbose] > │ #endif │
00:01:46 #2031 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:46 #2032 [verbose] > │ let v8 : string = null |> unbox<string> │
00:01:46 #2033 [verbose] > │ v8 │
00:01:46 #2034 [verbose] > │ #endif │
00:01:46 #2035 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:46 #2036 [verbose] > │ let v9 : string = null |> unbox<string> │
00:01:46 #2037 [verbose] > │ v9 │
00:01:46 #2038 [verbose] > │ #endif │
00:01:46 #2039 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:46 #2040 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:46 #2041 [verbose] > │ let v10 : string = │
00:01:46 #2042 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:01:46 #2043 [verbose] > │ v10 │
00:01:46 #2044 [verbose] > │ #endif │
00:01:46 #2045 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:46 #2046 [verbose] > │ let v11 : string = null |> unbox<string> │
00:01:46 #2047 [verbose] > │ v11 │
00:01:46 #2048 [verbose] > │ #endif │
00:01:46 #2049 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:46 #2050 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:01:46 #2051 [verbose] > │ v12 │
00:01:46 #2052 [verbose] > │ #endif │
00:01:46 #2053 [verbose] > │ |> fun x -> _v6 <- Some x │
00:01:46 #2054 [verbose] > │ let v13 : string = _v6.Value │
00:01:46 #2055 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:01:46 #2056 [verbose] > │ let v16 : bool = v15 <> true │
00:01:46 #2057 [verbose] > │ let v22 : US1 = │
00:01:46 #2058 [verbose] > │ if v16 then │
00:01:46 #2059 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:01:46 #2060 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:01:46 #2061 [verbose] > │ let v19 : int64 = v18 v17 │
00:01:46 #2062 [verbose] > │ US1_0(v19) │
00:01:46 #2063 [verbose] > │ else │
00:01:46 #2064 [verbose] > │ US1_1 │
00:01:46 #2065 [verbose] > │ let v27 : int64 option = │
00:01:46 #2066 [verbose] > │ match v22 with │
00:01:46 #2067 [verbose] > │ | US1_1 -> (* None *) │
00:01:46 #2068 [verbose] > │ let v25 : int64 option = None │
00:01:46 #2069 [verbose] > │ v25 │
00:01:46 #2070 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:01:46 #2071 [verbose] > │ let v24 : int64 option = Some v23 │
00:01:46 #2072 [verbose] > │ v24 │
00:01:46 #2073 [verbose] > │ let v28 : int64 option = method1(v27) │
00:01:46 #2074 [verbose] > │ v28 │
00:01:46 #2075 [verbose] > │ #else │
00:01:46 #2076 [verbose] > │ let v29 : int64 option = None │
00:01:46 #2077 [verbose] > │ let v30 : int64 option = method2(v29) │
00:01:46 #2078 [verbose] > │ v30 │
00:01:46 #2079 [verbose] > │ #endif │
00:01:46 #2080 [verbose] > │ |> fun x -> _v5 <- Some x │
00:01:46 #2081 [verbose] > │ let v31 : int64 option = _v5.Value │
00:01:46 #2082 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:01:46 #2083 [verbose] > │ and closure5 () (v0 : int64) : US2 = │
00:01:46 #2084 [verbose] > │ US2_0(v0) │
00:01:46 #2085 [verbose] > │ and method3 () : (int64 -> US2) = │
00:01:46 #2086 [verbose] > │ closure5() │
00:01:46 #2087 [verbose] > │ and method4 () : string = │
00:01:46 #2088 [verbose] > │ let v0 : string = "" │
00:01:46 #2089 [verbose] > │ v0 │
00:01:46 #2090 [verbose] > │ and closure4 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:01:46 #2091 [verbose] > │ string = │
00:01:46 #2092 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:46 #2093 [verbose] > │ closure3() │
00:01:46 #2094 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:46 #2095 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:01:46 #2096 [verbose] > │ option) = State.trace_state.Value │
00:01:46 #2097 [verbose] > │ let v9 : string option = None │
00:01:46 #2098 [verbose] > │ let mutable _v9 = v9 │
00:01:46 #2099 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:46 #2100 [verbose] > │ let v10 : (int64 -> US2) = method3() │
00:01:46 #2101 [verbose] > │ let v11 : US2 = US2_1 │
00:01:46 #2102 [verbose] > │ let v12 : US2 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:01:46 #2103 [verbose] > │ let v30 : System.DateTime = │
00:01:46 #2104 [verbose] > │ match v12 with │
00:01:46 #2105 [verbose] > │ | US2_1 -> (* None *) │
00:01:46 #2106 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:01:46 #2107 [verbose] > │ v28 │
00:01:46 #2108 [verbose] > │ | US2_0(v13) -> (* Some *) │
00:01:46 #2109 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:01:46 #2110 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:01:46 #2111 [verbose] > │ let v16 : int64 = v15 v14 │
00:01:46 #2112 [verbose] > │ let v17 : int64 = v16 - v13 │
00:01:46 #2113 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:01:46 #2114 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:01:46 #2115 [verbose] > │ let v20 : int32 = v19 v18 │
00:01:46 #2116 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:01:46 #2117 [verbose] > │ let v22 : int32 = v21 v18 │
00:01:46 #2118 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:01:46 #2119 [verbose] > │ let v24 : int32 = v23 v18 │
00:01:46 #2120 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:46 #2121 [verbose] > │ let v26 : int32 = v25 v18 │
00:01:46 #2122 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:01:46 #2123 [verbose] > │ v24, v26) │
00:01:46 #2124 [verbose] > │ v27 │
00:01:46 #2125 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:01:46 #2126 [verbose] > │ let v32 : string = v30.ToString v31 │
00:01:46 #2127 [verbose] > │ v32 │
00:01:46 #2128 [verbose] > │ #endif │
00:01:46 #2129 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:46 #2130 [verbose] > │ let v33 : string = method4() │
00:01:46 #2131 [verbose] > │ v33 │
00:01:46 #2132 [verbose] > │ #endif │
00:01:46 #2133 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:46 #2134 [verbose] > │ let v34 : string = method4() │
00:01:46 #2135 [verbose] > │ v34 │
00:01:46 #2136 [verbose] > │ #endif │
00:01:46 #2137 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:46 #2138 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:46 #2139 [verbose] > │ let v35 : (int64 -> US2) = method3() │
00:01:46 #2140 [verbose] > │ let v36 : US2 = US2_1 │
00:01:46 #2141 [verbose] > │ let v37 : US2 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:01:46 #2142 [verbose] > │ let v55 : System.DateTime = │
00:01:46 #2143 [verbose] > │ match v37 with │
00:01:46 #2144 [verbose] > │ | US2_1 -> (* None *) │
00:01:46 #2145 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:01:46 #2146 [verbose] > │ v53 │
00:01:46 #2147 [verbose] > │ | US2_0(v38) -> (* Some *) │
00:01:46 #2148 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:01:46 #2149 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:01:46 #2150 [verbose] > │ let v41 : int64 = v40 v39 │
00:01:46 #2151 [verbose] > │ let v42 : int64 = v41 - v38 │
00:01:46 #2152 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:01:46 #2153 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:01:46 #2154 [verbose] > │ let v45 : int32 = v44 v43 │
00:01:46 #2155 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:01:46 #2156 [verbose] > │ let v47 : int32 = v46 v43 │
00:01:46 #2157 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:01:46 #2158 [verbose] > │ let v49 : int32 = v48 v43 │
00:01:46 #2159 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:01:46 #2160 [verbose] > │ let v51 : int32 = v50 v43 │
00:01:46 #2161 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:01:46 #2162 [verbose] > │ v49, v51) │
00:01:46 #2163 [verbose] > │ v52 │
00:01:46 #2164 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:01:46 #2165 [verbose] > │ let v57 : string = v55.ToString v56 │
00:01:46 #2166 [verbose] > │ v57 │
00:01:46 #2167 [verbose] > │ #endif │
00:01:46 #2168 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:46 #2169 [verbose] > │ let v58 : string = method4() │
00:01:46 #2170 [verbose] > │ v58 │
00:01:46 #2171 [verbose] > │ #endif │
00:01:46 #2172 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:01:46 #2173 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:01:46 #2174 [verbose] > │ v59 │
00:01:46 #2175 [verbose] > │ #endif │
00:01:46 #2176 [verbose] > │ |> fun x -> _v9 <- Some x │
00:01:46 #2177 [verbose] > │ let v60 : string = _v9.Value │
00:01:46 #2178 [verbose] > │ let v61 : int64 = v4.l0 │
00:01:46 #2179 [verbose] > │ let v71 : string = │
00:01:46 #2180 [verbose] > │ match v0 with │
00:01:46 #2181 [verbose] > │ | US0_4 -> (* Critical *) │
00:01:46 #2182 [verbose] > │ let v66 : string = "Critical" │
00:01:46 #2183 [verbose] > │ v66 │
00:01:46 #2184 [verbose] > │ | US0_1 -> (* Debug *) │
00:01:46 #2185 [verbose] > │ let v63 : string = "Debug" │
00:01:46 #2186 [verbose] > │ v63 │
00:01:46 #2187 [verbose] > │ | US0_2 -> (* Info *) │
00:01:46 #2188 [verbose] > │ let v64 : string = "Info" │
00:01:46 #2189 [verbose] > │ v64 │
00:01:46 #2190 [verbose] > │ | US0_0 -> (* Verbose *) │
00:01:46 #2191 [verbose] > │ let v62 : string = "Verbose" │
00:01:46 #2192 [verbose] > │ v62 │
00:01:46 #2193 [verbose] > │ | US0_3 -> (* Warning *) │
00:01:46 #2194 [verbose] > │ let v65 : string = "Warning" │
00:01:46 #2195 [verbose] > │ v65 │
00:01:46 #2196 [verbose] > │ let v72 : string = v71.ToLower () │
00:01:46 #2197 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:01:46 #2198 [verbose] > │ let v74 : (char []) = [||] │
00:01:46 #2199 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:01:46 #2200 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:01:46 #2201 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:01:46 #2202 [verbose] > │ v77 │
00:01:46 #2203 [verbose] > │ and method0 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:01:46 #2204 [verbose] > │ = │
00:01:46 #2205 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:46 #2206 [verbose] > │ closure3() │
00:01:46 #2207 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:46 #2208 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:01:46 #2209 [verbose] > │ option) = State.trace_state.Value │
00:01:46 #2210 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:01:46 #2211 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:01:46 #2212 [verbose] > │ option) = State.trace_state.Value │
00:01:46 #2213 [verbose] > │ let v14 : US0 = v12.l0 │
00:01:46 #2214 [verbose] > │ let v15 : bool = v11.l0 │
00:01:46 #2215 [verbose] > │ let v17 : bool = │
00:01:46 #2216 [verbose] > │ if v15 then │
00:01:46 #2217 [verbose] > │ let v16 : bool = v0 >= v14 │
00:01:46 #2218 [verbose] > │ v16 │
00:01:46 #2219 [verbose] > │ else │
00:01:46 #2220 [verbose] > │ false │
00:01:46 #2221 [verbose] > │ if v17 then │
00:01:46 #2222 [verbose] > │ let v18 : int64 = v4.l0 │
00:01:46 #2223 [verbose] > │ let v19 : int64 = v18 + 1L │
00:01:46 #2224 [verbose] > │ v4.l0 <- v19 │
00:01:46 #2225 [verbose] > │ let v20 : (unit -> string) = closure4(v0, v1, v2) │
00:01:46 #2226 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:01:46 #2227 [verbose] > │ let v22 : unit option = None │
00:01:46 #2228 [verbose] > │ let mutable _v22 = v22 │
00:01:46 #2229 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:46 #2230 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:01:46 #2231 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:01:46 #2232 [verbose] > │ () │
00:01:46 #2233 [verbose] > │ #endif │
00:01:46 #2234 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:46 #2235 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:01:46 #2236 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:01:46 #2237 [verbose] > │ () │
00:01:46 #2238 [verbose] > │ #endif │
00:01:46 #2239 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:46 #2240 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:01:46 #2241 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:01:46 #2242 [verbose] > │ () │
00:01:46 #2243 [verbose] > │ #endif │
00:01:46 #2244 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:46 #2245 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:46 #2246 [verbose] > │ System.Console.WriteLine v21 │
00:01:46 #2247 [verbose] > │ () │
00:01:46 #2248 [verbose] > │ #endif │
00:01:46 #2249 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:46 #2250 [verbose] > │ System.Console.WriteLine v21 │
00:01:46 #2251 [verbose] > │ () │
00:01:46 #2252 [verbose] > │ #endif │
00:01:46 #2253 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:46 #2254 [verbose] > │ FABLE_COMPILER_DART │
00:01:46 #2255 [verbose] > │ Unchecked.defaultof<unit> │
00:01:46 #2256 [verbose] > │ () │
00:01:46 #2257 [verbose] > │ #endif │
00:01:46 #2258 [verbose] > │ |> fun x -> _v22 <- Some x │
00:01:46 #2259 [verbose] > │ _v22.Value │
00:01:46 #2260 [verbose] > │ () │
00:01:46 #2261 [verbose] > │ and closure2 (v0 : US0, v1 : (unit -> string)) (v2 : (unit -> string)) : │
00:01:46 #2262 [verbose] > │ unit = │
00:01:46 #2263 [verbose] > │ method0(v0, v1, v2) │
00:01:46 #2264 [verbose] > │ and closure1 (v0 : US0) (v1 : (unit -> string)) : ((unit -> string) -> unit) │
00:01:46 #2265 [verbose] > │ = │
00:01:46 #2266 [verbose] > │ closure2(v0, v1) │
00:01:46 #2267 [verbose] > │ and closure0 () (v0 : US0) : ((unit -> string) -> ((unit -> string) -> │
00:01:46 #2268 [verbose] > │ unit)) = │
00:01:46 #2269 [verbose] > │ closure1(v0) │
00:01:46 #2270 [verbose] > │ and closure6 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:01:46 #2271 [verbose] > │ let v0 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:46 #2272 [verbose] > │ closure3() │
00:01:46 #2273 [verbose] > │ if State.trace_state = None then State.trace_state <- v0 () |> Some │
00:01:46 #2274 [verbose] > │ let struct (v1 : Mut0, v2 : Mut1, v3 : Mut1, v4 : Mut2, v5 : int64 │
00:01:46 #2275 [verbose] > │ option) = State.trace_state.Value │
00:01:46 #2276 [verbose] > │ struct (v1, v2, v3, v4, v5) │
00:01:46 #2277 [verbose] > │ let v0 : (US0 -> ((unit -> string) -> ((unit -> string) -> unit))) = │
00:01:46 #2278 [verbose] > │ closure0() │
00:01:46 #2279 [verbose] > │ let trace x = v0 x │
00:01:46 #2280 [verbose] > │ let v1 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:01:46 #2281 [verbose] > │ closure6() │
00:01:46 #2282 [verbose] > │ let get_trace_state () = v1 () │
00:01:46 #2283 [verbose] > │ () │
00:01:46 #2284 [verbose] > │ │
00:01:46 #2285 [verbose] > │ │
00:01:46 #2286 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:49 #2287 [verbose] > [NbConvertApp] Converting notebook trace.dib.ipynb to html
00:01:49 #2288 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:49 #2289 [verbose] > validate(nb)
00:01:50 #2290 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:50 #2291 [verbose] > return _pygments_highlight(
00:01:50 #2292 [verbose] > [NbConvertApp] Writing 330030 bytes to trace.dib.html
00:01:51 #2293 [debug] executeAsync / exitCode: 0 / output.Length: 62683
00:01:51 #2294 [debug] main / executeCommand / exitCode: 0
00:01:51 #2295 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 crypto.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:01:55 #2296 [verbose] >
00:01:55 #2297 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:55 #2298 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:55 #2299 [verbose] > │ # crypto │
00:01:55 #2300 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:55 #2301 [verbose] >
00:01:55 #2302 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:55 #2303 [verbose] > // // test
00:01:55 #2304 [verbose] >
00:01:55 #2305 [verbose] > open testing
00:01:59 #2306 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:02:00 #2307 [verbose] >
00:02:00 #2308 [verbose] > ╭─[ 5.41s - stdout ]───────────────────────────────────────────────────────────╮
00:02:00 #2309 [verbose] > │ () │
00:02:00 #2310 [verbose] > │ │
00:02:00 #2311 [verbose] > │ │
00:02:00 #2312 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:00 #2313 [verbose] >
00:02:00 #2314 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:00 #2315 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:00 #2316 [verbose] > │ ## sha256 │
00:02:00 #2317 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:00 #2318 [verbose] >
00:02:00 #2319 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:00 #2320 [verbose] > nominal sha256 = $'System.Security.Cryptography.SHA256'
00:02:00 #2321 [verbose] >
00:02:00 #2322 [verbose] > inl sha256 () : sha256 =
00:02:00 #2323 [verbose] > $'`sha256.Create' ()
00:02:00 #2324 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\391125733aa8f01f98990ed96a96f6458feb5d256c9c5d9b37dace0ed8d7854f\main.spi
00:02:01 #2325 [verbose] >
00:02:01 #2326 [verbose] > ╭─[ 916.57ms - stdout ]────────────────────────────────────────────────────────╮
00:02:01 #2327 [verbose] > │ () │
00:02:01 #2328 [verbose] > │ │
00:02:01 #2329 [verbose] > │ │
00:02:01 #2330 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 #2331 [verbose] >
00:02:01 #2332 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:01 #2333 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:01 #2334 [verbose] > │ ## sha256_compute_hash │
00:02:01 #2335 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 #2336 [verbose] >
00:02:01 #2337 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:01 #2338 [verbose] > inl sha256_compute_hash (x : sha256) (data : a i32 u8) : a i32 u8 =
00:02:01 #2339 [verbose] > data |> $'!x.ComputeHash'
00:02:01 #2340 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\32fe47403608d84fb54876a14ed9a5219f0876037328d0ce6ea6fa5557881356\main.spi
00:02:01 #2341 [verbose] >
00:02:01 #2342 [verbose] > ╭─[ 235.35ms - stdout ]────────────────────────────────────────────────────────╮
00:02:01 #2343 [verbose] > │ () │
00:02:01 #2344 [verbose] > │ │
00:02:01 #2345 [verbose] > │ │
00:02:01 #2346 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 #2347 [verbose] >
00:02:01 #2348 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:01 #2349 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:01 #2350 [verbose] > │ ## create_hash │
00:02:01 #2351 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:01 #2352 [verbose] >
00:02:01 #2353 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:01 #2354 [verbose] > inl create_hash (x : string) : any =
00:02:01 #2355 [verbose] > open ts_operators
00:02:01 #2356 [verbose] > global "type ICryptoCreateHash = abstract createHash: x: string -> obj"
00:02:01 #2357 [verbose] > inl crypto : $'ICryptoCreateHash' = ts.import_all "crypto"
00:02:01 #2358 [verbose] > !\\(x, $'"!crypto.createHash($0)"')
00:02:02 #2359 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\45c29146c406001ac11dffde7d1aa9509ef39ab2d5ce182fb847cd255e842f66\main.spi
00:02:02 #2360 [verbose] >
00:02:02 #2361 [verbose] > ╭─[ 251.47ms - stdout ]────────────────────────────────────────────────────────╮
00:02:02 #2362 [verbose] > │ () │
00:02:02 #2363 [verbose] > │ │
00:02:02 #2364 [verbose] > │ │
00:02:02 #2365 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #2366 [verbose] >
00:02:02 #2367 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:02 #2368 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:02 #2369 [verbose] > │ ## hash_update │
00:02:02 #2370 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #2371 [verbose] >
00:02:02 #2372 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:02 #2373 [verbose] > inl hash_update (s : string) (x : any) : any =
00:02:02 #2374 [verbose] > open ts_operators
00:02:02 #2375 [verbose] > !\\((x, s), $'"$0.update($1, \'utf8\')"')
00:02:02 #2376 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\447f7ecf9544c8fdb6655339b3c23425aa25932883806ab1f393bc1bef8841da\main.spi
00:02:02 #2377 [verbose] >
00:02:02 #2378 [verbose] > ╭─[ 232.70ms - stdout ]────────────────────────────────────────────────────────╮
00:02:02 #2379 [verbose] > │ () │
00:02:02 #2380 [verbose] > │ │
00:02:02 #2381 [verbose] > │ │
00:02:02 #2382 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #2383 [verbose] >
00:02:02 #2384 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:02 #2385 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:02 #2386 [verbose] > │ ## hash_digest │
00:02:02 #2387 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #2388 [verbose] >
00:02:02 #2389 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:02 #2390 [verbose] > inl hash_digest (s : string) (x : any) : string =
00:02:02 #2391 [verbose] > open ts_operators
00:02:02 #2392 [verbose] > !\\((x, s), $'"$0.digest($1)"')
00:02:02 #2393 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\44447460b0f50c2cc132f70d4879b4e541808249da1865bf1b3633dc341b7097\main.spi
00:02:02 #2394 [verbose] >
00:02:02 #2395 [verbose] > ╭─[ 243.41ms - stdout ]────────────────────────────────────────────────────────╮
00:02:02 #2396 [verbose] > │ () │
00:02:02 #2397 [verbose] > │ │
00:02:02 #2398 [verbose] > │ │
00:02:02 #2399 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #2400 [verbose] >
00:02:02 #2401 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:02 #2402 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:02 #2403 [verbose] > │ ## hash_text │
00:02:02 #2404 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #2405 [verbose] >
00:02:02 #2406 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:02 #2407 [verbose] > inl hash_text (input : string) =
00:02:02 #2408 [verbose] > run_target function
00:02:02 #2409 [verbose] > | Fsharp (Native) => fun () =>
00:02:02 #2410 [verbose] > inl sha256 = sha256 () |> use
00:02:02 #2411 [verbose] > input
00:02:02 #2412 [verbose] > |> sm'.utf8_get_bytes
00:02:02 #2413 [verbose] > |> sha256_compute_hash sha256
00:02:02 #2414 [verbose] > |> am.map (sm'.byte_to_string "x2")
00:02:02 #2415 [verbose] > |> seq.of_array'
00:02:02 #2416 [verbose] > |> sm'.concat ""
00:02:02 #2417 [verbose] > | TypeScript _ => fun () =>
00:02:02 #2418 [verbose] > create_hash "sha256"
00:02:02 #2419 [verbose] > |> hash_update input
00:02:02 #2420 [verbose] > |> hash_digest "hex"
00:02:02 #2421 [verbose] > | _ => fun () => null ()
00:02:02 #2422 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1a02ce4a2c0c5ba46e7ceabae5f9c684ebaccd6e030bb4496ed54df7aacc6791\main.spi
00:02:02 #2423 [verbose] >
00:02:02 #2424 [verbose] > ╭─[ 235.19ms - stdout ]────────────────────────────────────────────────────────╮
00:02:02 #2425 [verbose] > │ () │
00:02:02 #2426 [verbose] > │ │
00:02:02 #2427 [verbose] > │ │
00:02:02 #2428 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:02 #2429 [verbose] >
00:02:02 #2430 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:02 #2431 [verbose] > // // test
00:02:02 #2432 [verbose] >
00:02:02 #2433 [verbose] > ""
00:02:02 #2434 [verbose] > |> hash_text
00:02:02 #2435 [verbose] > |> _assert_eq "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"
00:02:03 #2436 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5eeb29d029fc15593f3b65bbe295c41d5810fa0c74c4a906f249b181d087f439\main.spi
00:02:04 #2437 [verbose] >
00:02:04 #2438 [verbose] > ╭─[ 2.03s - stdout ]───────────────────────────────────────────────────────────╮
00:02:04 #2439 [verbose] > │ type ICryptoCreateHash = abstract createHash: x: string -> obj │
00:02:04 #2440 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:04 #2441 [verbose] > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:02:04 #2442 [verbose] > │ let v2 : int32 = v1.l0 │
00:02:04 #2443 [verbose] > │ let v3 : bool = v2 < v0 │
00:02:04 #2444 [verbose] > │ v3 │
00:02:04 #2445 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:04 #2446 [verbose] > │ v0 │
00:02:04 #2447 [verbose] > │ and method0 () : unit = │
00:02:04 #2448 [verbose] > │ let v0 : string option = None │
00:02:04 #2449 [verbose] > │ let mutable _v0 = v0 │
00:02:04 #2450 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:04 #2451 [verbose] > │ let v1 : string = null |> unbox<string> │
00:02:04 #2452 [verbose] > │ v1 │
00:02:04 #2453 [verbose] > │ #endif │
00:02:04 #2454 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:04 #2455 [verbose] > │ let v2 : string = null |> unbox<string> │
00:02:04 #2456 [verbose] > │ v2 │
00:02:04 #2457 [verbose] > │ #endif │
00:02:04 #2458 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:04 #2459 [verbose] > │ let v3 : string = null |> unbox<string> │
00:02:04 #2460 [verbose] > │ v3 │
00:02:04 #2461 [verbose] > │ #endif │
00:02:04 #2462 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:04 #2463 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:04 #2464 [verbose] > │ let v4 : (unit -> System.Security.Cryptography.SHA256) = │
00:02:04 #2465 [verbose] > │ System.Security.Cryptography.SHA256.Create │
00:02:04 #2466 [verbose] > │ let v5 : System.Security.Cryptography.SHA256 = v4 () │
00:02:04 #2467 [verbose] > │ use v5 = v5 │
00:02:04 #2468 [verbose] > │ let v6 : System.Security.Cryptography.SHA256 = v5 │
00:02:04 #2469 [verbose] > │ let v7 : (string -> (uint8 [])) = System.Text.Encoding.UTF8.GetBytes │
00:02:04 #2470 [verbose] > │ let v8 : string = "" │
00:02:04 #2471 [verbose] > │ let v9 : (uint8 []) = v7 v8 │
00:02:04 #2472 [verbose] > │ let v10 : ((uint8 []) -> (uint8 [])) = v6.ComputeHash │
00:02:04 #2473 [verbose] > │ let v11 : (uint8 []) = v10 v9 │
00:02:04 #2474 [verbose] > │ let v12 : int32 = v11.Length │
00:02:04 #2475 [verbose] > │ let v13 : (string []) = Array.zeroCreate<string> (v12) │
00:02:04 #2476 [verbose] > │ let v14 : Mut0 = {l0 = 0} : Mut0 │
00:02:04 #2477 [verbose] > │ while method1(v12, v14) do │
00:02:04 #2478 [verbose] > │ let v16 : int32 = v14.l0 │
00:02:04 #2479 [verbose] > │ let v17 : uint8 = v11.[int v16] │
00:02:04 #2480 [verbose] > │ let v18 : (string -> string) = v17.ToString │
00:02:04 #2481 [verbose] > │ let v19 : string = "x2" │
00:02:04 #2482 [verbose] > │ let v20 : string = v18 v19 │
00:02:04 #2483 [verbose] > │ v13.[int v16] <- v20 │
00:02:04 #2484 [verbose] > │ let v21 : int32 = v16 + 1 │
00:02:04 #2485 [verbose] > │ v14.l0 <- v21 │
00:02:04 #2486 [verbose] > │ () │
00:02:04 #2487 [verbose] > │ let v22 : string seq = seq { for i = 0 to v13.Length - 1 do yield v13.[ │
00:02:04 #2488 [verbose] > │ i] } │
00:02:04 #2489 [verbose] > │ let v23 : string = v22 |> String.concat v8 │
00:02:04 #2490 [verbose] > │ v23 │
00:02:04 #2491 [verbose] > │ #endif │
00:02:04 #2492 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:04 #2493 [verbose] > │ let v24 : string = "crypto" │
00:02:04 #2494 [verbose] > │ let v25 : ICryptoCreateHash = Fable.Core.JsInterop.importAll v24 │
00:02:04 #2495 [verbose] > │ let v26 : string = "v25.createHash($0)" │
00:02:04 #2496 [verbose] > │ let v27 : string = "sha256" │
00:02:04 #2497 [verbose] > │ let v28 : obj = Fable.Core.JsInterop.emitJsExpr v27 v26 │
00:02:04 #2498 [verbose] > │ let v29 : string = "$0.update($1, 'utf8')" │
00:02:04 #2499 [verbose] > │ let v30 : obj = Fable.Core.JsInterop.emitJsExpr struct (v28, v8) v29 │
00:02:04 #2500 [verbose] > │ let v31 : string = "$0.digest($1)" │
00:02:04 #2501 [verbose] > │ let v32 : string = "hex" │
00:02:04 #2502 [verbose] > │ let v33 : string = Fable.Core.JsInterop.emitJsExpr struct (v30, v32) v31 │
00:02:04 #2503 [verbose] > │ v33 │
00:02:04 #2504 [verbose] > │ #endif │
00:02:04 #2505 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:04 #2506 [verbose] > │ let v34 : string = Unchecked.defaultof<string> │
00:02:04 #2507 [verbose] > │ v34 │
00:02:04 #2508 [verbose] > │ #endif │
00:02:04 #2509 [verbose] > │ |> fun x -> _v0 <- Some x │
00:02:04 #2510 [verbose] > │ let v35 : string = _v0.Value │
00:02:04 #2511 [verbose] > │ let v36 : string = $"%A{v35}" │
00:02:04 #2512 [verbose] > │ System.Console.WriteLine v36 │
00:02:04 #2513 [verbose] > │ let v38 : bool = v35 = │
00:02:04 #2514 [verbose] > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:02:04 #2515 [verbose] > │ let v40 : bool = │
00:02:04 #2516 [verbose] > │ if v38 then │
00:02:04 #2517 [verbose] > │ true │
00:02:04 #2518 [verbose] > │ else │
00:02:04 #2519 [verbose] > │ method2(v38) │
00:02:04 #2520 [verbose] > │ let v41 : string = │
00:02:04 #2521 [verbose] > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:02:05 #2522 [verbose] > │ let v42 : string = $"__expect / actual: %A{v35} / expected: %A{v41}" │
00:02:05 #2523 [verbose] > │ let v43 : bool = v40 = false │
00:02:05 #2524 [verbose] > │ if v43 then │
00:02:05 #2525 [verbose] > │ failwith<unit> v42 │
00:02:05 #2526 [verbose] > │ method0() │
00:02:05 #2527 [verbose] > │ │
00:02:05 #2528 [verbose] > │ "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855" │
00:02:05 #2529 [verbose] > │ │
00:02:05 #2530 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 #2531 [verbose] >
00:02:05 #2532 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 #2533 [verbose] > // // test
00:02:05 #2534 [verbose] >
00:02:05 #2535 [verbose] > " "
00:02:05 #2536 [verbose] > |> hash_text
00:02:05 #2537 [verbose] > |> _assert_eq "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068"
00:02:05 #2538 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\11b6b2452eb6b1ece24906e6a5bec57f0279e3c3d4bb31a6971208cf7fca1ff2\main.spi
00:02:05 #2539 [verbose] >
00:02:05 #2540 [verbose] > ╭─[ 347.12ms - stdout ]────────────────────────────────────────────────────────╮
00:02:05 #2541 [verbose] > │ type ICryptoCreateHash = abstract createHash: x: string -> obj │
00:02:05 #2542 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:05 #2543 [verbose] > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:02:05 #2544 [verbose] > │ let v2 : int32 = v1.l0 │
00:02:05 #2545 [verbose] > │ let v3 : bool = v2 < v0 │
00:02:05 #2546 [verbose] > │ v3 │
00:02:05 #2547 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:05 #2548 [verbose] > │ v0 │
00:02:05 #2549 [verbose] > │ and method0 () : unit = │
00:02:05 #2550 [verbose] > │ let v0 : string option = None │
00:02:05 #2551 [verbose] > │ let mutable _v0 = v0 │
00:02:05 #2552 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:05 #2553 [verbose] > │ let v1 : string = null |> unbox<string> │
00:02:05 #2554 [verbose] > │ v1 │
00:02:05 #2555 [verbose] > │ #endif │
00:02:05 #2556 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:05 #2557 [verbose] > │ let v2 : string = null |> unbox<string> │
00:02:05 #2558 [verbose] > │ v2 │
00:02:05 #2559 [verbose] > │ #endif │
00:02:05 #2560 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:05 #2561 [verbose] > │ let v3 : string = null |> unbox<string> │
00:02:05 #2562 [verbose] > │ v3 │
00:02:05 #2563 [verbose] > │ #endif │
00:02:05 #2564 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:05 #2565 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:05 #2566 [verbose] > │ let v4 : (unit -> System.Security.Cryptography.SHA256) = │
00:02:05 #2567 [verbose] > │ System.Security.Cryptography.SHA256.Create │
00:02:05 #2568 [verbose] > │ let v5 : System.Security.Cryptography.SHA256 = v4 () │
00:02:05 #2569 [verbose] > │ use v5 = v5 │
00:02:05 #2570 [verbose] > │ let v6 : System.Security.Cryptography.SHA256 = v5 │
00:02:05 #2571 [verbose] > │ let v7 : (string -> (uint8 [])) = System.Text.Encoding.UTF8.GetBytes │
00:02:05 #2572 [verbose] > │ let v8 : string = " " │
00:02:05 #2573 [verbose] > │ let v9 : (uint8 []) = v7 v8 │
00:02:05 #2574 [verbose] > │ let v10 : ((uint8 []) -> (uint8 [])) = v6.ComputeHash │
00:02:05 #2575 [verbose] > │ let v11 : (uint8 []) = v10 v9 │
00:02:05 #2576 [verbose] > │ let v12 : int32 = v11.Length │
00:02:05 #2577 [verbose] > │ let v13 : (string []) = Array.zeroCreate<string> (v12) │
00:02:05 #2578 [verbose] > │ let v14 : Mut0 = {l0 = 0} : Mut0 │
00:02:05 #2579 [verbose] > │ while method1(v12, v14) do │
00:02:05 #2580 [verbose] > │ let v16 : int32 = v14.l0 │
00:02:05 #2581 [verbose] > │ let v17 : uint8 = v11.[int v16] │
00:02:05 #2582 [verbose] > │ let v18 : (string -> string) = v17.ToString │
00:02:05 #2583 [verbose] > │ let v19 : string = "x2" │
00:02:05 #2584 [verbose] > │ let v20 : string = v18 v19 │
00:02:05 #2585 [verbose] > │ v13.[int v16] <- v20 │
00:02:05 #2586 [verbose] > │ let v21 : int32 = v16 + 1 │
00:02:05 #2587 [verbose] > │ v14.l0 <- v21 │
00:02:05 #2588 [verbose] > │ () │
00:02:05 #2589 [verbose] > │ let v22 : string seq = seq { for i = 0 to v13.Length - 1 do yield v13.[ │
00:02:05 #2590 [verbose] > │ i] } │
00:02:05 #2591 [verbose] > │ let v23 : string = "" │
00:02:05 #2592 [verbose] > │ let v24 : string = v22 |> String.concat v23 │
00:02:05 #2593 [verbose] > │ v24 │
00:02:05 #2594 [verbose] > │ #endif │
00:02:05 #2595 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:05 #2596 [verbose] > │ let v25 : string = "crypto" │
00:02:05 #2597 [verbose] > │ let v26 : ICryptoCreateHash = Fable.Core.JsInterop.importAll v25 │
00:02:05 #2598 [verbose] > │ let v27 : string = "v26.createHash($0)" │
00:02:05 #2599 [verbose] > │ let v28 : string = "sha256" │
00:02:05 #2600 [verbose] > │ let v29 : obj = Fable.Core.JsInterop.emitJsExpr v28 v27 │
00:02:05 #2601 [verbose] > │ let v30 : string = "$0.update($1, 'utf8')" │
00:02:05 #2602 [verbose] > │ let v31 : obj = Fable.Core.JsInterop.emitJsExpr struct (v29, v8) v30 │
00:02:05 #2603 [verbose] > │ let v32 : string = "$0.digest($1)" │
00:02:05 #2604 [verbose] > │ let v33 : string = "hex" │
00:02:05 #2605 [verbose] > │ let v34 : string = Fable.Core.JsInterop.emitJsExpr struct (v31, v33) v32 │
00:02:05 #2606 [verbose] > │ v34 │
00:02:05 #2607 [verbose] > │ #endif │
00:02:05 #2608 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:05 #2609 [verbose] > │ let v35 : string = Unchecked.defaultof<string> │
00:02:05 #2610 [verbose] > │ v35 │
00:02:05 #2611 [verbose] > │ #endif │
00:02:05 #2612 [verbose] > │ |> fun x -> _v0 <- Some x │
00:02:05 #2613 [verbose] > │ let v36 : string = _v0.Value │
00:02:05 #2614 [verbose] > │ let v37 : string = $"%A{v36}" │
00:02:05 #2615 [verbose] > │ System.Console.WriteLine v37 │
00:02:05 #2616 [verbose] > │ let v39 : bool = v36 = │
00:02:05 #2617 [verbose] > │ "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068" │
00:02:05 #2618 [verbose] > │ let v41 : bool = │
00:02:05 #2619 [verbose] > │ if v39 then │
00:02:05 #2620 [verbose] > │ true │
00:02:05 #2621 [verbose] > │ else │
00:02:05 #2622 [verbose] > │ method2(v39) │
00:02:05 #2623 [verbose] > │ let v42 : string = │
00:02:05 #2624 [verbose] > │ "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068" │
00:02:05 #2625 [verbose] > │ let v43 : string = $"__expect / actual: %A{v36} / expected: %A{v42}" │
00:02:05 #2626 [verbose] > │ let v44 : bool = v41 = false │
00:02:05 #2627 [verbose] > │ if v44 then │
00:02:05 #2628 [verbose] > │ failwith<unit> v43 │
00:02:05 #2629 [verbose] > │ method0() │
00:02:05 #2630 [verbose] > │ │
00:02:05 #2631 [verbose] > │ "36a9e7f1c95b82ffb99743e0c5c4ce95d83c9a430aac59f84ef3cbfab6145068" │
00:02:05 #2632 [verbose] > │ │
00:02:05 #2633 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 #2634 [verbose] >
00:02:05 #2635 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:05 #2636 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:05 #2637 [verbose] > │ ## main │
00:02:05 #2638 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:05 #2639 [verbose] >
00:02:05 #2640 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:05 #2641 [verbose] > inl main () =
00:02:05 #2642 [verbose] > $"let hash_text x = !hash_text x" : ()
00:02:05 #2643 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8c504e1ba817402c5f6afec88963331159a9277143945416e38e7c6500e605fb\main.spi
00:02:05 #2644 [verbose] >
00:02:05 #2645 [verbose] > ╭─[ 322.08ms - stdout ]────────────────────────────────────────────────────────╮
00:02:05 #2646 [verbose] > │ type ICryptoCreateHash = abstract createHash: x: string -> obj │
00:02:05 #2647 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:05 #2648 [verbose] > │ let rec method0 (v0 : int32, v1 : Mut0) : bool = │
00:02:05 #2649 [verbose] > │ let v2 : int32 = v1.l0 │
00:02:05 #2650 [verbose] > │ let v3 : bool = v2 < v0 │
00:02:05 #2651 [verbose] > │ v3 │
00:02:05 #2652 [verbose] > │ and closure0 () (v0 : string) : string = │
00:02:05 #2653 [verbose] > │ let v1 : string option = None │
00:02:05 #2654 [verbose] > │ let mutable _v1 = v1 │
00:02:05 #2655 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:05 #2656 [verbose] > │ let v2 : string = null |> unbox<string> │
00:02:05 #2657 [verbose] > │ v2 │
00:02:05 #2658 [verbose] > │ #endif │
00:02:05 #2659 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:05 #2660 [verbose] > │ let v3 : string = null |> unbox<string> │
00:02:05 #2661 [verbose] > │ v3 │
00:02:05 #2662 [verbose] > │ #endif │
00:02:05 #2663 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:05 #2664 [verbose] > │ let v4 : string = null |> unbox<string> │
00:02:05 #2665 [verbose] > │ v4 │
00:02:05 #2666 [verbose] > │ #endif │
00:02:05 #2667 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:05 #2668 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:05 #2669 [verbose] > │ let v5 : (unit -> System.Security.Cryptography.SHA256) = │
00:02:05 #2670 [verbose] > │ System.Security.Cryptography.SHA256.Create │
00:02:05 #2671 [verbose] > │ let v6 : System.Security.Cryptography.SHA256 = v5 () │
00:02:05 #2672 [verbose] > │ use v6 = v6 │
00:02:05 #2673 [verbose] > │ let v7 : System.Security.Cryptography.SHA256 = v6 │
00:02:05 #2674 [verbose] > │ let v8 : (string -> (uint8 [])) = System.Text.Encoding.UTF8.GetBytes │
00:02:05 #2675 [verbose] > │ let v9 : (uint8 []) = v8 v0 │
00:02:05 #2676 [verbose] > │ let v10 : ((uint8 []) -> (uint8 [])) = v7.ComputeHash │
00:02:05 #2677 [verbose] > │ let v11 : (uint8 []) = v10 v9 │
00:02:05 #2678 [verbose] > │ let v12 : int32 = v11.Length │
00:02:05 #2679 [verbose] > │ let v13 : (string []) = Array.zeroCreate<string> (v12) │
00:02:05 #2680 [verbose] > │ let v14 : Mut0 = {l0 = 0} : Mut0 │
00:02:05 #2681 [verbose] > │ while method0(v12, v14) do │
00:02:05 #2682 [verbose] > │ let v16 : int32 = v14.l0 │
00:02:05 #2683 [verbose] > │ let v17 : uint8 = v11.[int v16] │
00:02:05 #2684 [verbose] > │ let v18 : (string -> string) = v17.ToString │
00:02:05 #2685 [verbose] > │ let v19 : string = "x2" │
00:02:05 #2686 [verbose] > │ let v20 : string = v18 v19 │
00:02:05 #2687 [verbose] > │ v13.[int v16] <- v20 │
00:02:05 #2688 [verbose] > │ let v21 : int32 = v16 + 1 │
00:02:05 #2689 [verbose] > │ v14.l0 <- v21 │
00:02:05 #2690 [verbose] > │ () │
00:02:05 #2691 [verbose] > │ let v22 : string seq = seq { for i = 0 to v13.Length - 1 do yield v13.[ │
00:02:05 #2692 [verbose] > │ i] } │
00:02:05 #2693 [verbose] > │ let v23 : string = "" │
00:02:05 #2694 [verbose] > │ let v24 : string = v22 |> String.concat v23 │
00:02:05 #2695 [verbose] > │ v24 │
00:02:05 #2696 [verbose] > │ #endif │
00:02:05 #2697 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:05 #2698 [verbose] > │ let v25 : string = "crypto" │
00:02:05 #2699 [verbose] > │ let v26 : ICryptoCreateHash = Fable.Core.JsInterop.importAll v25 │
00:02:05 #2700 [verbose] > │ let v27 : string = "v26.createHash($0)" │
00:02:05 #2701 [verbose] > │ let v28 : string = "sha256" │
00:02:05 #2702 [verbose] > │ let v29 : obj = Fable.Core.JsInterop.emitJsExpr v28 v27 │
00:02:05 #2703 [verbose] > │ let v30 : string = "$0.update($1, 'utf8')" │
00:02:05 #2704 [verbose] > │ let v31 : obj = Fable.Core.JsInterop.emitJsExpr struct (v29, v0) v30 │
00:02:05 #2705 [verbose] > │ let v32 : string = "$0.digest($1)" │
00:02:05 #2706 [verbose] > │ let v33 : string = "hex" │
00:02:05 #2707 [verbose] > │ let v34 : string = Fable.Core.JsInterop.emitJsExpr struct (v31, v33) v32 │
00:02:05 #2708 [verbose] > │ v34 │
00:02:05 #2709 [verbose] > │ #endif │
00:02:05 #2710 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:05 #2711 [verbose] > │ let v35 : string = Unchecked.defaultof<string> │
00:02:05 #2712 [verbose] > │ v35 │
00:02:05 #2713 [verbose] > │ #endif │
00:02:05 #2714 [verbose] > │ |> fun x -> _v1 <- Some x │
00:02:05 #2715 [verbose] > │ let v36 : string = _v1.Value │
00:02:05 #2716 [verbose] > │ v36 │
00:02:05 #2717 [verbose] > │ let v0 : (string -> string) = closure0() │
00:02:05 #2718 [verbose] > │ let hash_text x = v0 x │
00:02:05 #2719 [verbose] > │ () │
00:02:05 #2720 [verbose] > │ │
00:02:05 #2721 [verbose] > │ │
00:02:05 #2722 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:10 #2723 [verbose] > [NbConvertApp] Converting notebook crypto.dib.ipynb to html
00:02:10 #2724 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:10 #2725 [verbose] > validate(nb)
00:02:10 #2726 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:10 #2727 [verbose] > return _pygments_highlight(
00:02:11 #2728 [verbose] > [NbConvertApp] Writing 299271 bytes to crypto.dib.html
00:02:12 #2729 [debug] executeAsync / exitCode: 0 / output.Length: 29944
00:02:12 #2730 [debug] main / executeCommand / exitCode: 0
00:02:12 #2731 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 common.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:02:15 #2732 [verbose] >
00:02:15 #2733 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:15 #2734 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:15 #2735 [verbose] > │ # common │
00:02:15 #2736 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:15 #2737 [verbose] >
00:02:15 #2738 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:15 #2739 [verbose] > // // test
00:02:15 #2740 [verbose] >
00:02:15 #2741 [verbose] > open testing
00:02:19 #2742 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:02:20 #2743 [verbose] >
00:02:20 #2744 [verbose] > ╭─[ 5.02s - stdout ]───────────────────────────────────────────────────────────╮
00:02:20 #2745 [verbose] > │ () │
00:02:20 #2746 [verbose] > │ │
00:02:20 #2747 [verbose] > │ │
00:02:20 #2748 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:20 #2749 [verbose] >
00:02:20 #2750 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:20 #2751 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:20 #2752 [verbose] > │ ## prototype │
00:02:20 #2753 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:20 #2754 [verbose] >
00:02:20 #2755 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:20 #2756 [verbose] > prototype (~:>) r : forall t. t -> r
00:02:21 #2757 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d4ce264de5d991ae9ccc997ddcda021381f27d8b2b79c2e1943d4bca97dfe7d3\main.spi
00:02:21 #2758 [verbose] >
00:02:21 #2759 [verbose] > ╭─[ 228.68ms - stdout ]────────────────────────────────────────────────────────╮
00:02:21 #2760 [verbose] > │ () │
00:02:21 #2761 [verbose] > │ │
00:02:21 #2762 [verbose] > │ │
00:02:21 #2763 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:21 #2764 [verbose] >
00:02:21 #2765 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:21 #2766 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:21 #2767 [verbose] > │ ## run_target │
00:02:21 #2768 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:21 #2769 [verbose] >
00:02:21 #2770 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:21 #2771 [verbose] > // // test
00:02:21 #2772 [verbose] >
00:02:21 #2773 [verbose] > run_target function
00:02:21 #2774 [verbose] > | Fsharp (Native) => fun () => $"1uy"
00:02:21 #2775 [verbose] > | _ => fun () => $"2uy"
00:02:21 #2776 [verbose] > |> _assert_eq 1u8
00:02:21 #2777 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e0f7acc8ac8483618bb8a0515b9bbdedfbedd7ff8fefe713883a0de12e372610\main.spi
00:02:22 #2778 [verbose] >
00:02:22 #2779 [verbose] > ╭─[ 1.31s - stdout ]───────────────────────────────────────────────────────────╮
00:02:22 #2780 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:22 #2781 [verbose] > │ v0 │
00:02:22 #2782 [verbose] > │ and method0 () : unit = │
00:02:22 #2783 [verbose] > │ let v0 : uint8 option = None │
00:02:22 #2784 [verbose] > │ let mutable _v0 = v0 │
00:02:22 #2785 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:22 #2786 [verbose] > │ let v1 : uint8 = 2uy │
00:02:22 #2787 [verbose] > │ v1 │
00:02:22 #2788 [verbose] > │ #endif │
00:02:22 #2789 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:22 #2790 [verbose] > │ let v2 : uint8 = 2uy │
00:02:22 #2791 [verbose] > │ v2 │
00:02:22 #2792 [verbose] > │ #endif │
00:02:22 #2793 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:22 #2794 [verbose] > │ let v3 : uint8 = 2uy │
00:02:22 #2795 [verbose] > │ v3 │
00:02:22 #2796 [verbose] > │ #endif │
00:02:22 #2797 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:22 #2798 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:22 #2799 [verbose] > │ let v4 : uint8 = 1uy │
00:02:22 #2800 [verbose] > │ v4 │
00:02:22 #2801 [verbose] > │ #endif │
00:02:22 #2802 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:22 #2803 [verbose] > │ let v5 : uint8 = 2uy │
00:02:22 #2804 [verbose] > │ v5 │
00:02:22 #2805 [verbose] > │ #endif │
00:02:22 #2806 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:22 #2807 [verbose] > │ let v6 : uint8 = Unchecked.defaultof<uint8> │
00:02:22 #2808 [verbose] > │ v6 │
00:02:22 #2809 [verbose] > │ #endif │
00:02:22 #2810 [verbose] > │ |> fun x -> _v0 <- Some x │
00:02:22 #2811 [verbose] > │ let v7 : uint8 = _v0.Value │
00:02:22 #2812 [verbose] > │ let v8 : string = $"%A{v7}" │
00:02:22 #2813 [verbose] > │ System.Console.WriteLine v8 │
00:02:22 #2814 [verbose] > │ let v9 : bool = v7 = 1uy │
00:02:22 #2815 [verbose] > │ let v11 : bool = │
00:02:22 #2816 [verbose] > │ if v9 then │
00:02:22 #2817 [verbose] > │ true │
00:02:22 #2818 [verbose] > │ else │
00:02:22 #2819 [verbose] > │ method1(v9) │
00:02:22 #2820 [verbose] > │ let v12 : string = $"__expect / actual: %A{v7} / expected: %A{1uy}" │
00:02:22 #2821 [verbose] > │ let v13 : bool = v11 = false │
00:02:22 #2822 [verbose] > │ if v13 then │
00:02:22 #2823 [verbose] > │ failwith<unit> v12 │
00:02:22 #2824 [verbose] > │ method0() │
00:02:22 #2825 [verbose] > │ │
00:02:22 #2826 [verbose] > │ 1uy │
00:02:22 #2827 [verbose] > │ │
00:02:22 #2828 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:22 #2829 [verbose] >
00:02:22 #2830 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:22 #2831 [verbose] > // // test
00:02:22 #2832 [verbose] > // // rust=
00:02:22 #2833 [verbose] >
00:02:22 #2834 [verbose] > run_target function
00:02:22 #2835 [verbose] > | Rust (Native) => fun () => $"1uy"
00:02:22 #2836 [verbose] > | _ => fun () => $"2uy"
00:02:22 #2837 [verbose] > |> (=) 1u8
00:02:22 #2838 [verbose] > |> _assert_eq true
00:02:22 #2839 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0f5cc01d14ee8735f2719280fb33b2e6c8c3c3ccc3d669cc71019a8309e3a118\main.spi
00:02:28 #2840 [verbose] >
00:02:28 #2841 [verbose] > ╭─[ 5.94s - return value ]─────────────────────────────────────────────────────╮
00:02:28 #2842 [verbose] > │ .rs output: │
00:02:28 #2843 [verbose] > │ true │
00:02:28 #2844 [verbose] > │ │
00:02:28 #2845 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:28 #2846 [verbose] >
00:02:28 #2847 [verbose] > ╭─[ 5.95s - stdout ]───────────────────────────────────────────────────────────╮
00:02:28 #2848 [verbose] > │ │
00:02:28 #2849 [verbose] > │ .fsx: │
00:02:28 #2850 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:28 #2851 [verbose] > │ v0 │
00:02:28 #2852 [verbose] > │ and method0 () : unit = │
00:02:28 #2853 [verbose] > │ let v0 : uint8 option = None │
00:02:28 #2854 [verbose] > │ let mutable _v0 = v0 │
00:02:28 #2855 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:28 #2856 [verbose] > │ let v1 : uint8 = 1uy │
00:02:28 #2857 [verbose] > │ v1 │
00:02:28 #2858 [verbose] > │ #endif │
00:02:28 #2859 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:28 #2860 [verbose] > │ let v2 : uint8 = 2uy │
00:02:28 #2861 [verbose] > │ v2 │
00:02:28 #2862 [verbose] > │ #endif │
00:02:28 #2863 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:28 #2864 [verbose] > │ let v3 : uint8 = 2uy │
00:02:28 #2865 [verbose] > │ v3 │
00:02:28 #2866 [verbose] > │ #endif │
00:02:28 #2867 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:28 #2868 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:28 #2869 [verbose] > │ let v4 : uint8 = 2uy │
00:02:28 #2870 [verbose] > │ v4 │
00:02:28 #2871 [verbose] > │ #endif │
00:02:28 #2872 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:28 #2873 [verbose] > │ let v5 : uint8 = 2uy │
00:02:28 #2874 [verbose] > │ v5 │
00:02:28 #2875 [verbose] > │ #endif │
00:02:28 #2876 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:28 #2877 [verbose] > │ let v6 : uint8 = Unchecked.defaultof<uint8> │
00:02:28 #2878 [verbose] > │ v6 │
00:02:28 #2879 [verbose] > │ #endif │
00:02:28 #2880 [verbose] > │ |> fun x -> _v0 <- Some x │
00:02:28 #2881 [verbose] > │ let v7 : uint8 = _v0.Value │
00:02:28 #2882 [verbose] > │ let v8 : bool = 1uy = v7 │
00:02:28 #2883 [verbose] > │ let v9 : string = $"%A{v8}" │
00:02:28 #2884 [verbose] > │ System.Console.WriteLine v9 │
00:02:28 #2885 [verbose] > │ let v11 : bool = │
00:02:28 #2886 [verbose] > │ if v8 then │
00:02:28 #2887 [verbose] > │ true │
00:02:28 #2888 [verbose] > │ else │
00:02:28 #2889 [verbose] > │ method1(v8) │
00:02:28 #2890 [verbose] > │ let v12 : string = $"__expect / actual: %A{v8} / expected: %A{true}" │
00:02:28 #2891 [verbose] > │ let v13 : bool = v11 = false │
00:02:28 #2892 [verbose] > │ if v13 then │
00:02:28 #2893 [verbose] > │ failwith<unit> v12 │
00:02:28 #2894 [verbose] > │ method0() │
00:02:28 #2895 [verbose] > │ │
00:02:28 #2896 [verbose] > │ │
00:02:28 #2897 [verbose] > │ .rs: │
00:02:28 #2898 [verbose] > │ #![allow(dead_code,)] │
00:02:28 #2899 [verbose] > │ #![allow(non_camel_case_types,)] │
00:02:28 #2900 [verbose] > │ #![allow(non_snake_case,)] │
00:02:28 #2901 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:02:28 #2902 [verbose] > │ #![allow(unreachable_code,)] │
00:02:28 #2903 [verbose] > │ #![allow(unused_attributes,)] │
00:02:28 #2904 [verbose] > │ #![allow(unused_imports,)] │
00:02:28 #2905 [verbose] > │ #![allow(unused_macros,)] │
00:02:28 #2906 [verbose] > │ #![allow(unused_parens,)] │
00:02:28 #2907 [verbose] > │ #![allow(unused_variables,)] │
00:02:28 #2908 [verbose] > │ mod module_ccfa04bf { │
00:02:28 #2909 [verbose] > │ pub mod Spiral_eval { │
00:02:28 #2910 [verbose] > │ use super::*; │
00:02:28 #2911 [verbose] > │ use fable_library_rust::Native_::MutCell; │
00:02:28 #2912 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:02:28 #2913 [verbose] > │ use fable_library_rust::Option_::getValue; │
00:02:28 #2914 [verbose] > │ use fable_library_rust::String_::printfn; │
00:02:28 #2915 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:02:28 #2916 [verbose] > │ use fable_library_rust::String_::string; │
00:02:28 #2917 [verbose] > │ pub fn method1(v0: bool) -> bool { v0 } │
00:02:28 #2918 [verbose] > │ pub fn method0() { │
00:02:28 #2919 [verbose] > │ let _v0: MutCell<Option<u8>> = MutCell::new(None::<u8>); │
00:02:28 #2920 [verbose] > │ _v0.set(Some(1_u8)); │
00:02:28 #2921 [verbose] > │ { │
00:02:28 #2922 [verbose] > │ let v8: bool = 1_u8 == getValue(_v0.get().clone()); │
00:02:28 #2923 [verbose] > │ let v9: string = sprintf!("{:?}", v8); │
00:02:28 #2924 [verbose] > │ printfn!("{0}", v9); │
00:02:28 #2925 [verbose] > │ if (if v8 { true } else { Spiral_eval::method1(v8) }) == │
00:02:28 #2926 [verbose] > │ false │
00:02:28 #2927 [verbose] > │ { │
00:02:28 #2928 [verbose] > │ panic!("{}", │
00:02:28 #2929 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: │
00:02:28 #2930 [verbose] > │ {:?}", v8, true)); │
00:02:28 #2931 [verbose] > │ } │
00:02:28 #2932 [verbose] > │ } │
00:02:28 #2933 [verbose] > │ } │
00:02:28 #2934 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:02:28 #2935 [verbose] > │ } │
00:02:28 #2936 [verbose] > │ } │
00:02:28 #2937 [verbose] > │ pub use module_ccfa04bf::*; │
00:02:28 #2938 [verbose] > │ │
00:02:28 #2939 [verbose] > │ │
00:02:28 #2940 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:28 #2941 [verbose] >
00:02:28 #2942 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:28 #2943 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:28 #2944 [verbose] > │ ## upcast │
00:02:28 #2945 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:28 #2946 [verbose] >
00:02:28 #2947 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:28 #2948 [verbose] > inl upcast forall t u. (x : t) : u =
00:02:28 #2949 [verbose] > $'!x :> `u '
00:02:28 #2950 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8a1e85b09af19a6544f4a41c0a4883d6a52e3cc22bbc448ca8954d7b6b4f9fe1\main.spi
00:02:28 #2951 [verbose] >
00:02:28 #2952 [verbose] > ╭─[ 302.89ms - stdout ]────────────────────────────────────────────────────────╮
00:02:28 #2953 [verbose] > │ () │
00:02:28 #2954 [verbose] > │ │
00:02:28 #2955 [verbose] > │ │
00:02:28 #2956 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:28 #2957 [verbose] >
00:02:28 #2958 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:28 #2959 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:28 #2960 [verbose] > │ ## downcast │
00:02:28 #2961 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:28 #2962 [verbose] >
00:02:28 #2963 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:28 #2964 [verbose] > inl downcast forall t u. (x : t) : u =
00:02:28 #2965 [verbose] > $'!x :?> `u '
00:02:29 #2966 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5e42e07913caabd21c8d304ac579828b1021b789c73eb5fe65e0bb1b04e17c39\main.spi
00:02:29 #2967 [verbose] >
00:02:29 #2968 [verbose] > ╭─[ 298.12ms - stdout ]────────────────────────────────────────────────────────╮
00:02:29 #2969 [verbose] > │ () │
00:02:29 #2970 [verbose] > │ │
00:02:29 #2971 [verbose] > │ │
00:02:29 #2972 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 #2973 [verbose] >
00:02:29 #2974 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:29 #2975 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:29 #2976 [verbose] > │ ## unativeint │
00:02:29 #2977 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 #2978 [verbose] >
00:02:29 #2979 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:29 #2980 [verbose] > nominal unativeint = $"unativeint"
00:02:29 #2981 [verbose] >
00:02:29 #2982 [verbose] > inl unativeint forall t {int}. (n : t) : unativeint =
00:02:29 #2983 [verbose] > $"unativeint !n"
00:02:29 #2984 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f49349566da406a97a57732f8800f10dbc511d8e1c993f74d27452987c28ff14\main.spi
00:02:29 #2985 [verbose] >
00:02:29 #2986 [verbose] > ╭─[ 229.56ms - stdout ]────────────────────────────────────────────────────────╮
00:02:29 #2987 [verbose] > │ () │
00:02:29 #2988 [verbose] > │ │
00:02:29 #2989 [verbose] > │ │
00:02:29 #2990 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 #2991 [verbose] >
00:02:29 #2992 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:29 #2993 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:29 #2994 [verbose] > │ ## pair │
00:02:29 #2995 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 #2996 [verbose] >
00:02:29 #2997 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:29 #2998 [verbose] > // // test
00:02:29 #2999 [verbose] >
00:02:29 #3000 [verbose] > pair 1i32 2i32
00:02:29 #3001 [verbose] > |> _assert_eq (1, 2)
00:02:29 #3002 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2765392e233ebba2a40f4f93e49269fb9c2d394045f72a7443f57997450ffb37\main.spi
00:02:29 #3003 [verbose] >
00:02:29 #3004 [verbose] > ╭─[ 362.97ms - stdout ]────────────────────────────────────────────────────────╮
00:02:29 #3005 [verbose] > │ let rec method0 () : unit = │
00:02:29 #3006 [verbose] > │ let v0 : string = $"%A{struct (1, 2)}" │
00:02:29 #3007 [verbose] > │ System.Console.WriteLine v0 │
00:02:29 #3008 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (1, 2)} / expected: │
00:02:29 #3009 [verbose] > │ %A{struct (1, 2)}" │
00:02:29 #3010 [verbose] > │ () │
00:02:29 #3011 [verbose] > │ method0() │
00:02:29 #3012 [verbose] > │ │
00:02:29 #3013 [verbose] > │ struct (1, 2) │
00:02:29 #3014 [verbose] > │ │
00:02:29 #3015 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 #3016 [verbose] >
00:02:29 #3017 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:29 #3018 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:29 #3019 [verbose] > │ ## new_pair │
00:02:29 #3020 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:29 #3021 [verbose] >
00:02:29 #3022 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:29 #3023 [verbose] > inl new_pair forall a b. (a : a) (b : b) : pair a b =
00:02:29 #3024 [verbose] > $"!a, !b"
00:02:30 #3025 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\38edc181204cdfd7ee23c5f3d67e80322188d8dbe3adc76d8c40591a9b49b8a6\main.spi
00:02:30 #3026 [verbose] >
00:02:30 #3027 [verbose] > ╭─[ 631.69ms - stdout ]────────────────────────────────────────────────────────╮
00:02:30 #3028 [verbose] > │ () │
00:02:30 #3029 [verbose] > │ │
00:02:30 #3030 [verbose] > │ │
00:02:30 #3031 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 #3032 [verbose] >
00:02:30 #3033 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:30 #3034 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:30 #3035 [verbose] > │ ## from_pair │
00:02:30 #3036 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 #3037 [verbose] >
00:02:30 #3038 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:30 #3039 [verbose] > inl from_pair forall a b. (pair : pair a b) : a * b =
00:02:30 #3040 [verbose] > $"let (a, b) = !pair"
00:02:30 #3041 [verbose] > $"a", $"b"
00:02:30 #3042 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4d483c3edef600ea6f436c45e067dbe44c5f4f76414864f4186f25141278e295\main.spi
00:02:30 #3043 [verbose] >
00:02:30 #3044 [verbose] > ╭─[ 501.53ms - stdout ]────────────────────────────────────────────────────────╮
00:02:30 #3045 [verbose] > │ () │
00:02:30 #3046 [verbose] > │ │
00:02:30 #3047 [verbose] > │ │
00:02:30 #3048 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:30 #3049 [verbose] >
00:02:30 #3050 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:30 #3051 [verbose] > // // test
00:02:30 #3052 [verbose] >
00:02:30 #3053 [verbose] > new_pair "a" 1i32
00:02:30 #3054 [verbose] > |> from_pair
00:02:30 #3055 [verbose] > |> _assert_eq ("a", 1i32)
00:02:31 #3056 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c3c0b5768b6ebef82a17a2f75131e7a2bab078d04833ce3b79bdd8bfce58de32\main.spi
00:02:31 #3057 [verbose] >
00:02:31 #3058 [verbose] > ╭─[ 707.34ms - stdout ]────────────────────────────────────────────────────────╮
00:02:31 #3059 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:02:31 #3060 [verbose] > │ v0 │
00:02:31 #3061 [verbose] > │ and method0 () : unit = │
00:02:31 #3062 [verbose] > │ let v0 : string = "a" │
00:02:31 #3063 [verbose] > │ let v1 : (string * int32) = v0, 1 │
00:02:31 #3064 [verbose] > │ let (a, b) = v1 │
00:02:31 #3065 [verbose] > │ let v2 : string = a │
00:02:31 #3066 [verbose] > │ let v3 : int32 = b │
00:02:31 #3067 [verbose] > │ let v4 : string = $"%A{struct (v2, v3)}" │
00:02:31 #3068 [verbose] > │ System.Console.WriteLine v4 │
00:02:31 #3069 [verbose] > │ let v5 : bool = v2 = "a" │
00:02:31 #3070 [verbose] > │ let v7 : bool = │
00:02:31 #3071 [verbose] > │ if v5 then │
00:02:31 #3072 [verbose] > │ let v6 : bool = v3 = 1 │
00:02:31 #3073 [verbose] > │ v6 │
00:02:31 #3074 [verbose] > │ else │
00:02:31 #3075 [verbose] > │ false │
00:02:31 #3076 [verbose] > │ let v9 : bool = │
00:02:31 #3077 [verbose] > │ if v7 then │
00:02:31 #3078 [verbose] > │ true │
00:02:31 #3079 [verbose] > │ else │
00:02:31 #3080 [verbose] > │ method1(v7) │
00:02:31 #3081 [verbose] > │ let v10 : string = $"__expect / actual: %A{struct (v2, v3)} / expected: │
00:02:31 #3082 [verbose] > │ %A{struct (v0, 1)}" │
00:02:31 #3083 [verbose] > │ let v11 : bool = v9 = false │
00:02:31 #3084 [verbose] > │ if v11 then │
00:02:31 #3085 [verbose] > │ failwith<unit> v10 │
00:02:31 #3086 [verbose] > │ method0() │
00:02:31 #3087 [verbose] > │ │
00:02:31 #3088 [verbose] > │ struct ("a", 1) │
00:02:31 #3089 [verbose] > │ │
00:02:31 #3090 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:31 #3091 [verbose] >
00:02:31 #3092 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:31 #3093 [verbose] > // // test
00:02:31 #3094 [verbose] >
00:02:31 #3095 [verbose] > new_pair "a" (new_pair 1i32 "b")
00:02:31 #3096 [verbose] > |> from_pair
00:02:31 #3097 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6eb30880fb87428015598c518cfb7f82d109bea28f8496188496652902bcfc60\main.spi
00:02:32 #3098 [verbose] >
00:02:32 #3099 [verbose] > ╭─[ 752.01ms - return value ]──────────────────────────────────────────────────╮
00:02:32 #3100 [verbose] > │ <details open="open" class="dni-treeview"><summary><span │
00:02:32 #3101 [verbose] > │ class="dni-code-hint"><code>(a, (1, │
00:02:32 #3102 [verbose] > │ b))</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><t │
00:02:32 #3103 [verbose] > │ d>Item1</td><td><div │
00:02:32 #3104 [verbose] > │ class="dni-plaintext"><pre>a</pre></div></td></tr><tr><td>Item2</td><td><det │
00:02:32 #3105 [verbose] > │ ails class="dni-treeview"><summary><span class="dni-code-hint"><code>(1, │
00:02:32 #3106 [verbose] > │ b)</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td │
00:02:32 #3107 [verbose] > │ >Item1</td><td><div │
00:02:32 #3108 [verbose] > │ class="dni-plaintext"><pre>1</pre></div></td></tr><tr><td>Item2</td><td><div │
00:02:32 #3109 [verbose] > │ class="dni-plaintext"><pre>b</pre></div></td></tr></tbody></table></div></de │
00:02:32 #3110 [verbose] > │ tails></td></tr></tbody></table></div></details><style> │
00:02:32 #3111 [verbose] > │ .dni-code-hint { │
00:02:32 #3112 [verbose] > │ font-style: italic; │
00:02:32 #3113 [verbose] > │ overflow: hidden; │
00:02:32 #3114 [verbose] > │ white-space: nowrap; │
00:02:32 #3115 [verbose] > │ } │
00:02:32 #3116 [verbose] > │ .dni-treev... │
00:02:32 #3117 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 #3118 [verbose] >
00:02:32 #3119 [verbose] > ╭─[ 775.31ms - stdout ]────────────────────────────────────────────────────────╮
00:02:32 #3120 [verbose] > │ let rec method0 () : struct (string * (int32 * string)) = │
00:02:32 #3121 [verbose] > │ let v0 : string = "b" │
00:02:32 #3122 [verbose] > │ let v1 : (int32 * string) = 1, v0 │
00:02:32 #3123 [verbose] > │ let v2 : string = "a" │
00:02:32 #3124 [verbose] > │ let v3 : (string * (int32 * string)) = v2, v1 │
00:02:32 #3125 [verbose] > │ let (a, b) = v3 │
00:02:32 #3126 [verbose] > │ let v4 : string = a │
00:02:32 #3127 [verbose] > │ let v5 : (int32 * string) = b │
00:02:32 #3128 [verbose] > │ struct (v4, v5) │
00:02:32 #3129 [verbose] > │ method0() │
00:02:32 #3130 [verbose] > │ │
00:02:32 #3131 [verbose] > │ │
00:02:32 #3132 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 #3133 [verbose] >
00:02:32 #3134 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:32 #3135 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:32 #3136 [verbose] > │ ## memoize │
00:02:32 #3137 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 #3138 [verbose] >
00:02:32 #3139 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:32 #3140 [verbose] > nominal lazy t = $'Lazy<`t>'
00:02:32 #3141 [verbose] >
00:02:32 #3142 [verbose] > inl memoize forall t. (fn : () -> t) : () -> t =
00:02:32 #3143 [verbose] > inl fn = join fn
00:02:32 #3144 [verbose] > inl result : lazy t = $'lazy !fn ()'
00:02:32 #3145 [verbose] > fun () => $'!result.Value'
00:02:32 #3146 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9018a80b5a973270ceb771da9b481d1dda2de711955bb635ff71e75a00d0423e\main.spi
00:02:32 #3147 [verbose] >
00:02:32 #3148 [verbose] > ╭─[ 418.10ms - stdout ]────────────────────────────────────────────────────────╮
00:02:32 #3149 [verbose] > │ () │
00:02:32 #3150 [verbose] > │ │
00:02:32 #3151 [verbose] > │ │
00:02:32 #3152 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:32 #3153 [verbose] >
00:02:32 #3154 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:32 #3155 [verbose] > // // test
00:02:32 #3156 [verbose] >
00:02:32 #3157 [verbose] > inl count = mut 0i32
00:02:32 #3158 [verbose] > inl add =
00:02:32 #3159 [verbose] > fun () => count <- *count + 1
00:02:32 #3160 [verbose] > |> memoize
00:02:32 #3161 [verbose] >
00:02:32 #3162 [verbose] > add ()
00:02:32 #3163 [verbose] > add ()
00:02:32 #3164 [verbose] > add ()
00:02:32 #3165 [verbose] >
00:02:32 #3166 [verbose] > *count
00:02:32 #3167 [verbose] > |> _assert_eq 1
00:02:33 #3168 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bbe41b5b6e1648fe927da46dd43ea7827965e76d9bda8baccca912afe1677137\main.spi
00:02:34 #3169 [verbose] >
00:02:34 #3170 [verbose] > ╭─[ 1.34s - stdout ]───────────────────────────────────────────────────────────╮
00:02:34 #3171 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:34 #3172 [verbose] > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:34 #3173 [verbose] > │ let v1 : int32 = v0.l0 │
00:02:34 #3174 [verbose] > │ let v2 : int32 = v1 + 1 │
00:02:34 #3175 [verbose] > │ v0.l0 <- v2 │
00:02:34 #3176 [verbose] > │ () │
00:02:34 #3177 [verbose] > │ and method1 (v0 : Mut0) : (unit -> unit) = │
00:02:34 #3178 [verbose] > │ closure0(v0) │
00:02:34 #3179 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:34 #3180 [verbose] > │ v0 │
00:02:34 #3181 [verbose] > │ and method0 () : unit = │
00:02:34 #3182 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:34 #3183 [verbose] > │ let v1 : (unit -> unit) = method1(v0) │
00:02:34 #3184 [verbose] > │ let v2 : Lazy<unit> = lazy v1 () │
00:02:34 #3185 [verbose] > │ v2.Value │
00:02:34 #3186 [verbose] > │ v2.Value │
00:02:34 #3187 [verbose] > │ v2.Value │
00:02:34 #3188 [verbose] > │ let v3 : int32 = v0.l0 │
00:02:34 #3189 [verbose] > │ let v4 : string = $"%A{v3}" │
00:02:34 #3190 [verbose] > │ System.Console.WriteLine v4 │
00:02:34 #3191 [verbose] > │ let v5 : bool = v3 = 1 │
00:02:34 #3192 [verbose] > │ let v7 : bool = │
00:02:34 #3193 [verbose] > │ if v5 then │
00:02:34 #3194 [verbose] > │ true │
00:02:34 #3195 [verbose] > │ else │
00:02:34 #3196 [verbose] > │ method2(v5) │
00:02:34 #3197 [verbose] > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{1}" │
00:02:34 #3198 [verbose] > │ let v9 : bool = v7 = false │
00:02:34 #3199 [verbose] > │ if v9 then │
00:02:34 #3200 [verbose] > │ failwith<unit> v8 │
00:02:34 #3201 [verbose] > │ method0() │
00:02:34 #3202 [verbose] > │ │
00:02:34 #3203 [verbose] > │ 1 │
00:02:34 #3204 [verbose] > │ │
00:02:34 #3205 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #3206 [verbose] >
00:02:34 #3207 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:34 #3208 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:34 #3209 [verbose] > │ ## to_any │
00:02:34 #3210 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #3211 [verbose] >
00:02:34 #3212 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 #3213 [verbose] > inl to_any forall t. (obj : t) : any =
00:02:34 #3214 [verbose] > $"!obj"
00:02:34 #3215 [verbose] >
00:02:34 #3216 [verbose] > instance (~:>) any = to_any
00:02:34 #3217 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b1abdd97946667b9e118a8ac731db756cf533d1cbd173092b0f60bdfeb15517a\main.spi
00:02:34 #3218 [verbose] >
00:02:34 #3219 [verbose] > ╭─[ 316.66ms - stdout ]────────────────────────────────────────────────────────╮
00:02:34 #3220 [verbose] > │ () │
00:02:34 #3221 [verbose] > │ │
00:02:34 #3222 [verbose] > │ │
00:02:34 #3223 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #3224 [verbose] >
00:02:34 #3225 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:34 #3226 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:34 #3227 [verbose] > │ ## unbox │
00:02:34 #3228 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #3229 [verbose] >
00:02:34 #3230 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 #3231 [verbose] > inl unbox forall t u. (x : t) : u =
00:02:34 #3232 [verbose] > $"!x |> unbox<`u>"
00:02:34 #3233 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\83b4b9af52257cf3de824378c22cb7eda5dfb74d921f4b1901901ed7dea9e820\main.spi
00:02:34 #3234 [verbose] >
00:02:34 #3235 [verbose] > ╭─[ 292.77ms - stdout ]────────────────────────────────────────────────────────╮
00:02:34 #3236 [verbose] > │ () │
00:02:34 #3237 [verbose] > │ │
00:02:34 #3238 [verbose] > │ │
00:02:34 #3239 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #3240 [verbose] >
00:02:34 #3241 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:34 #3242 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:34 #3243 [verbose] > │ ## (+.) │
00:02:34 #3244 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:34 #3245 [verbose] >
00:02:34 #3246 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:34 #3247 [verbose] > inl (+.) forall t. (a : t) (b : t) : t =
00:02:34 #3248 [verbose] > $"!a + !b"
00:02:35 #3249 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ebb411d5c4c9dcf0ad5d05b3568751d47d6efc206056f98ef41403a8d0bfca56\main.spi
00:02:35 #3250 [verbose] >
00:02:35 #3251 [verbose] > ╭─[ 306.41ms - stdout ]────────────────────────────────────────────────────────╮
00:02:35 #3252 [verbose] > │ () │
00:02:35 #3253 [verbose] > │ │
00:02:35 #3254 [verbose] > │ │
00:02:35 #3255 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #3256 [verbose] >
00:02:35 #3257 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:35 #3258 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:35 #3259 [verbose] > │ ## (-.) │
00:02:35 #3260 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #3261 [verbose] >
00:02:35 #3262 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:35 #3263 [verbose] > inl (-.) forall t. (a : t) (b : t) : t =
00:02:35 #3264 [verbose] > $"!a - !b"
00:02:35 #3265 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2c346e1b958ccbeaa22b05a57a6b61c9c39ff0dd177dbd13a498f3dd15e7ed61\main.spi
00:02:35 #3266 [verbose] >
00:02:35 #3267 [verbose] > ╭─[ 271.07ms - stdout ]────────────────────────────────────────────────────────╮
00:02:35 #3268 [verbose] > │ () │
00:02:35 #3269 [verbose] > │ │
00:02:35 #3270 [verbose] > │ │
00:02:35 #3271 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #3272 [verbose] >
00:02:35 #3273 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:35 #3274 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:35 #3275 [verbose] > │ ## (*.) │
00:02:35 #3276 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:35 #3277 [verbose] >
00:02:35 #3278 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:35 #3279 [verbose] > inl (*.) forall t. (a : t) (b : t) : t =
00:02:35 #3280 [verbose] > $"!a * !b"
00:02:35 #3281 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\91fea1304d27518765e86f8670a1d2ff9bf1ab200e4cf13cb5b6b12154c70f08\main.spi
00:02:36 #3282 [verbose] >
00:02:36 #3283 [verbose] > ╭─[ 865.86ms - stdout ]────────────────────────────────────────────────────────╮
00:02:36 #3284 [verbose] > │ () │
00:02:36 #3285 [verbose] > │ │
00:02:36 #3286 [verbose] > │ │
00:02:36 #3287 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #3288 [verbose] >
00:02:36 #3289 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 #3290 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 #3291 [verbose] > │ ## (/.) │
00:02:36 #3292 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #3293 [verbose] >
00:02:36 #3294 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 #3295 [verbose] > inl (/.) forall t. (a : t) (b : t) : t =
00:02:36 #3296 [verbose] > $"!a / !b"
00:02:36 #3297 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7854474a3ae3c618fd4ad0d1e2e8c8061dc8279bc78e2c03033206b224865a12\main.spi
00:02:36 #3298 [verbose] >
00:02:36 #3299 [verbose] > ╭─[ 298.18ms - stdout ]────────────────────────────────────────────────────────╮
00:02:36 #3300 [verbose] > │ () │
00:02:36 #3301 [verbose] > │ │
00:02:36 #3302 [verbose] > │ │
00:02:36 #3303 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #3304 [verbose] >
00:02:36 #3305 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 #3306 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 #3307 [verbose] > │ ## (=.) │
00:02:36 #3308 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #3309 [verbose] >
00:02:36 #3310 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 #3311 [verbose] > inl (=.) forall t. (a : t) (b : t) : bool =
00:02:36 #3312 [verbose] > $"!a = !b"
00:02:36 #3313 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d1c880be7167f93dd4ed8a5b358b33228b0b612251dac32877dd57cb4fc9a34f\main.spi
00:02:36 #3314 [verbose] >
00:02:36 #3315 [verbose] > ╭─[ 240.63ms - stdout ]────────────────────────────────────────────────────────╮
00:02:36 #3316 [verbose] > │ () │
00:02:36 #3317 [verbose] > │ │
00:02:36 #3318 [verbose] > │ │
00:02:36 #3319 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #3320 [verbose] >
00:02:36 #3321 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:36 #3322 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:36 #3323 [verbose] > │ ## (||>) │
00:02:36 #3324 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:36 #3325 [verbose] >
00:02:36 #3326 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:36 #3327 [verbose] > inl (||>) (arg1, arg2) fn =
00:02:36 #3328 [verbose] > arg2 |> fn arg1
00:02:37 #3329 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\49f7588ec25d1857bd139cd22e0a9d3ada024878104dcdf7bfe7fde3a4cebaac\main.spi
00:02:37 #3330 [verbose] >
00:02:37 #3331 [verbose] > ╭─[ 256.95ms - stdout ]────────────────────────────────────────────────────────╮
00:02:37 #3332 [verbose] > │ () │
00:02:37 #3333 [verbose] > │ │
00:02:37 #3334 [verbose] > │ │
00:02:37 #3335 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:37 #3336 [verbose] >
00:02:37 #3337 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:37 #3338 [verbose] > // // test
00:02:37 #3339 [verbose] >
00:02:37 #3340 [verbose] > (3i32, 2i32)
00:02:37 #3341 [verbose] > ||> fun a b => a - b
00:02:37 #3342 [verbose] > |> _assert_eq 1
00:02:37 #3343 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dc042fee813036e8ec40f33c580bf7b8ca602960b38114c7cf0477340bb23137\main.spi
00:02:37 #3344 [verbose] >
00:02:37 #3345 [verbose] > ╭─[ 292.85ms - stdout ]────────────────────────────────────────────────────────╮
00:02:37 #3346 [verbose] > │ let rec method0 () : unit = │
00:02:37 #3347 [verbose] > │ let v0 : string = $"%A{1}" │
00:02:37 #3348 [verbose] > │ System.Console.WriteLine v0 │
00:02:37 #3349 [verbose] > │ let v1 : string = $"__expect / actual: %A{1} / expected: %A{1}" │
00:02:37 #3350 [verbose] > │ () │
00:02:37 #3351 [verbose] > │ method0() │
00:02:37 #3352 [verbose] > │ │
00:02:37 #3353 [verbose] > │ 1 │
00:02:37 #3354 [verbose] > │ │
00:02:37 #3355 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:37 #3356 [verbose] >
00:02:37 #3357 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:37 #3358 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:37 #3359 [verbose] > │ ## flip │
00:02:37 #3360 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:37 #3361 [verbose] >
00:02:37 #3362 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:37 #3363 [verbose] > inl flip fn a b =
00:02:37 #3364 [verbose] > fn b a
00:02:37 #3365 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5ed289e3d284630743d91a07de222555112741e350988dcbed2a5f0900595dcc\main.spi
00:02:37 #3366 [verbose] >
00:02:37 #3367 [verbose] > ╭─[ 516.92ms - stdout ]────────────────────────────────────────────────────────╮
00:02:37 #3368 [verbose] > │ () │
00:02:37 #3369 [verbose] > │ │
00:02:37 #3370 [verbose] > │ │
00:02:37 #3371 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:37 #3372 [verbose] >
00:02:37 #3373 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:37 #3374 [verbose] > // // test
00:02:37 #3375 [verbose] >
00:02:37 #3376 [verbose] > (1i32, 2i32)
00:02:37 #3377 [verbose] > ||> flip pair
00:02:37 #3378 [verbose] > |> _assert_eq (2, 1)
00:02:38 #3379 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4d7a9725f01ac2a4aab5d28c02a2449000d219bf171fdad3215c352f07a41ba0\main.spi
00:02:38 #3380 [verbose] >
00:02:38 #3381 [verbose] > ╭─[ 331.19ms - stdout ]────────────────────────────────────────────────────────╮
00:02:38 #3382 [verbose] > │ let rec method0 () : unit = │
00:02:38 #3383 [verbose] > │ let v0 : string = $"%A{struct (2, 1)}" │
00:02:38 #3384 [verbose] > │ System.Console.WriteLine v0 │
00:02:38 #3385 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (2, 1)} / expected: │
00:02:38 #3386 [verbose] > │ %A{struct (2, 1)}" │
00:02:38 #3387 [verbose] > │ () │
00:02:38 #3388 [verbose] > │ method0() │
00:02:38 #3389 [verbose] > │ │
00:02:38 #3390 [verbose] > │ struct (2, 1) │
00:02:38 #3391 [verbose] > │ │
00:02:38 #3392 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:38 #3393 [verbose] >
00:02:38 #3394 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:38 #3395 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:38 #3396 [verbose] > │ ## join_body │
00:02:38 #3397 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:38 #3398 [verbose] >
00:02:38 #3399 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:38 #3400 [verbose] > inl join_body body acc x =
00:02:38 #3401 [verbose] > if var_is x |> not
00:02:38 #3402 [verbose] > then body acc x
00:02:38 #3403 [verbose] > else
00:02:38 #3404 [verbose] > inl acc = dyn acc
00:02:38 #3405 [verbose] > join body acc x
00:02:38 #3406 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3a23301c3fa4dc199742abf2404170885edda41b49a15f0f8ba10d479ed146f6\main.spi
00:02:38 #3407 [verbose] >
00:02:38 #3408 [verbose] > ╭─[ 282.65ms - stdout ]────────────────────────────────────────────────────────╮
00:02:38 #3409 [verbose] > │ () │
00:02:38 #3410 [verbose] > │ │
00:02:38 #3411 [verbose] > │ │
00:02:38 #3412 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:38 #3413 [verbose] >
00:02:38 #3414 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:38 #3415 [verbose] > // // test
00:02:38 #3416 [verbose] >
00:02:38 #3417 [verbose] > inl rec fold_list f s = function
00:02:38 #3418 [verbose] > | Cons (x, x') => fold_list f (f s x) x'
00:02:38 #3419 [verbose] > | Nil => s
00:02:38 #3420 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6c156f8a309201bec5a60ba910c30bb7aa250aca8a14bc895806ea648c62b764\main.spi
00:02:38 #3421 [verbose] >
00:02:38 #3422 [verbose] > ╭─[ 334.35ms - stdout ]────────────────────────────────────────────────────────╮
00:02:38 #3423 [verbose] > │ () │
00:02:38 #3424 [verbose] > │ │
00:02:38 #3425 [verbose] > │ │
00:02:38 #3426 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:38 #3427 [verbose] >
00:02:38 #3428 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:38 #3429 [verbose] > // // test
00:02:38 #3430 [verbose] >
00:02:38 #3431 [verbose] > [[ 5i32; 4; join 3; 2; 1 ]]
00:02:38 #3432 [verbose] > |> fold_list (+) 0
00:02:38 #3433 [verbose] > |> _assert_eq 15
00:02:39 #3434 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\12d72d24a524c6bf0643bf2205596efb89dc76ce92398c5492cdc989b07ce936\main.spi
00:02:39 #3435 [verbose] >
00:02:39 #3436 [verbose] > ╭─[ 257.32ms - stdout ]────────────────────────────────────────────────────────╮
00:02:39 #3437 [verbose] > │ let rec method1 () : int32 = │
00:02:39 #3438 [verbose] > │ 3 │
00:02:39 #3439 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:39 #3440 [verbose] > │ v0 │
00:02:39 #3441 [verbose] > │ and method0 () : unit = │
00:02:39 #3442 [verbose] > │ let v0 : int32 = method1() │
00:02:39 #3443 [verbose] > │ let v1 : int32 = 9 + v0 │
00:02:39 #3444 [verbose] > │ let v2 : int32 = v1 + 2 │
00:02:39 #3445 [verbose] > │ let v3 : int32 = v2 + 1 │
00:02:39 #3446 [verbose] > │ let v4 : string = $"%A{v3}" │
00:02:39 #3447 [verbose] > │ System.Console.WriteLine v4 │
00:02:39 #3448 [verbose] > │ let v5 : bool = v3 = 15 │
00:02:39 #3449 [verbose] > │ let v7 : bool = │
00:02:39 #3450 [verbose] > │ if v5 then │
00:02:39 #3451 [verbose] > │ true │
00:02:39 #3452 [verbose] > │ else │
00:02:39 #3453 [verbose] > │ method2(v5) │
00:02:39 #3454 [verbose] > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{15}" │
00:02:39 #3455 [verbose] > │ let v9 : bool = v7 = false │
00:02:39 #3456 [verbose] > │ if v9 then │
00:02:39 #3457 [verbose] > │ failwith<unit> v8 │
00:02:39 #3458 [verbose] > │ method0() │
00:02:39 #3459 [verbose] > │ │
00:02:39 #3460 [verbose] > │ 15 │
00:02:39 #3461 [verbose] > │ │
00:02:39 #3462 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:39 #3463 [verbose] >
00:02:39 #3464 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:39 #3465 [verbose] > // // test
00:02:39 #3466 [verbose] >
00:02:39 #3467 [verbose] > [[ 5i32; 4; join 3; 2; 1 ]]
00:02:39 #3468 [verbose] > |> fold_list (join_body (+)) 0
00:02:39 #3469 [verbose] > |> _assert_eq 15
00:02:39 #3470 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\69e20df3d799a260a7816d42b561fa9a09b6be008c0e692d917e7f0b8e81932d\main.spi
00:02:39 #3471 [verbose] >
00:02:39 #3472 [verbose] > ╭─[ 279.20ms - stdout ]────────────────────────────────────────────────────────╮
00:02:39 #3473 [verbose] > │ let rec method1 () : int32 = │
00:02:39 #3474 [verbose] > │ 3 │
00:02:39 #3475 [verbose] > │ and method2 (v0 : int32, v1 : int32) : int32 = │
00:02:39 #3476 [verbose] > │ let v2 : int32 = v1 + v0 │
00:02:39 #3477 [verbose] > │ v2 │
00:02:39 #3478 [verbose] > │ and method3 (v0 : bool) : bool = │
00:02:39 #3479 [verbose] > │ v0 │
00:02:39 #3480 [verbose] > │ and method0 () : unit = │
00:02:39 #3481 [verbose] > │ let v0 : int32 = method1() │
00:02:39 #3482 [verbose] > │ let v1 : int32 = 9 │
00:02:39 #3483 [verbose] > │ let v2 : int32 = method2(v0, v1) │
00:02:39 #3484 [verbose] > │ let v3 : int32 = v2 + 2 │
00:02:39 #3485 [verbose] > │ let v4 : int32 = v3 + 1 │
00:02:39 #3486 [verbose] > │ let v5 : string = $"%A{v4}" │
00:02:39 #3487 [verbose] > │ System.Console.WriteLine v5 │
00:02:39 #3488 [verbose] > │ let v6 : bool = v4 = 15 │
00:02:39 #3489 [verbose] > │ let v8 : bool = │
00:02:39 #3490 [verbose] > │ if v6 then │
00:02:39 #3491 [verbose] > │ true │
00:02:39 #3492 [verbose] > │ else │
00:02:39 #3493 [verbose] > │ method3(v6) │
00:02:39 #3494 [verbose] > │ let v9 : string = $"__expect / actual: %A{v4} / expected: %A{15}" │
00:02:39 #3495 [verbose] > │ let v10 : bool = v8 = false │
00:02:39 #3496 [verbose] > │ if v10 then │
00:02:39 #3497 [verbose] > │ failwith<unit> v9 │
00:02:39 #3498 [verbose] > │ method0() │
00:02:39 #3499 [verbose] > │ │
00:02:39 #3500 [verbose] > │ 15 │
00:02:39 #3501 [verbose] > │ │
00:02:39 #3502 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:39 #3503 [verbose] >
00:02:39 #3504 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:39 #3505 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:39 #3506 [verbose] > │ ## join_body_unit │
00:02:39 #3507 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:39 #3508 [verbose] >
00:02:39 #3509 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:39 #3510 [verbose] > inl join_body_unit body d x =
00:02:39 #3511 [verbose] > if var_is d |> not
00:02:39 #3512 [verbose] > then body x
00:02:39 #3513 [verbose] > else
00:02:39 #3514 [verbose] > inl x = dyn x
00:02:39 #3515 [verbose] > join body x
00:02:39 #3516 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\75ba2d768d9e8cc7b1991efe4879ca89f1a32c51cff1fdf8b42d96cd8d40da85\main.spi
00:02:39 #3517 [verbose] >
00:02:39 #3518 [verbose] > ╭─[ 280.98ms - stdout ]────────────────────────────────────────────────────────╮
00:02:39 #3519 [verbose] > │ () │
00:02:39 #3520 [verbose] > │ │
00:02:39 #3521 [verbose] > │ │
00:02:39 #3522 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:39 #3523 [verbose] >
00:02:39 #3524 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:39 #3525 [verbose] > // // test
00:02:39 #3526 [verbose] >
00:02:39 #3527 [verbose] > [[ 5i32; 4; join 3; 2; 1 ]]
00:02:39 #3528 [verbose] > |> fold_list (fun acc n => join_body_unit ((+) acc) n n) 0
00:02:39 #3529 [verbose] > |> _assert_eq 15
00:02:39 #3530 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7ef415988b0c494ebc2a4c79692f94f3288c6def5c831825c292fdabc6753e58\main.spi
00:02:40 #3531 [verbose] >
00:02:40 #3532 [verbose] > ╭─[ 260.79ms - stdout ]────────────────────────────────────────────────────────╮
00:02:40 #3533 [verbose] > │ let rec method1 () : int32 = │
00:02:40 #3534 [verbose] > │ 3 │
00:02:40 #3535 [verbose] > │ and method2 (v0 : int32) : int32 = │
00:02:40 #3536 [verbose] > │ let v1 : int32 = 9 + v0 │
00:02:40 #3537 [verbose] > │ v1 │
00:02:40 #3538 [verbose] > │ and method3 (v0 : bool) : bool = │
00:02:40 #3539 [verbose] > │ v0 │
00:02:40 #3540 [verbose] > │ and method0 () : unit = │
00:02:40 #3541 [verbose] > │ let v0 : int32 = method1() │
00:02:40 #3542 [verbose] > │ let v1 : int32 = method2(v0) │
00:02:40 #3543 [verbose] > │ let v2 : int32 = v1 + 2 │
00:02:40 #3544 [verbose] > │ let v3 : int32 = v2 + 1 │
00:02:40 #3545 [verbose] > │ let v4 : string = $"%A{v3}" │
00:02:40 #3546 [verbose] > │ System.Console.WriteLine v4 │
00:02:40 #3547 [verbose] > │ let v5 : bool = v3 = 15 │
00:02:40 #3548 [verbose] > │ let v7 : bool = │
00:02:40 #3549 [verbose] > │ if v5 then │
00:02:40 #3550 [verbose] > │ true │
00:02:40 #3551 [verbose] > │ else │
00:02:40 #3552 [verbose] > │ method3(v5) │
00:02:40 #3553 [verbose] > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{15}" │
00:02:40 #3554 [verbose] > │ let v9 : bool = v7 = false │
00:02:40 #3555 [verbose] > │ if v9 then │
00:02:40 #3556 [verbose] > │ failwith<unit> v8 │
00:02:40 #3557 [verbose] > │ method0() │
00:02:40 #3558 [verbose] > │ │
00:02:40 #3559 [verbose] > │ 15 │
00:02:40 #3560 [verbose] > │ │
00:02:40 #3561 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 #3562 [verbose] >
00:02:40 #3563 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:40 #3564 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:40 #3565 [verbose] > │ ## nameof │
00:02:40 #3566 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 #3567 [verbose] >
00:02:40 #3568 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:40 #3569 [verbose] > inl nameof x : string =
00:02:40 #3570 [verbose] > $"nameof !x"
00:02:40 #3571 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fa5e419a5438df0fb47ba8031cd26b54a23a4d97c5a682595902bfe3ad44fa13\main.spi
00:02:40 #3572 [verbose] >
00:02:40 #3573 [verbose] > ╭─[ 456.21ms - stdout ]────────────────────────────────────────────────────────╮
00:02:40 #3574 [verbose] > │ () │
00:02:40 #3575 [verbose] > │ │
00:02:40 #3576 [verbose] > │ │
00:02:40 #3577 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 #3578 [verbose] >
00:02:40 #3579 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:40 #3580 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:40 #3581 [verbose] > │ ## get_environment_variable │
00:02:40 #3582 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 #3583 [verbose] >
00:02:40 #3584 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:40 #3585 [verbose] > inl get_environment_variable (var : string) : string =
00:02:40 #3586 [verbose] > $"System.Environment.GetEnvironmentVariable !var"
00:02:40 #3587 [verbose] > 00:02:36 #5 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"\n\n// // test\n\nopen testing\n\ninl main () = ()\n\n\nprototype (~:\u003E) r : forall t. t -\u003E r\n\ninl main () = ()\n\n\n// // test\n\n\nlet main () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E $\u00221uy\u0022\n | _ =\u003E fun () =\u003E $\u00222uy\u0022\n |\u003E _assert_eq 1u8\n\n// // test\n// // rust=\n\n\nlet main () =\n run_target function\n | Rust (Native) =\u003E fun () =\u003E $\u00221uy\u0022\n | _ =\u003E fun () =\u003E $\u00222uy\u0022\n |\u003E (=) 1u8\n |\u003E _assert_eq true\n\ninl upcast forall t u. (x : t) : u =\n $\u0027!x :\u003E \u0060u \u0027\n\ninl main () = ()\n\n\ninl downcast forall t u. (x : t) : u =\n $\u0027!x :?\u003E \u0060u \u0027\n\ninl main () = ()\n\n\nnominal unativeint = $\u0022unativeint\u0022\n\ninl unativeint forall t {int}. (n : t) : unativeint =\n $\u0022unativeint !n\u0022\n\ninl main () = ()\n\n\n// // test\n\n\nlet main () =\n pair 1i32 2i32\n |\u003E _assert_eq (1, 2)\n\ninl new_pair forall a b. (a : a) (b : b) : pair a b =\n $\u0022!a, !b\u0022\n\ninl main () = ()\n\n\ninl from_pair forall a b. (pair : pair a b) : a * b =\n $\u0022let (a, b) = !pair\u0022\n $\u0022a\u0022, $\u0022b\u0022\n\ninl main () = ()\n\n\n// // test\n\n\nlet main () =\n new_pair \u0022a\u0022 1i32\n |\u003E from_pair\n |\u003E _assert_eq (\u0022a\u0022, 1i32)\n\n// // test\n\n\nlet main () =\n new_pair \u0022a\u0022 (new_pair 1i32 \u0022b\u0022)\n |\u003E from_pair\n\nnominal lazy t = $\u0027Lazy\u003C\u0060t\u003E\u0027\n\ninl memoize forall t. (fn : () -\u003E t) : () -\u003E t =\n inl fn = join fn\n inl result : lazy t = $\u0027lazy !fn ()\u0027\n fun () =\u003E $\u0027!result.Value\u0027\n\ninl main () = ()\n\n\n// // test\n\n\nlet main () =\n inl count = mut 0i32\n inl add =\n fun () =\u003E count \u003C- *count \u002B 1\n |\u003E memoize\n\n add ()\n add ()\n add ()\n\n *count\n |\u003E _assert_eq 1\n\ninl to_any forall t. (obj : t) : any =\n $\u0022!obj\u0022\n\ninstance (~:\u003E) any = to_any\n\ninl main () = ()\n\n\ninl unbox forall t u. (x : t) : u =\n $\u0022!x |\u003E unbox\u003C\u0060u\u003E\u0022\n\ninl main () = ()\n\n\ninl (\u002B.) forall t. (a : t) (b : t) : t =\n $\u0022!a \u002B !b\u0022\n\ninl main () = ()\n\n\ninl (-.) forall t. (a : t) (b : t) : t =\n $\u0022!a - !b\u0022\n\ninl main () = ()\n\n\ninl (*.) forall t. (a : t) (b : t) : t =\n $\u0022!a * !b\u0022\n\ninl main () = ()\n\n\ninl (/.) forall t. (a : t) (b : t) : t =\n $\u0022!a / !b\u0022\n\ninl main () = ()\n\n\ninl (=.) forall t. (a : t) (b : t) : bool =\n $\u0022!a = !b\u0022\n\ninl main () = ()\n\n\ninl (||\u003E) (arg1, arg2) fn =\n arg2 |\u003E fn arg1\n\ninl main () = ()\n\n\n// // test\n\n\nlet main () =\n (3i32, 2i32)\n ||\u003E fun a b =\u003E a - b\n |\u003E _assert_eq 1\n\ninl flip fn a b =\n fn b a\n\ninl main () = ()\n\n\n// // test\n\n\nlet main () =\n (1i32, 2i32)\n ||\u003E flip pair\n |\u003E _assert_eq (2, 1)\n\ninl join_body body acc x =\n if var_is x |\u003E not\n then body acc x\n else\n inl acc = dyn acc\n join body acc x\n\ninl main () = ()\n\n\n// // test\n\ninl rec fold_list f s = function\n | Cons (x, x\u0027) =\u003E fold_list f (f s x) x\u0027\n | Nil =\u003E s\n\ninl main () = ()\n\n\n// // test\n\n\nlet main () =\n [ 5i32; 4; join 3; 2; 1 ]\n |\u003E fold_list (\u002B) 0\n |\u003E _assert_eq 15\n\n// // test\n\n\nlet main () =\n [ 5i32; 4; join 3; 2; 1 ]\n |\u003E fold_list (join_body (\u002B)) 0\n |\u003E _assert_eq 15\n\ninl join_body_unit body d x =\n if var_is d |\u003E not\n then body x\n else\n inl x = dyn x\n join body x\n\ninl main () = ()\n\n\n// // test\n\n\nlet main () =\n [ 5i32; 4; join 3; 2; 1 ]\n |\u003E fold_list (fun acc n =\u003E join_body_unit ((\u002B) acc) n n) 0\n |\u003E _assert_eq 15\n\ninl nameof x : string =\n $\u0022nameof !x\u0022\n\ninl main () = ()\n\n\ninl get_environment_variable (var : string) : string =\n $\u0022System.Environment.GetEnvironmentVariable !var\u0022\n\ninl main () = ()\n","uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b1a846a99e4f0210554805fc0fa7fa24437a1a830f88211b00088dd4edcf113a/main.spi"}} / result.Length:
00:02:40 #3588 [verbose] > 00:02:36 #6 [debug] sendJson / port: 13805 / json: {"FileTokenRange":{"range":[{"character":0,"line":0},{"character":0,"line":250}],"uri":"file:///c:/home/git/polyglot/target/polyglot/spiral_eval/packages/b1a846a99e4f0210554805fc0fa7fa24437a1a830f88211b00088dd4edcf113a/main.spi"}} / result.Length: Some(28857)
00:02:40 #3589 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b1a846a99e4f0210554805fc0fa7fa24437a1a830f88211b00088dd4edcf113a\main.spi
00:02:40 #3590 [verbose] >
00:02:40 #3591 [verbose] > ╭─[ 367.24ms - stdout ]────────────────────────────────────────────────────────╮
00:02:40 #3592 [verbose] > │ () │
00:02:40 #3593 [verbose] > │ │
00:02:40 #3594 [verbose] > │ │
00:02:40 #3595 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:40 #3596 [verbose] >
00:02:40 #3597 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:40 #3598 [verbose] > // // test
00:02:40 #3599 [verbose] >
00:02:40 #3600 [verbose] > fun () => failwith "test"
00:02:40 #3601 [verbose] > |> _throws
00:02:40 #3602 [verbose] > |> optionm.map sm'.format_exception
00:02:40 #3603 [verbose] > |> _assert_eq (Some "System.Exception: test")
00:02:41 #3604 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1e0927ce21441407214d1d55e052c64b89b64d3fc6137bf7b4b25d2f59c364ae\main.spi
00:02:41 #3605 [verbose] >
00:02:41 #3606 [verbose] > ╭─[ 631.01ms - stdout ]────────────────────────────────────────────────────────╮
00:02:41 #3607 [verbose] > │ type [<Struct>] US0 = │
00:02:41 #3608 [verbose] > │ | US0_0 of f0_0 : exn │
00:02:41 #3609 [verbose] > │ | US0_1 │
00:02:41 #3610 [verbose] > │ and [<Struct>] US1 = │
00:02:41 #3611 [verbose] > │ | US1_0 of f0_0 : string │
00:02:41 #3612 [verbose] > │ | US1_1 │
00:02:41 #3613 [verbose] > │ let rec closure0 () () : unit = │
00:02:41 #3614 [verbose] > │ failwith<unit> "test" │
00:02:41 #3615 [verbose] > │ and closure1 () (v0 : exn) : US0 = │
00:02:41 #3616 [verbose] > │ US0_0(v0) │
00:02:41 #3617 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:41 #3618 [verbose] > │ v0 │
00:02:41 #3619 [verbose] > │ and method0 () : unit = │
00:02:41 #3620 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:02:41 #3621 [verbose] > │ let v1 : US0 = US0_1 │
00:02:41 #3622 [verbose] > │ let v2 : (exn -> US0) = closure1() │
00:02:41 #3623 [verbose] > │ let v3 : US0 = try v0 (); v1 with ex -> ex |> v2 │
00:02:41 #3624 [verbose] > │ let v16 : US1 = │
00:02:41 #3625 [verbose] > │ match v3 with │
00:02:41 #3626 [verbose] > │ | US0_1 -> (* None *) │
00:02:41 #3627 [verbose] > │ US1_1 │
00:02:41 #3628 [verbose] > │ | US0_0(v4) -> (* Some *) │
00:02:41 #3629 [verbose] > │ let v5 : string option = None │
00:02:41 #3630 [verbose] > │ let mutable _v5 = v5 │
00:02:41 #3631 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:41 #3632 [verbose] > │ let v6 : string = $"%A{v4}" │
00:02:41 #3633 [verbose] > │ v6 │
00:02:41 #3634 [verbose] > │ #endif │
00:02:41 #3635 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:41 #3636 [verbose] > │ let v7 : string = $"%A{v4}" │
00:02:41 #3637 [verbose] > │ v7 │
00:02:41 #3638 [verbose] > │ #endif │
00:02:41 #3639 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:41 #3640 [verbose] > │ let v8 : string = $"%A{v4}" │
00:02:41 #3641 [verbose] > │ v8 │
00:02:41 #3642 [verbose] > │ #endif │
00:02:41 #3643 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:41 #3644 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:41 #3645 [verbose] > │ let v9 : string = $"{v4.GetType ()}: {v4.Message}" │
00:02:41 #3646 [verbose] > │ v9 │
00:02:41 #3647 [verbose] > │ #endif │
00:02:41 #3648 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:41 #3649 [verbose] > │ let v10 : string = $"%A{v4}" │
00:02:41 #3650 [verbose] > │ v10 │
00:02:41 #3651 [verbose] > │ #endif │
00:02:41 #3652 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:02:41 #3653 [verbose] > │ FABLE_COMPILER_DART │
00:02:41 #3654 [verbose] > │ let v11 : string = Unchecked.defaultof<string> │
00:02:41 #3655 [verbose] > │ v11 │
00:02:41 #3656 [verbose] > │ #endif │
00:02:41 #3657 [verbose] > │ |> fun x -> _v5 <- Some x │
00:02:41 #3658 [verbose] > │ let v12 : string = _v5.Value │
00:02:41 #3659 [verbose] > │ US1_0(v12) │
00:02:41 #3660 [verbose] > │ let v17 : string = $"%A{v16}" │
00:02:41 #3661 [verbose] > │ System.Console.WriteLine v17 │
00:02:41 #3662 [verbose] > │ let v22 : bool = │
00:02:41 #3663 [verbose] > │ match v16 with │
00:02:41 #3664 [verbose] > │ | US1_0(v20) -> (* Some *) │
00:02:41 #3665 [verbose] > │ let v21 : bool = v20 = "System.Exception: test" │
00:02:41 #3666 [verbose] > │ v21 │
00:02:41 #3667 [verbose] > │ | _ -> │
00:02:41 #3668 [verbose] > │ false │
00:02:41 #3669 [verbose] > │ let v24 : bool = │
00:02:41 #3670 [verbose] > │ if v22 then │
00:02:41 #3671 [verbose] > │ true │
00:02:41 #3672 [verbose] > │ else │
00:02:41 #3673 [verbose] > │ method1(v22) │
00:02:41 #3674 [verbose] > │ let v25 : string = "System.Exception: test" │
00:02:41 #3675 [verbose] > │ let v26 : US1 = US1_0(v25) │
00:02:41 #3676 [verbose] > │ let v27 : string = $"__expect / actual: %A{v16} / expected: %A{v26}" │
00:02:41 #3677 [verbose] > │ let v28 : bool = v24 = false │
00:02:41 #3678 [verbose] > │ if v28 then │
00:02:41 #3679 [verbose] > │ failwith<unit> v27 │
00:02:41 #3680 [verbose] > │ method0() │
00:02:41 #3681 [verbose] > │ │
00:02:41 #3682 [verbose] > │ US1_0 "System.Exception: test" │
00:02:41 #3683 [verbose] > │ │
00:02:41 #3684 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:41 #3685 [verbose] >
00:02:41 #3686 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:41 #3687 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:41 #3688 [verbose] > │ ## disposable │
00:02:41 #3689 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:41 #3690 [verbose] >
00:02:41 #3691 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:41 #3692 [verbose] > nominal disposable t = $"System.IDisposable"
00:02:41 #3693 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e6876f5889f0050f1c4e9fe416c00dea3c805278a742e0a4fc6d6934ec0d00a5\main.spi
00:02:41 #3694 [verbose] >
00:02:41 #3695 [verbose] > ╭─[ 279.38ms - stdout ]────────────────────────────────────────────────────────╮
00:02:41 #3696 [verbose] > │ () │
00:02:41 #3697 [verbose] > │ │
00:02:41 #3698 [verbose] > │ │
00:02:41 #3699 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:41 #3700 [verbose] >
00:02:41 #3701 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:41 #3702 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:41 #3703 [verbose] > │ ## dispose │
00:02:41 #3704 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:41 #3705 [verbose] >
00:02:41 #3706 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:41 #3707 [verbose] > inl dispose (disposable : disposable _) : () =
00:02:41 #3708 [verbose] > disposable |> $'_.Dispose()'
00:02:42 #3709 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d9489d163db58dacc6ad7b4ec04a104cafd925401f53ef6accc21d253799db1a\main.spi
00:02:42 #3710 [verbose] >
00:02:42 #3711 [verbose] > ╭─[ 245.16ms - stdout ]────────────────────────────────────────────────────────╮
00:02:42 #3712 [verbose] > │ () │
00:02:42 #3713 [verbose] > │ │
00:02:42 #3714 [verbose] > │ │
00:02:42 #3715 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:42 #3716 [verbose] >
00:02:42 #3717 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:42 #3718 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:42 #3719 [verbose] > │ ## new_disposable │
00:02:42 #3720 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:42 #3721 [verbose] >
00:02:42 #3722 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:42 #3723 [verbose] > inl new_disposable (fn : () -> ()) : disposable _ =
00:02:42 #3724 [verbose] > run_target function
00:02:42 #3725 [verbose] > | Fsharp _ => fun () => $'{ new System.IDisposable with member _.Dispose
00:02:42 #3726 [verbose] > () = !fn () }'
00:02:42 #3727 [verbose] > // | Rust _ =>
00:02:42 #3728 [verbose] > // fun () =>
00:02:42 #3729 [verbose] > // $'{ new System.IDisposable with member _.Dispose () =
00:02:42 #3730 [verbose] > Fable.Core.RustInterop.emitRustExpr () "!fn()" }'
00:02:42 #3731 [verbose] > | _ => fun () => null ()
00:02:42 #3732 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\af7a7257fee79d3b3ac68562caa40ea3bee4a10c63652048d687711c878a3842\main.spi
00:02:42 #3733 [verbose] >
00:02:42 #3734 [verbose] > ╭─[ 278.52ms - stdout ]────────────────────────────────────────────────────────╮
00:02:42 #3735 [verbose] > │ () │
00:02:42 #3736 [verbose] > │ │
00:02:42 #3737 [verbose] > │ │
00:02:42 #3738 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:42 #3739 [verbose] >
00:02:42 #3740 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:42 #3741 [verbose] > // // test
00:02:42 #3742 [verbose] >
00:02:42 #3743 [verbose] > inl new_disposable_test = mut 0i32
00:02:42 #3744 [verbose] > new_disposable (fun () => new_disposable_test <- *new_disposable_test + 1)
00:02:42 #3745 [verbose] > |> fun x => x : disposable ()
00:02:42 #3746 [verbose] > |> dispose
00:02:42 #3747 [verbose] > *new_disposable_test |> _assert_eq 1
00:02:42 #3748 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\51b46a5c6c2157210a9a5c883102ce344ac7529f7066c7de873819065cf04c43\main.spi
00:02:42 #3749 [verbose] >
00:02:42 #3750 [verbose] > ╭─[ 388.96ms - stdout ]────────────────────────────────────────────────────────╮
00:02:42 #3751 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:42 #3752 [verbose] > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:42 #3753 [verbose] > │ let v1 : int32 = v0.l0 │
00:02:42 #3754 [verbose] > │ let v2 : int32 = v1 + 1 │
00:02:42 #3755 [verbose] > │ v0.l0 <- v2 │
00:02:42 #3756 [verbose] > │ () │
00:02:42 #3757 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:42 #3758 [verbose] > │ v0 │
00:02:42 #3759 [verbose] > │ and method0 () : unit = │
00:02:42 #3760 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:42 #3761 [verbose] > │ let v1 : System.IDisposable option = None │
00:02:42 #3762 [verbose] > │ let mutable _v1 = v1 │
00:02:42 #3763 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:42 #3764 [verbose] > │ let v2 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:42 #3765 [verbose] > │ v2 │
00:02:42 #3766 [verbose] > │ #endif │
00:02:42 #3767 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:42 #3768 [verbose] > │ let v3 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:42 #3769 [verbose] > │ v3 │
00:02:42 #3770 [verbose] > │ #endif │
00:02:42 #3771 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:42 #3772 [verbose] > │ let v4 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:42 #3773 [verbose] > │ v4 │
00:02:42 #3774 [verbose] > │ #endif │
00:02:42 #3775 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:42 #3776 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:42 #3777 [verbose] > │ let v5 : (unit -> unit) = closure0(v0) │
00:02:42 #3778 [verbose] > │ let v6 : System.IDisposable = { new System.IDisposable with member │
00:02:42 #3779 [verbose] > │ _.Dispose () = v5 () } │
00:02:42 #3780 [verbose] > │ v6 │
00:02:42 #3781 [verbose] > │ #endif │
00:02:42 #3782 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:42 #3783 [verbose] > │ let v7 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:42 #3784 [verbose] > │ v7 │
00:02:42 #3785 [verbose] > │ #endif │
00:02:42 #3786 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:42 #3787 [verbose] > │ let v8 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:42 #3788 [verbose] > │ v8 │
00:02:42 #3789 [verbose] > │ #endif │
00:02:42 #3790 [verbose] > │ |> fun x -> _v1 <- Some x │
00:02:42 #3791 [verbose] > │ let v9 : System.IDisposable = _v1.Value │
00:02:42 #3792 [verbose] > │ let v10 : (System.IDisposable -> unit) = _.Dispose() │
00:02:42 #3793 [verbose] > │ v10 v9 │
00:02:42 #3794 [verbose] > │ let v11 : int32 = v0.l0 │
00:02:42 #3795 [verbose] > │ let v12 : string = $"%A{v11}" │
00:02:42 #3796 [verbose] > │ System.Console.WriteLine v12 │
00:02:42 #3797 [verbose] > │ let v13 : bool = v11 = 1 │
00:02:42 #3798 [verbose] > │ let v15 : bool = │
00:02:42 #3799 [verbose] > │ if v13 then │
00:02:42 #3800 [verbose] > │ true │
00:02:42 #3801 [verbose] > │ else │
00:02:42 #3802 [verbose] > │ method1(v13) │
00:02:42 #3803 [verbose] > │ let v16 : string = $"__expect / actual: %A{v11} / expected: %A{1}" │
00:02:42 #3804 [verbose] > │ let v17 : bool = v15 = false │
00:02:42 #3805 [verbose] > │ if v17 then │
00:02:42 #3806 [verbose] > │ failwith<unit> v16 │
00:02:42 #3807 [verbose] > │ method0() │
00:02:42 #3808 [verbose] > │ │
00:02:42 #3809 [verbose] > │ 1 │
00:02:42 #3810 [verbose] > │ │
00:02:42 #3811 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:42 #3812 [verbose] >
00:02:42 #3813 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:42 #3814 [verbose] > // // test
00:02:42 #3815 [verbose] >
00:02:42 #3816 [verbose] > inl new_disposable_test = mut 0i32
00:02:42 #3817 [verbose] > fun () =>
00:02:42 #3818 [verbose] > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:02:42 #3819 [verbose] > |> fun x => x : disposable ()
00:02:42 #3820 [verbose] > |> use
00:02:42 #3821 [verbose] > |> ignore
00:02:42 #3822 [verbose] > |> return
00:02:42 #3823 [verbose] > |> async.new_task
00:02:42 #3824 [verbose] > |> async.await_task
00:02:42 #3825 [verbose] > |> async.run_synchronously
00:02:42 #3826 [verbose] > *new_disposable_test |> _assert_eq 1
00:02:43 #3827 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\df00ed0b0c2e446375aec3121710a128e16d5aab5b892f7e5370fa12e74dbcec\main.spi
00:02:43 #3828 [verbose] >
00:02:43 #3829 [verbose] > ╭─[ 893.14ms - stdout ]────────────────────────────────────────────────────────╮
00:02:43 #3830 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:43 #3831 [verbose] > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:43 #3832 [verbose] > │ let v1 : int32 = v0.l0 │
00:02:43 #3833 [verbose] > │ let v2 : int32 = v1 + 1 │
00:02:43 #3834 [verbose] > │ v0.l0 <- v2 │
00:02:43 #3835 [verbose] > │ () │
00:02:43 #3836 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:43 #3837 [verbose] > │ v0 │
00:02:43 #3838 [verbose] > │ and method0 () : unit = │
00:02:43 #3839 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:43 #3840 [verbose] > │ let v1 : System.Threading.Tasks.Task option = None │
00:02:43 #3841 [verbose] > │ let mutable _v1 = v1 │
00:02:43 #3842 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:43 #3843 [verbose] > │ let v2 : System.Threading.Tasks.Task = null |> │
00:02:43 #3844 [verbose] > │ unbox<System.Threading.Tasks.Task> │
00:02:43 #3845 [verbose] > │ v2 │
00:02:43 #3846 [verbose] > │ #endif │
00:02:43 #3847 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:43 #3848 [verbose] > │ let v3 : System.Threading.Tasks.Task = null |> │
00:02:43 #3849 [verbose] > │ unbox<System.Threading.Tasks.Task> │
00:02:43 #3850 [verbose] > │ v3 │
00:02:43 #3851 [verbose] > │ #endif │
00:02:43 #3852 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:43 #3853 [verbose] > │ let v4 : System.Threading.Tasks.Task = null |> │
00:02:43 #3854 [verbose] > │ unbox<System.Threading.Tasks.Task> │
00:02:43 #3855 [verbose] > │ v4 │
00:02:43 #3856 [verbose] > │ #endif │
00:02:43 #3857 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:43 #3858 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:43 #3859 [verbose] > │ let v5 : System.Threading.Tasks.Task option = None │
00:02:43 #3860 [verbose] > │ let mutable _v5 = v5 │
00:02:43 #3861 [verbose] > │ task { │
00:02:43 #3862 [verbose] > │ let v6 : System.IDisposable option = None │
00:02:43 #3863 [verbose] > │ let mutable _v6 = v6 │
00:02:43 #3864 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:43 #3865 [verbose] > │ let v7 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:43 #3866 [verbose] > │ v7 │
00:02:43 #3867 [verbose] > │ #endif │
00:02:43 #3868 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:43 #3869 [verbose] > │ let v8 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:43 #3870 [verbose] > │ v8 │
00:02:43 #3871 [verbose] > │ #endif │
00:02:43 #3872 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:43 #3873 [verbose] > │ let v9 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:43 #3874 [verbose] > │ v9 │
00:02:43 #3875 [verbose] > │ #endif │
00:02:43 #3876 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:43 #3877 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:43 #3878 [verbose] > │ let v10 : (unit -> unit) = closure0(v0) │
00:02:43 #3879 [verbose] > │ let v11 : System.IDisposable = { new System.IDisposable with member │
00:02:43 #3880 [verbose] > │ _.Dispose () = v10 () } │
00:02:43 #3881 [verbose] > │ v11 │
00:02:43 #3882 [verbose] > │ #endif │
00:02:43 #3883 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:43 #3884 [verbose] > │ let v12 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:43 #3885 [verbose] > │ v12 │
00:02:43 #3886 [verbose] > │ #endif │
00:02:43 #3887 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:43 #3888 [verbose] > │ let v13 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:43 #3889 [verbose] > │ v13 │
00:02:43 #3890 [verbose] > │ #endif │
00:02:43 #3891 [verbose] > │ |> fun x -> _v6 <- Some x │
00:02:43 #3892 [verbose] > │ let v14 : System.IDisposable = _v6.Value │
00:02:43 #3893 [verbose] > │ use v14 = v14 │
00:02:43 #3894 [verbose] > │ let v15 : System.IDisposable = v14 │
00:02:43 #3895 [verbose] > │ return () │
00:02:43 #3896 [verbose] > │ } │
00:02:43 #3897 [verbose] > │ |> fun x -> _v5 <- Some x │
00:02:43 #3898 [verbose] > │ let v16 : System.Threading.Tasks.Task = _v5 |> Option.get │
00:02:43 #3899 [verbose] > │ v16 │
00:02:43 #3900 [verbose] > │ #endif │
00:02:43 #3901 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:43 #3902 [verbose] > │ let v17 : System.Threading.Tasks.Task = null |> │
00:02:43 #3903 [verbose] > │ unbox<System.Threading.Tasks.Task> │
00:02:43 #3904 [verbose] > │ v17 │
00:02:43 #3905 [verbose] > │ #endif │
00:02:43 #3906 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:43 #3907 [verbose] > │ let v18 : System.Threading.Tasks.Task = │
00:02:43 #3908 [verbose] > │ Unchecked.defaultof<System.Threading.Tasks.Task> │
00:02:43 #3909 [verbose] > │ v18 │
00:02:43 #3910 [verbose] > │ #endif │
00:02:43 #3911 [verbose] > │ |> fun x -> _v1 <- Some x │
00:02:43 #3912 [verbose] > │ let v19 : System.Threading.Tasks.Task = _v1.Value │
00:02:43 #3913 [verbose] > │ let v20 : Async<unit> option = None │
00:02:43 #3914 [verbose] > │ let mutable _v20 = v20 │
00:02:43 #3915 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:43 #3916 [verbose] > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:02:43 #3917 [verbose] > │ v21 │
00:02:43 #3918 [verbose] > │ #endif │
00:02:43 #3919 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:43 #3920 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:02:43 #3921 [verbose] > │ v22 │
00:02:43 #3922 [verbose] > │ #endif │
00:02:43 #3923 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:43 #3924 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:02:43 #3925 [verbose] > │ v23 │
00:02:43 #3926 [verbose] > │ #endif │
00:02:43 #3927 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:43 #3928 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:43 #3929 [verbose] > │ let v24 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:02:43 #3930 [verbose] > │ let v25 : Async<unit> = v24 v19 │
00:02:43 #3931 [verbose] > │ v25 │
00:02:43 #3932 [verbose] > │ #endif │
00:02:43 #3933 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:43 #3934 [verbose] > │ let v26 : Async<unit> = null |> unbox<Async<unit>> │
00:02:43 #3935 [verbose] > │ v26 │
00:02:43 #3936 [verbose] > │ #endif │
00:02:43 #3937 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:43 #3938 [verbose] > │ let v27 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:02:43 #3939 [verbose] > │ v27 │
00:02:43 #3940 [verbose] > │ #endif │
00:02:43 #3941 [verbose] > │ |> fun x -> _v20 <- Some x │
00:02:43 #3942 [verbose] > │ let v28 : Async<unit> = _v20.Value │
00:02:43 #3943 [verbose] > │ let v29 : unit option = None │
00:02:43 #3944 [verbose] > │ let mutable _v29 = v29 │
00:02:43 #3945 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:43 #3946 [verbose] > │ null |> unbox<unit> │
00:02:43 #3947 [verbose] > │ () │
00:02:43 #3948 [verbose] > │ #endif │
00:02:43 #3949 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:43 #3950 [verbose] > │ null |> unbox<unit> │
00:02:43 #3951 [verbose] > │ () │
00:02:43 #3952 [verbose] > │ #endif │
00:02:43 #3953 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:43 #3954 [verbose] > │ null |> unbox<unit> │
00:02:43 #3955 [verbose] > │ () │
00:02:43 #3956 [verbose] > │ #endif │
00:02:43 #3957 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:43 #3958 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:43 #3959 [verbose] > │ let v30 : (Async<unit> -> unit) = Async.RunSynchronously │
00:02:43 #3960 [verbose] > │ v30 v28 │
00:02:43 #3961 [verbose] > │ () │
00:02:43 #3962 [verbose] > │ #endif │
00:02:43 #3963 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:43 #3964 [verbose] > │ null |> unbox<unit> │
00:02:43 #3965 [verbose] > │ () │
00:02:43 #3966 [verbose] > │ #endif │
00:02:43 #3967 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:43 #3968 [verbose] > │ Unchecked.defaultof<unit> │
00:02:43 #3969 [verbose] > │ () │
00:02:43 #3970 [verbose] > │ #endif │
00:02:43 #3971 [verbose] > │ |> fun x -> _v29 <- Some x │
00:02:43 #3972 [verbose] > │ _v29.Value │
00:02:43 #3973 [verbose] > │ let v31 : int32 = v0.l0 │
00:02:43 #3974 [verbose] > │ let v32 : string = $"%A{v31}" │
00:02:43 #3975 [verbose] > │ System.Console.WriteLine v32 │
00:02:43 #3976 [verbose] > │ let v33 : bool = v31 = 1 │
00:02:43 #3977 [verbose] > │ let v35 : bool = │
00:02:43 #3978 [verbose] > │ if v33 then │
00:02:43 #3979 [verbose] > │ true │
00:02:43 #3980 [verbose] > │ else │
00:02:43 #3981 [verbose] > │ method1(v33) │
00:02:43 #3982 [verbose] > │ let v36 : string = $"__expect / actual: %A{v31} / expected: %A{1}" │
00:02:43 #3983 [verbose] > │ let v37 : bool = v35 = false │
00:02:43 #3984 [verbose] > │ if v37 then │
00:02:43 #3985 [verbose] > │ failwith<unit> v36 │
00:02:43 #3986 [verbose] > │ method0() │
00:02:43 #3987 [verbose] > │ │
00:02:43 #3988 [verbose] > │ 1 │
00:02:43 #3989 [verbose] > │ │
00:02:43 #3990 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:43 #3991 [verbose] >
00:02:43 #3992 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:43 #3993 [verbose] > // // test
00:02:43 #3994 [verbose] >
00:02:43 #3995 [verbose] > inl new_disposable_test = mut 0i32
00:02:43 #3996 [verbose] > fun () =>
00:02:43 #3997 [verbose] > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:02:43 #3998 [verbose] > |> fun x => x : disposable ()
00:02:43 #3999 [verbose] > |> use
00:02:43 #4000 [verbose] > |> ignore
00:02:43 #4001 [verbose] > |> return
00:02:43 #4002 [verbose] > |> async.new_async
00:02:43 #4003 [verbose] > |> async.run_synchronously
00:02:43 #4004 [verbose] > *new_disposable_test |> _assert_eq 1
00:02:43 #4005 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c6918f37a59ef9d72bd3182ec84d700b65cbaa50a8a5aae645252f2bd08a79ea\main.spi
00:02:44 #4006 [verbose] >
00:02:44 #4007 [verbose] > ╭─[ 379.31ms - stdout ]────────────────────────────────────────────────────────╮
00:02:44 #4008 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:44 #4009 [verbose] > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:44 #4010 [verbose] > │ let v1 : int32 = v0.l0 │
00:02:44 #4011 [verbose] > │ let v2 : int32 = v1 + 1 │
00:02:44 #4012 [verbose] > │ v0.l0 <- v2 │
00:02:44 #4013 [verbose] > │ () │
00:02:44 #4014 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:44 #4015 [verbose] > │ v0 │
00:02:44 #4016 [verbose] > │ and method0 () : unit = │
00:02:44 #4017 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:44 #4018 [verbose] > │ let v1 : Async<unit> option = None │
00:02:44 #4019 [verbose] > │ let mutable _v1 = v1 │
00:02:44 #4020 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:44 #4021 [verbose] > │ let v2 : Async<unit> = null |> unbox<Async<unit>> │
00:02:44 #4022 [verbose] > │ v2 │
00:02:44 #4023 [verbose] > │ #endif │
00:02:44 #4024 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:44 #4025 [verbose] > │ let v3 : Async<unit> = null |> unbox<Async<unit>> │
00:02:44 #4026 [verbose] > │ v3 │
00:02:44 #4027 [verbose] > │ #endif │
00:02:44 #4028 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:44 #4029 [verbose] > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:02:44 #4030 [verbose] > │ v4 │
00:02:44 #4031 [verbose] > │ #endif │
00:02:44 #4032 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:44 #4033 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:44 #4034 [verbose] > │ let v5 : Async<unit> option = None │
00:02:44 #4035 [verbose] > │ let mutable _v5 = v5 │
00:02:44 #4036 [verbose] > │ async { │
00:02:44 #4037 [verbose] > │ let v6 : System.IDisposable option = None │
00:02:44 #4038 [verbose] > │ let mutable _v6 = v6 │
00:02:44 #4039 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:44 #4040 [verbose] > │ let v7 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:44 #4041 [verbose] > │ v7 │
00:02:44 #4042 [verbose] > │ #endif │
00:02:44 #4043 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:44 #4044 [verbose] > │ let v8 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:44 #4045 [verbose] > │ v8 │
00:02:44 #4046 [verbose] > │ #endif │
00:02:44 #4047 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:44 #4048 [verbose] > │ let v9 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:44 #4049 [verbose] > │ v9 │
00:02:44 #4050 [verbose] > │ #endif │
00:02:44 #4051 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:44 #4052 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:44 #4053 [verbose] > │ let v10 : (unit -> unit) = closure0(v0) │
00:02:44 #4054 [verbose] > │ let v11 : System.IDisposable = { new System.IDisposable with member │
00:02:44 #4055 [verbose] > │ _.Dispose () = v10 () } │
00:02:44 #4056 [verbose] > │ v11 │
00:02:44 #4057 [verbose] > │ #endif │
00:02:44 #4058 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:44 #4059 [verbose] > │ let v12 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:44 #4060 [verbose] > │ v12 │
00:02:44 #4061 [verbose] > │ #endif │
00:02:44 #4062 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:44 #4063 [verbose] > │ let v13 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:44 #4064 [verbose] > │ v13 │
00:02:44 #4065 [verbose] > │ #endif │
00:02:44 #4066 [verbose] > │ |> fun x -> _v6 <- Some x │
00:02:44 #4067 [verbose] > │ let v14 : System.IDisposable = _v6.Value │
00:02:44 #4068 [verbose] > │ use v14 = v14 │
00:02:44 #4069 [verbose] > │ let v15 : System.IDisposable = v14 │
00:02:44 #4070 [verbose] > │ return () │
00:02:44 #4071 [verbose] > │ } │
00:02:44 #4072 [verbose] > │ |> fun x -> _v5 <- Some x │
00:02:44 #4073 [verbose] > │ let v16 : Async<unit> = _v5 |> Option.get │
00:02:44 #4074 [verbose] > │ v16 │
00:02:44 #4075 [verbose] > │ #endif │
00:02:44 #4076 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:44 #4077 [verbose] > │ let v17 : Async<unit> = null |> unbox<Async<unit>> │
00:02:44 #4078 [verbose] > │ v17 │
00:02:44 #4079 [verbose] > │ #endif │
00:02:44 #4080 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:44 #4081 [verbose] > │ let v18 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:02:44 #4082 [verbose] > │ v18 │
00:02:44 #4083 [verbose] > │ #endif │
00:02:44 #4084 [verbose] > │ |> fun x -> _v1 <- Some x │
00:02:44 #4085 [verbose] > │ let v19 : Async<unit> = _v1.Value │
00:02:44 #4086 [verbose] > │ let v20 : unit option = None │
00:02:44 #4087 [verbose] > │ let mutable _v20 = v20 │
00:02:44 #4088 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:44 #4089 [verbose] > │ null |> unbox<unit> │
00:02:44 #4090 [verbose] > │ () │
00:02:44 #4091 [verbose] > │ #endif │
00:02:44 #4092 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:44 #4093 [verbose] > │ null |> unbox<unit> │
00:02:44 #4094 [verbose] > │ () │
00:02:44 #4095 [verbose] > │ #endif │
00:02:44 #4096 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:44 #4097 [verbose] > │ null |> unbox<unit> │
00:02:44 #4098 [verbose] > │ () │
00:02:44 #4099 [verbose] > │ #endif │
00:02:44 #4100 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:44 #4101 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:44 #4102 [verbose] > │ let v21 : (Async<unit> -> unit) = Async.RunSynchronously │
00:02:44 #4103 [verbose] > │ v21 v19 │
00:02:44 #4104 [verbose] > │ () │
00:02:44 #4105 [verbose] > │ #endif │
00:02:44 #4106 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:44 #4107 [verbose] > │ null |> unbox<unit> │
00:02:44 #4108 [verbose] > │ () │
00:02:44 #4109 [verbose] > │ #endif │
00:02:44 #4110 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:44 #4111 [verbose] > │ Unchecked.defaultof<unit> │
00:02:44 #4112 [verbose] > │ () │
00:02:44 #4113 [verbose] > │ #endif │
00:02:44 #4114 [verbose] > │ |> fun x -> _v20 <- Some x │
00:02:44 #4115 [verbose] > │ _v20.Value │
00:02:44 #4116 [verbose] > │ let v22 : int32 = v0.l0 │
00:02:44 #4117 [verbose] > │ let v23 : string = $"%A{v22}" │
00:02:44 #4118 [verbose] > │ System.Console.WriteLine v23 │
00:02:44 #4119 [verbose] > │ let v24 : bool = v22 = 1 │
00:02:44 #4120 [verbose] > │ let v26 : bool = │
00:02:44 #4121 [verbose] > │ if v24 then │
00:02:44 #4122 [verbose] > │ true │
00:02:44 #4123 [verbose] > │ else │
00:02:44 #4124 [verbose] > │ method1(v24) │
00:02:44 #4125 [verbose] > │ let v27 : string = $"__expect / actual: %A{v22} / expected: %A{1}" │
00:02:44 #4126 [verbose] > │ let v28 : bool = v26 = false │
00:02:44 #4127 [verbose] > │ if v28 then │
00:02:44 #4128 [verbose] > │ failwith<unit> v27 │
00:02:44 #4129 [verbose] > │ method0() │
00:02:44 #4130 [verbose] > │ │
00:02:44 #4131 [verbose] > │ 1 │
00:02:44 #4132 [verbose] > │ │
00:02:44 #4133 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:44 #4134 [verbose] >
00:02:44 #4135 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:44 #4136 [verbose] > // // test
00:02:44 #4137 [verbose] >
00:02:44 #4138 [verbose] > inl new_disposable_test = mut 0i32
00:02:44 #4139 [verbose] > fun () =>
00:02:44 #4140 [verbose] > new_disposable fun () => new_disposable_test <- *new_disposable_test + 1
00:02:44 #4141 [verbose] > |> fun x => x : disposable ()
00:02:44 #4142 [verbose] > |> ignore
00:02:44 #4143 [verbose] > |> return
00:02:44 #4144 [verbose] > |> async.new_async
00:02:44 #4145 [verbose] > |> async.run_synchronously
00:02:44 #4146 [verbose] > *new_disposable_test |> _assert_eq 0
00:02:44 #4147 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7e2751f865318d72a74e567e6a71cd1cd50f58b49e63225a1c7328db35c773d6\main.spi
00:02:44 #4148 [verbose] >
00:02:44 #4149 [verbose] > ╭─[ 378.32ms - stdout ]────────────────────────────────────────────────────────╮
00:02:44 #4150 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:44 #4151 [verbose] > │ let rec closure0 (v0 : Mut0) () : unit = │
00:02:44 #4152 [verbose] > │ let v1 : int32 = v0.l0 │
00:02:44 #4153 [verbose] > │ let v2 : int32 = v1 + 1 │
00:02:44 #4154 [verbose] > │ v0.l0 <- v2 │
00:02:44 #4155 [verbose] > │ () │
00:02:44 #4156 [verbose] > │ and method1 (v0 : bool) : bool = │
00:02:44 #4157 [verbose] > │ v0 │
00:02:44 #4158 [verbose] > │ and method0 () : unit = │
00:02:44 #4159 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:44 #4160 [verbose] > │ let v1 : Async<unit> option = None │
00:02:44 #4161 [verbose] > │ let mutable _v1 = v1 │
00:02:44 #4162 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:44 #4163 [verbose] > │ let v2 : Async<unit> = null |> unbox<Async<unit>> │
00:02:44 #4164 [verbose] > │ v2 │
00:02:44 #4165 [verbose] > │ #endif │
00:02:44 #4166 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:44 #4167 [verbose] > │ let v3 : Async<unit> = null |> unbox<Async<unit>> │
00:02:44 #4168 [verbose] > │ v3 │
00:02:44 #4169 [verbose] > │ #endif │
00:02:44 #4170 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:44 #4171 [verbose] > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:02:44 #4172 [verbose] > │ v4 │
00:02:44 #4173 [verbose] > │ #endif │
00:02:44 #4174 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:44 #4175 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:44 #4176 [verbose] > │ let v5 : Async<unit> option = None │
00:02:44 #4177 [verbose] > │ let mutable _v5 = v5 │
00:02:44 #4178 [verbose] > │ async { │
00:02:44 #4179 [verbose] > │ let v6 : System.IDisposable option = None │
00:02:44 #4180 [verbose] > │ let mutable _v6 = v6 │
00:02:44 #4181 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:44 #4182 [verbose] > │ let v7 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:44 #4183 [verbose] > │ v7 │
00:02:44 #4184 [verbose] > │ #endif │
00:02:44 #4185 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:44 #4186 [verbose] > │ let v8 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:44 #4187 [verbose] > │ v8 │
00:02:44 #4188 [verbose] > │ #endif │
00:02:44 #4189 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:44 #4190 [verbose] > │ let v9 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:44 #4191 [verbose] > │ v9 │
00:02:44 #4192 [verbose] > │ #endif │
00:02:44 #4193 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:44 #4194 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:44 #4195 [verbose] > │ let v10 : (unit -> unit) = closure0(v0) │
00:02:44 #4196 [verbose] > │ let v11 : System.IDisposable = { new System.IDisposable with member │
00:02:44 #4197 [verbose] > │ _.Dispose () = v10 () } │
00:02:44 #4198 [verbose] > │ v11 │
00:02:44 #4199 [verbose] > │ #endif │
00:02:44 #4200 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:44 #4201 [verbose] > │ let v12 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:44 #4202 [verbose] > │ v12 │
00:02:44 #4203 [verbose] > │ #endif │
00:02:44 #4204 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:44 #4205 [verbose] > │ let v13 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:44 #4206 [verbose] > │ v13 │
00:02:44 #4207 [verbose] > │ #endif │
00:02:44 #4208 [verbose] > │ |> fun x -> _v6 <- Some x │
00:02:44 #4209 [verbose] > │ let v14 : System.IDisposable = _v6.Value │
00:02:44 #4210 [verbose] > │ return () │
00:02:44 #4211 [verbose] > │ } │
00:02:44 #4212 [verbose] > │ |> fun x -> _v5 <- Some x │
00:02:44 #4213 [verbose] > │ let v15 : Async<unit> = _v5 |> Option.get │
00:02:44 #4214 [verbose] > │ v15 │
00:02:44 #4215 [verbose] > │ #endif │
00:02:44 #4216 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:44 #4217 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:02:44 #4218 [verbose] > │ v16 │
00:02:44 #4219 [verbose] > │ #endif │
00:02:44 #4220 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:44 #4221 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:02:44 #4222 [verbose] > │ v17 │
00:02:44 #4223 [verbose] > │ #endif │
00:02:44 #4224 [verbose] > │ |> fun x -> _v1 <- Some x │
00:02:44 #4225 [verbose] > │ let v18 : Async<unit> = _v1.Value │
00:02:44 #4226 [verbose] > │ let v19 : unit option = None │
00:02:44 #4227 [verbose] > │ let mutable _v19 = v19 │
00:02:44 #4228 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:44 #4229 [verbose] > │ null |> unbox<unit> │
00:02:44 #4230 [verbose] > │ () │
00:02:44 #4231 [verbose] > │ #endif │
00:02:44 #4232 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:44 #4233 [verbose] > │ null |> unbox<unit> │
00:02:44 #4234 [verbose] > │ () │
00:02:44 #4235 [verbose] > │ #endif │
00:02:44 #4236 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:44 #4237 [verbose] > │ null |> unbox<unit> │
00:02:44 #4238 [verbose] > │ () │
00:02:44 #4239 [verbose] > │ #endif │
00:02:44 #4240 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:44 #4241 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:44 #4242 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:02:44 #4243 [verbose] > │ v20 v18 │
00:02:44 #4244 [verbose] > │ () │
00:02:44 #4245 [verbose] > │ #endif │
00:02:44 #4246 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:44 #4247 [verbose] > │ null |> unbox<unit> │
00:02:44 #4248 [verbose] > │ () │
00:02:44 #4249 [verbose] > │ #endif │
00:02:44 #4250 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:44 #4251 [verbose] > │ Unchecked.defaultof<unit> │
00:02:44 #4252 [verbose] > │ () │
00:02:44 #4253 [verbose] > │ #endif │
00:02:44 #4254 [verbose] > │ |> fun x -> _v19 <- Some x │
00:02:44 #4255 [verbose] > │ _v19.Value │
00:02:44 #4256 [verbose] > │ let v21 : int32 = v0.l0 │
00:02:44 #4257 [verbose] > │ let v22 : string = $"%A{v21}" │
00:02:44 #4258 [verbose] > │ System.Console.WriteLine v22 │
00:02:44 #4259 [verbose] > │ let v23 : bool = v21 = 0 │
00:02:44 #4260 [verbose] > │ let v25 : bool = │
00:02:44 #4261 [verbose] > │ if v23 then │
00:02:44 #4262 [verbose] > │ true │
00:02:44 #4263 [verbose] > │ else │
00:02:44 #4264 [verbose] > │ method1(v23) │
00:02:44 #4265 [verbose] > │ let v26 : string = $"__expect / actual: %A{v21} / expected: %A{0}" │
00:02:44 #4266 [verbose] > │ let v27 : bool = v25 = false │
00:02:44 #4267 [verbose] > │ if v27 then │
00:02:44 #4268 [verbose] > │ failwith<unit> v26 │
00:02:44 #4269 [verbose] > │ method0() │
00:02:44 #4270 [verbose] > │ │
00:02:44 #4271 [verbose] > │ 0 │
00:02:44 #4272 [verbose] > │ │
00:02:44 #4273 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:44 #4274 [verbose] >
00:02:44 #4275 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:44 #4276 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:44 #4277 [verbose] > │ ## return │
00:02:44 #4278 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:44 #4279 [verbose] >
00:02:44 #4280 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:44 #4281 [verbose] > inl return forall t. (x : t) : () =
00:02:44 #4282 [verbose] > $'return !x '
00:02:44 #4283 [verbose] >
00:02:44 #4284 [verbose] > inl return' forall t. (x : t) : t =
00:02:44 #4285 [verbose] > $'return !x '
00:02:44 #4286 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9c047ad044622d8e10c45ff00e56feb37b7ebf727e1a2e2c5a6f32477cca46fc\main.spi
00:02:44 #4287 [verbose] >
00:02:44 #4288 [verbose] > ╭─[ 321.96ms - stdout ]────────────────────────────────────────────────────────╮
00:02:44 #4289 [verbose] > │ () │
00:02:44 #4290 [verbose] > │ │
00:02:44 #4291 [verbose] > │ │
00:02:44 #4292 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:44 #4293 [verbose] >
00:02:44 #4294 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:44 #4295 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:44 #4296 [verbose] > │ ## sleep │
00:02:44 #4297 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:44 #4298 [verbose] >
00:02:44 #4299 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:44 #4300 [verbose] > inl sleep (n : i32) : () =
00:02:44 #4301 [verbose] > run_target function
00:02:44 #4302 [verbose] > | Fsharp (Native) => fun () => $'System.Threading.Thread.Sleep' n
00:02:44 #4303 [verbose] > | _ => fun () => ()
00:02:45 #4304 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7d802e1df25a90cb12c59e1e9b360a02897e6e7f3a7699ae1691ff2c32cba329\main.spi
00:02:45 #4305 [verbose] >
00:02:45 #4306 [verbose] > ╭─[ 269.39ms - stdout ]────────────────────────────────────────────────────────╮
00:02:45 #4307 [verbose] > │ () │
00:02:45 #4308 [verbose] > │ │
00:02:45 #4309 [verbose] > │ │
00:02:45 #4310 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:45 #4311 [verbose] >
00:02:45 #4312 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:45 #4313 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:45 #4314 [verbose] > │ ## retry_fn │
00:02:45 #4315 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:45 #4316 [verbose] >
00:02:45 #4317 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:45 #4318 [verbose] > inl retry_fn forall t. retries (fn : () -> t) : option t =
00:02:45 #4319 [verbose] > let rec loop retry =
00:02:45 #4320 [verbose] > try
00:02:45 #4321 [verbose] > fun () =>
00:02:45 #4322 [verbose] > if retry < retries
00:02:45 #4323 [verbose] > then fn () |> Some
00:02:45 #4324 [verbose] > else None
00:02:45 #4325 [verbose] > fun ex =>
00:02:45 #4326 [verbose] > inl get_locals () = $'$"retry: {!retry} / ex: {ex |>
00:02:45 #4327 [verbose] > SpiralSm.format_exception} / {!get_locals ()}"' : string
00:02:45 #4328 [verbose] > // trace Warning (fun () => "retry_fn") getLocals
00:02:45 #4329 [verbose] > sleep 1
00:02:45 #4330 [verbose] > None
00:02:45 #4331 [verbose] > |> function
00:02:45 #4332 [verbose] > | Some x => x
00:02:45 #4333 [verbose] > | None => loop (retry + 1)
00:02:45 #4334 [verbose] > loop 0
00:02:45 #4335 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c0018edf58c699a6d5f7bc44e6d96cbff2f35c60820e32471370e97984a44a3d\main.spi
00:02:46 #4336 [verbose] >
00:02:46 #4337 [verbose] > ╭─[ 1.22s - stdout ]───────────────────────────────────────────────────────────╮
00:02:46 #4338 [verbose] > │ () │
00:02:46 #4339 [verbose] > │ │
00:02:46 #4340 [verbose] > │ │
00:02:46 #4341 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 #4342 [verbose] >
00:02:46 #4343 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:46 #4344 [verbose] > // // test
00:02:46 #4345 [verbose] >
00:02:46 #4346 [verbose] > inl retry_fn_test = mut 0i32
00:02:46 #4347 [verbose] > fun () =>
00:02:46 #4348 [verbose] > retry_fn_test <- *retry_fn_test + 1
00:02:46 #4349 [verbose] > *retry_fn_test
00:02:46 #4350 [verbose] > |> retry_fn 3i32
00:02:46 #4351 [verbose] > |> _assert_eq (Some 1i32)
00:02:46 #4352 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f0c2d2c511cd61296f65d84a55803b77110e9ad6ae1a916fa2cd6c6fc960e748\main.spi
00:02:46 #4353 [verbose] >
00:02:46 #4354 [verbose] > ╭─[ 416.04ms - stdout ]────────────────────────────────────────────────────────╮
00:02:46 #4355 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:46 #4356 [verbose] > │ and [<Struct>] US0 = │
00:02:46 #4357 [verbose] > │ | US0_0 of f0_0 : int32 │
00:02:46 #4358 [verbose] > │ | US0_1 │
00:02:46 #4359 [verbose] > │ and [<Struct>] US1 = │
00:02:46 #4360 [verbose] > │ | US1_0 of f0_0 : US0 │
00:02:46 #4361 [verbose] > │ | US1_1 │
00:02:46 #4362 [verbose] > │ let rec closure0 (v0 : Mut0, v1 : int32) () : US0 = │
00:02:46 #4363 [verbose] > │ let v2 : bool = v1 < 3 │
00:02:46 #4364 [verbose] > │ if v2 then │
00:02:46 #4365 [verbose] > │ let v3 : int32 = v0.l0 │
00:02:46 #4366 [verbose] > │ let v4 : int32 = v3 + 1 │
00:02:46 #4367 [verbose] > │ v0.l0 <- v4 │
00:02:46 #4368 [verbose] > │ let v5 : int32 = v0.l0 │
00:02:46 #4369 [verbose] > │ US0_0(v5) │
00:02:46 #4370 [verbose] > │ else │
00:02:46 #4371 [verbose] > │ US0_1 │
00:02:46 #4372 [verbose] > │ and closure1 () (v0 : US0) : US1 = │
00:02:46 #4373 [verbose] > │ US1_0(v0) │
00:02:46 #4374 [verbose] > │ and closure2 (v0 : int32) (v1 : exn) : US1 = │
00:02:46 #4375 [verbose] > │ let v2 : unit option = None │
00:02:46 #4376 [verbose] > │ let mutable _v2 = v2 │
00:02:46 #4377 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:46 #4378 [verbose] > │ () │
00:02:46 #4379 [verbose] > │ #endif │
00:02:46 #4380 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:46 #4381 [verbose] > │ () │
00:02:46 #4382 [verbose] > │ #endif │
00:02:46 #4383 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:46 #4384 [verbose] > │ () │
00:02:46 #4385 [verbose] > │ #endif │
00:02:46 #4386 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:46 #4387 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:46 #4388 [verbose] > │ let v3 : (int32 -> unit) = System.Threading.Thread.Sleep │
00:02:46 #4389 [verbose] > │ v3 1 │
00:02:46 #4390 [verbose] > │ () │
00:02:46 #4391 [verbose] > │ #endif │
00:02:46 #4392 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:46 #4393 [verbose] > │ () │
00:02:46 #4394 [verbose] > │ #endif │
00:02:46 #4395 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:46 #4396 [verbose] > │ Unchecked.defaultof<unit> │
00:02:46 #4397 [verbose] > │ () │
00:02:46 #4398 [verbose] > │ #endif │
00:02:46 #4399 [verbose] > │ |> fun x -> _v2 <- Some x │
00:02:46 #4400 [verbose] > │ _v2.Value │
00:02:46 #4401 [verbose] > │ US1_1 │
00:02:46 #4402 [verbose] > │ and method1 (v0 : Mut0, v1 : int32) : US0 = │
00:02:46 #4403 [verbose] > │ let v2 : (unit -> US0) = closure0(v0, v1) │
00:02:46 #4404 [verbose] > │ let v3 : (US0 -> US1) = closure1() │
00:02:46 #4405 [verbose] > │ let v4 : (exn -> US1) = closure2(v1) │
00:02:46 #4406 [verbose] > │ let v5 : US1 = try v2 () |> v3 with ex -> v4 ex │
00:02:46 #4407 [verbose] > │ match v5 with │
00:02:46 #4408 [verbose] > │ | US1_1 -> (* None *) │
00:02:46 #4409 [verbose] > │ let v7 : int32 = v1 + 1 │
00:02:46 #4410 [verbose] > │ method1(v0, v7) │
00:02:46 #4411 [verbose] > │ | US1_0(v6) -> (* Some *) │
00:02:46 #4412 [verbose] > │ v6 │
00:02:46 #4413 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:46 #4414 [verbose] > │ v0 │
00:02:46 #4415 [verbose] > │ and method0 () : unit = │
00:02:46 #4416 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:46 #4417 [verbose] > │ let v1 : int32 = 0 │
00:02:46 #4418 [verbose] > │ let v2 : US0 = method1(v0, v1) │
00:02:46 #4419 [verbose] > │ let v3 : string = $"%A{v2}" │
00:02:46 #4420 [verbose] > │ System.Console.WriteLine v3 │
00:02:46 #4421 [verbose] > │ let v7 : bool = │
00:02:46 #4422 [verbose] > │ match v2 with │
00:02:46 #4423 [verbose] > │ | US0_0(v5) -> (* Some *) │
00:02:46 #4424 [verbose] > │ let v6 : bool = v5 = 1 │
00:02:46 #4425 [verbose] > │ v6 │
00:02:46 #4426 [verbose] > │ | _ -> │
00:02:46 #4427 [verbose] > │ false │
00:02:46 #4428 [verbose] > │ let v9 : bool = │
00:02:46 #4429 [verbose] > │ if v7 then │
00:02:46 #4430 [verbose] > │ true │
00:02:46 #4431 [verbose] > │ else │
00:02:46 #4432 [verbose] > │ method2(v7) │
00:02:46 #4433 [verbose] > │ let v10 : US0 = US0_0(1) │
00:02:46 #4434 [verbose] > │ let v11 : string = $"__expect / actual: %A{v2} / expected: %A{v10}" │
00:02:46 #4435 [verbose] > │ let v12 : bool = v9 = false │
00:02:46 #4436 [verbose] > │ if v12 then │
00:02:46 #4437 [verbose] > │ failwith<unit> v11 │
00:02:46 #4438 [verbose] > │ method0() │
00:02:46 #4439 [verbose] > │ │
00:02:46 #4440 [verbose] > │ US0_0 1 │
00:02:46 #4441 [verbose] > │ │
00:02:46 #4442 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:46 #4443 [verbose] >
00:02:46 #4444 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:46 #4445 [verbose] > // // test
00:02:46 #4446 [verbose] >
00:02:46 #4447 [verbose] > inl retry_fn_test = mut 0i32
00:02:46 #4448 [verbose] > fun () =>
00:02:46 #4449 [verbose] > if *retry_fn_test >= 2
00:02:46 #4450 [verbose] > then *retry_fn_test
00:02:46 #4451 [verbose] > else
00:02:46 #4452 [verbose] > retry_fn_test <- *retry_fn_test + 1
00:02:46 #4453 [verbose] > failwith "test"
00:02:46 #4454 [verbose] > |> retry_fn 3i32
00:02:46 #4455 [verbose] > |> _assert_eq (Some 2i32)
00:02:47 #4456 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7880bce669634978ef573cfc2fc81060c12a6665fcde0b94e876e9fe56d2dded\main.spi
00:02:47 #4457 [verbose] >
00:02:47 #4458 [verbose] > ╭─[ 368.29ms - stdout ]────────────────────────────────────────────────────────╮
00:02:47 #4459 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:02:47 #4460 [verbose] > │ and [<Struct>] US0 = │
00:02:47 #4461 [verbose] > │ | US0_0 of f0_0 : int32 │
00:02:47 #4462 [verbose] > │ | US0_1 │
00:02:47 #4463 [verbose] > │ and [<Struct>] US1 = │
00:02:47 #4464 [verbose] > │ | US1_0 of f0_0 : US0 │
00:02:47 #4465 [verbose] > │ | US1_1 │
00:02:47 #4466 [verbose] > │ let rec closure0 (v0 : Mut0, v1 : int32) () : US0 = │
00:02:47 #4467 [verbose] > │ let v2 : bool = v1 < 3 │
00:02:47 #4468 [verbose] > │ if v2 then │
00:02:47 #4469 [verbose] > │ let v3 : int32 = v0.l0 │
00:02:47 #4470 [verbose] > │ let v4 : bool = v3 >= 2 │
00:02:47 #4471 [verbose] > │ let v9 : int32 = │
00:02:47 #4472 [verbose] > │ if v4 then │
00:02:47 #4473 [verbose] > │ let v5 : int32 = v0.l0 │
00:02:47 #4474 [verbose] > │ v5 │
00:02:47 #4475 [verbose] > │ else │
00:02:47 #4476 [verbose] > │ let v6 : int32 = v0.l0 │
00:02:47 #4477 [verbose] > │ let v7 : int32 = v6 + 1 │
00:02:47 #4478 [verbose] > │ v0.l0 <- v7 │
00:02:47 #4479 [verbose] > │ failwith<int32> "test" │
00:02:47 #4480 [verbose] > │ US0_0(v9) │
00:02:47 #4481 [verbose] > │ else │
00:02:47 #4482 [verbose] > │ US0_1 │
00:02:47 #4483 [verbose] > │ and closure1 () (v0 : US0) : US1 = │
00:02:47 #4484 [verbose] > │ US1_0(v0) │
00:02:47 #4485 [verbose] > │ and closure2 (v0 : int32) (v1 : exn) : US1 = │
00:02:47 #4486 [verbose] > │ let v2 : unit option = None │
00:02:47 #4487 [verbose] > │ let mutable _v2 = v2 │
00:02:47 #4488 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:47 #4489 [verbose] > │ () │
00:02:47 #4490 [verbose] > │ #endif │
00:02:47 #4491 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:47 #4492 [verbose] > │ () │
00:02:47 #4493 [verbose] > │ #endif │
00:02:47 #4494 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:47 #4495 [verbose] > │ () │
00:02:47 #4496 [verbose] > │ #endif │
00:02:47 #4497 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:47 #4498 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:47 #4499 [verbose] > │ let v3 : (int32 -> unit) = System.Threading.Thread.Sleep │
00:02:47 #4500 [verbose] > │ v3 1 │
00:02:47 #4501 [verbose] > │ () │
00:02:47 #4502 [verbose] > │ #endif │
00:02:47 #4503 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:47 #4504 [verbose] > │ () │
00:02:47 #4505 [verbose] > │ #endif │
00:02:47 #4506 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:47 #4507 [verbose] > │ Unchecked.defaultof<unit> │
00:02:47 #4508 [verbose] > │ () │
00:02:47 #4509 [verbose] > │ #endif │
00:02:47 #4510 [verbose] > │ |> fun x -> _v2 <- Some x │
00:02:47 #4511 [verbose] > │ _v2.Value │
00:02:47 #4512 [verbose] > │ US1_1 │
00:02:47 #4513 [verbose] > │ and method1 (v0 : Mut0, v1 : int32) : US0 = │
00:02:47 #4514 [verbose] > │ let v2 : (unit -> US0) = closure0(v0, v1) │
00:02:47 #4515 [verbose] > │ let v3 : (US0 -> US1) = closure1() │
00:02:47 #4516 [verbose] > │ let v4 : (exn -> US1) = closure2(v1) │
00:02:47 #4517 [verbose] > │ let v5 : US1 = try v2 () |> v3 with ex -> v4 ex │
00:02:47 #4518 [verbose] > │ match v5 with │
00:02:47 #4519 [verbose] > │ | US1_1 -> (* None *) │
00:02:47 #4520 [verbose] > │ let v7 : int32 = v1 + 1 │
00:02:47 #4521 [verbose] > │ method1(v0, v7) │
00:02:47 #4522 [verbose] > │ | US1_0(v6) -> (* Some *) │
00:02:47 #4523 [verbose] > │ v6 │
00:02:47 #4524 [verbose] > │ and method2 (v0 : bool) : bool = │
00:02:47 #4525 [verbose] > │ v0 │
00:02:47 #4526 [verbose] > │ and method0 () : unit = │
00:02:47 #4527 [verbose] > │ let v0 : Mut0 = {l0 = 0} : Mut0 │
00:02:47 #4528 [verbose] > │ let v1 : int32 = 0 │
00:02:47 #4529 [verbose] > │ let v2 : US0 = method1(v0, v1) │
00:02:47 #4530 [verbose] > │ let v3 : string = $"%A{v2}" │
00:02:47 #4531 [verbose] > │ System.Console.WriteLine v3 │
00:02:47 #4532 [verbose] > │ let v7 : bool = │
00:02:47 #4533 [verbose] > │ match v2 with │
00:02:47 #4534 [verbose] > │ | US0_0(v5) -> (* Some *) │
00:02:47 #4535 [verbose] > │ let v6 : bool = v5 = 2 │
00:02:47 #4536 [verbose] > │ v6 │
00:02:47 #4537 [verbose] > │ | _ -> │
00:02:47 #4538 [verbose] > │ false │
00:02:47 #4539 [verbose] > │ let v9 : bool = │
00:02:47 #4540 [verbose] > │ if v7 then │
00:02:47 #4541 [verbose] > │ true │
00:02:47 #4542 [verbose] > │ else │
00:02:47 #4543 [verbose] > │ method2(v7) │
00:02:47 #4544 [verbose] > │ let v10 : US0 = US0_0(2) │
00:02:47 #4545 [verbose] > │ let v11 : string = $"__expect / actual: %A{v2} / expected: %A{v10}" │
00:02:47 #4546 [verbose] > │ let v12 : bool = v9 = false │
00:02:47 #4547 [verbose] > │ if v12 then │
00:02:47 #4548 [verbose] > │ failwith<unit> v11 │
00:02:47 #4549 [verbose] > │ method0() │
00:02:47 #4550 [verbose] > │ │
00:02:47 #4551 [verbose] > │ US0_0 2 │
00:02:47 #4552 [verbose] > │ │
00:02:47 #4553 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:47 #4554 [verbose] >
00:02:47 #4555 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:47 #4556 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:47 #4557 [verbose] > │ ## main │
00:02:47 #4558 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:47 #4559 [verbose] >
00:02:47 #4560 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:47 #4561 [verbose] > inl main () =
00:02:47 #4562 [verbose] > inl new_disposable x : _ () = new_disposable x
00:02:47 #4563 [verbose] > $"let new_disposable x = !new_disposable x" : ()
00:02:47 #4564 [verbose] >
00:02:47 #4565 [verbose] > inl retry_fn (r : i32) (x : () -> _) : optionm'.option' () = retry_fn r x |>
00:02:47 #4566 [verbose] > optionm'.box
00:02:47 #4567 [verbose] > $"let retry_fn x = !retry_fn x" : ()
00:02:47 #4568 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\45d9a09e9ca6f4ca00c2facb6f5542841a82faf81bb35923865509e3fcb801b1\main.spi
00:02:47 #4569 [verbose] >
00:02:47 #4570 [verbose] > ╭─[ 343.06ms - stdout ]────────────────────────────────────────────────────────╮
00:02:47 #4571 [verbose] > │ type [<Struct>] US0 = │
00:02:47 #4572 [verbose] > │ | US0_0 │
00:02:47 #4573 [verbose] > │ | US0_1 │
00:02:47 #4574 [verbose] > │ and [<Struct>] US1 = │
00:02:47 #4575 [verbose] > │ | US1_0 of f0_0 : US0 │
00:02:47 #4576 [verbose] > │ | US1_1 │
00:02:47 #4577 [verbose] > │ let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable = │
00:02:47 #4578 [verbose] > │ let v1 : System.IDisposable option = None │
00:02:47 #4579 [verbose] > │ let mutable _v1 = v1 │
00:02:47 #4580 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:47 #4581 [verbose] > │ let v2 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:47 #4582 [verbose] > │ v2 │
00:02:47 #4583 [verbose] > │ #endif │
00:02:47 #4584 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:47 #4585 [verbose] > │ let v3 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:47 #4586 [verbose] > │ v3 │
00:02:47 #4587 [verbose] > │ #endif │
00:02:47 #4588 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:47 #4589 [verbose] > │ let v4 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:47 #4590 [verbose] > │ v4 │
00:02:47 #4591 [verbose] > │ #endif │
00:02:47 #4592 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:47 #4593 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:47 #4594 [verbose] > │ let v5 : System.IDisposable = { new System.IDisposable with member │
00:02:47 #4595 [verbose] > │ _.Dispose () = v0 () } │
00:02:47 #4596 [verbose] > │ v5 │
00:02:47 #4597 [verbose] > │ #endif │
00:02:47 #4598 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:47 #4599 [verbose] > │ let v6 : System.IDisposable = null |> unbox<System.IDisposable> │
00:02:47 #4600 [verbose] > │ v6 │
00:02:47 #4601 [verbose] > │ #endif │
00:02:47 #4602 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:47 #4603 [verbose] > │ let v7 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:02:47 #4604 [verbose] > │ v7 │
00:02:47 #4605 [verbose] > │ #endif │
00:02:47 #4606 [verbose] > │ |> fun x -> _v1 <- Some x │
00:02:47 #4607 [verbose] > │ let v8 : System.IDisposable = _v1.Value │
00:02:47 #4608 [verbose] > │ v8 │
00:02:47 #4609 [verbose] > │ and closure3 (v0 : int32, v1 : (unit -> unit), v2 : int32) () : US0 = │
00:02:47 #4610 [verbose] > │ let v3 : bool = v2 < v0 │
00:02:47 #4611 [verbose] > │ if v3 then │
00:02:47 #4612 [verbose] > │ v1 () │
00:02:47 #4613 [verbose] > │ US0_0 │
00:02:47 #4614 [verbose] > │ else │
00:02:47 #4615 [verbose] > │ US0_1 │
00:02:47 #4616 [verbose] > │ and closure4 () (v0 : US0) : US1 = │
00:02:47 #4617 [verbose] > │ US1_0(v0) │
00:02:47 #4618 [verbose] > │ and closure5 (v0 : int32) (v1 : exn) : US1 = │
00:02:47 #4619 [verbose] > │ let v2 : unit option = None │
00:02:47 #4620 [verbose] > │ let mutable _v2 = v2 │
00:02:47 #4621 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:02:47 #4622 [verbose] > │ () │
00:02:47 #4623 [verbose] > │ #endif │
00:02:47 #4624 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:02:47 #4625 [verbose] > │ () │
00:02:47 #4626 [verbose] > │ #endif │
00:02:47 #4627 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:02:47 #4628 [verbose] > │ () │
00:02:47 #4629 [verbose] > │ #endif │
00:02:47 #4630 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:02:47 #4631 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:02:47 #4632 [verbose] > │ let v3 : (int32 -> unit) = System.Threading.Thread.Sleep │
00:02:47 #4633 [verbose] > │ v3 1 │
00:02:47 #4634 [verbose] > │ () │
00:02:47 #4635 [verbose] > │ #endif │
00:02:47 #4636 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:02:47 #4637 [verbose] > │ () │
00:02:47 #4638 [verbose] > │ #endif │
00:02:47 #4639 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:02:47 #4640 [verbose] > │ Unchecked.defaultof<unit> │
00:02:47 #4641 [verbose] > │ () │
00:02:47 #4642 [verbose] > │ #endif │
00:02:47 #4643 [verbose] > │ |> fun x -> _v2 <- Some x │
00:02:47 #4644 [verbose] > │ _v2.Value │
00:02:47 #4645 [verbose] > │ US1_1 │
00:02:47 #4646 [verbose] > │ and method0 (v0 : int32, v1 : (unit -> unit), v2 : int32) : US0 = │
00:02:47 #4647 [verbose] > │ let v3 : (unit -> US0) = closure3(v0, v1, v2) │
00:02:47 #4648 [verbose] > │ let v4 : (US0 -> US1) = closure4() │
00:02:47 #4649 [verbose] > │ let v5 : (exn -> US1) = closure5(v2) │
00:02:47 #4650 [verbose] > │ let v6 : US1 = try v3 () |> v4 with ex -> v5 ex │
00:02:47 #4651 [verbose] > │ match v6 with │
00:02:47 #4652 [verbose] > │ | US1_1 -> (* None *) │
00:02:47 #4653 [verbose] > │ let v8 : int32 = v2 + 1 │
00:02:47 #4654 [verbose] > │ method0(v0, v1, v8) │
00:02:47 #4655 [verbose] > │ | US1_0(v7) -> (* Some *) │
00:02:47 #4656 [verbose] > │ v7 │
00:02:47 #4657 [verbose] > │ and closure2 (v0 : int32) (v1 : (unit -> unit)) : unit option = │
00:02:47 #4658 [verbose] > │ let v2 : int32 = 0 │
00:02:47 #4659 [verbose] > │ let v3 : US0 = method0(v0, v1, v2) │
00:02:47 #4660 [verbose] > │ match v3 with │
00:02:47 #4661 [verbose] > │ | US0_1 -> (* None *) │
00:02:47 #4662 [verbose] > │ let v5 : unit option = None │
00:02:47 #4663 [verbose] > │ v5 │
00:02:47 #4664 [verbose] > │ | US0_0 -> (* Some *) │
00:02:47 #4665 [verbose] > │ let v4 : unit option = Some () │
00:02:47 #4666 [verbose] > │ v4 │
00:02:47 #4667 [verbose] > │ and closure1 () (v0 : int32) : ((unit -> unit) -> unit option) = │
00:02:47 #4668 [verbose] > │ closure2(v0) │
00:02:47 #4669 [verbose] > │ let v0 : ((unit -> unit) -> System.IDisposable) = closure0() │
00:02:47 #4670 [verbose] > │ let new_disposable x = v0 x │
00:02:47 #4671 [verbose] > │ let v1 : (int32 -> ((unit -> unit) -> unit option)) = closure1() │
00:02:47 #4672 [verbose] > │ let retry_fn x = v1 x │
00:02:47 #4673 [verbose] > │ () │
00:02:47 #4674 [verbose] > │ │
00:02:47 #4675 [verbose] > │ │
00:02:47 #4676 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:49 #4677 [verbose] > [NbConvertApp] Converting notebook common.dib.ipynb to html
00:02:49 #4678 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:02:49 #4679 [verbose] > validate(nb)
00:02:50 #4680 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:02:50 #4681 [verbose] > return _pygments_highlight(
00:02:51 #4682 [verbose] > [NbConvertApp] Writing 397941 bytes to common.dib.html
00:02:51 #4683 [debug] executeAsync / exitCode: 0 / output.Length: 130410
00:02:51 #4684 [debug] main / executeCommand / exitCode: 0
00:02:51 #4685 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 console.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:02:54 #4686 [verbose] >
00:02:54 #4687 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:54 #4688 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:54 #4689 [verbose] > │ # console │
00:02:54 #4690 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:54 #4691 [verbose] >
00:02:54 #4692 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:54 #4693 [verbose] > // // test
00:02:54 #4694 [verbose] >
00:02:54 #4695 [verbose] > open testing
00:02:58 #4696 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:02:59 #4697 [verbose] >
00:02:59 #4698 [verbose] > ╭─[ 4.20s - stdout ]───────────────────────────────────────────────────────────╮
00:02:59 #4699 [verbose] > │ () │
00:02:59 #4700 [verbose] > │ │
00:02:59 #4701 [verbose] > │ │
00:02:59 #4702 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:59 #4703 [verbose] >
00:02:59 #4704 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:02:59 #4705 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:02:59 #4706 [verbose] > │ ## write_line │
00:02:59 #4707 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:59 #4708 [verbose] >
00:02:59 #4709 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:59 #4710 [verbose] > inl write_line obj : () =
00:02:59 #4711 [verbose] > $"System.Console.WriteLine !obj"
00:02:59 #4712 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8734924cc556d38ddd4fe9d78b6dfed880f3092692ae54965b235b33bbc96230\main.spi
00:02:59 #4713 [verbose] >
00:02:59 #4714 [verbose] > ╭─[ 277.47ms - stdout ]────────────────────────────────────────────────────────╮
00:02:59 #4715 [verbose] > │ () │
00:02:59 #4716 [verbose] > │ │
00:02:59 #4717 [verbose] > │ │
00:02:59 #4718 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:59 #4719 [verbose] >
00:02:59 #4720 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:59 #4721 [verbose] > inl write_line_ ~obj : () =
00:02:59 #4722 [verbose] > $"System.Console.WriteLine !obj"
00:02:59 #4723 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ffaaa2487bdb8cfacc66c52e1a4dcc7ef33c94cbbd6668b8d01a1910eaf1fc2a\main.spi
00:02:59 #4724 [verbose] >
00:02:59 #4725 [verbose] > ╭─[ 241.63ms - stdout ]────────────────────────────────────────────────────────╮
00:02:59 #4726 [verbose] > │ () │
00:02:59 #4727 [verbose] > │ │
00:02:59 #4728 [verbose] > │ │
00:02:59 #4729 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:02:59 #4730 [verbose] >
00:02:59 #4731 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:02:59 #4732 [verbose] > nominal console_color = $"System.ConsoleColor"
00:02:59 #4733 [verbose] >
00:02:59 #4734 [verbose] > inl reset_color () : () =
00:02:59 #4735 [verbose] > run_target function
00:02:59 #4736 [verbose] > | Fsharp => fun () => $"System.Console.ResetColor ()"
00:02:59 #4737 [verbose] > | _ => fun () => ()
00:02:59 #4738 [verbose] >
00:02:59 #4739 [verbose] > inl set_foreground_color (color : console_color) : () =
00:02:59 #4740 [verbose] > run_target function
00:02:59 #4741 [verbose] > | Fsharp => fun () => $"System.Console.ForegroundColor <- !color"
00:02:59 #4742 [verbose] > | _ => fun () => ()
00:02:59 #4743 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e5b6fb32e8bdd3db4dce6c028f792dc4c7b1febe5ab70e4c0ab6cf1a7a579ffe\main.spi
00:02:59 #4744 [verbose] >
00:02:59 #4745 [verbose] > ╭─[ 311.26ms - stdout ]────────────────────────────────────────────────────────╮
00:02:59 #4746 [verbose] > │ () │
00:02:59 #4747 [verbose] > │ │
00:02:59 #4748 [verbose] > │ │
00:02:59 #4749 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:01 #4750 [verbose] > [NbConvertApp] Converting notebook console.dib.ipynb to html
00:03:01 #4751 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:01 #4752 [verbose] > validate(nb)
00:03:02 #4753 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:03:02 #4754 [verbose] > return _pygments_highlight(
00:03:02 #4755 [verbose] > [NbConvertApp] Writing 276933 bytes to console.dib.html
00:03:03 #4756 [debug] executeAsync / exitCode: 0 / output.Length: 3869
00:03:03 #4757 [debug] main / executeCommand / exitCode: 0
00:03:03 #4758 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 date_time.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:03:05 #4759 [verbose] >
00:03:06 #4760 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:06 #4761 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:06 #4762 [verbose] > │ # date_time │
00:03:06 #4763 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:06 #4764 [verbose] >
00:03:06 #4765 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:06 #4766 [verbose] > open rust_operators
00:03:06 #4767 [verbose] > open sm'_operators
00:03:09 #4768 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\032c8b088372ab832664d98a64dd782e20000598cb6f954fca120c7fcc91e0cc\main.spi
00:03:10 #4769 [verbose] >
00:03:10 #4770 [verbose] > ╭─[ 4.30s - stdout ]───────────────────────────────────────────────────────────╮
00:03:10 #4771 [verbose] > │ () │
00:03:10 #4772 [verbose] > │ │
00:03:10 #4773 [verbose] > │ │
00:03:10 #4774 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:10 #4775 [verbose] >
00:03:10 #4776 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:10 #4777 [verbose] > // // test
00:03:10 #4778 [verbose] >
00:03:10 #4779 [verbose] > open testing
00:03:10 #4780 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7d7acecd62a06a4005bd00e248722e32f4574e14d082c2ccfef1dbc96319cca4\main.spi
00:03:10 #4781 [verbose] >
00:03:10 #4782 [verbose] > ╭─[ 331.85ms - stdout ]────────────────────────────────────────────────────────╮
00:03:10 #4783 [verbose] > │ () │
00:03:10 #4784 [verbose] > │ │
00:03:10 #4785 [verbose] > │ │
00:03:10 #4786 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:10 #4787 [verbose] >
00:03:10 #4788 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:10 #4789 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:10 #4790 [verbose] > │ ## types │
00:03:10 #4791 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:10 #4792 [verbose] >
00:03:10 #4793 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:10 #4794 [verbose] > inl types () =
00:03:10 #4795 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::DateTime<$0>\")>]]
00:03:10 #4796 [verbose] > type chrono_DateTime<'T> = class end"
00:03:10 #4797 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::Local\")>]] type
00:03:10 #4798 [verbose] > chrono_Local = class end"
00:03:10 #4799 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::NaiveDateTime\")>]]
00:03:10 #4800 [verbose] > type chrono_NaiveDateTime = class end"
00:03:10 #4801 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"chrono::Utc\")>]] type
00:03:10 #4802 [verbose] > chrono_Utc = class end"
00:03:10 #4803 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::time::Duration\")>]]
00:03:10 #4804 [verbose] > type std_time_Duration = class end"
00:03:10 #4805 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2953bf1a005214994e27ad55daafee82b9bf77a24b4393dfffbdabcfb93b8c88\main.spi
00:03:10 #4806 [verbose] >
00:03:10 #4807 [verbose] > ╭─[ 225.48ms - stdout ]────────────────────────────────────────────────────────╮
00:03:10 #4808 [verbose] > │ () │
00:03:10 #4809 [verbose] > │ │
00:03:10 #4810 [verbose] > │ │
00:03:10 #4811 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:10 #4812 [verbose] >
00:03:10 #4813 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:10 #4814 [verbose] > nominal timestamp = i64
00:03:10 #4815 [verbose] > nominal duration = $"std_time_Duration"
00:03:10 #4816 [verbose] > nominal date_time = $"System.DateTime"
00:03:10 #4817 [verbose] > nominal date_time' t = $"chrono_DateTime<`t>"
00:03:10 #4818 [verbose] > nominal local = $"chrono_Local"
00:03:10 #4819 [verbose] > nominal naive_date_time = $"chrono_NaiveDateTime"
00:03:10 #4820 [verbose] > nominal utc = $"chrono_Utc"
00:03:11 #4821 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6c0b3e9ca3c9907dd971325e2bd5b81c8762e32927fe516cb10ed1c7b55c1026\main.spi
00:03:11 #4822 [verbose] >
00:03:11 #4823 [verbose] > ╭─[ 267.97ms - stdout ]────────────────────────────────────────────────────────╮
00:03:11 #4824 [verbose] > │ () │
00:03:11 #4825 [verbose] > │ │
00:03:11 #4826 [verbose] > │ │
00:03:11 #4827 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #4828 [verbose] >
00:03:11 #4829 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:11 #4830 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:11 #4831 [verbose] > │ ## date_time_milliseconds │
00:03:11 #4832 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #4833 [verbose] >
00:03:11 #4834 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:11 #4835 [verbose] > inl date_time_milliseconds
00:03:11 #4836 [verbose] > (year : int) (month : int) (day : int) (hour : int) (minute : int) (second :
00:03:11 #4837 [verbose] > int) (millisecond : int)
00:03:11 #4838 [verbose] > : date_time
00:03:11 #4839 [verbose] > =
00:03:11 #4840 [verbose] > $'System.DateTime (!year, !month, !day, !hour, !minute, !second,
00:03:11 #4841 [verbose] > !millisecond)'
00:03:11 #4842 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0271928b63f588de19cca51efb9201b132137fa01b1be39316ed7b0961e2b9bd\main.spi
00:03:11 #4843 [verbose] >
00:03:11 #4844 [verbose] > ╭─[ 247.07ms - stdout ]────────────────────────────────────────────────────────╮
00:03:11 #4845 [verbose] > │ () │
00:03:11 #4846 [verbose] > │ │
00:03:11 #4847 [verbose] > │ │
00:03:11 #4848 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #4849 [verbose] >
00:03:11 #4850 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:11 #4851 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:11 #4852 [verbose] > │ ## naive_utc │
00:03:11 #4853 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #4854 [verbose] >
00:03:11 #4855 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:11 #4856 [verbose] > inl naive_utc (date_time : date_time' utc) : naive_date_time =
00:03:11 #4857 [verbose] > inl date_time = join date_time
00:03:11 #4858 [verbose] > !\($'"!date_time.naive_utc()"')
00:03:11 #4859 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f136473bb2a4a3e1002489893b76030aa31c96f68964997f6f4d7b246f3a412f\main.spi
00:03:11 #4860 [verbose] >
00:03:11 #4861 [verbose] > ╭─[ 237.08ms - stdout ]────────────────────────────────────────────────────────╮
00:03:11 #4862 [verbose] > │ () │
00:03:11 #4863 [verbose] > │ │
00:03:11 #4864 [verbose] > │ │
00:03:11 #4865 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #4866 [verbose] >
00:03:11 #4867 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:11 #4868 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:11 #4869 [verbose] > │ ## to_local │
00:03:11 #4870 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #4871 [verbose] >
00:03:11 #4872 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:11 #4873 [verbose] > inl to_local (date_time : date_time' utc) : date_time' local =
00:03:11 #4874 [verbose] > inl naive_date_time = date_time |> naive_utc
00:03:11 #4875 [verbose] > !\($'"chrono::offset::TimeZone::from_utc_datetime(&chrono::Local,
00:03:11 #4876 [verbose] > &!naive_date_time)"')
00:03:11 #4877 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0897c4a048fe611e4d311e87bf5cafaf43cd196958e8cbcf0b04408e4ee841c7\main.spi
00:03:11 #4878 [verbose] >
00:03:11 #4879 [verbose] > ╭─[ 266.65ms - stdout ]────────────────────────────────────────────────────────╮
00:03:11 #4880 [verbose] > │ () │
00:03:11 #4881 [verbose] > │ │
00:03:11 #4882 [verbose] > │ │
00:03:11 #4883 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #4884 [verbose] >
00:03:11 #4885 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:11 #4886 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:11 #4887 [verbose] > │ ## from_timestamp' │
00:03:11 #4888 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:11 #4889 [verbose] >
00:03:11 #4890 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:11 #4891 [verbose] > inl from_timestamp' forall t {number; int}. (timestamp : t) : option (date_time'
00:03:11 #4892 [verbose] > utc) =
00:03:11 #4893 [verbose] > inl timestamp = join timestamp
00:03:11 #4894 [verbose] > inl result : optionm'.option' (date_time' utc) =
00:03:11 #4895 [verbose] > !\($'"chrono::DateTime::from_timestamp_micros(!timestamp / 1000i64)"')
00:03:11 #4896 [verbose] > result |> optionm'.unbox
00:03:12 #4897 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dcb1b12acef991d762d9849665274969876964ba4adeba360022a8c7b6383e75\main.spi
00:03:12 #4898 [verbose] >
00:03:12 #4899 [verbose] > ╭─[ 244.45ms - stdout ]────────────────────────────────────────────────────────╮
00:03:12 #4900 [verbose] > │ () │
00:03:12 #4901 [verbose] > │ │
00:03:12 #4902 [verbose] > │ │
00:03:12 #4903 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:12 #4904 [verbose] >
00:03:12 #4905 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:12 #4906 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:12 #4907 [verbose] > │ ## ticks │
00:03:12 #4908 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:12 #4909 [verbose] >
00:03:12 #4910 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:12 #4911 [verbose] > inl ticks (date_time : date_time) : timestamp =
00:03:12 #4912 [verbose] > date_time |> $'_.Ticks'
00:03:12 #4913 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1f72db073283544225a1ed8197dcb6980e3e903370b4f91d0548fee8470046ed\main.spi
00:03:12 #4914 [verbose] >
00:03:12 #4915 [verbose] > ╭─[ 280.10ms - stdout ]────────────────────────────────────────────────────────╮
00:03:12 #4916 [verbose] > │ () │
00:03:12 #4917 [verbose] > │ │
00:03:12 #4918 [verbose] > │ │
00:03:12 #4919 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:12 #4920 [verbose] >
00:03:12 #4921 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:12 #4922 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:12 #4923 [verbose] > │ ## format │
00:03:12 #4924 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:12 #4925 [verbose] >
00:03:12 #4926 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:12 #4927 [verbose] > inl format (format : string) (date_time : date_time) : string =
00:03:12 #4928 [verbose] > $'!date_time.ToString' format
00:03:12 #4929 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9ba3706405fa5713e40e9c593d68455da31ea6f00be428bfc7312d71c43fed40\main.spi
00:03:12 #4930 [verbose] >
00:03:12 #4931 [verbose] > ╭─[ 243.55ms - stdout ]────────────────────────────────────────────────────────╮
00:03:12 #4932 [verbose] > │ () │
00:03:12 #4933 [verbose] > │ │
00:03:12 #4934 [verbose] > │ │
00:03:12 #4935 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:12 #4936 [verbose] >
00:03:12 #4937 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:12 #4938 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:12 #4939 [verbose] > │ ## format_iso8601 │
00:03:12 #4940 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:12 #4941 [verbose] >
00:03:12 #4942 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:12 #4943 [verbose] > inl format_iso8601 (date_time : date_time) =
00:03:12 #4944 [verbose] > date_time |> format "yyyy-MM-ddTHH-mm-ss.fff"
00:03:12 #4945 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\61b6d8ba614785689d10e277624ac581fbf2736b552fc6f6a268bfc278e21503\main.spi
00:03:13 #4946 [verbose] >
00:03:13 #4947 [verbose] > ╭─[ 285.89ms - stdout ]────────────────────────────────────────────────────────╮
00:03:13 #4948 [verbose] > │ () │
00:03:13 #4949 [verbose] > │ │
00:03:13 #4950 [verbose] > │ │
00:03:13 #4951 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 #4952 [verbose] >
00:03:13 #4953 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:13 #4954 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:13 #4955 [verbose] > │ ## format' │
00:03:13 #4956 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 #4957 [verbose] >
00:03:13 #4958 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:13 #4959 [verbose] > inl format' (format : string) (date_time : date_time' utc) : sm'.std_string =
00:03:13 #4960 [verbose] > inl format = #format
00:03:13 #4961 [verbose] > inl date_time = join date_time
00:03:13 #4962 [verbose] > !\($'"!date_time.format(!format).to_string()"')
00:03:13 #4963 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\188deee443dcf7f329cca702191cee12e0b05d39739160b8e9cac2317e87b672\main.spi
00:03:13 #4964 [verbose] >
00:03:13 #4965 [verbose] > ╭─[ 269.86ms - stdout ]────────────────────────────────────────────────────────╮
00:03:13 #4966 [verbose] > │ () │
00:03:13 #4967 [verbose] > │ │
00:03:13 #4968 [verbose] > │ │
00:03:13 #4969 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 #4970 [verbose] >
00:03:13 #4971 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:13 #4972 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:13 #4973 [verbose] > │ ## format'' │
00:03:13 #4974 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 #4975 [verbose] >
00:03:13 #4976 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:13 #4977 [verbose] > inl format'' (format : string) (date_time : date_time' _) : sm'.std_string =
00:03:13 #4978 [verbose] > inl format = #format
00:03:13 #4979 [verbose] > inl date_time = join date_time
00:03:13 #4980 [verbose] > !\($'"!date_time.format(!format).to_string()"')
00:03:13 #4981 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a6459429bb8466e82baafd2cdee900ee97b94d46b875a8a1dc4a62b2e2ba8e38\main.spi
00:03:13 #4982 [verbose] >
00:03:13 #4983 [verbose] > ╭─[ 250.45ms - stdout ]────────────────────────────────────────────────────────╮
00:03:13 #4984 [verbose] > │ () │
00:03:13 #4985 [verbose] > │ │
00:03:13 #4986 [verbose] > │ │
00:03:13 #4987 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 #4988 [verbose] >
00:03:13 #4989 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:13 #4990 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:13 #4991 [verbose] > │ ## format_timestamp │
00:03:13 #4992 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 #4993 [verbose] >
00:03:13 #4994 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:13 #4995 [verbose] > inl format_timestamp (timestamp : sm'.std_string) =
00:03:13 #4996 [verbose] > inl timestamp = join timestamp
00:03:13 #4997 [verbose] > timestamp
00:03:13 #4998 [verbose] > |> fun x => !\($'"!x.parse().unwrap()"') : i64
00:03:13 #4999 [verbose] > |> from_timestamp'
00:03:13 #5000 [verbose] > |> optionm.map fun x =>
00:03:13 #5001 [verbose] > x
00:03:13 #5002 [verbose] > |> to_local
00:03:13 #5003 [verbose] > |> format'' "%Y-%m-%d %H:%M:%S"
00:03:13 #5004 [verbose] > |> sm'.from_std_string
00:03:13 #5005 [verbose] > |> resultm.from_option
00:03:13 #5006 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\65523346cdbc0cf97b8f9f141c916f5cdca6d19fe5325b402c67164edf9cd20f\main.spi
00:03:13 #5007 [verbose] >
00:03:13 #5008 [verbose] > ╭─[ 220.20ms - stdout ]────────────────────────────────────────────────────────╮
00:03:13 #5009 [verbose] > │ () │
00:03:13 #5010 [verbose] > │ │
00:03:13 #5011 [verbose] > │ │
00:03:13 #5012 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 #5013 [verbose] >
00:03:13 #5014 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:13 #5015 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:13 #5016 [verbose] > │ ## duration_from_millis │
00:03:13 #5017 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:13 #5018 [verbose] >
00:03:13 #5019 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:13 #5020 [verbose] > inl duration_from_millis (ms : u64) : duration =
00:03:13 #5021 [verbose] > inl ms = join ms
00:03:13 #5022 [verbose] > !\($'"std::time::Duration::from_millis(!ms)"')
00:03:13 #5023 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d222b707827b406e707c275df273b034988b5e8a3cdc3a4ed32557fbebb8e9b0\main.spi
00:03:14 #5024 [verbose] >
00:03:14 #5025 [verbose] > ╭─[ 222.42ms - stdout ]────────────────────────────────────────────────────────╮
00:03:14 #5026 [verbose] > │ () │
00:03:14 #5027 [verbose] > │ │
00:03:14 #5028 [verbose] > │ │
00:03:14 #5029 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:14 #5030 [verbose] >
00:03:14 #5031 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:14 #5032 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:14 #5033 [verbose] > │ ## get_environment_variable │
00:03:14 #5034 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:14 #5035 [verbose] >
00:03:14 #5036 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:14 #5037 [verbose] > inl get_environment_variable (var : string) : string =
00:03:14 #5038 [verbose] > $"System.Environment.GetEnvironmentVariable !var"
00:03:14 #5039 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a8ecb04d75ee33bf8cb4dbf112d82accf2c5b14becc9ff2113b5dd16af1dbfba\main.spi
00:03:14 #5040 [verbose] >
00:03:14 #5041 [verbose] > ╭─[ 254.81ms - stdout ]────────────────────────────────────────────────────────╮
00:03:14 #5042 [verbose] > │ () │
00:03:14 #5043 [verbose] > │ │
00:03:14 #5044 [verbose] > │ │
00:03:14 #5045 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:14 #5046 [verbose] >
00:03:14 #5047 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:14 #5048 [verbose] > // // test
00:03:14 #5049 [verbose] >
00:03:14 #5050 [verbose] > inl test_guid () =
00:03:14 #5051 [verbose] > guid.new_guid "FEDCBA98-7654-3210-FEDC-BA9876543210"
00:03:14 #5052 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a1a1aae093484247dde4303049df188ea3521f3f47df7108cff654e834cc205d\main.spi
00:03:14 #5053 [verbose] >
00:03:14 #5054 [verbose] > ╭─[ 261.23ms - stdout ]────────────────────────────────────────────────────────╮
00:03:14 #5055 [verbose] > │ () │
00:03:14 #5056 [verbose] > │ │
00:03:14 #5057 [verbose] > │ │
00:03:14 #5058 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:14 #5059 [verbose] >
00:03:14 #5060 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:14 #5061 [verbose] > type timestamp_guid = guid.guid
00:03:14 #5062 [verbose] > type date_time_guid = guid.guid
00:03:14 #5063 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1f4c7c8fdef1bf50224b6732c2faeb1637e2652fe23ba59163d52cdbc782730c\main.spi
00:03:14 #5064 [verbose] >
00:03:14 #5065 [verbose] > ╭─[ 234.77ms - stdout ]────────────────────────────────────────────────────────╮
00:03:14 #5066 [verbose] > │ () │
00:03:14 #5067 [verbose] > │ │
00:03:14 #5068 [verbose] > │ │
00:03:14 #5069 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:14 #5070 [verbose] >
00:03:14 #5071 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:14 #5072 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:14 #5073 [verbose] > │ ## date_time_guid_from_date_time │
00:03:14 #5074 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:14 #5075 [verbose] >
00:03:14 #5076 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:14 #5077 [verbose] > inl date_time_guid_from_date_time (guid : guid.guid) (date_time : date_time) =
00:03:14 #5078 [verbose] > inl guid = guid |> sm'.obj_to_string
00:03:14 #5079 [verbose] > inl prefix = $'!date_time.ToString "yyyyMMdd-HHmm-ssff-ffff-f"' : string
00:03:14 #5080 [verbose] > $'`date_time_guid $"{!prefix}{!guid.[[!prefix.Length..]]}"' : date_time_guid
00:03:14 #5081 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\aafccfe21388732e6e367d17f9b4de300ec85a52d81c7adee3deccbc92af476a\main.spi
00:03:15 #5082 [verbose] >
00:03:15 #5083 [verbose] > ╭─[ 259.12ms - stdout ]────────────────────────────────────────────────────────╮
00:03:15 #5084 [verbose] > │ () │
00:03:15 #5085 [verbose] > │ │
00:03:15 #5086 [verbose] > │ │
00:03:15 #5087 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:15 #5088 [verbose] >
00:03:15 #5089 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:15 #5090 [verbose] > // // test
00:03:15 #5091 [verbose] >
00:03:15 #5092 [verbose] > date_time_guid_from_date_time (test_guid ()) $'System.DateTime.MinValue'
00:03:15 #5093 [verbose] > |> sm'.obj_to_string
00:03:15 #5094 [verbose] > |> _assert_eq' "00010101-0000-0000-0000-0a9876543210"
00:03:15 #5095 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2bc1ab8674226e2bc5133d1097a457d0e4ccb44b660459aa78a47788529bb766\main.spi
00:03:16 #5096 [verbose] >
00:03:16 #5097 [verbose] > ╭─[ 1.15s - stdout ]───────────────────────────────────────────────────────────╮
00:03:16 #5098 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:16 #5099 [verbose] > │ v0 │
00:03:16 #5100 [verbose] > │ and method0 () : unit = │
00:03:16 #5101 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:16 #5102 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:16 #5103 [verbose] > │ let v2 : System.DateTime = System.DateTime.MinValue │
00:03:16 #5104 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:16 #5105 [verbose] > │ let v4 : string = v3 v1 │
00:03:16 #5106 [verbose] > │ let v5 : string = v2.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:16 #5107 [verbose] > │ let v6 : System.Guid = System.Guid $"{v5}{v4.[v5.Length..]}" │
00:03:16 #5108 [verbose] > │ let v7 : (System.Guid -> string) = _.ToString() │
00:03:16 #5109 [verbose] > │ let v8 : string = v7 v6 │
00:03:16 #5110 [verbose] > │ let v9 : string = $"%A{v8}" │
00:03:16 #5111 [verbose] > │ System.Console.WriteLine v9 │
00:03:16 #5112 [verbose] > │ let v10 : string = "00010101-0000-0000-0000-0a9876543210" │
00:03:16 #5113 [verbose] > │ let v11 : bool = v8 = v10 │
00:03:16 #5114 [verbose] > │ let v13 : bool = │
00:03:16 #5115 [verbose] > │ if v11 then │
00:03:16 #5116 [verbose] > │ true │
00:03:16 #5117 [verbose] > │ else │
00:03:16 #5118 [verbose] > │ method1(v11) │
00:03:16 #5119 [verbose] > │ let v14 : string = $"__expect / actual: %A{v8} / expected: %A{v10}" │
00:03:16 #5120 [verbose] > │ let v15 : bool = v13 = false │
00:03:16 #5121 [verbose] > │ if v15 then │
00:03:16 #5122 [verbose] > │ failwith<unit> v14 │
00:03:16 #5123 [verbose] > │ method0() │
00:03:16 #5124 [verbose] > │ │
00:03:16 #5125 [verbose] > │ "00010101-0000-0000-0000-0a9876543210" │
00:03:16 #5126 [verbose] > │ │
00:03:16 #5127 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:16 #5128 [verbose] >
00:03:16 #5129 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:16 #5130 [verbose] > // // test
00:03:16 #5131 [verbose] >
00:03:16 #5132 [verbose] > date_time_guid_from_date_time (test_guid ()) $'System.DateTime.MaxValue'
00:03:16 #5133 [verbose] > |> sm'.obj_to_string
00:03:16 #5134 [verbose] > |> _assert_eq $'$"99991231-2359-5999-9999-9{(!test_guid() |>
00:03:16 #5135 [verbose] > string).[[^10..]]}"'
00:03:16 #5136 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0527db9e9851847b76794310fa3a73a09208b11cbaf58e5edf89c47cb3185594\main.spi
00:03:16 #5137 [verbose] >
00:03:16 #5138 [verbose] > ╭─[ 330.21ms - stdout ]────────────────────────────────────────────────────────╮
00:03:16 #5139 [verbose] > │ let rec closure0 () () : System.Guid = │
00:03:16 #5140 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:16 #5141 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:16 #5142 [verbose] > │ v1 │
00:03:16 #5143 [verbose] > │ and method1 (v0 : bool) : bool = │
00:03:16 #5144 [verbose] > │ v0 │
00:03:16 #5145 [verbose] > │ and method0 () : unit = │
00:03:16 #5146 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:16 #5147 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:16 #5148 [verbose] > │ let v2 : System.DateTime = System.DateTime.MaxValue │
00:03:16 #5149 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:16 #5150 [verbose] > │ let v4 : string = v3 v1 │
00:03:16 #5151 [verbose] > │ let v5 : string = v2.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:16 #5152 [verbose] > │ let v6 : System.Guid = System.Guid $"{v5}{v4.[v5.Length..]}" │
00:03:16 #5153 [verbose] > │ let v7 : (System.Guid -> string) = _.ToString() │
00:03:16 #5154 [verbose] > │ let v8 : string = v7 v6 │
00:03:16 #5155 [verbose] > │ let v9 : (unit -> System.Guid) = closure0() │
00:03:16 #5156 [verbose] > │ let v10 : string = $"99991231-2359-5999-9999-9{(v9() |> string).[ │
00:03:16 #5157 [verbose] > │ ^10..]}" │
00:03:16 #5158 [verbose] > │ let v11 : string = $"%A{v8}" │
00:03:16 #5159 [verbose] > │ System.Console.WriteLine v11 │
00:03:16 #5160 [verbose] > │ let v12 : bool = v8 = v10 │
00:03:16 #5161 [verbose] > │ let v14 : bool = │
00:03:16 #5162 [verbose] > │ if v12 then │
00:03:16 #5163 [verbose] > │ true │
00:03:16 #5164 [verbose] > │ else │
00:03:16 #5165 [verbose] > │ method1(v12) │
00:03:16 #5166 [verbose] > │ let v15 : string = $"__expect / actual: %A{v8} / expected: %A{v10}" │
00:03:16 #5167 [verbose] > │ let v16 : bool = v14 = false │
00:03:16 #5168 [verbose] > │ if v16 then │
00:03:16 #5169 [verbose] > │ failwith<unit> v15 │
00:03:16 #5170 [verbose] > │ method0() │
00:03:16 #5171 [verbose] > │ │
00:03:16 #5172 [verbose] > │ "99991231-2359-5999-9999-9a9876543210" │
00:03:16 #5173 [verbose] > │ │
00:03:16 #5174 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:16 #5175 [verbose] >
00:03:16 #5176 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:16 #5177 [verbose] > // // test
00:03:16 #5178 [verbose] >
00:03:16 #5179 [verbose] > date_time_guid_from_date_time (test_guid ()) $'System.DateTime.UnixEpoch'
00:03:16 #5180 [verbose] > |> sm'.obj_to_string
00:03:16 #5181 [verbose] > |> _assert_eq $'$"19700101-0000-0000-0000-0{(!test_guid () |>
00:03:16 #5182 [verbose] > string).[[^10..]]}"'
00:03:16 #5183 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eee635e1b3085daf98a2c61c4adb992fe0fe441a41f8bff5de5c6953a2b4b89a\main.spi
00:03:17 #5184 [verbose] >
00:03:17 #5185 [verbose] > ╭─[ 660.60ms - stdout ]────────────────────────────────────────────────────────╮
00:03:17 #5186 [verbose] > │ let rec closure0 () () : System.Guid = │
00:03:17 #5187 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:17 #5188 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:17 #5189 [verbose] > │ v1 │
00:03:17 #5190 [verbose] > │ and method1 (v0 : bool) : bool = │
00:03:17 #5191 [verbose] > │ v0 │
00:03:17 #5192 [verbose] > │ and method0 () : unit = │
00:03:17 #5193 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:17 #5194 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:17 #5195 [verbose] > │ let v2 : System.DateTime = System.DateTime.UnixEpoch │
00:03:17 #5196 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:17 #5197 [verbose] > │ let v4 : string = v3 v1 │
00:03:17 #5198 [verbose] > │ let v5 : string = v2.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:17 #5199 [verbose] > │ let v6 : System.Guid = System.Guid $"{v5}{v4.[v5.Length..]}" │
00:03:17 #5200 [verbose] > │ let v7 : (System.Guid -> string) = _.ToString() │
00:03:17 #5201 [verbose] > │ let v8 : string = v7 v6 │
00:03:17 #5202 [verbose] > │ let v9 : (unit -> System.Guid) = closure0() │
00:03:17 #5203 [verbose] > │ let v10 : string = $"19700101-0000-0000-0000-0{(v9 () |> string).[ │
00:03:17 #5204 [verbose] > │ ^10..]}" │
00:03:17 #5205 [verbose] > │ let v11 : string = $"%A{v8}" │
00:03:17 #5206 [verbose] > │ System.Console.WriteLine v11 │
00:03:17 #5207 [verbose] > │ let v12 : bool = v8 = v10 │
00:03:17 #5208 [verbose] > │ let v14 : bool = │
00:03:17 #5209 [verbose] > │ if v12 then │
00:03:17 #5210 [verbose] > │ true │
00:03:17 #5211 [verbose] > │ else │
00:03:17 #5212 [verbose] > │ method1(v12) │
00:03:17 #5213 [verbose] > │ let v15 : string = $"__expect / actual: %A{v8} / expected: %A{v10}" │
00:03:17 #5214 [verbose] > │ let v16 : bool = v14 = false │
00:03:17 #5215 [verbose] > │ if v16 then │
00:03:17 #5216 [verbose] > │ failwith<unit> v15 │
00:03:17 #5217 [verbose] > │ method0() │
00:03:17 #5218 [verbose] > │ │
00:03:17 #5219 [verbose] > │ "19700101-0000-0000-0000-0a9876543210" │
00:03:17 #5220 [verbose] > │ │
00:03:17 #5221 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 #5222 [verbose] >
00:03:17 #5223 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:17 #5224 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:17 #5225 [verbose] > │ ## date_time_from_guid │
00:03:17 #5226 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 #5227 [verbose] >
00:03:17 #5228 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 #5229 [verbose] > inl date_time_from_guid (date_time_guid : date_time_guid) =
00:03:17 #5230 [verbose] > inl date_time_guid = date_time_guid |> sm'.obj_to_string
00:03:17 #5231 [verbose] > inl sm'_replace = join sm'.replace
00:03:17 #5232 [verbose] > run_target function
00:03:17 #5233 [verbose] > | Rust _ => fun () =>
00:03:17 #5234 [verbose] > $'System.DateTime.Parse (!date_time_guid.[[..24]] |> !sm'_replace
00:03:17 #5235 [verbose] > "-" "")' : date_time
00:03:17 #5236 [verbose] > | _ => fun () => $'System.DateTime.ParseExact (!date_time_guid.[[..24]]
00:03:17 #5237 [verbose] > |> !sm'_replace "-" "", "yyyyMMddHHmmssfffffff", null)' : date_time
00:03:17 #5238 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b686984d5eed2c5f378090cc0c2c1330dcb1372215ce16624a67a38cc7ae5404\main.spi
00:03:17 #5239 [verbose] >
00:03:17 #5240 [verbose] > ╭─[ 272.93ms - stdout ]────────────────────────────────────────────────────────╮
00:03:17 #5241 [verbose] > │ () │
00:03:17 #5242 [verbose] > │ │
00:03:17 #5243 [verbose] > │ │
00:03:17 #5244 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 #5245 [verbose] >
00:03:17 #5246 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 #5247 [verbose] > // // test
00:03:17 #5248 [verbose] >
00:03:17 #5249 [verbose] > date_time_from_guid (guid.new_guid "00010101-0000-0000-0000-0a9876543210")
00:03:17 #5250 [verbose] > |> _assert_eq' $'System.DateTime.MinValue'
00:03:17 #5251 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\aecf8098ad43c6532f2cb3eafac78d4bd4ad3bc0ccee37ee7833e505ea1578e8\main.spi
00:03:17 #5252 [verbose] >
00:03:17 #5253 [verbose] > ╭─[ 432.94ms - stdout ]────────────────────────────────────────────────────────╮
00:03:17 #5254 [verbose] > │ let rec closure2 (v0 : string, v1 : string) (v2 : string) : string = │
00:03:17 #5255 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:03:17 #5256 [verbose] > │ v3 │
00:03:17 #5257 [verbose] > │ and closure1 (v0 : string) (v1 : string) : (string -> string) = │
00:03:17 #5258 [verbose] > │ closure2(v0, v1) │
00:03:17 #5259 [verbose] > │ and closure0 () (v0 : string) : (string -> (string -> string)) = │
00:03:17 #5260 [verbose] > │ closure1(v0) │
00:03:17 #5261 [verbose] > │ and method1 () : (string -> (string -> (string -> string))) = │
00:03:17 #5262 [verbose] > │ closure0() │
00:03:17 #5263 [verbose] > │ and method2 (v0 : bool) : bool = │
00:03:17 #5264 [verbose] > │ v0 │
00:03:17 #5265 [verbose] > │ and method0 () : unit = │
00:03:17 #5266 [verbose] > │ let v0 : string = "00010101-0000-0000-0000-0a9876543210" │
00:03:17 #5267 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:17 #5268 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:17 #5269 [verbose] > │ let v3 : string = v2 v1 │
00:03:17 #5270 [verbose] > │ let v4 : (string -> (string -> (string -> string))) = method1() │
00:03:17 #5271 [verbose] > │ let v5 : System.DateTime option = None │
00:03:17 #5272 [verbose] > │ let mutable _v5 = v5 │
00:03:17 #5273 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:03:17 #5274 [verbose] > │ let v6 : System.DateTime = System.DateTime.Parse (v3.[..24] |> v4 "-" │
00:03:17 #5275 [verbose] > │ "") │
00:03:17 #5276 [verbose] > │ v6 │
00:03:17 #5277 [verbose] > │ #endif │
00:03:17 #5278 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:03:17 #5279 [verbose] > │ let v7 : System.DateTime = System.DateTime.Parse (v3.[..24] |> v4 "-" │
00:03:17 #5280 [verbose] > │ "") │
00:03:17 #5281 [verbose] > │ v7 │
00:03:17 #5282 [verbose] > │ #endif │
00:03:17 #5283 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:03:17 #5284 [verbose] > │ let v8 : System.DateTime = System.DateTime.Parse (v3.[..24] |> v4 "-" │
00:03:17 #5285 [verbose] > │ "") │
00:03:17 #5286 [verbose] > │ v8 │
00:03:17 #5287 [verbose] > │ #endif │
00:03:17 #5288 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:03:17 #5289 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:03:17 #5290 [verbose] > │ let v9 : System.DateTime = System.DateTime.ParseExact (v3.[..24] |> v4 │
00:03:17 #5291 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:17 #5292 [verbose] > │ v9 │
00:03:17 #5293 [verbose] > │ #endif │
00:03:17 #5294 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:03:17 #5295 [verbose] > │ let v10 : System.DateTime = System.DateTime.ParseExact (v3.[..24] |> v4 │
00:03:17 #5296 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:17 #5297 [verbose] > │ v10 │
00:03:17 #5298 [verbose] > │ #endif │
00:03:17 #5299 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:03:17 #5300 [verbose] > │ let v11 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:03:17 #5301 [verbose] > │ v11 │
00:03:17 #5302 [verbose] > │ #endif │
00:03:17 #5303 [verbose] > │ |> fun x -> _v5 <- Some x │
00:03:17 #5304 [verbose] > │ let v12 : System.DateTime = _v5.Value │
00:03:17 #5305 [verbose] > │ let v13 : System.DateTime = System.DateTime.MinValue │
00:03:17 #5306 [verbose] > │ let v14 : string = $"%A{v12}" │
00:03:17 #5307 [verbose] > │ System.Console.WriteLine v14 │
00:03:17 #5308 [verbose] > │ let v15 : bool = v12 = v13 │
00:03:17 #5309 [verbose] > │ let v17 : bool = │
00:03:17 #5310 [verbose] > │ if v15 then │
00:03:17 #5311 [verbose] > │ true │
00:03:17 #5312 [verbose] > │ else │
00:03:17 #5313 [verbose] > │ method2(v15) │
00:03:17 #5314 [verbose] > │ let v18 : string = $"__expect / actual: %A{v12} / expected: %A{v13}" │
00:03:17 #5315 [verbose] > │ let v19 : bool = v17 = false │
00:03:17 #5316 [verbose] > │ if v19 then │
00:03:17 #5317 [verbose] > │ failwith<unit> v18 │
00:03:17 #5318 [verbose] > │ method0() │
00:03:17 #5319 [verbose] > │ │
00:03:17 #5320 [verbose] > │ 0001-01-01 12:00:00 AM │
00:03:17 #5321 [verbose] > │ │
00:03:17 #5322 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:17 #5323 [verbose] >
00:03:17 #5324 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:17 #5325 [verbose] > // // test
00:03:17 #5326 [verbose] >
00:03:17 #5327 [verbose] > date_time_from_guid (guid.new_guid $'$"99991231-2359-5999-9999-9{(!test_guid ()
00:03:17 #5328 [verbose] > |> string).[[^10..]]}"')
00:03:17 #5329 [verbose] > |> _assert_eq' $'System.DateTime.MaxValue'
00:03:18 #5330 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\81684ed12d4e63c9694a345a484aef409c312e7f7ce1b1d1f0755dceb49c67f1\main.spi
00:03:18 #5331 [verbose] >
00:03:18 #5332 [verbose] > ╭─[ 409.30ms - stdout ]────────────────────────────────────────────────────────╮
00:03:18 #5333 [verbose] > │ let rec closure0 () () : System.Guid = │
00:03:18 #5334 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:18 #5335 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:18 #5336 [verbose] > │ v1 │
00:03:18 #5337 [verbose] > │ and closure3 (v0 : string, v1 : string) (v2 : string) : string = │
00:03:18 #5338 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:03:18 #5339 [verbose] > │ v3 │
00:03:18 #5340 [verbose] > │ and closure2 (v0 : string) (v1 : string) : (string -> string) = │
00:03:18 #5341 [verbose] > │ closure3(v0, v1) │
00:03:18 #5342 [verbose] > │ and closure1 () (v0 : string) : (string -> (string -> string)) = │
00:03:18 #5343 [verbose] > │ closure2(v0) │
00:03:18 #5344 [verbose] > │ and method1 () : (string -> (string -> (string -> string))) = │
00:03:18 #5345 [verbose] > │ closure1() │
00:03:18 #5346 [verbose] > │ and method2 (v0 : bool) : bool = │
00:03:18 #5347 [verbose] > │ v0 │
00:03:18 #5348 [verbose] > │ and method0 () : unit = │
00:03:18 #5349 [verbose] > │ let v0 : (unit -> System.Guid) = closure0() │
00:03:18 #5350 [verbose] > │ let v1 : string = $"99991231-2359-5999-9999-9{(v0 () |> string).[ │
00:03:18 #5351 [verbose] > │ ^10..]}" │
00:03:18 #5352 [verbose] > │ let v2 : System.Guid = System.Guid v1 │
00:03:18 #5353 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:18 #5354 [verbose] > │ let v4 : string = v3 v2 │
00:03:18 #5355 [verbose] > │ let v5 : (string -> (string -> (string -> string))) = method1() │
00:03:18 #5356 [verbose] > │ let v6 : System.DateTime option = None │
00:03:18 #5357 [verbose] > │ let mutable _v6 = v6 │
00:03:18 #5358 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:03:18 #5359 [verbose] > │ let v7 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:18 #5360 [verbose] > │ "") │
00:03:18 #5361 [verbose] > │ v7 │
00:03:18 #5362 [verbose] > │ #endif │
00:03:18 #5363 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:03:18 #5364 [verbose] > │ let v8 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:18 #5365 [verbose] > │ "") │
00:03:18 #5366 [verbose] > │ v8 │
00:03:18 #5367 [verbose] > │ #endif │
00:03:18 #5368 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:03:18 #5369 [verbose] > │ let v9 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:18 #5370 [verbose] > │ "") │
00:03:18 #5371 [verbose] > │ v9 │
00:03:18 #5372 [verbose] > │ #endif │
00:03:18 #5373 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:03:18 #5374 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:03:18 #5375 [verbose] > │ let v10 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:03:18 #5376 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:18 #5377 [verbose] > │ v10 │
00:03:18 #5378 [verbose] > │ #endif │
00:03:18 #5379 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:03:18 #5380 [verbose] > │ let v11 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:03:18 #5381 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:18 #5382 [verbose] > │ v11 │
00:03:18 #5383 [verbose] > │ #endif │
00:03:18 #5384 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:03:18 #5385 [verbose] > │ let v12 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:03:18 #5386 [verbose] > │ v12 │
00:03:18 #5387 [verbose] > │ #endif │
00:03:18 #5388 [verbose] > │ |> fun x -> _v6 <- Some x │
00:03:18 #5389 [verbose] > │ let v13 : System.DateTime = _v6.Value │
00:03:18 #5390 [verbose] > │ let v14 : System.DateTime = System.DateTime.MaxValue │
00:03:18 #5391 [verbose] > │ let v15 : string = $"%A{v13}" │
00:03:18 #5392 [verbose] > │ System.Console.WriteLine v15 │
00:03:18 #5393 [verbose] > │ let v16 : bool = v13 = v14 │
00:03:18 #5394 [verbose] > │ let v18 : bool = │
00:03:18 #5395 [verbose] > │ if v16 then │
00:03:18 #5396 [verbose] > │ true │
00:03:18 #5397 [verbose] > │ else │
00:03:18 #5398 [verbose] > │ method2(v16) │
00:03:18 #5399 [verbose] > │ let v19 : string = $"__expect / actual: %A{v13} / expected: %A{v14}" │
00:03:18 #5400 [verbose] > │ let v20 : bool = v18 = false │
00:03:18 #5401 [verbose] > │ if v20 then │
00:03:18 #5402 [verbose] > │ failwith<unit> v19 │
00:03:18 #5403 [verbose] > │ method0() │
00:03:18 #5404 [verbose] > │ │
00:03:18 #5405 [verbose] > │ 9999-12-31 11:59:59 PM │
00:03:18 #5406 [verbose] > │ │
00:03:18 #5407 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:18 #5408 [verbose] >
00:03:18 #5409 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:18 #5410 [verbose] > // // test
00:03:18 #5411 [verbose] >
00:03:18 #5412 [verbose] > date_time_from_guid (guid.new_guid $'$"19700101-0000-0000-0000-0{(!test_guid ()
00:03:18 #5413 [verbose] > |> string).[[^10..]]}"')
00:03:18 #5414 [verbose] > |> _assert_eq' $'System.DateTime.UnixEpoch'
00:03:18 #5415 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8569dfc0c9e7110dbc36e30a6c0d81f49a196488a0a0f6131f3a0bda7835383c\main.spi
00:03:18 #5416 [verbose] >
00:03:18 #5417 [verbose] > ╭─[ 335.85ms - stdout ]────────────────────────────────────────────────────────╮
00:03:18 #5418 [verbose] > │ let rec closure0 () () : System.Guid = │
00:03:18 #5419 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:18 #5420 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:18 #5421 [verbose] > │ v1 │
00:03:18 #5422 [verbose] > │ and closure3 (v0 : string, v1 : string) (v2 : string) : string = │
00:03:18 #5423 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:03:18 #5424 [verbose] > │ v3 │
00:03:18 #5425 [verbose] > │ and closure2 (v0 : string) (v1 : string) : (string -> string) = │
00:03:18 #5426 [verbose] > │ closure3(v0, v1) │
00:03:18 #5427 [verbose] > │ and closure1 () (v0 : string) : (string -> (string -> string)) = │
00:03:18 #5428 [verbose] > │ closure2(v0) │
00:03:18 #5429 [verbose] > │ and method1 () : (string -> (string -> (string -> string))) = │
00:03:18 #5430 [verbose] > │ closure1() │
00:03:18 #5431 [verbose] > │ and method2 (v0 : bool) : bool = │
00:03:18 #5432 [verbose] > │ v0 │
00:03:18 #5433 [verbose] > │ and method0 () : unit = │
00:03:18 #5434 [verbose] > │ let v0 : (unit -> System.Guid) = closure0() │
00:03:18 #5435 [verbose] > │ let v1 : string = $"19700101-0000-0000-0000-0{(v0 () |> string).[ │
00:03:18 #5436 [verbose] > │ ^10..]}" │
00:03:18 #5437 [verbose] > │ let v2 : System.Guid = System.Guid v1 │
00:03:18 #5438 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:18 #5439 [verbose] > │ let v4 : string = v3 v2 │
00:03:18 #5440 [verbose] > │ let v5 : (string -> (string -> (string -> string))) = method1() │
00:03:18 #5441 [verbose] > │ let v6 : System.DateTime option = None │
00:03:18 #5442 [verbose] > │ let mutable _v6 = v6 │
00:03:18 #5443 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:03:18 #5444 [verbose] > │ let v7 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:18 #5445 [verbose] > │ "") │
00:03:18 #5446 [verbose] > │ v7 │
00:03:18 #5447 [verbose] > │ #endif │
00:03:18 #5448 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:03:18 #5449 [verbose] > │ let v8 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:18 #5450 [verbose] > │ "") │
00:03:18 #5451 [verbose] > │ v8 │
00:03:18 #5452 [verbose] > │ #endif │
00:03:18 #5453 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:03:18 #5454 [verbose] > │ let v9 : System.DateTime = System.DateTime.Parse (v4.[..24] |> v5 "-" │
00:03:18 #5455 [verbose] > │ "") │
00:03:18 #5456 [verbose] > │ v9 │
00:03:18 #5457 [verbose] > │ #endif │
00:03:18 #5458 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:03:18 #5459 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:03:18 #5460 [verbose] > │ let v10 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:03:18 #5461 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:18 #5462 [verbose] > │ v10 │
00:03:18 #5463 [verbose] > │ #endif │
00:03:18 #5464 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:03:18 #5465 [verbose] > │ let v11 : System.DateTime = System.DateTime.ParseExact (v4.[..24] |> v5 │
00:03:18 #5466 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:18 #5467 [verbose] > │ v11 │
00:03:18 #5468 [verbose] > │ #endif │
00:03:18 #5469 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:03:18 #5470 [verbose] > │ let v12 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:03:18 #5471 [verbose] > │ v12 │
00:03:18 #5472 [verbose] > │ #endif │
00:03:18 #5473 [verbose] > │ |> fun x -> _v6 <- Some x │
00:03:18 #5474 [verbose] > │ let v13 : System.DateTime = _v6.Value │
00:03:18 #5475 [verbose] > │ let v14 : System.DateTime = System.DateTime.UnixEpoch │
00:03:18 #5476 [verbose] > │ let v15 : string = $"%A{v13}" │
00:03:18 #5477 [verbose] > │ System.Console.WriteLine v15 │
00:03:18 #5478 [verbose] > │ let v16 : bool = v13 = v14 │
00:03:18 #5479 [verbose] > │ let v18 : bool = │
00:03:18 #5480 [verbose] > │ if v16 then │
00:03:18 #5481 [verbose] > │ true │
00:03:18 #5482 [verbose] > │ else │
00:03:18 #5483 [verbose] > │ method2(v16) │
00:03:18 #5484 [verbose] > │ let v19 : string = $"__expect / actual: %A{v13} / expected: %A{v14}" │
00:03:18 #5485 [verbose] > │ let v20 : bool = v18 = false │
00:03:18 #5486 [verbose] > │ if v20 then │
00:03:18 #5487 [verbose] > │ failwith<unit> v19 │
00:03:18 #5488 [verbose] > │ method0() │
00:03:18 #5489 [verbose] > │ │
00:03:18 #5490 [verbose] > │ 1970-01-01 12:00:00 AM │
00:03:18 #5491 [verbose] > │ │
00:03:18 #5492 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:18 #5493 [verbose] >
00:03:18 #5494 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:18 #5495 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:18 #5496 [verbose] > │ ## timestamp_guid_from_timestamp │
00:03:18 #5497 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:18 #5498 [verbose] >
00:03:18 #5499 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:18 #5500 [verbose] > inl timestamp_guid_from_timestamp (guid : guid.guid) (timestamp : timestamp) :
00:03:18 #5501 [verbose] > timestamp_guid =
00:03:18 #5502 [verbose] > inl guid = guid |> sm'.obj_to_string
00:03:18 #5503 [verbose] > inl timestamp = timestamp |> sm'.obj_to_string |> sm'.pad_left 18i32 '0'
00:03:18 #5504 [verbose] > $'`timestamp_guid
00:03:18 #5505 [verbose] > $"{!timestamp.[[0..7]]}-{!timestamp.[[8..11]]}-{!timestamp.[[12..15]]}-{!timesta
00:03:18 #5506 [verbose] > mp.[[16..17]]}{!guid.[[21..]]}"'
00:03:18 #5507 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dd804a77723e420c5a57736cdbf2be77fb03a4a57c3bafd4c11f90b33078be92\main.spi
00:03:19 #5508 [verbose] >
00:03:19 #5509 [verbose] > ╭─[ 232.70ms - stdout ]────────────────────────────────────────────────────────╮
00:03:19 #5510 [verbose] > │ () │
00:03:19 #5511 [verbose] > │ │
00:03:19 #5512 [verbose] > │ │
00:03:19 #5513 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:19 #5514 [verbose] >
00:03:19 #5515 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:19 #5516 [verbose] > // // test
00:03:19 #5517 [verbose] >
00:03:19 #5518 [verbose] > timestamp_guid_from_timestamp (test_guid ()) (timestamp 0i64)
00:03:19 #5519 [verbose] > |> _assert_eq' (guid.new_guid "00000000-0000-0000-00dc-ba9876543210")
00:03:19 #5520 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bc6fb7c436c18c8aa92ececa628adf1dd954502262dc8723cfa55d404ed98e8a\main.spi
00:03:19 #5521 [verbose] >
00:03:19 #5522 [verbose] > ╭─[ 282.81ms - stdout ]────────────────────────────────────────────────────────╮
00:03:19 #5523 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:19 #5524 [verbose] > │ v0 │
00:03:19 #5525 [verbose] > │ and method0 () : unit = │
00:03:19 #5526 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:19 #5527 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:19 #5528 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:19 #5529 [verbose] > │ let v3 : string = v2 v1 │
00:03:19 #5530 [verbose] > │ let v4 : (int64 -> string) = _.ToString() │
00:03:19 #5531 [verbose] > │ let v5 : string = v4 0L │
00:03:19 #5532 [verbose] > │ let v6 : string = v5.PadLeft (18, '0') │
00:03:19 #5533 [verbose] > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:03:19 #5534 [verbose] > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:03:19 #5535 [verbose] > │ let v8 : string = "00000000-0000-0000-00dc-ba9876543210" │
00:03:19 #5536 [verbose] > │ let v9 : System.Guid = System.Guid v8 │
00:03:19 #5537 [verbose] > │ let v10 : string = $"%A{v7}" │
00:03:19 #5538 [verbose] > │ System.Console.WriteLine v10 │
00:03:19 #5539 [verbose] > │ let v11 : bool = v7 = v9 │
00:03:19 #5540 [verbose] > │ let v13 : bool = │
00:03:19 #5541 [verbose] > │ if v11 then │
00:03:19 #5542 [verbose] > │ true │
00:03:19 #5543 [verbose] > │ else │
00:03:19 #5544 [verbose] > │ method1(v11) │
00:03:19 #5545 [verbose] > │ let v14 : string = $"__expect / actual: %A{v7} / expected: %A{v9}" │
00:03:19 #5546 [verbose] > │ let v15 : bool = v13 = false │
00:03:19 #5547 [verbose] > │ if v15 then │
00:03:19 #5548 [verbose] > │ failwith<unit> v14 │
00:03:19 #5549 [verbose] > │ method0() │
00:03:19 #5550 [verbose] > │ │
00:03:19 #5551 [verbose] > │ 00000000-0000-0000-00dc-ba9876543210 │
00:03:19 #5552 [verbose] > │ │
00:03:19 #5553 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:19 #5554 [verbose] >
00:03:19 #5555 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:19 #5556 [verbose] > // // test
00:03:19 #5557 [verbose] >
00:03:19 #5558 [verbose] > timestamp_guid_from_timestamp (test_guid ()) (timestamp 999999999999999999i64)
00:03:19 #5559 [verbose] > |> _assert_eq' (guid.new_guid $'$"99999999-9999-9999-99dc-b{(!test_guid () |>
00:03:19 #5560 [verbose] > string).[[^10..]]}"')
00:03:19 #5561 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\441c8e928eec8c522bfadd0c955cacc7bce7fab0444bc17cec51763b63744f5c\main.spi
00:03:19 #5562 [verbose] >
00:03:19 #5563 [verbose] > ╭─[ 302.58ms - stdout ]────────────────────────────────────────────────────────╮
00:03:19 #5564 [verbose] > │ let rec closure0 () () : System.Guid = │
00:03:19 #5565 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:19 #5566 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:19 #5567 [verbose] > │ v1 │
00:03:19 #5568 [verbose] > │ and method1 (v0 : bool) : bool = │
00:03:19 #5569 [verbose] > │ v0 │
00:03:19 #5570 [verbose] > │ and method0 () : unit = │
00:03:19 #5571 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:19 #5572 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:19 #5573 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:19 #5574 [verbose] > │ let v3 : string = v2 v1 │
00:03:19 #5575 [verbose] > │ let v4 : (int64 -> string) = _.ToString() │
00:03:19 #5576 [verbose] > │ let v5 : string = v4 999999999999999999L │
00:03:19 #5577 [verbose] > │ let v6 : string = v5.PadLeft (18, '0') │
00:03:19 #5578 [verbose] > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:03:19 #5579 [verbose] > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:03:19 #5580 [verbose] > │ let v8 : (unit -> System.Guid) = closure0() │
00:03:19 #5581 [verbose] > │ let v9 : string = $"99999999-9999-9999-99dc-b{(v8 () |> string).[ │
00:03:19 #5582 [verbose] > │ ^10..]}" │
00:03:19 #5583 [verbose] > │ let v10 : System.Guid = System.Guid v9 │
00:03:19 #5584 [verbose] > │ let v11 : string = $"%A{v7}" │
00:03:19 #5585 [verbose] > │ System.Console.WriteLine v11 │
00:03:19 #5586 [verbose] > │ let v12 : bool = v7 = v10 │
00:03:19 #5587 [verbose] > │ let v14 : bool = │
00:03:19 #5588 [verbose] > │ if v12 then │
00:03:19 #5589 [verbose] > │ true │
00:03:19 #5590 [verbose] > │ else │
00:03:19 #5591 [verbose] > │ method1(v12) │
00:03:19 #5592 [verbose] > │ let v15 : string = $"__expect / actual: %A{v7} / expected: %A{v10}" │
00:03:19 #5593 [verbose] > │ let v16 : bool = v14 = false │
00:03:19 #5594 [verbose] > │ if v16 then │
00:03:19 #5595 [verbose] > │ failwith<unit> v15 │
00:03:19 #5596 [verbose] > │ method0() │
00:03:19 #5597 [verbose] > │ │
00:03:19 #5598 [verbose] > │ 99999999-9999-9999-99dc-ba9876543210 │
00:03:19 #5599 [verbose] > │ │
00:03:19 #5600 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:19 #5601 [verbose] >
00:03:19 #5602 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:19 #5603 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:19 #5604 [verbose] > │ ## timestamp_from_guid │
00:03:19 #5605 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:19 #5606 [verbose] >
00:03:19 #5607 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:19 #5608 [verbose] > inl timestamp_from_guid (guid : date_time_guid) : timestamp =
00:03:19 #5609 [verbose] > inl guid = guid |> sm'.obj_to_string
00:03:19 #5610 [verbose] > $'`i64
00:03:19 #5611 [verbose] > $"{!guid.[[0..7]]}{!guid.[[9..12]]}{!guid.[[14..17]]}{!guid.[[19..20]]}"'
00:03:19 #5612 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8519f31e8e492418788d8965b72ccddd5a9a0e1af15705892adc9680bd66a8e9\main.spi
00:03:19 #5613 [verbose] >
00:03:19 #5614 [verbose] > ╭─[ 232.41ms - stdout ]────────────────────────────────────────────────────────╮
00:03:19 #5615 [verbose] > │ () │
00:03:19 #5616 [verbose] > │ │
00:03:19 #5617 [verbose] > │ │
00:03:19 #5618 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:19 #5619 [verbose] >
00:03:19 #5620 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:19 #5621 [verbose] > // // test
00:03:19 #5622 [verbose] >
00:03:19 #5623 [verbose] > timestamp_from_guid (guid.new_guid "00000000-0000-0000-00dc-ba9876543210")
00:03:19 #5624 [verbose] > |> _assert_eq (timestamp 0)
00:03:20 #5625 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ce3d2cef896a7bc4e764efd542594127898cafd9915ca93eafc126c63201b629\main.spi
00:03:20 #5626 [verbose] >
00:03:20 #5627 [verbose] > ╭─[ 270.26ms - stdout ]────────────────────────────────────────────────────────╮
00:03:20 #5628 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:20 #5629 [verbose] > │ v0 │
00:03:20 #5630 [verbose] > │ and method0 () : unit = │
00:03:20 #5631 [verbose] > │ let v0 : string = "00000000-0000-0000-00dc-ba9876543210" │
00:03:20 #5632 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:20 #5633 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:20 #5634 [verbose] > │ let v3 : string = v2 v1 │
00:03:20 #5635 [verbose] > │ let v4 : int64 = int64 $"{v3.[0..7]}{v3.[9..12]}{v3.[14..17]}{v3.[ │
00:03:20 #5636 [verbose] > │ 19..20]}" │
00:03:20 #5637 [verbose] > │ let v5 : string = $"%A{v4}" │
00:03:20 #5638 [verbose] > │ System.Console.WriteLine v5 │
00:03:20 #5639 [verbose] > │ let v6 : bool = v4 = 0L │
00:03:20 #5640 [verbose] > │ let v8 : bool = │
00:03:20 #5641 [verbose] > │ if v6 then │
00:03:20 #5642 [verbose] > │ true │
00:03:20 #5643 [verbose] > │ else │
00:03:20 #5644 [verbose] > │ method1(v6) │
00:03:20 #5645 [verbose] > │ let v9 : string = $"__expect / actual: %A{v4} / expected: %A{0L}" │
00:03:20 #5646 [verbose] > │ let v10 : bool = v8 = false │
00:03:20 #5647 [verbose] > │ if v10 then │
00:03:20 #5648 [verbose] > │ failwith<unit> v9 │
00:03:20 #5649 [verbose] > │ method0() │
00:03:20 #5650 [verbose] > │ │
00:03:20 #5651 [verbose] > │ 0L │
00:03:20 #5652 [verbose] > │ │
00:03:20 #5653 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:20 #5654 [verbose] >
00:03:20 #5655 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:20 #5656 [verbose] > // // test
00:03:20 #5657 [verbose] >
00:03:20 #5658 [verbose] > timestamp_from_guid (guid.new_guid $'$"99999999-9999-9999-99{(!test_guid () |>
00:03:20 #5659 [verbose] > string).[[^14..]]}"')
00:03:20 #5660 [verbose] > |> _assert_eq (timestamp 999999999999999999)
00:03:20 #5661 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e42bc905811dcb453d867e514b2307821753b982c37bc770aef9094e101946b2\main.spi
00:03:20 #5662 [verbose] >
00:03:20 #5663 [verbose] > ╭─[ 291.31ms - stdout ]────────────────────────────────────────────────────────╮
00:03:20 #5664 [verbose] > │ let rec closure0 () () : System.Guid = │
00:03:20 #5665 [verbose] > │ let v0 : string = "FEDCBA98-7654-3210-FEDC-BA9876543210" │
00:03:20 #5666 [verbose] > │ let v1 : System.Guid = System.Guid v0 │
00:03:20 #5667 [verbose] > │ v1 │
00:03:20 #5668 [verbose] > │ and method1 (v0 : bool) : bool = │
00:03:20 #5669 [verbose] > │ v0 │
00:03:20 #5670 [verbose] > │ and method0 () : unit = │
00:03:20 #5671 [verbose] > │ let v0 : (unit -> System.Guid) = closure0() │
00:03:20 #5672 [verbose] > │ let v1 : string = $"99999999-9999-9999-99{(v0 () |> string).[^14..]}" │
00:03:20 #5673 [verbose] > │ let v2 : System.Guid = System.Guid v1 │
00:03:20 #5674 [verbose] > │ let v3 : (System.Guid -> string) = _.ToString() │
00:03:20 #5675 [verbose] > │ let v4 : string = v3 v2 │
00:03:20 #5676 [verbose] > │ let v5 : int64 = int64 $"{v4.[0..7]}{v4.[9..12]}{v4.[14..17]}{v4.[ │
00:03:20 #5677 [verbose] > │ 19..20]}" │
00:03:20 #5678 [verbose] > │ let v6 : string = $"%A{v5}" │
00:03:20 #5679 [verbose] > │ System.Console.WriteLine v6 │
00:03:20 #5680 [verbose] > │ let v7 : bool = v5 = 999999999999999999L │
00:03:20 #5681 [verbose] > │ let v9 : bool = │
00:03:20 #5682 [verbose] > │ if v7 then │
00:03:20 #5683 [verbose] > │ true │
00:03:20 #5684 [verbose] > │ else │
00:03:20 #5685 [verbose] > │ method1(v7) │
00:03:20 #5686 [verbose] > │ let v10 : string = $"__expect / actual: %A{v5} / expected: │
00:03:20 #5687 [verbose] > │ %A{999999999999999999L}" │
00:03:20 #5688 [verbose] > │ let v11 : bool = v9 = false │
00:03:20 #5689 [verbose] > │ if v11 then │
00:03:20 #5690 [verbose] > │ failwith<unit> v10 │
00:03:20 #5691 [verbose] > │ method0() │
00:03:20 #5692 [verbose] > │ │
00:03:20 #5693 [verbose] > │ 999999999999999999L │
00:03:20 #5694 [verbose] > │ │
00:03:20 #5695 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:20 #5696 [verbose] >
00:03:20 #5697 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:20 #5698 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:20 #5699 [verbose] > │ ## now │
00:03:20 #5700 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:20 #5701 [verbose] >
00:03:20 #5702 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:20 #5703 [verbose] > inl now () : date_time =
00:03:20 #5704 [verbose] > $'System.DateTime.Now'
00:03:20 #5705 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9b2bf3f0e9363fa129b9feb1a8421d0ce02032dc17aac966df9bfe25e300bed9\main.spi
00:03:20 #5706 [verbose] >
00:03:20 #5707 [verbose] > ╭─[ 270.92ms - stdout ]────────────────────────────────────────────────────────╮
00:03:20 #5708 [verbose] > │ () │
00:03:20 #5709 [verbose] > │ │
00:03:20 #5710 [verbose] > │ │
00:03:20 #5711 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:20 #5712 [verbose] >
00:03:20 #5713 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:20 #5714 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:20 #5715 [verbose] > │ ## utc_now │
00:03:20 #5716 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:20 #5717 [verbose] >
00:03:20 #5718 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:20 #5719 [verbose] > inl utc_now () : date_time =
00:03:20 #5720 [verbose] > $'System.DateTime.UtcNow'
00:03:20 #5721 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ebe613da5bf4dd809cedc14f41e8f14dff3cf316f46714d5cae81546bc4faf4f\main.spi
00:03:20 #5722 [verbose] >
00:03:20 #5723 [verbose] > ╭─[ 243.09ms - stdout ]────────────────────────────────────────────────────────╮
00:03:20 #5724 [verbose] > │ () │
00:03:20 #5725 [verbose] > │ │
00:03:20 #5726 [verbose] > │ │
00:03:20 #5727 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:20 #5728 [verbose] >
00:03:20 #5729 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:20 #5730 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:20 #5731 [verbose] > │ ## time_span │
00:03:20 #5732 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:20 #5733 [verbose] >
00:03:20 #5734 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:20 #5735 [verbose] > nominal time_span = $'System.TimeSpan'
00:03:20 #5736 [verbose] >
00:03:20 #5737 [verbose] > inl time_span x : time_span =
00:03:20 #5738 [verbose] > $'`time_span !x '
00:03:21 #5739 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\109ffd69d9b2f5965eaf3937dbb312d7a8c3312687a8dfad3034b58b604f1913\main.spi
00:03:21 #5740 [verbose] >
00:03:21 #5741 [verbose] > ╭─[ 222.76ms - stdout ]────────────────────────────────────────────────────────╮
00:03:21 #5742 [verbose] > │ () │
00:03:21 #5743 [verbose] > │ │
00:03:21 #5744 [verbose] > │ │
00:03:21 #5745 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 #5746 [verbose] >
00:03:21 #5747 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:21 #5748 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:21 #5749 [verbose] > │ ## new_time_span │
00:03:21 #5750 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 #5751 [verbose] >
00:03:21 #5752 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:21 #5753 [verbose] > inl new_time_span (a : date_time) (b : date_time) : time_span =
00:03:21 #5754 [verbose] > $'!b - !a '
00:03:21 #5755 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9e69038b4205ef39c57cdae2e3ab916e3944759811498dc6bdea3c719ae23fc1\main.spi
00:03:21 #5756 [verbose] >
00:03:21 #5757 [verbose] > ╭─[ 198.04ms - stdout ]────────────────────────────────────────────────────────╮
00:03:21 #5758 [verbose] > │ () │
00:03:21 #5759 [verbose] > │ │
00:03:21 #5760 [verbose] > │ │
00:03:21 #5761 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 #5762 [verbose] >
00:03:21 #5763 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:21 #5764 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:21 #5765 [verbose] > │ ## hours │
00:03:21 #5766 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 #5767 [verbose] >
00:03:21 #5768 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:21 #5769 [verbose] > inl hours (time_span : time_span) : i32 =
00:03:21 #5770 [verbose] > time_span |> $'_.Hours'
00:03:21 #5771 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bb9256a6d62c73fbb090dd57c425b20110664e2c9392b56ebd558e2c38516c21\main.spi
00:03:21 #5772 [verbose] >
00:03:21 #5773 [verbose] > ╭─[ 249.78ms - stdout ]────────────────────────────────────────────────────────╮
00:03:21 #5774 [verbose] > │ () │
00:03:21 #5775 [verbose] > │ │
00:03:21 #5776 [verbose] > │ │
00:03:21 #5777 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 #5778 [verbose] >
00:03:21 #5779 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:21 #5780 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:21 #5781 [verbose] > │ ## milliseconds │
00:03:21 #5782 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 #5783 [verbose] >
00:03:21 #5784 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:21 #5785 [verbose] > inl milliseconds (time_span : time_span) : i32 =
00:03:21 #5786 [verbose] > time_span |> $'_.Milliseconds'
00:03:21 #5787 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d5574b50c7200e926f1b349e352fe1e7abfadf37427ed15a34bf157c9008bc33\main.spi
00:03:21 #5788 [verbose] >
00:03:21 #5789 [verbose] > ╭─[ 216.27ms - stdout ]────────────────────────────────────────────────────────╮
00:03:21 #5790 [verbose] > │ () │
00:03:21 #5791 [verbose] > │ │
00:03:21 #5792 [verbose] > │ │
00:03:21 #5793 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 #5794 [verbose] >
00:03:21 #5795 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:21 #5796 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:21 #5797 [verbose] > │ ## minutes │
00:03:21 #5798 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:21 #5799 [verbose] >
00:03:21 #5800 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:21 #5801 [verbose] > inl minutes (time_span : time_span) : i32 =
00:03:21 #5802 [verbose] > time_span |> $'_.Minutes'
00:03:22 #5803 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a8e61c615e56bc8fa3075e489a9b19f50b4a8e009192e5400e39cd853353a025\main.spi
00:03:22 #5804 [verbose] >
00:03:22 #5805 [verbose] > ╭─[ 215.20ms - stdout ]────────────────────────────────────────────────────────╮
00:03:22 #5806 [verbose] > │ () │
00:03:22 #5807 [verbose] > │ │
00:03:22 #5808 [verbose] > │ │
00:03:22 #5809 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #5810 [verbose] >
00:03:22 #5811 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:22 #5812 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:22 #5813 [verbose] > │ ## seconds │
00:03:22 #5814 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #5815 [verbose] >
00:03:22 #5816 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:22 #5817 [verbose] > inl seconds (time_span : time_span) : i32 =
00:03:22 #5818 [verbose] > time_span |> $'_.Seconds'
00:03:22 #5819 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\39e35736357412761a9a7762f0f4e6fbadb1d7a031649a95a3e1f719555f4bec\main.spi
00:03:22 #5820 [verbose] >
00:03:22 #5821 [verbose] > ╭─[ 209.68ms - stdout ]────────────────────────────────────────────────────────╮
00:03:22 #5822 [verbose] > │ () │
00:03:22 #5823 [verbose] > │ │
00:03:22 #5824 [verbose] > │ │
00:03:22 #5825 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #5826 [verbose] >
00:03:22 #5827 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:22 #5828 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:22 #5829 [verbose] > │ ## total_seconds │
00:03:22 #5830 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #5831 [verbose] >
00:03:22 #5832 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:22 #5833 [verbose] > inl total_seconds (time_span : time_span) : f64 =
00:03:22 #5834 [verbose] > time_span |> $'_.TotalSeconds'
00:03:22 #5835 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b2fff9f63e5fa696b7412e78453cc436278a22971418fbe0df9e652ec7e25565\main.spi
00:03:22 #5836 [verbose] >
00:03:22 #5837 [verbose] > ╭─[ 216.76ms - stdout ]────────────────────────────────────────────────────────╮
00:03:22 #5838 [verbose] > │ () │
00:03:22 #5839 [verbose] > │ │
00:03:22 #5840 [verbose] > │ │
00:03:22 #5841 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #5842 [verbose] >
00:03:22 #5843 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:22 #5844 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:22 #5845 [verbose] > │ ## new_guid_from_date_time │
00:03:22 #5846 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #5847 [verbose] >
00:03:22 #5848 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:22 #5849 [verbose] > inl new_guid_from_date_time (date_time : date_time) =
00:03:22 #5850 [verbose] > inl guid = guid.new_raw_guid ()
00:03:22 #5851 [verbose] > date_time_guid_from_date_time guid date_time
00:03:22 #5852 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e725cec876cee814f44bfecbd3499712237b5e797d8519f4d503247d946dc308\main.spi
00:03:22 #5853 [verbose] >
00:03:22 #5854 [verbose] > ╭─[ 209.52ms - stdout ]────────────────────────────────────────────────────────╮
00:03:22 #5855 [verbose] > │ () │
00:03:22 #5856 [verbose] > │ │
00:03:22 #5857 [verbose] > │ │
00:03:22 #5858 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:22 #5859 [verbose] >
00:03:22 #5860 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:22 #5861 [verbose] > // // test
00:03:22 #5862 [verbose] >
00:03:22 #5863 [verbose] > utc_now ()
00:03:22 #5864 [verbose] > |> new_guid_from_date_time
00:03:22 #5865 [verbose] > |> date_time_from_guid
00:03:22 #5866 [verbose] > |> fun date_time => new_time_span date_time (utc_now ()) |> total_seconds |> i32
00:03:22 #5867 [verbose] > |> _assert_eq 0
00:03:22 #5868 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d45bb92bf6e105f39b5c0bf32cfba1c6b14ddcb905aa2f48dcc8a1772413f2d7\main.spi
00:03:23 #5869 [verbose] >
00:03:23 #5870 [verbose] > ╭─[ 309.59ms - stdout ]────────────────────────────────────────────────────────╮
00:03:23 #5871 [verbose] > │ let rec closure2 (v0 : string, v1 : string) (v2 : string) : string = │
00:03:23 #5872 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:03:23 #5873 [verbose] > │ v3 │
00:03:23 #5874 [verbose] > │ and closure1 (v0 : string) (v1 : string) : (string -> string) = │
00:03:23 #5875 [verbose] > │ closure2(v0, v1) │
00:03:23 #5876 [verbose] > │ and closure0 () (v0 : string) : (string -> (string -> string)) = │
00:03:23 #5877 [verbose] > │ closure1(v0) │
00:03:23 #5878 [verbose] > │ and method1 () : (string -> (string -> (string -> string))) = │
00:03:23 #5879 [verbose] > │ closure0() │
00:03:23 #5880 [verbose] > │ and method2 (v0 : bool) : bool = │
00:03:23 #5881 [verbose] > │ v0 │
00:03:23 #5882 [verbose] > │ and method0 () : unit = │
00:03:23 #5883 [verbose] > │ let v0 : System.DateTime = System.DateTime.UtcNow │
00:03:23 #5884 [verbose] > │ let v1 : System.Guid = System.Guid.NewGuid () │
00:03:23 #5885 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:23 #5886 [verbose] > │ let v3 : string = v2 v1 │
00:03:23 #5887 [verbose] > │ let v4 : string = v0.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:23 #5888 [verbose] > │ let v5 : System.Guid = System.Guid $"{v4}{v3.[v4.Length..]}" │
00:03:23 #5889 [verbose] > │ let v6 : (System.Guid -> string) = _.ToString() │
00:03:23 #5890 [verbose] > │ let v7 : string = v6 v5 │
00:03:23 #5891 [verbose] > │ let v8 : (string -> (string -> (string -> string))) = method1() │
00:03:23 #5892 [verbose] > │ let v9 : System.DateTime option = None │
00:03:23 #5893 [verbose] > │ let mutable _v9 = v9 │
00:03:23 #5894 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:03:23 #5895 [verbose] > │ let v10 : System.DateTime = System.DateTime.Parse (v7.[..24] |> v8 "-" │
00:03:23 #5896 [verbose] > │ "") │
00:03:23 #5897 [verbose] > │ v10 │
00:03:23 #5898 [verbose] > │ #endif │
00:03:23 #5899 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:03:23 #5900 [verbose] > │ let v11 : System.DateTime = System.DateTime.Parse (v7.[..24] |> v8 "-" │
00:03:23 #5901 [verbose] > │ "") │
00:03:23 #5902 [verbose] > │ v11 │
00:03:23 #5903 [verbose] > │ #endif │
00:03:23 #5904 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:03:23 #5905 [verbose] > │ let v12 : System.DateTime = System.DateTime.Parse (v7.[..24] |> v8 "-" │
00:03:23 #5906 [verbose] > │ "") │
00:03:23 #5907 [verbose] > │ v12 │
00:03:23 #5908 [verbose] > │ #endif │
00:03:23 #5909 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:03:23 #5910 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:03:23 #5911 [verbose] > │ let v13 : System.DateTime = System.DateTime.ParseExact (v7.[..24] |> v8 │
00:03:23 #5912 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:23 #5913 [verbose] > │ v13 │
00:03:23 #5914 [verbose] > │ #endif │
00:03:23 #5915 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:03:23 #5916 [verbose] > │ let v14 : System.DateTime = System.DateTime.ParseExact (v7.[..24] |> v8 │
00:03:23 #5917 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:23 #5918 [verbose] > │ v14 │
00:03:23 #5919 [verbose] > │ #endif │
00:03:23 #5920 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:03:23 #5921 [verbose] > │ let v15 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:03:23 #5922 [verbose] > │ v15 │
00:03:23 #5923 [verbose] > │ #endif │
00:03:23 #5924 [verbose] > │ |> fun x -> _v9 <- Some x │
00:03:23 #5925 [verbose] > │ let v16 : System.DateTime = _v9.Value │
00:03:23 #5926 [verbose] > │ let v17 : System.DateTime = System.DateTime.UtcNow │
00:03:23 #5927 [verbose] > │ let v18 : System.TimeSpan = v17 - v16 │
00:03:23 #5928 [verbose] > │ let v19 : (System.TimeSpan -> float) = _.TotalSeconds │
00:03:23 #5929 [verbose] > │ let v20 : float = v19 v18 │
00:03:23 #5930 [verbose] > │ let v21 : int32 = int32 v20 │
00:03:23 #5931 [verbose] > │ let v22 : string = $"%A{v21}" │
00:03:23 #5932 [verbose] > │ System.Console.WriteLine v22 │
00:03:23 #5933 [verbose] > │ let v23 : bool = v21 = 0 │
00:03:23 #5934 [verbose] > │ let v25 : bool = │
00:03:23 #5935 [verbose] > │ if v23 then │
00:03:23 #5936 [verbose] > │ true │
00:03:23 #5937 [verbose] > │ else │
00:03:23 #5938 [verbose] > │ method2(v23) │
00:03:23 #5939 [verbose] > │ let v26 : string = $"__expect / actual: %A{v21} / expected: %A{0}" │
00:03:23 #5940 [verbose] > │ let v27 : bool = v25 = false │
00:03:23 #5941 [verbose] > │ if v27 then │
00:03:23 #5942 [verbose] > │ failwith<unit> v26 │
00:03:23 #5943 [verbose] > │ method0() │
00:03:23 #5944 [verbose] > │ │
00:03:23 #5945 [verbose] > │ 0 │
00:03:23 #5946 [verbose] > │ │
00:03:23 #5947 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:23 #5948 [verbose] >
00:03:23 #5949 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:23 #5950 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:23 #5951 [verbose] > │ ## new_guid_from_timestamp │
00:03:23 #5952 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:23 #5953 [verbose] >
00:03:23 #5954 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:23 #5955 [verbose] > inl new_guid_from_timestamp (timestamp : timestamp) =
00:03:23 #5956 [verbose] > inl guid = guid.new_raw_guid ()
00:03:23 #5957 [verbose] > timestamp_guid_from_timestamp guid timestamp
00:03:23 #5958 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0e1cd384d747729d265b0862373747f61cec9e349ec174b9a84b8f1607e7fdd4\main.spi
00:03:23 #5959 [verbose] >
00:03:23 #5960 [verbose] > ╭─[ 220.42ms - stdout ]────────────────────────────────────────────────────────╮
00:03:23 #5961 [verbose] > │ () │
00:03:23 #5962 [verbose] > │ │
00:03:23 #5963 [verbose] > │ │
00:03:23 #5964 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:23 #5965 [verbose] >
00:03:23 #5966 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:23 #5967 [verbose] > // // test
00:03:23 #5968 [verbose] >
00:03:23 #5969 [verbose] > utc_now ()
00:03:23 #5970 [verbose] > |> ticks
00:03:23 #5971 [verbose] > |> new_guid_from_timestamp
00:03:23 #5972 [verbose] > |> timestamp_from_guid
00:03:23 #5973 [verbose] > |> fun (timestamp timestamp) => (timestamp - (utc_now () |> ticks |> fun
00:03:23 #5974 [verbose] > (timestamp x) => x)) / 100000i64
00:03:23 #5975 [verbose] > |> _assert_eq 0i64
00:03:23 #5976 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5846d31998d401a2e757fab667b15d484917cdd5804b10026327da3af42cbb2c\main.spi
00:03:23 #5977 [verbose] >
00:03:23 #5978 [verbose] > ╭─[ 345.63ms - stdout ]────────────────────────────────────────────────────────╮
00:03:23 #5979 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:23 #5980 [verbose] > │ v0 │
00:03:23 #5981 [verbose] > │ and method0 () : unit = │
00:03:23 #5982 [verbose] > │ let v0 : System.DateTime = System.DateTime.UtcNow │
00:03:23 #5983 [verbose] > │ let v1 : (System.DateTime -> int64) = _.Ticks │
00:03:23 #5984 [verbose] > │ let v2 : int64 = v1 v0 │
00:03:23 #5985 [verbose] > │ let v3 : System.Guid = System.Guid.NewGuid () │
00:03:23 #5986 [verbose] > │ let v4 : (System.Guid -> string) = _.ToString() │
00:03:23 #5987 [verbose] > │ let v5 : string = v4 v3 │
00:03:23 #5988 [verbose] > │ let v6 : (int64 -> string) = _.ToString() │
00:03:23 #5989 [verbose] > │ let v7 : string = v6 v2 │
00:03:23 #5990 [verbose] > │ let v8 : string = v7.PadLeft (18, '0') │
00:03:23 #5991 [verbose] > │ let v9 : System.Guid = System.Guid $"{v8.[0..7]}-{v8.[8..11]}-{v8.[ │
00:03:23 #5992 [verbose] > │ 12..15]}-{v8.[16..17]}{v5.[21..]}" │
00:03:23 #5993 [verbose] > │ let v10 : (System.Guid -> string) = _.ToString() │
00:03:23 #5994 [verbose] > │ let v11 : string = v10 v9 │
00:03:23 #5995 [verbose] > │ let v12 : int64 = int64 $"{v11.[0..7]}{v11.[9..12]}{v11.[14..17]}{v11.[ │
00:03:23 #5996 [verbose] > │ 19..20]}" │
00:03:23 #5997 [verbose] > │ let v13 : System.DateTime = System.DateTime.UtcNow │
00:03:23 #5998 [verbose] > │ let v14 : (System.DateTime -> int64) = _.Ticks │
00:03:23 #5999 [verbose] > │ let v15 : int64 = v14 v13 │
00:03:23 #6000 [verbose] > │ let v16 : int64 = v12 - v15 │
00:03:23 #6001 [verbose] > │ let v17 : int64 = v16 / 100000L │
00:03:23 #6002 [verbose] > │ let v18 : string = $"%A{v17}" │
00:03:23 #6003 [verbose] > │ System.Console.WriteLine v18 │
00:03:23 #6004 [verbose] > │ let v19 : bool = v17 = 0L │
00:03:23 #6005 [verbose] > │ let v21 : bool = │
00:03:23 #6006 [verbose] > │ if v19 then │
00:03:23 #6007 [verbose] > │ true │
00:03:23 #6008 [verbose] > │ else │
00:03:23 #6009 [verbose] > │ method1(v19) │
00:03:23 #6010 [verbose] > │ let v22 : string = $"__expect / actual: %A{v17} / expected: %A{0L}" │
00:03:23 #6011 [verbose] > │ let v23 : bool = v21 = false │
00:03:23 #6012 [verbose] > │ if v23 then │
00:03:23 #6013 [verbose] > │ failwith<unit> v22 │
00:03:23 #6014 [verbose] > │ method0() │
00:03:23 #6015 [verbose] > │ │
00:03:23 #6016 [verbose] > │ 0L │
00:03:23 #6017 [verbose] > │ │
00:03:23 #6018 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:23 #6019 [verbose] >
00:03:23 #6020 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:03:23 #6021 [verbose] > //// test
00:03:23 #6022 [verbose] >
00:03:23 #6023 [verbose] > type DateTimeWithZone = {
00:03:23 #6024 [verbose] > DateTime: System.DateTimeOffset
00:03:23 #6025 [verbose] > TimeZone: System.TimeZoneInfo
00:03:23 #6026 [verbose] > }
00:03:23 #6027 [verbose] >
00:03:23 #6028 [verbose] > try
00:03:23 #6029 [verbose] > let now = System.DateTimeOffset.Now
00:03:23 #6030 [verbose] > let timeZoneInfo = System.TimeZoneInfo.Local
00:03:23 #6031 [verbose] > let dateTimeWithZone = { DateTime = now; TimeZone = timeZoneInfo }
00:03:23 #6032 [verbose] >
00:03:23 #6033 [verbose] > printfn "DateTime: %O" dateTimeWithZone.DateTime
00:03:23 #6034 [verbose] > printfn "Time Zone: %s" dateTimeWithZone.TimeZone.DisplayName
00:03:23 #6035 [verbose] > printfn "Is DST: %b"
00:03:23 #6036 [verbose] > (timeZoneInfo.IsDaylightSavingTime(dateTimeWithZone.DateTime.DateTime))
00:03:23 #6037 [verbose] > printfn "v1: %s" (dateTimeWithZone.TimeZone.GetUtcOffset(now) |> string)
00:03:23 #6038 [verbose] > printfn "v2: %s" (dateTimeWithZone.TimeZone |> string)
00:03:23 #6039 [verbose] > with ex ->
00:03:23 #6040 [verbose] > printfn "error: %A" ex
00:03:23 #6041 [verbose] >
00:03:23 #6042 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:23 #6043 [verbose] > #r
00:03:23 #6044 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:03:23 #6045 [verbose] > spNetCore.Html.Abstractions.dll"
00:03:23 #6046 [verbose] > #r
00:03:23 #6047 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:23 #6048 [verbose] > otNet.Interactive.dll"
00:03:23 #6049 [verbose] > #r
00:03:23 #6050 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:23 #6051 [verbose] > otNet.Interactive.FSharp.dll"
00:03:23 #6052 [verbose] > #r
00:03:23 #6053 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:23 #6054 [verbose] > otNet.Interactive.Formatting.dll"
00:03:23 #6055 [verbose] > open System
00:03:23 #6056 [verbose] > open System.IO
00:03:23 #6057 [verbose] > open System.Text
00:03:23 #6058 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:03:24 #6059 [verbose] >
00:03:24 #6060 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:03:24 #6061 [verbose] > #r
00:03:24 #6062 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:24 #6063 [verbose] > otNet.Interactive.FSharp.dll"
00:03:24 #6064 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:03:24 #6065 [verbose] > #r
00:03:24 #6066 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:03:24 #6067 [verbose] > otNet.Interactive.dll"
00:03:24 #6068 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:03:25 #6069 [verbose] >
00:03:25 #6070 [verbose] > ╭─[ 1.69s - stdout ]───────────────────────────────────────────────────────────╮
00:03:25 #6071 [verbose] > │ DateTime: 2024-04-11 8:47:28 PM -04:00 │
00:03:25 #6072 [verbose] > │ Time Zone: (UTC-04:00) Cuiaba │
00:03:25 #6073 [verbose] > │ Is DST: false │
00:03:25 #6074 [verbose] > │ v1: -04:00:00 │
00:03:25 #6075 [verbose] > │ v2: (UTC-04:00) Cuiaba │
00:03:25 #6076 [verbose] > │ │
00:03:25 #6077 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:25 #6078 [verbose] >
00:03:25 #6079 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:25 #6080 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:25 #6081 [verbose] > │ ## main │
00:03:25 #6082 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:25 #6083 [verbose] >
00:03:25 #6084 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:25 #6085 [verbose] > inl main () =
00:03:25 #6086 [verbose] > $"let date_time_guid_from_date_time x = !date_time_guid_from_date_time x" :
00:03:25 #6087 [verbose] > ()
00:03:25 #6088 [verbose] > $"let date_time_from_guid x = !date_time_from_guid x" : ()
00:03:25 #6089 [verbose] > $"let timestamp_guid_from_timestamp x = !timestamp_guid_from_timestamp x" :
00:03:25 #6090 [verbose] > ()
00:03:25 #6091 [verbose] > $"let timestamp_from_guid x = !timestamp_from_guid x" : ()
00:03:25 #6092 [verbose] > $"let new_guid_from_date_time x = !new_guid_from_date_time x" : ()
00:03:25 #6093 [verbose] > $"let new_guid_from_timestamp x = !new_guid_from_timestamp x" : ()
00:03:25 #6094 [verbose] > $"let format x = !format x" : ()
00:03:25 #6095 [verbose] > $"let format_iso8601 x = !format_iso8601 x" : ()
00:03:25 #6096 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b9c850e35eb53c1eda15e438d943363d5e17137f923f3b45e350f3a7cb3a8035\main.spi
00:03:25 #6097 [verbose] >
00:03:25 #6098 [verbose] > ╭─[ 412.25ms - stdout ]────────────────────────────────────────────────────────╮
00:03:25 #6099 [verbose] > │ let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid = │
00:03:25 #6100 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:25 #6101 [verbose] > │ let v3 : string = v2 v0 │
00:03:25 #6102 [verbose] > │ let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:25 #6103 [verbose] > │ let v5 : System.Guid = System.Guid $"{v4}{v3.[v4.Length..]}" │
00:03:25 #6104 [verbose] > │ v5 │
00:03:25 #6105 [verbose] > │ and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) = │
00:03:25 #6106 [verbose] > │ closure1(v0) │
00:03:25 #6107 [verbose] > │ and closure5 (v0 : string, v1 : string) (v2 : string) : string = │
00:03:25 #6108 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:03:25 #6109 [verbose] > │ v3 │
00:03:25 #6110 [verbose] > │ and closure4 (v0 : string) (v1 : string) : (string -> string) = │
00:03:25 #6111 [verbose] > │ closure5(v0, v1) │
00:03:25 #6112 [verbose] > │ and closure3 () (v0 : string) : (string -> (string -> string)) = │
00:03:25 #6113 [verbose] > │ closure4(v0) │
00:03:25 #6114 [verbose] > │ and method0 () : (string -> (string -> (string -> string))) = │
00:03:25 #6115 [verbose] > │ closure3() │
00:03:25 #6116 [verbose] > │ and closure2 () (v0 : System.Guid) : System.DateTime = │
00:03:25 #6117 [verbose] > │ let v1 : (System.Guid -> string) = _.ToString() │
00:03:25 #6118 [verbose] > │ let v2 : string = v1 v0 │
00:03:25 #6119 [verbose] > │ let v3 : (string -> (string -> (string -> string))) = method0() │
00:03:25 #6120 [verbose] > │ let v4 : System.DateTime option = None │
00:03:25 #6121 [verbose] > │ let mutable _v4 = v4 │
00:03:25 #6122 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:03:25 #6123 [verbose] > │ let v5 : System.DateTime = System.DateTime.Parse (v2.[..24] |> v3 "-" │
00:03:25 #6124 [verbose] > │ "") │
00:03:25 #6125 [verbose] > │ v5 │
00:03:25 #6126 [verbose] > │ #endif │
00:03:25 #6127 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:03:25 #6128 [verbose] > │ let v6 : System.DateTime = System.DateTime.Parse (v2.[..24] |> v3 "-" │
00:03:25 #6129 [verbose] > │ "") │
00:03:25 #6130 [verbose] > │ v6 │
00:03:25 #6131 [verbose] > │ #endif │
00:03:25 #6132 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:03:25 #6133 [verbose] > │ let v7 : System.DateTime = System.DateTime.Parse (v2.[..24] |> v3 "-" │
00:03:25 #6134 [verbose] > │ "") │
00:03:25 #6135 [verbose] > │ v7 │
00:03:25 #6136 [verbose] > │ #endif │
00:03:25 #6137 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:03:25 #6138 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:03:25 #6139 [verbose] > │ let v8 : System.DateTime = System.DateTime.ParseExact (v2.[..24] |> v3 │
00:03:25 #6140 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:25 #6141 [verbose] > │ v8 │
00:03:25 #6142 [verbose] > │ #endif │
00:03:25 #6143 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:03:25 #6144 [verbose] > │ let v9 : System.DateTime = System.DateTime.ParseExact (v2.[..24] |> v3 │
00:03:25 #6145 [verbose] > │ "-" "", "yyyyMMddHHmmssfffffff", null) │
00:03:25 #6146 [verbose] > │ v9 │
00:03:25 #6147 [verbose] > │ #endif │
00:03:25 #6148 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:03:25 #6149 [verbose] > │ let v10 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:03:25 #6150 [verbose] > │ v10 │
00:03:25 #6151 [verbose] > │ #endif │
00:03:25 #6152 [verbose] > │ |> fun x -> _v4 <- Some x │
00:03:25 #6153 [verbose] > │ let v11 : System.DateTime = _v4.Value │
00:03:25 #6154 [verbose] > │ v11 │
00:03:25 #6155 [verbose] > │ and closure7 (v0 : System.Guid) (v1 : int64) : System.Guid = │
00:03:25 #6156 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:25 #6157 [verbose] > │ let v3 : string = v2 v0 │
00:03:25 #6158 [verbose] > │ let v4 : (int64 -> string) = _.ToString() │
00:03:25 #6159 [verbose] > │ let v5 : string = v4 v1 │
00:03:25 #6160 [verbose] > │ let v6 : string = v5.PadLeft (18, '0') │
00:03:25 #6161 [verbose] > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:03:25 #6162 [verbose] > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:03:25 #6163 [verbose] > │ v7 │
00:03:25 #6164 [verbose] > │ and closure6 () (v0 : System.Guid) : (int64 -> System.Guid) = │
00:03:25 #6165 [verbose] > │ closure7(v0) │
00:03:25 #6166 [verbose] > │ and closure8 () (v0 : System.Guid) : int64 = │
00:03:25 #6167 [verbose] > │ let v1 : (System.Guid -> string) = _.ToString() │
00:03:25 #6168 [verbose] > │ let v2 : string = v1 v0 │
00:03:25 #6169 [verbose] > │ let v3 : int64 = int64 $"{v2.[0..7]}{v2.[9..12]}{v2.[14..17]}{v2.[ │
00:03:25 #6170 [verbose] > │ 19..20]}" │
00:03:25 #6171 [verbose] > │ v3 │
00:03:25 #6172 [verbose] > │ and closure9 () (v0 : System.DateTime) : System.Guid = │
00:03:25 #6173 [verbose] > │ let v1 : System.Guid = System.Guid.NewGuid () │
00:03:25 #6174 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:25 #6175 [verbose] > │ let v3 : string = v2 v1 │
00:03:25 #6176 [verbose] > │ let v4 : string = v0.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:03:25 #6177 [verbose] > │ let v5 : System.Guid = System.Guid $"{v4}{v3.[v4.Length..]}" │
00:03:25 #6178 [verbose] > │ v5 │
00:03:25 #6179 [verbose] > │ and closure10 () (v0 : int64) : System.Guid = │
00:03:25 #6180 [verbose] > │ let v1 : System.Guid = System.Guid.NewGuid () │
00:03:25 #6181 [verbose] > │ let v2 : (System.Guid -> string) = _.ToString() │
00:03:25 #6182 [verbose] > │ let v3 : string = v2 v1 │
00:03:25 #6183 [verbose] > │ let v4 : (int64 -> string) = _.ToString() │
00:03:25 #6184 [verbose] > │ let v5 : string = v4 v0 │
00:03:25 #6185 [verbose] > │ let v6 : string = v5.PadLeft (18, '0') │
00:03:25 #6186 [verbose] > │ let v7 : System.Guid = System.Guid $"{v6.[0..7]}-{v6.[8..11]}-{v6.[ │
00:03:25 #6187 [verbose] > │ 12..15]}-{v6.[16..17]}{v3.[21..]}" │
00:03:25 #6188 [verbose] > │ v7 │
00:03:25 #6189 [verbose] > │ and closure12 (v0 : string) (v1 : System.DateTime) : string = │
00:03:25 #6190 [verbose] > │ let v2 : (string -> string) = v1.ToString │
00:03:25 #6191 [verbose] > │ v2 v0 │
00:03:25 #6192 [verbose] > │ and closure11 () (v0 : string) : (System.DateTime -> string) = │
00:03:25 #6193 [verbose] > │ closure12(v0) │
00:03:25 #6194 [verbose] > │ and closure13 () (v0 : System.DateTime) : string = │
00:03:25 #6195 [verbose] > │ let v1 : (string -> string) = v0.ToString │
00:03:25 #6196 [verbose] > │ let v2 : string = "yyyy-MM-ddTHH-mm-ss.fff" │
00:03:25 #6197 [verbose] > │ v1 v2 │
00:03:25 #6198 [verbose] > │ let v0 : (System.Guid -> (System.DateTime -> System.Guid)) = closure0() │
00:03:25 #6199 [verbose] > │ let date_time_guid_from_date_time x = v0 x │
00:03:25 #6200 [verbose] > │ let v1 : (System.Guid -> System.DateTime) = closure2() │
00:03:25 #6201 [verbose] > │ let date_time_from_guid x = v1 x │
00:03:25 #6202 [verbose] > │ let v2 : (System.Guid -> (int64 -> System.Guid)) = closure6() │
00:03:25 #6203 [verbose] > │ let timestamp_guid_from_timestamp x = v2 x │
00:03:25 #6204 [verbose] > │ let v3 : (System.Guid -> int64) = closure8() │
00:03:25 #6205 [verbose] > │ let timestamp_from_guid x = v3 x │
00:03:25 #6206 [verbose] > │ let v4 : (System.DateTime -> System.Guid) = closure9() │
00:03:25 #6207 [verbose] > │ let new_guid_from_date_time x = v4 x │
00:03:25 #6208 [verbose] > │ let v5 : (int64 -> System.Guid) = closure10() │
00:03:25 #6209 [verbose] > │ let new_guid_from_timestamp x = v5 x │
00:03:25 #6210 [verbose] > │ let v6 : (string -> (System.DateTime -> string)) = closure11() │
00:03:25 #6211 [verbose] > │ let format x = v6 x │
00:03:25 #6212 [verbose] > │ let v7 : (System.DateTime -> string) = closure13() │
00:03:25 #6213 [verbose] > │ let format_iso8601 x = v7 x │
00:03:25 #6214 [verbose] > │ () │
00:03:25 #6215 [verbose] > │ │
00:03:25 #6216 [verbose] > │ │
00:03:25 #6217 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:27 #6218 [verbose] > [NbConvertApp] Converting notebook date_time.dib.ipynb to html
00:03:27 #6219 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:27 #6220 [verbose] > validate(nb)
00:03:28 #6221 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:03:28 #6222 [verbose] > return _pygments_highlight(
00:03:28 #6223 [verbose] > [NbConvertApp] Writing 385411 bytes to date_time.dib.html
00:03:29 #6224 [debug] executeAsync / exitCode: 0 / output.Length: 94361
00:03:29 #6225 [debug] main / executeCommand / exitCode: 0
00:03:29 #6226 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 math.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:03:32 #6227 [verbose] >
00:03:32 #6228 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:32 #6229 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:32 #6230 [verbose] > │ # math │
00:03:32 #6231 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:32 #6232 [verbose] >
00:03:32 #6233 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:32 #6234 [verbose] > // // test
00:03:32 #6235 [verbose] >
00:03:32 #6236 [verbose] > open testing
00:03:35 #6237 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:03:36 #6238 [verbose] >
00:03:36 #6239 [verbose] > ╭─[ 4.19s - stdout ]───────────────────────────────────────────────────────────╮
00:03:36 #6240 [verbose] > │ () │
00:03:36 #6241 [verbose] > │ │
00:03:36 #6242 [verbose] > │ │
00:03:36 #6243 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:36 #6244 [verbose] >
00:03:36 #6245 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:36 #6246 [verbose] > // // test
00:03:36 #6247 [verbose] >
00:03:36 #6248 [verbose] > 2 * 2 / 0.4f64 |> sqrt
00:03:36 #6249 [verbose] > |> _assert_approx_eq None 3.1622776601683795
00:03:36 #6250 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\87b5a21ff6994dccc4d7f209e967da0f0684ba5f0876512508db01ae76a10045\main.spi
00:03:37 #6251 [verbose] >
00:03:37 #6252 [verbose] > ╭─[ 1.37s - stdout ]───────────────────────────────────────────────────────────╮
00:03:37 #6253 [verbose] > │ let rec method0 () : unit = │
00:03:37 #6254 [verbose] > │ let v0 : string = $"%A{3.1622776601683795}" │
00:03:37 #6255 [verbose] > │ System.Console.WriteLine v0 │
00:03:37 #6256 [verbose] > │ let v1 : string = $"__expect / actual: %A{3.1622776601683795} / │
00:03:37 #6257 [verbose] > │ expected: %A{3.1622776601683795}" │
00:03:37 #6258 [verbose] > │ () │
00:03:37 #6259 [verbose] > │ method0() │
00:03:37 #6260 [verbose] > │ │
00:03:37 #6261 [verbose] > │ 3.16227766 │
00:03:37 #6262 [verbose] > │ │
00:03:37 #6263 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:37 #6264 [verbose] >
00:03:37 #6265 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:37 #6266 [verbose] > // // test
00:03:37 #6267 [verbose] >
00:03:37 #6268 [verbose] > 2f64 / 3
00:03:37 #6269 [verbose] > |> _assert_approx_eq None 0.6666666666666666
00:03:37 #6270 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f201cbec49c0a7b6324cf45a7fd9d1966d3a7e45791741c600e64d991bc95032\main.spi
00:03:37 #6271 [verbose] >
00:03:37 #6272 [verbose] > ╭─[ 254.03ms - stdout ]────────────────────────────────────────────────────────╮
00:03:37 #6273 [verbose] > │ let rec method0 () : unit = │
00:03:37 #6274 [verbose] > │ let v0 : string = $"%A{0.6666666666666666}" │
00:03:37 #6275 [verbose] > │ System.Console.WriteLine v0 │
00:03:37 #6276 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.6666666666666666} / │
00:03:37 #6277 [verbose] > │ expected: %A{0.6666666666666666}" │
00:03:37 #6278 [verbose] > │ () │
00:03:37 #6279 [verbose] > │ method0() │
00:03:37 #6280 [verbose] > │ │
00:03:37 #6281 [verbose] > │ 0.6666666667 │
00:03:37 #6282 [verbose] > │ │
00:03:37 #6283 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:37 #6284 [verbose] >
00:03:37 #6285 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:37 #6286 [verbose] > // // test
00:03:37 #6287 [verbose] >
00:03:37 #6288 [verbose] > 2f64 |> log
00:03:37 #6289 [verbose] > |> _assert_approx_eq None 0.6931471805599453
00:03:38 #6290 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f876268b4b06977b27e7fe43e9d9e44c0cf93875005652360409c55f1116d341\main.spi
00:03:38 #6291 [verbose] >
00:03:38 #6292 [verbose] > ╭─[ 231.75ms - stdout ]────────────────────────────────────────────────────────╮
00:03:38 #6293 [verbose] > │ let rec method0 () : unit = │
00:03:38 #6294 [verbose] > │ let v0 : string = $"%A{0.6931471805599453}" │
00:03:38 #6295 [verbose] > │ System.Console.WriteLine v0 │
00:03:38 #6296 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.6931471805599453} / │
00:03:38 #6297 [verbose] > │ expected: %A{0.6931471805599453}" │
00:03:38 #6298 [verbose] > │ () │
00:03:38 #6299 [verbose] > │ method0() │
00:03:38 #6300 [verbose] > │ │
00:03:38 #6301 [verbose] > │ 0.6931471806 │
00:03:38 #6302 [verbose] > │ │
00:03:38 #6303 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:38 #6304 [verbose] >
00:03:38 #6305 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:38 #6306 [verbose] > // // test
00:03:38 #6307 [verbose] >
00:03:38 #6308 [verbose] > pi
00:03:38 #6309 [verbose] > |> _assert_approx_eq None 3.141592653589793f64
00:03:38 #6310 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ed29441ffd8bb707d15580b1ba4c934813222816b0c54717228948b66e9ea141\main.spi
00:03:38 #6311 [verbose] >
00:03:38 #6312 [verbose] > ╭─[ 296.26ms - stdout ]────────────────────────────────────────────────────────╮
00:03:38 #6313 [verbose] > │ let rec method0 () : unit = │
00:03:38 #6314 [verbose] > │ let v0 : string = $"%A{3.141592653589793}" │
00:03:38 #6315 [verbose] > │ System.Console.WriteLine v0 │
00:03:38 #6316 [verbose] > │ let v1 : string = $"__expect / actual: %A{3.141592653589793} / expected: │
00:03:38 #6317 [verbose] > │ %A{3.141592653589793}" │
00:03:38 #6318 [verbose] > │ () │
00:03:38 #6319 [verbose] > │ method0() │
00:03:38 #6320 [verbose] > │ │
00:03:38 #6321 [verbose] > │ 3.141592654 │
00:03:38 #6322 [verbose] > │ │
00:03:38 #6323 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:38 #6324 [verbose] >
00:03:38 #6325 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:38 #6326 [verbose] > // // test
00:03:38 #6327 [verbose] >
00:03:38 #6328 [verbose] > pi |> cos
00:03:38 #6329 [verbose] > |> _assert_eq -1f64
00:03:38 #6330 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fc982cff505ed44171faa5ade16de3cfdc975d7882c9ce2f602671b8c2e7cecf\main.spi
00:03:38 #6331 [verbose] >
00:03:38 #6332 [verbose] > ╭─[ 292.82ms - stdout ]────────────────────────────────────────────────────────╮
00:03:38 #6333 [verbose] > │ let rec method0 () : unit = │
00:03:38 #6334 [verbose] > │ let v0 : string = $"%A{-1.0}" │
00:03:38 #6335 [verbose] > │ System.Console.WriteLine v0 │
00:03:38 #6336 [verbose] > │ let v1 : string = $"__expect / actual: %A{-1.0} / expected: %A{-1.0}" │
00:03:38 #6337 [verbose] > │ () │
00:03:38 #6338 [verbose] > │ method0() │
00:03:38 #6339 [verbose] > │ │
00:03:38 #6340 [verbose] > │ -1.0 │
00:03:38 #6341 [verbose] > │ │
00:03:38 #6342 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:38 #6343 [verbose] >
00:03:38 #6344 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:38 #6345 [verbose] > // // test
00:03:38 #6346 [verbose] >
00:03:38 #6347 [verbose] > pi
00:03:38 #6348 [verbose] > |> cos
00:03:38 #6349 [verbose] > |> fun n => n / 2f64
00:03:38 #6350 [verbose] > |> _assert_approx_eq None -0.5
00:03:38 #6351 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7b458f213fbe11c5ff35afa0df884c3e56ac731dfbc13a3c6818babab2ed0283\main.spi
00:03:39 #6352 [verbose] >
00:03:39 #6353 [verbose] > ╭─[ 258.53ms - stdout ]────────────────────────────────────────────────────────╮
00:03:39 #6354 [verbose] > │ let rec method0 () : unit = │
00:03:39 #6355 [verbose] > │ let v0 : string = $"%A{-0.5}" │
00:03:39 #6356 [verbose] > │ System.Console.WriteLine v0 │
00:03:39 #6357 [verbose] > │ let v1 : string = $"__expect / actual: %A{-0.5} / expected: %A{-0.5}" │
00:03:39 #6358 [verbose] > │ () │
00:03:39 #6359 [verbose] > │ method0() │
00:03:39 #6360 [verbose] > │ │
00:03:39 #6361 [verbose] > │ -0.5 │
00:03:39 #6362 [verbose] > │ │
00:03:39 #6363 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 #6364 [verbose] >
00:03:39 #6365 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 #6366 [verbose] > // // test
00:03:39 #6367 [verbose] >
00:03:39 #6368 [verbose] > pi / 2 |> cos
00:03:39 #6369 [verbose] > |> _assert_approx_eq None 0.00000000000000006123233995736766f64
00:03:39 #6370 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d3e7563eb61c58eb9a0de8f13fb4644cd6e4bd27fa8259645e887d11cbb52a4c\main.spi
00:03:39 #6371 [verbose] >
00:03:39 #6372 [verbose] > ╭─[ 270.68ms - stdout ]────────────────────────────────────────────────────────╮
00:03:39 #6373 [verbose] > │ let rec method0 () : unit = │
00:03:39 #6374 [verbose] > │ let v0 : string = $"%A{6.123233995736766E-17}" │
00:03:39 #6375 [verbose] > │ System.Console.WriteLine v0 │
00:03:39 #6376 [verbose] > │ let v1 : string = $"__expect / actual: %A{6.123233995736766E-17} / │
00:03:39 #6377 [verbose] > │ expected: %A{6.123233995736766E-17}" │
00:03:39 #6378 [verbose] > │ () │
00:03:39 #6379 [verbose] > │ method0() │
00:03:39 #6380 [verbose] > │ │
00:03:39 #6381 [verbose] > │ 6.123233996e-17 │
00:03:39 #6382 [verbose] > │ │
00:03:39 #6383 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 #6384 [verbose] >
00:03:39 #6385 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:39 #6386 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:39 #6387 [verbose] > │ ## atan2 │
00:03:39 #6388 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 #6389 [verbose] >
00:03:39 #6390 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 #6391 [verbose] > inl atan2 (y : f64) (x : f64) =
00:03:39 #6392 [verbose] > $"System.Math.Atan2 (!y, !x)" : f64
00:03:39 #6393 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b52f00ae01e0a82baf398447b5c66bc8552bc3ed8e220d6574b2c95a9b9562a1\main.spi
00:03:39 #6394 [verbose] >
00:03:39 #6395 [verbose] > ╭─[ 253.16ms - stdout ]────────────────────────────────────────────────────────╮
00:03:39 #6396 [verbose] > │ () │
00:03:39 #6397 [verbose] > │ │
00:03:39 #6398 [verbose] > │ │
00:03:39 #6399 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 #6400 [verbose] >
00:03:39 #6401 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 #6402 [verbose] > // // test
00:03:39 #6403 [verbose] >
00:03:39 #6404 [verbose] > 0 |> atan2 1
00:03:39 #6405 [verbose] > |> _assert_eq 1.5707963267948966
00:03:39 #6406 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\282bea1a492a1f762845c6b5e6c280778ba9ca7e342dabcd29c5bedcdcdf9570\main.spi
00:03:39 #6407 [verbose] >
00:03:39 #6408 [verbose] > ╭─[ 372.26ms - stdout ]────────────────────────────────────────────────────────╮
00:03:39 #6409 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:39 #6410 [verbose] > │ v0 │
00:03:39 #6411 [verbose] > │ and method0 () : unit = │
00:03:39 #6412 [verbose] > │ let v0 : float = System.Math.Atan2 (1.0, 0.0) │
00:03:39 #6413 [verbose] > │ let v1 : string = $"%A{v0}" │
00:03:39 #6414 [verbose] > │ System.Console.WriteLine v1 │
00:03:39 #6415 [verbose] > │ let v2 : bool = v0 = 1.5707963267948966 │
00:03:39 #6416 [verbose] > │ let v4 : bool = │
00:03:39 #6417 [verbose] > │ if v2 then │
00:03:39 #6418 [verbose] > │ true │
00:03:39 #6419 [verbose] > │ else │
00:03:39 #6420 [verbose] > │ method1(v2) │
00:03:39 #6421 [verbose] > │ let v5 : string = $"__expect / actual: %A{v0} / expected: │
00:03:39 #6422 [verbose] > │ %A{1.5707963267948966}" │
00:03:39 #6423 [verbose] > │ let v6 : bool = v4 = false │
00:03:39 #6424 [verbose] > │ if v6 then │
00:03:39 #6425 [verbose] > │ failwith<unit> v5 │
00:03:39 #6426 [verbose] > │ method0() │
00:03:39 #6427 [verbose] > │ │
00:03:39 #6428 [verbose] > │ 1.570796327 │
00:03:39 #6429 [verbose] > │ │
00:03:39 #6430 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 #6431 [verbose] >
00:03:39 #6432 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:39 #6433 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:39 #6434 [verbose] > │ ## e │
00:03:39 #6435 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:39 #6436 [verbose] >
00:03:39 #6437 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:39 #6438 [verbose] > inl e () =
00:03:39 #6439 [verbose] > exp 1f64
00:03:40 #6440 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9f18f8809a1420fe6309a84b48fe1415a4f94278d9c504bb06944d9b47a33ff2\main.spi
00:03:40 #6441 [verbose] >
00:03:40 #6442 [verbose] > ╭─[ 271.93ms - stdout ]────────────────────────────────────────────────────────╮
00:03:40 #6443 [verbose] > │ () │
00:03:40 #6444 [verbose] > │ │
00:03:40 #6445 [verbose] > │ │
00:03:40 #6446 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:40 #6447 [verbose] >
00:03:40 #6448 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:40 #6449 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:40 #6450 [verbose] > │ ## floor │
00:03:40 #6451 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:40 #6452 [verbose] >
00:03:40 #6453 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:40 #6454 [verbose] > inl floor forall t {float}. (n : t) : t =
00:03:40 #6455 [verbose] > n |> $'floor'
00:03:40 #6456 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9e926fdbe3def79728214d9696c26ef88c37fccacce22427c44cd0ae376edd9f\main.spi
00:03:40 #6457 [verbose] >
00:03:40 #6458 [verbose] > ╭─[ 218.71ms - stdout ]────────────────────────────────────────────────────────╮
00:03:40 #6459 [verbose] > │ () │
00:03:40 #6460 [verbose] > │ │
00:03:40 #6461 [verbose] > │ │
00:03:40 #6462 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:40 #6463 [verbose] >
00:03:40 #6464 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:40 #6465 [verbose] > // // test
00:03:40 #6466 [verbose] >
00:03:40 #6467 [verbose] > 0.6 |> floor
00:03:40 #6468 [verbose] > |> _assert_eq 0f64
00:03:40 #6469 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b926d15f7df8c5da17b3f1c85c24ca5eac34b38534816ab26b0581b4ff19de0e\main.spi
00:03:40 #6470 [verbose] >
00:03:40 #6471 [verbose] > ╭─[ 332.81ms - stdout ]────────────────────────────────────────────────────────╮
00:03:40 #6472 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:40 #6473 [verbose] > │ v0 │
00:03:40 #6474 [verbose] > │ and method0 () : unit = │
00:03:40 #6475 [verbose] > │ let v0 : (float -> float) = floor │
00:03:40 #6476 [verbose] > │ let v1 : float = v0 0.6 │
00:03:40 #6477 [verbose] > │ let v2 : string = $"%A{v1}" │
00:03:40 #6478 [verbose] > │ System.Console.WriteLine v2 │
00:03:40 #6479 [verbose] > │ let v3 : bool = v1 = 0.0 │
00:03:40 #6480 [verbose] > │ let v5 : bool = │
00:03:40 #6481 [verbose] > │ if v3 then │
00:03:40 #6482 [verbose] > │ true │
00:03:40 #6483 [verbose] > │ else │
00:03:40 #6484 [verbose] > │ method1(v3) │
00:03:40 #6485 [verbose] > │ let v6 : string = $"__expect / actual: %A{v1} / expected: %A{0.0}" │
00:03:40 #6486 [verbose] > │ let v7 : bool = v5 = false │
00:03:40 #6487 [verbose] > │ if v7 then │
00:03:40 #6488 [verbose] > │ failwith<unit> v6 │
00:03:40 #6489 [verbose] > │ method0() │
00:03:40 #6490 [verbose] > │ │
00:03:40 #6491 [verbose] > │ 0.0 │
00:03:40 #6492 [verbose] > │ │
00:03:40 #6493 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:40 #6494 [verbose] >
00:03:40 #6495 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:40 #6496 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:40 #6497 [verbose] > │ ## ceil │
00:03:40 #6498 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:40 #6499 [verbose] >
00:03:40 #6500 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:40 #6501 [verbose] > inl ceil forall t {float}. (n : t) : t =
00:03:40 #6502 [verbose] > n |> $'ceil'
00:03:41 #6503 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6ec9e7066fc9025ca918507b5f2b101901cfb9fd538defd3b8fd96866eaf081f\main.spi
00:03:41 #6504 [verbose] >
00:03:41 #6505 [verbose] > ╭─[ 309.42ms - stdout ]────────────────────────────────────────────────────────╮
00:03:41 #6506 [verbose] > │ () │
00:03:41 #6507 [verbose] > │ │
00:03:41 #6508 [verbose] > │ │
00:03:41 #6509 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:41 #6510 [verbose] >
00:03:41 #6511 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:41 #6512 [verbose] > // // test
00:03:41 #6513 [verbose] >
00:03:41 #6514 [verbose] > 0.6 |> ceil
00:03:41 #6515 [verbose] > |> _assert_eq 1f64
00:03:41 #6516 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\944af23eadcba06dbcf5481a7d879730112003385d0f89a2495a05f399526f15\main.spi
00:03:41 #6517 [verbose] >
00:03:41 #6518 [verbose] > ╭─[ 289.65ms - stdout ]────────────────────────────────────────────────────────╮
00:03:41 #6519 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:41 #6520 [verbose] > │ v0 │
00:03:41 #6521 [verbose] > │ and method0 () : unit = │
00:03:41 #6522 [verbose] > │ let v0 : (float -> float) = ceil │
00:03:41 #6523 [verbose] > │ let v1 : float = v0 0.6 │
00:03:41 #6524 [verbose] > │ let v2 : string = $"%A{v1}" │
00:03:41 #6525 [verbose] > │ System.Console.WriteLine v2 │
00:03:41 #6526 [verbose] > │ let v3 : bool = v1 = 1.0 │
00:03:41 #6527 [verbose] > │ let v5 : bool = │
00:03:41 #6528 [verbose] > │ if v3 then │
00:03:41 #6529 [verbose] > │ true │
00:03:41 #6530 [verbose] > │ else │
00:03:41 #6531 [verbose] > │ method1(v3) │
00:03:41 #6532 [verbose] > │ let v6 : string = $"__expect / actual: %A{v1} / expected: %A{1.0}" │
00:03:41 #6533 [verbose] > │ let v7 : bool = v5 = false │
00:03:41 #6534 [verbose] > │ if v7 then │
00:03:41 #6535 [verbose] > │ failwith<unit> v6 │
00:03:41 #6536 [verbose] > │ method0() │
00:03:41 #6537 [verbose] > │ │
00:03:41 #6538 [verbose] > │ 1.0 │
00:03:41 #6539 [verbose] > │ │
00:03:41 #6540 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:41 #6541 [verbose] >
00:03:41 #6542 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:41 #6543 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:41 #6544 [verbose] > │ ## round │
00:03:41 #6545 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:41 #6546 [verbose] >
00:03:41 #6547 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:41 #6548 [verbose] > inl round forall t {float}. (n : t) : t =
00:03:41 #6549 [verbose] > n |> $'round'
00:03:41 #6550 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\593cd5dadf0ac6a91b1962983385282591b3532b4a1b99524d9b0058c35d3542\main.spi
00:03:41 #6551 [verbose] >
00:03:41 #6552 [verbose] > ╭─[ 221.63ms - stdout ]────────────────────────────────────────────────────────╮
00:03:41 #6553 [verbose] > │ () │
00:03:41 #6554 [verbose] > │ │
00:03:41 #6555 [verbose] > │ │
00:03:41 #6556 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:41 #6557 [verbose] >
00:03:41 #6558 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:41 #6559 [verbose] > // // test
00:03:41 #6560 [verbose] >
00:03:41 #6561 [verbose] > 0.5 |> round
00:03:41 #6562 [verbose] > |> _assert_eq 0f64
00:03:41 #6563 [verbose] >
00:03:41 #6564 [verbose] > 1.5 |> round
00:03:41 #6565 [verbose] > |> _assert_eq 2f64
00:03:41 #6566 [verbose] >
00:03:41 #6567 [verbose] > 2.5 |> round
00:03:41 #6568 [verbose] > |> _assert_eq 2f64
00:03:41 #6569 [verbose] >
00:03:41 #6570 [verbose] > 3.5 |> round
00:03:41 #6571 [verbose] > |> _assert_eq 4f64
00:03:41 #6572 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b7e854ce4afe028c5a5b7ca5484faeb0ea63410a8848df8b1dae6816b6eca162\main.spi
00:03:41 #6573 [verbose] >
00:03:41 #6574 [verbose] > ╭─[ 285.34ms - stdout ]────────────────────────────────────────────────────────╮
00:03:41 #6575 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:41 #6576 [verbose] > │ v0 │
00:03:41 #6577 [verbose] > │ and method0 () : unit = │
00:03:41 #6578 [verbose] > │ let v0 : (float -> float) = round │
00:03:41 #6579 [verbose] > │ let v1 : float = v0 0.5 │
00:03:41 #6580 [verbose] > │ let v2 : string = $"%A{v1}" │
00:03:41 #6581 [verbose] > │ System.Console.WriteLine v2 │
00:03:41 #6582 [verbose] > │ let v3 : bool = v1 = 0.0 │
00:03:41 #6583 [verbose] > │ let v5 : bool = │
00:03:41 #6584 [verbose] > │ if v3 then │
00:03:41 #6585 [verbose] > │ true │
00:03:41 #6586 [verbose] > │ else │
00:03:41 #6587 [verbose] > │ method1(v3) │
00:03:41 #6588 [verbose] > │ let v6 : string = $"__expect / actual: %A{v1} / expected: %A{0.0}" │
00:03:41 #6589 [verbose] > │ let v7 : bool = v5 = false │
00:03:41 #6590 [verbose] > │ if v7 then │
00:03:41 #6591 [verbose] > │ failwith<unit> v6 │
00:03:41 #6592 [verbose] > │ let v8 : (float -> float) = round │
00:03:41 #6593 [verbose] > │ let v9 : float = v8 1.5 │
00:03:41 #6594 [verbose] > │ let v10 : string = $"%A{v9}" │
00:03:41 #6595 [verbose] > │ System.Console.WriteLine v10 │
00:03:41 #6596 [verbose] > │ let v11 : bool = v9 = 2.0 │
00:03:41 #6597 [verbose] > │ let v13 : bool = │
00:03:41 #6598 [verbose] > │ if v11 then │
00:03:41 #6599 [verbose] > │ true │
00:03:41 #6600 [verbose] > │ else │
00:03:41 #6601 [verbose] > │ method1(v11) │
00:03:41 #6602 [verbose] > │ let v14 : string = $"__expect / actual: %A{v9} / expected: %A{2.0}" │
00:03:41 #6603 [verbose] > │ let v15 : bool = v13 = false │
00:03:41 #6604 [verbose] > │ if v15 then │
00:03:41 #6605 [verbose] > │ failwith<unit> v14 │
00:03:41 #6606 [verbose] > │ let v16 : (float -> float) = round │
00:03:41 #6607 [verbose] > │ let v17 : float = v16 2.5 │
00:03:41 #6608 [verbose] > │ let v18 : string = $"%A{v17}" │
00:03:41 #6609 [verbose] > │ System.Console.WriteLine v18 │
00:03:41 #6610 [verbose] > │ let v19 : bool = v17 = 2.0 │
00:03:41 #6611 [verbose] > │ let v21 : bool = │
00:03:41 #6612 [verbose] > │ if v19 then │
00:03:41 #6613 [verbose] > │ true │
00:03:41 #6614 [verbose] > │ else │
00:03:41 #6615 [verbose] > │ method1(v19) │
00:03:41 #6616 [verbose] > │ let v22 : string = $"__expect / actual: %A{v17} / expected: %A{2.0}" │
00:03:41 #6617 [verbose] > │ let v23 : bool = v21 = false │
00:03:41 #6618 [verbose] > │ if v23 then │
00:03:41 #6619 [verbose] > │ failwith<unit> v22 │
00:03:41 #6620 [verbose] > │ let v24 : (float -> float) = round │
00:03:41 #6621 [verbose] > │ let v25 : float = v24 3.5 │
00:03:41 #6622 [verbose] > │ let v26 : string = $"%A{v25}" │
00:03:41 #6623 [verbose] > │ System.Console.WriteLine v26 │
00:03:41 #6624 [verbose] > │ let v27 : bool = v25 = 4.0 │
00:03:41 #6625 [verbose] > │ let v29 : bool = │
00:03:41 #6626 [verbose] > │ if v27 then │
00:03:41 #6627 [verbose] > │ true │
00:03:41 #6628 [verbose] > │ else │
00:03:41 #6629 [verbose] > │ method1(v27) │
00:03:41 #6630 [verbose] > │ let v30 : string = $"__expect / actual: %A{v25} / expected: %A{4.0}" │
00:03:41 #6631 [verbose] > │ let v31 : bool = v29 = false │
00:03:41 #6632 [verbose] > │ if v31 then │
00:03:41 #6633 [verbose] > │ failwith<unit> v30 │
00:03:41 #6634 [verbose] > │ method0() │
00:03:41 #6635 [verbose] > │ │
00:03:41 #6636 [verbose] > │ 0.0 │
00:03:41 #6637 [verbose] > │ 2.0 │
00:03:41 #6638 [verbose] > │ 2.0 │
00:03:41 #6639 [verbose] > │ 4.0 │
00:03:41 #6640 [verbose] > │ │
00:03:41 #6641 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:41 #6642 [verbose] >
00:03:41 #6643 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:41 #6644 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:41 #6645 [verbose] > │ ## log_base │
00:03:41 #6646 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:41 #6647 [verbose] >
00:03:41 #6648 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:41 #6649 [verbose] > inl log_base (new_base : f64) (a : f64) =
00:03:41 #6650 [verbose] > $"System.Math.Log (!a, !new_base)" : f64
00:03:42 #6651 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5cc26f6b307404f6c34526ddc5dfb5d4810ef14de3a38adcdaa329989f623bb1\main.spi
00:03:42 #6652 [verbose] >
00:03:42 #6653 [verbose] > ╭─[ 240.50ms - stdout ]────────────────────────────────────────────────────────╮
00:03:42 #6654 [verbose] > │ () │
00:03:42 #6655 [verbose] > │ │
00:03:42 #6656 [verbose] > │ │
00:03:42 #6657 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:42 #6658 [verbose] >
00:03:42 #6659 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:42 #6660 [verbose] > // // test
00:03:42 #6661 [verbose] >
00:03:42 #6662 [verbose] > 100 |> log_base 10
00:03:42 #6663 [verbose] > |> _assert_eq 2
00:03:42 #6664 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8082d61c18bfe3690d4405438d19aa4743c4231769af9d1834a9581f6aed9055\main.spi
00:03:42 #6665 [verbose] >
00:03:42 #6666 [verbose] > ╭─[ 296.42ms - stdout ]────────────────────────────────────────────────────────╮
00:03:42 #6667 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:42 #6668 [verbose] > │ v0 │
00:03:42 #6669 [verbose] > │ and method0 () : unit = │
00:03:42 #6670 [verbose] > │ let v0 : float = System.Math.Log (100.0, 10.0) │
00:03:42 #6671 [verbose] > │ let v1 : string = $"%A{v0}" │
00:03:42 #6672 [verbose] > │ System.Console.WriteLine v1 │
00:03:42 #6673 [verbose] > │ let v2 : bool = v0 = 2.0 │
00:03:42 #6674 [verbose] > │ let v4 : bool = │
00:03:42 #6675 [verbose] > │ if v2 then │
00:03:42 #6676 [verbose] > │ true │
00:03:42 #6677 [verbose] > │ else │
00:03:42 #6678 [verbose] > │ method1(v2) │
00:03:42 #6679 [verbose] > │ let v5 : string = $"__expect / actual: %A{v0} / expected: %A{2.0}" │
00:03:42 #6680 [verbose] > │ let v6 : bool = v4 = false │
00:03:42 #6681 [verbose] > │ if v6 then │
00:03:42 #6682 [verbose] > │ failwith<unit> v5 │
00:03:42 #6683 [verbose] > │ method0() │
00:03:42 #6684 [verbose] > │ │
00:03:42 #6685 [verbose] > │ 2.0 │
00:03:42 #6686 [verbose] > │ │
00:03:42 #6687 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:42 #6688 [verbose] >
00:03:42 #6689 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:42 #6690 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:42 #6691 [verbose] > │ ## round │
00:03:42 #6692 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:42 #6693 [verbose] >
00:03:42 #6694 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:42 #6695 [verbose] > inl round forall t {float}. (x : t) : t =
00:03:42 #6696 [verbose] > $"round !x"
00:03:42 #6697 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4a82adc786a4d2e4d5c8f2e10720e424266e5819fb02bf34e6bd3e601c751636\main.spi
00:03:42 #6698 [verbose] >
00:03:42 #6699 [verbose] > ╭─[ 218.47ms - stdout ]────────────────────────────────────────────────────────╮
00:03:42 #6700 [verbose] > │ () │
00:03:42 #6701 [verbose] > │ │
00:03:42 #6702 [verbose] > │ │
00:03:42 #6703 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:42 #6704 [verbose] >
00:03:42 #6705 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:42 #6706 [verbose] > // // test
00:03:42 #6707 [verbose] >
00:03:42 #6708 [verbose] > 0.5 |> round
00:03:42 #6709 [verbose] > |> _assert_eq 0f64
00:03:42 #6710 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c2800e18c533626438a5e8bd0777d340a96a68a7531380b1cc02d38dadd37232\main.spi
00:03:43 #6711 [verbose] >
00:03:43 #6712 [verbose] > ╭─[ 295.09ms - stdout ]────────────────────────────────────────────────────────╮
00:03:43 #6713 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:43 #6714 [verbose] > │ v0 │
00:03:43 #6715 [verbose] > │ and method0 () : unit = │
00:03:43 #6716 [verbose] > │ let v0 : float = round 0.5 │
00:03:43 #6717 [verbose] > │ let v1 : string = $"%A{v0}" │
00:03:43 #6718 [verbose] > │ System.Console.WriteLine v1 │
00:03:43 #6719 [verbose] > │ let v2 : bool = v0 = 0.0 │
00:03:43 #6720 [verbose] > │ let v4 : bool = │
00:03:43 #6721 [verbose] > │ if v2 then │
00:03:43 #6722 [verbose] > │ true │
00:03:43 #6723 [verbose] > │ else │
00:03:43 #6724 [verbose] > │ method1(v2) │
00:03:43 #6725 [verbose] > │ let v5 : string = $"__expect / actual: %A{v0} / expected: %A{0.0}" │
00:03:43 #6726 [verbose] > │ let v6 : bool = v4 = false │
00:03:43 #6727 [verbose] > │ if v6 then │
00:03:43 #6728 [verbose] > │ failwith<unit> v5 │
00:03:43 #6729 [verbose] > │ method0() │
00:03:43 #6730 [verbose] > │ │
00:03:43 #6731 [verbose] > │ 0.0 │
00:03:43 #6732 [verbose] > │ │
00:03:43 #6733 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:43 #6734 [verbose] >
00:03:43 #6735 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:43 #6736 [verbose] > // // test
00:03:43 #6737 [verbose] >
00:03:43 #6738 [verbose] > 0.6 |> round
00:03:43 #6739 [verbose] > |> _assert_eq 1f64
00:03:43 #6740 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9bdfbc487d6ac05c65e40811e4191da51c25ca471316fff7173cbec4948a6f91\main.spi
00:03:43 #6741 [verbose] >
00:03:43 #6742 [verbose] > ╭─[ 226.83ms - stdout ]────────────────────────────────────────────────────────╮
00:03:43 #6743 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:43 #6744 [verbose] > │ v0 │
00:03:43 #6745 [verbose] > │ and method0 () : unit = │
00:03:43 #6746 [verbose] > │ let v0 : float = round 0.6 │
00:03:43 #6747 [verbose] > │ let v1 : string = $"%A{v0}" │
00:03:43 #6748 [verbose] > │ System.Console.WriteLine v1 │
00:03:43 #6749 [verbose] > │ let v2 : bool = v0 = 1.0 │
00:03:43 #6750 [verbose] > │ let v4 : bool = │
00:03:43 #6751 [verbose] > │ if v2 then │
00:03:43 #6752 [verbose] > │ true │
00:03:43 #6753 [verbose] > │ else │
00:03:43 #6754 [verbose] > │ method1(v2) │
00:03:43 #6755 [verbose] > │ let v5 : string = $"__expect / actual: %A{v0} / expected: %A{1.0}" │
00:03:43 #6756 [verbose] > │ let v6 : bool = v4 = false │
00:03:43 #6757 [verbose] > │ if v6 then │
00:03:43 #6758 [verbose] > │ failwith<unit> v5 │
00:03:43 #6759 [verbose] > │ method0() │
00:03:43 #6760 [verbose] > │ │
00:03:43 #6761 [verbose] > │ 1.0 │
00:03:43 #6762 [verbose] > │ │
00:03:43 #6763 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:43 #6764 [verbose] >
00:03:43 #6765 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:43 #6766 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:43 #6767 [verbose] > │ ## square │
00:03:43 #6768 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:43 #6769 [verbose] >
00:03:43 #6770 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:43 #6771 [verbose] > inl square x =
00:03:43 #6772 [verbose] > x ** 2
00:03:43 #6773 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0a6224adba94e3830901ee228ee47e45ca3607fb178a21f3b7959f83b3b9c373\main.spi
00:03:43 #6774 [verbose] >
00:03:43 #6775 [verbose] > ╭─[ 224.04ms - stdout ]────────────────────────────────────────────────────────╮
00:03:43 #6776 [verbose] > │ () │
00:03:43 #6777 [verbose] > │ │
00:03:43 #6778 [verbose] > │ │
00:03:43 #6779 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:43 #6780 [verbose] >
00:03:43 #6781 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:43 #6782 [verbose] > // // test
00:03:43 #6783 [verbose] >
00:03:43 #6784 [verbose] > 5f64
00:03:43 #6785 [verbose] > |> sqrt
00:03:43 #6786 [verbose] > |> square
00:03:43 #6787 [verbose] > |> _assert_approx_eq None 5
00:03:43 #6788 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ba0718d978830d09c983a032cdb9fa16f86d2e7f1ff2a68aa358e77d82db4ae8\main.spi
00:03:43 #6789 [verbose] >
00:03:43 #6790 [verbose] > ╭─[ 296.54ms - stdout ]────────────────────────────────────────────────────────╮
00:03:43 #6791 [verbose] > │ let rec method0 () : unit = │
00:03:43 #6792 [verbose] > │ let v0 : string = $"%A{5.000000000000001}" │
00:03:43 #6793 [verbose] > │ System.Console.WriteLine v0 │
00:03:43 #6794 [verbose] > │ let v1 : string = $"__expect / actual: %A{5.000000000000001} / expected: │
00:03:43 #6795 [verbose] > │ %A{5.0}" │
00:03:43 #6796 [verbose] > │ () │
00:03:43 #6797 [verbose] > │ method0() │
00:03:43 #6798 [verbose] > │ │
00:03:43 #6799 [verbose] > │ 5.0 │
00:03:43 #6800 [verbose] > │ │
00:03:43 #6801 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:43 #6802 [verbose] >
00:03:43 #6803 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:43 #6804 [verbose] > // // test
00:03:43 #6805 [verbose] >
00:03:43 #6806 [verbose] > e () |> square
00:03:43 #6807 [verbose] > |> _assert_approx_eq None 7.3890560989306495
00:03:44 #6808 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e8a3502899a4272c12824483af8d92c4e64f786f1eda3217d7d9c8b586512baf\main.spi
00:03:44 #6809 [verbose] >
00:03:44 #6810 [verbose] > ╭─[ 267.52ms - stdout ]────────────────────────────────────────────────────────╮
00:03:44 #6811 [verbose] > │ let rec method0 () : unit = │
00:03:44 #6812 [verbose] > │ let v0 : string = $"%A{7.3890560989306495}" │
00:03:44 #6813 [verbose] > │ System.Console.WriteLine v0 │
00:03:44 #6814 [verbose] > │ let v1 : string = $"__expect / actual: %A{7.3890560989306495} / │
00:03:44 #6815 [verbose] > │ expected: %A{7.3890560989306495}" │
00:03:44 #6816 [verbose] > │ () │
00:03:44 #6817 [verbose] > │ method0() │
00:03:44 #6818 [verbose] > │ │
00:03:44 #6819 [verbose] > │ 7.389056099 │
00:03:44 #6820 [verbose] > │ │
00:03:44 #6821 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:45 #6822 [verbose] > [NbConvertApp] Converting notebook math.dib.ipynb to html
00:03:45 #6823 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:03:45 #6824 [verbose] > validate(nb)
00:03:46 #6825 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:03:46 #6826 [verbose] > return _pygments_highlight(
00:03:46 #6827 [verbose] > [NbConvertApp] Writing 313224 bytes to math.dib.html
00:03:47 #6828 [debug] executeAsync / exitCode: 0 / output.Length: 35922
00:03:47 #6829 [debug] main / executeCommand / exitCode: 0
00:03:47 #6830 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 \"optionm'.dib\" -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:03:49 #6831 [verbose] >
00:03:49 #6832 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:49 #6833 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:49 #6834 [verbose] > │ # optionm │
00:03:49 #6835 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:50 #6836 [verbose] >
00:03:50 #6837 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:50 #6838 [verbose] > // // test
00:03:50 #6839 [verbose] >
00:03:50 #6840 [verbose] > open testing
00:03:53 #6841 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:03:54 #6842 [verbose] >
00:03:54 #6843 [verbose] > ╭─[ 4.23s - stdout ]───────────────────────────────────────────────────────────╮
00:03:54 #6844 [verbose] > │ () │
00:03:54 #6845 [verbose] > │ │
00:03:54 #6846 [verbose] > │ │
00:03:54 #6847 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 #6848 [verbose] >
00:03:54 #6849 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:54 #6850 [verbose] > open rust_operators
00:03:54 #6851 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b9bafaa9190fd8b92f96dcaf4c2d6855aa7c524558dd349c71163ab7065188b0\main.spi
00:03:54 #6852 [verbose] >
00:03:54 #6853 [verbose] > ╭─[ 243.90ms - stdout ]────────────────────────────────────────────────────────╮
00:03:54 #6854 [verbose] > │ () │
00:03:54 #6855 [verbose] > │ │
00:03:54 #6856 [verbose] > │ │
00:03:54 #6857 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 #6858 [verbose] >
00:03:54 #6859 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:54 #6860 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:54 #6861 [verbose] > │ ## default_value │
00:03:54 #6862 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 #6863 [verbose] >
00:03:54 #6864 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:54 #6865 [verbose] > inl default_value d =
00:03:54 #6866 [verbose] > optionm.defaultWith d
00:03:54 #6867 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\67879457f8da40dc6d225e4ec958787028de82cfe885be7a3cdce48a543bf5c4\main.spi
00:03:54 #6868 [verbose] >
00:03:54 #6869 [verbose] > ╭─[ 248.09ms - stdout ]────────────────────────────────────────────────────────╮
00:03:54 #6870 [verbose] > │ () │
00:03:54 #6871 [verbose] > │ │
00:03:54 #6872 [verbose] > │ │
00:03:54 #6873 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:54 #6874 [verbose] >
00:03:54 #6875 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:54 #6876 [verbose] > // // test
00:03:54 #6877 [verbose] >
00:03:54 #6878 [verbose] > None
00:03:54 #6879 [verbose] > |> default_value 3i32
00:03:54 #6880 [verbose] > |> _assert_eq 3i32
00:03:54 #6881 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f127e910128409c2144d0ec128524c6d3f4ea158b822f92b4bde74822af60286\main.spi
00:03:55 #6882 [verbose] >
00:03:55 #6883 [verbose] > ╭─[ 875.33ms - stdout ]────────────────────────────────────────────────────────╮
00:03:55 #6884 [verbose] > │ let rec method0 () : unit = │
00:03:55 #6885 [verbose] > │ let v0 : string = $"%A{3}" │
00:03:55 #6886 [verbose] > │ System.Console.WriteLine v0 │
00:03:55 #6887 [verbose] > │ let v1 : string = $"__expect / actual: %A{3} / expected: %A{3}" │
00:03:55 #6888 [verbose] > │ () │
00:03:55 #6889 [verbose] > │ method0() │
00:03:55 #6890 [verbose] > │ │
00:03:55 #6891 [verbose] > │ 3 │
00:03:55 #6892 [verbose] > │ │
00:03:55 #6893 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 #6894 [verbose] >
00:03:55 #6895 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:55 #6896 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:55 #6897 [verbose] > │ ## (/??) │
00:03:55 #6898 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 #6899 [verbose] >
00:03:55 #6900 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:55 #6901 [verbose] > inl (/??) a b =
00:03:55 #6902 [verbose] > a |> default_value b
00:03:55 #6903 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8ac13221d2a941e0351392f381fd7f7a76bbee28a435f6166d57c9d6edeaed75\main.spi
00:03:55 #6904 [verbose] >
00:03:55 #6905 [verbose] > ╭─[ 289.27ms - stdout ]────────────────────────────────────────────────────────╮
00:03:55 #6906 [verbose] > │ () │
00:03:55 #6907 [verbose] > │ │
00:03:55 #6908 [verbose] > │ │
00:03:55 #6909 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:55 #6910 [verbose] >
00:03:55 #6911 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:55 #6912 [verbose] > // // test
00:03:55 #6913 [verbose] >
00:03:55 #6914 [verbose] > None /?? 3i32
00:03:55 #6915 [verbose] > |> _assert_eq 3i32
00:03:56 #6916 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\81032139a8d1837f2e24dd8e76254e3c5e3d1b290f1f037b49ebed4992b9367a\main.spi
00:03:56 #6917 [verbose] >
00:03:56 #6918 [verbose] > ╭─[ 311.69ms - stdout ]────────────────────────────────────────────────────────╮
00:03:56 #6919 [verbose] > │ let rec method0 () : unit = │
00:03:56 #6920 [verbose] > │ let v0 : string = $"%A{3}" │
00:03:56 #6921 [verbose] > │ System.Console.WriteLine v0 │
00:03:56 #6922 [verbose] > │ let v1 : string = $"__expect / actual: %A{3} / expected: %A{3}" │
00:03:56 #6923 [verbose] > │ () │
00:03:56 #6924 [verbose] > │ method0() │
00:03:56 #6925 [verbose] > │ │
00:03:56 #6926 [verbose] > │ 3 │
00:03:56 #6927 [verbose] > │ │
00:03:56 #6928 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 #6929 [verbose] >
00:03:56 #6930 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:56 #6931 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:56 #6932 [verbose] > │ ## default_with │
00:03:56 #6933 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 #6934 [verbose] >
00:03:56 #6935 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 #6936 [verbose] > inl default_with fn = function
00:03:56 #6937 [verbose] > | Some x => x
00:03:56 #6938 [verbose] > | None => fn ()
00:03:56 #6939 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\25cdae92c8945151af3cafac33bf38a8e49f838b2bdaa1cd03b1ab2309e59aee\main.spi
00:03:56 #6940 [verbose] >
00:03:56 #6941 [verbose] > ╭─[ 297.93ms - stdout ]────────────────────────────────────────────────────────╮
00:03:56 #6942 [verbose] > │ () │
00:03:56 #6943 [verbose] > │ │
00:03:56 #6944 [verbose] > │ │
00:03:56 #6945 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:56 #6946 [verbose] >
00:03:56 #6947 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:56 #6948 [verbose] > // // test
00:03:56 #6949 [verbose] >
00:03:56 #6950 [verbose] > None
00:03:56 #6951 [verbose] > |> default_with fun () => 3i32
00:03:56 #6952 [verbose] > |> _assert_eq 3i32
00:03:56 #6953 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3d0a5ba8955e48e694d1aee4d367d506b897018237440ccaefde413d3cf6b122\main.spi
00:03:57 #6954 [verbose] >
00:03:57 #6955 [verbose] > ╭─[ 666.42ms - stdout ]────────────────────────────────────────────────────────╮
00:03:57 #6956 [verbose] > │ let rec method0 () : unit = │
00:03:57 #6957 [verbose] > │ let v0 : string = $"%A{3}" │
00:03:57 #6958 [verbose] > │ System.Console.WriteLine v0 │
00:03:57 #6959 [verbose] > │ let v1 : string = $"__expect / actual: %A{3} / expected: %A{3}" │
00:03:57 #6960 [verbose] > │ () │
00:03:57 #6961 [verbose] > │ method0() │
00:03:57 #6962 [verbose] > │ │
00:03:57 #6963 [verbose] > │ 3 │
00:03:57 #6964 [verbose] > │ │
00:03:57 #6965 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 #6966 [verbose] >
00:03:57 #6967 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:57 #6968 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:57 #6969 [verbose] > │ ## choose │
00:03:57 #6970 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 #6971 [verbose] >
00:03:57 #6972 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:57 #6973 [verbose] > inl choose fn a b =
00:03:57 #6974 [verbose] > match a, b with
00:03:57 #6975 [verbose] > | Some x, Some y => fn x y |> Some
00:03:57 #6976 [verbose] > | _ => None
00:03:57 #6977 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5ce28a8150483c0d279d8581b3d5bf160c6489ada948ce74630bd54b6d30603e\main.spi
00:03:57 #6978 [verbose] >
00:03:57 #6979 [verbose] > ╭─[ 272.74ms - stdout ]────────────────────────────────────────────────────────╮
00:03:57 #6980 [verbose] > │ () │
00:03:57 #6981 [verbose] > │ │
00:03:57 #6982 [verbose] > │ │
00:03:57 #6983 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:57 #6984 [verbose] >
00:03:57 #6985 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:57 #6986 [verbose] > // // test
00:03:57 #6987 [verbose] >
00:03:57 #6988 [verbose] > (Some 2i32, Some 3)
00:03:57 #6989 [verbose] > ||> choose (+)
00:03:57 #6990 [verbose] > |> _assert_eq (Some 5)
00:03:57 #6991 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\421b231584700139210a8a78bd888043a4511c6e8cfd39b1199b1441afee064e\main.spi
00:03:58 #6992 [verbose] >
00:03:58 #6993 [verbose] > ╭─[ 753.87ms - stdout ]────────────────────────────────────────────────────────╮
00:03:58 #6994 [verbose] > │ type [<Struct>] US0 = │
00:03:58 #6995 [verbose] > │ | US0_0 of f0_0 : int32 │
00:03:58 #6996 [verbose] > │ | US0_1 │
00:03:58 #6997 [verbose] > │ let rec method0 () : unit = │
00:03:58 #6998 [verbose] > │ let v0 : US0 = US0_0(5) │
00:03:58 #6999 [verbose] > │ let v1 : string = $"%A{v0}" │
00:03:58 #7000 [verbose] > │ System.Console.WriteLine v1 │
00:03:58 #7001 [verbose] > │ let v5 : US0 = US0_0(5) │
00:03:58 #7002 [verbose] > │ let v6 : US0 = US0_0(5) │
00:03:58 #7003 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:03:58 #7004 [verbose] > │ () │
00:03:58 #7005 [verbose] > │ method0() │
00:03:58 #7006 [verbose] > │ │
00:03:58 #7007 [verbose] > │ US0_0 5 │
00:03:58 #7008 [verbose] > │ │
00:03:58 #7009 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 #7010 [verbose] >
00:03:58 #7011 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:58 #7012 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:58 #7013 [verbose] > │ ## iter │
00:03:58 #7014 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 #7015 [verbose] >
00:03:58 #7016 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:58 #7017 [verbose] > inl iter fn = function
00:03:58 #7018 [verbose] > | Some x => fn x
00:03:58 #7019 [verbose] > | None => ()
00:03:58 #7020 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6b71c772c676b54887ca3127d3461a4519f9fc60d20088c62814be31b7b7586e\main.spi
00:03:58 #7021 [verbose] >
00:03:58 #7022 [verbose] > ╭─[ 267.55ms - stdout ]────────────────────────────────────────────────────────╮
00:03:58 #7023 [verbose] > │ () │
00:03:58 #7024 [verbose] > │ │
00:03:58 #7025 [verbose] > │ │
00:03:58 #7026 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 #7027 [verbose] >
00:03:58 #7028 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:58 #7029 [verbose] > // // test
00:03:58 #7030 [verbose] >
00:03:58 #7031 [verbose] > inl n = mut 1i32
00:03:58 #7032 [verbose] > inl fn =
00:03:58 #7033 [verbose] > fun n' =>
00:03:58 #7034 [verbose] > n <- *n + n'
00:03:58 #7035 [verbose] > Some 1i32 |> iter fn
00:03:58 #7036 [verbose] > None |> iter fn
00:03:58 #7037 [verbose] > *n
00:03:58 #7038 [verbose] > |> _assert_eq 2i32
00:03:58 #7039 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8dc4e3276ef0ed082dee76c2df62a507aee81f28f265a2b4231ebec10582426d\main.spi
00:03:58 #7040 [verbose] >
00:03:58 #7041 [verbose] > ╭─[ 422.75ms - stdout ]────────────────────────────────────────────────────────╮
00:03:58 #7042 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:03:58 #7043 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:03:58 #7044 [verbose] > │ v0 │
00:03:58 #7045 [verbose] > │ and method0 () : unit = │
00:03:58 #7046 [verbose] > │ let v0 : Mut0 = {l0 = 1} : Mut0 │
00:03:58 #7047 [verbose] > │ let v1 : int32 = v0.l0 │
00:03:58 #7048 [verbose] > │ let v2 : int32 = v1 + 1 │
00:03:58 #7049 [verbose] > │ v0.l0 <- v2 │
00:03:58 #7050 [verbose] > │ let v3 : int32 = v0.l0 │
00:03:58 #7051 [verbose] > │ let v4 : string = $"%A{v3}" │
00:03:58 #7052 [verbose] > │ System.Console.WriteLine v4 │
00:03:58 #7053 [verbose] > │ let v5 : bool = v3 = 2 │
00:03:58 #7054 [verbose] > │ let v7 : bool = │
00:03:58 #7055 [verbose] > │ if v5 then │
00:03:58 #7056 [verbose] > │ true │
00:03:58 #7057 [verbose] > │ else │
00:03:58 #7058 [verbose] > │ method1(v5) │
00:03:58 #7059 [verbose] > │ let v8 : string = $"__expect / actual: %A{v3} / expected: %A{2}" │
00:03:58 #7060 [verbose] > │ let v9 : bool = v7 = false │
00:03:58 #7061 [verbose] > │ if v9 then │
00:03:58 #7062 [verbose] > │ failwith<unit> v8 │
00:03:58 #7063 [verbose] > │ method0() │
00:03:58 #7064 [verbose] > │ │
00:03:58 #7065 [verbose] > │ 2 │
00:03:58 #7066 [verbose] > │ │
00:03:58 #7067 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 #7068 [verbose] >
00:03:58 #7069 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:58 #7070 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:58 #7071 [verbose] > │ ## option' │
00:03:58 #7072 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:58 #7073 [verbose] >
00:03:58 #7074 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:58 #7075 [verbose] > nominal option' t = $"`t option"
00:03:59 #7076 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\36176593a8fc7e49837a0752c5271c8bbf20dba7eab7702a2646ac56a8a22d2f\main.spi
00:03:59 #7077 [verbose] >
00:03:59 #7078 [verbose] > ╭─[ 245.78ms - stdout ]────────────────────────────────────────────────────────╮
00:03:59 #7079 [verbose] > │ () │
00:03:59 #7080 [verbose] > │ │
00:03:59 #7081 [verbose] > │ │
00:03:59 #7082 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:59 #7083 [verbose] >
00:03:59 #7084 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:59 #7085 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:59 #7086 [verbose] > │ ## none' │
00:03:59 #7087 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:59 #7088 [verbose] >
00:03:59 #7089 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:59 #7090 [verbose] > inl none' forall t. () : option' t =
00:03:59 #7091 [verbose] > $'None'
00:03:59 #7092 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\61cf11b890e30cc7af2db4da0c20ed70a99e3752df1f131161c5149c28d64481\main.spi
00:03:59 #7093 [verbose] >
00:03:59 #7094 [verbose] > ╭─[ 231.60ms - stdout ]────────────────────────────────────────────────────────╮
00:03:59 #7095 [verbose] > │ () │
00:03:59 #7096 [verbose] > │ │
00:03:59 #7097 [verbose] > │ │
00:03:59 #7098 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:59 #7099 [verbose] >
00:03:59 #7100 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:59 #7101 [verbose] > inl some' forall t. (x : t) : option' t =
00:03:59 #7102 [verbose] > $'Some !x '
00:03:59 #7103 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cd3fc4e682f03bb9e8a92093370444dd11eaea3e4fa892de8675a188e769908b\main.spi
00:03:59 #7104 [verbose] >
00:03:59 #7105 [verbose] > ╭─[ 205.59ms - stdout ]────────────────────────────────────────────────────────╮
00:03:59 #7106 [verbose] > │ () │
00:03:59 #7107 [verbose] > │ │
00:03:59 #7108 [verbose] > │ │
00:03:59 #7109 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:59 #7110 [verbose] >
00:03:59 #7111 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:59 #7112 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:59 #7113 [verbose] > │ ## map │
00:03:59 #7114 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:59 #7115 [verbose] >
00:03:59 #7116 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:59 #7117 [verbose] > inl map forall t u. (fn : t -> u) (x : option' t) : option' u =
00:03:59 #7118 [verbose] > $'!x |> Option.map !fn '
00:03:59 #7119 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\328e4e90c2e02fcb5140bb04fa5ba5135366b9f9c8fbb39342e52adfd0200611\main.spi
00:03:59 #7120 [verbose] >
00:03:59 #7121 [verbose] > ╭─[ 229.59ms - stdout ]────────────────────────────────────────────────────────╮
00:03:59 #7122 [verbose] > │ () │
00:03:59 #7123 [verbose] > │ │
00:03:59 #7124 [verbose] > │ │
00:03:59 #7125 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:59 #7126 [verbose] >
00:03:59 #7127 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:03:59 #7128 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:03:59 #7129 [verbose] > │ ## default_value' │
00:03:59 #7130 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:03:59 #7131 [verbose] >
00:03:59 #7132 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:03:59 #7133 [verbose] > inl default_value' forall t. (value : t) (x : option' t) : t =
00:03:59 #7134 [verbose] > $'!x |> Option.defaultValue !value '
00:04:00 #7135 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6be86e30f5faa062d2f646db126f0658b00a3e4eac876a24c69584ab68623bba\main.spi
00:04:00 #7136 [verbose] >
00:04:00 #7137 [verbose] > ╭─[ 239.14ms - stdout ]────────────────────────────────────────────────────────╮
00:04:00 #7138 [verbose] > │ () │
00:04:00 #7139 [verbose] > │ │
00:04:00 #7140 [verbose] > │ │
00:04:00 #7141 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 #7142 [verbose] >
00:04:00 #7143 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:00 #7144 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:00 #7145 [verbose] > │ ## unbox │
00:04:00 #7146 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 #7147 [verbose] >
00:04:00 #7148 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:00 #7149 [verbose] > inl unbox forall t. (x : option' t) : option t =
00:04:00 #7150 [verbose] > // x
00:04:00 #7151 [verbose] > // |> map Some
00:04:00 #7152 [verbose] > // |> default_value' None
00:04:00 #7153 [verbose] > inl some x : option t = Some x
00:04:00 #7154 [verbose] > inl some = join some
00:04:00 #7155 [verbose] > inl none : option t = None
00:04:00 #7156 [verbose] > $'!x |> Option.map !some |> Option.defaultValue !none '
00:04:00 #7157 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b2db0a968256653f13e6f1be5fbe106f9ba76c764f98669ea965b3fd3fb7c6c2\main.spi
00:04:00 #7158 [verbose] >
00:04:00 #7159 [verbose] > ╭─[ 222.54ms - stdout ]────────────────────────────────────────────────────────╮
00:04:00 #7160 [verbose] > │ () │
00:04:00 #7161 [verbose] > │ │
00:04:00 #7162 [verbose] > │ │
00:04:00 #7163 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 #7164 [verbose] >
00:04:00 #7165 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:00 #7166 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:00 #7167 [verbose] > │ ## box │
00:04:00 #7168 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 #7169 [verbose] >
00:04:00 #7170 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:00 #7171 [verbose] > inl box forall t. (x : option t) : option' t =
00:04:00 #7172 [verbose] > // x
00:04:00 #7173 [verbose] > // |> optionm.map some'
00:04:00 #7174 [verbose] > // |> default_with none'
00:04:00 #7175 [verbose] > match x with
00:04:00 #7176 [verbose] > | Some x => some' x
00:04:00 #7177 [verbose] > | None => none' ()
00:04:00 #7178 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a78ede552695dc9de7f7db67d1fb45afb89687614395b1a5a2dd5a655694afad\main.spi
00:04:00 #7179 [verbose] >
00:04:00 #7180 [verbose] > ╭─[ 221.11ms - stdout ]────────────────────────────────────────────────────────╮
00:04:00 #7181 [verbose] > │ () │
00:04:00 #7182 [verbose] > │ │
00:04:00 #7183 [verbose] > │ │
00:04:00 #7184 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 #7185 [verbose] >
00:04:00 #7186 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:00 #7187 [verbose] > // // test
00:04:00 #7188 [verbose] >
00:04:00 #7189 [verbose] > inl x = Some 3i32
00:04:00 #7190 [verbose] > inl y : option i32 = None
00:04:00 #7191 [verbose] > inl x' = x |> box |> unbox
00:04:00 #7192 [verbose] > inl y' = y |> box |> unbox
00:04:00 #7193 [verbose] > (x', y') |> _assert_eq (x, y)
00:04:00 #7194 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0aeace847dae50c0e69af1bc159df72293015a0a75a9298cdbf988efdf7bcb3a\main.spi
00:04:00 #7195 [verbose] >
00:04:00 #7196 [verbose] > ╭─[ 351.47ms - stdout ]────────────────────────────────────────────────────────╮
00:04:00 #7197 [verbose] > │ type [<Struct>] US0 = │
00:04:00 #7198 [verbose] > │ | US0_0 of f0_0 : int32 │
00:04:00 #7199 [verbose] > │ | US0_1 │
00:04:00 #7200 [verbose] > │ let rec closure0 () (v0 : int32) : US0 = │
00:04:00 #7201 [verbose] > │ US0_0(v0) │
00:04:00 #7202 [verbose] > │ and method1 () : (int32 -> US0) = │
00:04:00 #7203 [verbose] > │ closure0() │
00:04:00 #7204 [verbose] > │ and method2 (v0 : bool) : bool = │
00:04:00 #7205 [verbose] > │ v0 │
00:04:00 #7206 [verbose] > │ and method0 () : unit = │
00:04:00 #7207 [verbose] > │ let v0 : int32 option = Some 3 │
00:04:00 #7208 [verbose] > │ let v1 : (int32 -> US0) = method1() │
00:04:00 #7209 [verbose] > │ let v2 : US0 = US0_1 │
00:04:00 #7210 [verbose] > │ let v3 : US0 = v0 |> Option.map v1 |> Option.defaultValue v2 │
00:04:00 #7211 [verbose] > │ let v4 : int32 option = None │
00:04:00 #7212 [verbose] > │ let v5 : (int32 -> US0) = method1() │
00:04:00 #7213 [verbose] > │ let v6 : US0 = US0_1 │
00:04:00 #7214 [verbose] > │ let v7 : US0 = v4 |> Option.map v5 |> Option.defaultValue v6 │
00:04:00 #7215 [verbose] > │ let v8 : string = $"%A{struct (v3, v7)}" │
00:04:00 #7216 [verbose] > │ System.Console.WriteLine v8 │
00:04:00 #7217 [verbose] > │ let v13 : bool = │
00:04:00 #7218 [verbose] > │ match v3 with │
00:04:00 #7219 [verbose] > │ | US0_0(v11) -> (* Some *) │
00:04:00 #7220 [verbose] > │ let v12 : bool = v11 = 3 │
00:04:00 #7221 [verbose] > │ v12 │
00:04:00 #7222 [verbose] > │ | _ -> │
00:04:00 #7223 [verbose] > │ false │
00:04:00 #7224 [verbose] > │ let v15 : bool = │
00:04:00 #7225 [verbose] > │ if v13 then │
00:04:00 #7226 [verbose] > │ match v7 with │
00:04:00 #7227 [verbose] > │ | US0_1 -> (* None *) │
00:04:00 #7228 [verbose] > │ true │
00:04:00 #7229 [verbose] > │ | _ -> │
00:04:00 #7230 [verbose] > │ false │
00:04:00 #7231 [verbose] > │ else │
00:04:00 #7232 [verbose] > │ false │
00:04:00 #7233 [verbose] > │ let v17 : bool = │
00:04:00 #7234 [verbose] > │ if v15 then │
00:04:00 #7235 [verbose] > │ true │
00:04:00 #7236 [verbose] > │ else │
00:04:00 #7237 [verbose] > │ method2(v15) │
00:04:00 #7238 [verbose] > │ let v18 : US0 = US0_0(3) │
00:04:00 #7239 [verbose] > │ let v19 : US0 = US0_1 │
00:04:00 #7240 [verbose] > │ let v20 : string = $"__expect / actual: %A{struct (v3, v7)} / expected: │
00:04:00 #7241 [verbose] > │ %A{struct (v18, v19)}" │
00:04:00 #7242 [verbose] > │ let v21 : bool = v17 = false │
00:04:00 #7243 [verbose] > │ if v21 then │
00:04:00 #7244 [verbose] > │ failwith<unit> v20 │
00:04:00 #7245 [verbose] > │ method0() │
00:04:00 #7246 [verbose] > │ │
00:04:00 #7247 [verbose] > │ struct (US0_0 3, US0_1) │
00:04:00 #7248 [verbose] > │ │
00:04:00 #7249 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 #7250 [verbose] >
00:04:00 #7251 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:00 #7252 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:00 #7253 [verbose] > │ ## try' │
00:04:00 #7254 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:00 #7255 [verbose] >
00:04:00 #7256 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:00 #7257 [verbose] > inl try' forall t. (x : option' t) : t =
00:04:00 #7258 [verbose] > !\\(x, $'"$0?"')
00:04:01 #7259 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e932dca77827d733c597dc005999451239aec49491cee6fc2fa7b3b00a6bc9e9\main.spi
00:04:01 #7260 [verbose] >
00:04:01 #7261 [verbose] > ╭─[ 248.87ms - stdout ]────────────────────────────────────────────────────────╮
00:04:01 #7262 [verbose] > │ () │
00:04:01 #7263 [verbose] > │ │
00:04:01 #7264 [verbose] > │ │
00:04:01 #7265 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:01 #7266 [verbose] >
00:04:01 #7267 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:01 #7268 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:01 #7269 [verbose] > │ ## flatten │
00:04:01 #7270 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:01 #7271 [verbose] >
00:04:01 #7272 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:01 #7273 [verbose] > inl flatten x =
00:04:01 #7274 [verbose] > match x with
00:04:01 #7275 [verbose] > | Some (Some x) => Some x
00:04:01 #7276 [verbose] > | _ => None
00:04:01 #7277 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9d03e78bd0838e8c4b0c09022722c45b13d1dee49cbb72ca6a1aed6b7f9a545d\main.spi
00:04:01 #7278 [verbose] >
00:04:01 #7279 [verbose] > ╭─[ 291.37ms - stdout ]────────────────────────────────────────────────────────╮
00:04:01 #7280 [verbose] > │ () │
00:04:01 #7281 [verbose] > │ │
00:04:01 #7282 [verbose] > │ │
00:04:01 #7283 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:01 #7284 [verbose] >
00:04:01 #7285 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:01 #7286 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:01 #7287 [verbose] > │ ## unwrap │
00:04:01 #7288 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:01 #7289 [verbose] >
00:04:01 #7290 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:01 #7291 [verbose] > inl unwrap forall t. (x : option' t) : t =
00:04:01 #7292 [verbose] > !\($'"!x.unwrap()"')
00:04:01 #7293 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c624bfeb41e844c578e8a5628302bdedae0dc20b8fd02127e04d6798b9737393\main.spi
00:04:01 #7294 [verbose] >
00:04:01 #7295 [verbose] > ╭─[ 253.20ms - stdout ]────────────────────────────────────────────────────────╮
00:04:01 #7296 [verbose] > │ () │
00:04:01 #7297 [verbose] > │ │
00:04:01 #7298 [verbose] > │ │
00:04:01 #7299 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:01 #7300 [verbose] >
00:04:01 #7301 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:01 #7302 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:01 #7303 [verbose] > │ ## unwrap_or │
00:04:01 #7304 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:01 #7305 [verbose] >
00:04:01 #7306 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:01 #7307 [verbose] > inl unwrap_or forall t. (def : t) (x : option' t) : t =
00:04:01 #7308 [verbose] > !\($'"!x.unwrap_or(!def)"')
00:04:01 #7309 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d7a292df577870f7c411168cc5a5630e6494ab4c70096c2ff064f136287dab36\main.spi
00:04:02 #7310 [verbose] >
00:04:02 #7311 [verbose] > ╭─[ 237.26ms - stdout ]────────────────────────────────────────────────────────╮
00:04:02 #7312 [verbose] > │ () │
00:04:02 #7313 [verbose] > │ │
00:04:02 #7314 [verbose] > │ │
00:04:02 #7315 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:02 #7316 [verbose] >
00:04:02 #7317 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:02 #7318 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:02 #7319 [verbose] > │ ## rc_upgrade │
00:04:02 #7320 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:02 #7321 [verbose] >
00:04:02 #7322 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:02 #7323 [verbose] > inl rc_upgrade forall t. (x : rust.weak_rc t) : option (rust.rc t) =
00:04:02 #7324 [verbose] > inl x = join x
00:04:02 #7325 [verbose] > !\($'"std::rc::Weak::upgrade(&!x)"')
00:04:02 #7326 [verbose] > |> unbox
00:04:02 #7327 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e3ee0d37cd277b03bb9437af678f43c66c8843fcf421c239fbd6b3ca8968c7a2\main.spi
00:04:02 #7328 [verbose] >
00:04:02 #7329 [verbose] > ╭─[ 226.23ms - stdout ]────────────────────────────────────────────────────────╮
00:04:02 #7330 [verbose] > │ () │
00:04:02 #7331 [verbose] > │ │
00:04:02 #7332 [verbose] > │ │
00:04:02 #7333 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:03 #7334 [verbose] > [NbConvertApp] Converting notebook optionm'.dib.ipynb to html
00:04:03 #7335 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:03 #7336 [verbose] > validate(nb)
00:04:04 #7337 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:04:04 #7338 [verbose] > return _pygments_highlight(
00:04:04 #7339 [verbose] > [NbConvertApp] Writing 316892 bytes to optionm'.dib.html
00:04:05 #7340 [debug] executeAsync / exitCode: 0 / output.Length: 28733
00:04:05 #7341 [debug] main / executeCommand / exitCode: 0
00:04:05 #7342 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 \"am'.dib\" -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:04:08 #7343 [verbose] >
00:04:08 #7344 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:08 #7345 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:08 #7346 [verbose] > │ # am' │
00:04:08 #7347 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:08 #7348 [verbose] >
00:04:08 #7349 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:08 #7350 [verbose] > // // test
00:04:08 #7351 [verbose] >
00:04:08 #7352 [verbose] > open testing
00:04:08 #7353 [verbose] >
00:04:08 #7354 [verbose] > prototype append t : t -> t -> t
00:04:11 #7355 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d3d1d1fda00dd59384a760ee28afa07876963bb48cdababc03a709d40c2fc076\main.spi
00:04:12 #7356 [verbose] >
00:04:12 #7357 [verbose] > ╭─[ 4.21s - stdout ]───────────────────────────────────────────────────────────╮
00:04:12 #7358 [verbose] > │ () │
00:04:12 #7359 [verbose] > │ │
00:04:12 #7360 [verbose] > │ │
00:04:12 #7361 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:12 #7362 [verbose] >
00:04:12 #7363 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:12 #7364 [verbose] > open rust_operators
00:04:12 #7365 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\13d26aa870446379747b84676a44180aa3203ef2c14e9c6ed6def74d269ef546\main.spi
00:04:13 #7366 [verbose] >
00:04:13 #7367 [verbose] > ╭─[ 287.63ms - stdout ]────────────────────────────────────────────────────────╮
00:04:13 #7368 [verbose] > │ () │
00:04:13 #7369 [verbose] > │ │
00:04:13 #7370 [verbose] > │ │
00:04:13 #7371 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 #7372 [verbose] >
00:04:13 #7373 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:13 #7374 [verbose] > inl types () =
00:04:13 #7375 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"[[$0]]\")>]] type Slice<'T> =
00:04:13 #7376 [verbose] > class end"
00:04:13 #7377 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"[[$0; $1]]\")>]] type
00:04:13 #7378 [verbose] > Slice'<'T, 'U> = class end"
00:04:13 #7379 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Vec<$0>\")>]] type Vec<'T> =
00:04:13 #7380 [verbose] > class end"
00:04:13 #7381 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a246473e46304eac16c62c52a5a8c4d56812b3707f446c29d6befd9812cc4ed1\main.spi
00:04:13 #7382 [verbose] >
00:04:13 #7383 [verbose] > ╭─[ 267.70ms - stdout ]────────────────────────────────────────────────────────╮
00:04:13 #7384 [verbose] > │ () │
00:04:13 #7385 [verbose] > │ │
00:04:13 #7386 [verbose] > │ │
00:04:13 #7387 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 #7388 [verbose] >
00:04:13 #7389 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:13 #7390 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:13 #7391 [verbose] > │ ## length │
00:04:13 #7392 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 #7393 [verbose] >
00:04:13 #7394 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:13 #7395 [verbose] > inl length forall dim {int} el. (a : a dim el) : dim =
00:04:13 #7396 [verbose] > a |> length
00:04:13 #7397 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a6d2bf8c7739a4897fd6df1a6a2f505a8e0b3ddd37de6b83c66d916cabd46cfa\main.spi
00:04:13 #7398 [verbose] >
00:04:13 #7399 [verbose] > ╭─[ 223.45ms - stdout ]────────────────────────────────────────────────────────╮
00:04:13 #7400 [verbose] > │ () │
00:04:13 #7401 [verbose] > │ │
00:04:13 #7402 [verbose] > │ │
00:04:13 #7403 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 #7404 [verbose] >
00:04:13 #7405 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:13 #7406 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:13 #7407 [verbose] > │ ## index │
00:04:13 #7408 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 #7409 [verbose] >
00:04:13 #7410 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:13 #7411 [verbose] > inl index forall dim {int} el. (i : dim) (a : a dim el) : el =
00:04:13 #7412 [verbose] > index a i
00:04:13 #7413 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\336a73751fa0664fe14f5735785601485f75d018fdad0e0e677ee0dbe1d8231d\main.spi
00:04:13 #7414 [verbose] >
00:04:13 #7415 [verbose] > ╭─[ 268.69ms - stdout ]────────────────────────────────────────────────────────╮
00:04:13 #7416 [verbose] > │ () │
00:04:13 #7417 [verbose] > │ │
00:04:13 #7418 [verbose] > │ │
00:04:13 #7419 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 #7420 [verbose] >
00:04:13 #7421 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:13 #7422 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:13 #7423 [verbose] > │ ## append │
00:04:13 #7424 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:13 #7425 [verbose] >
00:04:13 #7426 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:13 #7427 [verbose] > instance append a dim {int; number} t =
00:04:13 #7428 [verbose] > am.append
00:04:13 #7429 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\519d26b3db1ac382080493fdcb2d8534bc2a4cab7e1ffc5d9c5332475ca7d1ed\main.spi
00:04:14 #7430 [verbose] >
00:04:14 #7431 [verbose] > ╭─[ 218.29ms - stdout ]────────────────────────────────────────────────────────╮
00:04:14 #7432 [verbose] > │ () │
00:04:14 #7433 [verbose] > │ │
00:04:14 #7434 [verbose] > │ │
00:04:14 #7435 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 #7436 [verbose] >
00:04:14 #7437 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:14 #7438 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:14 #7439 [verbose] > │ ## /@ │
00:04:14 #7440 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 #7441 [verbose] >
00:04:14 #7442 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:14 #7443 [verbose] > inl (/@) a b =
00:04:14 #7444 [verbose] > b |> append a
00:04:14 #7445 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b7caca8a0792a108d00b1d861735eb2ba8bba7bf5b27c651790e5a6b64a0c9f8\main.spi
00:04:14 #7446 [verbose] >
00:04:14 #7447 [verbose] > ╭─[ 212.53ms - stdout ]────────────────────────────────────────────────────────╮
00:04:14 #7448 [verbose] > │ () │
00:04:14 #7449 [verbose] > │ │
00:04:14 #7450 [verbose] > │ │
00:04:14 #7451 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:14 #7452 [verbose] >
00:04:14 #7453 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:14 #7454 [verbose] > // // test
00:04:14 #7455 [verbose] >
00:04:14 #7456 [verbose] > a ;[[ "a"; "b" ]] /@ a ;[[ "c"; "d" ]]
00:04:14 #7457 [verbose] > |> _assert_eq (a ;[[ "a"; "b"; "c"; "d" ]] : _ i32 _)
00:04:14 #7458 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\df4afc29c4c45298ac46f5b85aa5bbe90d5a2526f3a6b237ba63524d3637b4d3\main.spi
00:04:15 #7459 [verbose] >
00:04:15 #7460 [verbose] > ╭─[ 1.35s - stdout ]───────────────────────────────────────────────────────────╮
00:04:15 #7461 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:04:15 #7462 [verbose] > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:04:15 #7463 [verbose] > │ let v2 : int32 = v1.l0 │
00:04:15 #7464 [verbose] > │ let v3 : bool = v2 < v0 │
00:04:15 #7465 [verbose] > │ v3 │
00:04:15 #7466 [verbose] > │ and method2 (v0 : (string []), v1 : (string []), v2 : int32) : bool = │
00:04:15 #7467 [verbose] > │ let v3 : int32 = v0.Length │
00:04:15 #7468 [verbose] > │ let v4 : bool = v2 < v3 │
00:04:15 #7469 [verbose] > │ if v4 then │
00:04:15 #7470 [verbose] > │ let v5 : string = v0.[int v2] │
00:04:15 #7471 [verbose] > │ let v6 : string = v1.[int v2] │
00:04:15 #7472 [verbose] > │ let v7 : bool = v5 = v6 │
00:04:15 #7473 [verbose] > │ if v7 then │
00:04:15 #7474 [verbose] > │ let v8 : int32 = v2 + 1 │
00:04:15 #7475 [verbose] > │ method2(v0, v1, v8) │
00:04:15 #7476 [verbose] > │ else │
00:04:15 #7477 [verbose] > │ false │
00:04:15 #7478 [verbose] > │ else │
00:04:15 #7479 [verbose] > │ true │
00:04:15 #7480 [verbose] > │ and method3 (v0 : bool) : bool = │
00:04:15 #7481 [verbose] > │ v0 │
00:04:15 #7482 [verbose] > │ and method0 () : unit = │
00:04:15 #7483 [verbose] > │ let v0 : string = "a" │
00:04:15 #7484 [verbose] > │ let v1 : string = "b" │
00:04:15 #7485 [verbose] > │ let v2 : (string []) = [|v0; v1|] │
00:04:15 #7486 [verbose] > │ let v3 : string = "c" │
00:04:15 #7487 [verbose] > │ let v4 : string = "d" │
00:04:15 #7488 [verbose] > │ let v5 : (string []) = [|v3; v4|] │
00:04:15 #7489 [verbose] > │ let v6 : int32 = v2.Length │
00:04:15 #7490 [verbose] > │ let v7 : int32 = v5.Length │
00:04:15 #7491 [verbose] > │ let v8 : int32 = v6 + v7 │
00:04:15 #7492 [verbose] > │ let v9 : (string []) = Array.zeroCreate<string> (v8) │
00:04:15 #7493 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:04:15 #7494 [verbose] > │ while method1(v8, v10) do │
00:04:15 #7495 [verbose] > │ let v12 : int32 = v10.l0 │
00:04:15 #7496 [verbose] > │ let v13 : bool = v12 < v6 │
00:04:15 #7497 [verbose] > │ let v17 : string = │
00:04:15 #7498 [verbose] > │ if v13 then │
00:04:15 #7499 [verbose] > │ let v14 : string = v2.[int v12] │
00:04:15 #7500 [verbose] > │ v14 │
00:04:15 #7501 [verbose] > │ else │
00:04:15 #7502 [verbose] > │ let v15 : int32 = v12 - v6 │
00:04:15 #7503 [verbose] > │ let v16 : string = v5.[int v15] │
00:04:15 #7504 [verbose] > │ v16 │
00:04:15 #7505 [verbose] > │ v9.[int v12] <- v17 │
00:04:15 #7506 [verbose] > │ let v18 : int32 = v12 + 1 │
00:04:15 #7507 [verbose] > │ v10.l0 <- v18 │
00:04:15 #7508 [verbose] > │ () │
00:04:15 #7509 [verbose] > │ let v19 : (string []) = [|v0; v1; v3; v4|] │
00:04:15 #7510 [verbose] > │ let v20 : string = $"%A{v9}" │
00:04:15 #7511 [verbose] > │ System.Console.WriteLine v20 │
00:04:15 #7512 [verbose] > │ let v21 : int32 = v9.Length │
00:04:15 #7513 [verbose] > │ let v22 : int32 = v19.Length │
00:04:15 #7514 [verbose] > │ let v23 : bool = v21 = v22 │
00:04:15 #7515 [verbose] > │ let v24 : bool = v23 <> true │
00:04:15 #7516 [verbose] > │ let v27 : bool = │
00:04:15 #7517 [verbose] > │ if v24 then │
00:04:15 #7518 [verbose] > │ false │
00:04:15 #7519 [verbose] > │ else │
00:04:15 #7520 [verbose] > │ let v25 : int32 = 0 │
00:04:15 #7521 [verbose] > │ method2(v9, v19, v25) │
00:04:15 #7522 [verbose] > │ let v29 : bool = │
00:04:15 #7523 [verbose] > │ if v27 then │
00:04:15 #7524 [verbose] > │ true │
00:04:15 #7525 [verbose] > │ else │
00:04:15 #7526 [verbose] > │ method3(v27) │
00:04:15 #7527 [verbose] > │ let v30 : string = $"__expect / actual: %A{v9} / expected: %A{v19}" │
00:04:15 #7528 [verbose] > │ let v31 : bool = v29 = false │
00:04:15 #7529 [verbose] > │ if v31 then │
00:04:15 #7530 [verbose] > │ failwith<unit> v30 │
00:04:15 #7531 [verbose] > │ method0() │
00:04:15 #7532 [verbose] > │ │
00:04:15 #7533 [verbose] > │ [|"a"; "b"; "c"; "d"|] │
00:04:15 #7534 [verbose] > │ │
00:04:15 #7535 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #7536 [verbose] >
00:04:15 #7537 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:15 #7538 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:15 #7539 [verbose] > │ ## collect │
00:04:15 #7540 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #7541 [verbose] >
00:04:15 #7542 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:15 #7543 [verbose] > inl collect forall t r. (fn : t -> a i32 r) (items : a i32 t) : a i32 r =
00:04:15 #7544 [verbose] > items
00:04:15 #7545 [verbose] > |> am.map fn
00:04:15 #7546 [verbose] > |> am.fold (/@) (a ;[[]])
00:04:15 #7547 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2693c6b90f129744e060db4d79d9eface9c6fe47ca378ca3d7909f8858bb1361\main.spi
00:04:15 #7548 [verbose] >
00:04:15 #7549 [verbose] > ╭─[ 266.56ms - stdout ]────────────────────────────────────────────────────────╮
00:04:15 #7550 [verbose] > │ () │
00:04:15 #7551 [verbose] > │ │
00:04:15 #7552 [verbose] > │ │
00:04:15 #7553 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #7554 [verbose] >
00:04:15 #7555 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:15 #7556 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:15 #7557 [verbose] > │ ## choose │
00:04:15 #7558 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:15 #7559 [verbose] >
00:04:15 #7560 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:15 #7561 [verbose] > inl choose f l =
00:04:15 #7562 [verbose] > (l, [[]])
00:04:15 #7563 [verbose] > ||> am.foldBack fun x acc =>
00:04:15 #7564 [verbose] > match f x with
00:04:15 #7565 [verbose] > | Some y => y :: acc
00:04:15 #7566 [verbose] > | None => acc
00:04:15 #7567 [verbose] > |> listm.toArray
00:04:16 #7568 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bdc19e2c49dab8063681100a8c3f6cf6dcb93b090e2e6290c2cd5e5e85670ed4\main.spi
00:04:16 #7569 [verbose] >
00:04:16 #7570 [verbose] > ╭─[ 245.52ms - stdout ]────────────────────────────────────────────────────────╮
00:04:16 #7571 [verbose] > │ () │
00:04:16 #7572 [verbose] > │ │
00:04:16 #7573 [verbose] > │ │
00:04:16 #7574 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 #7575 [verbose] >
00:04:16 #7576 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:16 #7577 [verbose] > // // test
00:04:16 #7578 [verbose] >
00:04:16 #7579 [verbose] > (am.init 10i32 id : a _ _)
00:04:16 #7580 [verbose] > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:04:16 #7581 [verbose] > |> _assert_eq (a ;[[ 0; 2; 4; 6; 8 ]] : _ i32 _)
00:04:16 #7582 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c26b724252467a7efd00f43b4635fbeec0ea48a2bdda3cdf5f85ffda1b9c7ec0\main.spi
00:04:16 #7583 [verbose] >
00:04:16 #7584 [verbose] > ╭─[ 588.51ms - stdout ]────────────────────────────────────────────────────────╮
00:04:16 #7585 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:04:16 #7586 [verbose] > │ and UH0 = │
00:04:16 #7587 [verbose] > │ | UH0_0 │
00:04:16 #7588 [verbose] > │ | UH0_1 of int32 * UH0 │
00:04:16 #7589 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : UH0} │
00:04:16 #7590 [verbose] > │ and [<Struct>] US0 = │
00:04:16 #7591 [verbose] > │ | US0_0 of f0_0 : int32 │
00:04:16 #7592 [verbose] > │ | US0_1 │
00:04:16 #7593 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:04:16 #7594 [verbose] > │ let v1 : int32 = v0.l0 │
00:04:16 #7595 [verbose] > │ let v2 : bool = v1 < 10 │
00:04:16 #7596 [verbose] > │ v2 │
00:04:16 #7597 [verbose] > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:04:16 #7598 [verbose] > │ let v2 : int32 = v1.l0 │
00:04:16 #7599 [verbose] > │ let v3 : bool = v2 < v0 │
00:04:16 #7600 [verbose] > │ v3 │
00:04:16 #7601 [verbose] > │ and method4 (v0 : UH0, v1 : int32) : int32 = │
00:04:16 #7602 [verbose] > │ match v0 with │
00:04:16 #7603 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:04:16 #7604 [verbose] > │ let v4 : int32 = v1 + 1 │
00:04:16 #7605 [verbose] > │ method4(v3, v4) │
00:04:16 #7606 [verbose] > │ | UH0_0 -> (* Nil *) │
00:04:16 #7607 [verbose] > │ v1 │
00:04:16 #7608 [verbose] > │ and method5 (v0 : (int32 []), v1 : UH0, v2 : int32) : int32 = │
00:04:16 #7609 [verbose] > │ match v1 with │
00:04:16 #7610 [verbose] > │ | UH0_1(v3, v4) -> (* Cons *) │
00:04:16 #7611 [verbose] > │ v0.[int v2] <- v3 │
00:04:16 #7612 [verbose] > │ let v5 : int32 = v2 + 1 │
00:04:16 #7613 [verbose] > │ method5(v0, v4, v5) │
00:04:16 #7614 [verbose] > │ | UH0_0 -> (* Nil *) │
00:04:16 #7615 [verbose] > │ v2 │
00:04:16 #7616 [verbose] > │ and method3 (v0 : UH0) : (int32 []) = │
00:04:16 #7617 [verbose] > │ let v1 : int32 = 0 │
00:04:16 #7618 [verbose] > │ let v2 : int32 = method4(v0, v1) │
00:04:16 #7619 [verbose] > │ let v3 : (int32 []) = Array.zeroCreate<int32> (v2) │
00:04:16 #7620 [verbose] > │ let v4 : int32 = 0 │
00:04:16 #7621 [verbose] > │ let v5 : int32 = method5(v3, v0, v4) │
00:04:16 #7622 [verbose] > │ v3 │
00:04:16 #7623 [verbose] > │ and method6 (v0 : (int32 []), v1 : (int32 []), v2 : int32) : bool = │
00:04:16 #7624 [verbose] > │ let v3 : int32 = v0.Length │
00:04:16 #7625 [verbose] > │ let v4 : bool = v2 < v3 │
00:04:16 #7626 [verbose] > │ if v4 then │
00:04:16 #7627 [verbose] > │ let v5 : int32 = v0.[int v2] │
00:04:16 #7628 [verbose] > │ let v6 : int32 = v1.[int v2] │
00:04:16 #7629 [verbose] > │ let v7 : bool = v5 = v6 │
00:04:16 #7630 [verbose] > │ if v7 then │
00:04:16 #7631 [verbose] > │ let v8 : int32 = v2 + 1 │
00:04:16 #7632 [verbose] > │ method6(v0, v1, v8) │
00:04:16 #7633 [verbose] > │ else │
00:04:16 #7634 [verbose] > │ false │
00:04:16 #7635 [verbose] > │ else │
00:04:16 #7636 [verbose] > │ true │
00:04:16 #7637 [verbose] > │ and method7 (v0 : bool) : bool = │
00:04:16 #7638 [verbose] > │ v0 │
00:04:16 #7639 [verbose] > │ and method0 () : unit = │
00:04:16 #7640 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:04:16 #7641 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:16 #7642 [verbose] > │ while method1(v1) do │
00:04:16 #7643 [verbose] > │ let v3 : int32 = v1.l0 │
00:04:16 #7644 [verbose] > │ v0.[int v3] <- v3 │
00:04:16 #7645 [verbose] > │ let v4 : int32 = v3 + 1 │
00:04:16 #7646 [verbose] > │ v1.l0 <- v4 │
00:04:16 #7647 [verbose] > │ () │
00:04:16 #7648 [verbose] > │ let v5 : int32 = v0.Length │
00:04:16 #7649 [verbose] > │ let v6 : UH0 = UH0_0 │
00:04:16 #7650 [verbose] > │ let v7 : Mut1 = {l0 = 0; l1 = v6} : Mut1 │
00:04:16 #7651 [verbose] > │ while method2(v5, v7) do │
00:04:16 #7652 [verbose] > │ let v9 : int32 = v7.l0 │
00:04:16 #7653 [verbose] > │ let v10 : int32 = -v9 │
00:04:16 #7654 [verbose] > │ let v11 : int32 = v10 + v5 │
00:04:16 #7655 [verbose] > │ let v12 : int32 = v11 - 1 │
00:04:16 #7656 [verbose] > │ let v13 : UH0 = v7.l1 │
00:04:16 #7657 [verbose] > │ let v14 : int32 = v0.[int v12] │
00:04:16 #7658 [verbose] > │ let v15 : int32 = v14 % 2 │
00:04:16 #7659 [verbose] > │ let v16 : bool = v15 = 0 │
00:04:16 #7660 [verbose] > │ let v19 : US0 = │
00:04:16 #7661 [verbose] > │ if v16 then │
00:04:16 #7662 [verbose] > │ US0_0(v14) │
00:04:16 #7663 [verbose] > │ else │
00:04:16 #7664 [verbose] > │ US0_1 │
00:04:16 #7665 [verbose] > │ let v23 : UH0 = │
00:04:16 #7666 [verbose] > │ match v19 with │
00:04:16 #7667 [verbose] > │ | US0_1 -> (* None *) │
00:04:16 #7668 [verbose] > │ v13 │
00:04:16 #7669 [verbose] > │ | US0_0(v20) -> (* Some *) │
00:04:16 #7670 [verbose] > │ UH0_1(v20, v13) │
00:04:16 #7671 [verbose] > │ let v24 : int32 = v9 + 1 │
00:04:16 #7672 [verbose] > │ v7.l0 <- v24 │
00:04:16 #7673 [verbose] > │ v7.l1 <- v23 │
00:04:16 #7674 [verbose] > │ () │
00:04:16 #7675 [verbose] > │ let v25 : UH0 = v7.l1 │
00:04:16 #7676 [verbose] > │ let v26 : (int32 []) = method3(v25) │
00:04:16 #7677 [verbose] > │ let v27 : (int32 []) = [|0; 2; 4; 6; 8|] │
00:04:16 #7678 [verbose] > │ let v28 : string = $"%A{v26}" │
00:04:16 #7679 [verbose] > │ System.Console.WriteLine v28 │
00:04:16 #7680 [verbose] > │ let v29 : int32 = v26.Length │
00:04:16 #7681 [verbose] > │ let v30 : int32 = v27.Length │
00:04:16 #7682 [verbose] > │ let v31 : bool = v29 = v30 │
00:04:16 #7683 [verbose] > │ let v32 : bool = v31 <> true │
00:04:16 #7684 [verbose] > │ let v35 : bool = │
00:04:16 #7685 [verbose] > │ if v32 then │
00:04:16 #7686 [verbose] > │ false │
00:04:16 #7687 [verbose] > │ else │
00:04:16 #7688 [verbose] > │ let v33 : int32 = 0 │
00:04:16 #7689 [verbose] > │ method6(v26, v27, v33) │
00:04:16 #7690 [verbose] > │ let v37 : bool = │
00:04:16 #7691 [verbose] > │ if v35 then │
00:04:16 #7692 [verbose] > │ true │
00:04:16 #7693 [verbose] > │ else │
00:04:16 #7694 [verbose] > │ method7(v35) │
00:04:16 #7695 [verbose] > │ let v38 : string = $"__expect / actual: %A{v26} / expected: %A{v27}" │
00:04:16 #7696 [verbose] > │ let v39 : bool = v37 = false │
00:04:16 #7697 [verbose] > │ if v39 then │
00:04:16 #7698 [verbose] > │ failwith<unit> v38 │
00:04:16 #7699 [verbose] > │ method0() │
00:04:16 #7700 [verbose] > │ │
00:04:16 #7701 [verbose] > │ [|0; 2; 4; 6; 8|] │
00:04:16 #7702 [verbose] > │ │
00:04:16 #7703 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 #7704 [verbose] >
00:04:16 #7705 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:16 #7706 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:16 #7707 [verbose] > │ ## sum │
00:04:16 #7708 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:16 #7709 [verbose] >
00:04:16 #7710 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:16 #7711 [verbose] > inl sum (a' : a _ _) =
00:04:16 #7712 [verbose] > a' |> am.fold (+) 0
00:04:16 #7713 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c790ae083d786fe97262d691a4a1b0447dcb6ae4b60d294c9deb1a6d27d94e05\main.spi
00:04:17 #7714 [verbose] >
00:04:17 #7715 [verbose] > ╭─[ 254.75ms - stdout ]────────────────────────────────────────────────────────╮
00:04:17 #7716 [verbose] > │ () │
00:04:17 #7717 [verbose] > │ │
00:04:17 #7718 [verbose] > │ │
00:04:17 #7719 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 #7720 [verbose] >
00:04:17 #7721 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:17 #7722 [verbose] > // // test
00:04:17 #7723 [verbose] >
00:04:17 #7724 [verbose] > am.init 10i32 id
00:04:17 #7725 [verbose] > |> sum
00:04:17 #7726 [verbose] > |> _assert_eq 45
00:04:17 #7727 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\de9b7e62d1578f79255422e90622f25cf83423b56d6d2a5981a400d26f10d3ea\main.spi
00:04:17 #7728 [verbose] >
00:04:17 #7729 [verbose] > ╭─[ 377.60ms - stdout ]────────────────────────────────────────────────────────╮
00:04:17 #7730 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:04:17 #7731 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : int32} │
00:04:17 #7732 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:04:17 #7733 [verbose] > │ let v1 : int32 = v0.l0 │
00:04:17 #7734 [verbose] > │ let v2 : bool = v1 < 10 │
00:04:17 #7735 [verbose] > │ v2 │
00:04:17 #7736 [verbose] > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:04:17 #7737 [verbose] > │ let v2 : int32 = v1.l0 │
00:04:17 #7738 [verbose] > │ let v3 : bool = v2 < v0 │
00:04:17 #7739 [verbose] > │ v3 │
00:04:17 #7740 [verbose] > │ and method3 (v0 : bool) : bool = │
00:04:17 #7741 [verbose] > │ v0 │
00:04:17 #7742 [verbose] > │ and method0 () : unit = │
00:04:17 #7743 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:04:17 #7744 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:17 #7745 [verbose] > │ while method1(v1) do │
00:04:17 #7746 [verbose] > │ let v3 : int32 = v1.l0 │
00:04:17 #7747 [verbose] > │ v0.[int v3] <- v3 │
00:04:17 #7748 [verbose] > │ let v4 : int32 = v3 + 1 │
00:04:17 #7749 [verbose] > │ v1.l0 <- v4 │
00:04:17 #7750 [verbose] > │ () │
00:04:17 #7751 [verbose] > │ let v5 : int32 = v0.Length │
00:04:17 #7752 [verbose] > │ let v6 : Mut1 = {l0 = 0; l1 = 0} : Mut1 │
00:04:17 #7753 [verbose] > │ while method2(v5, v6) do │
00:04:17 #7754 [verbose] > │ let v8 : int32 = v6.l0 │
00:04:17 #7755 [verbose] > │ let v9 : int32 = v6.l1 │
00:04:17 #7756 [verbose] > │ let v10 : int32 = v0.[int v8] │
00:04:17 #7757 [verbose] > │ let v11 : int32 = v9 + v10 │
00:04:17 #7758 [verbose] > │ let v12 : int32 = v8 + 1 │
00:04:17 #7759 [verbose] > │ v6.l0 <- v12 │
00:04:17 #7760 [verbose] > │ v6.l1 <- v11 │
00:04:17 #7761 [verbose] > │ () │
00:04:17 #7762 [verbose] > │ let v13 : int32 = v6.l1 │
00:04:17 #7763 [verbose] > │ let v14 : string = $"%A{v13}" │
00:04:17 #7764 [verbose] > │ System.Console.WriteLine v14 │
00:04:17 #7765 [verbose] > │ let v15 : bool = v13 = 45 │
00:04:17 #7766 [verbose] > │ let v17 : bool = │
00:04:17 #7767 [verbose] > │ if v15 then │
00:04:17 #7768 [verbose] > │ true │
00:04:17 #7769 [verbose] > │ else │
00:04:17 #7770 [verbose] > │ method3(v15) │
00:04:17 #7771 [verbose] > │ let v18 : string = $"__expect / actual: %A{v13} / expected: %A{45}" │
00:04:17 #7772 [verbose] > │ let v19 : bool = v17 = false │
00:04:17 #7773 [verbose] > │ if v19 then │
00:04:17 #7774 [verbose] > │ failwith<unit> v18 │
00:04:17 #7775 [verbose] > │ method0() │
00:04:17 #7776 [verbose] > │ │
00:04:17 #7777 [verbose] > │ 45 │
00:04:17 #7778 [verbose] > │ │
00:04:17 #7779 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 #7780 [verbose] >
00:04:17 #7781 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:17 #7782 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:17 #7783 [verbose] > │ ## init_series │
00:04:17 #7784 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 #7785 [verbose] >
00:04:17 #7786 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:17 #7787 [verbose] > inl init_series start end inc =
00:04:17 #7788 [verbose] > inl total = conv ((end - start) / inc) + 1
00:04:17 #7789 [verbose] > am.init total (conv >> (*) inc >> (+) start) : a i32 _
00:04:17 #7790 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\058dbf427278c05865af272cfbc19c29faff3dc8bcec170c34cfb5a9dd1bc99d\main.spi
00:04:17 #7791 [verbose] >
00:04:17 #7792 [verbose] > ╭─[ 531.39ms - stdout ]────────────────────────────────────────────────────────╮
00:04:17 #7793 [verbose] > │ () │
00:04:17 #7794 [verbose] > │ │
00:04:17 #7795 [verbose] > │ │
00:04:17 #7796 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:17 #7797 [verbose] >
00:04:17 #7798 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:17 #7799 [verbose] > // // test
00:04:17 #7800 [verbose] >
00:04:17 #7801 [verbose] > init_series 0 1 0.5
00:04:17 #7802 [verbose] > |> _assert_eq (a ;[[ 0f64; 0.5; 1 ]])
00:04:18 #7803 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3011d13ca6d4c6b6e4bf5d7f4fce601e2086079fc5b1aa10659807244b8a69fc\main.spi
00:04:18 #7804 [verbose] >
00:04:18 #7805 [verbose] > ╭─[ 291.58ms - stdout ]────────────────────────────────────────────────────────╮
00:04:18 #7806 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:04:18 #7807 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:04:18 #7808 [verbose] > │ let v1 : int32 = v0.l0 │
00:04:18 #7809 [verbose] > │ let v2 : bool = v1 < 3 │
00:04:18 #7810 [verbose] > │ v2 │
00:04:18 #7811 [verbose] > │ and method2 (v0 : (float []), v1 : (float []), v2 : int32) : bool = │
00:04:18 #7812 [verbose] > │ let v3 : int32 = v0.Length │
00:04:18 #7813 [verbose] > │ let v4 : bool = v2 < v3 │
00:04:18 #7814 [verbose] > │ if v4 then │
00:04:18 #7815 [verbose] > │ let v5 : float = v0.[int v2] │
00:04:18 #7816 [verbose] > │ let v6 : float = v1.[int v2] │
00:04:18 #7817 [verbose] > │ let v7 : bool = v5 = v6 │
00:04:18 #7818 [verbose] > │ if v7 then │
00:04:18 #7819 [verbose] > │ let v8 : int32 = v2 + 1 │
00:04:18 #7820 [verbose] > │ method2(v0, v1, v8) │
00:04:18 #7821 [verbose] > │ else │
00:04:18 #7822 [verbose] > │ false │
00:04:18 #7823 [verbose] > │ else │
00:04:18 #7824 [verbose] > │ true │
00:04:18 #7825 [verbose] > │ and method3 (v0 : bool) : bool = │
00:04:18 #7826 [verbose] > │ v0 │
00:04:18 #7827 [verbose] > │ and method0 () : unit = │
00:04:18 #7828 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (3) │
00:04:18 #7829 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:18 #7830 [verbose] > │ while method1(v1) do │
00:04:18 #7831 [verbose] > │ let v3 : int32 = v1.l0 │
00:04:18 #7832 [verbose] > │ let v4 : float = float v3 │
00:04:18 #7833 [verbose] > │ let v5 : float = 0.5 * v4 │
00:04:18 #7834 [verbose] > │ v0.[int v3] <- v5 │
00:04:18 #7835 [verbose] > │ let v6 : int32 = v3 + 1 │
00:04:18 #7836 [verbose] > │ v1.l0 <- v6 │
00:04:18 #7837 [verbose] > │ () │
00:04:18 #7838 [verbose] > │ let v7 : (float []) = [|0.0; 0.5; 1.0|] │
00:04:18 #7839 [verbose] > │ let v8 : string = $"%A{v0}" │
00:04:18 #7840 [verbose] > │ System.Console.WriteLine v8 │
00:04:18 #7841 [verbose] > │ let v9 : int32 = v0.Length │
00:04:18 #7842 [verbose] > │ let v10 : int32 = v7.Length │
00:04:18 #7843 [verbose] > │ let v11 : bool = v9 = v10 │
00:04:18 #7844 [verbose] > │ let v12 : bool = v11 <> true │
00:04:18 #7845 [verbose] > │ let v15 : bool = │
00:04:18 #7846 [verbose] > │ if v12 then │
00:04:18 #7847 [verbose] > │ false │
00:04:18 #7848 [verbose] > │ else │
00:04:18 #7849 [verbose] > │ let v13 : int32 = 0 │
00:04:18 #7850 [verbose] > │ method2(v0, v7, v13) │
00:04:18 #7851 [verbose] > │ let v17 : bool = │
00:04:18 #7852 [verbose] > │ if v15 then │
00:04:18 #7853 [verbose] > │ true │
00:04:18 #7854 [verbose] > │ else │
00:04:18 #7855 [verbose] > │ method3(v15) │
00:04:18 #7856 [verbose] > │ let v18 : string = $"__expect / actual: %A{v0} / expected: %A{v7}" │
00:04:18 #7857 [verbose] > │ let v19 : bool = v17 = false │
00:04:18 #7858 [verbose] > │ if v19 then │
00:04:18 #7859 [verbose] > │ failwith<unit> v18 │
00:04:18 #7860 [verbose] > │ method0() │
00:04:18 #7861 [verbose] > │ │
00:04:18 #7862 [verbose] > │ [|0.0; 0.5; 1.0|] │
00:04:18 #7863 [verbose] > │ │
00:04:18 #7864 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:18 #7865 [verbose] >
00:04:18 #7866 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:18 #7867 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:18 #7868 [verbose] > │ ## head │
00:04:18 #7869 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:18 #7870 [verbose] >
00:04:18 #7871 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:18 #7872 [verbose] > inl head (ar : a _ _) =
00:04:18 #7873 [verbose] > if var_is ar || length ar > 0
00:04:18 #7874 [verbose] > then ar |> index 0
00:04:18 #7875 [verbose] > else error_type "The length of the array should be greater than 0."
00:04:18 #7876 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\981dc93870296fc9f9f1d68d1f395589e6b1ca94d4b37f4cc899e5e368e3e565\main.spi
00:04:18 #7877 [verbose] >
00:04:18 #7878 [verbose] > ╭─[ 293.18ms - stdout ]────────────────────────────────────────────────────────╮
00:04:18 #7879 [verbose] > │ () │
00:04:18 #7880 [verbose] > │ │
00:04:18 #7881 [verbose] > │ │
00:04:18 #7882 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:18 #7883 [verbose] >
00:04:18 #7884 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:18 #7885 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:18 #7886 [verbose] > │ ## last │
00:04:18 #7887 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:18 #7888 [verbose] >
00:04:18 #7889 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:18 #7890 [verbose] > inl last (ar : a _ _) =
00:04:18 #7891 [verbose] > inl len = length ar
00:04:18 #7892 [verbose] > if var_is ar || len > 0
00:04:18 #7893 [verbose] > then ar |> index (len - 1)
00:04:18 #7894 [verbose] > else error_type "The length of the array should be greater than 0."
00:04:18 #7895 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ff52934dc8f78e5716309459d1b627c8dafdb8c593c448d2dae4a846ed7943bb\main.spi
00:04:18 #7896 [verbose] >
00:04:18 #7897 [verbose] > ╭─[ 246.34ms - stdout ]────────────────────────────────────────────────────────╮
00:04:18 #7898 [verbose] > │ () │
00:04:18 #7899 [verbose] > │ │
00:04:18 #7900 [verbose] > │ │
00:04:18 #7901 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:18 #7902 [verbose] >
00:04:18 #7903 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:18 #7904 [verbose] > // // test
00:04:18 #7905 [verbose] >
00:04:18 #7906 [verbose] > am.init 10i32 id
00:04:18 #7907 [verbose] > |> last
00:04:18 #7908 [verbose] > |> _assert_eq 9
00:04:18 #7909 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\47cfe2cba41e3b652e3a4e9be98ac035fd792927b5fcce3f7198b17a65159b97\main.spi
00:04:19 #7910 [verbose] >
00:04:19 #7911 [verbose] > ╭─[ 309.00ms - stdout ]────────────────────────────────────────────────────────╮
00:04:19 #7912 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:04:19 #7913 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:04:19 #7914 [verbose] > │ let v1 : int32 = v0.l0 │
00:04:19 #7915 [verbose] > │ let v2 : bool = v1 < 10 │
00:04:19 #7916 [verbose] > │ v2 │
00:04:19 #7917 [verbose] > │ and method2 (v0 : bool) : bool = │
00:04:19 #7918 [verbose] > │ v0 │
00:04:19 #7919 [verbose] > │ and method0 () : unit = │
00:04:19 #7920 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:04:19 #7921 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:19 #7922 [verbose] > │ while method1(v1) do │
00:04:19 #7923 [verbose] > │ let v3 : int32 = v1.l0 │
00:04:19 #7924 [verbose] > │ v0.[int v3] <- v3 │
00:04:19 #7925 [verbose] > │ let v4 : int32 = v3 + 1 │
00:04:19 #7926 [verbose] > │ v1.l0 <- v4 │
00:04:19 #7927 [verbose] > │ () │
00:04:19 #7928 [verbose] > │ let v5 : int32 = v0.Length │
00:04:19 #7929 [verbose] > │ let v6 : int32 = v5 - 1 │
00:04:19 #7930 [verbose] > │ let v7 : int32 = v0.[int v6] │
00:04:19 #7931 [verbose] > │ let v8 : string = $"%A{v7}" │
00:04:19 #7932 [verbose] > │ System.Console.WriteLine v8 │
00:04:19 #7933 [verbose] > │ let v9 : bool = v7 = 9 │
00:04:19 #7934 [verbose] > │ let v11 : bool = │
00:04:19 #7935 [verbose] > │ if v9 then │
00:04:19 #7936 [verbose] > │ true │
00:04:19 #7937 [verbose] > │ else │
00:04:19 #7938 [verbose] > │ method2(v9) │
00:04:19 #7939 [verbose] > │ let v12 : string = $"__expect / actual: %A{v7} / expected: %A{9}" │
00:04:19 #7940 [verbose] > │ let v13 : bool = v11 = false │
00:04:19 #7941 [verbose] > │ if v13 then │
00:04:19 #7942 [verbose] > │ failwith<unit> v12 │
00:04:19 #7943 [verbose] > │ method0() │
00:04:19 #7944 [verbose] > │ │
00:04:19 #7945 [verbose] > │ 9 │
00:04:19 #7946 [verbose] > │ │
00:04:19 #7947 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:19 #7948 [verbose] >
00:04:19 #7949 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:19 #7950 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:19 #7951 [verbose] > │ ## try_pick │
00:04:19 #7952 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:19 #7953 [verbose] >
00:04:19 #7954 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:19 #7955 [verbose] > inl try_pick forall t u. (fn : t -> option u) (array : a _ t) : option u =
00:04:19 #7956 [verbose] > (array, None)
00:04:19 #7957 [verbose] > ||> am.foldBack fun x acc =>
00:04:19 #7958 [verbose] > match acc with
00:04:19 #7959 [verbose] > | Some _ => acc
00:04:19 #7960 [verbose] > | None => x |> fn
00:04:19 #7961 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3b5608351d345e2a257de949f82f9d7cb1f42a9f4c8465f1bb3e4d1328536dc2\main.spi
00:04:19 #7962 [verbose] >
00:04:19 #7963 [verbose] > ╭─[ 252.58ms - stdout ]────────────────────────────────────────────────────────╮
00:04:19 #7964 [verbose] > │ () │
00:04:19 #7965 [verbose] > │ │
00:04:19 #7966 [verbose] > │ │
00:04:19 #7967 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:19 #7968 [verbose] >
00:04:19 #7969 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:19 #7970 [verbose] > // // test
00:04:19 #7971 [verbose] >
00:04:19 #7972 [verbose] > am.init 10i32 id
00:04:19 #7973 [verbose] > |> try_pick (fun x => if x = 5i32 then Some x else None)
00:04:19 #7974 [verbose] > |> _assert_eq (Some 5i32)
00:04:19 #7975 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\54d3f56ff16ada411e532ba41ac0d7a152123d8519540d65e3999fb8db32c93b\main.spi
00:04:19 #7976 [verbose] >
00:04:19 #7977 [verbose] > ╭─[ 343.84ms - stdout ]────────────────────────────────────────────────────────╮
00:04:19 #7978 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:04:19 #7979 [verbose] > │ and [<Struct>] US0 = │
00:04:19 #7980 [verbose] > │ | US0_0 of f0_0 : int32 │
00:04:19 #7981 [verbose] > │ | US0_1 │
00:04:19 #7982 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : US0} │
00:04:19 #7983 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:04:19 #7984 [verbose] > │ let v1 : int32 = v0.l0 │
00:04:19 #7985 [verbose] > │ let v2 : bool = v1 < 10 │
00:04:19 #7986 [verbose] > │ v2 │
00:04:19 #7987 [verbose] > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:04:19 #7988 [verbose] > │ let v2 : int32 = v1.l0 │
00:04:19 #7989 [verbose] > │ let v3 : bool = v2 < v0 │
00:04:19 #7990 [verbose] > │ v3 │
00:04:19 #7991 [verbose] > │ and method3 (v0 : bool) : bool = │
00:04:19 #7992 [verbose] > │ v0 │
00:04:19 #7993 [verbose] > │ and method0 () : unit = │
00:04:19 #7994 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (10) │
00:04:19 #7995 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:19 #7996 [verbose] > │ while method1(v1) do │
00:04:19 #7997 [verbose] > │ let v3 : int32 = v1.l0 │
00:04:19 #7998 [verbose] > │ v0.[int v3] <- v3 │
00:04:19 #7999 [verbose] > │ let v4 : int32 = v3 + 1 │
00:04:19 #8000 [verbose] > │ v1.l0 <- v4 │
00:04:19 #8001 [verbose] > │ () │
00:04:19 #8002 [verbose] > │ let v5 : int32 = v0.Length │
00:04:19 #8003 [verbose] > │ let v6 : US0 = US0_1 │
00:04:19 #8004 [verbose] > │ let v7 : Mut1 = {l0 = 0; l1 = v6} : Mut1 │
00:04:19 #8005 [verbose] > │ while method2(v5, v7) do │
00:04:19 #8006 [verbose] > │ let v9 : int32 = v7.l0 │
00:04:19 #8007 [verbose] > │ let v10 : int32 = -v9 │
00:04:19 #8008 [verbose] > │ let v11 : int32 = v10 + v5 │
00:04:19 #8009 [verbose] > │ let v12 : int32 = v11 - 1 │
00:04:19 #8010 [verbose] > │ let v13 : US0 = v7.l1 │
00:04:19 #8011 [verbose] > │ let v14 : int32 = v0.[int v12] │
00:04:19 #8012 [verbose] > │ let v21 : US0 = │
00:04:19 #8013 [verbose] > │ match v13 with │
00:04:19 #8014 [verbose] > │ | US0_1 -> (* None *) │
00:04:19 #8015 [verbose] > │ let v16 : bool = v14 = 5 │
00:04:19 #8016 [verbose] > │ if v16 then │
00:04:19 #8017 [verbose] > │ US0_0(v14) │
00:04:19 #8018 [verbose] > │ else │
00:04:19 #8019 [verbose] > │ US0_1 │
00:04:19 #8020 [verbose] > │ | US0_0(v15) -> (* Some *) │
00:04:19 #8021 [verbose] > │ v13 │
00:04:19 #8022 [verbose] > │ let v22 : int32 = v9 + 1 │
00:04:19 #8023 [verbose] > │ v7.l0 <- v22 │
00:04:19 #8024 [verbose] > │ v7.l1 <- v21 │
00:04:19 #8025 [verbose] > │ () │
00:04:19 #8026 [verbose] > │ let v23 : US0 = v7.l1 │
00:04:19 #8027 [verbose] > │ let v24 : string = $"%A{v23}" │
00:04:19 #8028 [verbose] > │ System.Console.WriteLine v24 │
00:04:19 #8029 [verbose] > │ let v28 : bool = │
00:04:19 #8030 [verbose] > │ match v23 with │
00:04:19 #8031 [verbose] > │ | US0_0(v26) -> (* Some *) │
00:04:19 #8032 [verbose] > │ let v27 : bool = v26 = 5 │
00:04:19 #8033 [verbose] > │ v27 │
00:04:19 #8034 [verbose] > │ | _ -> │
00:04:19 #8035 [verbose] > │ false │
00:04:19 #8036 [verbose] > │ let v30 : bool = │
00:04:19 #8037 [verbose] > │ if v28 then │
00:04:19 #8038 [verbose] > │ true │
00:04:19 #8039 [verbose] > │ else │
00:04:19 #8040 [verbose] > │ method3(v28) │
00:04:19 #8041 [verbose] > │ let v31 : US0 = US0_0(5) │
00:04:19 #8042 [verbose] > │ let v32 : string = $"__expect / actual: %A{v23} / expected: %A{v31}" │
00:04:19 #8043 [verbose] > │ let v33 : bool = v30 = false │
00:04:19 #8044 [verbose] > │ if v33 then │
00:04:19 #8045 [verbose] > │ failwith<unit> v32 │
00:04:19 #8046 [verbose] > │ method0() │
00:04:19 #8047 [verbose] > │ │
00:04:19 #8048 [verbose] > │ US0_0 5 │
00:04:19 #8049 [verbose] > │ │
00:04:19 #8050 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:19 #8051 [verbose] >
00:04:19 #8052 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:19 #8053 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:19 #8054 [verbose] > │ ## indexed' │
00:04:19 #8055 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:19 #8056 [verbose] >
00:04:19 #8057 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:19 #8058 [verbose] > inl indexed' forall t dim {int; number} dim' {int; number} u {number}. (ar : a
00:04:19 #8059 [verbose] > dim t) : a dim' (u * t) =
00:04:19 #8060 [verbose] > ((0, a ;[[]]), ar)
00:04:19 #8061 [verbose] > ||> am.fold fun (i, acc) x =>
00:04:19 #8062 [verbose] > i + 1, acc /@ a ;[[i, x]]
00:04:19 #8063 [verbose] > |> snd
00:04:19 #8064 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\63aa2a6eed38de9050734fca837d5719aa31ef4f71f2c74263c39c6362b79699\main.spi
00:04:19 #8065 [verbose] >
00:04:19 #8066 [verbose] > ╭─[ 205.09ms - stdout ]────────────────────────────────────────────────────────╮
00:04:19 #8067 [verbose] > │ () │
00:04:19 #8068 [verbose] > │ │
00:04:19 #8069 [verbose] > │ │
00:04:19 #8070 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:19 #8071 [verbose] >
00:04:19 #8072 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:19 #8073 [verbose] > // // test
00:04:19 #8074 [verbose] >
00:04:19 #8075 [verbose] > am.init 3i32 ((*) 2)
00:04:19 #8076 [verbose] > |> indexed'
00:04:19 #8077 [verbose] > |> _assert_eq (a ;[[0i32, 0; 1, 2; 2, 4]] : a i32 _)
00:04:20 #8078 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c85db5920fea777bd738ebec7af04a20f4d25ec044affbb559d8d92da053fc1b\main.spi
00:04:20 #8079 [verbose] >
00:04:20 #8080 [verbose] > ╭─[ 355.60ms - stdout ]────────────────────────────────────────────────────────╮
00:04:20 #8081 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:04:20 #8082 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : int32; mutable l2 : (struct │
00:04:20 #8083 [verbose] > │ (int32 * int32) [])} │
00:04:20 #8084 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:04:20 #8085 [verbose] > │ let v1 : int32 = v0.l0 │
00:04:20 #8086 [verbose] > │ let v2 : bool = v1 < 3 │
00:04:20 #8087 [verbose] > │ v2 │
00:04:20 #8088 [verbose] > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:04:20 #8089 [verbose] > │ let v2 : int32 = v1.l0 │
00:04:20 #8090 [verbose] > │ let v3 : bool = v2 < v0 │
00:04:20 #8091 [verbose] > │ v3 │
00:04:20 #8092 [verbose] > │ and method3 (v0 : int32, v1 : Mut0) : bool = │
00:04:20 #8093 [verbose] > │ let v2 : int32 = v1.l0 │
00:04:20 #8094 [verbose] > │ let v3 : bool = v2 < v0 │
00:04:20 #8095 [verbose] > │ v3 │
00:04:20 #8096 [verbose] > │ and method4 (v0 : (struct (int32 * int32) []), v1 : (struct (int32 * int32) │
00:04:20 #8097 [verbose] > │ []), v2 : int32) : bool = │
00:04:20 #8098 [verbose] > │ let v3 : int32 = v0.Length │
00:04:20 #8099 [verbose] > │ let v4 : bool = v2 < v3 │
00:04:20 #8100 [verbose] > │ if v4 then │
00:04:20 #8101 [verbose] > │ let struct (v5 : int32, v6 : int32) = v0.[int v2] │
00:04:20 #8102 [verbose] > │ let struct (v7 : int32, v8 : int32) = v1.[int v2] │
00:04:20 #8103 [verbose] > │ let v9 : bool = v5 = v7 │
00:04:20 #8104 [verbose] > │ let v11 : bool = │
00:04:20 #8105 [verbose] > │ if v9 then │
00:04:20 #8106 [verbose] > │ let v10 : bool = v6 = v8 │
00:04:20 #8107 [verbose] > │ v10 │
00:04:20 #8108 [verbose] > │ else │
00:04:20 #8109 [verbose] > │ false │
00:04:20 #8110 [verbose] > │ if v11 then │
00:04:20 #8111 [verbose] > │ let v12 : int32 = v2 + 1 │
00:04:20 #8112 [verbose] > │ method4(v0, v1, v12) │
00:04:20 #8113 [verbose] > │ else │
00:04:20 #8114 [verbose] > │ false │
00:04:20 #8115 [verbose] > │ else │
00:04:20 #8116 [verbose] > │ true │
00:04:20 #8117 [verbose] > │ and method5 (v0 : bool) : bool = │
00:04:20 #8118 [verbose] > │ v0 │
00:04:20 #8119 [verbose] > │ and method0 () : unit = │
00:04:20 #8120 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (3) │
00:04:20 #8121 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:20 #8122 [verbose] > │ while method1(v1) do │
00:04:20 #8123 [verbose] > │ let v3 : int32 = v1.l0 │
00:04:20 #8124 [verbose] > │ let v4 : int32 = 2 * v3 │
00:04:20 #8125 [verbose] > │ v0.[int v3] <- v4 │
00:04:20 #8126 [verbose] > │ let v5 : int32 = v3 + 1 │
00:04:20 #8127 [verbose] > │ v1.l0 <- v5 │
00:04:20 #8128 [verbose] > │ () │
00:04:20 #8129 [verbose] > │ let v6 : (struct (int32 * int32) []) = [||] │
00:04:20 #8130 [verbose] > │ let v7 : int32 = v0.Length │
00:04:20 #8131 [verbose] > │ let v8 : Mut1 = {l0 = 0; l1 = 0; l2 = v6} : Mut1 │
00:04:20 #8132 [verbose] > │ while method2(v7, v8) do │
00:04:20 #8133 [verbose] > │ let v10 : int32 = v8.l0 │
00:04:20 #8134 [verbose] > │ let struct (v11 : int32, v12 : (struct (int32 * int32) [])) = v8.l1, │
00:04:20 #8135 [verbose] > │ v8.l2 │
00:04:20 #8136 [verbose] > │ let v13 : int32 = v0.[int v10] │
00:04:20 #8137 [verbose] > │ let v14 : int32 = v11 + 1 │
00:04:20 #8138 [verbose] > │ let v15 : (struct (int32 * int32) []) = [|struct (v11, v13)|] │
00:04:20 #8139 [verbose] > │ let v16 : int32 = v12.Length │
00:04:20 #8140 [verbose] > │ let v17 : int32 = v15.Length │
00:04:20 #8141 [verbose] > │ let v18 : int32 = v16 + v17 │
00:04:20 #8142 [verbose] > │ let v19 : (struct (int32 * int32) []) = Array.zeroCreate<struct │
00:04:20 #8143 [verbose] > │ (int32 * int32)> (v18) │
00:04:20 #8144 [verbose] > │ let v20 : Mut0 = {l0 = 0} : Mut0 │
00:04:20 #8145 [verbose] > │ while method3(v18, v20) do │
00:04:20 #8146 [verbose] > │ let v22 : int32 = v20.l0 │
00:04:20 #8147 [verbose] > │ let v23 : bool = v22 < v16 │
00:04:20 #8148 [verbose] > │ let struct (v29 : int32, v30 : int32) = │
00:04:20 #8149 [verbose] > │ if v23 then │
00:04:20 #8150 [verbose] > │ let struct (v24 : int32, v25 : int32) = v12.[int v22] │
00:04:20 #8151 [verbose] > │ struct (v24, v25) │
00:04:20 #8152 [verbose] > │ else │
00:04:20 #8153 [verbose] > │ let v26 : int32 = v22 - v16 │
00:04:20 #8154 [verbose] > │ let struct (v27 : int32, v28 : int32) = v15.[int v26] │
00:04:20 #8155 [verbose] > │ struct (v27, v28) │
00:04:20 #8156 [verbose] > │ v19.[int v22] <- struct (v29, v30) │
00:04:20 #8157 [verbose] > │ let v31 : int32 = v22 + 1 │
00:04:20 #8158 [verbose] > │ v20.l0 <- v31 │
00:04:20 #8159 [verbose] > │ () │
00:04:20 #8160 [verbose] > │ let v32 : int32 = v10 + 1 │
00:04:20 #8161 [verbose] > │ v8.l0 <- v32 │
00:04:20 #8162 [verbose] > │ v8.l1 <- v14 │
00:04:20 #8163 [verbose] > │ v8.l2 <- v19 │
00:04:20 #8164 [verbose] > │ () │
00:04:20 #8165 [verbose] > │ let struct (v33 : int32, v34 : (struct (int32 * int32) [])) = v8.l1, │
00:04:20 #8166 [verbose] > │ v8.l2 │
00:04:20 #8167 [verbose] > │ let v35 : (struct (int32 * int32) []) = [|struct (0, 0); struct (1, 2); │
00:04:20 #8168 [verbose] > │ struct (2, 4)|] │
00:04:20 #8169 [verbose] > │ let v36 : string = $"%A{v34}" │
00:04:20 #8170 [verbose] > │ System.Console.WriteLine v36 │
00:04:20 #8171 [verbose] > │ let v37 : int32 = v34.Length │
00:04:20 #8172 [verbose] > │ let v38 : int32 = v35.Length │
00:04:20 #8173 [verbose] > │ let v39 : bool = v37 = v38 │
00:04:20 #8174 [verbose] > │ let v40 : bool = v39 <> true │
00:04:20 #8175 [verbose] > │ let v43 : bool = │
00:04:20 #8176 [verbose] > │ if v40 then │
00:04:20 #8177 [verbose] > │ false │
00:04:20 #8178 [verbose] > │ else │
00:04:20 #8179 [verbose] > │ let v41 : int32 = 0 │
00:04:20 #8180 [verbose] > │ method4(v34, v35, v41) │
00:04:20 #8181 [verbose] > │ let v45 : bool = │
00:04:20 #8182 [verbose] > │ if v43 then │
00:04:20 #8183 [verbose] > │ true │
00:04:20 #8184 [verbose] > │ else │
00:04:20 #8185 [verbose] > │ method5(v43) │
00:04:20 #8186 [verbose] > │ let v46 : string = $"__expect / actual: %A{v34} / expected: %A{v35}" │
00:04:20 #8187 [verbose] > │ let v47 : bool = v45 = false │
00:04:20 #8188 [verbose] > │ if v47 then │
00:04:20 #8189 [verbose] > │ failwith<unit> v46 │
00:04:20 #8190 [verbose] > │ method0() │
00:04:20 #8191 [verbose] > │ │
00:04:20 #8192 [verbose] > │ [|struct (0, 0); struct (1, 2); struct (2, 4)|] │
00:04:20 #8193 [verbose] > │ │
00:04:20 #8194 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:20 #8195 [verbose] >
00:04:20 #8196 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:20 #8197 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:20 #8198 [verbose] > │ ## map_base │
00:04:20 #8199 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:20 #8200 [verbose] >
00:04:20 #8201 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:20 #8202 [verbose] > inl map_base forall t u. (fn : t -> u) (x : array_base t) : array_base u =
00:04:20 #8203 [verbose] > a x
00:04:20 #8204 [verbose] > |> am.map fn
00:04:20 #8205 [verbose] > |> fun (a x : _ i64 _) => x
00:04:20 #8206 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a58fe736a5e2a7c90a7fba333e960891e0342a49117a331a97abbb783845365d\main.spi
00:04:20 #8207 [verbose] >
00:04:20 #8208 [verbose] > ╭─[ 212.37ms - stdout ]────────────────────────────────────────────────────────╮
00:04:20 #8209 [verbose] > │ () │
00:04:20 #8210 [verbose] > │ │
00:04:20 #8211 [verbose] > │ │
00:04:20 #8212 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:20 #8213 [verbose] >
00:04:20 #8214 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:20 #8215 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:20 #8216 [verbose] > │ ## average │
00:04:20 #8217 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:20 #8218 [verbose] >
00:04:20 #8219 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:20 #8220 [verbose] > inl average forall el {number}. (a : a _ el) : el =
00:04:20 #8221 [verbose] > a |> $'Array.average'
00:04:20 #8222 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e0b3acf2a87410fcd1d271766651e399c13a35d87f958b553764e2ca4dfca848\main.spi
00:04:20 #8223 [verbose] >
00:04:20 #8224 [verbose] > ╭─[ 264.76ms - stdout ]────────────────────────────────────────────────────────╮
00:04:20 #8225 [verbose] > │ () │
00:04:20 #8226 [verbose] > │ │
00:04:20 #8227 [verbose] > │ │
00:04:20 #8228 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:20 #8229 [verbose] >
00:04:20 #8230 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:20 #8231 [verbose] > inl distinct forall dim el. (a : a dim el) : a dim el =
00:04:20 #8232 [verbose] > a |> $'Array.distinct'
00:04:21 #8233 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\23719e93ee87d1d8a8d2207049467be97e385d3023b6cbcc37634c0cd60808eb\main.spi
00:04:21 #8234 [verbose] >
00:04:21 #8235 [verbose] > ╭─[ 250.31ms - stdout ]────────────────────────────────────────────────────────╮
00:04:21 #8236 [verbose] > │ () │
00:04:21 #8237 [verbose] > │ │
00:04:21 #8238 [verbose] > │ │
00:04:21 #8239 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:21 #8240 [verbose] >
00:04:21 #8241 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:21 #8242 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:21 #8243 [verbose] > │ ## parallel_map │
00:04:21 #8244 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:21 #8245 [verbose] >
00:04:21 #8246 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:21 #8247 [verbose] > inl parallel_map forall dim el el'. (fn : el -> el') (a : a dim el) : a dim el'
00:04:21 #8248 [verbose] > =
00:04:21 #8249 [verbose] > a |> $'Array.Parallel.map' fn
00:04:21 #8250 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\aeaaf52aab939cf23513b3ce0e4db19009a5a7481cfc6b885917ccff8853914a\main.spi
00:04:21 #8251 [verbose] >
00:04:21 #8252 [verbose] > ╭─[ 290.20ms - stdout ]────────────────────────────────────────────────────────╮
00:04:21 #8253 [verbose] > │ () │
00:04:21 #8254 [verbose] > │ │
00:04:21 #8255 [verbose] > │ │
00:04:21 #8256 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:21 #8257 [verbose] >
00:04:21 #8258 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:21 #8259 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:21 #8260 [verbose] > │ ## sort_by │
00:04:21 #8261 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:21 #8262 [verbose] >
00:04:21 #8263 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:21 #8264 [verbose] > inl sort_by forall dim el. (fn : el -> _) (a : a dim el) : a dim el =
00:04:21 #8265 [verbose] > a |> $'Array.sortBy' fn
00:04:21 #8266 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\15dcda3fe4d70c30adad96772635b401e1d982e1149df734ec7df5e2425b1e25\main.spi
00:04:21 #8267 [verbose] >
00:04:21 #8268 [verbose] > ╭─[ 217.12ms - stdout ]────────────────────────────────────────────────────────╮
00:04:21 #8269 [verbose] > │ () │
00:04:21 #8270 [verbose] > │ │
00:04:21 #8271 [verbose] > │ │
00:04:21 #8272 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:21 #8273 [verbose] >
00:04:21 #8274 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:21 #8275 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:21 #8276 [verbose] > │ ## sort_descending │
00:04:21 #8277 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:21 #8278 [verbose] >
00:04:21 #8279 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:21 #8280 [verbose] > inl sort_descending forall dim el. (a : a dim el) : a dim el =
00:04:21 #8281 [verbose] > a |> $'Array.sortDescending'
00:04:21 #8282 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3ba18b494387591436ea84b7f74c27fff4295f9b524d9fe9f8be0c0fa07e74fe\main.spi
00:04:21 #8283 [verbose] >
00:04:21 #8284 [verbose] > ╭─[ 206.84ms - stdout ]────────────────────────────────────────────────────────╮
00:04:21 #8285 [verbose] > │ () │
00:04:21 #8286 [verbose] > │ │
00:04:21 #8287 [verbose] > │ │
00:04:21 #8288 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:21 #8289 [verbose] >
00:04:21 #8290 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:21 #8291 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:21 #8292 [verbose] > │ ## transpose │
00:04:21 #8293 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:21 #8294 [verbose] >
00:04:21 #8295 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:21 #8296 [verbose] > inl transpose forall dim el. (a : a dim (a dim el)) : a dim (a dim el) =
00:04:21 #8297 [verbose] > a |> $'Array.transpose'
00:04:22 #8298 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dba16f3298415ca0b5a19b7104b50ee40ddcde086f33d315ec5ac562044dbea6\main.spi
00:04:22 #8299 [verbose] >
00:04:22 #8300 [verbose] > ╭─[ 221.14ms - stdout ]────────────────────────────────────────────────────────╮
00:04:22 #8301 [verbose] > │ () │
00:04:22 #8302 [verbose] > │ │
00:04:22 #8303 [verbose] > │ │
00:04:22 #8304 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:22 #8305 [verbose] >
00:04:22 #8306 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:22 #8307 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:22 #8308 [verbose] > │ ## try_item │
00:04:22 #8309 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:22 #8310 [verbose] >
00:04:22 #8311 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:22 #8312 [verbose] > inl try_item forall dim el. (i : i32) (a : a dim el) : option el =
00:04:22 #8313 [verbose] > a |> $'Array.tryItem' i |> optionm'.unbox
00:04:22 #8314 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a4d4e9600415133779b9f8a52525e310611724c9f1aff5745d02ebdcb0ca708f\main.spi
00:04:22 #8315 [verbose] >
00:04:22 #8316 [verbose] > ╭─[ 225.27ms - stdout ]────────────────────────────────────────────────────────╮
00:04:22 #8317 [verbose] > │ () │
00:04:22 #8318 [verbose] > │ │
00:04:22 #8319 [verbose] > │ │
00:04:22 #8320 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:22 #8321 [verbose] >
00:04:22 #8322 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:22 #8323 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:22 #8324 [verbose] > │ ## indexed │
00:04:22 #8325 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:22 #8326 [verbose] >
00:04:22 #8327 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:22 #8328 [verbose] > inl indexed (array : a _ _) =
00:04:22 #8329 [verbose] > (([[]], 0), array)
00:04:22 #8330 [verbose] > ||> am.fold fun (acc, i) x =>
00:04:22 #8331 [verbose] > (i, x) :: acc, i + 1
00:04:22 #8332 [verbose] > |> fst
00:04:22 #8333 [verbose] > |> listm.rev
00:04:22 #8334 [verbose] > |> listm.toArray
00:04:22 #8335 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fea65d8a4be04f8a1affdaa328abfa300fb78a0363f6ea7b56cf9e71f9a6f0a1\main.spi
00:04:22 #8336 [verbose] >
00:04:22 #8337 [verbose] > ╭─[ 251.28ms - stdout ]────────────────────────────────────────────────────────╮
00:04:22 #8338 [verbose] > │ () │
00:04:22 #8339 [verbose] > │ │
00:04:22 #8340 [verbose] > │ │
00:04:22 #8341 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:22 #8342 [verbose] >
00:04:22 #8343 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:22 #8344 [verbose] > // // test
00:04:22 #8345 [verbose] >
00:04:22 #8346 [verbose] > am.init 3i32 ((*) 2)
00:04:22 #8347 [verbose] > |> indexed
00:04:22 #8348 [verbose] > |> _assert_eq (a ;[[0i32, 0; 1, 2; 2, 4]] : a i32 _)
00:04:22 #8349 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\805e27981bf57e65e418f570f640ce1b615a4d74340b18ccd147f60c9fa396f3\main.spi
00:04:22 #8350 [verbose] >
00:04:22 #8351 [verbose] > ╭─[ 404.41ms - stdout ]────────────────────────────────────────────────────────╮
00:04:22 #8352 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:04:22 #8353 [verbose] > │ and UH0 = │
00:04:22 #8354 [verbose] > │ | UH0_0 │
00:04:22 #8355 [verbose] > │ | UH0_1 of int32 * int32 * UH0 │
00:04:22 #8356 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : UH0; mutable l2 : int32} │
00:04:22 #8357 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:04:22 #8358 [verbose] > │ let v1 : int32 = v0.l0 │
00:04:22 #8359 [verbose] > │ let v2 : bool = v1 < 3 │
00:04:22 #8360 [verbose] > │ v2 │
00:04:22 #8361 [verbose] > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:04:22 #8362 [verbose] > │ let v2 : int32 = v1.l0 │
00:04:22 #8363 [verbose] > │ let v3 : bool = v2 < v0 │
00:04:22 #8364 [verbose] > │ v3 │
00:04:22 #8365 [verbose] > │ and method3 (v0 : UH0, v1 : UH0) : UH0 = │
00:04:22 #8366 [verbose] > │ match v0 with │
00:04:22 #8367 [verbose] > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:04:22 #8368 [verbose] > │ let v5 : UH0 = UH0_1(v2, v3, v1) │
00:04:22 #8369 [verbose] > │ method3(v4, v5) │
00:04:22 #8370 [verbose] > │ | UH0_0 -> (* Nil *) │
00:04:22 #8371 [verbose] > │ v1 │
00:04:22 #8372 [verbose] > │ and method5 (v0 : UH0, v1 : int32) : int32 = │
00:04:22 #8373 [verbose] > │ match v0 with │
00:04:22 #8374 [verbose] > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:04:22 #8375 [verbose] > │ let v5 : int32 = v1 + 1 │
00:04:22 #8376 [verbose] > │ method5(v4, v5) │
00:04:22 #8377 [verbose] > │ | UH0_0 -> (* Nil *) │
00:04:22 #8378 [verbose] > │ v1 │
00:04:22 #8379 [verbose] > │ and method6 (v0 : (struct (int32 * int32) []), v1 : UH0, v2 : int32) : int32 │
00:04:22 #8380 [verbose] > │ = │
00:04:22 #8381 [verbose] > │ match v1 with │
00:04:22 #8382 [verbose] > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:04:22 #8383 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:04:22 #8384 [verbose] > │ let v6 : int32 = v2 + 1 │
00:04:22 #8385 [verbose] > │ method6(v0, v5, v6) │
00:04:22 #8386 [verbose] > │ | UH0_0 -> (* Nil *) │
00:04:22 #8387 [verbose] > │ v2 │
00:04:22 #8388 [verbose] > │ and method4 (v0 : UH0) : (struct (int32 * int32) []) = │
00:04:22 #8389 [verbose] > │ let v1 : int32 = 0 │
00:04:22 #8390 [verbose] > │ let v2 : int32 = method5(v0, v1) │
00:04:23 #8391 [verbose] > │ let v3 : (struct (int32 * int32) []) = Array.zeroCreate<struct (int32 * │
00:04:23 #8392 [verbose] > │ int32)> (v2) │
00:04:23 #8393 [verbose] > │ let v4 : int32 = 0 │
00:04:23 #8394 [verbose] > │ let v5 : int32 = method6(v3, v0, v4) │
00:04:23 #8395 [verbose] > │ v3 │
00:04:23 #8396 [verbose] > │ and method7 (v0 : (struct (int32 * int32) []), v1 : (struct (int32 * int32) │
00:04:23 #8397 [verbose] > │ []), v2 : int32) : bool = │
00:04:23 #8398 [verbose] > │ let v3 : int32 = v0.Length │
00:04:23 #8399 [verbose] > │ let v4 : bool = v2 < v3 │
00:04:23 #8400 [verbose] > │ if v4 then │
00:04:23 #8401 [verbose] > │ let struct (v5 : int32, v6 : int32) = v0.[int v2] │
00:04:23 #8402 [verbose] > │ let struct (v7 : int32, v8 : int32) = v1.[int v2] │
00:04:23 #8403 [verbose] > │ let v9 : bool = v5 = v7 │
00:04:23 #8404 [verbose] > │ let v11 : bool = │
00:04:23 #8405 [verbose] > │ if v9 then │
00:04:23 #8406 [verbose] > │ let v10 : bool = v6 = v8 │
00:04:23 #8407 [verbose] > │ v10 │
00:04:23 #8408 [verbose] > │ else │
00:04:23 #8409 [verbose] > │ false │
00:04:23 #8410 [verbose] > │ if v11 then │
00:04:23 #8411 [verbose] > │ let v12 : int32 = v2 + 1 │
00:04:23 #8412 [verbose] > │ method7(v0, v1, v12) │
00:04:23 #8413 [verbose] > │ else │
00:04:23 #8414 [verbose] > │ false │
00:04:23 #8415 [verbose] > │ else │
00:04:23 #8416 [verbose] > │ true │
00:04:23 #8417 [verbose] > │ and method8 (v0 : bool) : bool = │
00:04:23 #8418 [verbose] > │ v0 │
00:04:23 #8419 [verbose] > │ and method0 () : unit = │
00:04:23 #8420 [verbose] > │ let v0 : (int32 []) = Array.zeroCreate<int32> (3) │
00:04:23 #8421 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:04:23 #8422 [verbose] > │ while method1(v1) do │
00:04:23 #8423 [verbose] > │ let v3 : int32 = v1.l0 │
00:04:23 #8424 [verbose] > │ let v4 : int32 = 2 * v3 │
00:04:23 #8425 [verbose] > │ v0.[int v3] <- v4 │
00:04:23 #8426 [verbose] > │ let v5 : int32 = v3 + 1 │
00:04:23 #8427 [verbose] > │ v1.l0 <- v5 │
00:04:23 #8428 [verbose] > │ () │
00:04:23 #8429 [verbose] > │ let v6 : int32 = v0.Length │
00:04:23 #8430 [verbose] > │ let v7 : UH0 = UH0_0 │
00:04:23 #8431 [verbose] > │ let v8 : Mut1 = {l0 = 0; l1 = v7; l2 = 0} : Mut1 │
00:04:23 #8432 [verbose] > │ while method2(v6, v8) do │
00:04:23 #8433 [verbose] > │ let v10 : int32 = v8.l0 │
00:04:23 #8434 [verbose] > │ let struct (v11 : UH0, v12 : int32) = v8.l1, v8.l2 │
00:04:23 #8435 [verbose] > │ let v13 : int32 = v0.[int v10] │
00:04:23 #8436 [verbose] > │ let v14 : int32 = v12 + 1 │
00:04:23 #8437 [verbose] > │ let v15 : int32 = v10 + 1 │
00:04:23 #8438 [verbose] > │ let v16 : UH0 = UH0_1(v12, v13, v11) │
00:04:23 #8439 [verbose] > │ v8.l0 <- v15 │
00:04:23 #8440 [verbose] > │ v8.l1 <- v16 │
00:04:23 #8441 [verbose] > │ v8.l2 <- v14 │
00:04:23 #8442 [verbose] > │ () │
00:04:23 #8443 [verbose] > │ let struct (v17 : UH0, v18 : int32) = v8.l1, v8.l2 │
00:04:23 #8444 [verbose] > │ let v19 : UH0 = UH0_0 │
00:04:23 #8445 [verbose] > │ let v20 : UH0 = method3(v17, v19) │
00:04:23 #8446 [verbose] > │ let v21 : (struct (int32 * int32) []) = method4(v20) │
00:04:23 #8447 [verbose] > │ let v22 : (struct (int32 * int32) []) = [|struct (0, 0); struct (1, 2); │
00:04:23 #8448 [verbose] > │ struct (2, 4)|] │
00:04:23 #8449 [verbose] > │ let v23 : string = $"%A{v21}" │
00:04:23 #8450 [verbose] > │ System.Console.WriteLine v23 │
00:04:23 #8451 [verbose] > │ let v24 : int32 = v21.Length │
00:04:23 #8452 [verbose] > │ let v25 : int32 = v22.Length │
00:04:23 #8453 [verbose] > │ let v26 : bool = v24 = v25 │
00:04:23 #8454 [verbose] > │ let v27 : bool = v26 <> true │
00:04:23 #8455 [verbose] > │ let v30 : bool = │
00:04:23 #8456 [verbose] > │ if v27 then │
00:04:23 #8457 [verbose] > │ false │
00:04:23 #8458 [verbose] > │ else │
00:04:23 #8459 [verbose] > │ let v28 : int32 = 0 │
00:04:23 #8460 [verbose] > │ method7(v21, v22, v28) │
00:04:23 #8461 [verbose] > │ let v32 : bool = │
00:04:23 #8462 [verbose] > │ if v30 then │
00:04:23 #8463 [verbose] > │ true │
00:04:23 #8464 [verbose] > │ else │
00:04:23 #8465 [verbose] > │ method8(v30) │
00:04:23 #8466 [verbose] > │ let v33 : string = $"__expect / actual: %A{v21} / expected: %A{v22}" │
00:04:23 #8467 [verbose] > │ let v34 : bool = v32 = false │
00:04:23 #8468 [verbose] > │ if v34 then │
00:04:23 #8469 [verbose] > │ failwith<unit> v33 │
00:04:23 #8470 [verbose] > │ method0() │
00:04:23 #8471 [verbose] > │ │
00:04:23 #8472 [verbose] > │ [|struct (0, 0); struct (1, 2); struct (2, 4)|] │
00:04:23 #8473 [verbose] > │ │
00:04:23 #8474 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:23 #8475 [verbose] >
00:04:23 #8476 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:23 #8477 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:23 #8478 [verbose] > │ ## vec │
00:04:23 #8479 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:23 #8480 [verbose] >
00:04:23 #8481 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:23 #8482 [verbose] > nominal vec t = $"Vec<`t>"
00:04:23 #8483 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a0c2487c7f05279aef8279a00aef23d3e35b10abf74d6bd5783888f97c290ce2\main.spi
00:04:23 #8484 [verbose] >
00:04:23 #8485 [verbose] > ╭─[ 248.49ms - stdout ]────────────────────────────────────────────────────────╮
00:04:23 #8486 [verbose] > │ () │
00:04:23 #8487 [verbose] > │ │
00:04:23 #8488 [verbose] > │ │
00:04:23 #8489 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:23 #8490 [verbose] >
00:04:23 #8491 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:23 #8492 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:23 #8493 [verbose] > │ ## from_vec │
00:04:23 #8494 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:23 #8495 [verbose] >
00:04:23 #8496 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:23 #8497 [verbose] > inl from_vec forall dim el. (vec : vec el) : a dim el =
00:04:23 #8498 [verbose] > !\\(vec, $'"fable_library_rust::NativeArray_::array_from($0)"')
00:04:23 #8499 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e84916c36bcb98492bb25123dd27a3e87ae80a1548957debe5c731d10fb814a4\main.spi
00:04:23 #8500 [verbose] >
00:04:23 #8501 [verbose] > ╭─[ 215.55ms - stdout ]────────────────────────────────────────────────────────╮
00:04:23 #8502 [verbose] > │ () │
00:04:23 #8503 [verbose] > │ │
00:04:23 #8504 [verbose] > │ │
00:04:23 #8505 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:23 #8506 [verbose] >
00:04:23 #8507 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:23 #8508 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:23 #8509 [verbose] > │ ## to_vec │
00:04:23 #8510 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:23 #8511 [verbose] >
00:04:23 #8512 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:23 #8513 [verbose] > inl to_vec forall t. (ab : array_base t) : vec t =
00:04:23 #8514 [verbose] > !\\(ab, $'"$0.to_vec()"')
00:04:23 #8515 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\27531565de1f2f6e9ef542503f704d6153079c4d8599fbf079b491847b138a8b\main.spi
00:04:23 #8516 [verbose] >
00:04:23 #8517 [verbose] > ╭─[ 261.60ms - stdout ]────────────────────────────────────────────────────────╮
00:04:23 #8518 [verbose] > │ () │
00:04:23 #8519 [verbose] > │ │
00:04:23 #8520 [verbose] > │ │
00:04:23 #8521 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:23 #8522 [verbose] >
00:04:23 #8523 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:23 #8524 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:23 #8525 [verbose] > │ ## vec_push │
00:04:23 #8526 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:23 #8527 [verbose] >
00:04:23 #8528 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:23 #8529 [verbose] > inl vec_push forall el. (el : el) (vec : vec el) : vec el =
00:04:23 #8530 [verbose] > inl el = join el
00:04:23 #8531 [verbose] > inl vec = join vec
00:04:23 #8532 [verbose] > !\($'"let mut !vec = !vec"')
00:04:23 #8533 [verbose] > // inl vec = vec |> rust.to_mut
00:04:23 #8534 [verbose] > !\($'"!vec.push(!el)"')
00:04:23 #8535 [verbose] > !\($'"!vec"')
00:04:23 #8536 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e6120ff9468d063320085eff13abacbf3d0f497820b40c60c5e764cc143e233b\main.spi
00:04:23 #8537 [verbose] >
00:04:23 #8538 [verbose] > ╭─[ 223.03ms - stdout ]────────────────────────────────────────────────────────╮
00:04:23 #8539 [verbose] > │ () │
00:04:23 #8540 [verbose] > │ │
00:04:23 #8541 [verbose] > │ │
00:04:23 #8542 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:23 #8543 [verbose] >
00:04:23 #8544 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:23 #8545 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:23 #8546 [verbose] > │ ## vec_reverse │
00:04:23 #8547 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:23 #8548 [verbose] >
00:04:23 #8549 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:23 #8550 [verbose] > inl vec_reverse forall el. (vec : vec el) : vec el =
00:04:23 #8551 [verbose] > inl vec = join vec
00:04:23 #8552 [verbose] > !\($'"let mut !vec = !vec"')
00:04:23 #8553 [verbose] > !\($'"!vec.reverse()"')
00:04:23 #8554 [verbose] > !\($'"!vec"')
00:04:24 #8555 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\64cdd3e8fb790bffb2457da426826c04a83d2edeb8201306020ba579be4792e4\main.spi
00:04:24 #8556 [verbose] >
00:04:24 #8557 [verbose] > ╭─[ 260.65ms - stdout ]────────────────────────────────────────────────────────╮
00:04:24 #8558 [verbose] > │ () │
00:04:24 #8559 [verbose] > │ │
00:04:24 #8560 [verbose] > │ │
00:04:24 #8561 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:24 #8562 [verbose] >
00:04:24 #8563 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:24 #8564 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:24 #8565 [verbose] > │ ## vec_retain │
00:04:24 #8566 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:24 #8567 [verbose] >
00:04:24 #8568 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:24 #8569 [verbose] > inl vec_retain forall el. (fn : el -> bool) (vec : vec el) : vec el =
00:04:24 #8570 [verbose] > inl vec = join vec
00:04:24 #8571 [verbose] > inl fn = join fn
00:04:24 #8572 [verbose] > !\($'"let mut !vec = !vec"')
00:04:24 #8573 [verbose] > // inl vec = vec |> rust.to_mut
00:04:24 #8574 [verbose] > !\($'"!vec.retain(|x| !fn(x.clone()))"')
00:04:24 #8575 [verbose] > !\($'"!vec"')
00:04:24 #8576 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b2b77b0134c1485e0a028f234219294fa1b9f391a2989c56e18d814758021d38\main.spi
00:04:24 #8577 [verbose] >
00:04:24 #8578 [verbose] > ╭─[ 269.14ms - stdout ]────────────────────────────────────────────────────────╮
00:04:24 #8579 [verbose] > │ () │
00:04:24 #8580 [verbose] > │ │
00:04:24 #8581 [verbose] > │ │
00:04:24 #8582 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:24 #8583 [verbose] >
00:04:24 #8584 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:24 #8585 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:24 #8586 [verbose] > │ ## vec_sort_by_key │
00:04:24 #8587 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:24 #8588 [verbose] >
00:04:24 #8589 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:24 #8590 [verbose] > inl vec_sort_by_key forall el t. (fn : el -> t) (vec : vec el) : vec el =
00:04:24 #8591 [verbose] > inl vec = join vec
00:04:24 #8592 [verbose] > inl fn = join fn
00:04:24 #8593 [verbose] > !\($'"let mut !vec = !vec"')
00:04:24 #8594 [verbose] > // inl vec = vec |> rust.to_mut
00:04:24 #8595 [verbose] > !\($'"!vec.sort_by_key(|x| !fn(x.clone()))"')
00:04:24 #8596 [verbose] > !\($'"!vec"')
00:04:24 #8597 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2ccd227557cbf66d72c89125fdcd675228fcfe277f066ef888dd893ae1da24e7\main.spi
00:04:25 #8598 [verbose] >
00:04:25 #8599 [verbose] > ╭─[ 567.58ms - stdout ]────────────────────────────────────────────────────────╮
00:04:25 #8600 [verbose] > │ () │
00:04:25 #8601 [verbose] > │ │
00:04:25 #8602 [verbose] > │ │
00:04:25 #8603 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:25 #8604 [verbose] >
00:04:25 #8605 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:25 #8606 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:25 #8607 [verbose] > │ ## vec_extend │
00:04:25 #8608 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:25 #8609 [verbose] >
00:04:25 #8610 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:25 #8611 [verbose] > inl vec_extend forall el. (el : vec el) (vec : vec el) : vec el =
00:04:25 #8612 [verbose] > inl el = join el
00:04:25 #8613 [verbose] > inl vec = join vec
00:04:25 #8614 [verbose] > !\($'"let mut !vec = !vec"')
00:04:25 #8615 [verbose] > // inl vec = vec |> rust.to_mut
00:04:25 #8616 [verbose] > !\($'"!vec.extend(!el)"')
00:04:25 #8617 [verbose] > !\($'"!vec"')
00:04:25 #8618 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\85672f34966e652f35c5e200e581944e8ffc6370ae684ebce395ee57b70d2b26\main.spi
00:04:25 #8619 [verbose] >
00:04:25 #8620 [verbose] > ╭─[ 222.25ms - stdout ]────────────────────────────────────────────────────────╮
00:04:25 #8621 [verbose] > │ () │
00:04:25 #8622 [verbose] > │ │
00:04:25 #8623 [verbose] > │ │
00:04:25 #8624 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:25 #8625 [verbose] >
00:04:25 #8626 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:25 #8627 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:25 #8628 [verbose] > │ ## vec_collect │
00:04:25 #8629 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:25 #8630 [verbose] >
00:04:25 #8631 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:25 #8632 [verbose] > inl vec_collect fn vec =
00:04:25 #8633 [verbose] > ((;[[]] |> to_vec), (vec |> from_vec : _ i32 _))
00:04:25 #8634 [verbose] > ||> am.fold fun acc x =>
00:04:25 #8635 [verbose] > acc |> vec_extend (fn x)
00:04:25 #8636 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a3f07fd84a7fd0cd4d0bf5321ebc75e02c0780d3fa9bbe2f300362572b7e5c39\main.spi
00:04:25 #8637 [verbose] >
00:04:25 #8638 [verbose] > ╭─[ 228.01ms - stdout ]────────────────────────────────────────────────────────╮
00:04:25 #8639 [verbose] > │ () │
00:04:25 #8640 [verbose] > │ │
00:04:25 #8641 [verbose] > │ │
00:04:25 #8642 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:25 #8643 [verbose] >
00:04:25 #8644 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:25 #8645 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:25 #8646 [verbose] > │ ## vec_collect_option │
00:04:25 #8647 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:25 #8648 [verbose] >
00:04:25 #8649 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:25 #8650 [verbose] > inl vec_collect_option vec =
00:04:25 #8651 [verbose] > ((;[[]] |> to_vec |> Ok), (vec |> from_vec : _ i32 _))
00:04:25 #8652 [verbose] > ||> am.fold fun acc x =>
00:04:25 #8653 [verbose] > x
00:04:25 #8654 [verbose] > |> resultm.unbox
00:04:25 #8655 [verbose] > |> fun x =>
00:04:25 #8656 [verbose] > match acc, x |> resultm.map optionm'.unbox with
00:04:25 #8657 [verbose] > | Ok acc, Ok (Some x) => acc |> vec_extend x |> Ok
00:04:25 #8658 [verbose] > | _, Error error => error |> Error
00:04:25 #8659 [verbose] > | _ => acc
00:04:25 #8660 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8d3dc277b5bc35bd5deb67b699c7eb6f8b602bd0f34ef83f9cdb19474f2f1091\main.spi
00:04:25 #8661 [verbose] >
00:04:25 #8662 [verbose] > ╭─[ 213.57ms - stdout ]────────────────────────────────────────────────────────╮
00:04:25 #8663 [verbose] > │ () │
00:04:25 #8664 [verbose] > │ │
00:04:25 #8665 [verbose] > │ │
00:04:25 #8666 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:25 #8667 [verbose] >
00:04:25 #8668 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:25 #8669 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:25 #8670 [verbose] > │ ## vec_collect_into │
00:04:25 #8671 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:25 #8672 [verbose] >
00:04:25 #8673 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:25 #8674 [verbose] > inl vec_collect_into forall (c : * -> * -> *) t e.
00:04:25 #8675 [verbose] > (x : vec (c t e))
00:04:25 #8676 [verbose] > : c (vec t) e
00:04:25 #8677 [verbose] > =
00:04:25 #8678 [verbose] > !\($'"!x.into_iter().collect()"')
00:04:25 #8679 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5d492dae10c609dc9ff237c88f0c1461f361db291400466b81a396fdcd254ec0\main.spi
00:04:26 #8680 [verbose] >
00:04:26 #8681 [verbose] > ╭─[ 227.92ms - stdout ]────────────────────────────────────────────────────────╮
00:04:26 #8682 [verbose] > │ () │
00:04:26 #8683 [verbose] > │ │
00:04:26 #8684 [verbose] > │ │
00:04:26 #8685 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:26 #8686 [verbose] >
00:04:26 #8687 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:26 #8688 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:26 #8689 [verbose] > │ ## vec_mapi │
00:04:26 #8690 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:26 #8691 [verbose] >
00:04:26 #8692 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:26 #8693 [verbose] > inl vec_mapi forall dim t u. (fn : dim -> t -> u) (ar : vec t) : vec u =
00:04:26 #8694 [verbose] > inl fn = join fn
00:04:26 #8695 [verbose] > inl ar = join ar
00:04:26 #8696 [verbose] > !\($'"!ar.iter().enumerate().map(|(i, x)|
00:04:26 #8697 [verbose] > !fn(i.try_into().unwrap())(x.clone())).collect()"')
00:04:26 #8698 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5e2105317a6c289f3a577edecbce3873a87352c8d1cf8c28fce0ac9d5ad627d0\main.spi
00:04:26 #8699 [verbose] >
00:04:26 #8700 [verbose] > ╭─[ 227.86ms - stdout ]────────────────────────────────────────────────────────╮
00:04:26 #8701 [verbose] > │ () │
00:04:26 #8702 [verbose] > │ │
00:04:26 #8703 [verbose] > │ │
00:04:26 #8704 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:26 #8705 [verbose] >
00:04:26 #8706 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:26 #8707 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:26 #8708 [verbose] > │ ## vec_map │
00:04:26 #8709 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:26 #8710 [verbose] >
00:04:26 #8711 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:26 #8712 [verbose] > inl vec_map forall t u. (fn : t -> u) (ar : vec t) : vec u =
00:04:26 #8713 [verbose] > !\\((ar, fn), $'"$0.iter().map(|x| $1(x.clone())).collect()"')
00:04:26 #8714 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f3ca3004dd94dece15e57f2d794c3913c4364d6ba30cbdb92f7abb8d482fe331\main.spi
00:04:26 #8715 [verbose] >
00:04:26 #8716 [verbose] > ╭─[ 231.27ms - stdout ]────────────────────────────────────────────────────────╮
00:04:26 #8717 [verbose] > │ () │
00:04:26 #8718 [verbose] > │ │
00:04:26 #8719 [verbose] > │ │
00:04:26 #8720 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:26 #8721 [verbose] >
00:04:26 #8722 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:26 #8723 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:26 #8724 [verbose] > │ ## vec_filter │
00:04:26 #8725 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:26 #8726 [verbose] >
00:04:26 #8727 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:26 #8728 [verbose] > inl vec_filter forall t. (fn : t -> bool) (ar : vec t) : vec t =
00:04:26 #8729 [verbose] > inl fn = join fn
00:04:26 #8730 [verbose] > inl ar = join ar
00:04:26 #8731 [verbose] > !\($'"!ar.into_iter().filter(|x| !fn(x.clone().clone())).collect()"')
00:04:26 #8732 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8a0aa8fe9dc2c6a648988c0ba0eb8f4e875f51d7ea610a012c8841999479c05e\main.spi
00:04:26 #8733 [verbose] >
00:04:26 #8734 [verbose] > ╭─[ 225.26ms - stdout ]────────────────────────────────────────────────────────╮
00:04:26 #8735 [verbose] > │ () │
00:04:26 #8736 [verbose] > │ │
00:04:26 #8737 [verbose] > │ │
00:04:26 #8738 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:26 #8739 [verbose] >
00:04:26 #8740 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:26 #8741 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:26 #8742 [verbose] > │ ## slice │
00:04:26 #8743 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:26 #8744 [verbose] >
00:04:26 #8745 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:26 #8746 [verbose] > nominal slice t = $"Slice<`t>"
00:04:26 #8747 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f30e0ff1e62e14ad98c3d742d8eaa2e23e914c091c898bf7d875094d449e6ba8\main.spi
00:04:27 #8748 [verbose] >
00:04:27 #8749 [verbose] > ╭─[ 294.42ms - stdout ]────────────────────────────────────────────────────────╮
00:04:27 #8750 [verbose] > │ () │
00:04:27 #8751 [verbose] > │ │
00:04:27 #8752 [verbose] > │ │
00:04:27 #8753 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:27 #8754 [verbose] >
00:04:27 #8755 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:27 #8756 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:27 #8757 [verbose] > │ ## slice' │
00:04:27 #8758 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:27 #8759 [verbose] >
00:04:27 #8760 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:27 #8761 [verbose] > nominal slice' t u = $"Slice'<`t, `u>"
00:04:27 #8762 [verbose] >
00:04:27 #8763 [verbose] > inl slice' forall dim el. (x : option el) : slice' el dim =
00:04:27 #8764 [verbose] > match x with
00:04:27 #8765 [verbose] > | Some x => !\($'"[[!x]]"')
00:04:27 #8766 [verbose] > | None =>
00:04:27 #8767 [verbose] > !\($'"[[\\\"\\\".to_string()]]"') : slice' el dim
00:04:27 #8768 [verbose] > // emit_expr `(()) `(slice' el dim) () ($'"[[@dim]]"' : string) :
00:04:27 #8769 [verbose] > slice' el 10
00:04:27 #8770 [verbose] > // !\( : string) : slice' el i32 // !\($'"[[]]"')
00:04:27 #8771 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4eb18b6738bde595a489f354e702dd9017d6d2ac1ce7a655974d8c99a4e0e7dc\main.spi
00:04:27 #8772 [verbose] >
00:04:27 #8773 [verbose] > ╭─[ 240.45ms - stdout ]────────────────────────────────────────────────────────╮
00:04:27 #8774 [verbose] > │ () │
00:04:27 #8775 [verbose] > │ │
00:04:27 #8776 [verbose] > │ │
00:04:27 #8777 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:27 #8778 [verbose] >
00:04:27 #8779 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:27 #8780 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:27 #8781 [verbose] > │ ## as_slice │
00:04:27 #8782 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:27 #8783 [verbose] >
00:04:27 #8784 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:27 #8785 [verbose] > inl as_slice forall t. (x : array_base t) : rust.ref' (slice t) =
00:04:27 #8786 [verbose] > inl x = x |> to_vec
00:04:27 #8787 [verbose] > !\($'"!x.as_slice()"')
00:04:27 #8788 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c733c680b664f037db12f85af383459ca87e2e1c051ecbd2521a735194ce0941\main.spi
00:04:27 #8789 [verbose] >
00:04:27 #8790 [verbose] > ╭─[ 226.69ms - stdout ]────────────────────────────────────────────────────────╮
00:04:27 #8791 [verbose] > │ () │
00:04:27 #8792 [verbose] > │ │
00:04:27 #8793 [verbose] > │ │
00:04:27 #8794 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:29 #8795 [verbose] > [NbConvertApp] Converting notebook am'.dib.ipynb to html
00:04:29 #8796 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:04:29 #8797 [verbose] > validate(nb)
00:04:29 #8798 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:04:29 #8799 [verbose] > return _pygments_highlight(
00:04:30 #8800 [verbose] > [NbConvertApp] Writing 395921 bytes to am'.dib.html
00:04:31 #8801 [debug] executeAsync / exitCode: 0 / output.Length: 93538
00:04:31 #8802 [debug] main / executeCommand / exitCode: 0
00:04:31 #8803 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 \"sm'.dib\" -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:04:33 #8804 [verbose] >
00:04:33 #8805 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:33 #8806 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:33 #8807 [verbose] > │ # sm' │
00:04:33 #8808 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:33 #8809 [verbose] >
00:04:33 #8810 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:33 #8811 [verbose] > // // test
00:04:33 #8812 [verbose] >
00:04:33 #8813 [verbose] > open testing
00:04:36 #8814 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:04:37 #8815 [verbose] >
00:04:37 #8816 [verbose] > ╭─[ 3.89s - stdout ]───────────────────────────────────────────────────────────╮
00:04:37 #8817 [verbose] > │ () │
00:04:37 #8818 [verbose] > │ │
00:04:37 #8819 [verbose] > │ │
00:04:37 #8820 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 #8821 [verbose] >
00:04:37 #8822 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:37 #8823 [verbose] > open rust_operators
00:04:37 #8824 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b9bafaa9190fd8b92f96dcaf4c2d6855aa7c524558dd349c71163ab7065188b0\main.spi
00:04:37 #8825 [verbose] >
00:04:37 #8826 [verbose] > ╭─[ 258.54ms - stdout ]────────────────────────────────────────────────────────╮
00:04:37 #8827 [verbose] > │ () │
00:04:37 #8828 [verbose] > │ │
00:04:37 #8829 [verbose] > │ │
00:04:37 #8830 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 #8831 [verbose] >
00:04:37 #8832 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:37 #8833 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:37 #8834 [verbose] > │ ## types │
00:04:37 #8835 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:37 #8836 [verbose] >
00:04:37 #8837 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:37 #8838 [verbose] > inl types () =
00:04:37 #8839 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"str\")>]] type Str = class
00:04:37 #8840 [verbose] > end"
00:04:37 #8841 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"base64::DecodeError\")>]]
00:04:37 #8842 [verbose] > type base64_DecodeError = class end"
00:04:37 #8843 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"borsh::io::Error\")>]] type
00:04:37 #8844 [verbose] > borsh_io_Error = class end"
00:04:37 #8845 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"js_sys::JsString\")>]] type
00:04:37 #8846 [verbose] > js_sys_JsString = class end"
00:04:37 #8847 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"serde_json::Error\")>]] type
00:04:37 #8848 [verbose] > serde_json_Error = class end"
00:04:37 #8849 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"serde_json::Value\")>]] type
00:04:37 #8850 [verbose] > serde_json_Value = class end"
00:04:37 #8851 [verbose] > global "[[<Fable.Core.Erase;
00:04:37 #8852 [verbose] > Fable.Core.Emit(\"serde_wasm_bindgen::Error\")>]] type serde_wasm_bindgen_Error
00:04:37 #8853 [verbose] > = class end"
00:04:37 #8854 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::ffi::OsStr\")>]] type
00:04:37 #8855 [verbose] > std_ffi_OsStr = class end"
00:04:37 #8856 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::ffi::OsString\")>]] type
00:04:37 #8857 [verbose] > std_ffi_OsString = class end"
00:04:37 #8858 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::str::Utf8Error\")>]]
00:04:37 #8859 [verbose] > type std_str_Utf8Error = class end"
00:04:37 #8860 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::string::String\")>]]
00:04:37 #8861 [verbose] > type std_string_String = class end"
00:04:38 #8862 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3b923c18fdf8789e140ac4bda437e92dedbc9cfe0ce81448be66c6330896bc24\main.spi
00:04:38 #8863 [verbose] >
00:04:38 #8864 [verbose] > ╭─[ 253.22ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 #8865 [verbose] > │ () │
00:04:38 #8866 [verbose] > │ │
00:04:38 #8867 [verbose] > │ │
00:04:38 #8868 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 #8869 [verbose] >
00:04:38 #8870 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 #8871 [verbose] > // // test
00:04:38 #8872 [verbose] >
00:04:38 #8873 [verbose] > inl types () =
00:04:38 #8874 [verbose] > rust.types ()
00:04:38 #8875 [verbose] > types ()
00:04:38 #8876 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eaeb4a5036b9671649a99437c6ece1e888f3d058817c9d15682c137e0d8c924a\main.spi
00:04:38 #8877 [verbose] >
00:04:38 #8878 [verbose] > ╭─[ 227.05ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 #8879 [verbose] > │ () │
00:04:38 #8880 [verbose] > │ │
00:04:38 #8881 [verbose] > │ │
00:04:38 #8882 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 #8883 [verbose] >
00:04:38 #8884 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 #8885 [verbose] > nominal base64_decode_error = $"base64_DecodeError"
00:04:38 #8886 [verbose] > nominal borsh_io_error = $"borsh_io_Error"
00:04:38 #8887 [verbose] > nominal utf8_error = $"std_str_Utf8Error"
00:04:38 #8888 [verbose] > nominal json_value = $"serde_json_Value"
00:04:38 #8889 [verbose] > nominal json_error = $"serde_json_Error"
00:04:38 #8890 [verbose] > nominal serde_wasm_bindgen_error = $"serde_wasm_bindgen_Error"
00:04:38 #8891 [verbose] > nominal js_string = $"js_sys_JsString"
00:04:38 #8892 [verbose] > nominal str = $"Str"
00:04:38 #8893 [verbose] > nominal os_str = $"std_ffi_OsStr"
00:04:38 #8894 [verbose] > nominal os_string = $"std_ffi_OsString"
00:04:38 #8895 [verbose] > nominal std_string = $"std_string_String"
00:04:38 #8896 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9fd6a53a38f2a1656dc059a6c777420a1d6fae7fdbc8478610bb0ab2447f886f\main.spi
00:04:38 #8897 [verbose] >
00:04:38 #8898 [verbose] > ╭─[ 235.63ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 #8899 [verbose] > │ () │
00:04:38 #8900 [verbose] > │ │
00:04:38 #8901 [verbose] > │ │
00:04:38 #8902 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 #8903 [verbose] >
00:04:38 #8904 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 #8905 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 #8906 [verbose] > │ ## contains │
00:04:38 #8907 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 #8908 [verbose] >
00:04:38 #8909 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 #8910 [verbose] > inl contains (value : string) (s : string) : bool =
00:04:38 #8911 [verbose] > $"!s.Contains !value"
00:04:38 #8912 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0e76eb046d0d7c2475b4220a6e9b756c61849742a1ad42325bfc104b58808c74\main.spi
00:04:38 #8913 [verbose] >
00:04:38 #8914 [verbose] > ╭─[ 256.57ms - stdout ]────────────────────────────────────────────────────────╮
00:04:38 #8915 [verbose] > │ () │
00:04:38 #8916 [verbose] > │ │
00:04:38 #8917 [verbose] > │ │
00:04:38 #8918 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 #8919 [verbose] >
00:04:38 #8920 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:38 #8921 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:38 #8922 [verbose] > │ ## ends_with │
00:04:38 #8923 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:38 #8924 [verbose] >
00:04:38 #8925 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:38 #8926 [verbose] > inl ends_with (value : string) (s : string) : bool =
00:04:38 #8927 [verbose] > $"!s.EndsWith !value"
00:04:39 #8928 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\22494880b37832d34864f39ab014e8b8638778ff64ad1abe4c927ef1a751f0f7\main.spi
00:04:39 #8929 [verbose] >
00:04:39 #8930 [verbose] > ╭─[ 252.23ms - stdout ]────────────────────────────────────────────────────────╮
00:04:39 #8931 [verbose] > │ () │
00:04:39 #8932 [verbose] > │ │
00:04:39 #8933 [verbose] > │ │
00:04:39 #8934 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #8935 [verbose] >
00:04:39 #8936 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:39 #8937 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:39 #8938 [verbose] > │ ## pad_left │
00:04:39 #8939 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #8940 [verbose] >
00:04:39 #8941 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:39 #8942 [verbose] > inl pad_left (total_width : i32) (padding_char : char) (s : string) : string =
00:04:39 #8943 [verbose] > $"!s.PadLeft (!total_width, !padding_char)"
00:04:39 #8944 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\26c11e35390d086e5e2977546fd44771ad0c8d55c7814e351f5edbc38491907c\main.spi
00:04:39 #8945 [verbose] >
00:04:39 #8946 [verbose] > ╭─[ 208.31ms - stdout ]────────────────────────────────────────────────────────╮
00:04:39 #8947 [verbose] > │ () │
00:04:39 #8948 [verbose] > │ │
00:04:39 #8949 [verbose] > │ │
00:04:39 #8950 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #8951 [verbose] >
00:04:39 #8952 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:39 #8953 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:39 #8954 [verbose] > │ ## pad_right │
00:04:39 #8955 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #8956 [verbose] >
00:04:39 #8957 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:39 #8958 [verbose] > inl pad_right (pad : i32) (s : string) : string =
00:04:39 #8959 [verbose] > $"!s.PadRight !pad"
00:04:39 #8960 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\016fd839336a9d2045388d14ed8a3ef8a67fa670df7b115b1d4332f6d4ff2d12\main.spi
00:04:39 #8961 [verbose] >
00:04:39 #8962 [verbose] > ╭─[ 228.53ms - stdout ]────────────────────────────────────────────────────────╮
00:04:39 #8963 [verbose] > │ () │
00:04:39 #8964 [verbose] > │ │
00:04:39 #8965 [verbose] > │ │
00:04:39 #8966 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #8967 [verbose] >
00:04:39 #8968 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:39 #8969 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:39 #8970 [verbose] > │ ## replace │
00:04:39 #8971 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #8972 [verbose] >
00:04:39 #8973 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:39 #8974 [verbose] > inl replace (old_value : string) (new_value : string) (s : string) : string =
00:04:39 #8975 [verbose] > $"!s.Replace (!old_value, !new_value)"
00:04:39 #8976 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a9dc0676a29f811c3488b9002ab88806a4cc27724a463454edd5ae5752d24900\main.spi
00:04:39 #8977 [verbose] >
00:04:39 #8978 [verbose] > ╭─[ 290.81ms - stdout ]────────────────────────────────────────────────────────╮
00:04:39 #8979 [verbose] > │ () │
00:04:39 #8980 [verbose] > │ │
00:04:39 #8981 [verbose] > │ │
00:04:39 #8982 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #8983 [verbose] >
00:04:39 #8984 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:39 #8985 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:39 #8986 [verbose] > │ ## starts_with │
00:04:39 #8987 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:39 #8988 [verbose] >
00:04:39 #8989 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:39 #8990 [verbose] > inl starts_with (value : string) (s : string) : bool =
00:04:39 #8991 [verbose] > $"!s.StartsWith !value"
00:04:40 #8992 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3f1752b9436b6ab9eb8015244d0cf3263de962ba0084b3ccbb9ad24800085d16\main.spi
00:04:40 #8993 [verbose] >
00:04:40 #8994 [verbose] > ╭─[ 271.32ms - stdout ]────────────────────────────────────────────────────────╮
00:04:40 #8995 [verbose] > │ () │
00:04:40 #8996 [verbose] > │ │
00:04:40 #8997 [verbose] > │ │
00:04:40 #8998 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #8999 [verbose] >
00:04:40 #9000 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:40 #9001 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:40 #9002 [verbose] > │ ## substring │
00:04:40 #9003 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #9004 [verbose] >
00:04:40 #9005 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 #9006 [verbose] > inl substring (start : i32) (len : i32) (str : string) : string =
00:04:40 #9007 [verbose] > $"!str.Substring (!start, !len)"
00:04:40 #9008 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\35cf0ce09f55aa8f0492a4a3ded69cef1446530a1f6f295ca7ced4b8de698315\main.spi
00:04:40 #9009 [verbose] >
00:04:40 #9010 [verbose] > ╭─[ 259.48ms - stdout ]────────────────────────────────────────────────────────╮
00:04:40 #9011 [verbose] > │ () │
00:04:40 #9012 [verbose] > │ │
00:04:40 #9013 [verbose] > │ │
00:04:40 #9014 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #9015 [verbose] >
00:04:40 #9016 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:40 #9017 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:40 #9018 [verbose] > │ ## to_lower │
00:04:40 #9019 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #9020 [verbose] >
00:04:40 #9021 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 #9022 [verbose] > inl to_lower (input : string) : string =
00:04:40 #9023 [verbose] > $"!input.ToLower ()"
00:04:40 #9024 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2567ca395a90d555f517ba8f16071e917841b77124c0f0c789671c9169240a46\main.spi
00:04:40 #9025 [verbose] >
00:04:40 #9026 [verbose] > ╭─[ 271.87ms - stdout ]────────────────────────────────────────────────────────╮
00:04:40 #9027 [verbose] > │ () │
00:04:40 #9028 [verbose] > │ │
00:04:40 #9029 [verbose] > │ │
00:04:40 #9030 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #9031 [verbose] >
00:04:40 #9032 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:40 #9033 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:40 #9034 [verbose] > │ ## to_upper │
00:04:40 #9035 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #9036 [verbose] >
00:04:40 #9037 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 #9038 [verbose] > inl to_upper (input : string) : string =
00:04:40 #9039 [verbose] > $"!input.ToUpper ()"
00:04:40 #9040 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1a50c454501b30ab747cf787fbf78358ecb9a7abf26bd84ce2878fb309928082\main.spi
00:04:40 #9041 [verbose] >
00:04:40 #9042 [verbose] > ╭─[ 267.99ms - stdout ]────────────────────────────────────────────────────────╮
00:04:40 #9043 [verbose] > │ () │
00:04:40 #9044 [verbose] > │ │
00:04:40 #9045 [verbose] > │ │
00:04:40 #9046 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #9047 [verbose] >
00:04:40 #9048 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:40 #9049 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:40 #9050 [verbose] > │ ## trim │
00:04:40 #9051 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:40 #9052 [verbose] >
00:04:40 #9053 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:40 #9054 [verbose] > inl trim (input : string) : string =
00:04:40 #9055 [verbose] > $"!input.Trim ()"
00:04:41 #9056 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bb26cc1ee7a036efcb8209ea3813bb048cda62c8e43877183049089be2c507ef\main.spi
00:04:41 #9057 [verbose] >
00:04:41 #9058 [verbose] > ╭─[ 292.62ms - stdout ]────────────────────────────────────────────────────────╮
00:04:41 #9059 [verbose] > │ () │
00:04:41 #9060 [verbose] > │ │
00:04:41 #9061 [verbose] > │ │
00:04:41 #9062 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 #9063 [verbose] >
00:04:41 #9064 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:41 #9065 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:41 #9066 [verbose] > │ ## trim_end │
00:04:41 #9067 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 #9068 [verbose] >
00:04:41 #9069 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:41 #9070 [verbose] > inl trim_end (trim_chars : array_base char) (input : string) : string =
00:04:41 #9071 [verbose] > $"!input.TrimEnd !trim_chars"
00:04:41 #9072 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\87b1179f0d15d85c91268a2caad03ecdf4183b6d42bd7442e8e1edf206599073\main.spi
00:04:41 #9073 [verbose] >
00:04:41 #9074 [verbose] > ╭─[ 262.75ms - stdout ]────────────────────────────────────────────────────────╮
00:04:41 #9075 [verbose] > │ () │
00:04:41 #9076 [verbose] > │ │
00:04:41 #9077 [verbose] > │ │
00:04:41 #9078 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 #9079 [verbose] >
00:04:41 #9080 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:41 #9081 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:41 #9082 [verbose] > │ ## trim_start │
00:04:41 #9083 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:41 #9084 [verbose] >
00:04:41 #9085 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:41 #9086 [verbose] > inl trim_start (trim_chars : array_base char) (input : string) : string =
00:04:41 #9087 [verbose] > $"!input.TrimStart !trim_chars"
00:04:41 #9088 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\21d14611b7c29a5df901d192717f2fbbd802863c614c629220eb7d1c60478ac0\main.spi
00:04:42 #9089 [verbose] >
00:04:42 #9090 [verbose] > ╭─[ 628.17ms - stdout ]────────────────────────────────────────────────────────╮
00:04:42 #9091 [verbose] > │ () │
00:04:42 #9092 [verbose] > │ │
00:04:42 #9093 [verbose] > │ │
00:04:42 #9094 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #9095 [verbose] >
00:04:42 #9096 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:42 #9097 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:42 #9098 [verbose] > │ ## slice │
00:04:42 #9099 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #9100 [verbose] >
00:04:42 #9101 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 #9102 [verbose] > inl slice from to s : string =
00:04:42 #9103 [verbose] > sm.slice s { from to }
00:04:42 #9104 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1a8b4e6d24335db1d9752523f1e1c0af4eedb2e8c9766c2a217c68ca4580fad8\main.spi
00:04:42 #9105 [verbose] >
00:04:42 #9106 [verbose] > ╭─[ 227.39ms - stdout ]────────────────────────────────────────────────────────╮
00:04:42 #9107 [verbose] > │ () │
00:04:42 #9108 [verbose] > │ │
00:04:42 #9109 [verbose] > │ │
00:04:42 #9110 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #9111 [verbose] >
00:04:42 #9112 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:42 #9113 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:42 #9114 [verbose] > │ ## raw_string_literal │
00:04:42 #9115 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #9116 [verbose] >
00:04:42 #9117 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 #9118 [verbose] > inl raw_string_literal (s : string) : rust.ref' str =
00:04:42 #9119 [verbose] > !\($"\"r#\\\"\" + !s + \"\\\"#\"")
00:04:42 #9120 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c462a6ce4d9c58cec1426bb478e253d6d809435b9e8cacd7d8793444eacb953d\main.spi
00:04:42 #9121 [verbose] >
00:04:42 #9122 [verbose] > ╭─[ 233.37ms - stdout ]────────────────────────────────────────────────────────╮
00:04:42 #9123 [verbose] > │ () │
00:04:42 #9124 [verbose] > │ │
00:04:42 #9125 [verbose] > │ │
00:04:42 #9126 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #9127 [verbose] >
00:04:42 #9128 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:42 #9129 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:42 #9130 [verbose] > │ ## raw_string_literal_static │
00:04:42 #9131 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #9132 [verbose] >
00:04:42 #9133 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 #9134 [verbose] > inl raw_string_literal_static (s : string) : rust.static_ref' str =
00:04:42 #9135 [verbose] > !\($"\"r#\\\"\" + !s + \"\\\"#\"")
00:04:42 #9136 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8c743b15e092a434e5164f1402572eaf533d289cd79f856ab376b1b1b4b0c59c\main.spi
00:04:42 #9137 [verbose] >
00:04:42 #9138 [verbose] > ╭─[ 268.95ms - stdout ]────────────────────────────────────────────────────────╮
00:04:42 #9139 [verbose] > │ () │
00:04:42 #9140 [verbose] > │ │
00:04:42 #9141 [verbose] > │ │
00:04:42 #9142 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #9143 [verbose] >
00:04:42 #9144 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:42 #9145 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:42 #9146 [verbose] > │ ## include_str │
00:04:42 #9147 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:42 #9148 [verbose] >
00:04:42 #9149 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:42 #9150 [verbose] > inl include_str (path : string) : rust.ref' str =
00:04:42 #9151 [verbose] > !\($'"include_str\!(\\\"" + !path + "\\\")"')
00:04:43 #9152 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\24d28215aa5cc5624955ef9aeea93c055ece271333c87297af651deff50037f8\main.spi
00:04:43 #9153 [verbose] >
00:04:43 #9154 [verbose] > ╭─[ 215.70ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 #9155 [verbose] > │ () │
00:04:43 #9156 [verbose] > │ │
00:04:43 #9157 [verbose] > │ │
00:04:43 #9158 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #9159 [verbose] >
00:04:43 #9160 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 #9161 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 #9162 [verbose] > │ ## as_str │
00:04:43 #9163 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #9164 [verbose] >
00:04:43 #9165 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 #9166 [verbose] > inl as_str (s : string) : rust.ref' str =
00:04:43 #9167 [verbose] > !\\(s, $'"fable_library_rust::String_::LrcStr::as_str(&$0)"')
00:04:43 #9168 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\82877c7a6cb9acbc3c69363a603aead20a2883eac10dec5bf531ba8ac6c879a8\main.spi
00:04:43 #9169 [verbose] >
00:04:43 #9170 [verbose] > ╭─[ 267.84ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 #9171 [verbose] > │ () │
00:04:43 #9172 [verbose] > │ │
00:04:43 #9173 [verbose] > │ │
00:04:43 #9174 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #9175 [verbose] >
00:04:43 #9176 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 #9177 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 #9178 [verbose] > │ ## as_os_ref │
00:04:43 #9179 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #9180 [verbose] >
00:04:43 #9181 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 #9182 [verbose] > inl as_os_ref (s : os_string) : rust.ref' os_str =
00:04:43 #9183 [verbose] > !\\(s, $'"$0.as_ref()"')
00:04:43 #9184 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\91f0604c39d66c6a5fa5fab3699de9905fdc86c9566a37486d9be3c45fcb520f\main.spi
00:04:43 #9185 [verbose] >
00:04:43 #9186 [verbose] > ╭─[ 218.87ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 #9187 [verbose] > │ () │
00:04:43 #9188 [verbose] > │ │
00:04:43 #9189 [verbose] > │ │
00:04:43 #9190 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #9191 [verbose] >
00:04:43 #9192 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 #9193 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 #9194 [verbose] > │ ## to_os_string │
00:04:43 #9195 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #9196 [verbose] >
00:04:43 #9197 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 #9198 [verbose] > inl to_os_string (s : rust.ref' os_str) : os_string =
00:04:43 #9199 [verbose] > !\\(s, $'"$0.to_os_string()"')
00:04:43 #9200 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2e98d02eab7bd7a2165a98d5d55f8529cab473f0959a02889cb64b1df87ad921\main.spi
00:04:43 #9201 [verbose] >
00:04:43 #9202 [verbose] > ╭─[ 227.44ms - stdout ]────────────────────────────────────────────────────────╮
00:04:43 #9203 [verbose] > │ () │
00:04:43 #9204 [verbose] > │ │
00:04:43 #9205 [verbose] > │ │
00:04:43 #9206 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #9207 [verbose] >
00:04:43 #9208 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:43 #9209 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:43 #9210 [verbose] > │ ## os_to_str │
00:04:43 #9211 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:43 #9212 [verbose] >
00:04:43 #9213 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:43 #9214 [verbose] > inl os_to_str (s : os_string) : optionm'.option' (rust.ref' str) =
00:04:43 #9215 [verbose] > !\\(s, $'"$0.to_str()"')
00:04:44 #9216 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b0047ffdc5857d5799795bf49528303f7288d6c0984064b245cd2114a01d1628\main.spi
00:04:44 #9217 [verbose] >
00:04:44 #9218 [verbose] > ╭─[ 275.12ms - stdout ]────────────────────────────────────────────────────────╮
00:04:44 #9219 [verbose] > │ () │
00:04:44 #9220 [verbose] > │ │
00:04:44 #9221 [verbose] > │ │
00:04:44 #9222 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 #9223 [verbose] >
00:04:44 #9224 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:44 #9225 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:44 #9226 [verbose] > │ ## from_std_string │
00:04:44 #9227 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 #9228 [verbose] >
00:04:44 #9229 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:44 #9230 [verbose] > inl from_std_string (str : std_string) : string =
00:04:44 #9231 [verbose] > !\\(str, $'"fable_library_rust::String_::fromString($0)"')
00:04:44 #9232 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\90e10d371112167211ebbcd8c609d313a7eddf4b6a2e60fae926bde6711c0675\main.spi
00:04:44 #9233 [verbose] >
00:04:44 #9234 [verbose] > ╭─[ 240.89ms - stdout ]────────────────────────────────────────────────────────╮
00:04:44 #9235 [verbose] > │ () │
00:04:44 #9236 [verbose] > │ │
00:04:44 #9237 [verbose] > │ │
00:04:44 #9238 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 #9239 [verbose] >
00:04:44 #9240 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:44 #9241 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:44 #9242 [verbose] > │ ## ref_to_std_string │
00:04:44 #9243 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 #9244 [verbose] >
00:04:44 #9245 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:44 #9246 [verbose] > inl ref_to_std_string (str : rust.ref' str) : std_string =
00:04:44 #9247 [verbose] > !\\(str, $'"String::from($0)"')
00:04:44 #9248 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ad5feec77f8dae019dd4123f2fafeb2d07825753d34930694bfff4cd21d57883\main.spi
00:04:44 #9249 [verbose] >
00:04:44 #9250 [verbose] > ╭─[ 259.45ms - stdout ]────────────────────────────────────────────────────────╮
00:04:44 #9251 [verbose] > │ () │
00:04:44 #9252 [verbose] > │ │
00:04:44 #9253 [verbose] > │ │
00:04:44 #9254 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 #9255 [verbose] >
00:04:44 #9256 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:44 #9257 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:44 #9258 [verbose] > │ ## to_std_string │
00:04:44 #9259 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 #9260 [verbose] >
00:04:44 #9261 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:44 #9262 [verbose] > inl to_std_string (s : string) : std_string =
00:04:44 #9263 [verbose] > inl s = join s
00:04:44 #9264 [verbose] > s |> as_str |> ref_to_std_string
00:04:44 #9265 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a0e4879b9415be46bc12783771e09b2ff33829fbb82b2e1579bee54ae498f3f1\main.spi
00:04:44 #9266 [verbose] >
00:04:44 #9267 [verbose] > ╭─[ 233.56ms - stdout ]────────────────────────────────────────────────────────╮
00:04:44 #9268 [verbose] > │ () │
00:04:44 #9269 [verbose] > │ │
00:04:44 #9270 [verbose] > │ │
00:04:44 #9271 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 #9272 [verbose] >
00:04:44 #9273 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:44 #9274 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:44 #9275 [verbose] > │ ## as_str_std │
00:04:44 #9276 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:44 #9277 [verbose] >
00:04:44 #9278 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:44 #9279 [verbose] > inl as_str_std (s : std_string) : rust.ref' str =
00:04:44 #9280 [verbose] > inl s = join s
00:04:44 #9281 [verbose] > !\($'"!s.as_str()"')
00:04:45 #9282 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\05fe9f4ff35bda48bc066c435caed26f645bc4d0b37c908a06af736bf4da0a5b\main.spi
00:04:45 #9283 [verbose] >
00:04:45 #9284 [verbose] > ╭─[ 272.09ms - stdout ]────────────────────────────────────────────────────────╮
00:04:45 #9285 [verbose] > │ () │
00:04:45 #9286 [verbose] > │ │
00:04:45 #9287 [verbose] > │ │
00:04:45 #9288 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 #9289 [verbose] >
00:04:45 #9290 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:45 #9291 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:45 #9292 [verbose] > │ ## into_boxed_str │
00:04:45 #9293 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 #9294 [verbose] >
00:04:45 #9295 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:45 #9296 [verbose] > inl into_boxed_str (s : std_string) : rust.box str =
00:04:45 #9297 [verbose] > !\($'"!s.into_boxed_str()"')
00:04:45 #9298 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2cae40a55a0d6d5652bb680f433d5699e9939ef0a477e232b00b345d29fd9c8a\main.spi
00:04:45 #9299 [verbose] >
00:04:45 #9300 [verbose] > ╭─[ 247.86ms - stdout ]────────────────────────────────────────────────────────╮
00:04:45 #9301 [verbose] > │ () │
00:04:45 #9302 [verbose] > │ │
00:04:45 #9303 [verbose] > │ │
00:04:45 #9304 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 #9305 [verbose] >
00:04:45 #9306 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:45 #9307 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:45 #9308 [verbose] > │ ## format' │
00:04:45 #9309 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 #9310 [verbose] >
00:04:45 #9311 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:45 #9312 [verbose] > inl format' x : std_string =
00:04:45 #9313 [verbose] > !\\(x, $'@@$"format\!(""{{}}"", $0)"')
00:04:45 #9314 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\52bbb4e50596d288957974098a7e93727167b1a4d215510cd9158237b1cafe03\main.spi
00:04:45 #9315 [verbose] >
00:04:45 #9316 [verbose] > ╭─[ 230.45ms - stdout ]────────────────────────────────────────────────────────╮
00:04:45 #9317 [verbose] > │ () │
00:04:45 #9318 [verbose] > │ │
00:04:45 #9319 [verbose] > │ │
00:04:45 #9320 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 #9321 [verbose] >
00:04:45 #9322 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:45 #9323 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:45 #9324 [verbose] > │ ## format_debug │
00:04:45 #9325 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 #9326 [verbose] >
00:04:45 #9327 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:45 #9328 [verbose] > inl format_debug x : string =
00:04:45 #9329 [verbose] > $'$"%A{!x}"'
00:04:45 #9330 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ecdbb057564d09c1cf0c7f86b6338b883cbbfd744a92f6f319ce0d4b7133d006\main.spi
00:04:45 #9331 [verbose] >
00:04:45 #9332 [verbose] > ╭─[ 235.16ms - stdout ]────────────────────────────────────────────────────────╮
00:04:45 #9333 [verbose] > │ () │
00:04:45 #9334 [verbose] > │ │
00:04:45 #9335 [verbose] > │ │
00:04:45 #9336 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 #9337 [verbose] >
00:04:45 #9338 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:45 #9339 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:45 #9340 [verbose] > │ ## format_debug' │
00:04:45 #9341 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:45 #9342 [verbose] >
00:04:45 #9343 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:45 #9344 [verbose] > inl format_debug' x : std_string =
00:04:45 #9345 [verbose] > !\\(x, $'@@$"format\!(""{{:?}}"", $0)"')
00:04:46 #9346 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6386583745f72ff636a322c186aa0693b3fa7e0f4a1d2b1461c271219e3935eb\main.spi
00:04:46 #9347 [verbose] >
00:04:46 #9348 [verbose] > ╭─[ 237.51ms - stdout ]────────────────────────────────────────────────────────╮
00:04:46 #9349 [verbose] > │ () │
00:04:46 #9350 [verbose] > │ │
00:04:46 #9351 [verbose] > │ │
00:04:46 #9352 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 #9353 [verbose] >
00:04:46 #9354 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:46 #9355 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:46 #9356 [verbose] > │ ## format_pretty' │
00:04:46 #9357 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 #9358 [verbose] >
00:04:46 #9359 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:46 #9360 [verbose] > inl format_pretty' x : std_string =
00:04:46 #9361 [verbose] > !\\(x, $'@@$"format\!(""{{:#?}}"", $0)"')
00:04:46 #9362 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\15b59bf80259a517fc536f2e614d8db51cf4916969d0cb69b2a3d74500c956ef\main.spi
00:04:46 #9363 [verbose] >
00:04:46 #9364 [verbose] > ╭─[ 275.46ms - stdout ]────────────────────────────────────────────────────────╮
00:04:46 #9365 [verbose] > │ () │
00:04:46 #9366 [verbose] > │ │
00:04:46 #9367 [verbose] > │ │
00:04:46 #9368 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 #9369 [verbose] >
00:04:46 #9370 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:46 #9371 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:46 #9372 [verbose] > │ ## format_exception │
00:04:46 #9373 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 #9374 [verbose] >
00:04:46 #9375 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:46 #9376 [verbose] > inl format_exception (ex : exn) : string =
00:04:46 #9377 [verbose] > run_target function
00:04:46 #9378 [verbose] > | Fsharp (Native) => fun () => $'$"{!ex.GetType ()}: {!ex.Message}"'
00:04:46 #9379 [verbose] > | _ => fun () => ex |> format_debug
00:04:46 #9380 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a204692ac6842e6ee979312f24021717fe4701ff912e1dfdb2eb6bb3200f93ef\main.spi
00:04:46 #9381 [verbose] >
00:04:46 #9382 [verbose] > ╭─[ 218.53ms - stdout ]────────────────────────────────────────────────────────╮
00:04:46 #9383 [verbose] > │ () │
00:04:46 #9384 [verbose] > │ │
00:04:46 #9385 [verbose] > │ │
00:04:46 #9386 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:46 #9387 [verbose] >
00:04:46 #9388 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:46 #9389 [verbose] > // // test
00:04:46 #9390 [verbose] >
00:04:46 #9391 [verbose] > fun () => failwith "test"
00:04:46 #9392 [verbose] > |> _throws
00:04:46 #9393 [verbose] > |> optionm.map sm'.format_exception
00:04:46 #9394 [verbose] > |> _assert_eq (Some "System.Exception: test")
00:04:46 #9395 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ff03c78b3555ff843f6c90fdc41b3b1c54d1236aa939ef465e01b342dcfd6d3d\main.spi
00:04:48 #9396 [verbose] >
00:04:48 #9397 [verbose] > ╭─[ 1.40s - stdout ]───────────────────────────────────────────────────────────╮
00:04:48 #9398 [verbose] > │ type [<Struct>] US0 = │
00:04:48 #9399 [verbose] > │ | US0_0 of f0_0 : exn │
00:04:48 #9400 [verbose] > │ | US0_1 │
00:04:48 #9401 [verbose] > │ and [<Struct>] US1 = │
00:04:48 #9402 [verbose] > │ | US1_0 of f0_0 : string │
00:04:48 #9403 [verbose] > │ | US1_1 │
00:04:48 #9404 [verbose] > │ let rec closure0 () () : unit = │
00:04:48 #9405 [verbose] > │ failwith<unit> "test" │
00:04:48 #9406 [verbose] > │ and closure1 () (v0 : exn) : US0 = │
00:04:48 #9407 [verbose] > │ US0_0(v0) │
00:04:48 #9408 [verbose] > │ and method1 (v0 : bool) : bool = │
00:04:48 #9409 [verbose] > │ v0 │
00:04:48 #9410 [verbose] > │ and method0 () : unit = │
00:04:48 #9411 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:04:48 #9412 [verbose] > │ let v1 : US0 = US0_1 │
00:04:48 #9413 [verbose] > │ let v2 : (exn -> US0) = closure1() │
00:04:48 #9414 [verbose] > │ let v3 : US0 = try v0 (); v1 with ex -> ex |> v2 │
00:04:48 #9415 [verbose] > │ let v16 : US1 = │
00:04:48 #9416 [verbose] > │ match v3 with │
00:04:48 #9417 [verbose] > │ | US0_1 -> (* None *) │
00:04:48 #9418 [verbose] > │ US1_1 │
00:04:48 #9419 [verbose] > │ | US0_0(v4) -> (* Some *) │
00:04:48 #9420 [verbose] > │ let v5 : string option = None │
00:04:48 #9421 [verbose] > │ let mutable _v5 = v5 │
00:04:48 #9422 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:04:48 #9423 [verbose] > │ let v6 : string = $"%A{v4}" │
00:04:48 #9424 [verbose] > │ v6 │
00:04:48 #9425 [verbose] > │ #endif │
00:04:48 #9426 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:04:48 #9427 [verbose] > │ let v7 : string = $"%A{v4}" │
00:04:48 #9428 [verbose] > │ v7 │
00:04:48 #9429 [verbose] > │ #endif │
00:04:48 #9430 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:04:48 #9431 [verbose] > │ let v8 : string = $"%A{v4}" │
00:04:48 #9432 [verbose] > │ v8 │
00:04:48 #9433 [verbose] > │ #endif │
00:04:48 #9434 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:04:48 #9435 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:04:48 #9436 [verbose] > │ let v9 : string = $"{v4.GetType ()}: {v4.Message}" │
00:04:48 #9437 [verbose] > │ v9 │
00:04:48 #9438 [verbose] > │ #endif │
00:04:48 #9439 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:04:48 #9440 [verbose] > │ let v10 : string = $"%A{v4}" │
00:04:48 #9441 [verbose] > │ v10 │
00:04:48 #9442 [verbose] > │ #endif │
00:04:48 #9443 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:04:48 #9444 [verbose] > │ FABLE_COMPILER_DART │
00:04:48 #9445 [verbose] > │ let v11 : string = Unchecked.defaultof<string> │
00:04:48 #9446 [verbose] > │ v11 │
00:04:48 #9447 [verbose] > │ #endif │
00:04:48 #9448 [verbose] > │ |> fun x -> _v5 <- Some x │
00:04:48 #9449 [verbose] > │ let v12 : string = _v5.Value │
00:04:48 #9450 [verbose] > │ US1_0(v12) │
00:04:48 #9451 [verbose] > │ let v17 : string = $"%A{v16}" │
00:04:48 #9452 [verbose] > │ System.Console.WriteLine v17 │
00:04:48 #9453 [verbose] > │ let v22 : bool = │
00:04:48 #9454 [verbose] > │ match v16 with │
00:04:48 #9455 [verbose] > │ | US1_0(v20) -> (* Some *) │
00:04:48 #9456 [verbose] > │ let v21 : bool = v20 = "System.Exception: test" │
00:04:48 #9457 [verbose] > │ v21 │
00:04:48 #9458 [verbose] > │ | _ -> │
00:04:48 #9459 [verbose] > │ false │
00:04:48 #9460 [verbose] > │ let v24 : bool = │
00:04:48 #9461 [verbose] > │ if v22 then │
00:04:48 #9462 [verbose] > │ true │
00:04:48 #9463 [verbose] > │ else │
00:04:48 #9464 [verbose] > │ method1(v22) │
00:04:48 #9465 [verbose] > │ let v25 : string = "System.Exception: test" │
00:04:48 #9466 [verbose] > │ let v26 : US1 = US1_0(v25) │
00:04:48 #9467 [verbose] > │ let v27 : string = $"__expect / actual: %A{v16} / expected: %A{v26}" │
00:04:48 #9468 [verbose] > │ let v28 : bool = v24 = false │
00:04:48 #9469 [verbose] > │ if v28 then │
00:04:48 #9470 [verbose] > │ failwith<unit> v27 │
00:04:48 #9471 [verbose] > │ method0() │
00:04:48 #9472 [verbose] > │ │
00:04:48 #9473 [verbose] > │ US1_0 "System.Exception: test" │
00:04:48 #9474 [verbose] > │ │
00:04:48 #9475 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 #9476 [verbose] >
00:04:48 #9477 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 #9478 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 #9479 [verbose] > │ ## obj_to_string │
00:04:48 #9480 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 #9481 [verbose] >
00:04:48 #9482 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 #9483 [verbose] > inl obj_to_string x : string =
00:04:48 #9484 [verbose] > x |> $'_.ToString()'
00:04:48 #9485 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1d40f6babd2246a4f347ef0de2160d318bdbbe5610d8b4ae3834981008d3612e\main.spi
00:04:48 #9486 [verbose] >
00:04:48 #9487 [verbose] > ╭─[ 237.57ms - stdout ]────────────────────────────────────────────────────────╮
00:04:48 #9488 [verbose] > │ () │
00:04:48 #9489 [verbose] > │ │
00:04:48 #9490 [verbose] > │ │
00:04:48 #9491 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 #9492 [verbose] >
00:04:48 #9493 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 #9494 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 #9495 [verbose] > │ ## to_string any │
00:04:48 #9496 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 #9497 [verbose] >
00:04:48 #9498 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 #9499 [verbose] > instance to_string any =
00:04:48 #9500 [verbose] > obj_to_string
00:04:48 #9501 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eee856275dcff3353b5a99d4c09d017ff02889fc198b182d261f21ce67415cc4\main.spi
00:04:48 #9502 [verbose] >
00:04:48 #9503 [verbose] > ╭─[ 262.80ms - stdout ]────────────────────────────────────────────────────────╮
00:04:48 #9504 [verbose] > │ () │
00:04:48 #9505 [verbose] > │ │
00:04:48 #9506 [verbose] > │ │
00:04:48 #9507 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 #9508 [verbose] >
00:04:48 #9509 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 #9510 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 #9511 [verbose] > │ ## to_string result t u │
00:04:48 #9512 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 #9513 [verbose] >
00:04:48 #9514 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 #9515 [verbose] > instance to_string result t u = fun x =>
00:04:48 #9516 [verbose] > real
00:04:48 #9517 [verbose] > open rust
00:04:48 #9518 [verbose] > typecase (t * u) with
00:04:48 #9519 [verbose] > | string * string =>
00:04:48 #9520 [verbose] > match x with
00:04:48 #9521 [verbose] > | Ok x => x
00:04:48 #9522 [verbose] > | Error x => $'"Error: " + !x + ""' : string
00:04:48 #9523 [verbose] > | std_string * std_string =>
00:04:48 #9524 [verbose] > match x with
00:04:48 #9525 [verbose] > | Ok x => from_std_string x
00:04:48 #9526 [verbose] > | Error x => $'"Error: " + string !x + ""' : string
00:04:48 #9527 [verbose] > | _ => obj_to_string `u x
00:04:48 #9528 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\60dff7d1efec23883f40634f2ece2388a5bf144b288b9236f76978dd763423a9\main.spi
00:04:48 #9529 [verbose] >
00:04:48 #9530 [verbose] > ╭─[ 241.59ms - stdout ]────────────────────────────────────────────────────────╮
00:04:48 #9531 [verbose] > │ () │
00:04:48 #9532 [verbose] > │ │
00:04:48 #9533 [verbose] > │ │
00:04:48 #9534 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 #9535 [verbose] >
00:04:48 #9536 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:48 #9537 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:48 #9538 [verbose] > │ ## serialize │
00:04:48 #9539 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:48 #9540 [verbose] >
00:04:48 #9541 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:48 #9542 [verbose] > inl serialize forall t. (x : t) : resultm.result' std_string json_error =
00:04:48 #9543 [verbose] > !\($'"serde_json::to_string(&!x)"')
00:04:49 #9544 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a929a8baa41c764897aa78de16a51338c7a4f923b910bdf9c3c15d12ba1b7a74\main.spi
00:04:49 #9545 [verbose] >
00:04:49 #9546 [verbose] > ╭─[ 245.49ms - stdout ]────────────────────────────────────────────────────────╮
00:04:49 #9547 [verbose] > │ () │
00:04:49 #9548 [verbose] > │ │
00:04:49 #9549 [verbose] > │ │
00:04:49 #9550 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:49 #9551 [verbose] >
00:04:49 #9552 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:49 #9553 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:49 #9554 [verbose] > │ ## deserialize │
00:04:49 #9555 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:49 #9556 [verbose] >
00:04:49 #9557 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:49 #9558 [verbose] > inl deserialize forall t. (json : string) : resultm.result' t std_string =
00:04:49 #9559 [verbose] > inl json = join json
00:04:49 #9560 [verbose] > inl json = json |> as_str
00:04:49 #9561 [verbose] > !\($'"serde_json::from_str(&!json)"')
00:04:49 #9562 [verbose] > |> resultm.map_error' fun (x : json_error) => x |> format'
00:04:49 #9563 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\746c0fd294eb60d005e6a1342a3db3f185921a277103b0dc815d339d22af1234\main.spi
00:04:49 #9564 [verbose] >
00:04:49 #9565 [verbose] > ╭─[ 250.77ms - stdout ]────────────────────────────────────────────────────────╮
00:04:49 #9566 [verbose] > │ () │
00:04:49 #9567 [verbose] > │ │
00:04:49 #9568 [verbose] > │ │
00:04:49 #9569 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:49 #9570 [verbose] >
00:04:49 #9571 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:49 #9572 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:49 #9573 [verbose] > │ ## borsh_deserialize │
00:04:49 #9574 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:49 #9575 [verbose] >
00:04:49 #9576 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:49 #9577 [verbose] > inl borsh_deserialize forall t. (data : array_base u8) : resultm.result' t
00:04:49 #9578 [verbose] > std_string =
00:04:49 #9579 [verbose] > inl data = data |> am'.as_slice
00:04:49 #9580 [verbose] > !\($'"let mut !data = !data"')
00:04:49 #9581 [verbose] > inl result = !\($'"borsh::BorshDeserialize::deserialize(&mut !data)"')
00:04:49 #9582 [verbose] > result
00:04:49 #9583 [verbose] > |> resultm.map_error' fun (x : borsh_io_error) => x |> format'
00:04:49 #9584 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\da2443aadc80392f73e4c8f02e3ed75c5af79fe443c196ee63ce20b5af0c06fb\main.spi
00:04:49 #9585 [verbose] >
00:04:49 #9586 [verbose] > ╭─[ 242.75ms - stdout ]────────────────────────────────────────────────────────╮
00:04:49 #9587 [verbose] > │ () │
00:04:49 #9588 [verbose] > │ │
00:04:49 #9589 [verbose] > │ │
00:04:49 #9590 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:49 #9591 [verbose] >
00:04:49 #9592 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:49 #9593 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:49 #9594 [verbose] > │ ## deserialize_vec │
00:04:49 #9595 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:49 #9596 [verbose] >
00:04:49 #9597 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:49 #9598 [verbose] > inl deserialize_vec (value : json_value) : resultm.result' (am'.vec u8)
00:04:49 #9599 [verbose] > std_string =
00:04:49 #9600 [verbose] > inl value = join value
00:04:49 #9601 [verbose] > !\($'"serde_json::from_value(!value)"')
00:04:49 #9602 [verbose] > |> resultm.map_error' fun (x : json_error) => x |> format'
00:04:49 #9603 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b19c8ac08f10b1125cf22be0daa3d720a7116e103fff120db7f4af82fdf03b70\main.spi
00:04:49 #9604 [verbose] >
00:04:49 #9605 [verbose] > ╭─[ 233.17ms - stdout ]────────────────────────────────────────────────────────╮
00:04:49 #9606 [verbose] > │ () │
00:04:49 #9607 [verbose] > │ │
00:04:49 #9608 [verbose] > │ │
00:04:49 #9609 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:49 #9610 [verbose] >
00:04:49 #9611 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:49 #9612 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:49 #9613 [verbose] > │ ## encode_uri_component │
00:04:49 #9614 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:49 #9615 [verbose] >
00:04:49 #9616 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:49 #9617 [verbose] > inl encode_uri_component (s : std_string) : js_string =
00:04:49 #9618 [verbose] > !\($'"js_sys::encode_uri_component(&!s)"')
00:04:49 #9619 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\15aa02801bef8af420ad7637663ae1a2d3aacdb8b51e7e5439ac028ad5db277f\main.spi
00:04:50 #9620 [verbose] >
00:04:50 #9621 [verbose] > ╭─[ 253.57ms - stdout ]────────────────────────────────────────────────────────╮
00:04:50 #9622 [verbose] > │ () │
00:04:50 #9623 [verbose] > │ │
00:04:50 #9624 [verbose] > │ │
00:04:50 #9625 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:50 #9626 [verbose] >
00:04:50 #9627 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:50 #9628 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:50 #9629 [verbose] > │ ## strip_prefix │
00:04:50 #9630 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:50 #9631 [verbose] >
00:04:50 #9632 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:50 #9633 [verbose] > inl strip_prefix (prefix : char) (s : std_string) : optionm'.option' (rust.ref'
00:04:50 #9634 [verbose] > str) =
00:04:50 #9635 [verbose] > inl s = join s
00:04:50 #9636 [verbose] > !\($'"!s.strip_prefix(!prefix)"')
00:04:50 #9637 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3a031ed96bbf6201e0500b39740e526ab79fc637afd3ca1d8f4b6696d7d560ea\main.spi
00:04:50 #9638 [verbose] >
00:04:50 #9639 [verbose] > ╭─[ 600.15ms - stdout ]────────────────────────────────────────────────────────╮
00:04:50 #9640 [verbose] > │ () │
00:04:50 #9641 [verbose] > │ │
00:04:50 #9642 [verbose] > │ │
00:04:50 #9643 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:50 #9644 [verbose] >
00:04:50 #9645 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:50 #9646 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:50 #9647 [verbose] > │ ## base64_decode │
00:04:50 #9648 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:50 #9649 [verbose] >
00:04:50 #9650 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:50 #9651 [verbose] > inl base64_decode (s : std_string) : result std_string std_string =
00:04:50 #9652 [verbose] > fun () =>
00:04:50 #9653 [verbose] > inl s = join s
00:04:50 #9654 [verbose] > inl bytes : resultm.result' (am'.vec u8) base64_decode_error =
00:04:50 #9655 [verbose] >
00:04:50 #9656 [verbose] > !\($'"base64::Engine::decode(&base64::engine::general_purpose::STANDARD, !s)"')
00:04:50 #9657 [verbose] > inl bytes =
00:04:50 #9658 [verbose] > bytes
00:04:50 #9659 [verbose] > |> resultm.map_error' format'
00:04:50 #9660 [verbose] > |> resultm.try'
00:04:50 #9661 [verbose] > inl result : resultm.result' std_string utf8_error =
00:04:50 #9662 [verbose] > !\($'"std::str::from_utf8(&!bytes).map(String::from)"')
00:04:50 #9663 [verbose] > result
00:04:50 #9664 [verbose] > |> resultm.map_error' format'
00:04:50 #9665 [verbose] > |> fun x =>
00:04:50 #9666 [verbose] > join x ()
00:04:50 #9667 [verbose] > |> resultm.unbox
00:04:50 #9668 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f630e8a784e106b66c71546ff2c4a5e8bac60c93da8e6760921ceb24424fed3d\main.spi
00:04:50 #9669 [verbose] >
00:04:50 #9670 [verbose] > ╭─[ 266.04ms - stdout ]────────────────────────────────────────────────────────╮
00:04:50 #9671 [verbose] > │ () │
00:04:50 #9672 [verbose] > │ │
00:04:50 #9673 [verbose] > │ │
00:04:50 #9674 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:50 #9675 [verbose] >
00:04:50 #9676 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:50 #9677 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:50 #9678 [verbose] > │ ## concat_array_trailing │
00:04:50 #9679 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:50 #9680 [verbose] >
00:04:50 #9681 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:50 #9682 [verbose] > inl concat_array_trailing (separator : string) (input : a i32 string) =
00:04:50 #9683 [verbose] > ("", input)
00:04:50 #9684 [verbose] > ||> am.fold fun acc (x : string) =>
00:04:50 #9685 [verbose] > $'!acc + !x + !separator + ""'
00:04:51 #9686 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\de84f091db17d992aec03f62297e2f905d98aa9914fc0cebc1cf43f5efb2a5c1\main.spi
00:04:51 #9687 [verbose] >
00:04:51 #9688 [verbose] > ╭─[ 240.43ms - stdout ]────────────────────────────────────────────────────────╮
00:04:51 #9689 [verbose] > │ () │
00:04:51 #9690 [verbose] > │ │
00:04:51 #9691 [verbose] > │ │
00:04:51 #9692 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:51 #9693 [verbose] >
00:04:51 #9694 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:51 #9695 [verbose] > // // test
00:04:51 #9696 [verbose] > // // rust=
00:04:51 #9697 [verbose] >
00:04:51 #9698 [verbose] > ;[[
00:04:51 #9699 [verbose] > "1"
00:04:51 #9700 [verbose] > "2"
00:04:51 #9701 [verbose] > "3"
00:04:51 #9702 [verbose] > ]]
00:04:51 #9703 [verbose] > |> fun x =>
00:04:51 #9704 [verbose] > inl code = (a x : _ i32 _) |> concat_array_trailing "\n"
00:04:51 #9705 [verbose] > code
00:04:51 #9706 [verbose] > |> _assert_eq "1\n2\n3\n"
00:04:51 #9707 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\02160c95342d4f91c26842568b0f5d466bb88cee56802338ae6f035d9f208e32\main.spi
00:04:56 #9708 [verbose] >
00:04:56 #9709 [verbose] > ╭─[ 5.78s - return value ]─────────────────────────────────────────────────────╮
00:04:56 #9710 [verbose] > │ .rs output: │
00:04:56 #9711 [verbose] > │ "1 │
00:04:56 #9712 [verbose] > │ 2 │
00:04:56 #9713 [verbose] > │ 3 │
00:04:56 #9714 [verbose] > │ " │
00:04:56 #9715 [verbose] > │ │
00:04:56 #9716 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:57 #9717 [verbose] >
00:04:57 #9718 [verbose] > ╭─[ 5.80s - stdout ]───────────────────────────────────────────────────────────╮
00:04:57 #9719 [verbose] > │ │
00:04:57 #9720 [verbose] > │ .fsx: │
00:04:57 #9721 [verbose] > │ type Mut0 = {mutable l0 : int32; mutable l1 : string} │
00:04:57 #9722 [verbose] > │ let rec method1 (v0 : int32, v1 : Mut0) : bool = │
00:04:57 #9723 [verbose] > │ let v2 : int32 = v1.l0 │
00:04:57 #9724 [verbose] > │ let v3 : bool = v2 < v0 │
00:04:57 #9725 [verbose] > │ v3 │
00:04:57 #9726 [verbose] > │ and method2 (v0 : bool) : bool = │
00:04:57 #9727 [verbose] > │ v0 │
00:04:57 #9728 [verbose] > │ and method0 () : unit = │
00:04:57 #9729 [verbose] > │ let v0 : string = "1" │
00:04:57 #9730 [verbose] > │ let v1 : string = "2" │
00:04:57 #9731 [verbose] > │ let v2 : string = "3" │
00:04:57 #9732 [verbose] > │ let v3 : (string []) = [|v0; v1; v2|] │
00:04:57 #9733 [verbose] > │ let v4 : int32 = v3.Length │
00:04:57 #9734 [verbose] > │ let v5 : string = "" │
00:04:57 #9735 [verbose] > │ let v6 : Mut0 = {l0 = 0; l1 = v5} : Mut0 │
00:04:57 #9736 [verbose] > │ while method1(v4, v6) do │
00:04:57 #9737 [verbose] > │ let v8 : int32 = v6.l0 │
00:04:57 #9738 [verbose] > │ let v9 : string = v6.l1 │
00:04:57 #9739 [verbose] > │ let v10 : string = v3.[int v8] │
00:04:57 #9740 [verbose] > │ let v11 : string = "\n" │
00:04:57 #9741 [verbose] > │ let v12 : string = v9 + v10 + v11 + "" │
00:04:57 #9742 [verbose] > │ let v13 : int32 = v8 + 1 │
00:04:57 #9743 [verbose] > │ v6.l0 <- v13 │
00:04:57 #9744 [verbose] > │ v6.l1 <- v12 │
00:04:57 #9745 [verbose] > │ () │
00:04:57 #9746 [verbose] > │ let v14 : string = v6.l1 │
00:04:57 #9747 [verbose] > │ let v15 : string = $"%A{v14}" │
00:04:57 #9748 [verbose] > │ System.Console.WriteLine v15 │
00:04:57 #9749 [verbose] > │ let v17 : bool = v14 = "1\n2\n3\n" │
00:04:57 #9750 [verbose] > │ let v19 : bool = │
00:04:57 #9751 [verbose] > │ if v17 then │
00:04:57 #9752 [verbose] > │ true │
00:04:57 #9753 [verbose] > │ else │
00:04:57 #9754 [verbose] > │ method2(v17) │
00:04:57 #9755 [verbose] > │ let v20 : string = "1\n2\n3\n" │
00:04:57 #9756 [verbose] > │ let v21 : string = $"__expect / actual: %A{v14} / expected: %A{v20}" │
00:04:57 #9757 [verbose] > │ let v22 : bool = v19 = false │
00:04:57 #9758 [verbose] > │ if v22 then │
00:04:57 #9759 [verbose] > │ failwith<unit> v21 │
00:04:57 #9760 [verbose] > │ method0() │
00:04:57 #9761 [verbose] > │ │
00:04:57 #9762 [verbose] > │ │
00:04:57 #9763 [verbose] > │ .rs: │
00:04:57 #9764 [verbose] > │ #![allow(dead_code,)] │
00:04:57 #9765 [verbose] > │ #![allow(non_camel_case_types,)] │
00:04:57 #9766 [verbose] > │ #![allow(non_snake_case,)] │
00:04:57 #9767 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:04:57 #9768 [verbose] > │ #![allow(unreachable_code,)] │
00:04:57 #9769 [verbose] > │ #![allow(unused_attributes,)] │
00:04:57 #9770 [verbose] > │ #![allow(unused_imports,)] │
00:04:57 #9771 [verbose] > │ #![allow(unused_macros,)] │
00:04:57 #9772 [verbose] > │ #![allow(unused_parens,)] │
00:04:57 #9773 [verbose] > │ #![allow(unused_variables,)] │
00:04:57 #9774 [verbose] > │ mod module_ccfa04bf { │
00:04:57 #9775 [verbose] > │ pub mod Spiral_eval { │
00:04:57 #9776 [verbose] > │ use super::*; │
00:04:57 #9777 [verbose] > │ use fable_library_rust::Native_::LrcPtr; │
00:04:57 #9778 [verbose] > │ use fable_library_rust::Native_::MutCell; │
00:04:57 #9779 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:04:57 #9780 [verbose] > │ use fable_library_rust::NativeArray_::Array; │
00:04:57 #9781 [verbose] > │ use fable_library_rust::NativeArray_::count; │
00:04:57 #9782 [verbose] > │ use fable_library_rust::NativeArray_::new_array; │
00:04:57 #9783 [verbose] > │ use fable_library_rust::String_::append; │
00:04:57 #9784 [verbose] > │ use fable_library_rust::String_::printfn; │
00:04:57 #9785 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:04:57 #9786 [verbose] > │ use fable_library_rust::String_::string; │
00:04:57 #9787 [verbose] > │ #[derive(Clone, Debug, Default, PartialEq, PartialOrd, Hash, Eq,)] │
00:04:57 #9788 [verbose] > │ pub struct Mut0 { │
00:04:57 #9789 [verbose] > │ pub l0: MutCell<i32>, │
00:04:57 #9790 [verbose] > │ pub l1: MutCell<string>, │
00:04:57 #9791 [verbose] > │ } │
00:04:57 #9792 [verbose] > │ impl core::fmt::Display for Spiral_eval::Mut0 { │
00:04:57 #9793 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:04:57 #9794 [verbose] > │ { │
00:04:57 #9795 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:04:57 #9796 [verbose] > │ } │
00:04:57 #9797 [verbose] > │ } │
00:04:57 #9798 [verbose] > │ pub fn method1(v0: i32, v1: LrcPtr<Spiral_eval::Mut0>) -> bool { │
00:04:57 #9799 [verbose] > │ v1.l0.get().clone() < v0 │
00:04:57 #9800 [verbose] > │ } │
00:04:57 #9801 [verbose] > │ pub fn method2(v0: bool) -> bool { v0 } │
00:04:57 #9802 [verbose] > │ pub fn method0() { │
00:04:57 #9803 [verbose] > │ let v3: Array<string> = │
00:04:57 #9804 [verbose] > │ new_array(&[string("1"), string("2"), string("3")]); │
00:04:57 #9805 [verbose] > │ let v4: i32 = count(v3.clone()); │
00:04:57 #9806 [verbose] > │ let v6: LrcPtr<Spiral_eval::Mut0> = │
00:04:57 #9807 [verbose] > │ LrcPtr::new(Spiral_eval::Mut0{l0: MutCell::new(0_i32), │
00:04:57 #9808 [verbose] > │ l1: │
00:04:57 #9809 [verbose] > │ MutCell::new(string("")),}); │
00:04:57 #9810 [verbose] > │ while Spiral_eval::method1(v4, v6.clone()) { │
00:04:57 #9811 [verbose] > │ let v8: i32 = v6.l0.get().clone(); │
00:04:57 #9812 [verbose] > │ let v12: string = │
00:04:57 #9813 [verbose] > │ append(append(append(v6.l1.get().clone(), v3[ │
00:04:57 #9814 [verbose] > │ v8].clone()), │
00:04:57 #9815 [verbose] > │ string("\n")), string("")); │
00:04:57 #9816 [verbose] > │ let v13: i32 = v8 + 1_i32; │
00:04:57 #9817 [verbose] > │ v6.l0.set(v13); │
00:04:57 #9818 [verbose] > │ v6.l1.set(v12); │
00:04:57 #9819 [verbose] > │ () │
00:04:57 #9820 [verbose] > │ } │
00:04:57 #9821 [verbose] > │ { │
00:04:57 #9822 [verbose] > │ let v14: string = v6.l1.get().clone(); │
00:04:57 #9823 [verbose] > │ let v15: string = sprintf!("{:?}", v14.clone()); │
00:04:57 #9824 [verbose] > │ printfn!("{0}", v15); │
00:04:57 #9825 [verbose] > │ { │
00:04:57 #9826 [verbose] > │ let v17: bool = v14.clone() == string("1\n2\n3\n"); │
00:04:57 #9827 [verbose] > │ if (if v17 { true } else { Spiral_eval::method2(v17) }) │
00:04:57 #9828 [verbose] > │ == │
00:04:57 #9829 [verbose] > │ false { │
00:04:57 #9830 [verbose] > │ panic!("{}", │
00:04:57 #9831 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: │
00:04:57 #9832 [verbose] > │ {:?}", v14, string("1\n2\n3\n"))); │
00:04:57 #9833 [verbose] > │ } │
00:04:57 #9834 [verbose] > │ } │
00:04:57 #9835 [verbose] > │ } │
00:04:57 #9836 [verbose] > │ } │
00:04:57 #9837 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:04:57 #9838 [verbose] > │ } │
00:04:57 #9839 [verbose] > │ } │
00:04:57 #9840 [verbose] > │ pub use module_ccfa04bf::*; │
00:04:57 #9841 [verbose] > │ │
00:04:57 #9842 [verbose] > │ │
00:04:57 #9843 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:57 #9844 [verbose] >
00:04:57 #9845 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:04:57 #9846 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:04:57 #9847 [verbose] > │ ## concat_list_trailing │
00:04:57 #9848 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:57 #9849 [verbose] >
00:04:57 #9850 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:57 #9851 [verbose] > inl concat_list_trailing separator input =
00:04:57 #9852 [verbose] > ("", input)
00:04:57 #9853 [verbose] > ||> listm.fold fun acc (x : string) =>
00:04:57 #9854 [verbose] > $'!acc + !x + !separator + ""'
00:04:57 #9855 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\83d15e91cf09fa3541c4d214d5940d2c546408f23b168e6560f817400d175814\main.spi
00:04:57 #9856 [verbose] >
00:04:57 #9857 [verbose] > ╭─[ 233.14ms - stdout ]────────────────────────────────────────────────────────╮
00:04:57 #9858 [verbose] > │ () │
00:04:57 #9859 [verbose] > │ │
00:04:57 #9860 [verbose] > │ │
00:04:57 #9861 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:04:57 #9862 [verbose] >
00:04:57 #9863 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:04:57 #9864 [verbose] > // // test
00:04:57 #9865 [verbose] > // // rust=
00:04:57 #9866 [verbose] >
00:04:57 #9867 [verbose] > [[
00:04:57 #9868 [verbose] > "1"
00:04:57 #9869 [verbose] > "2"
00:04:57 #9870 [verbose] > "3"
00:04:57 #9871 [verbose] > ]]
00:04:57 #9872 [verbose] > |> fun x =>
00:04:57 #9873 [verbose] > inl code = (x : _) |> concat_list_trailing "\n"
00:04:57 #9874 [verbose] > code
00:04:57 #9875 [verbose] > |> _assert_eq "1\n2\n3\n"
00:04:57 #9876 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d7e7c6df51bea7a01200e086afa25e00182836f769ccc93aebb69357309db5db\main.spi
00:05:01 #9877 [verbose] >
00:05:01 #9878 [verbose] > ╭─[ 4.43s - return value ]─────────────────────────────────────────────────────╮
00:05:01 #9879 [verbose] > │ .rs output: │
00:05:01 #9880 [verbose] > │ "1 │
00:05:01 #9881 [verbose] > │ 2 │
00:05:01 #9882 [verbose] > │ 3 │
00:05:01 #9883 [verbose] > │ " │
00:05:01 #9884 [verbose] > │ │
00:05:01 #9885 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 #9886 [verbose] >
00:05:01 #9887 [verbose] > ╭─[ 4.44s - stdout ]───────────────────────────────────────────────────────────╮
00:05:01 #9888 [verbose] > │ │
00:05:01 #9889 [verbose] > │ .fsx: │
00:05:01 #9890 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:05:01 #9891 [verbose] > │ v0 │
00:05:01 #9892 [verbose] > │ and method0 () : unit = │
00:05:01 #9893 [verbose] > │ let v0 : string = "" │
00:05:01 #9894 [verbose] > │ let v1 : string = "1" │
00:05:01 #9895 [verbose] > │ let v2 : string = "\n" │
00:05:01 #9896 [verbose] > │ let v3 : string = v0 + v1 + v2 + "" │
00:05:01 #9897 [verbose] > │ let v4 : string = "2" │
00:05:01 #9898 [verbose] > │ let v5 : string = v3 + v4 + v2 + "" │
00:05:01 #9899 [verbose] > │ let v6 : string = "3" │
00:05:01 #9900 [verbose] > │ let v7 : string = v5 + v6 + v2 + "" │
00:05:01 #9901 [verbose] > │ let v8 : string = $"%A{v7}" │
00:05:01 #9902 [verbose] > │ System.Console.WriteLine v8 │
00:05:01 #9903 [verbose] > │ let v10 : bool = v7 = "1\n2\n3\n" │
00:05:01 #9904 [verbose] > │ let v12 : bool = │
00:05:01 #9905 [verbose] > │ if v10 then │
00:05:01 #9906 [verbose] > │ true │
00:05:01 #9907 [verbose] > │ else │
00:05:01 #9908 [verbose] > │ method1(v10) │
00:05:01 #9909 [verbose] > │ let v13 : string = "1\n2\n3\n" │
00:05:01 #9910 [verbose] > │ let v14 : string = $"__expect / actual: %A{v7} / expected: %A{v13}" │
00:05:01 #9911 [verbose] > │ let v15 : bool = v12 = false │
00:05:01 #9912 [verbose] > │ if v15 then │
00:05:01 #9913 [verbose] > │ failwith<unit> v14 │
00:05:01 #9914 [verbose] > │ method0() │
00:05:01 #9915 [verbose] > │ │
00:05:01 #9916 [verbose] > │ │
00:05:01 #9917 [verbose] > │ .rs: │
00:05:01 #9918 [verbose] > │ #![allow(dead_code,)] │
00:05:01 #9919 [verbose] > │ #![allow(non_camel_case_types,)] │
00:05:01 #9920 [verbose] > │ #![allow(non_snake_case,)] │
00:05:01 #9921 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:05:01 #9922 [verbose] > │ #![allow(unreachable_code,)] │
00:05:01 #9923 [verbose] > │ #![allow(unused_attributes,)] │
00:05:01 #9924 [verbose] > │ #![allow(unused_imports,)] │
00:05:01 #9925 [verbose] > │ #![allow(unused_macros,)] │
00:05:01 #9926 [verbose] > │ #![allow(unused_parens,)] │
00:05:01 #9927 [verbose] > │ #![allow(unused_variables,)] │
00:05:01 #9928 [verbose] > │ mod module_ccfa04bf { │
00:05:01 #9929 [verbose] > │ pub mod Spiral_eval { │
00:05:01 #9930 [verbose] > │ use super::*; │
00:05:01 #9931 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:05:01 #9932 [verbose] > │ use fable_library_rust::String_::printfn; │
00:05:01 #9933 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:05:01 #9934 [verbose] > │ use fable_library_rust::String_::string; │
00:05:01 #9935 [verbose] > │ pub fn method1(v0: bool) -> bool { v0 } │
00:05:01 #9936 [verbose] > │ pub fn method0() { │
00:05:01 #9937 [verbose] > │ let v7: string = string("1\n2\n3\n"); │
00:05:01 #9938 [verbose] > │ let v8: string = sprintf!("{:?}", v7.clone()); │
00:05:01 #9939 [verbose] > │ printfn!("{0}", v8); │
00:05:01 #9940 [verbose] > │ { │
00:05:01 #9941 [verbose] > │ let v10: bool = v7.clone() == string("1\n2\n3\n"); │
00:05:01 #9942 [verbose] > │ if (if v10 { true } else { Spiral_eval::method1(v10) }) == │
00:05:01 #9943 [verbose] > │ false { │
00:05:01 #9944 [verbose] > │ panic!("{}", │
00:05:01 #9945 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: │
00:05:01 #9946 [verbose] > │ {:?}", v7, string("1\n2\n3\n"))); │
00:05:01 #9947 [verbose] > │ } │
00:05:01 #9948 [verbose] > │ } │
00:05:01 #9949 [verbose] > │ } │
00:05:01 #9950 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:05:01 #9951 [verbose] > │ } │
00:05:01 #9952 [verbose] > │ } │
00:05:01 #9953 [verbose] > │ pub use module_ccfa04bf::*; │
00:05:01 #9954 [verbose] > │ │
00:05:01 #9955 [verbose] > │ │
00:05:01 #9956 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 #9957 [verbose] >
00:05:01 #9958 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:01 #9959 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:01 #9960 [verbose] > │ ## concat_list_heap_trailing │
00:05:01 #9961 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:01 #9962 [verbose] >
00:05:01 #9963 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:01 #9964 [verbose] > inl concat_list_heap_trailing separator input =
00:05:01 #9965 [verbose] > inl separator = join separator
00:05:01 #9966 [verbose] > inl separator = separator |> as_str
00:05:01 #9967 [verbose] > ("", input)
00:05:01 #9968 [verbose] > ||> listm.fold fun acc (x : string) =>
00:05:01 #9969 [verbose] > inl acc = acc |> to_std_string
00:05:01 #9970 [verbose] > inl x = x |> as_str
00:05:01 #9971 [verbose] > $'$"{!acc}{!x}{!separator}"'
00:05:01 #9972 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\93a23a8d578a689acab2c4e4fcc367f4f79c49e3c38df32c7b332cd3d8677f96\main.spi
00:05:02 #9973 [verbose] >
00:05:02 #9974 [verbose] > ╭─[ 237.65ms - stdout ]────────────────────────────────────────────────────────╮
00:05:02 #9975 [verbose] > │ () │
00:05:02 #9976 [verbose] > │ │
00:05:02 #9977 [verbose] > │ │
00:05:02 #9978 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:02 #9979 [verbose] >
00:05:02 #9980 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:02 #9981 [verbose] > // // test
00:05:02 #9982 [verbose] > // // rust=
00:05:02 #9983 [verbose] >
00:05:02 #9984 [verbose] > types ()
00:05:02 #9985 [verbose] >
00:05:02 #9986 [verbose] > [[
00:05:02 #9987 [verbose] > "1"
00:05:02 #9988 [verbose] > "2"
00:05:02 #9989 [verbose] > "3"
00:05:02 #9990 [verbose] > ]]
00:05:02 #9991 [verbose] > |> fun x =>
00:05:02 #9992 [verbose] > inl code = (x : _) |> concat_list_heap_trailing "\n"
00:05:02 #9993 [verbose] > code
00:05:02 #9994 [verbose] > |> _assert_eq "1\n2\n3\n"
00:05:02 #9995 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\43b4f092c1e8dfcf404d21963190af24dc841a7f452d6097da2d62ad18808e5c\main.spi
00:05:06 #9996 [verbose] >
00:05:06 #9997 [verbose] > ╭─[ 4.72s - return value ]─────────────────────────────────────────────────────╮
00:05:06 #9998 [verbose] > │ .rs output: │
00:05:06 #9999 [verbose] > │ "1 │
00:05:06 #10000 [verbose] > │ 2 │
00:05:06 #10001 [verbose] > │ 3 │
00:05:06 #10002 [verbose] > │ " │
00:05:06 #10003 [verbose] > │ │
00:05:06 #10004 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:06 #10005 [verbose] >
00:05:06 #10006 [verbose] > ╭─[ 4.72s - stdout ]───────────────────────────────────────────────────────────╮
00:05:06 #10007 [verbose] > │ │
00:05:06 #10008 [verbose] > │ .fsx: │
00:05:06 #10009 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:05:06 #10010 [verbose] > │ end │
00:05:06 #10011 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:05:06 #10012 [verbose] > │ class end │
00:05:06 #10013 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:05:06 #10014 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:05:06 #10015 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:05:06 #10016 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:05:06 #10017 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:05:06 #10018 [verbose] > │ class end │
00:05:06 #10019 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:05:06 #10020 [verbose] > │ class end │
00:05:06 #10021 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:05:06 #10022 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:05:06 #10023 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:05:06 #10024 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:05:06 #10025 [verbose] > │ class end │
00:05:06 #10026 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:05:06 #10027 [verbose] > │ class end │
00:05:06 #10028 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:05:06 #10029 [verbose] > │ class end │
00:05:06 #10030 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:05:06 #10031 [verbose] > │ std_cell_RefCell<'T> = class end │
00:05:06 #10032 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:05:06 #10033 [verbose] > │ std_pin_Pin<'T> = class end │
00:05:06 #10034 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:05:06 #10035 [verbose] > │ = class end │
00:05:06 #10036 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:05:06 #10037 [verbose] > │ std_rc_Weak<'T> = class end │
00:05:06 #10038 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:05:06 #10039 [verbose] > │ std_sync_Arc<'T> = class end │
00:05:06 #10040 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:05:06 #10041 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:05:06 #10042 [verbose] > │ base64_DecodeError = class end │
00:05:06 #10043 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:05:06 #10044 [verbose] > │ borsh_io_Error = class end │
00:05:06 #10045 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:05:06 #10046 [verbose] > │ js_sys_JsString = class end │
00:05:06 #10047 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:05:06 #10048 [verbose] > │ serde_json_Error = class end │
00:05:06 #10049 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:05:06 #10050 [verbose] > │ serde_json_Value = class end │
00:05:06 #10051 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:05:06 #10052 [verbose] > │ serde_wasm_bindgen_Error = class end │
00:05:06 #10053 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:05:06 #10054 [verbose] > │ = class end │
00:05:06 #10055 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:05:06 #10056 [verbose] > │ std_ffi_OsString = class end │
00:05:06 #10057 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:05:06 #10058 [verbose] > │ std_str_Utf8Error = class end │
00:05:06 #10059 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:05:06 #10060 [verbose] > │ std_string_String = class end │
00:05:06 #10061 [verbose] > │ let rec method1 () : string = │
00:05:06 #10062 [verbose] > │ let v0 : string = "\n" │
00:05:06 #10063 [verbose] > │ v0 │
00:05:06 #10064 [verbose] > │ and method2 () : string = │
00:05:06 #10065 [verbose] > │ let v0 : string = "" │
00:05:06 #10066 [verbose] > │ v0 │
00:05:06 #10067 [verbose] > │ and method3 (v0 : string) : string = │
00:05:06 #10068 [verbose] > │ v0 │
00:05:06 #10069 [verbose] > │ and method4 (v0 : bool) : bool = │
00:05:06 #10070 [verbose] > │ v0 │
00:05:06 #10071 [verbose] > │ and method0 () : unit = │
00:05:06 #10072 [verbose] > │ let v0 : string = method1() │
00:05:06 #10073 [verbose] > │ let v1 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:06 #10074 [verbose] > │ let v2 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v0 v1 │
00:05:06 #10075 [verbose] > │ let v3 : string = method2() │
00:05:06 #10076 [verbose] > │ let v4 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:06 #10077 [verbose] > │ let v5 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:05:06 #10078 [verbose] > │ let v6 : string = "String::from($0)" │
00:05:06 #10079 [verbose] > │ let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:05:06 #10080 [verbose] > │ let v8 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:06 #10081 [verbose] > │ let v9 : string = "1" │
00:05:06 #10082 [verbose] > │ let v10 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v9 v8 │
00:05:06 #10083 [verbose] > │ let v11 : string = $"{v7}{v10}{v2}" │
00:05:06 #10084 [verbose] > │ let v12 : string = method3(v11) │
00:05:06 #10085 [verbose] > │ let v13 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:06 #10086 [verbose] > │ let v14 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v12 v13 │
00:05:06 #10087 [verbose] > │ let v15 : string = "String::from($0)" │
00:05:06 #10088 [verbose] > │ let v16 : std_string_String = Fable.Core.RustInterop.emitRustExpr v14 │
00:05:06 #10089 [verbose] > │ v15 │
00:05:06 #10090 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:06 #10091 [verbose] > │ let v18 : string = "2" │
00:05:06 #10092 [verbose] > │ let v19 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v18 v17 │
00:05:06 #10093 [verbose] > │ let v20 : string = $"{v16}{v19}{v2}" │
00:05:06 #10094 [verbose] > │ let v21 : string = method3(v20) │
00:05:06 #10095 [verbose] > │ let v22 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:06 #10096 [verbose] > │ let v23 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v21 v22 │
00:05:06 #10097 [verbose] > │ let v24 : string = "String::from($0)" │
00:05:06 #10098 [verbose] > │ let v25 : std_string_String = Fable.Core.RustInterop.emitRustExpr v23 │
00:05:06 #10099 [verbose] > │ v24 │
00:05:06 #10100 [verbose] > │ let v26 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:05:06 #10101 [verbose] > │ let v27 : string = "3" │
00:05:06 #10102 [verbose] > │ let v28 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v27 v26 │
00:05:06 #10103 [verbose] > │ let v29 : string = $"{v25}{v28}{v2}" │
00:05:06 #10104 [verbose] > │ let v30 : string = $"%A{v29}" │
00:05:06 #10105 [verbose] > │ System.Console.WriteLine v30 │
00:05:06 #10106 [verbose] > │ let v32 : bool = v29 = "1\n2\n3\n" │
00:05:06 #10107 [verbose] > │ let v34 : bool = │
00:05:06 #10108 [verbose] > │ if v32 then │
00:05:06 #10109 [verbose] > │ true │
00:05:06 #10110 [verbose] > │ else │
00:05:06 #10111 [verbose] > │ method4(v32) │
00:05:06 #10112 [verbose] > │ let v35 : string = "1\n2\n3\n" │
00:05:06 #10113 [verbose] > │ let v36 : string = $"__expect / actual: %A{v29} / expected: %A{v35}" │
00:05:06 #10114 [verbose] > │ let v37 : bool = v34 = false │
00:05:06 #10115 [verbose] > │ if v37 then │
00:05:06 #10116 [verbose] > │ failwith<unit> v36 │
00:05:06 #10117 [verbose] > │ method0() │
00:05:06 #10118 [verbose] > │ │
00:05:06 #10119 [verbose] > │ │
00:05:06 #10120 [verbose] > │ .rs: │
00:05:06 #10121 [verbose] > │ #![allow(dead_code,)] │
00:05:06 #10122 [verbose] > │ #![allow(non_camel_case_types,)] │
00:05:06 #10123 [verbose] > │ #![allow(non_snake_case,)] │
00:05:06 #10124 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:05:06 #10125 [verbose] > │ #![allow(unreachable_code,)] │
00:05:06 #10126 [verbose] > │ #![allow(unused_attributes,)] │
00:05:06 #10127 [verbose] > │ #![allow(unused_imports,)] │
00:05:06 #10128 [verbose] > │ #![allow(unused_macros,)] │
00:05:06 #10129 [verbose] > │ #![allow(unused_parens,)] │
00:05:06 #10130 [verbose] > │ #![allow(unused_variables,)] │
00:05:06 #10131 [verbose] > │ mod module_ccfa04bf { │
00:05:06 #10132 [verbose] > │ pub mod Spiral_eval { │
00:05:06 #10133 [verbose] > │ use super::*; │
00:05:06 #10134 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:05:06 #10135 [verbose] > │ use fable_library_rust::String_::printfn; │
00:05:06 #10136 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:05:06 #10137 [verbose] > │ use fable_library_rust::String_::string; │
00:05:06 #10138 [verbose] > │ pub fn method1() -> string { string("\n") } │
00:05:06 #10139 [verbose] > │ pub fn method2() -> string { string("") } │
00:05:06 #10140 [verbose] > │ pub fn method3(v0: string) -> string { v0 } │
00:05:06 #10141 [verbose] > │ pub fn method4(v0: bool) -> bool { v0 } │
00:05:06 #10142 [verbose] > │ pub fn method0() { │
00:05:06 #10143 [verbose] > │ let v0: string = Spiral_eval::method1(); │
00:05:06 #10144 [verbose] > │ let v2: &str = fable_library_rust::String_::LrcStr::as_str(&v0); │
00:05:06 #10145 [verbose] > │ let v3: string = Spiral_eval::method2(); │
00:05:06 #10146 [verbose] > │ let v5: &str = fable_library_rust::String_::LrcStr::as_str(&v3); │
00:05:06 #10147 [verbose] > │ let v12: string = │
00:05:06 #10148 [verbose] > │ Spiral_eval::method3(sprintf!("{}{}{}", String::from(v5), │
00:05:06 #10149 [verbose] > │ │
00:05:06 #10150 [verbose] > │ fable_library_rust::String_::LrcStr::as_str(&string("1")), │
00:05:06 #10151 [verbose] > │ v2.clone())); │
00:05:06 #10152 [verbose] > │ let v14: &str = │
00:05:06 #10153 [verbose] > │ fable_library_rust::String_::LrcStr::as_str(&v12); │
00:05:06 #10154 [verbose] > │ let v21: string = │
00:05:06 #10155 [verbose] > │ Spiral_eval::method3(sprintf!("{}{}{}", String::from(v14), │
00:05:06 #10156 [verbose] > │ │
00:05:06 #10157 [verbose] > │ fable_library_rust::String_::LrcStr::as_str(&string("2")), │
00:05:06 #10158 [verbose] > │ v2.clone())); │
00:05:06 #10159 [verbose] > │ let v23: &str = │
00:05:06 #10160 [verbose] > │ fable_library_rust::String_::LrcStr::as_str(&v21); │
00:05:06 #10161 [verbose] > │ let v29: string = │
00:05:06 #10162 [verbose] > │ sprintf!("{}{}{}", String::from(v23), │
00:05:06 #10163 [verbose] > │ │
00:05:06 #10164 [verbose] > │ fable_library_rust::String_::LrcStr::as_str(&string("3")), │
00:05:06 #10165 [verbose] > │ v2); │
00:05:06 #10166 [verbose] > │ let v30: string = sprintf!("{:?}", v29.clone()); │
00:05:06 #10167 [verbose] > │ printfn!("{0}", v30); │
00:05:06 #10168 [verbose] > │ { │
00:05:06 #10169 [verbose] > │ let v32: bool = v29.clone() == string("1\n2\n3\n"); │
00:05:06 #10170 [verbose] > │ if (if v32 { true } else { Spiral_eval::method4(v32) }) == │
00:05:06 #10171 [verbose] > │ false { │
00:05:06 #10172 [verbose] > │ panic!("{}", │
00:05:06 #10173 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: │
00:05:06 #10174 [verbose] > │ {:?}", v29, string("1\n2\n3\n"))); │
00:05:06 #10175 [verbose] > │ } │
00:05:06 #10176 [verbose] > │ } │
00:05:06 #10177 [verbose] > │ } │
00:05:06 #10178 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:05:06 #10179 [verbose] > │ } │
00:05:06 #10180 [verbose] > │ } │
00:05:06 #10181 [verbose] > │ pub use module_ccfa04bf::*; │
00:05:06 #10182 [verbose] > │ │
00:05:06 #10183 [verbose] > │ │
00:05:06 #10184 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:06 #10185 [verbose] >
00:05:06 #10186 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:06 #10187 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:06 #10188 [verbose] > │ ## concat │
00:05:06 #10189 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:06 #10190 [verbose] >
00:05:06 #10191 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:06 #10192 [verbose] > inl concat (a : string) (b : seq.seq' _) : string =
00:05:06 #10193 [verbose] > $"!b |> String.concat !a"
00:05:06 #10194 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\13056513481cd5459ab9c634f3fca222e84a40eba6a68f7ac9561969f1ce9a7b\main.spi
00:05:07 #10195 [verbose] >
00:05:07 #10196 [verbose] > ╭─[ 253.87ms - stdout ]────────────────────────────────────────────────────────╮
00:05:07 #10197 [verbose] > │ () │
00:05:07 #10198 [verbose] > │ │
00:05:07 #10199 [verbose] > │ │
00:05:07 #10200 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:07 #10201 [verbose] >
00:05:07 #10202 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:07 #10203 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:07 #10204 [verbose] > │ ## ellipsis │
00:05:07 #10205 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:07 #10206 [verbose] >
00:05:07 #10207 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:07 #10208 [verbose] > inl ellipsis (max : i32) (s : string) =
00:05:07 #10209 [verbose] > if sm.length s <= max
00:05:07 #10210 [verbose] > then s
00:05:07 #10211 [verbose] > else s |> slice 0 (max - 1) |> fun x => $'!x + "..."'
00:05:07 #10212 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\14ada51507977098a448895dac6c3c11909ba2ab79175dd30d3c7530d71af1eb\main.spi
00:05:07 #10213 [verbose] >
00:05:07 #10214 [verbose] > ╭─[ 228.03ms - stdout ]────────────────────────────────────────────────────────╮
00:05:07 #10215 [verbose] > │ () │
00:05:07 #10216 [verbose] > │ │
00:05:07 #10217 [verbose] > │ │
00:05:07 #10218 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:07 #10219 [verbose] >
00:05:07 #10220 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:07 #10221 [verbose] > // // test
00:05:07 #10222 [verbose] >
00:05:07 #10223 [verbose] > "12345"
00:05:07 #10224 [verbose] > |> ellipsis 2
00:05:07 #10225 [verbose] > |> _assert_eq "12..."
00:05:07 #10226 [verbose] >
00:05:07 #10227 [verbose] > "12345"
00:05:07 #10228 [verbose] > |> ellipsis 4
00:05:07 #10229 [verbose] > |> _assert_eq "1234..."
00:05:07 #10230 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\061e91b21794e9e6b8adb596ca93f7af857fcafd1a161eabb92ef27c733d68a2\main.spi
00:05:07 #10231 [verbose] >
00:05:07 #10232 [verbose] > ╭─[ 299.19ms - stdout ]────────────────────────────────────────────────────────╮
00:05:07 #10233 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:05:07 #10234 [verbose] > │ v0 │
00:05:07 #10235 [verbose] > │ and method0 () : unit = │
00:05:07 #10236 [verbose] > │ let v0 : string = "12" │
00:05:07 #10237 [verbose] > │ let v1 : string = v0 + "..." │
00:05:07 #10238 [verbose] > │ let v2 : string = $"%A{v1}" │
00:05:07 #10239 [verbose] > │ System.Console.WriteLine v2 │
00:05:07 #10240 [verbose] > │ let v4 : bool = v1 = "12..." │
00:05:07 #10241 [verbose] > │ let v6 : bool = │
00:05:07 #10242 [verbose] > │ if v4 then │
00:05:07 #10243 [verbose] > │ true │
00:05:07 #10244 [verbose] > │ else │
00:05:07 #10245 [verbose] > │ method1(v4) │
00:05:07 #10246 [verbose] > │ let v7 : string = "12..." │
00:05:07 #10247 [verbose] > │ let v8 : string = $"__expect / actual: %A{v1} / expected: %A{v7}" │
00:05:07 #10248 [verbose] > │ let v9 : bool = v6 = false │
00:05:07 #10249 [verbose] > │ if v9 then │
00:05:07 #10250 [verbose] > │ failwith<unit> v8 │
00:05:07 #10251 [verbose] > │ let v10 : string = "1234" │
00:05:07 #10252 [verbose] > │ let v11 : string = v10 + "..." │
00:05:07 #10253 [verbose] > │ let v12 : string = $"%A{v11}" │
00:05:07 #10254 [verbose] > │ System.Console.WriteLine v12 │
00:05:07 #10255 [verbose] > │ let v14 : bool = v11 = "1234..." │
00:05:07 #10256 [verbose] > │ let v16 : bool = │
00:05:07 #10257 [verbose] > │ if v14 then │
00:05:07 #10258 [verbose] > │ true │
00:05:07 #10259 [verbose] > │ else │
00:05:07 #10260 [verbose] > │ method1(v14) │
00:05:07 #10261 [verbose] > │ let v17 : string = "1234..." │
00:05:07 #10262 [verbose] > │ let v18 : string = $"__expect / actual: %A{v11} / expected: %A{v17}" │
00:05:07 #10263 [verbose] > │ let v19 : bool = v16 = false │
00:05:07 #10264 [verbose] > │ if v19 then │
00:05:07 #10265 [verbose] > │ failwith<unit> v18 │
00:05:07 #10266 [verbose] > │ method0() │
00:05:07 #10267 [verbose] > │ │
00:05:07 #10268 [verbose] > │ "12..." │
00:05:07 #10269 [verbose] > │ "1234..." │
00:05:07 #10270 [verbose] > │ │
00:05:07 #10271 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:07 #10272 [verbose] >
00:05:07 #10273 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:07 #10274 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:07 #10275 [verbose] > │ ## ellipsis_end │
00:05:07 #10276 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:07 #10277 [verbose] >
00:05:07 #10278 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:07 #10279 [verbose] > inl ellipsis_end (max : i64) (s : string) =
00:05:07 #10280 [verbose] > inl len = sm.length s
00:05:07 #10281 [verbose] > if len <= max
00:05:07 #10282 [verbose] > then s
00:05:07 #10283 [verbose] > else
00:05:07 #10284 [verbose] > inl half = f64 max / 2
00:05:07 #10285 [verbose] > inl start_half = half |> math.ceil |> i64
00:05:07 #10286 [verbose] > inl end_half = half |> math.floor |> i64
00:05:07 #10287 [verbose] > inl start = s |> slice 0 (start_half - 1)
00:05:07 #10288 [verbose] > inl end = s |> slice (len - end_half) (len - 1)
00:05:07 #10289 [verbose] > (a ;[[start; "..."; end]] : _ i32 _)
00:05:07 #10290 [verbose] > |> seq.of_array
00:05:07 #10291 [verbose] > |> concat ""
00:05:07 #10292 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8accfd0f5c0917fd57b90c9e50dd0a2da98021f209c5e460b3d62b4077a9788c\main.spi
00:05:07 #10293 [verbose] >
00:05:07 #10294 [verbose] > ╭─[ 222.55ms - stdout ]────────────────────────────────────────────────────────╮
00:05:07 #10295 [verbose] > │ () │
00:05:07 #10296 [verbose] > │ │
00:05:07 #10297 [verbose] > │ │
00:05:07 #10298 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:07 #10299 [verbose] >
00:05:07 #10300 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:07 #10301 [verbose] > // // test
00:05:07 #10302 [verbose] >
00:05:07 #10303 [verbose] > "12345"
00:05:07 #10304 [verbose] > |> ellipsis_end 2
00:05:07 #10305 [verbose] > |> _assert_eq "1...5"
00:05:07 #10306 [verbose] >
00:05:07 #10307 [verbose] > "12345"
00:05:07 #10308 [verbose] > |> ellipsis_end 3
00:05:07 #10309 [verbose] > |> _assert_eq "12...5"
00:05:07 #10310 [verbose] >
00:05:07 #10311 [verbose] > "1234567"
00:05:07 #10312 [verbose] > |> ellipsis_end 4
00:05:07 #10313 [verbose] > |> _assert_eq "12...67"
00:05:07 #10314 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8214501130e0307a14b4a0287a85dcba1c0d01faa5715fe81df4a018f269dc5f\main.spi
00:05:08 #10315 [verbose] >
00:05:08 #10316 [verbose] > ╭─[ 534.32ms - stdout ]────────────────────────────────────────────────────────╮
00:05:08 #10317 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:05:08 #10318 [verbose] > │ v0 │
00:05:08 #10319 [verbose] > │ and method0 () : unit = │
00:05:08 #10320 [verbose] > │ let v0 : float = float 2L │
00:05:08 #10321 [verbose] > │ let v1 : float = v0 / 2.0 │
00:05:08 #10322 [verbose] > │ let v2 : (float -> float) = ceil │
00:05:08 #10323 [verbose] > │ let v3 : float = v2 v1 │
00:05:08 #10324 [verbose] > │ let v4 : int64 = int64 v3 │
00:05:08 #10325 [verbose] > │ let v5 : (float -> float) = floor │
00:05:08 #10326 [verbose] > │ let v6 : float = v5 v1 │
00:05:08 #10327 [verbose] > │ let v7 : int64 = int64 v6 │
00:05:08 #10328 [verbose] > │ let v8 : int64 = v4 - 1L │
00:05:08 #10329 [verbose] > │ let v9 : string = "12345".[int 0L..int v8] │
00:05:08 #10330 [verbose] > │ let v10 : int64 = 5L - v7 │
00:05:08 #10331 [verbose] > │ let v11 : string = "12345".[int v10..int 4L] │
00:05:08 #10332 [verbose] > │ let v12 : string = "..." │
00:05:08 #10333 [verbose] > │ let v13 : (string []) = [|v9; v12; v11|] │
00:05:08 #10334 [verbose] > │ let v14 : ((string []) -> string seq) = Seq.ofArray │
00:05:08 #10335 [verbose] > │ let v15 : string seq = v14 v13 │
00:05:08 #10336 [verbose] > │ let v16 : string = "" │
00:05:08 #10337 [verbose] > │ let v17 : string = v15 |> String.concat v16 │
00:05:08 #10338 [verbose] > │ let v18 : string = $"%A{v17}" │
00:05:08 #10339 [verbose] > │ System.Console.WriteLine v18 │
00:05:08 #10340 [verbose] > │ let v20 : bool = v17 = "1...5" │
00:05:08 #10341 [verbose] > │ let v22 : bool = │
00:05:08 #10342 [verbose] > │ if v20 then │
00:05:08 #10343 [verbose] > │ true │
00:05:08 #10344 [verbose] > │ else │
00:05:08 #10345 [verbose] > │ method1(v20) │
00:05:08 #10346 [verbose] > │ let v23 : string = "1...5" │
00:05:08 #10347 [verbose] > │ let v24 : string = $"__expect / actual: %A{v17} / expected: %A{v23}" │
00:05:08 #10348 [verbose] > │ let v25 : bool = v22 = false │
00:05:08 #10349 [verbose] > │ if v25 then │
00:05:08 #10350 [verbose] > │ failwith<unit> v24 │
00:05:08 #10351 [verbose] > │ let v26 : float = float 3L │
00:05:08 #10352 [verbose] > │ let v27 : float = v26 / 2.0 │
00:05:08 #10353 [verbose] > │ let v28 : (float -> float) = ceil │
00:05:08 #10354 [verbose] > │ let v29 : float = v28 v27 │
00:05:08 #10355 [verbose] > │ let v30 : int64 = int64 v29 │
00:05:08 #10356 [verbose] > │ let v31 : (float -> float) = floor │
00:05:08 #10357 [verbose] > │ let v32 : float = v31 v27 │
00:05:08 #10358 [verbose] > │ let v33 : int64 = int64 v32 │
00:05:08 #10359 [verbose] > │ let v34 : int64 = v30 - 1L │
00:05:08 #10360 [verbose] > │ let v35 : string = "12345".[int 0L..int v34] │
00:05:08 #10361 [verbose] > │ let v36 : int64 = 5L - v33 │
00:05:08 #10362 [verbose] > │ let v37 : string = "12345".[int v36..int 4L] │
00:05:08 #10363 [verbose] > │ let v38 : (string []) = [|v35; v12; v37|] │
00:05:08 #10364 [verbose] > │ let v39 : ((string []) -> string seq) = Seq.ofArray │
00:05:08 #10365 [verbose] > │ let v40 : string seq = v39 v38 │
00:05:08 #10366 [verbose] > │ let v41 : string = v40 |> String.concat v16 │
00:05:08 #10367 [verbose] > │ let v42 : string = $"%A{v41}" │
00:05:08 #10368 [verbose] > │ System.Console.WriteLine v42 │
00:05:08 #10369 [verbose] > │ let v44 : bool = v41 = "12...5" │
00:05:08 #10370 [verbose] > │ let v46 : bool = │
00:05:08 #10371 [verbose] > │ if v44 then │
00:05:08 #10372 [verbose] > │ true │
00:05:08 #10373 [verbose] > │ else │
00:05:08 #10374 [verbose] > │ method1(v44) │
00:05:08 #10375 [verbose] > │ let v47 : string = "12...5" │
00:05:08 #10376 [verbose] > │ let v48 : string = $"__expect / actual: %A{v41} / expected: %A{v47}" │
00:05:08 #10377 [verbose] > │ let v49 : bool = v46 = false │
00:05:08 #10378 [verbose] > │ if v49 then │
00:05:08 #10379 [verbose] > │ failwith<unit> v48 │
00:05:08 #10380 [verbose] > │ let v50 : float = float 4L │
00:05:08 #10381 [verbose] > │ let v51 : float = v50 / 2.0 │
00:05:08 #10382 [verbose] > │ let v52 : (float -> float) = ceil │
00:05:08 #10383 [verbose] > │ let v53 : float = v52 v51 │
00:05:08 #10384 [verbose] > │ let v54 : int64 = int64 v53 │
00:05:08 #10385 [verbose] > │ let v55 : (float -> float) = floor │
00:05:08 #10386 [verbose] > │ let v56 : float = v55 v51 │
00:05:08 #10387 [verbose] > │ let v57 : int64 = int64 v56 │
00:05:08 #10388 [verbose] > │ let v58 : int64 = v54 - 1L │
00:05:08 #10389 [verbose] > │ let v59 : string = "1234567".[int 0L..int v58] │
00:05:08 #10390 [verbose] > │ let v60 : int64 = 7L - v57 │
00:05:08 #10391 [verbose] > │ let v61 : string = "1234567".[int v60..int 6L] │
00:05:08 #10392 [verbose] > │ let v62 : (string []) = [|v59; v12; v61|] │
00:05:08 #10393 [verbose] > │ let v63 : ((string []) -> string seq) = Seq.ofArray │
00:05:08 #10394 [verbose] > │ let v64 : string seq = v63 v62 │
00:05:08 #10395 [verbose] > │ let v65 : string = v64 |> String.concat v16 │
00:05:08 #10396 [verbose] > │ let v66 : string = $"%A{v65}" │
00:05:08 #10397 [verbose] > │ System.Console.WriteLine v66 │
00:05:08 #10398 [verbose] > │ let v68 : bool = v65 = "12...67" │
00:05:08 #10399 [verbose] > │ let v70 : bool = │
00:05:08 #10400 [verbose] > │ if v68 then │
00:05:08 #10401 [verbose] > │ true │
00:05:08 #10402 [verbose] > │ else │
00:05:08 #10403 [verbose] > │ method1(v68) │
00:05:08 #10404 [verbose] > │ let v71 : string = "12...67" │
00:05:08 #10405 [verbose] > │ let v72 : string = $"__expect / actual: %A{v65} / expected: %A{v71}" │
00:05:08 #10406 [verbose] > │ let v73 : bool = v70 = false │
00:05:08 #10407 [verbose] > │ if v73 then │
00:05:08 #10408 [verbose] > │ failwith<unit> v72 │
00:05:08 #10409 [verbose] > │ method0() │
00:05:08 #10410 [verbose] > │ │
00:05:08 #10411 [verbose] > │ "1...5" │
00:05:08 #10412 [verbose] > │ "12...5" │
00:05:08 #10413 [verbose] > │ "12...67" │
00:05:08 #10414 [verbose] > │ │
00:05:08 #10415 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 #10416 [verbose] >
00:05:08 #10417 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:08 #10418 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:08 #10419 [verbose] > │ ## format_ellipsis │
00:05:08 #10420 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 #10421 [verbose] >
00:05:08 #10422 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:08 #10423 [verbose] > inl format_ellipsis s =
00:05:08 #10424 [verbose] > s
00:05:08 #10425 [verbose] > |> format_debug
00:05:08 #10426 [verbose] > |> ellipsis_end 400
00:05:08 #10427 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7e7127b97472128cf31fb8e9e0debb22852aab2623078e93410f27aac91e8d6a\main.spi
00:05:08 #10428 [verbose] >
00:05:08 #10429 [verbose] > ╭─[ 325.98ms - stdout ]────────────────────────────────────────────────────────╮
00:05:08 #10430 [verbose] > │ () │
00:05:08 #10431 [verbose] > │ │
00:05:08 #10432 [verbose] > │ │
00:05:08 #10433 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 #10434 [verbose] >
00:05:08 #10435 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:08 #10436 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:08 #10437 [verbose] > │ ## split │
00:05:08 #10438 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:08 #10439 [verbose] >
00:05:08 #10440 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:08 #10441 [verbose] > inl split (separator : string) (str : string) : array_base string =
00:05:08 #10442 [verbose] > $"!str.Split !separator"
00:05:08 #10443 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9990d88453e1638f979b1d6e247b244c3e177218ef050c01da5dc0127a6df917\main.spi
00:05:09 #10444 [verbose] >
00:05:09 #10445 [verbose] > ╭─[ 246.61ms - stdout ]────────────────────────────────────────────────────────╮
00:05:09 #10446 [verbose] > │ () │
00:05:09 #10447 [verbose] > │ │
00:05:09 #10448 [verbose] > │ │
00:05:09 #10449 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 #10450 [verbose] >
00:05:09 #10451 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:09 #10452 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:09 #10453 [verbose] > │ ## split_string │
00:05:09 #10454 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 #10455 [verbose] >
00:05:09 #10456 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:09 #10457 [verbose] > inl split_string (separator : array_base string) (str : string) : array_base
00:05:09 #10458 [verbose] > string =
00:05:09 #10459 [verbose] > run_target function
00:05:09 #10460 [verbose] > | Fsharp (Native) => fun () => $"!str.Split (!separator,
00:05:09 #10461 [verbose] > System.StringSplitOptions.None)"
00:05:09 #10462 [verbose] > | _ => fun () => str |> split ((a separator : _ i32 _) |> seq.of_array
00:05:09 #10463 [verbose] > |> concat (join ""))
00:05:09 #10464 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\79670e1fa72247bcf2dcaa5726490d51e9de81d98798922961cbfcbfcdf63f1b\main.spi
00:05:09 #10465 [verbose] >
00:05:09 #10466 [verbose] > ╭─[ 322.55ms - stdout ]────────────────────────────────────────────────────────╮
00:05:09 #10467 [verbose] > │ () │
00:05:09 #10468 [verbose] > │ │
00:05:09 #10469 [verbose] > │ │
00:05:09 #10470 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 #10471 [verbose] >
00:05:09 #10472 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:09 #10473 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:09 #10474 [verbose] > │ ## join' │
00:05:09 #10475 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 #10476 [verbose] >
00:05:09 #10477 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:09 #10478 [verbose] > inl join' (concat : string) (s : a i32 string) : string =
00:05:09 #10479 [verbose] > $"System.String.Join (!concat, !s)"
00:05:09 #10480 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\98fd00609ed3027e973c5047639139238b9c1303df3a760aa9a3c0e0adf4c561\main.spi
00:05:09 #10481 [verbose] >
00:05:09 #10482 [verbose] > ╭─[ 366.47ms - stdout ]────────────────────────────────────────────────────────╮
00:05:09 #10483 [verbose] > │ () │
00:05:09 #10484 [verbose] > │ │
00:05:09 #10485 [verbose] > │ │
00:05:09 #10486 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 #10487 [verbose] >
00:05:09 #10488 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:09 #10489 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:09 #10490 [verbose] > │ ## to_char_array │
00:05:09 #10491 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:09 #10492 [verbose] >
00:05:09 #10493 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:09 #10494 [verbose] > inl to_char_array (str : string) : a i32 char =
00:05:09 #10495 [verbose] > am.init (str |> sm.length) (fun i => sm.index str i)
00:05:09 #10496 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ece054a73c9c8a9d9630b411aa97120f1a73ca7eaad195412ce31ea54eb659fc\main.spi
00:05:10 #10497 [verbose] >
00:05:10 #10498 [verbose] > ╭─[ 331.55ms - stdout ]────────────────────────────────────────────────────────╮
00:05:10 #10499 [verbose] > │ () │
00:05:10 #10500 [verbose] > │ │
00:05:10 #10501 [verbose] > │ │
00:05:10 #10502 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:10 #10503 [verbose] >
00:05:10 #10504 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:10 #10505 [verbose] > // // test
00:05:10 #10506 [verbose] >
00:05:10 #10507 [verbose] > "abc"
00:05:10 #10508 [verbose] > |> to_char_array
00:05:10 #10509 [verbose] > |> _assert_eq (a ;[['a'; 'b'; 'c']])
00:05:10 #10510 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3453ac365ebd92214fde3ef7a813bb9a4ddc2902cc7855b7efbc9f32adfab97b\main.spi
00:05:10 #10511 [verbose] >
00:05:10 #10512 [verbose] > ╭─[ 732.69ms - stdout ]────────────────────────────────────────────────────────╮
00:05:10 #10513 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:05:10 #10514 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:05:10 #10515 [verbose] > │ let v1 : int32 = v0.l0 │
00:05:10 #10516 [verbose] > │ let v2 : bool = v1 < 3 │
00:05:10 #10517 [verbose] > │ v2 │
00:05:10 #10518 [verbose] > │ and method2 (v0 : (char []), v1 : (char []), v2 : int32) : bool = │
00:05:10 #10519 [verbose] > │ let v3 : int32 = v0.Length │
00:05:10 #10520 [verbose] > │ let v4 : bool = v2 < v3 │
00:05:10 #10521 [verbose] > │ if v4 then │
00:05:10 #10522 [verbose] > │ let v5 : char = v0.[int v2] │
00:05:10 #10523 [verbose] > │ let v6 : char = v1.[int v2] │
00:05:10 #10524 [verbose] > │ let v7 : bool = v5 = v6 │
00:05:10 #10525 [verbose] > │ if v7 then │
00:05:10 #10526 [verbose] > │ let v8 : int32 = v2 + 1 │
00:05:10 #10527 [verbose] > │ method2(v0, v1, v8) │
00:05:10 #10528 [verbose] > │ else │
00:05:10 #10529 [verbose] > │ false │
00:05:10 #10530 [verbose] > │ else │
00:05:10 #10531 [verbose] > │ true │
00:05:10 #10532 [verbose] > │ and method3 (v0 : bool) : bool = │
00:05:10 #10533 [verbose] > │ v0 │
00:05:10 #10534 [verbose] > │ and method0 () : unit = │
00:05:10 #10535 [verbose] > │ let v0 : (char []) = Array.zeroCreate<char> (3) │
00:05:10 #10536 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:05:10 #10537 [verbose] > │ while method1(v1) do │
00:05:10 #10538 [verbose] > │ let v3 : int32 = v1.l0 │
00:05:10 #10539 [verbose] > │ let v4 : char = "abc".[int v3] │
00:05:10 #10540 [verbose] > │ v0.[int v3] <- v4 │
00:05:10 #10541 [verbose] > │ let v5 : int32 = v3 + 1 │
00:05:10 #10542 [verbose] > │ v1.l0 <- v5 │
00:05:10 #10543 [verbose] > │ () │
00:05:10 #10544 [verbose] > │ let v6 : (char []) = [|'a'; 'b'; 'c'|] │
00:05:10 #10545 [verbose] > │ let v7 : string = $"%A{v0}" │
00:05:10 #10546 [verbose] > │ System.Console.WriteLine v7 │
00:05:10 #10547 [verbose] > │ let v8 : int32 = v0.Length │
00:05:10 #10548 [verbose] > │ let v9 : int32 = v6.Length │
00:05:10 #10549 [verbose] > │ let v10 : bool = v8 = v9 │
00:05:10 #10550 [verbose] > │ let v11 : bool = v10 <> true │
00:05:10 #10551 [verbose] > │ let v14 : bool = │
00:05:10 #10552 [verbose] > │ if v11 then │
00:05:10 #10553 [verbose] > │ false │
00:05:10 #10554 [verbose] > │ else │
00:05:10 #10555 [verbose] > │ let v12 : int32 = 0 │
00:05:10 #10556 [verbose] > │ method2(v0, v6, v12) │
00:05:10 #10557 [verbose] > │ let v16 : bool = │
00:05:10 #10558 [verbose] > │ if v14 then │
00:05:10 #10559 [verbose] > │ true │
00:05:10 #10560 [verbose] > │ else │
00:05:10 #10561 [verbose] > │ method3(v14) │
00:05:10 #10562 [verbose] > │ let v17 : string = $"__expect / actual: %A{v0} / expected: %A{v6}" │
00:05:10 #10563 [verbose] > │ let v18 : bool = v16 = false │
00:05:10 #10564 [verbose] > │ if v18 then │
00:05:10 #10565 [verbose] > │ failwith<unit> v17 │
00:05:10 #10566 [verbose] > │ method0() │
00:05:10 #10567 [verbose] > │ │
00:05:10 #10568 [verbose] > │ [|'a'; 'b'; 'c'|] │
00:05:10 #10569 [verbose] > │ │
00:05:10 #10570 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:10 #10571 [verbose] >
00:05:10 #10572 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:10 #10573 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:10 #10574 [verbose] > │ ## to_char_list │
00:05:10 #10575 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:10 #10576 [verbose] >
00:05:10 #10577 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:10 #10578 [verbose] > inl to_char_list (str : string) : list char =
00:05:10 #10579 [verbose] > listm.init (str |> sm.length) (fun (i : i64) => sm.index str i)
00:05:11 #10580 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3f3e71c66449eb7dce939e249266a855b0a9425ad8dd9455af1a7725b74d134d\main.spi
00:05:11 #10581 [verbose] >
00:05:11 #10582 [verbose] > ╭─[ 414.16ms - stdout ]────────────────────────────────────────────────────────╮
00:05:11 #10583 [verbose] > │ () │
00:05:11 #10584 [verbose] > │ │
00:05:11 #10585 [verbose] > │ │
00:05:11 #10586 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:11 #10587 [verbose] >
00:05:11 #10588 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:11 #10589 [verbose] > // // test
00:05:11 #10590 [verbose] >
00:05:11 #10591 [verbose] > "abc"
00:05:11 #10592 [verbose] > |> to_char_list
00:05:11 #10593 [verbose] > |> _assert_eq [['a'; 'b'; 'c']]
00:05:11 #10594 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b19ae48f1acd136bb8a61461920b6a5669d2eb0216570cee1c5a8966eecbedb2\main.spi
00:05:11 #10595 [verbose] >
00:05:11 #10596 [verbose] > ╭─[ 450.61ms - stdout ]────────────────────────────────────────────────────────╮
00:05:11 #10597 [verbose] > │ type UH0 = │
00:05:11 #10598 [verbose] > │ | UH0_0 │
00:05:11 #10599 [verbose] > │ | UH0_1 of char * UH0 │
00:05:11 #10600 [verbose] > │ let rec method0 () : unit = │
00:05:11 #10601 [verbose] > │ let v0 : UH0 = UH0_0 │
00:05:11 #10602 [verbose] > │ let v1 : UH0 = UH0_1('c', v0) │
00:05:11 #10603 [verbose] > │ let v2 : UH0 = UH0_1('b', v1) │
00:05:11 #10604 [verbose] > │ let v3 : UH0 = UH0_1('a', v2) │
00:05:11 #10605 [verbose] > │ let v4 : string = $"%A{v3}" │
00:05:11 #10606 [verbose] > │ System.Console.WriteLine v4 │
00:05:11 #10607 [verbose] > │ let v23 : UH0 = UH0_0 │
00:05:11 #10608 [verbose] > │ let v24 : UH0 = UH0_1('c', v23) │
00:05:11 #10609 [verbose] > │ let v25 : UH0 = UH0_1('b', v24) │
00:05:11 #10610 [verbose] > │ let v26 : UH0 = UH0_1('a', v25) │
00:05:11 #10611 [verbose] > │ let v27 : UH0 = UH0_0 │
00:05:11 #10612 [verbose] > │ let v28 : UH0 = UH0_1('c', v27) │
00:05:11 #10613 [verbose] > │ let v29 : UH0 = UH0_1('b', v28) │
00:05:11 #10614 [verbose] > │ let v30 : UH0 = UH0_1('a', v29) │
00:05:11 #10615 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:05:11 #10616 [verbose] > │ () │
00:05:11 #10617 [verbose] > │ method0() │
00:05:11 #10618 [verbose] > │ │
00:05:11 #10619 [verbose] > │ UH0_1 ('a', UH0_1 ('b', UH0_1 ('c', UH0_0))) │
00:05:11 #10620 [verbose] > │ │
00:05:11 #10621 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:11 #10622 [verbose] >
00:05:11 #10623 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:11 #10624 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:11 #10625 [verbose] > │ ## utf8_get_bytes │
00:05:11 #10626 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:11 #10627 [verbose] >
00:05:11 #10628 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:11 #10629 [verbose] > inl utf8_get_bytes (s : string) : a i32 u8 =
00:05:11 #10630 [verbose] > s |> $'System.Text.Encoding.UTF8.GetBytes'
00:05:12 #10631 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b65dc62732b24816cd54b14fb4807e8b01e3f0242d3bbb43243f9a9639b88b38\main.spi
00:05:12 #10632 [verbose] >
00:05:12 #10633 [verbose] > ╭─[ 364.97ms - stdout ]────────────────────────────────────────────────────────╮
00:05:12 #10634 [verbose] > │ () │
00:05:12 #10635 [verbose] > │ │
00:05:12 #10636 [verbose] > │ │
00:05:12 #10637 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:12 #10638 [verbose] >
00:05:12 #10639 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:12 #10640 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:12 #10641 [verbose] > │ ## byte_to_string │
00:05:12 #10642 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:12 #10643 [verbose] >
00:05:12 #10644 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:12 #10645 [verbose] > inl byte_to_string (format : string) (x : u8) : string =
00:05:12 #10646 [verbose] > $'!x.ToString' format
00:05:12 #10647 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ed5b0933c5076fd232dbc84fd9b5acc3020debf6e515e72ee531ea0c1917bf44\main.spi
00:05:12 #10648 [verbose] >
00:05:12 #10649 [verbose] > ╭─[ 371.43ms - stdout ]────────────────────────────────────────────────────────╮
00:05:12 #10650 [verbose] > │ () │
00:05:12 #10651 [verbose] > │ │
00:05:12 #10652 [verbose] > │ │
00:05:12 #10653 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:12 #10654 [verbose] >
00:05:12 #10655 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:12 #10656 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:12 #10657 [verbose] > │ ## to_string std_string │
00:05:12 #10658 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:12 #10659 [verbose] >
00:05:12 #10660 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:12 #10661 [verbose] > open rust
00:05:12 #10662 [verbose] > instance to_string std_string = from_std_string
00:05:12 #10663 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\04825a03cb45f00f67785a45965ff664dfe8f306a445fa9b4527402d8bacf5e7\main.spi
00:05:13 #10664 [verbose] >
00:05:13 #10665 [verbose] > ╭─[ 484.48ms - stdout ]────────────────────────────────────────────────────────╮
00:05:13 #10666 [verbose] > │ () │
00:05:13 #10667 [verbose] > │ │
00:05:13 #10668 [verbose] > │ │
00:05:13 #10669 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:13 #10670 [verbose] >
00:05:13 #10671 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:13 #10672 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:13 #10673 [verbose] > │ ## main │
00:05:13 #10674 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:13 #10675 [verbose] >
00:05:13 #10676 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:13 #10677 [verbose] > inl main () =
00:05:13 #10678 [verbose] > $"let contains x = !contains x" : ()
00:05:13 #10679 [verbose] > $"let ends_with x = !ends_with x" : ()
00:05:13 #10680 [verbose] > $"let pad_left x = !pad_left x" : ()
00:05:13 #10681 [verbose] > $"let pad_right x = !pad_right x" : ()
00:05:13 #10682 [verbose] > $"let replace x = !replace x" : ()
00:05:13 #10683 [verbose] > inl slice (a : i32) (b : i32) c = slice a b c
00:05:13 #10684 [verbose] > $"let slice x = !slice x" : ()
00:05:13 #10685 [verbose] > $"let split x = !split x" : ()
00:05:13 #10686 [verbose] > $"let split_string x = !split_string x" : ()
00:05:13 #10687 [verbose] > $"let starts_with x = !starts_with x" : ()
00:05:13 #10688 [verbose] > $"let substring x = !substring x" : ()
00:05:13 #10689 [verbose] > $"let to_lower x = !to_lower x" : ()
00:05:13 #10690 [verbose] > $"let to_upper x = !to_upper x" : ()
00:05:13 #10691 [verbose] > $"let trim x = !trim x" : ()
00:05:13 #10692 [verbose] > $"let trim_end x = !trim_end x" : ()
00:05:13 #10693 [verbose] > $"let trim_start x = !trim_start x" : ()
00:05:13 #10694 [verbose] > $"let ellipsis x = !ellipsis x" : ()
00:05:13 #10695 [verbose] > $"let ellipsis_end x = !ellipsis_end x" : ()
00:05:13 #10696 [verbose] > $"let format_exception x = !format_exception x" : ()
00:05:13 #10697 [verbose] > $"let concat_array_trailing x = !concat_array_trailing x" : ()
00:05:13 #10698 [verbose] > inl concat a (b : seq.seq' string) = concat a b
00:05:13 #10699 [verbose] > $"let concat x = !concat x" : ()
00:05:13 #10700 [verbose] > $"let join' x = !join' x" : ()
00:05:13 #10701 [verbose] > $"let to_char_array x = !to_char_array x" : ()
00:05:13 #10702 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1a3f8d01fea5dd9e92fa00501db5ceb9671a481faf411dfa3093def6a1c39e81\main.spi
00:05:14 #10703 [verbose] >
00:05:14 #10704 [verbose] > ╭─[ 1.81s - stdout ]───────────────────────────────────────────────────────────╮
00:05:14 #10705 [verbose] > │ type Mut0 = {mutable l0 : int32; mutable l1 : string} │
00:05:14 #10706 [verbose] > │ and Mut1 = {mutable l0 : int32} │
00:05:14 #10707 [verbose] > │ let rec closure1 (v0 : string) (v1 : string) : bool = │
00:05:14 #10708 [verbose] > │ let v2 : bool = v1.Contains v0 │
00:05:14 #10709 [verbose] > │ v2 │
00:05:14 #10710 [verbose] > │ and closure0 () (v0 : string) : (string -> bool) = │
00:05:14 #10711 [verbose] > │ closure1(v0) │
00:05:14 #10712 [verbose] > │ and closure3 (v0 : string) (v1 : string) : bool = │
00:05:14 #10713 [verbose] > │ let v2 : bool = v1.EndsWith v0 │
00:05:14 #10714 [verbose] > │ v2 │
00:05:14 #10715 [verbose] > │ and closure2 () (v0 : string) : (string -> bool) = │
00:05:14 #10716 [verbose] > │ closure3(v0) │
00:05:14 #10717 [verbose] > │ and closure6 (v0 : int32, v1 : char) (v2 : string) : string = │
00:05:14 #10718 [verbose] > │ let v3 : string = v2.PadLeft (v0, v1) │
00:05:14 #10719 [verbose] > │ v3 │
00:05:14 #10720 [verbose] > │ and closure5 (v0 : int32) (v1 : char) : (string -> string) = │
00:05:14 #10721 [verbose] > │ closure6(v0, v1) │
00:05:14 #10722 [verbose] > │ and closure4 () (v0 : int32) : (char -> (string -> string)) = │
00:05:14 #10723 [verbose] > │ closure5(v0) │
00:05:14 #10724 [verbose] > │ and closure8 (v0 : int32) (v1 : string) : string = │
00:05:14 #10725 [verbose] > │ let v2 : string = v1.PadRight v0 │
00:05:14 #10726 [verbose] > │ v2 │
00:05:14 #10727 [verbose] > │ and closure7 () (v0 : int32) : (string -> string) = │
00:05:14 #10728 [verbose] > │ closure8(v0) │
00:05:14 #10729 [verbose] > │ and closure11 (v0 : string, v1 : string) (v2 : string) : string = │
00:05:14 #10730 [verbose] > │ let v3 : string = v2.Replace (v0, v1) │
00:05:14 #10731 [verbose] > │ v3 │
00:05:14 #10732 [verbose] > │ and closure10 (v0 : string) (v1 : string) : (string -> string) = │
00:05:14 #10733 [verbose] > │ closure11(v0, v1) │
00:05:14 #10734 [verbose] > │ and closure9 () (v0 : string) : (string -> (string -> string)) = │
00:05:14 #10735 [verbose] > │ closure10(v0) │
00:05:14 #10736 [verbose] > │ and closure14 (v0 : int32, v1 : int32) (v2 : string) : string = │
00:05:14 #10737 [verbose] > │ let v3 : string = v2.[int v0..int v1] │
00:05:14 #10738 [verbose] > │ v3 │
00:05:14 #10739 [verbose] > │ and closure13 (v0 : int32) (v1 : int32) : (string -> string) = │
00:05:14 #10740 [verbose] > │ closure14(v0, v1) │
00:05:14 #10741 [verbose] > │ and closure12 () (v0 : int32) : (int32 -> (string -> string)) = │
00:05:14 #10742 [verbose] > │ closure13(v0) │
00:05:14 #10743 [verbose] > │ and closure16 (v0 : string) (v1 : string) : (string []) = │
00:05:14 #10744 [verbose] > │ let v2 : (string []) = v1.Split v0 │
00:05:14 #10745 [verbose] > │ v2 │
00:05:14 #10746 [verbose] > │ and closure15 () (v0 : string) : (string -> (string [])) = │
00:05:14 #10747 [verbose] > │ closure16(v0) │
00:05:14 #10748 [verbose] > │ and method0 () : string = │
00:05:14 #10749 [verbose] > │ let v0 : string = "" │
00:05:14 #10750 [verbose] > │ v0 │
00:05:14 #10751 [verbose] > │ and closure18 (v0 : (string [])) (v1 : string) : (string []) = │
00:05:14 #10752 [verbose] > │ let v2 : (string []) option = None │
00:05:14 #10753 [verbose] > │ let mutable _v2 = v2 │
00:05:14 #10754 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:14 #10755 [verbose] > │ let v3 : ((string []) -> string seq) = Seq.ofArray │
00:05:14 #10756 [verbose] > │ let v4 : string seq = v3 v0 │
00:05:14 #10757 [verbose] > │ let v5 : string = method0() │
00:05:14 #10758 [verbose] > │ let v6 : string = v4 |> String.concat v5 │
00:05:14 #10759 [verbose] > │ let v7 : (string []) = v1.Split v6 │
00:05:14 #10760 [verbose] > │ v7 │
00:05:14 #10761 [verbose] > │ #endif │
00:05:14 #10762 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:14 #10763 [verbose] > │ let v8 : ((string []) -> string seq) = Seq.ofArray │
00:05:14 #10764 [verbose] > │ let v9 : string seq = v8 v0 │
00:05:14 #10765 [verbose] > │ let v10 : string = method0() │
00:05:14 #10766 [verbose] > │ let v11 : string = v9 |> String.concat v10 │
00:05:14 #10767 [verbose] > │ let v12 : (string []) = v1.Split v11 │
00:05:14 #10768 [verbose] > │ v12 │
00:05:14 #10769 [verbose] > │ #endif │
00:05:14 #10770 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:14 #10771 [verbose] > │ let v13 : ((string []) -> string seq) = Seq.ofArray │
00:05:14 #10772 [verbose] > │ let v14 : string seq = v13 v0 │
00:05:14 #10773 [verbose] > │ let v15 : string = method0() │
00:05:14 #10774 [verbose] > │ let v16 : string = v14 |> String.concat v15 │
00:05:14 #10775 [verbose] > │ let v17 : (string []) = v1.Split v16 │
00:05:14 #10776 [verbose] > │ v17 │
00:05:14 #10777 [verbose] > │ #endif │
00:05:14 #10778 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:14 #10779 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:14 #10780 [verbose] > │ let v18 : (string []) = v1.Split (v0, System.StringSplitOptions.None) │
00:05:14 #10781 [verbose] > │ v18 │
00:05:14 #10782 [verbose] > │ #endif │
00:05:14 #10783 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:14 #10784 [verbose] > │ let v19 : ((string []) -> string seq) = Seq.ofArray │
00:05:14 #10785 [verbose] > │ let v20 : string seq = v19 v0 │
00:05:14 #10786 [verbose] > │ let v21 : string = method0() │
00:05:14 #10787 [verbose] > │ let v22 : string = v20 |> String.concat v21 │
00:05:14 #10788 [verbose] > │ let v23 : (string []) = v1.Split v22 │
00:05:14 #10789 [verbose] > │ v23 │
00:05:14 #10790 [verbose] > │ #endif │
00:05:14 #10791 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:05:14 #10792 [verbose] > │ let v24 : (string []) = Unchecked.defaultof<(string [])> │
00:05:14 #10793 [verbose] > │ v24 │
00:05:14 #10794 [verbose] > │ #endif │
00:05:14 #10795 [verbose] > │ |> fun x -> _v2 <- Some x │
00:05:14 #10796 [verbose] > │ let v25 : (string []) = _v2.Value │
00:05:14 #10797 [verbose] > │ v25 │
00:05:14 #10798 [verbose] > │ and closure17 () (v0 : (string [])) : (string -> (string [])) = │
00:05:14 #10799 [verbose] > │ closure18(v0) │
00:05:14 #10800 [verbose] > │ and closure20 (v0 : string) (v1 : string) : bool = │
00:05:14 #10801 [verbose] > │ let v2 : bool = v1.StartsWith v0 │
00:05:14 #10802 [verbose] > │ v2 │
00:05:14 #10803 [verbose] > │ and closure19 () (v0 : string) : (string -> bool) = │
00:05:14 #10804 [verbose] > │ closure20(v0) │
00:05:14 #10805 [verbose] > │ and closure23 (v0 : int32, v1 : int32) (v2 : string) : string = │
00:05:14 #10806 [verbose] > │ let v3 : string = v2.Substring (v0, v1) │
00:05:14 #10807 [verbose] > │ v3 │
00:05:14 #10808 [verbose] > │ and closure22 (v0 : int32) (v1 : int32) : (string -> string) = │
00:05:14 #10809 [verbose] > │ closure23(v0, v1) │
00:05:14 #10810 [verbose] > │ and closure21 () (v0 : int32) : (int32 -> (string -> string)) = │
00:05:14 #10811 [verbose] > │ closure22(v0) │
00:05:14 #10812 [verbose] > │ and closure24 () (v0 : string) : string = │
00:05:14 #10813 [verbose] > │ let v1 : string = v0.ToLower () │
00:05:14 #10814 [verbose] > │ v1 │
00:05:14 #10815 [verbose] > │ and closure25 () (v0 : string) : string = │
00:05:14 #10816 [verbose] > │ let v1 : string = v0.ToUpper () │
00:05:14 #10817 [verbose] > │ v1 │
00:05:14 #10818 [verbose] > │ and closure26 () (v0 : string) : string = │
00:05:14 #10819 [verbose] > │ let v1 : string = v0.Trim () │
00:05:14 #10820 [verbose] > │ v1 │
00:05:14 #10821 [verbose] > │ and closure28 (v0 : (char [])) (v1 : string) : string = │
00:05:14 #10822 [verbose] > │ let v2 : string = v1.TrimEnd v0 │
00:05:14 #10823 [verbose] > │ v2 │
00:05:14 #10824 [verbose] > │ and closure27 () (v0 : (char [])) : (string -> string) = │
00:05:14 #10825 [verbose] > │ closure28(v0) │
00:05:14 #10826 [verbose] > │ and closure30 (v0 : (char [])) (v1 : string) : string = │
00:05:14 #10827 [verbose] > │ let v2 : string = v1.TrimStart v0 │
00:05:14 #10828 [verbose] > │ v2 │
00:05:14 #10829 [verbose] > │ and closure29 () (v0 : (char [])) : (string -> string) = │
00:05:14 #10830 [verbose] > │ closure30(v0) │
00:05:14 #10831 [verbose] > │ and closure32 (v0 : int32) (v1 : string) : string = │
00:05:14 #10832 [verbose] > │ let v2 : int32 = v1.Length │
00:05:14 #10833 [verbose] > │ let v3 : bool = v2 <= v0 │
00:05:14 #10834 [verbose] > │ if v3 then │
00:05:14 #10835 [verbose] > │ v1 │
00:05:14 #10836 [verbose] > │ else │
00:05:14 #10837 [verbose] > │ let v4 : int32 = v0 - 1 │
00:05:14 #10838 [verbose] > │ let v5 : string = v1.[int 0..int v4] │
00:05:14 #10839 [verbose] > │ let v6 : string = v5 + "..." │
00:05:14 #10840 [verbose] > │ v6 │
00:05:14 #10841 [verbose] > │ and closure31 () (v0 : int32) : (string -> string) = │
00:05:14 #10842 [verbose] > │ closure32(v0) │
00:05:14 #10843 [verbose] > │ and closure34 (v0 : int64) (v1 : string) : string = │
00:05:14 #10844 [verbose] > │ let v2 : int64 = System.Convert.ToInt64 v1.Length │
00:05:14 #10845 [verbose] > │ let v3 : bool = v2 <= v0 │
00:05:14 #10846 [verbose] > │ if v3 then │
00:05:14 #10847 [verbose] > │ v1 │
00:05:14 #10848 [verbose] > │ else │
00:05:14 #10849 [verbose] > │ let v4 : float = float v0 │
00:05:14 #10850 [verbose] > │ let v5 : float = v4 / 2.0 │
00:05:15 #10851 [verbose] > │ let v6 : (float -> float) = ceil │
00:05:15 #10852 [verbose] > │ let v7 : float = v6 v5 │
00:05:15 #10853 [verbose] > │ let v8 : int64 = int64 v7 │
00:05:15 #10854 [verbose] > │ let v9 : (float -> float) = floor │
00:05:15 #10855 [verbose] > │ let v10 : float = v9 v5 │
00:05:15 #10856 [verbose] > │ let v11 : int64 = int64 v10 │
00:05:15 #10857 [verbose] > │ let v12 : int64 = v8 - 1L │
00:05:15 #10858 [verbose] > │ let v13 : string = v1.[int 0L..int v12] │
00:05:15 #10859 [verbose] > │ let v14 : int64 = v2 - v11 │
00:05:15 #10860 [verbose] > │ let v15 : int64 = v2 - 1L │
00:05:15 #10861 [verbose] > │ let v16 : string = v1.[int v14..int v15] │
00:05:15 #10862 [verbose] > │ let v17 : string = "..." │
00:05:15 #10863 [verbose] > │ let v18 : (string []) = [|v13; v17; v16|] │
00:05:15 #10864 [verbose] > │ let v19 : ((string []) -> string seq) = Seq.ofArray │
00:05:15 #10865 [verbose] > │ let v20 : string seq = v19 v18 │
00:05:15 #10866 [verbose] > │ let v21 : string = "" │
00:05:15 #10867 [verbose] > │ let v22 : string = v20 |> String.concat v21 │
00:05:15 #10868 [verbose] > │ v22 │
00:05:15 #10869 [verbose] > │ and closure33 () (v0 : int64) : (string -> string) = │
00:05:15 #10870 [verbose] > │ closure34(v0) │
00:05:15 #10871 [verbose] > │ and closure35 () (v0 : exn) : string = │
00:05:15 #10872 [verbose] > │ let v1 : string option = None │
00:05:15 #10873 [verbose] > │ let mutable _v1 = v1 │
00:05:15 #10874 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:15 #10875 [verbose] > │ let v2 : string = $"%A{v0}" │
00:05:15 #10876 [verbose] > │ v2 │
00:05:15 #10877 [verbose] > │ #endif │
00:05:15 #10878 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:15 #10879 [verbose] > │ let v3 : string = $"%A{v0}" │
00:05:15 #10880 [verbose] > │ v3 │
00:05:15 #10881 [verbose] > │ #endif │
00:05:15 #10882 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:15 #10883 [verbose] > │ let v4 : string = $"%A{v0}" │
00:05:15 #10884 [verbose] > │ v4 │
00:05:15 #10885 [verbose] > │ #endif │
00:05:15 #10886 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:15 #10887 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:15 #10888 [verbose] > │ let v5 : string = $"{v0.GetType ()}: {v0.Message}" │
00:05:15 #10889 [verbose] > │ v5 │
00:05:15 #10890 [verbose] > │ #endif │
00:05:15 #10891 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:15 #10892 [verbose] > │ let v6 : string = $"%A{v0}" │
00:05:15 #10893 [verbose] > │ v6 │
00:05:15 #10894 [verbose] > │ #endif │
00:05:15 #10895 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:05:15 #10896 [verbose] > │ let v7 : string = Unchecked.defaultof<string> │
00:05:15 #10897 [verbose] > │ v7 │
00:05:15 #10898 [verbose] > │ #endif │
00:05:15 #10899 [verbose] > │ |> fun x -> _v1 <- Some x │
00:05:15 #10900 [verbose] > │ let v8 : string = _v1.Value │
00:05:15 #10901 [verbose] > │ v8 │
00:05:15 #10902 [verbose] > │ and method1 (v0 : int32, v1 : Mut0) : bool = │
00:05:15 #10903 [verbose] > │ let v2 : int32 = v1.l0 │
00:05:15 #10904 [verbose] > │ let v3 : bool = v2 < v0 │
00:05:15 #10905 [verbose] > │ v3 │
00:05:15 #10906 [verbose] > │ and closure37 (v0 : string) (v1 : (string [])) : string = │
00:05:15 #10907 [verbose] > │ let v2 : int32 = v1.Length │
00:05:15 #10908 [verbose] > │ let v3 : string = "" │
00:05:15 #10909 [verbose] > │ let v4 : Mut0 = {l0 = 0; l1 = v3} : Mut0 │
00:05:15 #10910 [verbose] > │ while method1(v2, v4) do │
00:05:15 #10911 [verbose] > │ let v6 : int32 = v4.l0 │
00:05:15 #10912 [verbose] > │ let v7 : string = v4.l1 │
00:05:15 #10913 [verbose] > │ let v8 : string = v1.[int v6] │
00:05:15 #10914 [verbose] > │ let v9 : string = v7 + v8 + v0 + "" │
00:05:15 #10915 [verbose] > │ let v10 : int32 = v6 + 1 │
00:05:15 #10916 [verbose] > │ v4.l0 <- v10 │
00:05:15 #10917 [verbose] > │ v4.l1 <- v9 │
00:05:15 #10918 [verbose] > │ () │
00:05:15 #10919 [verbose] > │ let v11 : string = v4.l1 │
00:05:15 #10920 [verbose] > │ v11 │
00:05:15 #10921 [verbose] > │ and closure36 () (v0 : string) : ((string []) -> string) = │
00:05:15 #10922 [verbose] > │ closure37(v0) │
00:05:15 #10923 [verbose] > │ and closure39 (v0 : string) (v1 : string seq) : string = │
00:05:15 #10924 [verbose] > │ let v2 : string = v1 |> String.concat v0 │
00:05:15 #10925 [verbose] > │ v2 │
00:05:15 #10926 [verbose] > │ and closure38 () (v0 : string) : (string seq -> string) = │
00:05:15 #10927 [verbose] > │ closure39(v0) │
00:05:15 #10928 [verbose] > │ and closure41 (v0 : string) (v1 : (string [])) : string = │
00:05:15 #10929 [verbose] > │ let v2 : string = System.String.Join (v0, v1) │
00:05:15 #10930 [verbose] > │ v2 │
00:05:15 #10931 [verbose] > │ and closure40 () (v0 : string) : ((string []) -> string) = │
00:05:15 #10932 [verbose] > │ closure41(v0) │
00:05:15 #10933 [verbose] > │ and method2 (v0 : int32, v1 : Mut1) : bool = │
00:05:15 #10934 [verbose] > │ let v2 : int32 = v1.l0 │
00:05:15 #10935 [verbose] > │ let v3 : bool = v2 < v0 │
00:05:15 #10936 [verbose] > │ v3 │
00:05:15 #10937 [verbose] > │ and closure42 () (v0 : string) : (char []) = │
00:05:15 #10938 [verbose] > │ let v1 : int32 = v0.Length │
00:05:15 #10939 [verbose] > │ let v2 : (char []) = Array.zeroCreate<char> (v1) │
00:05:15 #10940 [verbose] > │ let v3 : Mut1 = {l0 = 0} : Mut1 │
00:05:15 #10941 [verbose] > │ while method2(v1, v3) do │
00:05:15 #10942 [verbose] > │ let v5 : int32 = v3.l0 │
00:05:15 #10943 [verbose] > │ let v6 : char = v0.[int v5] │
00:05:15 #10944 [verbose] > │ v2.[int v5] <- v6 │
00:05:15 #10945 [verbose] > │ let v7 : int32 = v5 + 1 │
00:05:15 #10946 [verbose] > │ v3.l0 <- v7 │
00:05:15 #10947 [verbose] > │ () │
00:05:15 #10948 [verbose] > │ v2 │
00:05:15 #10949 [verbose] > │ let v0 : (string -> (string -> bool)) = closure0() │
00:05:15 #10950 [verbose] > │ let contains x = v0 x │
00:05:15 #10951 [verbose] > │ let v1 : (string -> (string -> bool)) = closure2() │
00:05:15 #10952 [verbose] > │ let ends_with x = v1 x │
00:05:15 #10953 [verbose] > │ let v2 : (int32 -> (char -> (string -> string))) = closure4() │
00:05:15 #10954 [verbose] > │ let pad_left x = v2 x │
00:05:15 #10955 [verbose] > │ let v3 : (int32 -> (string -> string)) = closure7() │
00:05:15 #10956 [verbose] > │ let pad_right x = v3 x │
00:05:15 #10957 [verbose] > │ let v4 : (string -> (string -> (string -> string))) = closure9() │
00:05:15 #10958 [verbose] > │ let replace x = v4 x │
00:05:15 #10959 [verbose] > │ let v5 : (int32 -> (int32 -> (string -> string))) = closure12() │
00:05:15 #10960 [verbose] > │ let slice x = v5 x │
00:05:15 #10961 [verbose] > │ let v6 : (string -> (string -> (string []))) = closure15() │
00:05:15 #10962 [verbose] > │ let split x = v6 x │
00:05:15 #10963 [verbose] > │ let v7 : ((string []) -> (string -> (string []))) = closure17() │
00:05:15 #10964 [verbose] > │ let split_string x = v7 x │
00:05:15 #10965 [verbose] > │ let v8 : (string -> (string -> bool)) = closure19() │
00:05:15 #10966 [verbose] > │ let starts_with x = v8 x │
00:05:15 #10967 [verbose] > │ let v9 : (int32 -> (int32 -> (string -> string))) = closure21() │
00:05:15 #10968 [verbose] > │ let substring x = v9 x │
00:05:15 #10969 [verbose] > │ let v10 : (string -> string) = closure24() │
00:05:15 #10970 [verbose] > │ let to_lower x = v10 x │
00:05:15 #10971 [verbose] > │ let v11 : (string -> string) = closure25() │
00:05:15 #10972 [verbose] > │ let to_upper x = v11 x │
00:05:15 #10973 [verbose] > │ let v12 : (string -> string) = closure26() │
00:05:15 #10974 [verbose] > │ let trim x = v12 x │
00:05:15 #10975 [verbose] > │ let v13 : ((char []) -> (string -> string)) = closure27() │
00:05:15 #10976 [verbose] > │ let trim_end x = v13 x │
00:05:15 #10977 [verbose] > │ let v14 : ((char []) -> (string -> string)) = closure29() │
00:05:15 #10978 [verbose] > │ let trim_start x = v14 x │
00:05:15 #10979 [verbose] > │ let v15 : (int32 -> (string -> string)) = closure31() │
00:05:15 #10980 [verbose] > │ let ellipsis x = v15 x │
00:05:15 #10981 [verbose] > │ let v16 : (int64 -> (string -> string)) = closure33() │
00:05:15 #10982 [verbose] > │ let ellipsis_end x = v16 x │
00:05:15 #10983 [verbose] > │ let v17 : (exn -> string) = closure35() │
00:05:15 #10984 [verbose] > │ let format_exception x = v17 x │
00:05:15 #10985 [verbose] > │ let v18 : (string -> ((string []) -> string)) = closure36() │
00:05:15 #10986 [verbose] > │ let concat_array_trailing x = v18 x │
00:05:15 #10987 [verbose] > │ let v19 : (string -> (string seq -> string)) = closure38() │
00:05:15 #10988 [verbose] > │ let concat x = v19 x │
00:05:15 #10989 [verbose] > │ let v20 : (string -> ((string []) -> string)) = closure40() │
00:05:15 #10990 [verbose] > │ let join' x = v20 x │
00:05:15 #10991 [verbose] > │ let v21 : (string -> (char [])) = closure42() │
00:05:15 #10992 [verbose] > │ let to_char_array x = v21 x │
00:05:15 #10993 [verbose] > │ () │
00:05:15 #10994 [verbose] > │ │
00:05:15 #10995 [verbose] > │ │
00:05:15 #10996 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:19 #10997 [verbose] > [NbConvertApp] Converting notebook sm'.dib.ipynb to html
00:05:19 #10998 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:05:19 #10999 [verbose] > validate(nb)
00:05:20 #11000 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:05:20 #11001 [verbose] > return _pygments_highlight(
00:05:20 #11002 [verbose] > [NbConvertApp] Writing 450417 bytes to sm'.dib.html
00:05:21 #11003 [debug] executeAsync / exitCode: 0 / output.Length: 141498
00:05:21 #11004 [debug] main / executeCommand / exitCode: 0
00:05:21 #11005 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 \"listm'.dib\" -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:05:24 #11006 [verbose] >
00:05:24 #11007 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:24 #11008 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:24 #11009 [verbose] > │ # listm │
00:05:24 #11010 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:24 #11011 [verbose] >
00:05:24 #11012 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:24 #11013 [verbose] > // // test
00:05:24 #11014 [verbose] >
00:05:24 #11015 [verbose] > open testing
00:05:27 #11016 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:05:28 #11017 [verbose] >
00:05:28 #11018 [verbose] > ╭─[ 4.10s - stdout ]───────────────────────────────────────────────────────────╮
00:05:28 #11019 [verbose] > │ () │
00:05:28 #11020 [verbose] > │ │
00:05:28 #11021 [verbose] > │ │
00:05:28 #11022 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:28 #11023 [verbose] >
00:05:28 #11024 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:28 #11025 [verbose] > // // test
00:05:28 #11026 [verbose] >
00:05:28 #11027 [verbose] > prototype append t : t -> t -> t
00:05:29 #11028 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\aeda9b5acd00c201218acad26f133bf627240e2c2b851bd943c633261c6cda5d\main.spi
00:05:29 #11029 [verbose] >
00:05:29 #11030 [verbose] > ╭─[ 279.47ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 #11031 [verbose] > │ () │
00:05:29 #11032 [verbose] > │ │
00:05:29 #11033 [verbose] > │ │
00:05:29 #11034 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #11035 [verbose] >
00:05:29 #11036 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:29 #11037 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:29 #11038 [verbose] > │ ## list' │
00:05:29 #11039 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #11040 [verbose] >
00:05:29 #11041 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 #11042 [verbose] > nominal list' t = $'`t list'
00:05:29 #11043 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9ff28d135388d75adf2154addc90220204e93c02e0e6060e33b20f053fc54623\main.spi
00:05:29 #11044 [verbose] >
00:05:29 #11045 [verbose] > ╭─[ 286.68ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 #11046 [verbose] > │ () │
00:05:29 #11047 [verbose] > │ │
00:05:29 #11048 [verbose] > │ │
00:05:29 #11049 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #11050 [verbose] >
00:05:29 #11051 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 #11052 [verbose] > inl empty' forall t. () : list' t =
00:05:29 #11053 [verbose] > $'[[]]'
00:05:29 #11054 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b3596bcd5a77ff785c961e7904c4cd79008d115f279052444ed736401c9d4b10\main.spi
00:05:29 #11055 [verbose] >
00:05:29 #11056 [verbose] > ╭─[ 238.68ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 #11057 [verbose] > │ () │
00:05:29 #11058 [verbose] > │ │
00:05:29 #11059 [verbose] > │ │
00:05:29 #11060 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #11061 [verbose] >
00:05:29 #11062 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 #11063 [verbose] > inl cons' forall t. (head : t) (tail : list' t) : list' t =
00:05:29 #11064 [verbose] > $'!head :: !tail '
00:05:29 #11065 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2a95d5a65de46e44d95f9a12acb7815ef5881f2f000125cdad2648ab1abc2b13\main.spi
00:05:29 #11066 [verbose] >
00:05:29 #11067 [verbose] > ╭─[ 286.77ms - stdout ]────────────────────────────────────────────────────────╮
00:05:29 #11068 [verbose] > │ () │
00:05:29 #11069 [verbose] > │ │
00:05:29 #11070 [verbose] > │ │
00:05:29 #11071 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #11072 [verbose] >
00:05:29 #11073 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:29 #11074 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:29 #11075 [verbose] > │ ## box │
00:05:29 #11076 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:29 #11077 [verbose] >
00:05:29 #11078 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:29 #11079 [verbose] > inl box forall t. (list : list t) : list' t =
00:05:29 #11080 [verbose] > (empty' (), list)
00:05:29 #11081 [verbose] > ||> listm.fold fun acc x =>
00:05:29 #11082 [verbose] > acc |> cons' x
00:05:30 #11083 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5c0a775c8c3623662624fb04c6ed58b2ef13cb67365fb7ec1a340b980da390da\main.spi
00:05:30 #11084 [verbose] >
00:05:30 #11085 [verbose] > ╭─[ 217.01ms - stdout ]────────────────────────────────────────────────────────╮
00:05:30 #11086 [verbose] > │ () │
00:05:30 #11087 [verbose] > │ │
00:05:30 #11088 [verbose] > │ │
00:05:30 #11089 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 #11090 [verbose] >
00:05:30 #11091 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:30 #11092 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:30 #11093 [verbose] > │ ## fold' │
00:05:30 #11094 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 #11095 [verbose] >
00:05:30 #11096 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 #11097 [verbose] > inl fold' forall t u. (fn : t -> u) (init : list u) (list : list' t) : list u =
00:05:30 #11098 [verbose] > (init, list)
00:05:30 #11099 [verbose] > ||> $'List.fold' (fun acc x => Cons (fn x, acc))
00:05:30 #11100 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d06757b3ea0c958e243dd088d7d83f476d0fd989bd5fc02977a99c1e287aec4d\main.spi
00:05:30 #11101 [verbose] >
00:05:30 #11102 [verbose] > ╭─[ 272.36ms - stdout ]────────────────────────────────────────────────────────╮
00:05:30 #11103 [verbose] > │ () │
00:05:30 #11104 [verbose] > │ │
00:05:30 #11105 [verbose] > │ │
00:05:30 #11106 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 #11107 [verbose] >
00:05:30 #11108 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:30 #11109 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:30 #11110 [verbose] > │ ## unbox │
00:05:30 #11111 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 #11112 [verbose] >
00:05:30 #11113 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 #11114 [verbose] > inl unbox forall t. (list : list' t) : list t =
00:05:30 #11115 [verbose] > (Nil, list)
00:05:30 #11116 [verbose] > ||> fold' id
00:05:30 #11117 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\852122f27aa365fbc1754e2653b3e9892f5d9a7e3a2578a7561d3bb008966941\main.spi
00:05:30 #11118 [verbose] >
00:05:30 #11119 [verbose] > ╭─[ 248.90ms - stdout ]────────────────────────────────────────────────────────╮
00:05:30 #11120 [verbose] > │ () │
00:05:30 #11121 [verbose] > │ │
00:05:30 #11122 [verbose] > │ │
00:05:30 #11123 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 #11124 [verbose] >
00:05:30 #11125 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:30 #11126 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:30 #11127 [verbose] > │ ## distinct' │
00:05:30 #11128 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 #11129 [verbose] >
00:05:30 #11130 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 #11131 [verbose] > inl distinct' forall t. (list : list' t) : list' t =
00:05:30 #11132 [verbose] > list |> $'List.distinct'
00:05:30 #11133 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\acc42eb516419b2e995ad63d7c0552e40d76b92317b6e84b5ff95e34193dfd5e\main.spi
00:05:30 #11134 [verbose] >
00:05:30 #11135 [verbose] > ╭─[ 279.87ms - stdout ]────────────────────────────────────────────────────────╮
00:05:30 #11136 [verbose] > │ () │
00:05:30 #11137 [verbose] > │ │
00:05:30 #11138 [verbose] > │ │
00:05:30 #11139 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:30 #11140 [verbose] >
00:05:30 #11141 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:30 #11142 [verbose] > // // test
00:05:30 #11143 [verbose] >
00:05:30 #11144 [verbose] > [[ ""; "" ]]
00:05:30 #11145 [verbose] > |> box
00:05:30 #11146 [verbose] > |> distinct'
00:05:30 #11147 [verbose] > |> unbox
00:05:30 #11148 [verbose] > |> _assert_eq [[ "" ]]
00:05:31 #11149 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6903eea30a568ce9cb62cadd9ef0c29aed0b721ee4daba08b902a7e0ff7d00a5\main.spi
00:05:32 #11150 [verbose] >
00:05:32 #11151 [verbose] > ╭─[ 1.37s - stdout ]───────────────────────────────────────────────────────────╮
00:05:32 #11152 [verbose] > │ type UH0 = │
00:05:32 #11153 [verbose] > │ | UH0_0 │
00:05:32 #11154 [verbose] > │ | UH0_1 of string * UH0 │
00:05:32 #11155 [verbose] > │ let rec closure1 (v0 : UH0) (v1 : string) : UH0 = │
00:05:32 #11156 [verbose] > │ UH0_1(v1, v0) │
00:05:32 #11157 [verbose] > │ and closure0 () (v0 : UH0) : (string -> UH0) = │
00:05:32 #11158 [verbose] > │ closure1(v0) │
00:05:32 #11159 [verbose] > │ and method1 (v0 : bool) : bool = │
00:05:32 #11160 [verbose] > │ v0 │
00:05:32 #11161 [verbose] > │ and method0 () : unit = │
00:05:32 #11162 [verbose] > │ let v0 : string list = [] │
00:05:32 #11163 [verbose] > │ let v1 : string = "" │
00:05:32 #11164 [verbose] > │ let v2 : string list = v1 :: v0 │
00:05:32 #11165 [verbose] > │ let v3 : string list = v1 :: v2 │
00:05:32 #11166 [verbose] > │ let v4 : (string list -> string list) = List.distinct │
00:05:32 #11167 [verbose] > │ let v5 : string list = v4 v3 │
00:05:32 #11168 [verbose] > │ let v6 : ((UH0 -> (string -> UH0)) -> (UH0 -> (string list -> UH0))) = │
00:05:32 #11169 [verbose] > │ List.fold │
00:05:32 #11170 [verbose] > │ let v7 : (UH0 -> (string -> UH0)) = closure0() │
00:05:32 #11171 [verbose] > │ let v8 : (UH0 -> (string list -> UH0)) = v6 v7 │
00:05:32 #11172 [verbose] > │ let v9 : UH0 = UH0_0 │
00:05:32 #11173 [verbose] > │ let v10 : (string list -> UH0) = v8 v9 │
00:05:32 #11174 [verbose] > │ let v11 : UH0 = v10 v5 │
00:05:32 #11175 [verbose] > │ let v12 : string = $"%A{v11}" │
00:05:32 #11176 [verbose] > │ System.Console.WriteLine v12 │
00:05:32 #11177 [verbose] > │ let v20 : bool = │
00:05:32 #11178 [verbose] > │ match v11 with │
00:05:32 #11179 [verbose] > │ | UH0_1(v15, v16) -> (* Cons *) │
00:05:32 #11180 [verbose] > │ let v17 : bool = v15 = "" │
00:05:32 #11181 [verbose] > │ if v17 then │
00:05:32 #11182 [verbose] > │ match v16 with │
00:05:32 #11183 [verbose] > │ | UH0_0 -> (* Nil *) │
00:05:32 #11184 [verbose] > │ true │
00:05:32 #11185 [verbose] > │ | _ -> │
00:05:32 #11186 [verbose] > │ false │
00:05:32 #11187 [verbose] > │ else │
00:05:32 #11188 [verbose] > │ false │
00:05:32 #11189 [verbose] > │ | _ -> │
00:05:32 #11190 [verbose] > │ false │
00:05:32 #11191 [verbose] > │ let v22 : bool = │
00:05:32 #11192 [verbose] > │ if v20 then │
00:05:32 #11193 [verbose] > │ true │
00:05:32 #11194 [verbose] > │ else │
00:05:32 #11195 [verbose] > │ method1(v20) │
00:05:32 #11196 [verbose] > │ let v23 : UH0 = UH0_0 │
00:05:32 #11197 [verbose] > │ let v24 : UH0 = UH0_1(v1, v23) │
00:05:32 #11198 [verbose] > │ let v25 : string = $"__expect / actual: %A{v11} / expected: %A{v24}" │
00:05:32 #11199 [verbose] > │ let v26 : bool = v22 = false │
00:05:32 #11200 [verbose] > │ if v26 then │
00:05:32 #11201 [verbose] > │ failwith<unit> v25 │
00:05:32 #11202 [verbose] > │ method0() │
00:05:32 #11203 [verbose] > │ │
00:05:32 #11204 [verbose] > │ UH0_1 ("", UH0_0) │
00:05:32 #11205 [verbose] > │ │
00:05:32 #11206 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:32 #11207 [verbose] >
00:05:32 #11208 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:32 #11209 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:32 #11210 [verbose] > │ ## append │
00:05:32 #11211 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:32 #11212 [verbose] >
00:05:32 #11213 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:32 #11214 [verbose] > instance append list t =
00:05:32 #11215 [verbose] > listm.append
00:05:32 #11216 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5e9ba9a32705ffcf3910240ec57f6ac3fe67f204ca317270fc5cd9542f458df0\main.spi
00:05:32 #11217 [verbose] >
00:05:32 #11218 [verbose] > ╭─[ 289.36ms - stdout ]────────────────────────────────────────────────────────╮
00:05:32 #11219 [verbose] > │ () │
00:05:32 #11220 [verbose] > │ │
00:05:32 #11221 [verbose] > │ │
00:05:32 #11222 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:32 #11223 [verbose] >
00:05:32 #11224 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:32 #11225 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:32 #11226 [verbose] > │ ## /@ │
00:05:32 #11227 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:32 #11228 [verbose] >
00:05:32 #11229 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:32 #11230 [verbose] > inl (/@) a b =
00:05:32 #11231 [verbose] > b |> append a
00:05:32 #11232 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e5dd1e5cf882e732cae5fde9067f974a92e8eb531bed577674d11de15a336ffd\main.spi
00:05:32 #11233 [verbose] >
00:05:32 #11234 [verbose] > ╭─[ 275.43ms - stdout ]────────────────────────────────────────────────────────╮
00:05:32 #11235 [verbose] > │ () │
00:05:32 #11236 [verbose] > │ │
00:05:32 #11237 [verbose] > │ │
00:05:32 #11238 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:32 #11239 [verbose] >
00:05:32 #11240 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:32 #11241 [verbose] > // // test
00:05:32 #11242 [verbose] >
00:05:32 #11243 [verbose] > [[ "a"; "b" ]] /@ [[ "c"; "d" ]]
00:05:32 #11244 [verbose] > |> _assert_eq [[ "a"; "b"; "c"; "d" ]]
00:05:33 #11245 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8a5cd10e94110a8a0dd4a712b07ac433bd98d3d106bbe3b9755b277922065ee8\main.spi
00:05:33 #11246 [verbose] >
00:05:33 #11247 [verbose] > ╭─[ 312.45ms - stdout ]────────────────────────────────────────────────────────╮
00:05:33 #11248 [verbose] > │ type UH0 = │
00:05:33 #11249 [verbose] > │ | UH0_0 │
00:05:33 #11250 [verbose] > │ | UH0_1 of string * UH0 │
00:05:33 #11251 [verbose] > │ let rec method0 () : unit = │
00:05:33 #11252 [verbose] > │ let v0 : string = "a" │
00:05:33 #11253 [verbose] > │ let v1 : string = "b" │
00:05:33 #11254 [verbose] > │ let v2 : string = "c" │
00:05:33 #11255 [verbose] > │ let v3 : string = "d" │
00:05:33 #11256 [verbose] > │ let v4 : UH0 = UH0_0 │
00:05:33 #11257 [verbose] > │ let v5 : UH0 = UH0_1(v3, v4) │
00:05:33 #11258 [verbose] > │ let v6 : UH0 = UH0_1(v2, v5) │
00:05:33 #11259 [verbose] > │ let v7 : UH0 = UH0_1(v1, v6) │
00:05:33 #11260 [verbose] > │ let v8 : UH0 = UH0_1(v0, v7) │
00:05:33 #11261 [verbose] > │ let v9 : string = $"%A{v8}" │
00:05:33 #11262 [verbose] > │ System.Console.WriteLine v9 │
00:05:33 #11263 [verbose] > │ let v35 : UH0 = UH0_0 │
00:05:33 #11264 [verbose] > │ let v36 : UH0 = UH0_1(v3, v35) │
00:05:33 #11265 [verbose] > │ let v37 : UH0 = UH0_1(v2, v36) │
00:05:33 #11266 [verbose] > │ let v38 : UH0 = UH0_1(v1, v37) │
00:05:33 #11267 [verbose] > │ let v39 : UH0 = UH0_1(v0, v38) │
00:05:33 #11268 [verbose] > │ let v40 : UH0 = UH0_0 │
00:05:33 #11269 [verbose] > │ let v41 : UH0 = UH0_1(v3, v40) │
00:05:33 #11270 [verbose] > │ let v42 : UH0 = UH0_1(v2, v41) │
00:05:33 #11271 [verbose] > │ let v43 : UH0 = UH0_1(v1, v42) │
00:05:33 #11272 [verbose] > │ let v44 : UH0 = UH0_1(v0, v43) │
00:05:33 #11273 [verbose] > │ let v45 : string = $"__expect / actual: %A{v39} / expected: %A{v44}" │
00:05:33 #11274 [verbose] > │ () │
00:05:33 #11275 [verbose] > │ method0() │
00:05:33 #11276 [verbose] > │ │
00:05:33 #11277 [verbose] > │ UH0_1 ("a", UH0_1 ("b", UH0_1 ("c", UH0_1 ("d", UH0_0)))) │
00:05:33 #11278 [verbose] > │ │
00:05:33 #11279 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:33 #11280 [verbose] >
00:05:33 #11281 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:33 #11282 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:33 #11283 [verbose] > │ ## init_series │
00:05:33 #11284 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:33 #11285 [verbose] >
00:05:33 #11286 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:33 #11287 [verbose] > inl init_series start end inc =
00:05:33 #11288 [verbose] > inl total : f64 = conv ((end - start) / inc) + 1
00:05:33 #11289 [verbose] > listm.init total (conv >> (*) inc >> (+) start)
00:05:33 #11290 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d9557223413259678d9a84565ab7687c1d288265e3edb2507f950aca6eab4acb\main.spi
00:05:33 #11291 [verbose] >
00:05:33 #11292 [verbose] > ╭─[ 234.84ms - stdout ]────────────────────────────────────────────────────────╮
00:05:33 #11293 [verbose] > │ () │
00:05:33 #11294 [verbose] > │ │
00:05:33 #11295 [verbose] > │ │
00:05:33 #11296 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:33 #11297 [verbose] >
00:05:33 #11298 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:33 #11299 [verbose] > // // test
00:05:33 #11300 [verbose] >
00:05:33 #11301 [verbose] > init_series 0 1 0.5
00:05:33 #11302 [verbose] > |> _assert_eq [[ 0f64; 0.5; 1 ]]
00:05:33 #11303 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\29f6dbf5c0bf19626c01be7980384452572d2344ded88aac4cc6a480c690621b\main.spi
00:05:33 #11304 [verbose] >
00:05:33 #11305 [verbose] > ╭─[ 312.16ms - stdout ]────────────────────────────────────────────────────────╮
00:05:33 #11306 [verbose] > │ type UH0 = │
00:05:33 #11307 [verbose] > │ | UH0_0 │
00:05:33 #11308 [verbose] > │ | UH0_1 of float * UH0 │
00:05:33 #11309 [verbose] > │ let rec method0 () : unit = │
00:05:33 #11310 [verbose] > │ let v0 : UH0 = UH0_0 │
00:05:33 #11311 [verbose] > │ let v1 : UH0 = UH0_1(1.0, v0) │
00:05:33 #11312 [verbose] > │ let v2 : UH0 = UH0_1(0.5, v1) │
00:05:33 #11313 [verbose] > │ let v3 : UH0 = UH0_1(0.0, v2) │
00:05:33 #11314 [verbose] > │ let v4 : string = $"%A{v3}" │
00:05:33 #11315 [verbose] > │ System.Console.WriteLine v4 │
00:05:33 #11316 [verbose] > │ let v23 : UH0 = UH0_0 │
00:05:33 #11317 [verbose] > │ let v24 : UH0 = UH0_1(1.0, v23) │
00:05:33 #11318 [verbose] > │ let v25 : UH0 = UH0_1(0.5, v24) │
00:05:33 #11319 [verbose] > │ let v26 : UH0 = UH0_1(0.0, v25) │
00:05:33 #11320 [verbose] > │ let v27 : UH0 = UH0_0 │
00:05:33 #11321 [verbose] > │ let v28 : UH0 = UH0_1(1.0, v27) │
00:05:33 #11322 [verbose] > │ let v29 : UH0 = UH0_1(0.5, v28) │
00:05:33 #11323 [verbose] > │ let v30 : UH0 = UH0_1(0.0, v29) │
00:05:33 #11324 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:05:33 #11325 [verbose] > │ () │
00:05:33 #11326 [verbose] > │ method0() │
00:05:33 #11327 [verbose] > │ │
00:05:33 #11328 [verbose] > │ UH0_1 (0.0, UH0_1 (0.5, UH0_1 (1.0, UH0_0))) │
00:05:33 #11329 [verbose] > │ │
00:05:33 #11330 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:33 #11331 [verbose] >
00:05:33 #11332 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:33 #11333 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:33 #11334 [verbose] > │ ## try_item │
00:05:33 #11335 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:33 #11336 [verbose] >
00:05:33 #11337 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:33 #11338 [verbose] > inl rec try_item i = function
00:05:33 #11339 [verbose] > | Cons (x, _) when i = 0 => Some x
00:05:33 #11340 [verbose] > | Cons (_, xs) => try_item (i - 1) xs
00:05:33 #11341 [verbose] > | Nil => None
00:05:34 #11342 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1f5fc3805de79577e046322d35995d284b72074a84127b5d8ffd1a31a16164b5\main.spi
00:05:34 #11343 [verbose] >
00:05:34 #11344 [verbose] > ╭─[ 256.06ms - stdout ]────────────────────────────────────────────────────────╮
00:05:34 #11345 [verbose] > │ () │
00:05:34 #11346 [verbose] > │ │
00:05:34 #11347 [verbose] > │ │
00:05:34 #11348 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:34 #11349 [verbose] >
00:05:34 #11350 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:34 #11351 [verbose] > // // test
00:05:34 #11352 [verbose] >
00:05:34 #11353 [verbose] > listm.init 10i32 id
00:05:34 #11354 [verbose] > |> try_item 9i32
00:05:34 #11355 [verbose] > |> _assert_eq (Some 9)
00:05:34 #11356 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\903bd640cca3c3e1d416e42bc1e772fd2804d22e90d47d400e4e18e32406933b\main.spi
00:05:34 #11357 [verbose] >
00:05:34 #11358 [verbose] > ╭─[ 333.21ms - stdout ]────────────────────────────────────────────────────────╮
00:05:34 #11359 [verbose] > │ type [<Struct>] US0 = │
00:05:34 #11360 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:34 #11361 [verbose] > │ | US0_1 │
00:05:34 #11362 [verbose] > │ let rec method0 () : unit = │
00:05:34 #11363 [verbose] > │ let v0 : US0 = US0_0(9) │
00:05:34 #11364 [verbose] > │ let v1 : string = $"%A{v0}" │
00:05:34 #11365 [verbose] > │ System.Console.WriteLine v1 │
00:05:34 #11366 [verbose] > │ let v5 : US0 = US0_0(9) │
00:05:34 #11367 [verbose] > │ let v6 : US0 = US0_0(9) │
00:05:34 #11368 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:34 #11369 [verbose] > │ () │
00:05:34 #11370 [verbose] > │ method0() │
00:05:34 #11371 [verbose] > │ │
00:05:34 #11372 [verbose] > │ US0_0 9 │
00:05:34 #11373 [verbose] > │ │
00:05:34 #11374 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:34 #11375 [verbose] >
00:05:34 #11376 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:34 #11377 [verbose] > // // test
00:05:34 #11378 [verbose] >
00:05:34 #11379 [verbose] > listm.init 10i32 id
00:05:34 #11380 [verbose] > |> try_item 10i32
00:05:34 #11381 [verbose] > |> _assert_eq None
00:05:34 #11382 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9086d06f963a85892059ef6ae0c65729f06f79f7d1c3709d6ffa6f688e8c7017\main.spi
00:05:34 #11383 [verbose] >
00:05:34 #11384 [verbose] > ╭─[ 313.77ms - stdout ]────────────────────────────────────────────────────────╮
00:05:34 #11385 [verbose] > │ type [<Struct>] US0 = │
00:05:34 #11386 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:34 #11387 [verbose] > │ | US0_1 │
00:05:34 #11388 [verbose] > │ let rec method0 () : unit = │
00:05:34 #11389 [verbose] > │ let v0 : US0 = US0_1 │
00:05:34 #11390 [verbose] > │ let v1 : string = $"%A{v0}" │
00:05:34 #11391 [verbose] > │ System.Console.WriteLine v1 │
00:05:34 #11392 [verbose] > │ let v5 : US0 = US0_1 │
00:05:34 #11393 [verbose] > │ let v6 : US0 = US0_1 │
00:05:34 #11394 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:34 #11395 [verbose] > │ () │
00:05:34 #11396 [verbose] > │ method0() │
00:05:34 #11397 [verbose] > │ │
00:05:34 #11398 [verbose] > │ US0_1 │
00:05:34 #11399 [verbose] > │ │
00:05:34 #11400 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:34 #11401 [verbose] >
00:05:34 #11402 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:34 #11403 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:34 #11404 [verbose] > │ ## list_item │
00:05:34 #11405 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:34 #11406 [verbose] >
00:05:34 #11407 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:34 #11408 [verbose] > inl item i =
00:05:34 #11409 [verbose] > try_item i >> optionm.value
00:05:34 #11410 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0273e4b8b69ecd5b4275ce341b2395f5807c5e9ccd839ce3efb03ced516b6a67\main.spi
00:05:35 #11411 [verbose] >
00:05:35 #11412 [verbose] > ╭─[ 256.30ms - stdout ]────────────────────────────────────────────────────────╮
00:05:35 #11413 [verbose] > │ () │
00:05:35 #11414 [verbose] > │ │
00:05:35 #11415 [verbose] > │ │
00:05:35 #11416 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:35 #11417 [verbose] >
00:05:35 #11418 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:35 #11419 [verbose] > // // test
00:05:35 #11420 [verbose] >
00:05:35 #11421 [verbose] > listm.init 10i32 id
00:05:35 #11422 [verbose] > |> item 9i32
00:05:35 #11423 [verbose] > |> _assert_eq 9
00:05:35 #11424 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\894c5fd342c1004ebffcd797ba09d502bb4601065cdd4f7dc78ef94f5e53dbca\main.spi
00:05:35 #11425 [verbose] >
00:05:35 #11426 [verbose] > ╭─[ 254.81ms - stdout ]────────────────────────────────────────────────────────╮
00:05:35 #11427 [verbose] > │ let rec method0 () : unit = │
00:05:35 #11428 [verbose] > │ let v0 : string = $"%A{9}" │
00:05:35 #11429 [verbose] > │ System.Console.WriteLine v0 │
00:05:35 #11430 [verbose] > │ let v1 : string = $"__expect / actual: %A{9} / expected: %A{9}" │
00:05:35 #11431 [verbose] > │ () │
00:05:35 #11432 [verbose] > │ method0() │
00:05:35 #11433 [verbose] > │ │
00:05:35 #11434 [verbose] > │ 9 │
00:05:35 #11435 [verbose] > │ │
00:05:35 #11436 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:35 #11437 [verbose] >
00:05:35 #11438 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:35 #11439 [verbose] > // // test
00:05:35 #11440 [verbose] >
00:05:35 #11441 [verbose] > fun () =>
00:05:35 #11442 [verbose] > listm.init 10i32 id
00:05:35 #11443 [verbose] > |> item 10i32
00:05:35 #11444 [verbose] > |> ignore
00:05:35 #11445 [verbose] > |> _throws
00:05:35 #11446 [verbose] > |> optionm.map sm'.format_exception
00:05:35 #11447 [verbose] > |> _assert_eq (Some "System.Exception: Option does not have a value.")
00:05:35 #11448 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\84e043d2fc5c0ec221e12d2910590d9313fbeb66868de34f42c75aab9fe94ee3\main.spi
00:05:35 #11449 [verbose] >
00:05:35 #11450 [verbose] > ╭─[ 479.86ms - stdout ]────────────────────────────────────────────────────────╮
00:05:35 #11451 [verbose] > │ type [<Struct>] US0 = │
00:05:35 #11452 [verbose] > │ | US0_0 of f0_0 : exn │
00:05:35 #11453 [verbose] > │ | US0_1 │
00:05:35 #11454 [verbose] > │ and [<Struct>] US1 = │
00:05:35 #11455 [verbose] > │ | US1_0 of f0_0 : string │
00:05:35 #11456 [verbose] > │ | US1_1 │
00:05:35 #11457 [verbose] > │ let rec closure0 () () : unit = │
00:05:35 #11458 [verbose] > │ let v0 : int32 = failwith<int32> "Option does not have a value." │
00:05:35 #11459 [verbose] > │ () │
00:05:35 #11460 [verbose] > │ and closure1 () (v0 : exn) : US0 = │
00:05:35 #11461 [verbose] > │ US0_0(v0) │
00:05:35 #11462 [verbose] > │ and method1 (v0 : bool) : bool = │
00:05:35 #11463 [verbose] > │ v0 │
00:05:35 #11464 [verbose] > │ and method0 () : unit = │
00:05:35 #11465 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:05:35 #11466 [verbose] > │ let v1 : US0 = US0_1 │
00:05:35 #11467 [verbose] > │ let v2 : (exn -> US0) = closure1() │
00:05:35 #11468 [verbose] > │ let v3 : US0 = try v0 (); v1 with ex -> ex |> v2 │
00:05:35 #11469 [verbose] > │ let v16 : US1 = │
00:05:35 #11470 [verbose] > │ match v3 with │
00:05:35 #11471 [verbose] > │ | US0_1 -> (* None *) │
00:05:35 #11472 [verbose] > │ US1_1 │
00:05:35 #11473 [verbose] > │ | US0_0(v4) -> (* Some *) │
00:05:35 #11474 [verbose] > │ let v5 : string option = None │
00:05:35 #11475 [verbose] > │ let mutable _v5 = v5 │
00:05:35 #11476 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:05:35 #11477 [verbose] > │ let v6 : string = $"%A{v4}" │
00:05:35 #11478 [verbose] > │ v6 │
00:05:35 #11479 [verbose] > │ #endif │
00:05:35 #11480 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:05:35 #11481 [verbose] > │ let v7 : string = $"%A{v4}" │
00:05:35 #11482 [verbose] > │ v7 │
00:05:35 #11483 [verbose] > │ #endif │
00:05:35 #11484 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:05:35 #11485 [verbose] > │ let v8 : string = $"%A{v4}" │
00:05:35 #11486 [verbose] > │ v8 │
00:05:35 #11487 [verbose] > │ #endif │
00:05:35 #11488 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:05:35 #11489 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:05:35 #11490 [verbose] > │ let v9 : string = $"{v4.GetType ()}: {v4.Message}" │
00:05:35 #11491 [verbose] > │ v9 │
00:05:35 #11492 [verbose] > │ #endif │
00:05:35 #11493 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:05:35 #11494 [verbose] > │ let v10 : string = $"%A{v4}" │
00:05:35 #11495 [verbose] > │ v10 │
00:05:35 #11496 [verbose] > │ #endif │
00:05:35 #11497 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:05:35 #11498 [verbose] > │ FABLE_COMPILER_DART │
00:05:35 #11499 [verbose] > │ let v11 : string = Unchecked.defaultof<string> │
00:05:35 #11500 [verbose] > │ v11 │
00:05:35 #11501 [verbose] > │ #endif │
00:05:35 #11502 [verbose] > │ |> fun x -> _v5 <- Some x │
00:05:35 #11503 [verbose] > │ let v12 : string = _v5.Value │
00:05:35 #11504 [verbose] > │ US1_0(v12) │
00:05:35 #11505 [verbose] > │ let v17 : string = $"%A{v16}" │
00:05:35 #11506 [verbose] > │ System.Console.WriteLine v17 │
00:05:35 #11507 [verbose] > │ let v22 : bool = │
00:05:35 #11508 [verbose] > │ match v16 with │
00:05:35 #11509 [verbose] > │ | US1_0(v20) -> (* Some *) │
00:05:35 #11510 [verbose] > │ let v21 : bool = v20 = "System.Exception: Option does not have a │
00:05:35 #11511 [verbose] > │ value." │
00:05:35 #11512 [verbose] > │ v21 │
00:05:35 #11513 [verbose] > │ | _ -> │
00:05:35 #11514 [verbose] > │ false │
00:05:35 #11515 [verbose] > │ let v24 : bool = │
00:05:35 #11516 [verbose] > │ if v22 then │
00:05:35 #11517 [verbose] > │ true │
00:05:35 #11518 [verbose] > │ else │
00:05:35 #11519 [verbose] > │ method1(v22) │
00:05:35 #11520 [verbose] > │ let v25 : string = "System.Exception: Option does not have a value." │
00:05:35 #11521 [verbose] > │ let v26 : US1 = US1_0(v25) │
00:05:35 #11522 [verbose] > │ let v27 : string = $"__expect / actual: %A{v16} / expected: %A{v26}" │
00:05:35 #11523 [verbose] > │ let v28 : bool = v24 = false │
00:05:35 #11524 [verbose] > │ if v28 then │
00:05:35 #11525 [verbose] > │ failwith<unit> v27 │
00:05:35 #11526 [verbose] > │ method0() │
00:05:35 #11527 [verbose] > │ │
00:05:35 #11528 [verbose] > │ US1_0 "System.Exception: Option does not have a value." │
00:05:35 #11529 [verbose] > │ │
00:05:35 #11530 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:35 #11531 [verbose] >
00:05:35 #11532 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:35 #11533 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:35 #11534 [verbose] > │ ## try_item_ │
00:05:35 #11535 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:35 #11536 [verbose] >
00:05:35 #11537 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:35 #11538 [verbose] > let rec try_item_ i = function
00:05:35 #11539 [verbose] > | Cons (x, _) when i = 0 => Some x
00:05:35 #11540 [verbose] > | Cons (_, xs) => try_item_ (i - 1) xs
00:05:35 #11541 [verbose] > | Nil => None
00:05:37 #11542 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f28705c8a7e79e5b66338e1b879f6ce85b8f372c28a786c90994b40ce48a8f37\main.spi
00:05:38 #11543 [verbose] >
00:05:38 #11544 [verbose] > ╭─[ 2.22s - stdout ]───────────────────────────────────────────────────────────╮
00:05:38 #11545 [verbose] > │ () │
00:05:38 #11546 [verbose] > │ │
00:05:38 #11547 [verbose] > │ │
00:05:38 #11548 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:38 #11549 [verbose] >
00:05:38 #11550 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:38 #11551 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:38 #11552 [verbose] > │ ## item_ │
00:05:38 #11553 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:38 #11554 [verbose] >
00:05:38 #11555 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:38 #11556 [verbose] > inl item_ i =
00:05:38 #11557 [verbose] > try_item_ i >> optionm.value
00:05:38 #11558 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8d5277bdf657dc0a4312bab1a386b89372fdcb251dd93d0b180db7907a3993f6\main.spi
00:05:38 #11559 [verbose] >
00:05:38 #11560 [verbose] > ╭─[ 291.58ms - stdout ]────────────────────────────────────────────────────────╮
00:05:38 #11561 [verbose] > │ () │
00:05:38 #11562 [verbose] > │ │
00:05:38 #11563 [verbose] > │ │
00:05:38 #11564 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:38 #11565 [verbose] >
00:05:38 #11566 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:38 #11567 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:38 #11568 [verbose] > │ ## sum │
00:05:38 #11569 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:38 #11570 [verbose] >
00:05:38 #11571 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:38 #11572 [verbose] > inl sum list =
00:05:38 #11573 [verbose] > list |> listm.fold (+) 0
00:05:38 #11574 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\91ca7f14d34db3399389c21b8376932dde3680ced5af90ed1a7ef09a5eb456c0\main.spi
00:05:38 #11575 [verbose] >
00:05:38 #11576 [verbose] > ╭─[ 283.89ms - stdout ]────────────────────────────────────────────────────────╮
00:05:38 #11577 [verbose] > │ () │
00:05:38 #11578 [verbose] > │ │
00:05:38 #11579 [verbose] > │ │
00:05:38 #11580 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:38 #11581 [verbose] >
00:05:38 #11582 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:38 #11583 [verbose] > // // test
00:05:38 #11584 [verbose] >
00:05:38 #11585 [verbose] > listm.init 10i32 id
00:05:38 #11586 [verbose] > |> sum
00:05:38 #11587 [verbose] > |> _assert_eq 45
00:05:38 #11588 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2ac7344a530ac95531e29fc245133135a16f7208d52a69a1df8e24dd63ceca52\main.spi
00:05:38 #11589 [verbose] >
00:05:38 #11590 [verbose] > ╭─[ 306.72ms - stdout ]────────────────────────────────────────────────────────╮
00:05:38 #11591 [verbose] > │ let rec method0 () : unit = │
00:05:38 #11592 [verbose] > │ let v0 : string = $"%A{45}" │
00:05:38 #11593 [verbose] > │ System.Console.WriteLine v0 │
00:05:38 #11594 [verbose] > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:05:38 #11595 [verbose] > │ () │
00:05:38 #11596 [verbose] > │ method0() │
00:05:38 #11597 [verbose] > │ │
00:05:38 #11598 [verbose] > │ 45 │
00:05:38 #11599 [verbose] > │ │
00:05:38 #11600 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:38 #11601 [verbose] >
00:05:38 #11602 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:38 #11603 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:38 #11604 [verbose] > │ ## unzip │
00:05:38 #11605 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:38 #11606 [verbose] >
00:05:38 #11607 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:38 #11608 [verbose] > inl unzip list =
00:05:38 #11609 [verbose] > (([[]], [[]]), list)
00:05:38 #11610 [verbose] > ||> listm.fold fun (acc_x, acc_y) (x, y) =>
00:05:38 #11611 [verbose] > x :: acc_x, y :: acc_y
00:05:38 #11612 [verbose] > |> fun x, y =>
00:05:38 #11613 [verbose] > x |> listm.rev, y |> listm.rev
00:05:39 #11614 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2d79a69aa1ffa5f78bdc83d9be988cb009fd5077f57bdaecaf9ffb7624873f43\main.spi
00:05:39 #11615 [verbose] >
00:05:39 #11616 [verbose] > ╭─[ 352.48ms - stdout ]────────────────────────────────────────────────────────╮
00:05:39 #11617 [verbose] > │ () │
00:05:39 #11618 [verbose] > │ │
00:05:39 #11619 [verbose] > │ │
00:05:39 #11620 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:39 #11621 [verbose] >
00:05:39 #11622 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:39 #11623 [verbose] > // // test
00:05:39 #11624 [verbose] >
00:05:39 #11625 [verbose] > listm.init 10i32 id
00:05:39 #11626 [verbose] > |> listm.map (fun x => x, x)
00:05:39 #11627 [verbose] > |> unzip
00:05:39 #11628 [verbose] > |> fun x, y =>
00:05:39 #11629 [verbose] > x |> sum
00:05:39 #11630 [verbose] > |> _assert_eq 45
00:05:39 #11631 [verbose] >
00:05:39 #11632 [verbose] > y |> sum
00:05:39 #11633 [verbose] > |> _assert_eq 45
00:05:39 #11634 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\28ab40bb1f96dc89b2e07dba685e22695852036cb5eaa6b579bcb362737ea857\main.spi
00:05:39 #11635 [verbose] >
00:05:39 #11636 [verbose] > ╭─[ 311.78ms - stdout ]────────────────────────────────────────────────────────╮
00:05:39 #11637 [verbose] > │ let rec method0 () : unit = │
00:05:39 #11638 [verbose] > │ let v0 : string = $"%A{45}" │
00:05:39 #11639 [verbose] > │ System.Console.WriteLine v0 │
00:05:39 #11640 [verbose] > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:05:39 #11641 [verbose] > │ let v2 : string = $"%A{45}" │
00:05:39 #11642 [verbose] > │ System.Console.WriteLine v2 │
00:05:39 #11643 [verbose] > │ let v3 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:05:39 #11644 [verbose] > │ () │
00:05:39 #11645 [verbose] > │ method0() │
00:05:39 #11646 [verbose] > │ │
00:05:39 #11647 [verbose] > │ 45 │
00:05:39 #11648 [verbose] > │ 45 │
00:05:39 #11649 [verbose] > │ │
00:05:39 #11650 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:39 #11651 [verbose] >
00:05:39 #11652 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:39 #11653 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:39 #11654 [verbose] > │ ## try_index_of │
00:05:39 #11655 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:39 #11656 [verbose] >
00:05:39 #11657 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:39 #11658 [verbose] > inl try_index_of item list =
00:05:39 #11659 [verbose] > inl rec loop i = function
00:05:39 #11660 [verbose] > | [[]] => None
00:05:39 #11661 [verbose] > | x :: xs =>
00:05:39 #11662 [verbose] > if x = item
00:05:39 #11663 [verbose] > then Some i
00:05:39 #11664 [verbose] > else loop (i + 1) xs
00:05:39 #11665 [verbose] > loop 0 list
00:05:39 #11666 [verbose] >
00:05:39 #11667 [verbose] > inl index_of item =
00:05:39 #11668 [verbose] > try_index_of item >> optionm.value
00:05:39 #11669 [verbose] >
00:05:39 #11670 [verbose] > inl try_index_of_ item list =
00:05:39 #11671 [verbose] > let rec loop i = function
00:05:39 #11672 [verbose] > | [[]] => None
00:05:39 #11673 [verbose] > | x :: xs =>
00:05:39 #11674 [verbose] > if x = item
00:05:39 #11675 [verbose] > then Some i
00:05:39 #11676 [verbose] > else loop (i + 1) xs
00:05:39 #11677 [verbose] > loop 0 list
00:05:39 #11678 [verbose] >
00:05:39 #11679 [verbose] > inl index_of_ item =
00:05:39 #11680 [verbose] > try_index_of_ item >> optionm.value
00:05:39 #11681 [verbose] >
00:05:39 #11682 [verbose] > inl try_index_of__ item list =
00:05:39 #11683 [verbose] > inl i = mut 0
00:05:39 #11684 [verbose] > inl list = mut list
00:05:39 #11685 [verbose] > inl result = mut None
00:05:39 #11686 [verbose] > let rec loop () =
00:05:39 #11687 [verbose] > match *list with
00:05:39 #11688 [verbose] > | [[]] => result <- None
00:05:39 #11689 [verbose] > | x :: xs =>
00:05:39 #11690 [verbose] > if x = item
00:05:39 #11691 [verbose] > then result <- Some *i
00:05:39 #11692 [verbose] > else
00:05:39 #11693 [verbose] > i <- *i + 1
00:05:39 #11694 [verbose] > list <- xs
00:05:39 #11695 [verbose] > loop ()
00:05:39 #11696 [verbose] > loop ()
00:05:39 #11697 [verbose] > *result
00:05:39 #11698 [verbose] >
00:05:39 #11699 [verbose] > inl index_of__ item =
00:05:39 #11700 [verbose] > try_index_of__ item >> optionm.value
00:05:39 #11701 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7a66ad05fb446727c1de704a21b0d1dd8505b6d45a9ea3de28469eb0fefde6e0\main.spi
00:05:39 #11702 [verbose] >
00:05:39 #11703 [verbose] > ╭─[ 246.74ms - stdout ]────────────────────────────────────────────────────────╮
00:05:39 #11704 [verbose] > │ () │
00:05:39 #11705 [verbose] > │ │
00:05:39 #11706 [verbose] > │ │
00:05:39 #11707 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:39 #11708 [verbose] >
00:05:39 #11709 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:39 #11710 [verbose] > // // test
00:05:39 #11711 [verbose] >
00:05:39 #11712 [verbose] > listm.init 10i32 id
00:05:39 #11713 [verbose] > |> index_of 5i32
00:05:39 #11714 [verbose] > |> _assert_eq 5i32
00:05:40 #11715 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b85555b5a485a4dbe3b026f1e384d443c65d7f412d22c8dfb5601f537d6416d1\main.spi
00:05:40 #11716 [verbose] >
00:05:40 #11717 [verbose] > ╭─[ 435.90ms - stdout ]────────────────────────────────────────────────────────╮
00:05:40 #11718 [verbose] > │ let rec method0 () : unit = │
00:05:40 #11719 [verbose] > │ let v0 : string = $"%A{5}" │
00:05:40 #11720 [verbose] > │ System.Console.WriteLine v0 │
00:05:40 #11721 [verbose] > │ let v1 : string = $"__expect / actual: %A{5} / expected: %A{5}" │
00:05:40 #11722 [verbose] > │ () │
00:05:40 #11723 [verbose] > │ method0() │
00:05:40 #11724 [verbose] > │ │
00:05:40 #11725 [verbose] > │ 5 │
00:05:40 #11726 [verbose] > │ │
00:05:40 #11727 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:40 #11728 [verbose] >
00:05:40 #11729 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:40 #11730 [verbose] > // // test
00:05:40 #11731 [verbose] >
00:05:40 #11732 [verbose] > listm.init 10i32 id
00:05:40 #11733 [verbose] > |> try_index_of 10i32
00:05:40 #11734 [verbose] > |> _assert_eq (None : option i32)
00:05:40 #11735 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d12e91710f01d78d2b3156813019f69089d00ddeae44ba72114f57539f4268cc\main.spi
00:05:40 #11736 [verbose] >
00:05:40 #11737 [verbose] > ╭─[ 273.74ms - stdout ]────────────────────────────────────────────────────────╮
00:05:40 #11738 [verbose] > │ type [<Struct>] US0 = │
00:05:40 #11739 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:40 #11740 [verbose] > │ | US0_1 │
00:05:40 #11741 [verbose] > │ let rec method0 () : unit = │
00:05:40 #11742 [verbose] > │ let v0 : US0 = US0_1 │
00:05:40 #11743 [verbose] > │ let v1 : string = $"%A{v0}" │
00:05:40 #11744 [verbose] > │ System.Console.WriteLine v1 │
00:05:40 #11745 [verbose] > │ let v5 : US0 = US0_1 │
00:05:40 #11746 [verbose] > │ let v6 : US0 = US0_1 │
00:05:40 #11747 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:40 #11748 [verbose] > │ () │
00:05:40 #11749 [verbose] > │ method0() │
00:05:40 #11750 [verbose] > │ │
00:05:40 #11751 [verbose] > │ US0_1 │
00:05:40 #11752 [verbose] > │ │
00:05:40 #11753 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:40 #11754 [verbose] >
00:05:40 #11755 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:40 #11756 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:40 #11757 [verbose] > │ ## try_find │
00:05:40 #11758 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:40 #11759 [verbose] >
00:05:40 #11760 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:40 #11761 [verbose] > inl try_find fn list =
00:05:40 #11762 [verbose] > inl rec loop = function
00:05:40 #11763 [verbose] > | [[]] => None
00:05:40 #11764 [verbose] > | x :: xs =>
00:05:40 #11765 [verbose] > if fn x
00:05:40 #11766 [verbose] > then Some x
00:05:40 #11767 [verbose] > else loop xs
00:05:40 #11768 [verbose] > loop list
00:05:40 #11769 [verbose] >
00:05:40 #11770 [verbose] > inl try_find_ fn list =
00:05:40 #11771 [verbose] > let rec loop = function
00:05:40 #11772 [verbose] > | [[]] => None
00:05:40 #11773 [verbose] > | x :: xs =>
00:05:40 #11774 [verbose] > if fn x
00:05:40 #11775 [verbose] > then Some x
00:05:40 #11776 [verbose] > else loop xs
00:05:40 #11777 [verbose] > loop list
00:05:40 #11778 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f470833af056b5f76d68eb3c34a2ffb772a6dd0b2d4980dc7af6c2afc7dad01b\main.spi
00:05:40 #11779 [verbose] >
00:05:40 #11780 [verbose] > ╭─[ 222.26ms - stdout ]────────────────────────────────────────────────────────╮
00:05:40 #11781 [verbose] > │ () │
00:05:40 #11782 [verbose] > │ │
00:05:40 #11783 [verbose] > │ │
00:05:40 #11784 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:40 #11785 [verbose] >
00:05:40 #11786 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:40 #11787 [verbose] > // // test
00:05:40 #11788 [verbose] >
00:05:40 #11789 [verbose] > listm.init 10i32 id
00:05:40 #11790 [verbose] > |> try_find ((=) 5i32)
00:05:40 #11791 [verbose] > |> _assert_eq (Some 5i32)
00:05:40 #11792 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f15d58d3567ac804be4d8c20d683b293967bbc9e9b9ff4d0f90d8e39d049b089\main.spi
00:05:41 #11793 [verbose] >
00:05:41 #11794 [verbose] > ╭─[ 285.14ms - stdout ]────────────────────────────────────────────────────────╮
00:05:41 #11795 [verbose] > │ type [<Struct>] US0 = │
00:05:41 #11796 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:41 #11797 [verbose] > │ | US0_1 │
00:05:41 #11798 [verbose] > │ let rec method0 () : unit = │
00:05:41 #11799 [verbose] > │ let v0 : US0 = US0_0(5) │
00:05:41 #11800 [verbose] > │ let v1 : string = $"%A{v0}" │
00:05:41 #11801 [verbose] > │ System.Console.WriteLine v1 │
00:05:41 #11802 [verbose] > │ let v5 : US0 = US0_0(5) │
00:05:41 #11803 [verbose] > │ let v6 : US0 = US0_0(5) │
00:05:41 #11804 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:41 #11805 [verbose] > │ () │
00:05:41 #11806 [verbose] > │ method0() │
00:05:41 #11807 [verbose] > │ │
00:05:41 #11808 [verbose] > │ US0_0 5 │
00:05:41 #11809 [verbose] > │ │
00:05:41 #11810 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:41 #11811 [verbose] >
00:05:41 #11812 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:41 #11813 [verbose] > inl find x =
00:05:41 #11814 [verbose] > try_find x >> optionm.value
00:05:41 #11815 [verbose] >
00:05:41 #11816 [verbose] > inl find_ x =
00:05:41 #11817 [verbose] > try_find_ x >> optionm.value
00:05:41 #11818 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a1d656817ade1cc5faf1665e3d98701e50b5697b0993805acdf1eb944b430a12\main.spi
00:05:41 #11819 [verbose] >
00:05:41 #11820 [verbose] > ╭─[ 246.96ms - stdout ]────────────────────────────────────────────────────────╮
00:05:41 #11821 [verbose] > │ () │
00:05:41 #11822 [verbose] > │ │
00:05:41 #11823 [verbose] > │ │
00:05:41 #11824 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:41 #11825 [verbose] >
00:05:41 #11826 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:41 #11827 [verbose] > // // test
00:05:41 #11828 [verbose] >
00:05:41 #11829 [verbose] > listm.init 10i32 id
00:05:41 #11830 [verbose] > |> find ((=) 5i32)
00:05:41 #11831 [verbose] > |> _assert_eq 5i32
00:05:41 #11832 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b33576dfafc3b0ad9236b0c5b6df8a8936b2de5c9a47fbaa91214f826b584d2a\main.spi
00:05:41 #11833 [verbose] >
00:05:41 #11834 [verbose] > ╭─[ 263.91ms - stdout ]────────────────────────────────────────────────────────╮
00:05:41 #11835 [verbose] > │ let rec method0 () : unit = │
00:05:41 #11836 [verbose] > │ let v0 : string = $"%A{5}" │
00:05:41 #11837 [verbose] > │ System.Console.WriteLine v0 │
00:05:41 #11838 [verbose] > │ let v1 : string = $"__expect / actual: %A{5} / expected: %A{5}" │
00:05:41 #11839 [verbose] > │ () │
00:05:41 #11840 [verbose] > │ method0() │
00:05:41 #11841 [verbose] > │ │
00:05:41 #11842 [verbose] > │ 5 │
00:05:41 #11843 [verbose] > │ │
00:05:41 #11844 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:41 #11845 [verbose] >
00:05:41 #11846 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:41 #11847 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:41 #11848 [verbose] > │ ## choose │
00:05:41 #11849 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:41 #11850 [verbose] >
00:05:41 #11851 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:41 #11852 [verbose] > inl choose f l =
00:05:41 #11853 [verbose] > (l, [[]])
00:05:41 #11854 [verbose] > ||> listm.foldBack fun x acc =>
00:05:41 #11855 [verbose] > match f x with
00:05:41 #11856 [verbose] > | Some y => y :: acc
00:05:41 #11857 [verbose] > | None => acc
00:05:41 #11858 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\52d0564fe842ee101a450d75bee4a61654cfbefd8fa83ac60070636c48009b63\main.spi
00:05:41 #11859 [verbose] >
00:05:41 #11860 [verbose] > ╭─[ 230.82ms - stdout ]────────────────────────────────────────────────────────╮
00:05:41 #11861 [verbose] > │ () │
00:05:41 #11862 [verbose] > │ │
00:05:41 #11863 [verbose] > │ │
00:05:41 #11864 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:41 #11865 [verbose] >
00:05:41 #11866 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:41 #11867 [verbose] > // // test
00:05:41 #11868 [verbose] >
00:05:41 #11869 [verbose] > listm.init 10i32 id
00:05:41 #11870 [verbose] > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:05:41 #11871 [verbose] > |> _assert_eq [[ 0; 2; 4; 6; 8 ]]
00:05:42 #11872 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2585fea695ba1615766f2525aa1f98f9047870b18d9c935f5b5577f38177b46e\main.spi
00:05:42 #11873 [verbose] >
00:05:42 #11874 [verbose] > ╭─[ 300.17ms - stdout ]────────────────────────────────────────────────────────╮
00:05:42 #11875 [verbose] > │ type UH0 = │
00:05:42 #11876 [verbose] > │ | UH0_0 │
00:05:42 #11877 [verbose] > │ | UH0_1 of int32 * UH0 │
00:05:42 #11878 [verbose] > │ let rec method0 () : unit = │
00:05:42 #11879 [verbose] > │ let v0 : UH0 = UH0_0 │
00:05:42 #11880 [verbose] > │ let v1 : UH0 = UH0_1(8, v0) │
00:05:42 #11881 [verbose] > │ let v2 : UH0 = UH0_1(6, v1) │
00:05:42 #11882 [verbose] > │ let v3 : UH0 = UH0_1(4, v2) │
00:05:42 #11883 [verbose] > │ let v4 : UH0 = UH0_1(2, v3) │
00:05:42 #11884 [verbose] > │ let v5 : UH0 = UH0_1(0, v4) │
00:05:42 #11885 [verbose] > │ let v6 : string = $"%A{v5}" │
00:05:42 #11886 [verbose] > │ System.Console.WriteLine v6 │
00:05:42 #11887 [verbose] > │ let v40 : UH0 = UH0_0 │
00:05:42 #11888 [verbose] > │ let v41 : UH0 = UH0_1(8, v40) │
00:05:42 #11889 [verbose] > │ let v42 : UH0 = UH0_1(6, v41) │
00:05:42 #11890 [verbose] > │ let v43 : UH0 = UH0_1(4, v42) │
00:05:42 #11891 [verbose] > │ let v44 : UH0 = UH0_1(2, v43) │
00:05:42 #11892 [verbose] > │ let v45 : UH0 = UH0_1(0, v44) │
00:05:42 #11893 [verbose] > │ let v46 : UH0 = UH0_0 │
00:05:42 #11894 [verbose] > │ let v47 : UH0 = UH0_1(8, v46) │
00:05:42 #11895 [verbose] > │ let v48 : UH0 = UH0_1(6, v47) │
00:05:42 #11896 [verbose] > │ let v49 : UH0 = UH0_1(4, v48) │
00:05:42 #11897 [verbose] > │ let v50 : UH0 = UH0_1(2, v49) │
00:05:42 #11898 [verbose] > │ let v51 : UH0 = UH0_1(0, v50) │
00:05:42 #11899 [verbose] > │ let v52 : string = $"__expect / actual: %A{v45} / expected: %A{v51}" │
00:05:42 #11900 [verbose] > │ () │
00:05:42 #11901 [verbose] > │ method0() │
00:05:42 #11902 [verbose] > │ │
00:05:42 #11903 [verbose] > │ UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, UH0_0))))) │
00:05:42 #11904 [verbose] > │ │
00:05:42 #11905 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:42 #11906 [verbose] >
00:05:42 #11907 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:42 #11908 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:42 #11909 [verbose] > │ ## zip_with │
00:05:42 #11910 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:42 #11911 [verbose] >
00:05:42 #11912 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:42 #11913 [verbose] > inl zip_with fn xs ys =
00:05:42 #11914 [verbose] > inl rec loop acc xs ys =
00:05:42 #11915 [verbose] > match xs, ys with
00:05:42 #11916 [verbose] > | Cons (x, xs), Cons (y, ys) =>
00:05:42 #11917 [verbose] > loop (fn x y :: acc) xs ys
00:05:42 #11918 [verbose] > | _ => listm.rev acc
00:05:42 #11919 [verbose] > loop [[]] xs ys
00:05:42 #11920 [verbose] >
00:05:42 #11921 [verbose] > inl zip_with_ fn xs ys =
00:05:42 #11922 [verbose] > let rec loop acc xs ys =
00:05:42 #11923 [verbose] > match xs, ys with
00:05:42 #11924 [verbose] > | Cons (x, xs), Cons (y, ys) =>
00:05:42 #11925 [verbose] > loop (fn x y :: acc) xs ys
00:05:42 #11926 [verbose] > | _ => listm.rev acc
00:05:42 #11927 [verbose] > loop [[]] xs ys
00:05:42 #11928 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f797d315007be4849f046bfeafe25cd4f82fe14a989ca09ba94e3c540f8ce22c\main.spi
00:05:42 #11929 [verbose] >
00:05:42 #11930 [verbose] > ╭─[ 246.71ms - stdout ]────────────────────────────────────────────────────────╮
00:05:42 #11931 [verbose] > │ () │
00:05:42 #11932 [verbose] > │ │
00:05:42 #11933 [verbose] > │ │
00:05:42 #11934 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:42 #11935 [verbose] >
00:05:42 #11936 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:42 #11937 [verbose] > // // test
00:05:42 #11938 [verbose] >
00:05:42 #11939 [verbose] > ([[ 1i32; 2; 3 ]], [[ 4; 5; 6 ]])
00:05:42 #11940 [verbose] > ||> zip_with (+)
00:05:42 #11941 [verbose] > |> _assert_eq [[ 5; 7; 9 ]]
00:05:42 #11942 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\85b6594569a490e86108d9636e39fac29dc2c07bdf985e5bb49fb349e9652ca9\main.spi
00:05:42 #11943 [verbose] >
00:05:42 #11944 [verbose] > ╭─[ 526.91ms - stdout ]────────────────────────────────────────────────────────╮
00:05:42 #11945 [verbose] > │ type UH0 = │
00:05:42 #11946 [verbose] > │ | UH0_0 │
00:05:42 #11947 [verbose] > │ | UH0_1 of int32 * UH0 │
00:05:42 #11948 [verbose] > │ let rec method0 () : unit = │
00:05:42 #11949 [verbose] > │ let v0 : UH0 = UH0_0 │
00:05:42 #11950 [verbose] > │ let v1 : UH0 = UH0_1(9, v0) │
00:05:42 #11951 [verbose] > │ let v2 : UH0 = UH0_1(7, v1) │
00:05:42 #11952 [verbose] > │ let v3 : UH0 = UH0_1(5, v2) │
00:05:42 #11953 [verbose] > │ let v4 : string = $"%A{v3}" │
00:05:42 #11954 [verbose] > │ System.Console.WriteLine v4 │
00:05:42 #11955 [verbose] > │ let v23 : UH0 = UH0_0 │
00:05:42 #11956 [verbose] > │ let v24 : UH0 = UH0_1(9, v23) │
00:05:42 #11957 [verbose] > │ let v25 : UH0 = UH0_1(7, v24) │
00:05:42 #11958 [verbose] > │ let v26 : UH0 = UH0_1(5, v25) │
00:05:43 #11959 [verbose] > │ let v27 : UH0 = UH0_0 │
00:05:43 #11960 [verbose] > │ let v28 : UH0 = UH0_1(9, v27) │
00:05:43 #11961 [verbose] > │ let v29 : UH0 = UH0_1(7, v28) │
00:05:43 #11962 [verbose] > │ let v30 : UH0 = UH0_1(5, v29) │
00:05:43 #11963 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:05:43 #11964 [verbose] > │ () │
00:05:43 #11965 [verbose] > │ method0() │
00:05:43 #11966 [verbose] > │ │
00:05:43 #11967 [verbose] > │ UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))) │
00:05:43 #11968 [verbose] > │ │
00:05:43 #11969 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #11970 [verbose] >
00:05:43 #11971 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:43 #11972 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:43 #11973 [verbose] > │ ## zip │
00:05:43 #11974 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #11975 [verbose] >
00:05:43 #11976 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:43 #11977 [verbose] > inl zip xs ys =
00:05:43 #11978 [verbose] > zip_with pair xs ys
00:05:43 #11979 [verbose] >
00:05:43 #11980 [verbose] > inl zip_ xs ys =
00:05:43 #11981 [verbose] > zip_with_ pair xs ys
00:05:43 #11982 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ef157472de5040334b36f2ee4a8fe6c17105518e4467d4447dd5b318a28386ba\main.spi
00:05:43 #11983 [verbose] >
00:05:43 #11984 [verbose] > ╭─[ 227.52ms - stdout ]────────────────────────────────────────────────────────╮
00:05:43 #11985 [verbose] > │ () │
00:05:43 #11986 [verbose] > │ │
00:05:43 #11987 [verbose] > │ │
00:05:43 #11988 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #11989 [verbose] >
00:05:43 #11990 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:43 #11991 [verbose] > // // test
00:05:43 #11992 [verbose] >
00:05:43 #11993 [verbose] > ([[ 1i32; 2; 3 ]], [[ 4i32; 5; 6 ]])
00:05:43 #11994 [verbose] > ||> zip
00:05:43 #11995 [verbose] > |> _assert_eq [[ 1, 4; 2, 5; 3, 6 ]]
00:05:43 #11996 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0a1792adb0b846b69fdfb52881b1e3e8fb3fa8a7780b5f04ef84253b67b0b8bb\main.spi
00:05:43 #11997 [verbose] >
00:05:43 #11998 [verbose] > ╭─[ 304.12ms - stdout ]────────────────────────────────────────────────────────╮
00:05:43 #11999 [verbose] > │ type UH0 = │
00:05:43 #12000 [verbose] > │ | UH0_0 │
00:05:43 #12001 [verbose] > │ | UH0_1 of int32 * int32 * UH0 │
00:05:43 #12002 [verbose] > │ let rec method0 () : unit = │
00:05:43 #12003 [verbose] > │ let v0 : UH0 = UH0_0 │
00:05:43 #12004 [verbose] > │ let v1 : UH0 = UH0_1(3, 6, v0) │
00:05:43 #12005 [verbose] > │ let v2 : UH0 = UH0_1(2, 5, v1) │
00:05:43 #12006 [verbose] > │ let v3 : UH0 = UH0_1(1, 4, v2) │
00:05:43 #12007 [verbose] > │ let v4 : string = $"%A{v3}" │
00:05:43 #12008 [verbose] > │ System.Console.WriteLine v4 │
00:05:43 #12009 [verbose] > │ let v23 : UH0 = UH0_0 │
00:05:43 #12010 [verbose] > │ let v24 : UH0 = UH0_1(3, 6, v23) │
00:05:43 #12011 [verbose] > │ let v25 : UH0 = UH0_1(2, 5, v24) │
00:05:43 #12012 [verbose] > │ let v26 : UH0 = UH0_1(1, 4, v25) │
00:05:43 #12013 [verbose] > │ let v27 : UH0 = UH0_0 │
00:05:43 #12014 [verbose] > │ let v28 : UH0 = UH0_1(3, 6, v27) │
00:05:43 #12015 [verbose] > │ let v29 : UH0 = UH0_1(2, 5, v28) │
00:05:43 #12016 [verbose] > │ let v30 : UH0 = UH0_1(1, 4, v29) │
00:05:43 #12017 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:05:43 #12018 [verbose] > │ () │
00:05:43 #12019 [verbose] > │ method0() │
00:05:43 #12020 [verbose] > │ │
00:05:43 #12021 [verbose] > │ UH0_1 (1, 4, UH0_1 (2, 5, UH0_1 (3, 6, UH0_0))) │
00:05:43 #12022 [verbose] > │ │
00:05:43 #12023 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #12024 [verbose] >
00:05:43 #12025 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:43 #12026 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:43 #12027 [verbose] > │ ## indexed │
00:05:43 #12028 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #12029 [verbose] >
00:05:43 #12030 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:43 #12031 [verbose] > inl indexed list =
00:05:43 #12032 [verbose] > (([[]], 0), list)
00:05:43 #12033 [verbose] > ||> listm.fold fun (acc, i) x =>
00:05:43 #12034 [verbose] > (i, x) :: acc, i + 1
00:05:43 #12035 [verbose] > |> fst
00:05:43 #12036 [verbose] > |> listm.rev
00:05:43 #12037 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8a7066d8e433b90babdaebb8d47d942c2edd36bc0360e74f698bf997794471ba\main.spi
00:05:43 #12038 [verbose] >
00:05:43 #12039 [verbose] > ╭─[ 225.88ms - stdout ]────────────────────────────────────────────────────────╮
00:05:43 #12040 [verbose] > │ () │
00:05:43 #12041 [verbose] > │ │
00:05:43 #12042 [verbose] > │ │
00:05:43 #12043 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:43 #12044 [verbose] >
00:05:43 #12045 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:43 #12046 [verbose] > // // test
00:05:43 #12047 [verbose] >
00:05:43 #12048 [verbose] > listm.init 5i32 ((*) 2)
00:05:43 #12049 [verbose] > |> indexed
00:05:43 #12050 [verbose] > |> _assert_eq [[ 0i32, 0; 1, 2; 2, 4; 3, 6; 4, 8 ]]
00:05:43 #12051 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\05178ea6e405d2c79e3b52dcf0141822335bfe72456fff5079d27b600748b1bb\main.spi
00:05:44 #12052 [verbose] >
00:05:44 #12053 [verbose] > ╭─[ 333.61ms - stdout ]────────────────────────────────────────────────────────╮
00:05:44 #12054 [verbose] > │ type UH0 = │
00:05:44 #12055 [verbose] > │ | UH0_0 │
00:05:44 #12056 [verbose] > │ | UH0_1 of int32 * int32 * UH0 │
00:05:44 #12057 [verbose] > │ let rec method0 () : unit = │
00:05:44 #12058 [verbose] > │ let v0 : UH0 = UH0_0 │
00:05:44 #12059 [verbose] > │ let v1 : UH0 = UH0_1(4, 8, v0) │
00:05:44 #12060 [verbose] > │ let v2 : UH0 = UH0_1(3, 6, v1) │
00:05:44 #12061 [verbose] > │ let v3 : UH0 = UH0_1(2, 4, v2) │
00:05:44 #12062 [verbose] > │ let v4 : UH0 = UH0_1(1, 2, v3) │
00:05:44 #12063 [verbose] > │ let v5 : UH0 = UH0_1(0, 0, v4) │
00:05:44 #12064 [verbose] > │ let v6 : string = $"%A{v5}" │
00:05:44 #12065 [verbose] > │ System.Console.WriteLine v6 │
00:05:44 #12066 [verbose] > │ let v40 : UH0 = UH0_0 │
00:05:44 #12067 [verbose] > │ let v41 : UH0 = UH0_1(4, 8, v40) │
00:05:44 #12068 [verbose] > │ let v42 : UH0 = UH0_1(3, 6, v41) │
00:05:44 #12069 [verbose] > │ let v43 : UH0 = UH0_1(2, 4, v42) │
00:05:44 #12070 [verbose] > │ let v44 : UH0 = UH0_1(1, 2, v43) │
00:05:44 #12071 [verbose] > │ let v45 : UH0 = UH0_1(0, 0, v44) │
00:05:44 #12072 [verbose] > │ let v46 : UH0 = UH0_0 │
00:05:44 #12073 [verbose] > │ let v47 : UH0 = UH0_1(4, 8, v46) │
00:05:44 #12074 [verbose] > │ let v48 : UH0 = UH0_1(3, 6, v47) │
00:05:44 #12075 [verbose] > │ let v49 : UH0 = UH0_1(2, 4, v48) │
00:05:44 #12076 [verbose] > │ let v50 : UH0 = UH0_1(1, 2, v49) │
00:05:44 #12077 [verbose] > │ let v51 : UH0 = UH0_1(0, 0, v50) │
00:05:44 #12078 [verbose] > │ let v52 : string = $"__expect / actual: %A{v45} / expected: %A{v51}" │
00:05:44 #12079 [verbose] > │ () │
00:05:44 #12080 [verbose] > │ method0() │
00:05:44 #12081 [verbose] > │ │
00:05:44 #12082 [verbose] > │ UH0_1 (0, 0, UH0_1 (1, 2, UH0_1 (2, 4, UH0_1 (3, 6, UH0_1 (4, 8, UH0_0))))) │
00:05:44 #12083 [verbose] > │ │
00:05:44 #12084 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 #12085 [verbose] >
00:05:44 #12086 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:44 #12087 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:44 #12088 [verbose] > │ ## group_by │
00:05:44 #12089 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 #12090 [verbose] >
00:05:44 #12091 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 #12092 [verbose] > inl group_by fn list =
00:05:44 #12093 [verbose] > (list, [[]])
00:05:44 #12094 [verbose] > ||> listm.foldBack fun x acc =>
00:05:44 #12095 [verbose] > inl xk = fn x
00:05:44 #12096 [verbose] > inl found, new_acc =
00:05:44 #12097 [verbose] > ((false, [[]]), acc)
00:05:44 #12098 [verbose] > ||> listm.fold fun (found, acc') (k, xs) =>
00:05:44 #12099 [verbose] > if k = xk
00:05:44 #12100 [verbose] > then true, (k, x :: xs) :: acc'
00:05:44 #12101 [verbose] > else found, (k, xs) :: acc'
00:05:44 #12102 [verbose] > if found
00:05:44 #12103 [verbose] > then new_acc
00:05:44 #12104 [verbose] > else (xk, [[ x ]]) :: new_acc
00:05:44 #12105 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3126b51b91a1bfd1a77afa8199fab9e2d0805288655fc5edc6c4f52c62945be2\main.spi
00:05:44 #12106 [verbose] >
00:05:44 #12107 [verbose] > ╭─[ 207.19ms - stdout ]────────────────────────────────────────────────────────╮
00:05:44 #12108 [verbose] > │ () │
00:05:44 #12109 [verbose] > │ │
00:05:44 #12110 [verbose] > │ │
00:05:44 #12111 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 #12112 [verbose] >
00:05:44 #12113 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 #12114 [verbose] > // // test
00:05:44 #12115 [verbose] >
00:05:44 #12116 [verbose] > listm.init 10i32 id
00:05:44 #12117 [verbose] > |> group_by (fun x => x % 2 = 0)
00:05:44 #12118 [verbose] > |> _assert_eq [[ true, [[ 0; 2; 4; 6; 8 ]]; false, [[ 1; 3; 5; 7; 9 ]] ]]
00:05:44 #12119 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\441e5950119dfb64b27c7f16c81d6fa733576f42b9c651669097ed1baac27eae\main.spi
00:05:44 #12120 [verbose] >
00:05:44 #12121 [verbose] > ╭─[ 362.50ms - stdout ]────────────────────────────────────────────────────────╮
00:05:44 #12122 [verbose] > │ type UH0 = │
00:05:44 #12123 [verbose] > │ | UH0_0 │
00:05:44 #12124 [verbose] > │ | UH0_1 of int32 * UH0 │
00:05:44 #12125 [verbose] > │ and UH1 = │
00:05:44 #12126 [verbose] > │ | UH1_0 │
00:05:44 #12127 [verbose] > │ | UH1_1 of bool * UH0 * UH1 │
00:05:44 #12128 [verbose] > │ let rec method0 () : unit = │
00:05:44 #12129 [verbose] > │ let v0 : UH0 = UH0_0 │
00:05:44 #12130 [verbose] > │ let v1 : UH0 = UH0_1(8, v0) │
00:05:44 #12131 [verbose] > │ let v2 : UH0 = UH0_1(6, v1) │
00:05:44 #12132 [verbose] > │ let v3 : UH0 = UH0_1(4, v2) │
00:05:44 #12133 [verbose] > │ let v4 : UH0 = UH0_1(2, v3) │
00:05:44 #12134 [verbose] > │ let v5 : UH0 = UH0_1(0, v4) │
00:05:44 #12135 [verbose] > │ let v6 : UH0 = UH0_0 │
00:05:44 #12136 [verbose] > │ let v7 : UH0 = UH0_1(9, v6) │
00:05:44 #12137 [verbose] > │ let v8 : UH0 = UH0_1(7, v7) │
00:05:44 #12138 [verbose] > │ let v9 : UH0 = UH0_1(5, v8) │
00:05:44 #12139 [verbose] > │ let v10 : UH0 = UH0_1(3, v9) │
00:05:44 #12140 [verbose] > │ let v11 : UH0 = UH0_1(1, v10) │
00:05:44 #12141 [verbose] > │ let v12 : UH1 = UH1_0 │
00:05:44 #12142 [verbose] > │ let v13 : UH1 = UH1_1(false, v11, v12) │
00:05:44 #12143 [verbose] > │ let v14 : UH1 = UH1_1(true, v5, v13) │
00:05:44 #12144 [verbose] > │ let v15 : string = $"%A{v14}" │
00:05:44 #12145 [verbose] > │ System.Console.WriteLine v15 │
00:05:44 #12146 [verbose] > │ let v112 : UH0 = UH0_0 │
00:05:44 #12147 [verbose] > │ let v113 : UH0 = UH0_1(8, v112) │
00:05:44 #12148 [verbose] > │ let v114 : UH0 = UH0_1(6, v113) │
00:05:44 #12149 [verbose] > │ let v115 : UH0 = UH0_1(4, v114) │
00:05:44 #12150 [verbose] > │ let v116 : UH0 = UH0_1(2, v115) │
00:05:44 #12151 [verbose] > │ let v117 : UH0 = UH0_1(0, v116) │
00:05:44 #12152 [verbose] > │ let v118 : UH0 = UH0_0 │
00:05:44 #12153 [verbose] > │ let v119 : UH0 = UH0_1(9, v118) │
00:05:44 #12154 [verbose] > │ let v120 : UH0 = UH0_1(7, v119) │
00:05:44 #12155 [verbose] > │ let v121 : UH0 = UH0_1(5, v120) │
00:05:44 #12156 [verbose] > │ let v122 : UH0 = UH0_1(3, v121) │
00:05:44 #12157 [verbose] > │ let v123 : UH0 = UH0_1(1, v122) │
00:05:44 #12158 [verbose] > │ let v124 : UH1 = UH1_0 │
00:05:44 #12159 [verbose] > │ let v125 : UH1 = UH1_1(false, v123, v124) │
00:05:44 #12160 [verbose] > │ let v126 : UH1 = UH1_1(true, v117, v125) │
00:05:44 #12161 [verbose] > │ let v127 : UH0 = UH0_0 │
00:05:44 #12162 [verbose] > │ let v128 : UH0 = UH0_1(8, v127) │
00:05:44 #12163 [verbose] > │ let v129 : UH0 = UH0_1(6, v128) │
00:05:44 #12164 [verbose] > │ let v130 : UH0 = UH0_1(4, v129) │
00:05:44 #12165 [verbose] > │ let v131 : UH0 = UH0_1(2, v130) │
00:05:44 #12166 [verbose] > │ let v132 : UH0 = UH0_1(0, v131) │
00:05:44 #12167 [verbose] > │ let v133 : UH0 = UH0_0 │
00:05:44 #12168 [verbose] > │ let v134 : UH0 = UH0_1(9, v133) │
00:05:44 #12169 [verbose] > │ let v135 : UH0 = UH0_1(7, v134) │
00:05:44 #12170 [verbose] > │ let v136 : UH0 = UH0_1(5, v135) │
00:05:44 #12171 [verbose] > │ let v137 : UH0 = UH0_1(3, v136) │
00:05:44 #12172 [verbose] > │ let v138 : UH0 = UH0_1(1, v137) │
00:05:44 #12173 [verbose] > │ let v139 : UH1 = UH1_0 │
00:05:44 #12174 [verbose] > │ let v140 : UH1 = UH1_1(false, v138, v139) │
00:05:44 #12175 [verbose] > │ let v141 : UH1 = UH1_1(true, v132, v140) │
00:05:44 #12176 [verbose] > │ let v142 : string = $"__expect / actual: %A{v126} / expected: %A{v141}" │
00:05:44 #12177 [verbose] > │ () │
00:05:44 #12178 [verbose] > │ method0() │
00:05:44 #12179 [verbose] > │ │
00:05:44 #12180 [verbose] > │ UH1_1 │
00:05:44 #12181 [verbose] > │ (true, UH0_1 (0, UH0_1 (2, UH0_1 (4, UH0_1 (6, UH0_1 (8, UH0_0))))), │
00:05:44 #12182 [verbose] > │ UH1_1 │
00:05:44 #12183 [verbose] > │ (false, UH0_1 (1, UH0_1 (3, UH0_1 (5, UH0_1 (7, UH0_1 (9, UH0_0))))), │
00:05:44 #12184 [verbose] > │ UH1_0)) │
00:05:44 #12185 [verbose] > │ │
00:05:44 #12186 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 #12187 [verbose] >
00:05:44 #12188 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:44 #12189 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:44 #12190 [verbose] > │ ## forall' │
00:05:44 #12191 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 #12192 [verbose] >
00:05:44 #12193 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 #12194 [verbose] > inl forall' fn (head :: tail) =
00:05:44 #12195 [verbose] > (true, tail)
00:05:44 #12196 [verbose] > ||> listm.fold fun acc x =>
00:05:44 #12197 [verbose] > acc && x = head
00:05:44 #12198 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3416274befa154653ca040273d51b4702148fff0f03f4035390705c26f4fa24f\main.spi
00:05:44 #12199 [verbose] >
00:05:44 #12200 [verbose] > ╭─[ 236.98ms - stdout ]────────────────────────────────────────────────────────╮
00:05:44 #12201 [verbose] > │ () │
00:05:44 #12202 [verbose] > │ │
00:05:44 #12203 [verbose] > │ │
00:05:44 #12204 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:44 #12205 [verbose] >
00:05:44 #12206 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:44 #12207 [verbose] > // // test
00:05:44 #12208 [verbose] >
00:05:44 #12209 [verbose] > [[ 1i32; 1; 1; 1; 1 ]]
00:05:44 #12210 [verbose] > |> forall' ((=) 1i32)
00:05:44 #12211 [verbose] > |> _assert_eq true
00:05:45 #12212 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\26f6ca5c1022c436904a3eed8d3c4449d6ede09c3a9115dfa024b641c455c143\main.spi
00:05:45 #12213 [verbose] >
00:05:45 #12214 [verbose] > ╭─[ 257.94ms - stdout ]────────────────────────────────────────────────────────╮
00:05:45 #12215 [verbose] > │ let rec method0 () : unit = │
00:05:45 #12216 [verbose] > │ let v0 : string = $"%A{true}" │
00:05:45 #12217 [verbose] > │ System.Console.WriteLine v0 │
00:05:45 #12218 [verbose] > │ let v1 : string = $"__expect / actual: %A{true} / expected: %A{true}" │
00:05:45 #12219 [verbose] > │ () │
00:05:45 #12220 [verbose] > │ method0() │
00:05:45 #12221 [verbose] > │ │
00:05:45 #12222 [verbose] > │ true │
00:05:45 #12223 [verbose] > │ │
00:05:45 #12224 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:45 #12225 [verbose] >
00:05:45 #12226 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:45 #12227 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:45 #12228 [verbose] > │ ## last │
00:05:45 #12229 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:45 #12230 [verbose] >
00:05:45 #12231 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:45 #12232 [verbose] > inl last list =
00:05:45 #12233 [verbose] > list
00:05:45 #12234 [verbose] > |> listm.rev
00:05:45 #12235 [verbose] > |> item 0i32
00:05:45 #12236 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7a53e9cbca58002a032ee718b7f6f988de644c3d3b589ec5c7362496a384bdf2\main.spi
00:05:45 #12237 [verbose] >
00:05:45 #12238 [verbose] > ╭─[ 233.63ms - stdout ]────────────────────────────────────────────────────────╮
00:05:45 #12239 [verbose] > │ () │
00:05:45 #12240 [verbose] > │ │
00:05:45 #12241 [verbose] > │ │
00:05:45 #12242 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:45 #12243 [verbose] >
00:05:45 #12244 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:45 #12245 [verbose] > // // test
00:05:45 #12246 [verbose] >
00:05:45 #12247 [verbose] > listm.init 10i32 id
00:05:45 #12248 [verbose] > |> last
00:05:45 #12249 [verbose] > |> _assert_eq 9
00:05:45 #12250 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\842f7e4259df0245e788e84225fbaadd2d9cb1d56c6734ccb2041678ee4dcafb\main.spi
00:05:45 #12251 [verbose] >
00:05:45 #12252 [verbose] > ╭─[ 261.62ms - stdout ]────────────────────────────────────────────────────────╮
00:05:45 #12253 [verbose] > │ let rec method0 () : unit = │
00:05:45 #12254 [verbose] > │ let v0 : string = $"%A{9}" │
00:05:45 #12255 [verbose] > │ System.Console.WriteLine v0 │
00:05:45 #12256 [verbose] > │ let v1 : string = $"__expect / actual: %A{9} / expected: %A{9}" │
00:05:45 #12257 [verbose] > │ () │
00:05:45 #12258 [verbose] > │ method0() │
00:05:45 #12259 [verbose] > │ │
00:05:45 #12260 [verbose] > │ 9 │
00:05:45 #12261 [verbose] > │ │
00:05:45 #12262 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:45 #12263 [verbose] >
00:05:45 #12264 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:45 #12265 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:45 #12266 [verbose] > │ ## try_pick │
00:05:45 #12267 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:45 #12268 [verbose] >
00:05:45 #12269 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:45 #12270 [verbose] > inl try_pick fn list =
00:05:45 #12271 [verbose] > inl rec body fn = function
00:05:45 #12272 [verbose] > | [[]] => None
00:05:45 #12273 [verbose] > | x :: xs =>
00:05:45 #12274 [verbose] > match fn x with
00:05:45 #12275 [verbose] > | Some y => Some y
00:05:45 #12276 [verbose] > | None => loop xs
00:05:45 #12277 [verbose] > and inl loop list =
00:05:45 #12278 [verbose] > if var_is list |> not
00:05:45 #12279 [verbose] > then body fn list
00:05:45 #12280 [verbose] > else
00:05:45 #12281 [verbose] > inl fn = join fn
00:05:45 #12282 [verbose] > inl list = dyn list
00:05:45 #12283 [verbose] > join body fn list
00:05:45 #12284 [verbose] > loop list
00:05:45 #12285 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\26be3a5bfb039a1af7d1eaa7599619b47d1ab6b4a5e764d8079df2cbf5a8a6bb\main.spi
00:05:45 #12286 [verbose] >
00:05:45 #12287 [verbose] > ╭─[ 221.34ms - stdout ]────────────────────────────────────────────────────────╮
00:05:45 #12288 [verbose] > │ () │
00:05:45 #12289 [verbose] > │ │
00:05:45 #12290 [verbose] > │ │
00:05:45 #12291 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:45 #12292 [verbose] >
00:05:45 #12293 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:45 #12294 [verbose] > // // test
00:05:45 #12295 [verbose] >
00:05:45 #12296 [verbose] > listm.init 10i32 id
00:05:45 #12297 [verbose] > |> try_pick (fun x => if x = 5i32 then Some x else None)
00:05:45 #12298 [verbose] > |> _assert_eq (Some 5i32)
00:05:46 #12299 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8895bcb76084a0ca52948d19c9ac5762b9ff3023607403ac4eeabd2d5f15326b\main.spi
00:05:46 #12300 [verbose] >
00:05:46 #12301 [verbose] > ╭─[ 305.45ms - stdout ]────────────────────────────────────────────────────────╮
00:05:46 #12302 [verbose] > │ type [<Struct>] US0 = │
00:05:46 #12303 [verbose] > │ | US0_0 of f0_0 : int32 │
00:05:46 #12304 [verbose] > │ | US0_1 │
00:05:46 #12305 [verbose] > │ let rec method0 () : unit = │
00:05:46 #12306 [verbose] > │ let v0 : US0 = US0_0(5) │
00:05:46 #12307 [verbose] > │ let v1 : string = $"%A{v0}" │
00:05:46 #12308 [verbose] > │ System.Console.WriteLine v1 │
00:05:46 #12309 [verbose] > │ let v5 : US0 = US0_0(5) │
00:05:46 #12310 [verbose] > │ let v6 : US0 = US0_0(5) │
00:05:46 #12311 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:05:46 #12312 [verbose] > │ () │
00:05:46 #12313 [verbose] > │ method0() │
00:05:46 #12314 [verbose] > │ │
00:05:46 #12315 [verbose] > │ US0_0 5 │
00:05:46 #12316 [verbose] > │ │
00:05:46 #12317 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:48 #12318 [verbose] > [NbConvertApp] Converting notebook listm'.dib.ipynb to html
00:05:48 #12319 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:05:48 #12320 [verbose] > validate(nb)
00:05:48 #12321 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:05:48 #12322 [verbose] > return _pygments_highlight(
00:05:49 #12323 [verbose] > [NbConvertApp] Writing 384105 bytes to listm'.dib.html
00:05:50 #12324 [debug] executeAsync / exitCode: 0 / output.Length: 75364
00:05:50 #12325 [debug] main / executeCommand / exitCode: 0
00:05:50 #12326 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 benchmark.dib" -Retries 3"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:05:52 #12327 [verbose] >
00:05:52 #12328 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:52 #12329 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:52 #12330 [verbose] > │ ## benchmark (Polyglot) │
00:05:52 #12331 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:52 #12332 [verbose] >
00:05:52 #12333 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:52 #12334 [verbose] > // // test
00:05:52 #12335 [verbose] >
00:05:52 #12336 [verbose] > open testing
00:05:55 #12337 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:05:56 #12338 [verbose] >
00:05:56 #12339 [verbose] > ╭─[ 4.22s - stdout ]───────────────────────────────────────────────────────────╮
00:05:56 #12340 [verbose] > │ () │
00:05:56 #12341 [verbose] > │ │
00:05:56 #12342 [verbose] > │ │
00:05:56 #12343 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:56 #12344 [verbose] >
00:05:56 #12345 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:56 #12346 [verbose] > inl (/@) x = listm'.(/@) x
00:05:57 #12347 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\819235c6d5790f122eb44705884c5dc6cd36e4532df1e305d1bd4cb59cd7f25d\main.spi
00:05:57 #12348 [verbose] >
00:05:57 #12349 [verbose] > ╭─[ 228.72ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 #12350 [verbose] > │ () │
00:05:57 #12351 [verbose] > │ │
00:05:57 #12352 [verbose] > │ │
00:05:57 #12353 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #12354 [verbose] >
00:05:57 #12355 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 #12356 [verbose] > inl gc_collect () =
00:05:57 #12357 [verbose] > run_target function
00:05:57 #12358 [verbose] > | Fsharp _ => fun () => $"System.GC.Collect ()"
00:05:57 #12359 [verbose] > | _ => fun () => ()
00:05:57 #12360 [verbose] >
00:05:57 #12361 [verbose] > inl printfn x =
00:05:57 #12362 [verbose] > console.write_line x
00:05:57 #12363 [verbose] >
00:05:57 #12364 [verbose] > nominal stopwatch = $"System.Diagnostics.Stopwatch"
00:05:57 #12365 [verbose] >
00:05:57 #12366 [verbose] > inl stopwatch () : stopwatch =
00:05:57 #12367 [verbose] > $"`stopwatch" ()
00:05:57 #12368 [verbose] >
00:05:57 #12369 [verbose] > inl stopwatch_elapsed_milliseconds (stopwatch : stopwatch) : i64 =
00:05:57 #12370 [verbose] > $"!stopwatch.ElapsedMilliseconds"
00:05:57 #12371 [verbose] >
00:05:57 #12372 [verbose] > inl stopwatch_start (stopwatch : stopwatch) : () =
00:05:57 #12373 [verbose] > $"!stopwatch.Start ()"
00:05:57 #12374 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c12c9da4851177ff9eb7d668d5d9b9d7155315b3448526fc4dad85db9c80f008\main.spi
00:05:57 #12375 [verbose] >
00:05:57 #12376 [verbose] > ╭─[ 262.45ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 #12377 [verbose] > │ () │
00:05:57 #12378 [verbose] > │ │
00:05:57 #12379 [verbose] > │ │
00:05:57 #12380 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #12381 [verbose] >
00:05:57 #12382 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:57 #12383 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:57 #12384 [verbose] > │ ## test_case_result │
00:05:57 #12385 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #12386 [verbose] >
00:05:57 #12387 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 #12388 [verbose] > type test_case_result =
00:05:57 #12389 [verbose] > {
00:05:57 #12390 [verbose] > Input : string
00:05:57 #12391 [verbose] > Expected : string
00:05:57 #12392 [verbose] > Result : string
00:05:57 #12393 [verbose] > TimeList : a u64 i64
00:05:57 #12394 [verbose] > }
00:05:57 #12395 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\148c2af0894b5a10127c2d84d5acaa7b373dbf2fae9f5dcc77d95949eefe781e\main.spi
00:05:57 #12396 [verbose] >
00:05:57 #12397 [verbose] > ╭─[ 239.02ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 #12398 [verbose] > │ () │
00:05:57 #12399 [verbose] > │ │
00:05:57 #12400 [verbose] > │ │
00:05:57 #12401 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #12402 [verbose] >
00:05:57 #12403 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:57 #12404 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:57 #12405 [verbose] > │ ## run │
00:05:57 #12406 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #12407 [verbose] >
00:05:57 #12408 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 #12409 [verbose] > inl run forall input expected.
00:05:57 #12410 [verbose] > count
00:05:57 #12411 [verbose] > (solutions : list (string * (input -> expected)))
00:05:57 #12412 [verbose] > ((input, expected) : (input * expected))
00:05:57 #12413 [verbose] > : test_case_result
00:05:57 #12414 [verbose] > =
00:05:57 #12415 [verbose] > inl input_str = input |> sm'.format_debug
00:05:57 #12416 [verbose] >
00:05:57 #12417 [verbose] > printfn ""
00:05:57 #12418 [verbose] > printfn ($"$\"Solution: {!input_str} \"" : string)
00:05:57 #12419 [verbose] >
00:05:57 #12420 [verbose] > inl performance_invoke (fn : () -> expected) =
00:05:57 #12421 [verbose] > gc_collect ()
00:05:57 #12422 [verbose] > inl stopwatch = stopwatch ()
00:05:57 #12423 [verbose] > stopwatch |> stopwatch_start
00:05:57 #12424 [verbose] > inl time1 = stopwatch |> stopwatch_elapsed_milliseconds
00:05:57 #12425 [verbose] > inl result : expected =
00:05:57 #12426 [verbose] > am'.init_series 0 count 1i32
00:05:57 #12427 [verbose] > |> am'.parallel_map fun _n => fn ()
00:05:57 #12428 [verbose] > |> am'.last
00:05:57 #12429 [verbose] > inl time2 = (stopwatch |> stopwatch_elapsed_milliseconds) - time1
00:05:57 #12430 [verbose] > result, time2
00:05:57 #12431 [verbose] >
00:05:57 #12432 [verbose] > inl results_with_time : a u64 _ =
00:05:57 #12433 [verbose] > solutions
00:05:57 #12434 [verbose] > |> listm'.indexed
00:05:57 #12435 [verbose] > |> listm.toArray
00:05:57 #12436 [verbose] > |> am.map fun ((i : i32), (test_name, solution)) =>
00:05:57 #12437 [verbose] > inl result, time = performance_invoke fun () => solution input
00:05:57 #12438 [verbose] > printfn ($"$\"Test case {!i + 1}. {!test_name}. Time: {!time} \"" :
00:05:57 #12439 [verbose] > string)
00:05:57 #12440 [verbose] > result, time
00:05:57 #12441 [verbose] >
00:05:57 #12442 [verbose] > match results_with_time |> am.map fst with
00:05:57 #12443 [verbose] > | array when length array <= 1 => ()
00:05:57 #12444 [verbose] > | array when array |> am.forall' ((=) (index array 0)) => ()
00:05:57 #12445 [verbose] > | results => failwith ($"$\"Challenge error: {!results}\"" : string)
00:05:57 #12446 [verbose] >
00:05:57 #12447 [verbose] > {
00:05:57 #12448 [verbose] > Input = input_str
00:05:57 #12449 [verbose] > Expected = expected |> sm'.format_debug
00:05:57 #12450 [verbose] > Result = results_with_time |> am.map fst |> fun array => index array 0
00:05:57 #12451 [verbose] > |> sm'.format_debug
00:05:57 #12452 [verbose] > TimeList = results_with_time |> am.map snd
00:05:57 #12453 [verbose] > }
00:05:57 #12454 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ce00a7aedc3e680e2047e2ba63ee93662c35fa7a7e8e36661bdf9573f2247743\main.spi
00:05:57 #12455 [verbose] >
00:05:57 #12456 [verbose] > ╭─[ 267.99ms - stdout ]────────────────────────────────────────────────────────╮
00:05:57 #12457 [verbose] > │ () │
00:05:57 #12458 [verbose] > │ │
00:05:57 #12459 [verbose] > │ │
00:05:57 #12460 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #12461 [verbose] >
00:05:57 #12462 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:57 #12463 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:57 #12464 [verbose] > │ ## run_all │
00:05:57 #12465 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:57 #12466 [verbose] >
00:05:57 #12467 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:57 #12468 [verbose] > inl run_all forall input expected.
00:05:57 #12469 [verbose] > test_name
00:05:57 #12470 [verbose] > count
00:05:57 #12471 [verbose] > (solutions : list (string * (input -> expected)))
00:05:57 #12472 [verbose] > test_cases
00:05:57 #12473 [verbose] > =
00:05:57 #12474 [verbose] > printfn ""
00:05:57 #12475 [verbose] > printfn ""
00:05:57 #12476 [verbose] > printfn ($"$\"Test: {!test_name}\"" : string)
00:05:57 #12477 [verbose] > test_cases
00:05:57 #12478 [verbose] > |> listm.toArray
00:05:57 #12479 [verbose] > |> am.map (run count solutions)
00:05:58 #12480 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\09f4beb98e30972ee46a70ac363b86ba2dc139a2e0ac26f0275307f58e9eed17\main.spi
00:05:58 #12481 [verbose] >
00:05:58 #12482 [verbose] > ╭─[ 251.21ms - stdout ]────────────────────────────────────────────────────────╮
00:05:58 #12483 [verbose] > │ () │
00:05:58 #12484 [verbose] > │ │
00:05:58 #12485 [verbose] > │ │
00:05:58 #12486 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:58 #12487 [verbose] >
00:05:58 #12488 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:58 #12489 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:58 #12490 [verbose] > │ ## sort_result_list │
00:05:58 #12491 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:58 #12492 [verbose] >
00:05:58 #12493 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:58 #12494 [verbose] > inl sort_result_list results =
00:05:58 #12495 [verbose] > inl table =
00:05:58 #12496 [verbose] > inl rows =
00:05:58 #12497 [verbose] > results
00:05:58 #12498 [verbose] > |> am.map fun (result : test_case_result) =>
00:05:58 #12499 [verbose] > inl best =
00:05:58 #12500 [verbose] > result.TimeList
00:05:58 #12501 [verbose] > |> am'.indexed
00:05:58 #12502 [verbose] > |> am.map fun (i, time) =>
00:05:58 #12503 [verbose] > i + 1i64, time
00:05:58 #12504 [verbose] > |> am'.sort_by snd
00:05:58 #12505 [verbose] > |> fun array => index array 0i32
00:05:58 #12506 [verbose] > |> sm'.format_debug
00:05:58 #12507 [verbose] > inl row =
00:05:58 #12508 [verbose] > [[
00:05:58 #12509 [verbose] > result.Input
00:05:58 #12510 [verbose] > result.Expected
00:05:58 #12511 [verbose] > result.Result
00:05:58 #12512 [verbose] > best
00:05:58 #12513 [verbose] > ]]
00:05:58 #12514 [verbose] > inl color : option console.console_color =
00:05:58 #12515 [verbose] > open console
00:05:58 #12516 [verbose] > match result.Expected = result.Result with
00:05:58 #12517 [verbose] > | true => Some $"`console_color.DarkGreen"
00:05:58 #12518 [verbose] > | false => Some $"`console_color.DarkRed"
00:05:58 #12519 [verbose] > row, color
00:05:58 #12520 [verbose] >
00:05:58 #12521 [verbose] > inl header =
00:05:58 #12522 [verbose] > [[
00:05:58 #12523 [verbose] > [[
00:05:58 #12524 [verbose] > "Input"
00:05:58 #12525 [verbose] > "Expected"
00:05:58 #12526 [verbose] > "Result"
00:05:58 #12527 [verbose] > "Best"
00:05:58 #12528 [verbose] > ]]
00:05:58 #12529 [verbose] > [[
00:05:58 #12530 [verbose] > "---"
00:05:58 #12531 [verbose] > "---"
00:05:58 #12532 [verbose] > "---"
00:05:58 #12533 [verbose] > "---"
00:05:58 #12534 [verbose] > ]]
00:05:58 #12535 [verbose] > ]]
00:05:58 #12536 [verbose] > |> listm.map fun row => row, None
00:05:58 #12537 [verbose] > |> listm.toArray
00:05:58 #12538 [verbose] > rows |> am.append header
00:05:58 #12539 [verbose] >
00:05:58 #12540 [verbose] > inl formattedTable =
00:05:58 #12541 [verbose] > inl lengthMap : mapm.map i32 i64 =
00:05:58 #12542 [verbose] > table
00:05:58 #12543 [verbose] > |> am.map (fst >> listm.toArray)
00:05:58 #12544 [verbose] > |> am'.transpose
00:05:58 #12545 [verbose] > |> am.map fun column =>
00:05:58 #12546 [verbose] > column
00:05:58 #12547 [verbose] > |> am.map sm.length
00:05:58 #12548 [verbose] > |> am'.sort_descending
00:05:58 #12549 [verbose] > |> am'.try_item 0i32
00:05:58 #12550 [verbose] > |> optionm'.default_value 0i64
00:05:58 #12551 [verbose] > |> am'.indexed
00:05:58 #12552 [verbose] > |> fun (x : a i32 _) => x
00:05:58 #12553 [verbose] > |> mapm.of_array
00:05:58 #12554 [verbose] > table
00:05:58 #12555 [verbose] > |> am.map fun (row, color) =>
00:05:58 #12556 [verbose] > inl newRow =
00:05:58 #12557 [verbose] > row
00:05:58 #12558 [verbose] > |> listm'.indexed
00:05:58 #12559 [verbose] > |> listm.map fun (i, cell) =>
00:05:58 #12560 [verbose] > cell |> sm'.pad_right (lengthMap |> mapm.item i |> conv)
00:05:58 #12561 [verbose] > |> listm.toArray
00:05:58 #12562 [verbose] > newRow, color
00:05:58 #12563 [verbose] >
00:05:58 #12564 [verbose] > printfn ""
00:05:58 #12565 [verbose] > formattedTable
00:05:58 #12566 [verbose] > |> am.iter fun ((row : a i32 string), color) =>
00:05:58 #12567 [verbose] > match color with
00:05:58 #12568 [verbose] > | Some color => color |> console.set_foreground_color
00:05:58 #12569 [verbose] > | None => console.reset_color ()
00:05:58 #12570 [verbose] >
00:05:58 #12571 [verbose] > printfn (row |> sm'.join' "\t| ")
00:05:58 #12572 [verbose] >
00:05:58 #12573 [verbose] > console.reset_color ()
00:05:58 #12574 [verbose] >
00:05:58 #12575 [verbose] > inl averages : a u64 _ =
00:05:58 #12576 [verbose] > results
00:05:58 #12577 [verbose] > |> am.map fun result =>
00:05:58 #12578 [verbose] > result.TimeList
00:05:58 #12579 [verbose] > |> am.map ($"float" : i64 -> f64)
00:05:58 #12580 [verbose] > |> am'.transpose
00:05:58 #12581 [verbose] > |> am.map am'.average
00:05:58 #12582 [verbose] > |> am.map ($"int64" : f64 -> i64)
00:05:58 #12583 [verbose] > |> am'.indexed
00:05:58 #12584 [verbose] >
00:05:58 #12585 [verbose] > printfn ""
00:05:58 #12586 [verbose] > printfn "Average Ranking "
00:05:58 #12587 [verbose] > averages
00:05:58 #12588 [verbose] > |> am'.sort_by snd
00:05:58 #12589 [verbose] > |> am.iter fun ((i : i32), avg) =>
00:05:58 #12590 [verbose] > printfn ($"$\"Test case %d{!i + 1}. Average Time: %A{!avg} \"" :
00:05:58 #12591 [verbose] > string)
00:05:58 #12592 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1a2788b5ca4a2aaa62bbc35db9de0428fc34394e25edf2ac502037605cfe2210\main.spi
00:05:58 #12593 [verbose] >
00:05:58 #12594 [verbose] > ╭─[ 263.20ms - stdout ]────────────────────────────────────────────────────────╮
00:05:58 #12595 [verbose] > │ () │
00:05:58 #12596 [verbose] > │ │
00:05:58 #12597 [verbose] > │ │
00:05:58 #12598 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:58 #12599 [verbose] >
00:05:58 #12600 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:58 #12601 [verbose] > // // test
00:05:58 #12602 [verbose] >
00:05:58 #12603 [verbose] > inl is_fast () =
00:05:58 #12604 [verbose] > false
00:05:58 #12605 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\575256e3ba537f7595bcb8b4b5172cb4b4011c4ed7a5cb2fbcc4a03b33584948\main.spi
00:05:58 #12606 [verbose] >
00:05:58 #12607 [verbose] > ╭─[ 540.46ms - stdout ]────────────────────────────────────────────────────────╮
00:05:58 #12608 [verbose] > │ () │
00:05:58 #12609 [verbose] > │ │
00:05:58 #12610 [verbose] > │ │
00:05:58 #12611 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:58 #12612 [verbose] >
00:05:58 #12613 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:58 #12614 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:58 #12615 [verbose] > │ ## empty2Tests │
00:05:58 #12616 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:58 #12617 [verbose] >
00:05:58 #12618 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:05:58 #12619 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:05:58 #12620 [verbose] > │ Test: Empty2 │
00:05:58 #12621 [verbose] > │ │
00:05:58 #12622 [verbose] > │ Solution: (a, a) │
00:05:58 #12623 [verbose] > │ Test case 1. A. Time: 59L │
00:05:58 #12624 [verbose] > │ │
00:05:58 #12625 [verbose] > │ Solution: (a, a) │
00:05:58 #12626 [verbose] > │ Test case 1. A. Time: 53L │
00:05:58 #12627 [verbose] > │ │
00:05:58 #12628 [verbose] > │ Input | Expected | Result | Best │
00:05:58 #12629 [verbose] > │ --- | --- | --- | --- │
00:05:58 #12630 [verbose] > │ (a, a) | a | a | (1, 59) │
00:05:58 #12631 [verbose] > │ (a, a) | a | a | (1, 53) │
00:05:58 #12632 [verbose] > │ │
00:05:58 #12633 [verbose] > │ Averages │
00:05:58 #12634 [verbose] > │ Test case 1. Average Time: 56L │
00:05:58 #12635 [verbose] > │ │
00:05:58 #12636 [verbose] > │ Ranking │
00:05:58 #12637 [verbose] > │ Test case 1. Average Time: 56L │
00:05:58 #12638 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:05:58 #12639 [verbose] >
00:05:58 #12640 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:05:58 #12641 [verbose] > // // test
00:05:58 #12642 [verbose] >
00:05:58 #12643 [verbose] > inl get_solutions () =
00:05:58 #12644 [verbose] > [[
00:05:58 #12645 [verbose] > "A",
00:05:58 #12646 [verbose] > fun (a, _b) =>
00:05:58 #12647 [verbose] > a
00:05:58 #12648 [verbose] >
00:05:58 #12649 [verbose] > "B",
00:05:58 #12650 [verbose] > fun (_a, b) =>
00:05:58 #12651 [verbose] > b
00:05:58 #12652 [verbose] > ]]
00:05:58 #12653 [verbose] >
00:05:58 #12654 [verbose] > inl rec empty_2_tests () =
00:05:58 #12655 [verbose] > inl test_cases = [[
00:05:58 #12656 [verbose] > ("a", "a"), "a"
00:05:58 #12657 [verbose] > ("b", "b"), "b"
00:05:58 #12658 [verbose] > ]]
00:05:58 #12659 [verbose] >
00:05:58 #12660 [verbose] > inl solutions = get_solutions ()
00:05:58 #12661 [verbose] >
00:05:58 #12662 [verbose] > // inl is_fast () = true
00:05:58 #12663 [verbose] >
00:05:58 #12664 [verbose] > inl count =
00:05:58 #12665 [verbose] > if is_fast ()
00:05:58 #12666 [verbose] > then 1000i32
00:05:58 #12667 [verbose] > else 2000000i32
00:05:58 #12668 [verbose] >
00:05:58 #12669 [verbose] > run_all (nameof empty_2_tests) count solutions test_cases
00:05:58 #12670 [verbose] > |> sort_result_list
00:05:58 #12671 [verbose] >
00:05:58 #12672 [verbose] > empty_2_tests ()
00:05:59 #12673 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dea8ed6ed469796005161e1648fc8a19e78e51e2c5b520f8d99d0731a884f139\main.spi
00:06:09 #12674 [verbose] >
00:06:09 #12675 [verbose] > ╭─[ 10.86s - stdout ]──────────────────────────────────────────────────────────╮
00:06:09 #12676 [verbose] > │ type UH0 = │
00:06:09 #12677 [verbose] > │ | UH0_0 │
00:06:09 #12678 [verbose] > │ | UH0_1 of string * string * string * UH0 │
00:06:09 #12679 [verbose] > │ and Mut0 = {mutable l0 : uint64} │
00:06:09 #12680 [verbose] > │ and UH1 = │
00:06:09 #12681 [verbose] > │ | UH1_0 │
00:06:09 #12682 [verbose] > │ | UH1_1 of int32 * string * (struct (string * string) -> string) * UH1 │
00:06:09 #12683 [verbose] > │ and Mut1 = {mutable l0 : int32} │
00:06:09 #12684 [verbose] > │ and UH2 = │
00:06:09 #12685 [verbose] > │ | UH2_0 │
00:06:09 #12686 [verbose] > │ | UH2_1 of string * UH2 │
00:06:09 #12687 [verbose] > │ and [<Struct>] US0 = │
00:06:09 #12688 [verbose] > │ | US0_0 of f0_0 : System.ConsoleColor │
00:06:09 #12689 [verbose] > │ | US0_1 │
00:06:09 #12690 [verbose] > │ and UH3 = │
00:06:09 #12691 [verbose] > │ | UH3_0 │
00:06:09 #12692 [verbose] > │ | UH3_1 of int64 * int64 * UH3 │
00:06:09 #12693 [verbose] > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH3; mutable l2 : int64} │
00:06:09 #12694 [verbose] > │ and UH4 = │
00:06:09 #12695 [verbose] > │ | UH4_0 │
00:06:09 #12696 [verbose] > │ | UH4_1 of UH2 * US0 * UH4 │
00:06:09 #12697 [verbose] > │ and [<Struct>] US1 = │
00:06:09 #12698 [verbose] > │ | US1_0 of f0_0 : int64 │
00:06:09 #12699 [verbose] > │ | US1_1 │
00:06:09 #12700 [verbose] > │ and UH5 = │
00:06:09 #12701 [verbose] > │ | UH5_0 │
00:06:09 #12702 [verbose] > │ | UH5_1 of int32 * int64 * UH5 │
00:06:09 #12703 [verbose] > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH5; mutable l2 : int32} │
00:06:09 #12704 [verbose] > │ and UH6 = │
00:06:09 #12705 [verbose] > │ | UH6_0 │
00:06:09 #12706 [verbose] > │ | UH6_1 of int32 * string * UH6 │
00:06:09 #12707 [verbose] > │ let rec method2 (v0 : UH0, v1 : uint64) : uint64 = │
00:06:09 #12708 [verbose] > │ match v0 with │
00:06:09 #12709 [verbose] > │ | UH0_1(v2, v3, v4, v5) -> (* Cons *) │
00:06:09 #12710 [verbose] > │ let v6 : uint64 = v1 + 1UL │
00:06:09 #12711 [verbose] > │ method2(v5, v6) │
00:06:09 #12712 [verbose] > │ | UH0_0 -> (* Nil *) │
00:06:09 #12713 [verbose] > │ v1 │
00:06:09 #12714 [verbose] > │ and method3 (v0 : (struct (string * string * string) []), v1 : UH0, v2 : │
00:06:09 #12715 [verbose] > │ uint64) : uint64 = │
00:06:09 #12716 [verbose] > │ match v1 with │
00:06:09 #12717 [verbose] > │ | UH0_1(v3, v4, v5, v6) -> (* Cons *) │
00:06:09 #12718 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5) │
00:06:09 #12719 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:06:09 #12720 [verbose] > │ method3(v0, v6, v7) │
00:06:09 #12721 [verbose] > │ | UH0_0 -> (* Nil *) │
00:06:09 #12722 [verbose] > │ v2 │
00:06:09 #12723 [verbose] > │ and method1 (v0 : UH0) : (struct (string * string * string) []) = │
00:06:09 #12724 [verbose] > │ let v1 : uint64 = 0UL │
00:06:09 #12725 [verbose] > │ let v2 : uint64 = method2(v0, v1) │
00:06:09 #12726 [verbose] > │ let v3 : (struct (string * string * string) []) = │
00:06:09 #12727 [verbose] > │ Array.zeroCreate<struct (string * string * string)> │
00:06:09 #12728 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:06:09 #12729 [verbose] > │ let v4 : uint64 = 0UL │
00:06:09 #12730 [verbose] > │ let v5 : uint64 = method3(v3, v0, v4) │
00:06:09 #12731 [verbose] > │ v3 │
00:06:09 #12732 [verbose] > │ and method4 (v0 : uint64, v1 : Mut0) : bool = │
00:06:09 #12733 [verbose] > │ let v2 : uint64 = v1.l0 │
00:06:09 #12734 [verbose] > │ let v3 : bool = v2 < v0 │
00:06:09 #12735 [verbose] > │ v3 │
00:06:09 #12736 [verbose] > │ and closure1 () struct (v0 : string, v1 : string) : string = │
00:06:09 #12737 [verbose] > │ v0 │
00:06:09 #12738 [verbose] > │ and closure2 () struct (v0 : string, v1 : string) : string = │
00:06:09 #12739 [verbose] > │ v1 │
00:06:09 #12740 [verbose] > │ and method6 (v0 : UH1, v1 : uint64) : uint64 = │
00:06:09 #12741 [verbose] > │ match v0 with │
00:06:09 #12742 [verbose] > │ | UH1_1(v2, v3, v4, v5) -> (* Cons *) │
00:06:09 #12743 [verbose] > │ let v6 : uint64 = v1 + 1UL │
00:06:09 #12744 [verbose] > │ method6(v5, v6) │
00:06:09 #12745 [verbose] > │ | UH1_0 -> (* Nil *) │
00:06:09 #12746 [verbose] > │ v1 │
00:06:09 #12747 [verbose] > │ and method7 (v0 : (struct (int32 * string * (struct (string * string) -> │
00:06:09 #12748 [verbose] > │ string)) []), v1 : UH1, v2 : uint64) : uint64 = │
00:06:09 #12749 [verbose] > │ match v1 with │
00:06:09 #12750 [verbose] > │ | UH1_1(v3, v4, v5, v6) -> (* Cons *) │
00:06:09 #12751 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5) │
00:06:09 #12752 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:06:09 #12753 [verbose] > │ method7(v0, v6, v7) │
00:06:09 #12754 [verbose] > │ | UH1_0 -> (* Nil *) │
00:06:09 #12755 [verbose] > │ v2 │
00:06:09 #12756 [verbose] > │ and method5 (v0 : UH1) : (struct (int32 * string * (struct (string * string) │
00:06:09 #12757 [verbose] > │ -> string)) []) = │
00:06:09 #12758 [verbose] > │ let v1 : uint64 = 0UL │
00:06:09 #12759 [verbose] > │ let v2 : uint64 = method6(v0, v1) │
00:06:09 #12760 [verbose] > │ let v3 : (struct (int32 * string * (struct (string * string) -> string)) │
00:06:09 #12761 [verbose] > │ []) = Array.zeroCreate<struct (int32 * string * (struct (string * string) -> │
00:06:09 #12762 [verbose] > │ string))> (System.Convert.ToInt32(v2)) │
00:06:09 #12763 [verbose] > │ let v4 : uint64 = 0UL │
00:06:09 #12764 [verbose] > │ let v5 : uint64 = method7(v3, v0, v4) │
00:06:09 #12765 [verbose] > │ v3 │
00:06:09 #12766 [verbose] > │ and method8 (v0 : Mut1) : bool = │
00:06:09 #12767 [verbose] > │ let v1 : int32 = v0.l0 │
00:06:09 #12768 [verbose] > │ let v2 : bool = v1 < 2000001 │
00:06:09 #12769 [verbose] > │ v2 │
00:06:09 #12770 [verbose] > │ and closure3 (v0 : string, v1 : string, v2 : (struct (string * string) -> │
00:06:09 #12771 [verbose] > │ string)) (v3 : int32) : string = │
00:06:09 #12772 [verbose] > │ v2 struct (v0, v1) │
00:06:09 #12773 [verbose] > │ and method9 (v0 : string, v1 : (string []), v2 : uint64) : bool = │
00:06:09 #12774 [verbose] > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:06:09 #12775 [verbose] > │ let v4 : bool = v2 < v3 │
00:06:09 #12776 [verbose] > │ if v4 then │
00:06:09 #12777 [verbose] > │ let v5 : string = v1.[int v2] │
00:06:09 #12778 [verbose] > │ let v6 : bool = v0 = v5 │
00:06:09 #12779 [verbose] > │ if v6 then │
00:06:09 #12780 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:06:09 #12781 [verbose] > │ method9(v0, v1, v7) │
00:06:09 #12782 [verbose] > │ else │
00:06:09 #12783 [verbose] > │ false │
00:06:09 #12784 [verbose] > │ else │
00:06:09 #12785 [verbose] > │ true │
00:06:09 #12786 [verbose] > │ and method10 (v0 : uint64, v1 : Mut2) : bool = │
00:06:09 #12787 [verbose] > │ let v2 : uint64 = v1.l0 │
00:06:09 #12788 [verbose] > │ let v3 : bool = v2 < v0 │
00:06:09 #12789 [verbose] > │ v3 │
00:06:09 #12790 [verbose] > │ and method11 (v0 : UH3, v1 : UH3) : UH3 = │
00:06:09 #12791 [verbose] > │ match v0 with │
00:06:09 #12792 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:06:09 #12793 [verbose] > │ let v5 : UH3 = UH3_1(v2, v3, v1) │
00:06:09 #12794 [verbose] > │ method11(v4, v5) │
00:06:09 #12795 [verbose] > │ | UH3_0 -> (* Nil *) │
00:06:09 #12796 [verbose] > │ v1 │
00:06:09 #12797 [verbose] > │ and method13 (v0 : UH3, v1 : int32) : int32 = │
00:06:09 #12798 [verbose] > │ match v0 with │
00:06:09 #12799 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:06:09 #12800 [verbose] > │ let v5 : int32 = v1 + 1 │
00:06:09 #12801 [verbose] > │ method13(v4, v5) │
00:06:10 #12802 [verbose] > │ | UH3_0 -> (* Nil *) │
00:06:10 #12803 [verbose] > │ v1 │
00:06:10 #12804 [verbose] > │ and method14 (v0 : (struct (int64 * int64) []), v1 : UH3, v2 : int32) : │
00:06:10 #12805 [verbose] > │ int32 = │
00:06:10 #12806 [verbose] > │ match v1 with │
00:06:10 #12807 [verbose] > │ | UH3_1(v3, v4, v5) -> (* Cons *) │
00:06:10 #12808 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:06:10 #12809 [verbose] > │ let v6 : int32 = v2 + 1 │
00:06:10 #12810 [verbose] > │ method14(v0, v5, v6) │
00:06:10 #12811 [verbose] > │ | UH3_0 -> (* Nil *) │
00:06:10 #12812 [verbose] > │ v2 │
00:06:10 #12813 [verbose] > │ and method12 (v0 : UH3) : (struct (int64 * int64) []) = │
00:06:10 #12814 [verbose] > │ let v1 : int32 = 0 │
00:06:10 #12815 [verbose] > │ let v2 : int32 = method13(v0, v1) │
00:06:10 #12816 [verbose] > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:06:10 #12817 [verbose] > │ int64)> (v2) │
00:06:10 #12818 [verbose] > │ let v4 : int32 = 0 │
00:06:10 #12819 [verbose] > │ let v5 : int32 = method14(v3, v0, v4) │
00:06:10 #12820 [verbose] > │ v3 │
00:06:10 #12821 [verbose] > │ and method15 (v0 : int32, v1 : Mut1) : bool = │
00:06:10 #12822 [verbose] > │ let v2 : int32 = v1.l0 │
00:06:10 #12823 [verbose] > │ let v3 : bool = v2 < v0 │
00:06:10 #12824 [verbose] > │ v3 │
00:06:10 #12825 [verbose] > │ and closure4 () struct (v0 : int64, v1 : int64) : int64 = │
00:06:10 #12826 [verbose] > │ v1 │
00:06:10 #12827 [verbose] > │ and method17 (v0 : UH4, v1 : uint64) : uint64 = │
00:06:10 #12828 [verbose] > │ match v0 with │
00:06:10 #12829 [verbose] > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:06:10 #12830 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:06:10 #12831 [verbose] > │ method17(v4, v5) │
00:06:10 #12832 [verbose] > │ | UH4_0 -> (* Nil *) │
00:06:10 #12833 [verbose] > │ v1 │
00:06:10 #12834 [verbose] > │ and method18 (v0 : (struct (UH2 * US0) []), v1 : UH4, v2 : uint64) : uint64 │
00:06:10 #12835 [verbose] > │ = │
00:06:10 #12836 [verbose] > │ match v1 with │
00:06:10 #12837 [verbose] > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:06:10 #12838 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:06:10 #12839 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:06:10 #12840 [verbose] > │ method18(v0, v5, v6) │
00:06:10 #12841 [verbose] > │ | UH4_0 -> (* Nil *) │
00:06:10 #12842 [verbose] > │ v2 │
00:06:10 #12843 [verbose] > │ and method16 (v0 : UH4) : (struct (UH2 * US0) []) = │
00:06:10 #12844 [verbose] > │ let v1 : uint64 = 0UL │
00:06:10 #12845 [verbose] > │ let v2 : uint64 = method17(v0, v1) │
00:06:10 #12846 [verbose] > │ let v3 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:06:10 #12847 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:06:10 #12848 [verbose] > │ let v4 : uint64 = 0UL │
00:06:10 #12849 [verbose] > │ let v5 : uint64 = method18(v3, v0, v4) │
00:06:10 #12850 [verbose] > │ v3 │
00:06:10 #12851 [verbose] > │ and method20 (v0 : UH2, v1 : uint64) : uint64 = │
00:06:10 #12852 [verbose] > │ match v0 with │
00:06:10 #12853 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:06:10 #12854 [verbose] > │ let v4 : uint64 = v1 + 1UL │
00:06:10 #12855 [verbose] > │ method20(v3, v4) │
00:06:10 #12856 [verbose] > │ | UH2_0 -> (* Nil *) │
00:06:10 #12857 [verbose] > │ v1 │
00:06:10 #12858 [verbose] > │ and method21 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:06:10 #12859 [verbose] > │ match v1 with │
00:06:10 #12860 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:06:10 #12861 [verbose] > │ v0.[int v2] <- v3 │
00:06:10 #12862 [verbose] > │ let v5 : uint64 = v2 + 1UL │
00:06:10 #12863 [verbose] > │ method21(v0, v4, v5) │
00:06:10 #12864 [verbose] > │ | UH2_0 -> (* Nil *) │
00:06:10 #12865 [verbose] > │ v2 │
00:06:10 #12866 [verbose] > │ and method19 (v0 : UH2) : (string []) = │
00:06:10 #12867 [verbose] > │ let v1 : uint64 = 0UL │
00:06:10 #12868 [verbose] > │ let v2 : uint64 = method20(v0, v1) │
00:06:10 #12869 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> │
00:06:10 #12870 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:06:10 #12871 [verbose] > │ let v4 : uint64 = 0UL │
00:06:10 #12872 [verbose] > │ let v5 : uint64 = method21(v3, v0, v4) │
00:06:10 #12873 [verbose] > │ v3 │
00:06:10 #12874 [verbose] > │ and closure5 () (v0 : int64) : US1 = │
00:06:10 #12875 [verbose] > │ US1_0(v0) │
00:06:10 #12876 [verbose] > │ and method22 () : (int64 -> US1) = │
00:06:10 #12877 [verbose] > │ closure5() │
00:06:10 #12878 [verbose] > │ and method23 (v0 : uint64, v1 : Mut3) : bool = │
00:06:10 #12879 [verbose] > │ let v2 : uint64 = v1.l0 │
00:06:10 #12880 [verbose] > │ let v3 : bool = v2 < v0 │
00:06:10 #12881 [verbose] > │ v3 │
00:06:10 #12882 [verbose] > │ and method24 (v0 : UH5, v1 : UH5) : UH5 = │
00:06:10 #12883 [verbose] > │ match v0 with │
00:06:10 #12884 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:06:10 #12885 [verbose] > │ let v5 : UH5 = UH5_1(v2, v3, v1) │
00:06:10 #12886 [verbose] > │ method24(v4, v5) │
00:06:10 #12887 [verbose] > │ | UH5_0 -> (* Nil *) │
00:06:10 #12888 [verbose] > │ v1 │
00:06:10 #12889 [verbose] > │ and method26 (v0 : UH5, v1 : int32) : int32 = │
00:06:10 #12890 [verbose] > │ match v0 with │
00:06:10 #12891 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:06:10 #12892 [verbose] > │ let v5 : int32 = v1 + 1 │
00:06:10 #12893 [verbose] > │ method26(v4, v5) │
00:06:10 #12894 [verbose] > │ | UH5_0 -> (* Nil *) │
00:06:10 #12895 [verbose] > │ v1 │
00:06:10 #12896 [verbose] > │ and method27 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : int32) : │
00:06:10 #12897 [verbose] > │ int32 = │
00:06:10 #12898 [verbose] > │ match v1 with │
00:06:10 #12899 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:06:10 #12900 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:06:10 #12901 [verbose] > │ let v6 : int32 = v2 + 1 │
00:06:10 #12902 [verbose] > │ method27(v0, v5, v6) │
00:06:10 #12903 [verbose] > │ | UH5_0 -> (* Nil *) │
00:06:10 #12904 [verbose] > │ v2 │
00:06:10 #12905 [verbose] > │ and method25 (v0 : UH5) : (struct (int32 * int64) []) = │
00:06:10 #12906 [verbose] > │ let v1 : int32 = 0 │
00:06:10 #12907 [verbose] > │ let v2 : int32 = method26(v0, v1) │
00:06:10 #12908 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:06:10 #12909 [verbose] > │ int64)> (v2) │
00:06:10 #12910 [verbose] > │ let v4 : int32 = 0 │
00:06:10 #12911 [verbose] > │ let v5 : int32 = method27(v3, v0, v4) │
00:06:10 #12912 [verbose] > │ v3 │
00:06:10 #12913 [verbose] > │ and method28 (v0 : UH2, v1 : UH6, v2 : int32) : struct (UH6 * int32) = │
00:06:10 #12914 [verbose] > │ match v0 with │
00:06:10 #12915 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:06:10 #12916 [verbose] > │ let v5 : int32 = v2 + 1 │
00:06:10 #12917 [verbose] > │ let v6 : UH6 = UH6_1(v2, v3, v1) │
00:06:10 #12918 [verbose] > │ method28(v4, v6, v5) │
00:06:10 #12919 [verbose] > │ | UH2_0 -> (* Nil *) │
00:06:10 #12920 [verbose] > │ struct (v1, v2) │
00:06:10 #12921 [verbose] > │ and method29 (v0 : UH6, v1 : UH6) : UH6 = │
00:06:10 #12922 [verbose] > │ match v0 with │
00:06:10 #12923 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:06:10 #12924 [verbose] > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:06:10 #12925 [verbose] > │ method29(v4, v5) │
00:06:10 #12926 [verbose] > │ | UH6_0 -> (* Nil *) │
00:06:10 #12927 [verbose] > │ v1 │
00:06:10 #12928 [verbose] > │ and method30 (v0 : Map<int32, int64>, v1 : UH6, v2 : UH2) : UH2 = │
00:06:10 #12929 [verbose] > │ match v1 with │
00:06:10 #12930 [verbose] > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:06:10 #12931 [verbose] > │ let v6 : UH2 = method30(v0, v5, v2) │
00:06:10 #12932 [verbose] > │ let v7 : int64 = v0.[v3] │
00:06:10 #12933 [verbose] > │ let v8 : int32 = int32 v7 │
00:06:10 #12934 [verbose] > │ let v9 : string = v4.PadRight v8 │
00:06:10 #12935 [verbose] > │ UH2_1(v9, v6) │
00:06:10 #12936 [verbose] > │ | UH6_0 -> (* Nil *) │
00:06:10 #12937 [verbose] > │ v2 │
00:06:10 #12938 [verbose] > │ and method32 (v0 : UH2, v1 : int32) : int32 = │
00:06:10 #12939 [verbose] > │ match v0 with │
00:06:10 #12940 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:06:10 #12941 [verbose] > │ let v4 : int32 = v1 + 1 │
00:06:10 #12942 [verbose] > │ method32(v3, v4) │
00:06:10 #12943 [verbose] > │ | UH2_0 -> (* Nil *) │
00:06:10 #12944 [verbose] > │ v1 │
00:06:10 #12945 [verbose] > │ and method33 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:06:10 #12946 [verbose] > │ match v1 with │
00:06:10 #12947 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:06:10 #12948 [verbose] > │ v0.[int v2] <- v3 │
00:06:10 #12949 [verbose] > │ let v5 : int32 = v2 + 1 │
00:06:10 #12950 [verbose] > │ method33(v0, v4, v5) │
00:06:10 #12951 [verbose] > │ | UH2_0 -> (* Nil *) │
00:06:10 #12952 [verbose] > │ v2 │
00:06:10 #12953 [verbose] > │ and method31 (v0 : UH2) : (string []) = │
00:06:10 #12954 [verbose] > │ let v1 : int32 = 0 │
00:06:10 #12955 [verbose] > │ let v2 : int32 = method32(v0, v1) │
00:06:10 #12956 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:06:10 #12957 [verbose] > │ let v4 : int32 = 0 │
00:06:10 #12958 [verbose] > │ let v5 : int32 = method33(v3, v0, v4) │
00:06:10 #12959 [verbose] > │ v3 │
00:06:10 #12960 [verbose] > │ and method35 (v0 : UH5, v1 : uint64) : uint64 = │
00:06:10 #12961 [verbose] > │ match v0 with │
00:06:10 #12962 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:06:10 #12963 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:06:10 #12964 [verbose] > │ method35(v4, v5) │
00:06:10 #12965 [verbose] > │ | UH5_0 -> (* Nil *) │
00:06:10 #12966 [verbose] > │ v1 │
00:06:10 #12967 [verbose] > │ and method36 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : uint64) : │
00:06:10 #12968 [verbose] > │ uint64 = │
00:06:10 #12969 [verbose] > │ match v1 with │
00:06:10 #12970 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:06:10 #12971 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:06:10 #12972 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:06:10 #12973 [verbose] > │ method36(v0, v5, v6) │
00:06:10 #12974 [verbose] > │ | UH5_0 -> (* Nil *) │
00:06:10 #12975 [verbose] > │ v2 │
00:06:10 #12976 [verbose] > │ and method34 (v0 : UH5) : (struct (int32 * int64) []) = │
00:06:10 #12977 [verbose] > │ let v1 : uint64 = 0UL │
00:06:10 #12978 [verbose] > │ let v2 : uint64 = method35(v0, v1) │
00:06:10 #12979 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:06:10 #12980 [verbose] > │ int64)> (System.Convert.ToInt32(v2)) │
00:06:10 #12981 [verbose] > │ let v4 : uint64 = 0UL │
00:06:10 #12982 [verbose] > │ let v5 : uint64 = method36(v3, v0, v4) │
00:06:10 #12983 [verbose] > │ v3 │
00:06:10 #12984 [verbose] > │ and closure6 () struct (v0 : int32, v1 : int64) : int64 = │
00:06:10 #12985 [verbose] > │ v1 │
00:06:10 #12986 [verbose] > │ and closure0 () () : unit = │
00:06:10 #12987 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:06:10 #12988 [verbose] > │ let v1 : string = nameof v0 │
00:06:10 #12989 [verbose] > │ let v2 : string = "" │
00:06:10 #12990 [verbose] > │ System.Console.WriteLine v2 │
00:06:10 #12991 [verbose] > │ System.Console.WriteLine v2 │
00:06:10 #12992 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:06:10 #12993 [verbose] > │ System.Console.WriteLine v3 │
00:06:10 #12994 [verbose] > │ let v4 : string = "a" │
00:06:10 #12995 [verbose] > │ let v5 : string = "b" │
00:06:10 #12996 [verbose] > │ let v6 : UH0 = UH0_0 │
00:06:10 #12997 [verbose] > │ let v7 : UH0 = UH0_1(v5, v5, v5, v6) │
00:06:10 #12998 [verbose] > │ let v8 : UH0 = UH0_1(v4, v4, v4, v7) │
00:06:10 #12999 [verbose] > │ let v9 : (struct (string * string * string) []) = method1(v8) │
00:06:10 #13000 [verbose] > │ let v10 : uint64 = System.Convert.ToUInt64 v9.Length │
00:06:10 #13001 [verbose] > │ let v11 : (struct (string * string * string * (int64 [])) []) = │
00:06:10 #13002 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:06:10 #13003 [verbose] > │ (System.Convert.ToInt32(v10)) │
00:06:10 #13004 [verbose] > │ let v12 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13005 [verbose] > │ while method4(v10, v12) do │
00:06:10 #13006 [verbose] > │ let v14 : uint64 = v12.l0 │
00:06:10 #13007 [verbose] > │ let struct (v15 : string, v16 : string, v17 : string) = v9.[int v14] │
00:06:10 #13008 [verbose] > │ let v18 : string = $"%A{struct (v15, v16)}" │
00:06:10 #13009 [verbose] > │ System.Console.WriteLine v2 │
00:06:10 #13010 [verbose] > │ let v19 : string = $"Solution: {v18} " │
00:06:10 #13011 [verbose] > │ System.Console.WriteLine v19 │
00:06:10 #13012 [verbose] > │ let v20 : int32 = 0 │
00:06:10 #13013 [verbose] > │ let v21 : string = "A" │
00:06:10 #13014 [verbose] > │ let v22 : (struct (string * string) -> string) = closure1() │
00:06:10 #13015 [verbose] > │ let v23 : int32 = 1 │
00:06:10 #13016 [verbose] > │ let v24 : string = "B" │
00:06:10 #13017 [verbose] > │ let v25 : (struct (string * string) -> string) = closure2() │
00:06:10 #13018 [verbose] > │ let v26 : UH1 = UH1_0 │
00:06:10 #13019 [verbose] > │ let v27 : UH1 = UH1_1(v23, v24, v25, v26) │
00:06:10 #13020 [verbose] > │ let v28 : UH1 = UH1_1(v20, v21, v22, v27) │
00:06:10 #13021 [verbose] > │ let v29 : (struct (int32 * string * (struct (string * string) -> │
00:06:10 #13022 [verbose] > │ string)) []) = method5(v28) │
00:06:10 #13023 [verbose] > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:06:10 #13024 [verbose] > │ let v31 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:06:10 #13025 [verbose] > │ (string * int64)> (System.Convert.ToInt32(v30)) │
00:06:10 #13026 [verbose] > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13027 [verbose] > │ while method4(v30, v32) do │
00:06:10 #13028 [verbose] > │ let v34 : uint64 = v32.l0 │
00:06:10 #13029 [verbose] > │ let struct (v35 : int32, v36 : string, v37 : (struct (string * │
00:06:10 #13030 [verbose] > │ string) -> string)) = v29.[int v34] │
00:06:10 #13031 [verbose] > │ let v38 : unit option = None │
00:06:10 #13032 [verbose] > │ let mutable _v38 = v38 │
00:06:10 #13033 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:10 #13034 [verbose] > │ () │
00:06:10 #13035 [verbose] > │ #endif │
00:06:10 #13036 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:10 #13037 [verbose] > │ () │
00:06:10 #13038 [verbose] > │ #endif │
00:06:10 #13039 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:10 #13040 [verbose] > │ () │
00:06:10 #13041 [verbose] > │ #endif │
00:06:10 #13042 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:10 #13043 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:10 #13044 [verbose] > │ System.GC.Collect () │
00:06:10 #13045 [verbose] > │ () │
00:06:10 #13046 [verbose] > │ #endif │
00:06:10 #13047 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:10 #13048 [verbose] > │ () │
00:06:10 #13049 [verbose] > │ #endif │
00:06:10 #13050 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:10 #13051 [verbose] > │ FABLE_COMPILER_DART │
00:06:10 #13052 [verbose] > │ Unchecked.defaultof<unit> │
00:06:10 #13053 [verbose] > │ () │
00:06:10 #13054 [verbose] > │ #endif │
00:06:10 #13055 [verbose] > │ |> fun x -> _v38 <- Some x │
00:06:10 #13056 [verbose] > │ _v38.Value │
00:06:10 #13057 [verbose] > │ let v39 : (unit -> System.Diagnostics.Stopwatch) = │
00:06:10 #13058 [verbose] > │ System.Diagnostics.Stopwatch │
00:06:10 #13059 [verbose] > │ let v40 : System.Diagnostics.Stopwatch = v39 () │
00:06:10 #13060 [verbose] > │ v40.Start () │
00:06:10 #13061 [verbose] > │ let v41 : int64 = v40.ElapsedMilliseconds │
00:06:10 #13062 [verbose] > │ let v42 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:06:10 #13063 [verbose] > │ let v43 : Mut1 = {l0 = 0} : Mut1 │
00:06:10 #13064 [verbose] > │ while method8(v43) do │
00:06:10 #13065 [verbose] > │ let v45 : int32 = v43.l0 │
00:06:10 #13066 [verbose] > │ v42.[int v45] <- v45 │
00:06:10 #13067 [verbose] > │ let v46 : int32 = v45 + 1 │
00:06:10 #13068 [verbose] > │ v43.l0 <- v46 │
00:06:10 #13069 [verbose] > │ () │
00:06:10 #13070 [verbose] > │ let v47 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:06:10 #13071 [verbose] > │ Array.Parallel.map │
00:06:10 #13072 [verbose] > │ let v48 : (int32 -> string) = closure3(v15, v16, v37) │
00:06:10 #13073 [verbose] > │ let v49 : ((int32 []) -> (string [])) = v47 v48 │
00:06:10 #13074 [verbose] > │ let v50 : (string []) = v49 v42 │
00:06:10 #13075 [verbose] > │ let v51 : int32 = v50.Length │
00:06:10 #13076 [verbose] > │ let v52 : int32 = v51 - 1 │
00:06:10 #13077 [verbose] > │ let v53 : string = v50.[int v52] │
00:06:10 #13078 [verbose] > │ let v54 : int64 = v40.ElapsedMilliseconds │
00:06:10 #13079 [verbose] > │ let v55 : int64 = v54 - v41 │
00:06:10 #13080 [verbose] > │ let v56 : string = $"Test case {v35 + 1}. {v36}. Time: {v55} " │
00:06:10 #13081 [verbose] > │ System.Console.WriteLine v56 │
00:06:10 #13082 [verbose] > │ v31.[int v34] <- struct (v53, v55) │
00:06:10 #13083 [verbose] > │ let v57 : uint64 = v34 + 1UL │
00:06:10 #13084 [verbose] > │ v32.l0 <- v57 │
00:06:10 #13085 [verbose] > │ () │
00:06:10 #13086 [verbose] > │ let v58 : uint64 = System.Convert.ToUInt64 v31.Length │
00:06:10 #13087 [verbose] > │ let v59 : (string []) = Array.zeroCreate<string> │
00:06:10 #13088 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:10 #13089 [verbose] > │ let v60 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13090 [verbose] > │ while method4(v58, v60) do │
00:06:10 #13091 [verbose] > │ let v62 : uint64 = v60.l0 │
00:06:10 #13092 [verbose] > │ let struct (v63 : string, v64 : int64) = v31.[int v62] │
00:06:10 #13093 [verbose] > │ v59.[int v62] <- v63 │
00:06:10 #13094 [verbose] > │ let v65 : uint64 = v62 + 1UL │
00:06:10 #13095 [verbose] > │ v60.l0 <- v65 │
00:06:10 #13096 [verbose] > │ () │
00:06:10 #13097 [verbose] > │ let v66 : uint64 = System.Convert.ToUInt64 v59.Length │
00:06:10 #13098 [verbose] > │ let v67 : bool = v66 <= 1UL │
00:06:10 #13099 [verbose] > │ if v67 then │
00:06:10 #13100 [verbose] > │ () │
00:06:10 #13101 [verbose] > │ else │
00:06:10 #13102 [verbose] > │ let v68 : string = v59.[int 0UL] │
00:06:10 #13103 [verbose] > │ let v69 : uint64 = 0UL │
00:06:10 #13104 [verbose] > │ let v70 : bool = method9(v68, v59, v69) │
00:06:10 #13105 [verbose] > │ if v70 then │
00:06:10 #13106 [verbose] > │ () │
00:06:10 #13107 [verbose] > │ else │
00:06:10 #13108 [verbose] > │ let v71 : string = $"Challenge error: {v59}" │
00:06:10 #13109 [verbose] > │ failwith<unit> v71 │
00:06:10 #13110 [verbose] > │ let v72 : string = $"%A{v17}" │
00:06:10 #13111 [verbose] > │ let v73 : (string []) = Array.zeroCreate<string> │
00:06:10 #13112 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:10 #13113 [verbose] > │ let v74 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13114 [verbose] > │ while method4(v58, v74) do │
00:06:10 #13115 [verbose] > │ let v76 : uint64 = v74.l0 │
00:06:10 #13116 [verbose] > │ let struct (v77 : string, v78 : int64) = v31.[int v76] │
00:06:10 #13117 [verbose] > │ v73.[int v76] <- v77 │
00:06:10 #13118 [verbose] > │ let v79 : uint64 = v76 + 1UL │
00:06:10 #13119 [verbose] > │ v74.l0 <- v79 │
00:06:10 #13120 [verbose] > │ () │
00:06:10 #13121 [verbose] > │ let v80 : string = v73.[int 0UL] │
00:06:10 #13122 [verbose] > │ let v81 : string = $"%A{v80}" │
00:06:10 #13123 [verbose] > │ let v82 : (int64 []) = Array.zeroCreate<int64> │
00:06:10 #13124 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:10 #13125 [verbose] > │ let v83 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13126 [verbose] > │ while method4(v58, v83) do │
00:06:10 #13127 [verbose] > │ let v85 : uint64 = v83.l0 │
00:06:10 #13128 [verbose] > │ let struct (v86 : string, v87 : int64) = v31.[int v85] │
00:06:10 #13129 [verbose] > │ v82.[int v85] <- v87 │
00:06:10 #13130 [verbose] > │ let v88 : uint64 = v85 + 1UL │
00:06:10 #13131 [verbose] > │ v83.l0 <- v88 │
00:06:10 #13132 [verbose] > │ () │
00:06:10 #13133 [verbose] > │ v11.[int v14] <- struct (v72, v18, v81, v82) │
00:06:10 #13134 [verbose] > │ let v89 : uint64 = v14 + 1UL │
00:06:10 #13135 [verbose] > │ v12.l0 <- v89 │
00:06:10 #13136 [verbose] > │ () │
00:06:10 #13137 [verbose] > │ let v90 : uint64 = System.Convert.ToUInt64 v11.Length │
00:06:10 #13138 [verbose] > │ let v91 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:06:10 #13139 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:06:10 #13140 [verbose] > │ let v92 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13141 [verbose] > │ while method4(v90, v92) do │
00:06:10 #13142 [verbose] > │ let v94 : uint64 = v92.l0 │
00:06:10 #13143 [verbose] > │ let struct (v95 : string, v96 : string, v97 : string, v98 : (int64 [ │
00:06:10 #13144 [verbose] > │ ])) = v11.[int v94] │
00:06:10 #13145 [verbose] > │ let v99 : uint64 = System.Convert.ToUInt64 v98.Length │
00:06:10 #13146 [verbose] > │ let v100 : UH3 = UH3_0 │
00:06:10 #13147 [verbose] > │ let v101 : Mut2 = {l0 = 0UL; l1 = v100; l2 = 0L} : Mut2 │
00:06:10 #13148 [verbose] > │ while method10(v99, v101) do │
00:06:10 #13149 [verbose] > │ let v103 : uint64 = v101.l0 │
00:06:10 #13150 [verbose] > │ let struct (v104 : UH3, v105 : int64) = v101.l1, v101.l2 │
00:06:10 #13151 [verbose] > │ let v106 : int64 = v98.[int v103] │
00:06:10 #13152 [verbose] > │ let v107 : int64 = v105 + 1L │
00:06:10 #13153 [verbose] > │ let v108 : uint64 = v103 + 1UL │
00:06:10 #13154 [verbose] > │ let v109 : UH3 = UH3_1(v105, v106, v104) │
00:06:10 #13155 [verbose] > │ v101.l0 <- v108 │
00:06:10 #13156 [verbose] > │ v101.l1 <- v109 │
00:06:10 #13157 [verbose] > │ v101.l2 <- v107 │
00:06:10 #13158 [verbose] > │ () │
00:06:10 #13159 [verbose] > │ let struct (v110 : UH3, v111 : int64) = v101.l1, v101.l2 │
00:06:10 #13160 [verbose] > │ let v112 : UH3 = UH3_0 │
00:06:10 #13161 [verbose] > │ let v113 : UH3 = method11(v110, v112) │
00:06:10 #13162 [verbose] > │ let v114 : (struct (int64 * int64) []) = method12(v113) │
00:06:10 #13163 [verbose] > │ let v115 : int32 = v114.Length │
00:06:10 #13164 [verbose] > │ let v116 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:06:10 #13165 [verbose] > │ (int64 * int64)> (v115) │
00:06:10 #13166 [verbose] > │ let v117 : Mut1 = {l0 = 0} : Mut1 │
00:06:10 #13167 [verbose] > │ while method15(v115, v117) do │
00:06:10 #13168 [verbose] > │ let v119 : int32 = v117.l0 │
00:06:10 #13169 [verbose] > │ let struct (v120 : int64, v121 : int64) = v114.[int v119] │
00:06:10 #13170 [verbose] > │ let v122 : int64 = v120 + 1L │
00:06:10 #13171 [verbose] > │ v116.[int v119] <- struct (v122, v121) │
00:06:10 #13172 [verbose] > │ let v123 : int32 = v119 + 1 │
00:06:10 #13173 [verbose] > │ v117.l0 <- v123 │
00:06:10 #13174 [verbose] > │ () │
00:06:10 #13175 [verbose] > │ let v124 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:06:10 #13176 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:06:10 #13177 [verbose] > │ let v125 : (struct (int64 * int64) -> int64) = closure4() │
00:06:10 #13178 [verbose] > │ let v126 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:06:10 #13179 [verbose] > │ ])) = v124 v125 │
00:06:10 #13180 [verbose] > │ let v127 : (struct (int64 * int64) []) = v126 v116 │
00:06:10 #13181 [verbose] > │ let struct (v128 : int64, v129 : int64) = v127.[int 0] │
00:06:10 #13182 [verbose] > │ let v130 : string = $"%A{struct (v128, v129)}" │
00:06:10 #13183 [verbose] > │ let v131 : bool = v95 = v97 │
00:06:10 #13184 [verbose] > │ let v136 : US0 = │
00:06:10 #13185 [verbose] > │ if v131 then │
00:06:10 #13186 [verbose] > │ let v132 : System.ConsoleColor = │
00:06:10 #13187 [verbose] > │ System.ConsoleColor.DarkGreen │
00:06:10 #13188 [verbose] > │ US0_0(v132) │
00:06:10 #13189 [verbose] > │ else │
00:06:10 #13190 [verbose] > │ let v134 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:06:10 #13191 [verbose] > │ US0_0(v134) │
00:06:10 #13192 [verbose] > │ let v137 : UH2 = UH2_0 │
00:06:10 #13193 [verbose] > │ let v138 : UH2 = UH2_1(v130, v137) │
00:06:10 #13194 [verbose] > │ let v139 : UH2 = UH2_1(v97, v138) │
00:06:10 #13195 [verbose] > │ let v140 : UH2 = UH2_1(v95, v139) │
00:06:10 #13196 [verbose] > │ let v141 : UH2 = UH2_1(v96, v140) │
00:06:10 #13197 [verbose] > │ v91.[int v94] <- struct (v141, v136) │
00:06:10 #13198 [verbose] > │ let v142 : uint64 = v94 + 1UL │
00:06:10 #13199 [verbose] > │ v92.l0 <- v142 │
00:06:10 #13200 [verbose] > │ () │
00:06:10 #13201 [verbose] > │ let v143 : string = "Input" │
00:06:10 #13202 [verbose] > │ let v144 : string = "Expected" │
00:06:10 #13203 [verbose] > │ let v145 : string = "Result" │
00:06:10 #13204 [verbose] > │ let v146 : string = "Best" │
00:06:10 #13205 [verbose] > │ let v147 : UH2 = UH2_0 │
00:06:10 #13206 [verbose] > │ let v148 : UH2 = UH2_1(v146, v147) │
00:06:10 #13207 [verbose] > │ let v149 : UH2 = UH2_1(v145, v148) │
00:06:10 #13208 [verbose] > │ let v150 : UH2 = UH2_1(v144, v149) │
00:06:10 #13209 [verbose] > │ let v151 : UH2 = UH2_1(v143, v150) │
00:06:10 #13210 [verbose] > │ let v152 : US0 = US0_1 │
00:06:10 #13211 [verbose] > │ let v153 : string = "---" │
00:06:10 #13212 [verbose] > │ let v154 : UH2 = UH2_0 │
00:06:10 #13213 [verbose] > │ let v155 : UH2 = UH2_1(v153, v154) │
00:06:10 #13214 [verbose] > │ let v156 : UH2 = UH2_1(v153, v155) │
00:06:10 #13215 [verbose] > │ let v157 : UH2 = UH2_1(v153, v156) │
00:06:10 #13216 [verbose] > │ let v158 : UH2 = UH2_1(v153, v157) │
00:06:10 #13217 [verbose] > │ let v159 : US0 = US0_1 │
00:06:10 #13218 [verbose] > │ let v160 : UH4 = UH4_0 │
00:06:10 #13219 [verbose] > │ let v161 : UH4 = UH4_1(v158, v159, v160) │
00:06:10 #13220 [verbose] > │ let v162 : UH4 = UH4_1(v151, v152, v161) │
00:06:10 #13221 [verbose] > │ let v163 : (struct (UH2 * US0) []) = method16(v162) │
00:06:10 #13222 [verbose] > │ let v164 : uint64 = System.Convert.ToUInt64 v163.Length │
00:06:10 #13223 [verbose] > │ let v165 : uint64 = System.Convert.ToUInt64 v91.Length │
00:06:10 #13224 [verbose] > │ let v166 : uint64 = v164 + v165 │
00:06:10 #13225 [verbose] > │ let v167 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:06:10 #13226 [verbose] > │ US0)> (System.Convert.ToInt32(v166)) │
00:06:10 #13227 [verbose] > │ let v168 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13228 [verbose] > │ while method4(v166, v168) do │
00:06:10 #13229 [verbose] > │ let v170 : uint64 = v168.l0 │
00:06:10 #13230 [verbose] > │ let v171 : bool = v170 < v164 │
00:06:10 #13231 [verbose] > │ let struct (v177 : UH2, v178 : US0) = │
00:06:10 #13232 [verbose] > │ if v171 then │
00:06:10 #13233 [verbose] > │ let struct (v172 : UH2, v173 : US0) = v163.[int v170] │
00:06:10 #13234 [verbose] > │ struct (v172, v173) │
00:06:10 #13235 [verbose] > │ else │
00:06:10 #13236 [verbose] > │ let v174 : uint64 = v170 - v164 │
00:06:10 #13237 [verbose] > │ let struct (v175 : UH2, v176 : US0) = v91.[int v174] │
00:06:10 #13238 [verbose] > │ struct (v175, v176) │
00:06:10 #13239 [verbose] > │ v167.[int v170] <- struct (v177, v178) │
00:06:10 #13240 [verbose] > │ let v179 : uint64 = v170 + 1UL │
00:06:10 #13241 [verbose] > │ v168.l0 <- v179 │
00:06:10 #13242 [verbose] > │ () │
00:06:10 #13243 [verbose] > │ let v180 : uint64 = System.Convert.ToUInt64 v167.Length │
00:06:10 #13244 [verbose] > │ let v181 : ((string []) []) = Array.zeroCreate<(string [])> │
00:06:10 #13245 [verbose] > │ (System.Convert.ToInt32(v180)) │
00:06:10 #13246 [verbose] > │ let v182 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13247 [verbose] > │ while method4(v180, v182) do │
00:06:10 #13248 [verbose] > │ let v184 : uint64 = v182.l0 │
00:06:10 #13249 [verbose] > │ let struct (v185 : UH2, v186 : US0) = v167.[int v184] │
00:06:10 #13250 [verbose] > │ let v187 : (string []) = method19(v185) │
00:06:10 #13251 [verbose] > │ v181.[int v184] <- v187 │
00:06:10 #13252 [verbose] > │ let v188 : uint64 = v184 + 1UL │
00:06:10 #13253 [verbose] > │ v182.l0 <- v188 │
00:06:10 #13254 [verbose] > │ () │
00:06:10 #13255 [verbose] > │ let v189 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:06:10 #13256 [verbose] > │ let v190 : ((string []) []) = v189 v181 │
00:06:10 #13257 [verbose] > │ let v191 : uint64 = System.Convert.ToUInt64 v190.Length │
00:06:10 #13258 [verbose] > │ let v192 : (int64 []) = Array.zeroCreate<int64> │
00:06:10 #13259 [verbose] > │ (System.Convert.ToInt32(v191)) │
00:06:10 #13260 [verbose] > │ let v193 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13261 [verbose] > │ while method4(v191, v193) do │
00:06:10 #13262 [verbose] > │ let v195 : uint64 = v193.l0 │
00:06:10 #13263 [verbose] > │ let v196 : (string []) = v190.[int v195] │
00:06:10 #13264 [verbose] > │ let v197 : uint64 = System.Convert.ToUInt64 v196.Length │
00:06:10 #13265 [verbose] > │ let v198 : (int64 []) = Array.zeroCreate<int64> │
00:06:10 #13266 [verbose] > │ (System.Convert.ToInt32(v197)) │
00:06:10 #13267 [verbose] > │ let v199 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13268 [verbose] > │ while method4(v197, v199) do │
00:06:10 #13269 [verbose] > │ let v201 : uint64 = v199.l0 │
00:06:10 #13270 [verbose] > │ let v202 : string = v196.[int v201] │
00:06:10 #13271 [verbose] > │ let v203 : int64 = System.Convert.ToInt64 v202.Length │
00:06:10 #13272 [verbose] > │ v198.[int v201] <- v203 │
00:06:10 #13273 [verbose] > │ let v204 : uint64 = v201 + 1UL │
00:06:10 #13274 [verbose] > │ v199.l0 <- v204 │
00:06:10 #13275 [verbose] > │ () │
00:06:10 #13276 [verbose] > │ let v205 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:06:10 #13277 [verbose] > │ let v206 : (int64 []) = v205 v198 │
00:06:10 #13278 [verbose] > │ let v207 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:06:10 #13279 [verbose] > │ let v208 : ((int64 []) -> int64 option) = v207 0 │
00:06:10 #13280 [verbose] > │ let v209 : int64 option = v208 v206 │
00:06:10 #13281 [verbose] > │ let v210 : (int64 -> US1) = method22() │
00:06:10 #13282 [verbose] > │ let v211 : US1 = US1_1 │
00:06:10 #13283 [verbose] > │ let v212 : US1 = v209 |> Option.map v210 |> Option.defaultValue v211 │
00:06:10 #13284 [verbose] > │ let v215 : int64 = │
00:06:10 #13285 [verbose] > │ match v212 with │
00:06:10 #13286 [verbose] > │ | US1_1 -> (* None *) │
00:06:10 #13287 [verbose] > │ 0L │
00:06:10 #13288 [verbose] > │ | US1_0(v213) -> (* Some *) │
00:06:10 #13289 [verbose] > │ v213 │
00:06:10 #13290 [verbose] > │ v192.[int v195] <- v215 │
00:06:10 #13291 [verbose] > │ let v216 : uint64 = v195 + 1UL │
00:06:10 #13292 [verbose] > │ v193.l0 <- v216 │
00:06:10 #13293 [verbose] > │ () │
00:06:10 #13294 [verbose] > │ let v217 : uint64 = System.Convert.ToUInt64 v192.Length │
00:06:10 #13295 [verbose] > │ let v218 : UH5 = UH5_0 │
00:06:10 #13296 [verbose] > │ let v219 : Mut3 = {l0 = 0UL; l1 = v218; l2 = 0} : Mut3 │
00:06:10 #13297 [verbose] > │ while method23(v217, v219) do │
00:06:10 #13298 [verbose] > │ let v221 : uint64 = v219.l0 │
00:06:10 #13299 [verbose] > │ let struct (v222 : UH5, v223 : int32) = v219.l1, v219.l2 │
00:06:10 #13300 [verbose] > │ let v224 : int64 = v192.[int v221] │
00:06:10 #13301 [verbose] > │ let v225 : int32 = v223 + 1 │
00:06:10 #13302 [verbose] > │ let v226 : uint64 = v221 + 1UL │
00:06:10 #13303 [verbose] > │ let v227 : UH5 = UH5_1(v223, v224, v222) │
00:06:10 #13304 [verbose] > │ v219.l0 <- v226 │
00:06:10 #13305 [verbose] > │ v219.l1 <- v227 │
00:06:10 #13306 [verbose] > │ v219.l2 <- v225 │
00:06:10 #13307 [verbose] > │ () │
00:06:10 #13308 [verbose] > │ let struct (v228 : UH5, v229 : int32) = v219.l1, v219.l2 │
00:06:10 #13309 [verbose] > │ let v230 : UH5 = UH5_0 │
00:06:10 #13310 [verbose] > │ let v231 : UH5 = method24(v228, v230) │
00:06:10 #13311 [verbose] > │ let v232 : (struct (int32 * int64) []) = method25(v231) │
00:06:10 #13312 [verbose] > │ let v233 : Map<int32, int64> = v232 |> Array.map (fun (struct (a, b)) -> │
00:06:10 #13313 [verbose] > │ a, b) |> Map.ofArray │
00:06:10 #13314 [verbose] > │ let v234 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:06:10 #13315 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v180)) │
00:06:10 #13316 [verbose] > │ let v235 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13317 [verbose] > │ while method4(v180, v235) do │
00:06:10 #13318 [verbose] > │ let v237 : uint64 = v235.l0 │
00:06:10 #13319 [verbose] > │ let struct (v238 : UH2, v239 : US0) = v167.[int v237] │
00:06:10 #13320 [verbose] > │ let v240 : UH6 = UH6_0 │
00:06:10 #13321 [verbose] > │ let v241 : int32 = 0 │
00:06:10 #13322 [verbose] > │ let struct (v242 : UH6, v243 : int32) = method28(v238, v240, v241) │
00:06:10 #13323 [verbose] > │ let v244 : UH6 = UH6_0 │
00:06:10 #13324 [verbose] > │ let v245 : UH6 = method29(v242, v244) │
00:06:10 #13325 [verbose] > │ let v246 : UH2 = UH2_0 │
00:06:10 #13326 [verbose] > │ let v247 : UH2 = method30(v233, v245, v246) │
00:06:10 #13327 [verbose] > │ let v248 : (string []) = method31(v247) │
00:06:10 #13328 [verbose] > │ v234.[int v237] <- struct (v248, v239) │
00:06:10 #13329 [verbose] > │ let v249 : uint64 = v237 + 1UL │
00:06:10 #13330 [verbose] > │ v235.l0 <- v249 │
00:06:10 #13331 [verbose] > │ () │
00:06:10 #13332 [verbose] > │ System.Console.WriteLine v2 │
00:06:10 #13333 [verbose] > │ let v250 : uint64 = System.Convert.ToUInt64 v234.Length │
00:06:10 #13334 [verbose] > │ let v251 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13335 [verbose] > │ while method4(v250, v251) do │
00:06:10 #13336 [verbose] > │ let v253 : uint64 = v251.l0 │
00:06:10 #13337 [verbose] > │ let struct (v254 : (string []), v255 : US0) = v234.[int v253] │
00:06:10 #13338 [verbose] > │ match v255 with │
00:06:10 #13339 [verbose] > │ | US0_1 -> (* None *) │
00:06:10 #13340 [verbose] > │ let v258 : unit option = None │
00:06:10 #13341 [verbose] > │ let mutable _v258 = v258 │
00:06:10 #13342 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:10 #13343 [verbose] > │ () │
00:06:10 #13344 [verbose] > │ #endif │
00:06:10 #13345 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:10 #13346 [verbose] > │ () │
00:06:10 #13347 [verbose] > │ #endif │
00:06:10 #13348 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:10 #13349 [verbose] > │ () │
00:06:10 #13350 [verbose] > │ #endif │
00:06:10 #13351 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:10 #13352 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:10 #13353 [verbose] > │ System.Console.ResetColor () │
00:06:10 #13354 [verbose] > │ () │
00:06:10 #13355 [verbose] > │ #endif │
00:06:10 #13356 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:10 #13357 [verbose] > │ () │
00:06:10 #13358 [verbose] > │ #endif │
00:06:10 #13359 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:10 #13360 [verbose] > │ FABLE_COMPILER_DART │
00:06:10 #13361 [verbose] > │ Unchecked.defaultof<unit> │
00:06:10 #13362 [verbose] > │ () │
00:06:10 #13363 [verbose] > │ #endif │
00:06:10 #13364 [verbose] > │ |> fun x -> _v258 <- Some x │
00:06:10 #13365 [verbose] > │ _v258.Value │
00:06:10 #13366 [verbose] > │ () │
00:06:10 #13367 [verbose] > │ | US0_0(v256) -> (* Some *) │
00:06:10 #13368 [verbose] > │ let v257 : unit option = None │
00:06:10 #13369 [verbose] > │ let mutable _v257 = v257 │
00:06:10 #13370 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:10 #13371 [verbose] > │ () │
00:06:10 #13372 [verbose] > │ #endif │
00:06:10 #13373 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:10 #13374 [verbose] > │ () │
00:06:10 #13375 [verbose] > │ #endif │
00:06:10 #13376 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:10 #13377 [verbose] > │ () │
00:06:10 #13378 [verbose] > │ #endif │
00:06:10 #13379 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:10 #13380 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:10 #13381 [verbose] > │ System.Console.ForegroundColor <- v256 │
00:06:10 #13382 [verbose] > │ () │
00:06:10 #13383 [verbose] > │ #endif │
00:06:10 #13384 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:10 #13385 [verbose] > │ () │
00:06:10 #13386 [verbose] > │ #endif │
00:06:10 #13387 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:10 #13388 [verbose] > │ FABLE_COMPILER_DART │
00:06:10 #13389 [verbose] > │ Unchecked.defaultof<unit> │
00:06:10 #13390 [verbose] > │ () │
00:06:10 #13391 [verbose] > │ #endif │
00:06:10 #13392 [verbose] > │ |> fun x -> _v257 <- Some x │
00:06:10 #13393 [verbose] > │ _v257.Value │
00:06:10 #13394 [verbose] > │ () │
00:06:10 #13395 [verbose] > │ let v259 : string = "\t| " │
00:06:10 #13396 [verbose] > │ let v260 : string = System.String.Join (v259, v254) │
00:06:10 #13397 [verbose] > │ System.Console.WriteLine v260 │
00:06:10 #13398 [verbose] > │ let v261 : unit option = None │
00:06:10 #13399 [verbose] > │ let mutable _v261 = v261 │
00:06:10 #13400 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:10 #13401 [verbose] > │ () │
00:06:10 #13402 [verbose] > │ #endif │
00:06:10 #13403 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:10 #13404 [verbose] > │ () │
00:06:10 #13405 [verbose] > │ #endif │
00:06:10 #13406 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:10 #13407 [verbose] > │ () │
00:06:10 #13408 [verbose] > │ #endif │
00:06:10 #13409 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:10 #13410 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:10 #13411 [verbose] > │ System.Console.ResetColor () │
00:06:10 #13412 [verbose] > │ () │
00:06:10 #13413 [verbose] > │ #endif │
00:06:10 #13414 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:10 #13415 [verbose] > │ () │
00:06:10 #13416 [verbose] > │ #endif │
00:06:10 #13417 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:10 #13418 [verbose] > │ FABLE_COMPILER_DART │
00:06:10 #13419 [verbose] > │ Unchecked.defaultof<unit> │
00:06:10 #13420 [verbose] > │ () │
00:06:10 #13421 [verbose] > │ #endif │
00:06:10 #13422 [verbose] > │ |> fun x -> _v261 <- Some x │
00:06:10 #13423 [verbose] > │ _v261.Value │
00:06:10 #13424 [verbose] > │ let v262 : uint64 = v253 + 1UL │
00:06:10 #13425 [verbose] > │ v251.l0 <- v262 │
00:06:10 #13426 [verbose] > │ () │
00:06:10 #13427 [verbose] > │ let v263 : ((float []) []) = Array.zeroCreate<(float [])> │
00:06:10 #13428 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:06:10 #13429 [verbose] > │ let v264 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13430 [verbose] > │ while method4(v90, v264) do │
00:06:10 #13431 [verbose] > │ let v266 : uint64 = v264.l0 │
00:06:10 #13432 [verbose] > │ let struct (v267 : string, v268 : string, v269 : string, v270 : │
00:06:10 #13433 [verbose] > │ (int64 [])) = v11.[int v266] │
00:06:10 #13434 [verbose] > │ let v271 : (int64 -> float) = float │
00:06:10 #13435 [verbose] > │ let v272 : uint64 = System.Convert.ToUInt64 v270.Length │
00:06:10 #13436 [verbose] > │ let v273 : (float []) = Array.zeroCreate<float> │
00:06:10 #13437 [verbose] > │ (System.Convert.ToInt32(v272)) │
00:06:10 #13438 [verbose] > │ let v274 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13439 [verbose] > │ while method4(v272, v274) do │
00:06:10 #13440 [verbose] > │ let v276 : uint64 = v274.l0 │
00:06:10 #13441 [verbose] > │ let v277 : int64 = v270.[int v276] │
00:06:10 #13442 [verbose] > │ let v278 : float = v271 v277 │
00:06:10 #13443 [verbose] > │ v273.[int v276] <- v278 │
00:06:10 #13444 [verbose] > │ let v279 : uint64 = v276 + 1UL │
00:06:10 #13445 [verbose] > │ v274.l0 <- v279 │
00:06:10 #13446 [verbose] > │ () │
00:06:10 #13447 [verbose] > │ v263.[int v266] <- v273 │
00:06:10 #13448 [verbose] > │ let v280 : uint64 = v266 + 1UL │
00:06:10 #13449 [verbose] > │ v264.l0 <- v280 │
00:06:10 #13450 [verbose] > │ () │
00:06:10 #13451 [verbose] > │ let v281 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:06:10 #13452 [verbose] > │ let v282 : ((float []) []) = v281 v263 │
00:06:10 #13453 [verbose] > │ let v283 : uint64 = System.Convert.ToUInt64 v282.Length │
00:06:10 #13454 [verbose] > │ let v284 : (float []) = Array.zeroCreate<float> │
00:06:10 #13455 [verbose] > │ (System.Convert.ToInt32(v283)) │
00:06:10 #13456 [verbose] > │ let v285 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13457 [verbose] > │ while method4(v283, v285) do │
00:06:10 #13458 [verbose] > │ let v287 : uint64 = v285.l0 │
00:06:10 #13459 [verbose] > │ let v288 : (float []) = v282.[int v287] │
00:06:10 #13460 [verbose] > │ let v289 : ((float []) -> float) = Array.average │
00:06:10 #13461 [verbose] > │ let v290 : float = v289 v288 │
00:06:10 #13462 [verbose] > │ v284.[int v287] <- v290 │
00:06:10 #13463 [verbose] > │ let v291 : uint64 = v287 + 1UL │
00:06:10 #13464 [verbose] > │ v285.l0 <- v291 │
00:06:10 #13465 [verbose] > │ () │
00:06:10 #13466 [verbose] > │ let v292 : (float -> int64) = int64 │
00:06:10 #13467 [verbose] > │ let v293 : uint64 = System.Convert.ToUInt64 v284.Length │
00:06:10 #13468 [verbose] > │ let v294 : (int64 []) = Array.zeroCreate<int64> │
00:06:10 #13469 [verbose] > │ (System.Convert.ToInt32(v293)) │
00:06:10 #13470 [verbose] > │ let v295 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13471 [verbose] > │ while method4(v293, v295) do │
00:06:10 #13472 [verbose] > │ let v297 : uint64 = v295.l0 │
00:06:10 #13473 [verbose] > │ let v298 : float = v284.[int v297] │
00:06:10 #13474 [verbose] > │ let v299 : int64 = v292 v298 │
00:06:10 #13475 [verbose] > │ v294.[int v297] <- v299 │
00:06:10 #13476 [verbose] > │ let v300 : uint64 = v297 + 1UL │
00:06:10 #13477 [verbose] > │ v295.l0 <- v300 │
00:06:10 #13478 [verbose] > │ () │
00:06:10 #13479 [verbose] > │ let v301 : uint64 = System.Convert.ToUInt64 v294.Length │
00:06:10 #13480 [verbose] > │ let v302 : UH5 = UH5_0 │
00:06:10 #13481 [verbose] > │ let v303 : Mut3 = {l0 = 0UL; l1 = v302; l2 = 0} : Mut3 │
00:06:10 #13482 [verbose] > │ while method23(v301, v303) do │
00:06:10 #13483 [verbose] > │ let v305 : uint64 = v303.l0 │
00:06:10 #13484 [verbose] > │ let struct (v306 : UH5, v307 : int32) = v303.l1, v303.l2 │
00:06:10 #13485 [verbose] > │ let v308 : int64 = v294.[int v305] │
00:06:10 #13486 [verbose] > │ let v309 : int32 = v307 + 1 │
00:06:10 #13487 [verbose] > │ let v310 : uint64 = v305 + 1UL │
00:06:10 #13488 [verbose] > │ let v311 : UH5 = UH5_1(v307, v308, v306) │
00:06:10 #13489 [verbose] > │ v303.l0 <- v310 │
00:06:10 #13490 [verbose] > │ v303.l1 <- v311 │
00:06:10 #13491 [verbose] > │ v303.l2 <- v309 │
00:06:10 #13492 [verbose] > │ () │
00:06:10 #13493 [verbose] > │ let struct (v312 : UH5, v313 : int32) = v303.l1, v303.l2 │
00:06:10 #13494 [verbose] > │ let v314 : UH5 = UH5_0 │
00:06:10 #13495 [verbose] > │ let v315 : UH5 = method24(v312, v314) │
00:06:10 #13496 [verbose] > │ let v316 : (struct (int32 * int64) []) = method34(v315) │
00:06:10 #13497 [verbose] > │ System.Console.WriteLine v2 │
00:06:10 #13498 [verbose] > │ let v317 : string = "Average Ranking " │
00:06:10 #13499 [verbose] > │ System.Console.WriteLine v317 │
00:06:10 #13500 [verbose] > │ let v318 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:06:10 #13501 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:06:10 #13502 [verbose] > │ let v319 : (struct (int32 * int64) -> int64) = closure6() │
00:06:10 #13503 [verbose] > │ let v320 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:06:10 #13504 [verbose] > │ = v318 v319 │
00:06:10 #13505 [verbose] > │ let v321 : (struct (int32 * int64) []) = v320 v316 │
00:06:10 #13506 [verbose] > │ let v322 : uint64 = System.Convert.ToUInt64 v321.Length │
00:06:10 #13507 [verbose] > │ let v323 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13508 [verbose] > │ while method4(v322, v323) do │
00:06:10 #13509 [verbose] > │ let v325 : uint64 = v323.l0 │
00:06:10 #13510 [verbose] > │ let struct (v326 : int32, v327 : int64) = v321.[int v325] │
00:06:10 #13511 [verbose] > │ let v328 : string = $"Test case %d{v326 + 1}. Average Time: %A{v327} │
00:06:10 #13512 [verbose] > │ " │
00:06:10 #13513 [verbose] > │ System.Console.WriteLine v328 │
00:06:10 #13514 [verbose] > │ let v329 : uint64 = v325 + 1UL │
00:06:10 #13515 [verbose] > │ v323.l0 <- v329 │
00:06:10 #13516 [verbose] > │ () │
00:06:10 #13517 [verbose] > │ () │
00:06:10 #13518 [verbose] > │ and method0 () : unit = │
00:06:10 #13519 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:06:10 #13520 [verbose] > │ let v1 : string = nameof v0 │
00:06:10 #13521 [verbose] > │ let v2 : string = "" │
00:06:10 #13522 [verbose] > │ System.Console.WriteLine v2 │
00:06:10 #13523 [verbose] > │ System.Console.WriteLine v2 │
00:06:10 #13524 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:06:10 #13525 [verbose] > │ System.Console.WriteLine v3 │
00:06:10 #13526 [verbose] > │ let v4 : string = "a" │
00:06:10 #13527 [verbose] > │ let v5 : string = "b" │
00:06:10 #13528 [verbose] > │ let v6 : UH0 = UH0_0 │
00:06:10 #13529 [verbose] > │ let v7 : UH0 = UH0_1(v5, v5, v5, v6) │
00:06:10 #13530 [verbose] > │ let v8 : UH0 = UH0_1(v4, v4, v4, v7) │
00:06:10 #13531 [verbose] > │ let v9 : (struct (string * string * string) []) = method1(v8) │
00:06:10 #13532 [verbose] > │ let v10 : uint64 = System.Convert.ToUInt64 v9.Length │
00:06:10 #13533 [verbose] > │ let v11 : (struct (string * string * string * (int64 [])) []) = │
00:06:10 #13534 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:06:10 #13535 [verbose] > │ (System.Convert.ToInt32(v10)) │
00:06:10 #13536 [verbose] > │ let v12 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13537 [verbose] > │ while method4(v10, v12) do │
00:06:10 #13538 [verbose] > │ let v14 : uint64 = v12.l0 │
00:06:10 #13539 [verbose] > │ let struct (v15 : string, v16 : string, v17 : string) = v9.[int v14] │
00:06:10 #13540 [verbose] > │ let v18 : string = $"%A{struct (v15, v16)}" │
00:06:10 #13541 [verbose] > │ System.Console.WriteLine v2 │
00:06:10 #13542 [verbose] > │ let v19 : string = $"Solution: {v18} " │
00:06:10 #13543 [verbose] > │ System.Console.WriteLine v19 │
00:06:10 #13544 [verbose] > │ let v20 : int32 = 0 │
00:06:10 #13545 [verbose] > │ let v21 : string = "A" │
00:06:10 #13546 [verbose] > │ let v22 : (struct (string * string) -> string) = closure1() │
00:06:10 #13547 [verbose] > │ let v23 : int32 = 1 │
00:06:10 #13548 [verbose] > │ let v24 : string = "B" │
00:06:10 #13549 [verbose] > │ let v25 : (struct (string * string) -> string) = closure2() │
00:06:10 #13550 [verbose] > │ let v26 : UH1 = UH1_0 │
00:06:10 #13551 [verbose] > │ let v27 : UH1 = UH1_1(v23, v24, v25, v26) │
00:06:10 #13552 [verbose] > │ let v28 : UH1 = UH1_1(v20, v21, v22, v27) │
00:06:10 #13553 [verbose] > │ let v29 : (struct (int32 * string * (struct (string * string) -> │
00:06:10 #13554 [verbose] > │ string)) []) = method5(v28) │
00:06:10 #13555 [verbose] > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:06:10 #13556 [verbose] > │ let v31 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:06:10 #13557 [verbose] > │ (string * int64)> (System.Convert.ToInt32(v30)) │
00:06:10 #13558 [verbose] > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13559 [verbose] > │ while method4(v30, v32) do │
00:06:10 #13560 [verbose] > │ let v34 : uint64 = v32.l0 │
00:06:10 #13561 [verbose] > │ let struct (v35 : int32, v36 : string, v37 : (struct (string * │
00:06:10 #13562 [verbose] > │ string) -> string)) = v29.[int v34] │
00:06:10 #13563 [verbose] > │ let v38 : unit option = None │
00:06:10 #13564 [verbose] > │ let mutable _v38 = v38 │
00:06:10 #13565 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:10 #13566 [verbose] > │ () │
00:06:10 #13567 [verbose] > │ #endif │
00:06:10 #13568 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:10 #13569 [verbose] > │ () │
00:06:10 #13570 [verbose] > │ #endif │
00:06:10 #13571 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:10 #13572 [verbose] > │ () │
00:06:10 #13573 [verbose] > │ #endif │
00:06:10 #13574 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:10 #13575 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:10 #13576 [verbose] > │ System.GC.Collect () │
00:06:10 #13577 [verbose] > │ () │
00:06:10 #13578 [verbose] > │ #endif │
00:06:10 #13579 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:10 #13580 [verbose] > │ () │
00:06:10 #13581 [verbose] > │ #endif │
00:06:10 #13582 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:10 #13583 [verbose] > │ FABLE_COMPILER_DART │
00:06:10 #13584 [verbose] > │ Unchecked.defaultof<unit> │
00:06:10 #13585 [verbose] > │ () │
00:06:10 #13586 [verbose] > │ #endif │
00:06:10 #13587 [verbose] > │ |> fun x -> _v38 <- Some x │
00:06:10 #13588 [verbose] > │ _v38.Value │
00:06:10 #13589 [verbose] > │ let v39 : (unit -> System.Diagnostics.Stopwatch) = │
00:06:10 #13590 [verbose] > │ System.Diagnostics.Stopwatch │
00:06:10 #13591 [verbose] > │ let v40 : System.Diagnostics.Stopwatch = v39 () │
00:06:10 #13592 [verbose] > │ v40.Start () │
00:06:10 #13593 [verbose] > │ let v41 : int64 = v40.ElapsedMilliseconds │
00:06:10 #13594 [verbose] > │ let v42 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:06:10 #13595 [verbose] > │ let v43 : Mut1 = {l0 = 0} : Mut1 │
00:06:10 #13596 [verbose] > │ while method8(v43) do │
00:06:10 #13597 [verbose] > │ let v45 : int32 = v43.l0 │
00:06:10 #13598 [verbose] > │ v42.[int v45] <- v45 │
00:06:10 #13599 [verbose] > │ let v46 : int32 = v45 + 1 │
00:06:10 #13600 [verbose] > │ v43.l0 <- v46 │
00:06:10 #13601 [verbose] > │ () │
00:06:10 #13602 [verbose] > │ let v47 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:06:10 #13603 [verbose] > │ Array.Parallel.map │
00:06:10 #13604 [verbose] > │ let v48 : (int32 -> string) = closure3(v15, v16, v37) │
00:06:10 #13605 [verbose] > │ let v49 : ((int32 []) -> (string [])) = v47 v48 │
00:06:10 #13606 [verbose] > │ let v50 : (string []) = v49 v42 │
00:06:10 #13607 [verbose] > │ let v51 : int32 = v50.Length │
00:06:10 #13608 [verbose] > │ let v52 : int32 = v51 - 1 │
00:06:10 #13609 [verbose] > │ let v53 : string = v50.[int v52] │
00:06:10 #13610 [verbose] > │ let v54 : int64 = v40.ElapsedMilliseconds │
00:06:10 #13611 [verbose] > │ let v55 : int64 = v54 - v41 │
00:06:10 #13612 [verbose] > │ let v56 : string = $"Test case {v35 + 1}. {v36}. Time: {v55} " │
00:06:10 #13613 [verbose] > │ System.Console.WriteLine v56 │
00:06:10 #13614 [verbose] > │ v31.[int v34] <- struct (v53, v55) │
00:06:10 #13615 [verbose] > │ let v57 : uint64 = v34 + 1UL │
00:06:10 #13616 [verbose] > │ v32.l0 <- v57 │
00:06:10 #13617 [verbose] > │ () │
00:06:10 #13618 [verbose] > │ let v58 : uint64 = System.Convert.ToUInt64 v31.Length │
00:06:10 #13619 [verbose] > │ let v59 : (string []) = Array.zeroCreate<string> │
00:06:10 #13620 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:10 #13621 [verbose] > │ let v60 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13622 [verbose] > │ while method4(v58, v60) do │
00:06:10 #13623 [verbose] > │ let v62 : uint64 = v60.l0 │
00:06:10 #13624 [verbose] > │ let struct (v63 : string, v64 : int64) = v31.[int v62] │
00:06:10 #13625 [verbose] > │ v59.[int v62] <- v63 │
00:06:10 #13626 [verbose] > │ let v65 : uint64 = v62 + 1UL │
00:06:10 #13627 [verbose] > │ v60.l0 <- v65 │
00:06:10 #13628 [verbose] > │ () │
00:06:10 #13629 [verbose] > │ let v66 : uint64 = System.Convert.ToUInt64 v59.Length │
00:06:10 #13630 [verbose] > │ let v67 : bool = v66 <= 1UL │
00:06:10 #13631 [verbose] > │ if v67 then │
00:06:10 #13632 [verbose] > │ () │
00:06:10 #13633 [verbose] > │ else │
00:06:10 #13634 [verbose] > │ let v68 : string = v59.[int 0UL] │
00:06:10 #13635 [verbose] > │ let v69 : uint64 = 0UL │
00:06:10 #13636 [verbose] > │ let v70 : bool = method9(v68, v59, v69) │
00:06:10 #13637 [verbose] > │ if v70 then │
00:06:10 #13638 [verbose] > │ () │
00:06:10 #13639 [verbose] > │ else │
00:06:10 #13640 [verbose] > │ let v71 : string = $"Challenge error: {v59}" │
00:06:10 #13641 [verbose] > │ failwith<unit> v71 │
00:06:10 #13642 [verbose] > │ let v72 : string = $"%A{v17}" │
00:06:10 #13643 [verbose] > │ let v73 : (string []) = Array.zeroCreate<string> │
00:06:10 #13644 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:10 #13645 [verbose] > │ let v74 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13646 [verbose] > │ while method4(v58, v74) do │
00:06:10 #13647 [verbose] > │ let v76 : uint64 = v74.l0 │
00:06:10 #13648 [verbose] > │ let struct (v77 : string, v78 : int64) = v31.[int v76] │
00:06:10 #13649 [verbose] > │ v73.[int v76] <- v77 │
00:06:10 #13650 [verbose] > │ let v79 : uint64 = v76 + 1UL │
00:06:10 #13651 [verbose] > │ v74.l0 <- v79 │
00:06:10 #13652 [verbose] > │ () │
00:06:10 #13653 [verbose] > │ let v80 : string = v73.[int 0UL] │
00:06:10 #13654 [verbose] > │ let v81 : string = $"%A{v80}" │
00:06:10 #13655 [verbose] > │ let v82 : (int64 []) = Array.zeroCreate<int64> │
00:06:10 #13656 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:10 #13657 [verbose] > │ let v83 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13658 [verbose] > │ while method4(v58, v83) do │
00:06:10 #13659 [verbose] > │ let v85 : uint64 = v83.l0 │
00:06:10 #13660 [verbose] > │ let struct (v86 : string, v87 : int64) = v31.[int v85] │
00:06:10 #13661 [verbose] > │ v82.[int v85] <- v87 │
00:06:10 #13662 [verbose] > │ let v88 : uint64 = v85 + 1UL │
00:06:10 #13663 [verbose] > │ v83.l0 <- v88 │
00:06:10 #13664 [verbose] > │ () │
00:06:10 #13665 [verbose] > │ v11.[int v14] <- struct (v72, v18, v81, v82) │
00:06:10 #13666 [verbose] > │ let v89 : uint64 = v14 + 1UL │
00:06:10 #13667 [verbose] > │ v12.l0 <- v89 │
00:06:10 #13668 [verbose] > │ () │
00:06:10 #13669 [verbose] > │ let v90 : uint64 = System.Convert.ToUInt64 v11.Length │
00:06:10 #13670 [verbose] > │ let v91 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:06:10 #13671 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:06:10 #13672 [verbose] > │ let v92 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13673 [verbose] > │ while method4(v90, v92) do │
00:06:10 #13674 [verbose] > │ let v94 : uint64 = v92.l0 │
00:06:10 #13675 [verbose] > │ let struct (v95 : string, v96 : string, v97 : string, v98 : (int64 [ │
00:06:10 #13676 [verbose] > │ ])) = v11.[int v94] │
00:06:10 #13677 [verbose] > │ let v99 : uint64 = System.Convert.ToUInt64 v98.Length │
00:06:10 #13678 [verbose] > │ let v100 : UH3 = UH3_0 │
00:06:10 #13679 [verbose] > │ let v101 : Mut2 = {l0 = 0UL; l1 = v100; l2 = 0L} : Mut2 │
00:06:10 #13680 [verbose] > │ while method10(v99, v101) do │
00:06:10 #13681 [verbose] > │ let v103 : uint64 = v101.l0 │
00:06:10 #13682 [verbose] > │ let struct (v104 : UH3, v105 : int64) = v101.l1, v101.l2 │
00:06:10 #13683 [verbose] > │ let v106 : int64 = v98.[int v103] │
00:06:10 #13684 [verbose] > │ let v107 : int64 = v105 + 1L │
00:06:10 #13685 [verbose] > │ let v108 : uint64 = v103 + 1UL │
00:06:10 #13686 [verbose] > │ let v109 : UH3 = UH3_1(v105, v106, v104) │
00:06:10 #13687 [verbose] > │ v101.l0 <- v108 │
00:06:10 #13688 [verbose] > │ v101.l1 <- v109 │
00:06:10 #13689 [verbose] > │ v101.l2 <- v107 │
00:06:10 #13690 [verbose] > │ () │
00:06:10 #13691 [verbose] > │ let struct (v110 : UH3, v111 : int64) = v101.l1, v101.l2 │
00:06:10 #13692 [verbose] > │ let v112 : UH3 = UH3_0 │
00:06:10 #13693 [verbose] > │ let v113 : UH3 = method11(v110, v112) │
00:06:10 #13694 [verbose] > │ let v114 : (struct (int64 * int64) []) = method12(v113) │
00:06:10 #13695 [verbose] > │ let v115 : int32 = v114.Length │
00:06:10 #13696 [verbose] > │ let v116 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:06:10 #13697 [verbose] > │ (int64 * int64)> (v115) │
00:06:10 #13698 [verbose] > │ let v117 : Mut1 = {l0 = 0} : Mut1 │
00:06:10 #13699 [verbose] > │ while method15(v115, v117) do │
00:06:10 #13700 [verbose] > │ let v119 : int32 = v117.l0 │
00:06:10 #13701 [verbose] > │ let struct (v120 : int64, v121 : int64) = v114.[int v119] │
00:06:10 #13702 [verbose] > │ let v122 : int64 = v120 + 1L │
00:06:10 #13703 [verbose] > │ v116.[int v119] <- struct (v122, v121) │
00:06:10 #13704 [verbose] > │ let v123 : int32 = v119 + 1 │
00:06:10 #13705 [verbose] > │ v117.l0 <- v123 │
00:06:10 #13706 [verbose] > │ () │
00:06:10 #13707 [verbose] > │ let v124 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:06:10 #13708 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:06:10 #13709 [verbose] > │ let v125 : (struct (int64 * int64) -> int64) = closure4() │
00:06:10 #13710 [verbose] > │ let v126 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:06:10 #13711 [verbose] > │ ])) = v124 v125 │
00:06:10 #13712 [verbose] > │ let v127 : (struct (int64 * int64) []) = v126 v116 │
00:06:10 #13713 [verbose] > │ let struct (v128 : int64, v129 : int64) = v127.[int 0] │
00:06:10 #13714 [verbose] > │ let v130 : string = $"%A{struct (v128, v129)}" │
00:06:10 #13715 [verbose] > │ let v131 : bool = v95 = v97 │
00:06:10 #13716 [verbose] > │ let v136 : US0 = │
00:06:10 #13717 [verbose] > │ if v131 then │
00:06:10 #13718 [verbose] > │ let v132 : System.ConsoleColor = │
00:06:10 #13719 [verbose] > │ System.ConsoleColor.DarkGreen │
00:06:10 #13720 [verbose] > │ US0_0(v132) │
00:06:10 #13721 [verbose] > │ else │
00:06:10 #13722 [verbose] > │ let v134 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:06:10 #13723 [verbose] > │ US0_0(v134) │
00:06:10 #13724 [verbose] > │ let v137 : UH2 = UH2_0 │
00:06:10 #13725 [verbose] > │ let v138 : UH2 = UH2_1(v130, v137) │
00:06:10 #13726 [verbose] > │ let v139 : UH2 = UH2_1(v97, v138) │
00:06:10 #13727 [verbose] > │ let v140 : UH2 = UH2_1(v95, v139) │
00:06:10 #13728 [verbose] > │ let v141 : UH2 = UH2_1(v96, v140) │
00:06:10 #13729 [verbose] > │ v91.[int v94] <- struct (v141, v136) │
00:06:10 #13730 [verbose] > │ let v142 : uint64 = v94 + 1UL │
00:06:10 #13731 [verbose] > │ v92.l0 <- v142 │
00:06:10 #13732 [verbose] > │ () │
00:06:10 #13733 [verbose] > │ let v143 : string = "Input" │
00:06:10 #13734 [verbose] > │ let v144 : string = "Expected" │
00:06:10 #13735 [verbose] > │ let v145 : string = "Result" │
00:06:10 #13736 [verbose] > │ let v146 : string = "Best" │
00:06:10 #13737 [verbose] > │ let v147 : UH2 = UH2_0 │
00:06:10 #13738 [verbose] > │ let v148 : UH2 = UH2_1(v146, v147) │
00:06:10 #13739 [verbose] > │ let v149 : UH2 = UH2_1(v145, v148) │
00:06:10 #13740 [verbose] > │ let v150 : UH2 = UH2_1(v144, v149) │
00:06:10 #13741 [verbose] > │ let v151 : UH2 = UH2_1(v143, v150) │
00:06:10 #13742 [verbose] > │ let v152 : US0 = US0_1 │
00:06:10 #13743 [verbose] > │ let v153 : string = "---" │
00:06:10 #13744 [verbose] > │ let v154 : UH2 = UH2_0 │
00:06:10 #13745 [verbose] > │ let v155 : UH2 = UH2_1(v153, v154) │
00:06:10 #13746 [verbose] > │ let v156 : UH2 = UH2_1(v153, v155) │
00:06:10 #13747 [verbose] > │ let v157 : UH2 = UH2_1(v153, v156) │
00:06:10 #13748 [verbose] > │ let v158 : UH2 = UH2_1(v153, v157) │
00:06:10 #13749 [verbose] > │ let v159 : US0 = US0_1 │
00:06:10 #13750 [verbose] > │ let v160 : UH4 = UH4_0 │
00:06:10 #13751 [verbose] > │ let v161 : UH4 = UH4_1(v158, v159, v160) │
00:06:10 #13752 [verbose] > │ let v162 : UH4 = UH4_1(v151, v152, v161) │
00:06:10 #13753 [verbose] > │ let v163 : (struct (UH2 * US0) []) = method16(v162) │
00:06:10 #13754 [verbose] > │ let v164 : uint64 = System.Convert.ToUInt64 v163.Length │
00:06:10 #13755 [verbose] > │ let v165 : uint64 = System.Convert.ToUInt64 v91.Length │
00:06:10 #13756 [verbose] > │ let v166 : uint64 = v164 + v165 │
00:06:10 #13757 [verbose] > │ let v167 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:06:10 #13758 [verbose] > │ US0)> (System.Convert.ToInt32(v166)) │
00:06:10 #13759 [verbose] > │ let v168 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13760 [verbose] > │ while method4(v166, v168) do │
00:06:10 #13761 [verbose] > │ let v170 : uint64 = v168.l0 │
00:06:10 #13762 [verbose] > │ let v171 : bool = v170 < v164 │
00:06:10 #13763 [verbose] > │ let struct (v177 : UH2, v178 : US0) = │
00:06:10 #13764 [verbose] > │ if v171 then │
00:06:10 #13765 [verbose] > │ let struct (v172 : UH2, v173 : US0) = v163.[int v170] │
00:06:10 #13766 [verbose] > │ struct (v172, v173) │
00:06:10 #13767 [verbose] > │ else │
00:06:10 #13768 [verbose] > │ let v174 : uint64 = v170 - v164 │
00:06:10 #13769 [verbose] > │ let struct (v175 : UH2, v176 : US0) = v91.[int v174] │
00:06:10 #13770 [verbose] > │ struct (v175, v176) │
00:06:10 #13771 [verbose] > │ v167.[int v170] <- struct (v177, v178) │
00:06:10 #13772 [verbose] > │ let v179 : uint64 = v170 + 1UL │
00:06:10 #13773 [verbose] > │ v168.l0 <- v179 │
00:06:10 #13774 [verbose] > │ () │
00:06:10 #13775 [verbose] > │ let v180 : uint64 = System.Convert.ToUInt64 v167.Length │
00:06:10 #13776 [verbose] > │ let v181 : ((string []) []) = Array.zeroCreate<(string [])> │
00:06:10 #13777 [verbose] > │ (System.Convert.ToInt32(v180)) │
00:06:10 #13778 [verbose] > │ let v182 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13779 [verbose] > │ while method4(v180, v182) do │
00:06:10 #13780 [verbose] > │ let v184 : uint64 = v182.l0 │
00:06:10 #13781 [verbose] > │ let struct (v185 : UH2, v186 : US0) = v167.[int v184] │
00:06:10 #13782 [verbose] > │ let v187 : (string []) = method19(v185) │
00:06:10 #13783 [verbose] > │ v181.[int v184] <- v187 │
00:06:10 #13784 [verbose] > │ let v188 : uint64 = v184 + 1UL │
00:06:10 #13785 [verbose] > │ v182.l0 <- v188 │
00:06:10 #13786 [verbose] > │ () │
00:06:10 #13787 [verbose] > │ let v189 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:06:10 #13788 [verbose] > │ let v190 : ((string []) []) = v189 v181 │
00:06:10 #13789 [verbose] > │ let v191 : uint64 = System.Convert.ToUInt64 v190.Length │
00:06:10 #13790 [verbose] > │ let v192 : (int64 []) = Array.zeroCreate<int64> │
00:06:10 #13791 [verbose] > │ (System.Convert.ToInt32(v191)) │
00:06:10 #13792 [verbose] > │ let v193 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13793 [verbose] > │ while method4(v191, v193) do │
00:06:10 #13794 [verbose] > │ let v195 : uint64 = v193.l0 │
00:06:10 #13795 [verbose] > │ let v196 : (string []) = v190.[int v195] │
00:06:10 #13796 [verbose] > │ let v197 : uint64 = System.Convert.ToUInt64 v196.Length │
00:06:10 #13797 [verbose] > │ let v198 : (int64 []) = Array.zeroCreate<int64> │
00:06:10 #13798 [verbose] > │ (System.Convert.ToInt32(v197)) │
00:06:10 #13799 [verbose] > │ let v199 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13800 [verbose] > │ while method4(v197, v199) do │
00:06:10 #13801 [verbose] > │ let v201 : uint64 = v199.l0 │
00:06:10 #13802 [verbose] > │ let v202 : string = v196.[int v201] │
00:06:10 #13803 [verbose] > │ let v203 : int64 = System.Convert.ToInt64 v202.Length │
00:06:10 #13804 [verbose] > │ v198.[int v201] <- v203 │
00:06:10 #13805 [verbose] > │ let v204 : uint64 = v201 + 1UL │
00:06:10 #13806 [verbose] > │ v199.l0 <- v204 │
00:06:10 #13807 [verbose] > │ () │
00:06:10 #13808 [verbose] > │ let v205 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:06:10 #13809 [verbose] > │ let v206 : (int64 []) = v205 v198 │
00:06:10 #13810 [verbose] > │ let v207 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:06:10 #13811 [verbose] > │ let v208 : ((int64 []) -> int64 option) = v207 0 │
00:06:10 #13812 [verbose] > │ let v209 : int64 option = v208 v206 │
00:06:10 #13813 [verbose] > │ let v210 : (int64 -> US1) = method22() │
00:06:10 #13814 [verbose] > │ let v211 : US1 = US1_1 │
00:06:10 #13815 [verbose] > │ let v212 : US1 = v209 |> Option.map v210 |> Option.defaultValue v211 │
00:06:10 #13816 [verbose] > │ let v215 : int64 = │
00:06:10 #13817 [verbose] > │ match v212 with │
00:06:10 #13818 [verbose] > │ | US1_1 -> (* None *) │
00:06:10 #13819 [verbose] > │ 0L │
00:06:10 #13820 [verbose] > │ | US1_0(v213) -> (* Some *) │
00:06:10 #13821 [verbose] > │ v213 │
00:06:10 #13822 [verbose] > │ v192.[int v195] <- v215 │
00:06:10 #13823 [verbose] > │ let v216 : uint64 = v195 + 1UL │
00:06:10 #13824 [verbose] > │ v193.l0 <- v216 │
00:06:10 #13825 [verbose] > │ () │
00:06:10 #13826 [verbose] > │ let v217 : uint64 = System.Convert.ToUInt64 v192.Length │
00:06:10 #13827 [verbose] > │ let v218 : UH5 = UH5_0 │
00:06:10 #13828 [verbose] > │ let v219 : Mut3 = {l0 = 0UL; l1 = v218; l2 = 0} : Mut3 │
00:06:10 #13829 [verbose] > │ while method23(v217, v219) do │
00:06:10 #13830 [verbose] > │ let v221 : uint64 = v219.l0 │
00:06:10 #13831 [verbose] > │ let struct (v222 : UH5, v223 : int32) = v219.l1, v219.l2 │
00:06:10 #13832 [verbose] > │ let v224 : int64 = v192.[int v221] │
00:06:10 #13833 [verbose] > │ let v225 : int32 = v223 + 1 │
00:06:10 #13834 [verbose] > │ let v226 : uint64 = v221 + 1UL │
00:06:10 #13835 [verbose] > │ let v227 : UH5 = UH5_1(v223, v224, v222) │
00:06:10 #13836 [verbose] > │ v219.l0 <- v226 │
00:06:10 #13837 [verbose] > │ v219.l1 <- v227 │
00:06:10 #13838 [verbose] > │ v219.l2 <- v225 │
00:06:10 #13839 [verbose] > │ () │
00:06:10 #13840 [verbose] > │ let struct (v228 : UH5, v229 : int32) = v219.l1, v219.l2 │
00:06:10 #13841 [verbose] > │ let v230 : UH5 = UH5_0 │
00:06:10 #13842 [verbose] > │ let v231 : UH5 = method24(v228, v230) │
00:06:10 #13843 [verbose] > │ let v232 : (struct (int32 * int64) []) = method25(v231) │
00:06:10 #13844 [verbose] > │ let v233 : Map<int32, int64> = v232 |> Array.map (fun (struct (a, b)) -> │
00:06:10 #13845 [verbose] > │ a, b) |> Map.ofArray │
00:06:10 #13846 [verbose] > │ let v234 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:06:10 #13847 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v180)) │
00:06:10 #13848 [verbose] > │ let v235 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13849 [verbose] > │ while method4(v180, v235) do │
00:06:10 #13850 [verbose] > │ let v237 : uint64 = v235.l0 │
00:06:10 #13851 [verbose] > │ let struct (v238 : UH2, v239 : US0) = v167.[int v237] │
00:06:10 #13852 [verbose] > │ let v240 : UH6 = UH6_0 │
00:06:10 #13853 [verbose] > │ let v241 : int32 = 0 │
00:06:10 #13854 [verbose] > │ let struct (v242 : UH6, v243 : int32) = method28(v238, v240, v241) │
00:06:10 #13855 [verbose] > │ let v244 : UH6 = UH6_0 │
00:06:10 #13856 [verbose] > │ let v245 : UH6 = method29(v242, v244) │
00:06:10 #13857 [verbose] > │ let v246 : UH2 = UH2_0 │
00:06:10 #13858 [verbose] > │ let v247 : UH2 = method30(v233, v245, v246) │
00:06:10 #13859 [verbose] > │ let v248 : (string []) = method31(v247) │
00:06:10 #13860 [verbose] > │ v234.[int v237] <- struct (v248, v239) │
00:06:10 #13861 [verbose] > │ let v249 : uint64 = v237 + 1UL │
00:06:10 #13862 [verbose] > │ v235.l0 <- v249 │
00:06:10 #13863 [verbose] > │ () │
00:06:10 #13864 [verbose] > │ System.Console.WriteLine v2 │
00:06:10 #13865 [verbose] > │ let v250 : uint64 = System.Convert.ToUInt64 v234.Length │
00:06:10 #13866 [verbose] > │ let v251 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13867 [verbose] > │ while method4(v250, v251) do │
00:06:10 #13868 [verbose] > │ let v253 : uint64 = v251.l0 │
00:06:10 #13869 [verbose] > │ let struct (v254 : (string []), v255 : US0) = v234.[int v253] │
00:06:10 #13870 [verbose] > │ match v255 with │
00:06:10 #13871 [verbose] > │ | US0_1 -> (* None *) │
00:06:10 #13872 [verbose] > │ let v258 : unit option = None │
00:06:10 #13873 [verbose] > │ let mutable _v258 = v258 │
00:06:10 #13874 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:10 #13875 [verbose] > │ () │
00:06:10 #13876 [verbose] > │ #endif │
00:06:10 #13877 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:10 #13878 [verbose] > │ () │
00:06:10 #13879 [verbose] > │ #endif │
00:06:10 #13880 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:10 #13881 [verbose] > │ () │
00:06:10 #13882 [verbose] > │ #endif │
00:06:10 #13883 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:10 #13884 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:10 #13885 [verbose] > │ System.Console.ResetColor () │
00:06:10 #13886 [verbose] > │ () │
00:06:10 #13887 [verbose] > │ #endif │
00:06:10 #13888 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:10 #13889 [verbose] > │ () │
00:06:10 #13890 [verbose] > │ #endif │
00:06:10 #13891 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:10 #13892 [verbose] > │ FABLE_COMPILER_DART │
00:06:10 #13893 [verbose] > │ Unchecked.defaultof<unit> │
00:06:10 #13894 [verbose] > │ () │
00:06:10 #13895 [verbose] > │ #endif │
00:06:10 #13896 [verbose] > │ |> fun x -> _v258 <- Some x │
00:06:10 #13897 [verbose] > │ _v258.Value │
00:06:10 #13898 [verbose] > │ () │
00:06:10 #13899 [verbose] > │ | US0_0(v256) -> (* Some *) │
00:06:10 #13900 [verbose] > │ let v257 : unit option = None │
00:06:10 #13901 [verbose] > │ let mutable _v257 = v257 │
00:06:10 #13902 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:10 #13903 [verbose] > │ () │
00:06:10 #13904 [verbose] > │ #endif │
00:06:10 #13905 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:10 #13906 [verbose] > │ () │
00:06:10 #13907 [verbose] > │ #endif │
00:06:10 #13908 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:10 #13909 [verbose] > │ () │
00:06:10 #13910 [verbose] > │ #endif │
00:06:10 #13911 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:10 #13912 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:10 #13913 [verbose] > │ System.Console.ForegroundColor <- v256 │
00:06:10 #13914 [verbose] > │ () │
00:06:10 #13915 [verbose] > │ #endif │
00:06:10 #13916 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:10 #13917 [verbose] > │ () │
00:06:10 #13918 [verbose] > │ #endif │
00:06:10 #13919 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:10 #13920 [verbose] > │ FABLE_COMPILER_DART │
00:06:10 #13921 [verbose] > │ Unchecked.defaultof<unit> │
00:06:10 #13922 [verbose] > │ () │
00:06:10 #13923 [verbose] > │ #endif │
00:06:10 #13924 [verbose] > │ |> fun x -> _v257 <- Some x │
00:06:10 #13925 [verbose] > │ _v257.Value │
00:06:10 #13926 [verbose] > │ () │
00:06:10 #13927 [verbose] > │ let v259 : string = "\t| " │
00:06:10 #13928 [verbose] > │ let v260 : string = System.String.Join (v259, v254) │
00:06:10 #13929 [verbose] > │ System.Console.WriteLine v260 │
00:06:10 #13930 [verbose] > │ let v261 : unit option = None │
00:06:10 #13931 [verbose] > │ let mutable _v261 = v261 │
00:06:10 #13932 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:10 #13933 [verbose] > │ () │
00:06:10 #13934 [verbose] > │ #endif │
00:06:10 #13935 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:10 #13936 [verbose] > │ () │
00:06:10 #13937 [verbose] > │ #endif │
00:06:10 #13938 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:10 #13939 [verbose] > │ () │
00:06:10 #13940 [verbose] > │ #endif │
00:06:10 #13941 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:10 #13942 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:10 #13943 [verbose] > │ System.Console.ResetColor () │
00:06:10 #13944 [verbose] > │ () │
00:06:10 #13945 [verbose] > │ #endif │
00:06:10 #13946 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:10 #13947 [verbose] > │ () │
00:06:10 #13948 [verbose] > │ #endif │
00:06:10 #13949 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:10 #13950 [verbose] > │ FABLE_COMPILER_DART │
00:06:10 #13951 [verbose] > │ Unchecked.defaultof<unit> │
00:06:10 #13952 [verbose] > │ () │
00:06:10 #13953 [verbose] > │ #endif │
00:06:10 #13954 [verbose] > │ |> fun x -> _v261 <- Some x │
00:06:10 #13955 [verbose] > │ _v261.Value │
00:06:10 #13956 [verbose] > │ let v262 : uint64 = v253 + 1UL │
00:06:10 #13957 [verbose] > │ v251.l0 <- v262 │
00:06:10 #13958 [verbose] > │ () │
00:06:10 #13959 [verbose] > │ let v263 : ((float []) []) = Array.zeroCreate<(float [])> │
00:06:10 #13960 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:06:10 #13961 [verbose] > │ let v264 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13962 [verbose] > │ while method4(v90, v264) do │
00:06:10 #13963 [verbose] > │ let v266 : uint64 = v264.l0 │
00:06:10 #13964 [verbose] > │ let struct (v267 : string, v268 : string, v269 : string, v270 : │
00:06:10 #13965 [verbose] > │ (int64 [])) = v11.[int v266] │
00:06:10 #13966 [verbose] > │ let v271 : (int64 -> float) = float │
00:06:10 #13967 [verbose] > │ let v272 : uint64 = System.Convert.ToUInt64 v270.Length │
00:06:10 #13968 [verbose] > │ let v273 : (float []) = Array.zeroCreate<float> │
00:06:10 #13969 [verbose] > │ (System.Convert.ToInt32(v272)) │
00:06:10 #13970 [verbose] > │ let v274 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13971 [verbose] > │ while method4(v272, v274) do │
00:06:10 #13972 [verbose] > │ let v276 : uint64 = v274.l0 │
00:06:10 #13973 [verbose] > │ let v277 : int64 = v270.[int v276] │
00:06:10 #13974 [verbose] > │ let v278 : float = v271 v277 │
00:06:10 #13975 [verbose] > │ v273.[int v276] <- v278 │
00:06:10 #13976 [verbose] > │ let v279 : uint64 = v276 + 1UL │
00:06:10 #13977 [verbose] > │ v274.l0 <- v279 │
00:06:10 #13978 [verbose] > │ () │
00:06:10 #13979 [verbose] > │ v263.[int v266] <- v273 │
00:06:10 #13980 [verbose] > │ let v280 : uint64 = v266 + 1UL │
00:06:10 #13981 [verbose] > │ v264.l0 <- v280 │
00:06:10 #13982 [verbose] > │ () │
00:06:10 #13983 [verbose] > │ let v281 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:06:10 #13984 [verbose] > │ let v282 : ((float []) []) = v281 v263 │
00:06:10 #13985 [verbose] > │ let v283 : uint64 = System.Convert.ToUInt64 v282.Length │
00:06:10 #13986 [verbose] > │ let v284 : (float []) = Array.zeroCreate<float> │
00:06:10 #13987 [verbose] > │ (System.Convert.ToInt32(v283)) │
00:06:10 #13988 [verbose] > │ let v285 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #13989 [verbose] > │ while method4(v283, v285) do │
00:06:10 #13990 [verbose] > │ let v287 : uint64 = v285.l0 │
00:06:10 #13991 [verbose] > │ let v288 : (float []) = v282.[int v287] │
00:06:10 #13992 [verbose] > │ let v289 : ((float []) -> float) = Array.average │
00:06:10 #13993 [verbose] > │ let v290 : float = v289 v288 │
00:06:10 #13994 [verbose] > │ v284.[int v287] <- v290 │
00:06:10 #13995 [verbose] > │ let v291 : uint64 = v287 + 1UL │
00:06:10 #13996 [verbose] > │ v285.l0 <- v291 │
00:06:10 #13997 [verbose] > │ () │
00:06:10 #13998 [verbose] > │ let v292 : (float -> int64) = int64 │
00:06:10 #13999 [verbose] > │ let v293 : uint64 = System.Convert.ToUInt64 v284.Length │
00:06:10 #14000 [verbose] > │ let v294 : (int64 []) = Array.zeroCreate<int64> │
00:06:10 #14001 [verbose] > │ (System.Convert.ToInt32(v293)) │
00:06:10 #14002 [verbose] > │ let v295 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #14003 [verbose] > │ while method4(v293, v295) do │
00:06:10 #14004 [verbose] > │ let v297 : uint64 = v295.l0 │
00:06:10 #14005 [verbose] > │ let v298 : float = v284.[int v297] │
00:06:10 #14006 [verbose] > │ let v299 : int64 = v292 v298 │
00:06:10 #14007 [verbose] > │ v294.[int v297] <- v299 │
00:06:10 #14008 [verbose] > │ let v300 : uint64 = v297 + 1UL │
00:06:10 #14009 [verbose] > │ v295.l0 <- v300 │
00:06:10 #14010 [verbose] > │ () │
00:06:10 #14011 [verbose] > │ let v301 : uint64 = System.Convert.ToUInt64 v294.Length │
00:06:10 #14012 [verbose] > │ let v302 : UH5 = UH5_0 │
00:06:10 #14013 [verbose] > │ let v303 : Mut3 = {l0 = 0UL; l1 = v302; l2 = 0} : Mut3 │
00:06:10 #14014 [verbose] > │ while method23(v301, v303) do │
00:06:10 #14015 [verbose] > │ let v305 : uint64 = v303.l0 │
00:06:10 #14016 [verbose] > │ let struct (v306 : UH5, v307 : int32) = v303.l1, v303.l2 │
00:06:10 #14017 [verbose] > │ let v308 : int64 = v294.[int v305] │
00:06:10 #14018 [verbose] > │ let v309 : int32 = v307 + 1 │
00:06:10 #14019 [verbose] > │ let v310 : uint64 = v305 + 1UL │
00:06:10 #14020 [verbose] > │ let v311 : UH5 = UH5_1(v307, v308, v306) │
00:06:10 #14021 [verbose] > │ v303.l0 <- v310 │
00:06:10 #14022 [verbose] > │ v303.l1 <- v311 │
00:06:10 #14023 [verbose] > │ v303.l2 <- v309 │
00:06:10 #14024 [verbose] > │ () │
00:06:10 #14025 [verbose] > │ let struct (v312 : UH5, v313 : int32) = v303.l1, v303.l2 │
00:06:10 #14026 [verbose] > │ let v314 : UH5 = UH5_0 │
00:06:10 #14027 [verbose] > │ let v315 : UH5 = method24(v312, v314) │
00:06:10 #14028 [verbose] > │ let v316 : (struct (int32 * int64) []) = method34(v315) │
00:06:10 #14029 [verbose] > │ System.Console.WriteLine v2 │
00:06:10 #14030 [verbose] > │ let v317 : string = "Average Ranking " │
00:06:10 #14031 [verbose] > │ System.Console.WriteLine v317 │
00:06:10 #14032 [verbose] > │ let v318 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:06:10 #14033 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:06:10 #14034 [verbose] > │ let v319 : (struct (int32 * int64) -> int64) = closure6() │
00:06:10 #14035 [verbose] > │ let v320 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:06:10 #14036 [verbose] > │ = v318 v319 │
00:06:10 #14037 [verbose] > │ let v321 : (struct (int32 * int64) []) = v320 v316 │
00:06:10 #14038 [verbose] > │ let v322 : uint64 = System.Convert.ToUInt64 v321.Length │
00:06:10 #14039 [verbose] > │ let v323 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:10 #14040 [verbose] > │ while method4(v322, v323) do │
00:06:10 #14041 [verbose] > │ let v325 : uint64 = v323.l0 │
00:06:10 #14042 [verbose] > │ let struct (v326 : int32, v327 : int64) = v321.[int v325] │
00:06:10 #14043 [verbose] > │ let v328 : string = $"Test case %d{v326 + 1}. Average Time: %A{v327} │
00:06:10 #14044 [verbose] > │ " │
00:06:10 #14045 [verbose] > │ System.Console.WriteLine v328 │
00:06:10 #14046 [verbose] > │ let v329 : uint64 = v325 + 1UL │
00:06:10 #14047 [verbose] > │ v323.l0 <- v329 │
00:06:10 #14048 [verbose] > │ () │
00:06:10 #14049 [verbose] > │ () │
00:06:10 #14050 [verbose] > │ method0() │
00:06:10 #14051 [verbose] > │ │
00:06:10 #14052 [verbose] > │ │
00:06:10 #14053 [verbose] > │ │
00:06:10 #14054 [verbose] > │ Test: v0 │
00:06:10 #14055 [verbose] > │ │
00:06:10 #14056 [verbose] > │ Solution: struct ("a", "a") │
00:06:10 #14057 [verbose] > │ Test case 1. A. Time: 107 │
00:06:10 #14058 [verbose] > │ Test case 2. B. Time: 98 │
00:06:10 #14059 [verbose] > │ │
00:06:10 #14060 [verbose] > │ Solution: struct ("b", "b") │
00:06:10 #14061 [verbose] > │ Test case 1. A. Time: 106 │
00:06:10 #14062 [verbose] > │ Test case 2. B. Time: 111 │
00:06:10 #14063 [verbose] > │ │
00:06:10 #14064 [verbose] > │ Input | Expected | Result | Best │
00:06:10 #14065 [verbose] > │ --- | --- | --- | --- │
00:06:10 #14066 [verbose] > │ struct ("a", "a") | "a" | "a" | struct (2L, 98L) │
00:06:10 #14067 [verbose] > │ struct ("b", "b") | "b" | "b" | struct (1L, 106L) │
00:06:10 #14068 [verbose] > │ │
00:06:10 #14069 [verbose] > │ Average Ranking │
00:06:10 #14070 [verbose] > │ Test case 2. Average Time: 104L │
00:06:10 #14071 [verbose] > │ Test case 1. Average Time: 106L │
00:06:10 #14072 [verbose] > │ │
00:06:10 #14073 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:10 #14074 [verbose] >
00:06:10 #14075 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:10 #14076 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:10 #14077 [verbose] > │ ## emptyTests │
00:06:10 #14078 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:10 #14079 [verbose] >
00:06:10 #14080 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:10 #14081 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:10 #14082 [verbose] > │ Test: Empty │
00:06:10 #14083 [verbose] > │ │
00:06:10 #14084 [verbose] > │ Solution: 0 │
00:06:10 #14085 [verbose] > │ Test case 1. A. Time: 61L │
00:06:10 #14086 [verbose] > │ │
00:06:10 #14087 [verbose] > │ Solution: 2 │
00:06:10 #14088 [verbose] > │ Test case 1. A. Time: 62L │
00:06:10 #14089 [verbose] > │ │
00:06:10 #14090 [verbose] > │ Solution: 5 │
00:06:10 #14091 [verbose] > │ Test case 1. A. Time: 70L │
00:06:10 #14092 [verbose] > │ │
00:06:10 #14093 [verbose] > │ Input | Expected | Result | Best │
00:06:10 #14094 [verbose] > │ --- | --- | --- | --- │
00:06:10 #14095 [verbose] > │ 0 | 0 | 0 | (1, 61) │
00:06:10 #14096 [verbose] > │ 2 | 2 | 2 | (1, 62) │
00:06:10 #14097 [verbose] > │ 5 | 5 | 5 | (1, 70) │
00:06:10 #14098 [verbose] > │ │
00:06:10 #14099 [verbose] > │ Averages │
00:06:10 #14100 [verbose] > │ Test case 1. Average Time: 64L │
00:06:10 #14101 [verbose] > │ │
00:06:10 #14102 [verbose] > │ Ranking │
00:06:10 #14103 [verbose] > │ Test case 1. Average Time: 64L │
00:06:10 #14104 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:10 #14105 [verbose] >
00:06:10 #14106 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:10 #14107 [verbose] > // // test
00:06:10 #14108 [verbose] >
00:06:10 #14109 [verbose] > inl get_solutions () =
00:06:10 #14110 [verbose] > [[
00:06:10 #14111 [verbose] > "A",
00:06:10 #14112 [verbose] > fun n =>
00:06:10 #14113 [verbose] > n + 1f64
00:06:10 #14114 [verbose] > ]]
00:06:10 #14115 [verbose] >
00:06:10 #14116 [verbose] > inl rec empty_1_tests () =
00:06:10 #14117 [verbose] > inl test_cases = [[
00:06:10 #14118 [verbose] > 0, 1
00:06:10 #14119 [verbose] > 2, 3
00:06:10 #14120 [verbose] > 5, 6
00:06:10 #14121 [verbose] > ]]
00:06:10 #14122 [verbose] >
00:06:10 #14123 [verbose] > inl solutions = get_solutions ()
00:06:10 #14124 [verbose] >
00:06:10 #14125 [verbose] > // inl is_fast () = true
00:06:10 #14126 [verbose] >
00:06:10 #14127 [verbose] > inl count =
00:06:10 #14128 [verbose] > if is_fast ()
00:06:10 #14129 [verbose] > then 1000i32
00:06:10 #14130 [verbose] > else 2000000i32
00:06:10 #14131 [verbose] >
00:06:10 #14132 [verbose] > run_all (nameof empty_1_tests) count solutions test_cases
00:06:10 #14133 [verbose] > |> sort_result_list
00:06:10 #14134 [verbose] >
00:06:10 #14135 [verbose] > empty_1_tests ()
00:06:10 #14136 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\add20fff0f27a8abe1411796e3c8df50eddcafd4e78f8d42c4f62ae6367103c9\main.spi
00:06:16 #14137 [verbose] >
00:06:16 #14138 [verbose] > ╭─[ 5.40s - stdout ]───────────────────────────────────────────────────────────╮
00:06:16 #14139 [verbose] > │ type UH0 = │
00:06:16 #14140 [verbose] > │ | UH0_0 │
00:06:16 #14141 [verbose] > │ | UH0_1 of float * float * UH0 │
00:06:16 #14142 [verbose] > │ and Mut0 = {mutable l0 : uint64} │
00:06:16 #14143 [verbose] > │ and UH1 = │
00:06:16 #14144 [verbose] > │ | UH1_0 │
00:06:16 #14145 [verbose] > │ | UH1_1 of int32 * string * (float -> float) * UH1 │
00:06:16 #14146 [verbose] > │ and Mut1 = {mutable l0 : int32} │
00:06:16 #14147 [verbose] > │ and UH2 = │
00:06:16 #14148 [verbose] > │ | UH2_0 │
00:06:16 #14149 [verbose] > │ | UH2_1 of string * UH2 │
00:06:16 #14150 [verbose] > │ and [<Struct>] US0 = │
00:06:16 #14151 [verbose] > │ | US0_0 of f0_0 : System.ConsoleColor │
00:06:16 #14152 [verbose] > │ | US0_1 │
00:06:16 #14153 [verbose] > │ and UH3 = │
00:06:16 #14154 [verbose] > │ | UH3_0 │
00:06:16 #14155 [verbose] > │ | UH3_1 of int64 * int64 * UH3 │
00:06:16 #14156 [verbose] > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH3; mutable l2 : int64} │
00:06:16 #14157 [verbose] > │ and UH4 = │
00:06:16 #14158 [verbose] > │ | UH4_0 │
00:06:16 #14159 [verbose] > │ | UH4_1 of UH2 * US0 * UH4 │
00:06:16 #14160 [verbose] > │ and [<Struct>] US1 = │
00:06:16 #14161 [verbose] > │ | US1_0 of f0_0 : int64 │
00:06:16 #14162 [verbose] > │ | US1_1 │
00:06:16 #14163 [verbose] > │ and UH5 = │
00:06:16 #14164 [verbose] > │ | UH5_0 │
00:06:16 #14165 [verbose] > │ | UH5_1 of int32 * int64 * UH5 │
00:06:16 #14166 [verbose] > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH5; mutable l2 : int32} │
00:06:16 #14167 [verbose] > │ and UH6 = │
00:06:16 #14168 [verbose] > │ | UH6_0 │
00:06:16 #14169 [verbose] > │ | UH6_1 of int32 * string * UH6 │
00:06:16 #14170 [verbose] > │ let rec method2 (v0 : UH0, v1 : uint64) : uint64 = │
00:06:16 #14171 [verbose] > │ match v0 with │
00:06:16 #14172 [verbose] > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:06:16 #14173 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:06:16 #14174 [verbose] > │ method2(v4, v5) │
00:06:16 #14175 [verbose] > │ | UH0_0 -> (* Nil *) │
00:06:16 #14176 [verbose] > │ v1 │
00:06:16 #14177 [verbose] > │ and method3 (v0 : (struct (float * float) []), v1 : UH0, v2 : uint64) : │
00:06:16 #14178 [verbose] > │ uint64 = │
00:06:16 #14179 [verbose] > │ match v1 with │
00:06:16 #14180 [verbose] > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:06:16 #14181 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:06:16 #14182 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:06:16 #14183 [verbose] > │ method3(v0, v5, v6) │
00:06:16 #14184 [verbose] > │ | UH0_0 -> (* Nil *) │
00:06:16 #14185 [verbose] > │ v2 │
00:06:16 #14186 [verbose] > │ and method1 (v0 : UH0) : (struct (float * float) []) = │
00:06:16 #14187 [verbose] > │ let v1 : uint64 = 0UL │
00:06:16 #14188 [verbose] > │ let v2 : uint64 = method2(v0, v1) │
00:06:16 #14189 [verbose] > │ let v3 : (struct (float * float) []) = Array.zeroCreate<struct (float * │
00:06:16 #14190 [verbose] > │ float)> (System.Convert.ToInt32(v2)) │
00:06:16 #14191 [verbose] > │ let v4 : uint64 = 0UL │
00:06:16 #14192 [verbose] > │ let v5 : uint64 = method3(v3, v0, v4) │
00:06:16 #14193 [verbose] > │ v3 │
00:06:16 #14194 [verbose] > │ and method4 (v0 : uint64, v1 : Mut0) : bool = │
00:06:16 #14195 [verbose] > │ let v2 : uint64 = v1.l0 │
00:06:16 #14196 [verbose] > │ let v3 : bool = v2 < v0 │
00:06:16 #14197 [verbose] > │ v3 │
00:06:16 #14198 [verbose] > │ and closure1 () (v0 : float) : float = │
00:06:16 #14199 [verbose] > │ let v1 : float = v0 + 1.0 │
00:06:16 #14200 [verbose] > │ v1 │
00:06:16 #14201 [verbose] > │ and method6 (v0 : UH1, v1 : uint64) : uint64 = │
00:06:16 #14202 [verbose] > │ match v0 with │
00:06:16 #14203 [verbose] > │ | UH1_1(v2, v3, v4, v5) -> (* Cons *) │
00:06:16 #14204 [verbose] > │ let v6 : uint64 = v1 + 1UL │
00:06:16 #14205 [verbose] > │ method6(v5, v6) │
00:06:16 #14206 [verbose] > │ | UH1_0 -> (* Nil *) │
00:06:16 #14207 [verbose] > │ v1 │
00:06:16 #14208 [verbose] > │ and method7 (v0 : (struct (int32 * string * (float -> float)) []), v1 : UH1, │
00:06:16 #14209 [verbose] > │ v2 : uint64) : uint64 = │
00:06:16 #14210 [verbose] > │ match v1 with │
00:06:16 #14211 [verbose] > │ | UH1_1(v3, v4, v5, v6) -> (* Cons *) │
00:06:16 #14212 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5) │
00:06:16 #14213 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:06:16 #14214 [verbose] > │ method7(v0, v6, v7) │
00:06:16 #14215 [verbose] > │ | UH1_0 -> (* Nil *) │
00:06:16 #14216 [verbose] > │ v2 │
00:06:16 #14217 [verbose] > │ and method5 (v0 : UH1) : (struct (int32 * string * (float -> float)) []) = │
00:06:16 #14218 [verbose] > │ let v1 : uint64 = 0UL │
00:06:16 #14219 [verbose] > │ let v2 : uint64 = method6(v0, v1) │
00:06:16 #14220 [verbose] > │ let v3 : (struct (int32 * string * (float -> float)) []) = │
00:06:16 #14221 [verbose] > │ Array.zeroCreate<struct (int32 * string * (float -> float))> │
00:06:16 #14222 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:06:16 #14223 [verbose] > │ let v4 : uint64 = 0UL │
00:06:16 #14224 [verbose] > │ let v5 : uint64 = method7(v3, v0, v4) │
00:06:16 #14225 [verbose] > │ v3 │
00:06:16 #14226 [verbose] > │ and method8 (v0 : Mut1) : bool = │
00:06:16 #14227 [verbose] > │ let v1 : int32 = v0.l0 │
00:06:16 #14228 [verbose] > │ let v2 : bool = v1 < 2000001 │
00:06:16 #14229 [verbose] > │ v2 │
00:06:16 #14230 [verbose] > │ and closure2 (v0 : float, v1 : (float -> float)) (v2 : int32) : float = │
00:06:16 #14231 [verbose] > │ v1 v0 │
00:06:16 #14232 [verbose] > │ and method9 (v0 : float, v1 : (float []), v2 : uint64) : bool = │
00:06:16 #14233 [verbose] > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:06:16 #14234 [verbose] > │ let v4 : bool = v2 < v3 │
00:06:16 #14235 [verbose] > │ if v4 then │
00:06:16 #14236 [verbose] > │ let v5 : float = v1.[int v2] │
00:06:16 #14237 [verbose] > │ let v6 : bool = v0 = v5 │
00:06:16 #14238 [verbose] > │ if v6 then │
00:06:16 #14239 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:06:16 #14240 [verbose] > │ method9(v0, v1, v7) │
00:06:16 #14241 [verbose] > │ else │
00:06:16 #14242 [verbose] > │ false │
00:06:16 #14243 [verbose] > │ else │
00:06:16 #14244 [verbose] > │ true │
00:06:16 #14245 [verbose] > │ and method10 (v0 : uint64, v1 : Mut2) : bool = │
00:06:16 #14246 [verbose] > │ let v2 : uint64 = v1.l0 │
00:06:16 #14247 [verbose] > │ let v3 : bool = v2 < v0 │
00:06:16 #14248 [verbose] > │ v3 │
00:06:16 #14249 [verbose] > │ and method11 (v0 : UH3, v1 : UH3) : UH3 = │
00:06:16 #14250 [verbose] > │ match v0 with │
00:06:16 #14251 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:06:16 #14252 [verbose] > │ let v5 : UH3 = UH3_1(v2, v3, v1) │
00:06:16 #14253 [verbose] > │ method11(v4, v5) │
00:06:16 #14254 [verbose] > │ | UH3_0 -> (* Nil *) │
00:06:16 #14255 [verbose] > │ v1 │
00:06:16 #14256 [verbose] > │ and method13 (v0 : UH3, v1 : int32) : int32 = │
00:06:16 #14257 [verbose] > │ match v0 with │
00:06:16 #14258 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:06:16 #14259 [verbose] > │ let v5 : int32 = v1 + 1 │
00:06:16 #14260 [verbose] > │ method13(v4, v5) │
00:06:16 #14261 [verbose] > │ | UH3_0 -> (* Nil *) │
00:06:16 #14262 [verbose] > │ v1 │
00:06:16 #14263 [verbose] > │ and method14 (v0 : (struct (int64 * int64) []), v1 : UH3, v2 : int32) : │
00:06:16 #14264 [verbose] > │ int32 = │
00:06:16 #14265 [verbose] > │ match v1 with │
00:06:16 #14266 [verbose] > │ | UH3_1(v3, v4, v5) -> (* Cons *) │
00:06:16 #14267 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:06:16 #14268 [verbose] > │ let v6 : int32 = v2 + 1 │
00:06:16 #14269 [verbose] > │ method14(v0, v5, v6) │
00:06:16 #14270 [verbose] > │ | UH3_0 -> (* Nil *) │
00:06:16 #14271 [verbose] > │ v2 │
00:06:16 #14272 [verbose] > │ and method12 (v0 : UH3) : (struct (int64 * int64) []) = │
00:06:16 #14273 [verbose] > │ let v1 : int32 = 0 │
00:06:16 #14274 [verbose] > │ let v2 : int32 = method13(v0, v1) │
00:06:16 #14275 [verbose] > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:06:16 #14276 [verbose] > │ int64)> (v2) │
00:06:16 #14277 [verbose] > │ let v4 : int32 = 0 │
00:06:16 #14278 [verbose] > │ let v5 : int32 = method14(v3, v0, v4) │
00:06:16 #14279 [verbose] > │ v3 │
00:06:16 #14280 [verbose] > │ and method15 (v0 : int32, v1 : Mut1) : bool = │
00:06:16 #14281 [verbose] > │ let v2 : int32 = v1.l0 │
00:06:16 #14282 [verbose] > │ let v3 : bool = v2 < v0 │
00:06:16 #14283 [verbose] > │ v3 │
00:06:16 #14284 [verbose] > │ and closure3 () struct (v0 : int64, v1 : int64) : int64 = │
00:06:16 #14285 [verbose] > │ v1 │
00:06:16 #14286 [verbose] > │ and method17 (v0 : UH4, v1 : uint64) : uint64 = │
00:06:16 #14287 [verbose] > │ match v0 with │
00:06:16 #14288 [verbose] > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:06:16 #14289 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:06:16 #14290 [verbose] > │ method17(v4, v5) │
00:06:16 #14291 [verbose] > │ | UH4_0 -> (* Nil *) │
00:06:16 #14292 [verbose] > │ v1 │
00:06:16 #14293 [verbose] > │ and method18 (v0 : (struct (UH2 * US0) []), v1 : UH4, v2 : uint64) : uint64 │
00:06:16 #14294 [verbose] > │ = │
00:06:16 #14295 [verbose] > │ match v1 with │
00:06:16 #14296 [verbose] > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:06:16 #14297 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:06:16 #14298 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:06:16 #14299 [verbose] > │ method18(v0, v5, v6) │
00:06:16 #14300 [verbose] > │ | UH4_0 -> (* Nil *) │
00:06:16 #14301 [verbose] > │ v2 │
00:06:16 #14302 [verbose] > │ and method16 (v0 : UH4) : (struct (UH2 * US0) []) = │
00:06:16 #14303 [verbose] > │ let v1 : uint64 = 0UL │
00:06:16 #14304 [verbose] > │ let v2 : uint64 = method17(v0, v1) │
00:06:16 #14305 [verbose] > │ let v3 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:06:16 #14306 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:06:16 #14307 [verbose] > │ let v4 : uint64 = 0UL │
00:06:16 #14308 [verbose] > │ let v5 : uint64 = method18(v3, v0, v4) │
00:06:16 #14309 [verbose] > │ v3 │
00:06:16 #14310 [verbose] > │ and method20 (v0 : UH2, v1 : uint64) : uint64 = │
00:06:16 #14311 [verbose] > │ match v0 with │
00:06:16 #14312 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:06:16 #14313 [verbose] > │ let v4 : uint64 = v1 + 1UL │
00:06:16 #14314 [verbose] > │ method20(v3, v4) │
00:06:16 #14315 [verbose] > │ | UH2_0 -> (* Nil *) │
00:06:16 #14316 [verbose] > │ v1 │
00:06:16 #14317 [verbose] > │ and method21 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:06:16 #14318 [verbose] > │ match v1 with │
00:06:16 #14319 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:06:16 #14320 [verbose] > │ v0.[int v2] <- v3 │
00:06:16 #14321 [verbose] > │ let v5 : uint64 = v2 + 1UL │
00:06:16 #14322 [verbose] > │ method21(v0, v4, v5) │
00:06:16 #14323 [verbose] > │ | UH2_0 -> (* Nil *) │
00:06:16 #14324 [verbose] > │ v2 │
00:06:16 #14325 [verbose] > │ and method19 (v0 : UH2) : (string []) = │
00:06:16 #14326 [verbose] > │ let v1 : uint64 = 0UL │
00:06:16 #14327 [verbose] > │ let v2 : uint64 = method20(v0, v1) │
00:06:16 #14328 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> │
00:06:16 #14329 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:06:16 #14330 [verbose] > │ let v4 : uint64 = 0UL │
00:06:16 #14331 [verbose] > │ let v5 : uint64 = method21(v3, v0, v4) │
00:06:16 #14332 [verbose] > │ v3 │
00:06:16 #14333 [verbose] > │ and closure4 () (v0 : int64) : US1 = │
00:06:16 #14334 [verbose] > │ US1_0(v0) │
00:06:16 #14335 [verbose] > │ and method22 () : (int64 -> US1) = │
00:06:16 #14336 [verbose] > │ closure4() │
00:06:16 #14337 [verbose] > │ and method23 (v0 : uint64, v1 : Mut3) : bool = │
00:06:16 #14338 [verbose] > │ let v2 : uint64 = v1.l0 │
00:06:16 #14339 [verbose] > │ let v3 : bool = v2 < v0 │
00:06:16 #14340 [verbose] > │ v3 │
00:06:16 #14341 [verbose] > │ and method24 (v0 : UH5, v1 : UH5) : UH5 = │
00:06:16 #14342 [verbose] > │ match v0 with │
00:06:16 #14343 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:06:16 #14344 [verbose] > │ let v5 : UH5 = UH5_1(v2, v3, v1) │
00:06:16 #14345 [verbose] > │ method24(v4, v5) │
00:06:16 #14346 [verbose] > │ | UH5_0 -> (* Nil *) │
00:06:16 #14347 [verbose] > │ v1 │
00:06:16 #14348 [verbose] > │ and method26 (v0 : UH5, v1 : int32) : int32 = │
00:06:16 #14349 [verbose] > │ match v0 with │
00:06:16 #14350 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:06:16 #14351 [verbose] > │ let v5 : int32 = v1 + 1 │
00:06:16 #14352 [verbose] > │ method26(v4, v5) │
00:06:16 #14353 [verbose] > │ | UH5_0 -> (* Nil *) │
00:06:16 #14354 [verbose] > │ v1 │
00:06:16 #14355 [verbose] > │ and method27 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : int32) : │
00:06:16 #14356 [verbose] > │ int32 = │
00:06:16 #14357 [verbose] > │ match v1 with │
00:06:16 #14358 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:06:16 #14359 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:06:16 #14360 [verbose] > │ let v6 : int32 = v2 + 1 │
00:06:16 #14361 [verbose] > │ method27(v0, v5, v6) │
00:06:16 #14362 [verbose] > │ | UH5_0 -> (* Nil *) │
00:06:16 #14363 [verbose] > │ v2 │
00:06:16 #14364 [verbose] > │ and method25 (v0 : UH5) : (struct (int32 * int64) []) = │
00:06:16 #14365 [verbose] > │ let v1 : int32 = 0 │
00:06:16 #14366 [verbose] > │ let v2 : int32 = method26(v0, v1) │
00:06:16 #14367 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:06:16 #14368 [verbose] > │ int64)> (v2) │
00:06:16 #14369 [verbose] > │ let v4 : int32 = 0 │
00:06:16 #14370 [verbose] > │ let v5 : int32 = method27(v3, v0, v4) │
00:06:16 #14371 [verbose] > │ v3 │
00:06:16 #14372 [verbose] > │ and method28 (v0 : UH2, v1 : UH6, v2 : int32) : struct (UH6 * int32) = │
00:06:16 #14373 [verbose] > │ match v0 with │
00:06:16 #14374 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:06:16 #14375 [verbose] > │ let v5 : int32 = v2 + 1 │
00:06:16 #14376 [verbose] > │ let v6 : UH6 = UH6_1(v2, v3, v1) │
00:06:16 #14377 [verbose] > │ method28(v4, v6, v5) │
00:06:16 #14378 [verbose] > │ | UH2_0 -> (* Nil *) │
00:06:16 #14379 [verbose] > │ struct (v1, v2) │
00:06:16 #14380 [verbose] > │ and method29 (v0 : UH6, v1 : UH6) : UH6 = │
00:06:16 #14381 [verbose] > │ match v0 with │
00:06:16 #14382 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:06:16 #14383 [verbose] > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:06:16 #14384 [verbose] > │ method29(v4, v5) │
00:06:16 #14385 [verbose] > │ | UH6_0 -> (* Nil *) │
00:06:16 #14386 [verbose] > │ v1 │
00:06:16 #14387 [verbose] > │ and method30 (v0 : Map<int32, int64>, v1 : UH6, v2 : UH2) : UH2 = │
00:06:16 #14388 [verbose] > │ match v1 with │
00:06:16 #14389 [verbose] > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:06:16 #14390 [verbose] > │ let v6 : UH2 = method30(v0, v5, v2) │
00:06:16 #14391 [verbose] > │ let v7 : int64 = v0.[v3] │
00:06:16 #14392 [verbose] > │ let v8 : int32 = int32 v7 │
00:06:16 #14393 [verbose] > │ let v9 : string = v4.PadRight v8 │
00:06:16 #14394 [verbose] > │ UH2_1(v9, v6) │
00:06:16 #14395 [verbose] > │ | UH6_0 -> (* Nil *) │
00:06:16 #14396 [verbose] > │ v2 │
00:06:16 #14397 [verbose] > │ and method32 (v0 : UH2, v1 : int32) : int32 = │
00:06:16 #14398 [verbose] > │ match v0 with │
00:06:16 #14399 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:06:16 #14400 [verbose] > │ let v4 : int32 = v1 + 1 │
00:06:16 #14401 [verbose] > │ method32(v3, v4) │
00:06:16 #14402 [verbose] > │ | UH2_0 -> (* Nil *) │
00:06:16 #14403 [verbose] > │ v1 │
00:06:16 #14404 [verbose] > │ and method33 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:06:16 #14405 [verbose] > │ match v1 with │
00:06:16 #14406 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:06:16 #14407 [verbose] > │ v0.[int v2] <- v3 │
00:06:16 #14408 [verbose] > │ let v5 : int32 = v2 + 1 │
00:06:16 #14409 [verbose] > │ method33(v0, v4, v5) │
00:06:16 #14410 [verbose] > │ | UH2_0 -> (* Nil *) │
00:06:16 #14411 [verbose] > │ v2 │
00:06:16 #14412 [verbose] > │ and method31 (v0 : UH2) : (string []) = │
00:06:16 #14413 [verbose] > │ let v1 : int32 = 0 │
00:06:16 #14414 [verbose] > │ let v2 : int32 = method32(v0, v1) │
00:06:16 #14415 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:06:16 #14416 [verbose] > │ let v4 : int32 = 0 │
00:06:16 #14417 [verbose] > │ let v5 : int32 = method33(v3, v0, v4) │
00:06:16 #14418 [verbose] > │ v3 │
00:06:16 #14419 [verbose] > │ and method35 (v0 : UH5, v1 : uint64) : uint64 = │
00:06:16 #14420 [verbose] > │ match v0 with │
00:06:16 #14421 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:06:16 #14422 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:06:16 #14423 [verbose] > │ method35(v4, v5) │
00:06:16 #14424 [verbose] > │ | UH5_0 -> (* Nil *) │
00:06:16 #14425 [verbose] > │ v1 │
00:06:16 #14426 [verbose] > │ and method36 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : uint64) : │
00:06:16 #14427 [verbose] > │ uint64 = │
00:06:16 #14428 [verbose] > │ match v1 with │
00:06:16 #14429 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:06:16 #14430 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:06:16 #14431 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:06:16 #14432 [verbose] > │ method36(v0, v5, v6) │
00:06:16 #14433 [verbose] > │ | UH5_0 -> (* Nil *) │
00:06:16 #14434 [verbose] > │ v2 │
00:06:16 #14435 [verbose] > │ and method34 (v0 : UH5) : (struct (int32 * int64) []) = │
00:06:16 #14436 [verbose] > │ let v1 : uint64 = 0UL │
00:06:16 #14437 [verbose] > │ let v2 : uint64 = method35(v0, v1) │
00:06:16 #14438 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:06:16 #14439 [verbose] > │ int64)> (System.Convert.ToInt32(v2)) │
00:06:16 #14440 [verbose] > │ let v4 : uint64 = 0UL │
00:06:16 #14441 [verbose] > │ let v5 : uint64 = method36(v3, v0, v4) │
00:06:16 #14442 [verbose] > │ v3 │
00:06:16 #14443 [verbose] > │ and closure5 () struct (v0 : int32, v1 : int64) : int64 = │
00:06:16 #14444 [verbose] > │ v1 │
00:06:16 #14445 [verbose] > │ and closure0 () () : unit = │
00:06:16 #14446 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:06:16 #14447 [verbose] > │ let v1 : string = nameof v0 │
00:06:16 #14448 [verbose] > │ let v2 : string = "" │
00:06:16 #14449 [verbose] > │ System.Console.WriteLine v2 │
00:06:16 #14450 [verbose] > │ System.Console.WriteLine v2 │
00:06:16 #14451 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:06:16 #14452 [verbose] > │ System.Console.WriteLine v3 │
00:06:16 #14453 [verbose] > │ let v4 : float = 0.0 │
00:06:16 #14454 [verbose] > │ let v5 : float = 1.0 │
00:06:16 #14455 [verbose] > │ let v6 : float = 2.0 │
00:06:16 #14456 [verbose] > │ let v7 : float = 3.0 │
00:06:16 #14457 [verbose] > │ let v8 : float = 5.0 │
00:06:16 #14458 [verbose] > │ let v9 : float = 6.0 │
00:06:16 #14459 [verbose] > │ let v10 : UH0 = UH0_0 │
00:06:16 #14460 [verbose] > │ let v11 : UH0 = UH0_1(v8, v9, v10) │
00:06:16 #14461 [verbose] > │ let v12 : UH0 = UH0_1(v6, v7, v11) │
00:06:16 #14462 [verbose] > │ let v13 : UH0 = UH0_1(v4, v5, v12) │
00:06:16 #14463 [verbose] > │ let v14 : (struct (float * float) []) = method1(v13) │
00:06:16 #14464 [verbose] > │ let v15 : uint64 = System.Convert.ToUInt64 v14.Length │
00:06:16 #14465 [verbose] > │ let v16 : (struct (string * string * string * (int64 [])) []) = │
00:06:16 #14466 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:06:16 #14467 [verbose] > │ (System.Convert.ToInt32(v15)) │
00:06:16 #14468 [verbose] > │ let v17 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14469 [verbose] > │ while method4(v15, v17) do │
00:06:16 #14470 [verbose] > │ let v19 : uint64 = v17.l0 │
00:06:16 #14471 [verbose] > │ let struct (v20 : float, v21 : float) = v14.[int v19] │
00:06:16 #14472 [verbose] > │ let v22 : string = $"%A{v20}" │
00:06:16 #14473 [verbose] > │ System.Console.WriteLine v2 │
00:06:16 #14474 [verbose] > │ let v23 : string = $"Solution: {v22} " │
00:06:16 #14475 [verbose] > │ System.Console.WriteLine v23 │
00:06:16 #14476 [verbose] > │ let v24 : int32 = 0 │
00:06:16 #14477 [verbose] > │ let v25 : string = "A" │
00:06:16 #14478 [verbose] > │ let v26 : (float -> float) = closure1() │
00:06:16 #14479 [verbose] > │ let v27 : UH1 = UH1_0 │
00:06:16 #14480 [verbose] > │ let v28 : UH1 = UH1_1(v24, v25, v26, v27) │
00:06:16 #14481 [verbose] > │ let v29 : (struct (int32 * string * (float -> float)) []) = │
00:06:16 #14482 [verbose] > │ method5(v28) │
00:06:16 #14483 [verbose] > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:06:16 #14484 [verbose] > │ let v31 : (struct (float * int64) []) = Array.zeroCreate<struct │
00:06:16 #14485 [verbose] > │ (float * int64)> (System.Convert.ToInt32(v30)) │
00:06:16 #14486 [verbose] > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14487 [verbose] > │ while method4(v30, v32) do │
00:06:16 #14488 [verbose] > │ let v34 : uint64 = v32.l0 │
00:06:16 #14489 [verbose] > │ let struct (v35 : int32, v36 : string, v37 : (float -> float)) = │
00:06:16 #14490 [verbose] > │ v29.[int v34] │
00:06:16 #14491 [verbose] > │ let v38 : unit option = None │
00:06:16 #14492 [verbose] > │ let mutable _v38 = v38 │
00:06:16 #14493 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:16 #14494 [verbose] > │ () │
00:06:16 #14495 [verbose] > │ #endif │
00:06:16 #14496 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:16 #14497 [verbose] > │ () │
00:06:16 #14498 [verbose] > │ #endif │
00:06:16 #14499 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:16 #14500 [verbose] > │ () │
00:06:16 #14501 [verbose] > │ #endif │
00:06:16 #14502 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:16 #14503 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:16 #14504 [verbose] > │ System.GC.Collect () │
00:06:16 #14505 [verbose] > │ () │
00:06:16 #14506 [verbose] > │ #endif │
00:06:16 #14507 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:16 #14508 [verbose] > │ () │
00:06:16 #14509 [verbose] > │ #endif │
00:06:16 #14510 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:16 #14511 [verbose] > │ FABLE_COMPILER_DART │
00:06:16 #14512 [verbose] > │ Unchecked.defaultof<unit> │
00:06:16 #14513 [verbose] > │ () │
00:06:16 #14514 [verbose] > │ #endif │
00:06:16 #14515 [verbose] > │ |> fun x -> _v38 <- Some x │
00:06:16 #14516 [verbose] > │ _v38.Value │
00:06:16 #14517 [verbose] > │ let v39 : (unit -> System.Diagnostics.Stopwatch) = │
00:06:16 #14518 [verbose] > │ System.Diagnostics.Stopwatch │
00:06:16 #14519 [verbose] > │ let v40 : System.Diagnostics.Stopwatch = v39 () │
00:06:16 #14520 [verbose] > │ v40.Start () │
00:06:16 #14521 [verbose] > │ let v41 : int64 = v40.ElapsedMilliseconds │
00:06:16 #14522 [verbose] > │ let v42 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:06:16 #14523 [verbose] > │ let v43 : Mut1 = {l0 = 0} : Mut1 │
00:06:16 #14524 [verbose] > │ while method8(v43) do │
00:06:16 #14525 [verbose] > │ let v45 : int32 = v43.l0 │
00:06:16 #14526 [verbose] > │ v42.[int v45] <- v45 │
00:06:16 #14527 [verbose] > │ let v46 : int32 = v45 + 1 │
00:06:16 #14528 [verbose] > │ v43.l0 <- v46 │
00:06:16 #14529 [verbose] > │ () │
00:06:16 #14530 [verbose] > │ let v47 : ((int32 -> float) -> ((int32 []) -> (float []))) = │
00:06:16 #14531 [verbose] > │ Array.Parallel.map │
00:06:16 #14532 [verbose] > │ let v48 : (int32 -> float) = closure2(v20, v37) │
00:06:16 #14533 [verbose] > │ let v49 : ((int32 []) -> (float [])) = v47 v48 │
00:06:16 #14534 [verbose] > │ let v50 : (float []) = v49 v42 │
00:06:16 #14535 [verbose] > │ let v51 : int32 = v50.Length │
00:06:16 #14536 [verbose] > │ let v52 : int32 = v51 - 1 │
00:06:16 #14537 [verbose] > │ let v53 : float = v50.[int v52] │
00:06:16 #14538 [verbose] > │ let v54 : int64 = v40.ElapsedMilliseconds │
00:06:16 #14539 [verbose] > │ let v55 : int64 = v54 - v41 │
00:06:16 #14540 [verbose] > │ let v56 : string = $"Test case {v35 + 1}. {v36}. Time: {v55} " │
00:06:16 #14541 [verbose] > │ System.Console.WriteLine v56 │
00:06:16 #14542 [verbose] > │ v31.[int v34] <- struct (v53, v55) │
00:06:16 #14543 [verbose] > │ let v57 : uint64 = v34 + 1UL │
00:06:16 #14544 [verbose] > │ v32.l0 <- v57 │
00:06:16 #14545 [verbose] > │ () │
00:06:16 #14546 [verbose] > │ let v58 : uint64 = System.Convert.ToUInt64 v31.Length │
00:06:16 #14547 [verbose] > │ let v59 : (float []) = Array.zeroCreate<float> │
00:06:16 #14548 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:16 #14549 [verbose] > │ let v60 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14550 [verbose] > │ while method4(v58, v60) do │
00:06:16 #14551 [verbose] > │ let v62 : uint64 = v60.l0 │
00:06:16 #14552 [verbose] > │ let struct (v63 : float, v64 : int64) = v31.[int v62] │
00:06:16 #14553 [verbose] > │ v59.[int v62] <- v63 │
00:06:16 #14554 [verbose] > │ let v65 : uint64 = v62 + 1UL │
00:06:16 #14555 [verbose] > │ v60.l0 <- v65 │
00:06:16 #14556 [verbose] > │ () │
00:06:16 #14557 [verbose] > │ let v66 : uint64 = System.Convert.ToUInt64 v59.Length │
00:06:16 #14558 [verbose] > │ let v67 : bool = v66 <= 1UL │
00:06:16 #14559 [verbose] > │ if v67 then │
00:06:16 #14560 [verbose] > │ () │
00:06:16 #14561 [verbose] > │ else │
00:06:16 #14562 [verbose] > │ let v68 : float = v59.[int 0UL] │
00:06:16 #14563 [verbose] > │ let v69 : uint64 = 0UL │
00:06:16 #14564 [verbose] > │ let v70 : bool = method9(v68, v59, v69) │
00:06:16 #14565 [verbose] > │ if v70 then │
00:06:16 #14566 [verbose] > │ () │
00:06:16 #14567 [verbose] > │ else │
00:06:16 #14568 [verbose] > │ let v71 : string = $"Challenge error: {v59}" │
00:06:16 #14569 [verbose] > │ failwith<unit> v71 │
00:06:16 #14570 [verbose] > │ let v72 : string = $"%A{v21}" │
00:06:16 #14571 [verbose] > │ let v73 : (float []) = Array.zeroCreate<float> │
00:06:16 #14572 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:16 #14573 [verbose] > │ let v74 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14574 [verbose] > │ while method4(v58, v74) do │
00:06:16 #14575 [verbose] > │ let v76 : uint64 = v74.l0 │
00:06:16 #14576 [verbose] > │ let struct (v77 : float, v78 : int64) = v31.[int v76] │
00:06:16 #14577 [verbose] > │ v73.[int v76] <- v77 │
00:06:16 #14578 [verbose] > │ let v79 : uint64 = v76 + 1UL │
00:06:16 #14579 [verbose] > │ v74.l0 <- v79 │
00:06:16 #14580 [verbose] > │ () │
00:06:16 #14581 [verbose] > │ let v80 : float = v73.[int 0UL] │
00:06:16 #14582 [verbose] > │ let v81 : string = $"%A{v80}" │
00:06:16 #14583 [verbose] > │ let v82 : (int64 []) = Array.zeroCreate<int64> │
00:06:16 #14584 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:16 #14585 [verbose] > │ let v83 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14586 [verbose] > │ while method4(v58, v83) do │
00:06:16 #14587 [verbose] > │ let v85 : uint64 = v83.l0 │
00:06:16 #14588 [verbose] > │ let struct (v86 : float, v87 : int64) = v31.[int v85] │
00:06:16 #14589 [verbose] > │ v82.[int v85] <- v87 │
00:06:16 #14590 [verbose] > │ let v88 : uint64 = v85 + 1UL │
00:06:16 #14591 [verbose] > │ v83.l0 <- v88 │
00:06:16 #14592 [verbose] > │ () │
00:06:16 #14593 [verbose] > │ v16.[int v19] <- struct (v72, v22, v81, v82) │
00:06:16 #14594 [verbose] > │ let v89 : uint64 = v19 + 1UL │
00:06:16 #14595 [verbose] > │ v17.l0 <- v89 │
00:06:16 #14596 [verbose] > │ () │
00:06:16 #14597 [verbose] > │ let v90 : uint64 = System.Convert.ToUInt64 v16.Length │
00:06:16 #14598 [verbose] > │ let v91 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:06:16 #14599 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:06:16 #14600 [verbose] > │ let v92 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14601 [verbose] > │ while method4(v90, v92) do │
00:06:16 #14602 [verbose] > │ let v94 : uint64 = v92.l0 │
00:06:16 #14603 [verbose] > │ let struct (v95 : string, v96 : string, v97 : string, v98 : (int64 [ │
00:06:16 #14604 [verbose] > │ ])) = v16.[int v94] │
00:06:16 #14605 [verbose] > │ let v99 : uint64 = System.Convert.ToUInt64 v98.Length │
00:06:16 #14606 [verbose] > │ let v100 : UH3 = UH3_0 │
00:06:16 #14607 [verbose] > │ let v101 : Mut2 = {l0 = 0UL; l1 = v100; l2 = 0L} : Mut2 │
00:06:16 #14608 [verbose] > │ while method10(v99, v101) do │
00:06:16 #14609 [verbose] > │ let v103 : uint64 = v101.l0 │
00:06:16 #14610 [verbose] > │ let struct (v104 : UH3, v105 : int64) = v101.l1, v101.l2 │
00:06:16 #14611 [verbose] > │ let v106 : int64 = v98.[int v103] │
00:06:16 #14612 [verbose] > │ let v107 : int64 = v105 + 1L │
00:06:16 #14613 [verbose] > │ let v108 : uint64 = v103 + 1UL │
00:06:16 #14614 [verbose] > │ let v109 : UH3 = UH3_1(v105, v106, v104) │
00:06:16 #14615 [verbose] > │ v101.l0 <- v108 │
00:06:16 #14616 [verbose] > │ v101.l1 <- v109 │
00:06:16 #14617 [verbose] > │ v101.l2 <- v107 │
00:06:16 #14618 [verbose] > │ () │
00:06:16 #14619 [verbose] > │ let struct (v110 : UH3, v111 : int64) = v101.l1, v101.l2 │
00:06:16 #14620 [verbose] > │ let v112 : UH3 = UH3_0 │
00:06:16 #14621 [verbose] > │ let v113 : UH3 = method11(v110, v112) │
00:06:16 #14622 [verbose] > │ let v114 : (struct (int64 * int64) []) = method12(v113) │
00:06:16 #14623 [verbose] > │ let v115 : int32 = v114.Length │
00:06:16 #14624 [verbose] > │ let v116 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:06:16 #14625 [verbose] > │ (int64 * int64)> (v115) │
00:06:16 #14626 [verbose] > │ let v117 : Mut1 = {l0 = 0} : Mut1 │
00:06:16 #14627 [verbose] > │ while method15(v115, v117) do │
00:06:16 #14628 [verbose] > │ let v119 : int32 = v117.l0 │
00:06:16 #14629 [verbose] > │ let struct (v120 : int64, v121 : int64) = v114.[int v119] │
00:06:16 #14630 [verbose] > │ let v122 : int64 = v120 + 1L │
00:06:16 #14631 [verbose] > │ v116.[int v119] <- struct (v122, v121) │
00:06:16 #14632 [verbose] > │ let v123 : int32 = v119 + 1 │
00:06:16 #14633 [verbose] > │ v117.l0 <- v123 │
00:06:16 #14634 [verbose] > │ () │
00:06:16 #14635 [verbose] > │ let v124 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:06:16 #14636 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:06:16 #14637 [verbose] > │ let v125 : (struct (int64 * int64) -> int64) = closure3() │
00:06:16 #14638 [verbose] > │ let v126 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:06:16 #14639 [verbose] > │ ])) = v124 v125 │
00:06:16 #14640 [verbose] > │ let v127 : (struct (int64 * int64) []) = v126 v116 │
00:06:16 #14641 [verbose] > │ let struct (v128 : int64, v129 : int64) = v127.[int 0] │
00:06:16 #14642 [verbose] > │ let v130 : string = $"%A{struct (v128, v129)}" │
00:06:16 #14643 [verbose] > │ let v131 : bool = v95 = v97 │
00:06:16 #14644 [verbose] > │ let v136 : US0 = │
00:06:16 #14645 [verbose] > │ if v131 then │
00:06:16 #14646 [verbose] > │ let v132 : System.ConsoleColor = │
00:06:16 #14647 [verbose] > │ System.ConsoleColor.DarkGreen │
00:06:16 #14648 [verbose] > │ US0_0(v132) │
00:06:16 #14649 [verbose] > │ else │
00:06:16 #14650 [verbose] > │ let v134 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:06:16 #14651 [verbose] > │ US0_0(v134) │
00:06:16 #14652 [verbose] > │ let v137 : UH2 = UH2_0 │
00:06:16 #14653 [verbose] > │ let v138 : UH2 = UH2_1(v130, v137) │
00:06:16 #14654 [verbose] > │ let v139 : UH2 = UH2_1(v97, v138) │
00:06:16 #14655 [verbose] > │ let v140 : UH2 = UH2_1(v95, v139) │
00:06:16 #14656 [verbose] > │ let v141 : UH2 = UH2_1(v96, v140) │
00:06:16 #14657 [verbose] > │ v91.[int v94] <- struct (v141, v136) │
00:06:16 #14658 [verbose] > │ let v142 : uint64 = v94 + 1UL │
00:06:16 #14659 [verbose] > │ v92.l0 <- v142 │
00:06:16 #14660 [verbose] > │ () │
00:06:16 #14661 [verbose] > │ let v143 : string = "Input" │
00:06:16 #14662 [verbose] > │ let v144 : string = "Expected" │
00:06:16 #14663 [verbose] > │ let v145 : string = "Result" │
00:06:16 #14664 [verbose] > │ let v146 : string = "Best" │
00:06:16 #14665 [verbose] > │ let v147 : UH2 = UH2_0 │
00:06:16 #14666 [verbose] > │ let v148 : UH2 = UH2_1(v146, v147) │
00:06:16 #14667 [verbose] > │ let v149 : UH2 = UH2_1(v145, v148) │
00:06:16 #14668 [verbose] > │ let v150 : UH2 = UH2_1(v144, v149) │
00:06:16 #14669 [verbose] > │ let v151 : UH2 = UH2_1(v143, v150) │
00:06:16 #14670 [verbose] > │ let v152 : US0 = US0_1 │
00:06:16 #14671 [verbose] > │ let v153 : string = "---" │
00:06:16 #14672 [verbose] > │ let v154 : UH2 = UH2_0 │
00:06:16 #14673 [verbose] > │ let v155 : UH2 = UH2_1(v153, v154) │
00:06:16 #14674 [verbose] > │ let v156 : UH2 = UH2_1(v153, v155) │
00:06:16 #14675 [verbose] > │ let v157 : UH2 = UH2_1(v153, v156) │
00:06:16 #14676 [verbose] > │ let v158 : UH2 = UH2_1(v153, v157) │
00:06:16 #14677 [verbose] > │ let v159 : US0 = US0_1 │
00:06:16 #14678 [verbose] > │ let v160 : UH4 = UH4_0 │
00:06:16 #14679 [verbose] > │ let v161 : UH4 = UH4_1(v158, v159, v160) │
00:06:16 #14680 [verbose] > │ let v162 : UH4 = UH4_1(v151, v152, v161) │
00:06:16 #14681 [verbose] > │ let v163 : (struct (UH2 * US0) []) = method16(v162) │
00:06:16 #14682 [verbose] > │ let v164 : uint64 = System.Convert.ToUInt64 v163.Length │
00:06:16 #14683 [verbose] > │ let v165 : uint64 = System.Convert.ToUInt64 v91.Length │
00:06:16 #14684 [verbose] > │ let v166 : uint64 = v164 + v165 │
00:06:16 #14685 [verbose] > │ let v167 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:06:16 #14686 [verbose] > │ US0)> (System.Convert.ToInt32(v166)) │
00:06:16 #14687 [verbose] > │ let v168 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14688 [verbose] > │ while method4(v166, v168) do │
00:06:16 #14689 [verbose] > │ let v170 : uint64 = v168.l0 │
00:06:16 #14690 [verbose] > │ let v171 : bool = v170 < v164 │
00:06:16 #14691 [verbose] > │ let struct (v177 : UH2, v178 : US0) = │
00:06:16 #14692 [verbose] > │ if v171 then │
00:06:16 #14693 [verbose] > │ let struct (v172 : UH2, v173 : US0) = v163.[int v170] │
00:06:16 #14694 [verbose] > │ struct (v172, v173) │
00:06:16 #14695 [verbose] > │ else │
00:06:16 #14696 [verbose] > │ let v174 : uint64 = v170 - v164 │
00:06:16 #14697 [verbose] > │ let struct (v175 : UH2, v176 : US0) = v91.[int v174] │
00:06:16 #14698 [verbose] > │ struct (v175, v176) │
00:06:16 #14699 [verbose] > │ v167.[int v170] <- struct (v177, v178) │
00:06:16 #14700 [verbose] > │ let v179 : uint64 = v170 + 1UL │
00:06:16 #14701 [verbose] > │ v168.l0 <- v179 │
00:06:16 #14702 [verbose] > │ () │
00:06:16 #14703 [verbose] > │ let v180 : uint64 = System.Convert.ToUInt64 v167.Length │
00:06:16 #14704 [verbose] > │ let v181 : ((string []) []) = Array.zeroCreate<(string [])> │
00:06:16 #14705 [verbose] > │ (System.Convert.ToInt32(v180)) │
00:06:16 #14706 [verbose] > │ let v182 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14707 [verbose] > │ while method4(v180, v182) do │
00:06:16 #14708 [verbose] > │ let v184 : uint64 = v182.l0 │
00:06:16 #14709 [verbose] > │ let struct (v185 : UH2, v186 : US0) = v167.[int v184] │
00:06:16 #14710 [verbose] > │ let v187 : (string []) = method19(v185) │
00:06:16 #14711 [verbose] > │ v181.[int v184] <- v187 │
00:06:16 #14712 [verbose] > │ let v188 : uint64 = v184 + 1UL │
00:06:16 #14713 [verbose] > │ v182.l0 <- v188 │
00:06:16 #14714 [verbose] > │ () │
00:06:16 #14715 [verbose] > │ let v189 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:06:16 #14716 [verbose] > │ let v190 : ((string []) []) = v189 v181 │
00:06:16 #14717 [verbose] > │ let v191 : uint64 = System.Convert.ToUInt64 v190.Length │
00:06:16 #14718 [verbose] > │ let v192 : (int64 []) = Array.zeroCreate<int64> │
00:06:16 #14719 [verbose] > │ (System.Convert.ToInt32(v191)) │
00:06:16 #14720 [verbose] > │ let v193 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14721 [verbose] > │ while method4(v191, v193) do │
00:06:16 #14722 [verbose] > │ let v195 : uint64 = v193.l0 │
00:06:16 #14723 [verbose] > │ let v196 : (string []) = v190.[int v195] │
00:06:16 #14724 [verbose] > │ let v197 : uint64 = System.Convert.ToUInt64 v196.Length │
00:06:16 #14725 [verbose] > │ let v198 : (int64 []) = Array.zeroCreate<int64> │
00:06:16 #14726 [verbose] > │ (System.Convert.ToInt32(v197)) │
00:06:16 #14727 [verbose] > │ let v199 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14728 [verbose] > │ while method4(v197, v199) do │
00:06:16 #14729 [verbose] > │ let v201 : uint64 = v199.l0 │
00:06:16 #14730 [verbose] > │ let v202 : string = v196.[int v201] │
00:06:16 #14731 [verbose] > │ let v203 : int64 = System.Convert.ToInt64 v202.Length │
00:06:16 #14732 [verbose] > │ v198.[int v201] <- v203 │
00:06:16 #14733 [verbose] > │ let v204 : uint64 = v201 + 1UL │
00:06:16 #14734 [verbose] > │ v199.l0 <- v204 │
00:06:16 #14735 [verbose] > │ () │
00:06:16 #14736 [verbose] > │ let v205 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:06:16 #14737 [verbose] > │ let v206 : (int64 []) = v205 v198 │
00:06:16 #14738 [verbose] > │ let v207 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:06:16 #14739 [verbose] > │ let v208 : ((int64 []) -> int64 option) = v207 0 │
00:06:16 #14740 [verbose] > │ let v209 : int64 option = v208 v206 │
00:06:16 #14741 [verbose] > │ let v210 : (int64 -> US1) = method22() │
00:06:16 #14742 [verbose] > │ let v211 : US1 = US1_1 │
00:06:16 #14743 [verbose] > │ let v212 : US1 = v209 |> Option.map v210 |> Option.defaultValue v211 │
00:06:16 #14744 [verbose] > │ let v215 : int64 = │
00:06:16 #14745 [verbose] > │ match v212 with │
00:06:16 #14746 [verbose] > │ | US1_1 -> (* None *) │
00:06:16 #14747 [verbose] > │ 0L │
00:06:16 #14748 [verbose] > │ | US1_0(v213) -> (* Some *) │
00:06:16 #14749 [verbose] > │ v213 │
00:06:16 #14750 [verbose] > │ v192.[int v195] <- v215 │
00:06:16 #14751 [verbose] > │ let v216 : uint64 = v195 + 1UL │
00:06:16 #14752 [verbose] > │ v193.l0 <- v216 │
00:06:16 #14753 [verbose] > │ () │
00:06:16 #14754 [verbose] > │ let v217 : uint64 = System.Convert.ToUInt64 v192.Length │
00:06:16 #14755 [verbose] > │ let v218 : UH5 = UH5_0 │
00:06:16 #14756 [verbose] > │ let v219 : Mut3 = {l0 = 0UL; l1 = v218; l2 = 0} : Mut3 │
00:06:16 #14757 [verbose] > │ while method23(v217, v219) do │
00:06:16 #14758 [verbose] > │ let v221 : uint64 = v219.l0 │
00:06:16 #14759 [verbose] > │ let struct (v222 : UH5, v223 : int32) = v219.l1, v219.l2 │
00:06:16 #14760 [verbose] > │ let v224 : int64 = v192.[int v221] │
00:06:16 #14761 [verbose] > │ let v225 : int32 = v223 + 1 │
00:06:16 #14762 [verbose] > │ let v226 : uint64 = v221 + 1UL │
00:06:16 #14763 [verbose] > │ let v227 : UH5 = UH5_1(v223, v224, v222) │
00:06:16 #14764 [verbose] > │ v219.l0 <- v226 │
00:06:16 #14765 [verbose] > │ v219.l1 <- v227 │
00:06:16 #14766 [verbose] > │ v219.l2 <- v225 │
00:06:16 #14767 [verbose] > │ () │
00:06:16 #14768 [verbose] > │ let struct (v228 : UH5, v229 : int32) = v219.l1, v219.l2 │
00:06:16 #14769 [verbose] > │ let v230 : UH5 = UH5_0 │
00:06:16 #14770 [verbose] > │ let v231 : UH5 = method24(v228, v230) │
00:06:16 #14771 [verbose] > │ let v232 : (struct (int32 * int64) []) = method25(v231) │
00:06:16 #14772 [verbose] > │ let v233 : Map<int32, int64> = v232 |> Array.map (fun (struct (a, b)) -> │
00:06:16 #14773 [verbose] > │ a, b) |> Map.ofArray │
00:06:16 #14774 [verbose] > │ let v234 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:06:16 #14775 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v180)) │
00:06:16 #14776 [verbose] > │ let v235 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14777 [verbose] > │ while method4(v180, v235) do │
00:06:16 #14778 [verbose] > │ let v237 : uint64 = v235.l0 │
00:06:16 #14779 [verbose] > │ let struct (v238 : UH2, v239 : US0) = v167.[int v237] │
00:06:16 #14780 [verbose] > │ let v240 : UH6 = UH6_0 │
00:06:16 #14781 [verbose] > │ let v241 : int32 = 0 │
00:06:16 #14782 [verbose] > │ let struct (v242 : UH6, v243 : int32) = method28(v238, v240, v241) │
00:06:16 #14783 [verbose] > │ let v244 : UH6 = UH6_0 │
00:06:16 #14784 [verbose] > │ let v245 : UH6 = method29(v242, v244) │
00:06:16 #14785 [verbose] > │ let v246 : UH2 = UH2_0 │
00:06:16 #14786 [verbose] > │ let v247 : UH2 = method30(v233, v245, v246) │
00:06:16 #14787 [verbose] > │ let v248 : (string []) = method31(v247) │
00:06:16 #14788 [verbose] > │ v234.[int v237] <- struct (v248, v239) │
00:06:16 #14789 [verbose] > │ let v249 : uint64 = v237 + 1UL │
00:06:16 #14790 [verbose] > │ v235.l0 <- v249 │
00:06:16 #14791 [verbose] > │ () │
00:06:16 #14792 [verbose] > │ System.Console.WriteLine v2 │
00:06:16 #14793 [verbose] > │ let v250 : uint64 = System.Convert.ToUInt64 v234.Length │
00:06:16 #14794 [verbose] > │ let v251 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14795 [verbose] > │ while method4(v250, v251) do │
00:06:16 #14796 [verbose] > │ let v253 : uint64 = v251.l0 │
00:06:16 #14797 [verbose] > │ let struct (v254 : (string []), v255 : US0) = v234.[int v253] │
00:06:16 #14798 [verbose] > │ match v255 with │
00:06:16 #14799 [verbose] > │ | US0_1 -> (* None *) │
00:06:16 #14800 [verbose] > │ let v258 : unit option = None │
00:06:16 #14801 [verbose] > │ let mutable _v258 = v258 │
00:06:16 #14802 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:16 #14803 [verbose] > │ () │
00:06:16 #14804 [verbose] > │ #endif │
00:06:16 #14805 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:16 #14806 [verbose] > │ () │
00:06:16 #14807 [verbose] > │ #endif │
00:06:16 #14808 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:16 #14809 [verbose] > │ () │
00:06:16 #14810 [verbose] > │ #endif │
00:06:16 #14811 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:16 #14812 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:16 #14813 [verbose] > │ System.Console.ResetColor () │
00:06:16 #14814 [verbose] > │ () │
00:06:16 #14815 [verbose] > │ #endif │
00:06:16 #14816 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:16 #14817 [verbose] > │ () │
00:06:16 #14818 [verbose] > │ #endif │
00:06:16 #14819 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:16 #14820 [verbose] > │ FABLE_COMPILER_DART │
00:06:16 #14821 [verbose] > │ Unchecked.defaultof<unit> │
00:06:16 #14822 [verbose] > │ () │
00:06:16 #14823 [verbose] > │ #endif │
00:06:16 #14824 [verbose] > │ |> fun x -> _v258 <- Some x │
00:06:16 #14825 [verbose] > │ _v258.Value │
00:06:16 #14826 [verbose] > │ () │
00:06:16 #14827 [verbose] > │ | US0_0(v256) -> (* Some *) │
00:06:16 #14828 [verbose] > │ let v257 : unit option = None │
00:06:16 #14829 [verbose] > │ let mutable _v257 = v257 │
00:06:16 #14830 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:16 #14831 [verbose] > │ () │
00:06:16 #14832 [verbose] > │ #endif │
00:06:16 #14833 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:16 #14834 [verbose] > │ () │
00:06:16 #14835 [verbose] > │ #endif │
00:06:16 #14836 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:16 #14837 [verbose] > │ () │
00:06:16 #14838 [verbose] > │ #endif │
00:06:16 #14839 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:16 #14840 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:16 #14841 [verbose] > │ System.Console.ForegroundColor <- v256 │
00:06:16 #14842 [verbose] > │ () │
00:06:16 #14843 [verbose] > │ #endif │
00:06:16 #14844 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:16 #14845 [verbose] > │ () │
00:06:16 #14846 [verbose] > │ #endif │
00:06:16 #14847 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:16 #14848 [verbose] > │ FABLE_COMPILER_DART │
00:06:16 #14849 [verbose] > │ Unchecked.defaultof<unit> │
00:06:16 #14850 [verbose] > │ () │
00:06:16 #14851 [verbose] > │ #endif │
00:06:16 #14852 [verbose] > │ |> fun x -> _v257 <- Some x │
00:06:16 #14853 [verbose] > │ _v257.Value │
00:06:16 #14854 [verbose] > │ () │
00:06:16 #14855 [verbose] > │ let v259 : string = "\t| " │
00:06:16 #14856 [verbose] > │ let v260 : string = System.String.Join (v259, v254) │
00:06:16 #14857 [verbose] > │ System.Console.WriteLine v260 │
00:06:16 #14858 [verbose] > │ let v261 : unit option = None │
00:06:16 #14859 [verbose] > │ let mutable _v261 = v261 │
00:06:16 #14860 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:16 #14861 [verbose] > │ () │
00:06:16 #14862 [verbose] > │ #endif │
00:06:16 #14863 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:16 #14864 [verbose] > │ () │
00:06:16 #14865 [verbose] > │ #endif │
00:06:16 #14866 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:16 #14867 [verbose] > │ () │
00:06:16 #14868 [verbose] > │ #endif │
00:06:16 #14869 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:16 #14870 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:16 #14871 [verbose] > │ System.Console.ResetColor () │
00:06:16 #14872 [verbose] > │ () │
00:06:16 #14873 [verbose] > │ #endif │
00:06:16 #14874 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:16 #14875 [verbose] > │ () │
00:06:16 #14876 [verbose] > │ #endif │
00:06:16 #14877 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:16 #14878 [verbose] > │ FABLE_COMPILER_DART │
00:06:16 #14879 [verbose] > │ Unchecked.defaultof<unit> │
00:06:16 #14880 [verbose] > │ () │
00:06:16 #14881 [verbose] > │ #endif │
00:06:16 #14882 [verbose] > │ |> fun x -> _v261 <- Some x │
00:06:16 #14883 [verbose] > │ _v261.Value │
00:06:16 #14884 [verbose] > │ let v262 : uint64 = v253 + 1UL │
00:06:16 #14885 [verbose] > │ v251.l0 <- v262 │
00:06:16 #14886 [verbose] > │ () │
00:06:16 #14887 [verbose] > │ let v263 : ((float []) []) = Array.zeroCreate<(float [])> │
00:06:16 #14888 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:06:16 #14889 [verbose] > │ let v264 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14890 [verbose] > │ while method4(v90, v264) do │
00:06:16 #14891 [verbose] > │ let v266 : uint64 = v264.l0 │
00:06:16 #14892 [verbose] > │ let struct (v267 : string, v268 : string, v269 : string, v270 : │
00:06:16 #14893 [verbose] > │ (int64 [])) = v16.[int v266] │
00:06:16 #14894 [verbose] > │ let v271 : (int64 -> float) = float │
00:06:16 #14895 [verbose] > │ let v272 : uint64 = System.Convert.ToUInt64 v270.Length │
00:06:16 #14896 [verbose] > │ let v273 : (float []) = Array.zeroCreate<float> │
00:06:16 #14897 [verbose] > │ (System.Convert.ToInt32(v272)) │
00:06:16 #14898 [verbose] > │ let v274 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14899 [verbose] > │ while method4(v272, v274) do │
00:06:16 #14900 [verbose] > │ let v276 : uint64 = v274.l0 │
00:06:16 #14901 [verbose] > │ let v277 : int64 = v270.[int v276] │
00:06:16 #14902 [verbose] > │ let v278 : float = v271 v277 │
00:06:16 #14903 [verbose] > │ v273.[int v276] <- v278 │
00:06:16 #14904 [verbose] > │ let v279 : uint64 = v276 + 1UL │
00:06:16 #14905 [verbose] > │ v274.l0 <- v279 │
00:06:16 #14906 [verbose] > │ () │
00:06:16 #14907 [verbose] > │ v263.[int v266] <- v273 │
00:06:16 #14908 [verbose] > │ let v280 : uint64 = v266 + 1UL │
00:06:16 #14909 [verbose] > │ v264.l0 <- v280 │
00:06:16 #14910 [verbose] > │ () │
00:06:16 #14911 [verbose] > │ let v281 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:06:16 #14912 [verbose] > │ let v282 : ((float []) []) = v281 v263 │
00:06:16 #14913 [verbose] > │ let v283 : uint64 = System.Convert.ToUInt64 v282.Length │
00:06:16 #14914 [verbose] > │ let v284 : (float []) = Array.zeroCreate<float> │
00:06:16 #14915 [verbose] > │ (System.Convert.ToInt32(v283)) │
00:06:16 #14916 [verbose] > │ let v285 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14917 [verbose] > │ while method4(v283, v285) do │
00:06:16 #14918 [verbose] > │ let v287 : uint64 = v285.l0 │
00:06:16 #14919 [verbose] > │ let v288 : (float []) = v282.[int v287] │
00:06:16 #14920 [verbose] > │ let v289 : ((float []) -> float) = Array.average │
00:06:16 #14921 [verbose] > │ let v290 : float = v289 v288 │
00:06:16 #14922 [verbose] > │ v284.[int v287] <- v290 │
00:06:16 #14923 [verbose] > │ let v291 : uint64 = v287 + 1UL │
00:06:16 #14924 [verbose] > │ v285.l0 <- v291 │
00:06:16 #14925 [verbose] > │ () │
00:06:16 #14926 [verbose] > │ let v292 : (float -> int64) = int64 │
00:06:16 #14927 [verbose] > │ let v293 : uint64 = System.Convert.ToUInt64 v284.Length │
00:06:16 #14928 [verbose] > │ let v294 : (int64 []) = Array.zeroCreate<int64> │
00:06:16 #14929 [verbose] > │ (System.Convert.ToInt32(v293)) │
00:06:16 #14930 [verbose] > │ let v295 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14931 [verbose] > │ while method4(v293, v295) do │
00:06:16 #14932 [verbose] > │ let v297 : uint64 = v295.l0 │
00:06:16 #14933 [verbose] > │ let v298 : float = v284.[int v297] │
00:06:16 #14934 [verbose] > │ let v299 : int64 = v292 v298 │
00:06:16 #14935 [verbose] > │ v294.[int v297] <- v299 │
00:06:16 #14936 [verbose] > │ let v300 : uint64 = v297 + 1UL │
00:06:16 #14937 [verbose] > │ v295.l0 <- v300 │
00:06:16 #14938 [verbose] > │ () │
00:06:16 #14939 [verbose] > │ let v301 : uint64 = System.Convert.ToUInt64 v294.Length │
00:06:16 #14940 [verbose] > │ let v302 : UH5 = UH5_0 │
00:06:16 #14941 [verbose] > │ let v303 : Mut3 = {l0 = 0UL; l1 = v302; l2 = 0} : Mut3 │
00:06:16 #14942 [verbose] > │ while method23(v301, v303) do │
00:06:16 #14943 [verbose] > │ let v305 : uint64 = v303.l0 │
00:06:16 #14944 [verbose] > │ let struct (v306 : UH5, v307 : int32) = v303.l1, v303.l2 │
00:06:16 #14945 [verbose] > │ let v308 : int64 = v294.[int v305] │
00:06:16 #14946 [verbose] > │ let v309 : int32 = v307 + 1 │
00:06:16 #14947 [verbose] > │ let v310 : uint64 = v305 + 1UL │
00:06:16 #14948 [verbose] > │ let v311 : UH5 = UH5_1(v307, v308, v306) │
00:06:16 #14949 [verbose] > │ v303.l0 <- v310 │
00:06:16 #14950 [verbose] > │ v303.l1 <- v311 │
00:06:16 #14951 [verbose] > │ v303.l2 <- v309 │
00:06:16 #14952 [verbose] > │ () │
00:06:16 #14953 [verbose] > │ let struct (v312 : UH5, v313 : int32) = v303.l1, v303.l2 │
00:06:16 #14954 [verbose] > │ let v314 : UH5 = UH5_0 │
00:06:16 #14955 [verbose] > │ let v315 : UH5 = method24(v312, v314) │
00:06:16 #14956 [verbose] > │ let v316 : (struct (int32 * int64) []) = method34(v315) │
00:06:16 #14957 [verbose] > │ System.Console.WriteLine v2 │
00:06:16 #14958 [verbose] > │ let v317 : string = "Average Ranking " │
00:06:16 #14959 [verbose] > │ System.Console.WriteLine v317 │
00:06:16 #14960 [verbose] > │ let v318 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:06:16 #14961 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:06:16 #14962 [verbose] > │ let v319 : (struct (int32 * int64) -> int64) = closure5() │
00:06:16 #14963 [verbose] > │ let v320 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:06:16 #14964 [verbose] > │ = v318 v319 │
00:06:16 #14965 [verbose] > │ let v321 : (struct (int32 * int64) []) = v320 v316 │
00:06:16 #14966 [verbose] > │ let v322 : uint64 = System.Convert.ToUInt64 v321.Length │
00:06:16 #14967 [verbose] > │ let v323 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #14968 [verbose] > │ while method4(v322, v323) do │
00:06:16 #14969 [verbose] > │ let v325 : uint64 = v323.l0 │
00:06:16 #14970 [verbose] > │ let struct (v326 : int32, v327 : int64) = v321.[int v325] │
00:06:16 #14971 [verbose] > │ let v328 : string = $"Test case %d{v326 + 1}. Average Time: %A{v327} │
00:06:16 #14972 [verbose] > │ " │
00:06:16 #14973 [verbose] > │ System.Console.WriteLine v328 │
00:06:16 #14974 [verbose] > │ let v329 : uint64 = v325 + 1UL │
00:06:16 #14975 [verbose] > │ v323.l0 <- v329 │
00:06:16 #14976 [verbose] > │ () │
00:06:16 #14977 [verbose] > │ () │
00:06:16 #14978 [verbose] > │ and method0 () : unit = │
00:06:16 #14979 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:06:16 #14980 [verbose] > │ let v1 : string = nameof v0 │
00:06:16 #14981 [verbose] > │ let v2 : string = "" │
00:06:16 #14982 [verbose] > │ System.Console.WriteLine v2 │
00:06:16 #14983 [verbose] > │ System.Console.WriteLine v2 │
00:06:16 #14984 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:06:16 #14985 [verbose] > │ System.Console.WriteLine v3 │
00:06:16 #14986 [verbose] > │ let v4 : float = 0.0 │
00:06:16 #14987 [verbose] > │ let v5 : float = 1.0 │
00:06:16 #14988 [verbose] > │ let v6 : float = 2.0 │
00:06:16 #14989 [verbose] > │ let v7 : float = 3.0 │
00:06:16 #14990 [verbose] > │ let v8 : float = 5.0 │
00:06:16 #14991 [verbose] > │ let v9 : float = 6.0 │
00:06:16 #14992 [verbose] > │ let v10 : UH0 = UH0_0 │
00:06:16 #14993 [verbose] > │ let v11 : UH0 = UH0_1(v8, v9, v10) │
00:06:16 #14994 [verbose] > │ let v12 : UH0 = UH0_1(v6, v7, v11) │
00:06:16 #14995 [verbose] > │ let v13 : UH0 = UH0_1(v4, v5, v12) │
00:06:16 #14996 [verbose] > │ let v14 : (struct (float * float) []) = method1(v13) │
00:06:16 #14997 [verbose] > │ let v15 : uint64 = System.Convert.ToUInt64 v14.Length │
00:06:16 #14998 [verbose] > │ let v16 : (struct (string * string * string * (int64 [])) []) = │
00:06:16 #14999 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:06:16 #15000 [verbose] > │ (System.Convert.ToInt32(v15)) │
00:06:16 #15001 [verbose] > │ let v17 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15002 [verbose] > │ while method4(v15, v17) do │
00:06:16 #15003 [verbose] > │ let v19 : uint64 = v17.l0 │
00:06:16 #15004 [verbose] > │ let struct (v20 : float, v21 : float) = v14.[int v19] │
00:06:16 #15005 [verbose] > │ let v22 : string = $"%A{v20}" │
00:06:16 #15006 [verbose] > │ System.Console.WriteLine v2 │
00:06:16 #15007 [verbose] > │ let v23 : string = $"Solution: {v22} " │
00:06:16 #15008 [verbose] > │ System.Console.WriteLine v23 │
00:06:16 #15009 [verbose] > │ let v24 : int32 = 0 │
00:06:16 #15010 [verbose] > │ let v25 : string = "A" │
00:06:16 #15011 [verbose] > │ let v26 : (float -> float) = closure1() │
00:06:16 #15012 [verbose] > │ let v27 : UH1 = UH1_0 │
00:06:16 #15013 [verbose] > │ let v28 : UH1 = UH1_1(v24, v25, v26, v27) │
00:06:16 #15014 [verbose] > │ let v29 : (struct (int32 * string * (float -> float)) []) = │
00:06:16 #15015 [verbose] > │ method5(v28) │
00:06:16 #15016 [verbose] > │ let v30 : uint64 = System.Convert.ToUInt64 v29.Length │
00:06:16 #15017 [verbose] > │ let v31 : (struct (float * int64) []) = Array.zeroCreate<struct │
00:06:16 #15018 [verbose] > │ (float * int64)> (System.Convert.ToInt32(v30)) │
00:06:16 #15019 [verbose] > │ let v32 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15020 [verbose] > │ while method4(v30, v32) do │
00:06:16 #15021 [verbose] > │ let v34 : uint64 = v32.l0 │
00:06:16 #15022 [verbose] > │ let struct (v35 : int32, v36 : string, v37 : (float -> float)) = │
00:06:16 #15023 [verbose] > │ v29.[int v34] │
00:06:16 #15024 [verbose] > │ let v38 : unit option = None │
00:06:16 #15025 [verbose] > │ let mutable _v38 = v38 │
00:06:16 #15026 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:16 #15027 [verbose] > │ () │
00:06:16 #15028 [verbose] > │ #endif │
00:06:16 #15029 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:16 #15030 [verbose] > │ () │
00:06:16 #15031 [verbose] > │ #endif │
00:06:16 #15032 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:16 #15033 [verbose] > │ () │
00:06:16 #15034 [verbose] > │ #endif │
00:06:16 #15035 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:16 #15036 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:16 #15037 [verbose] > │ System.GC.Collect () │
00:06:16 #15038 [verbose] > │ () │
00:06:16 #15039 [verbose] > │ #endif │
00:06:16 #15040 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:16 #15041 [verbose] > │ () │
00:06:16 #15042 [verbose] > │ #endif │
00:06:16 #15043 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:16 #15044 [verbose] > │ FABLE_COMPILER_DART │
00:06:16 #15045 [verbose] > │ Unchecked.defaultof<unit> │
00:06:16 #15046 [verbose] > │ () │
00:06:16 #15047 [verbose] > │ #endif │
00:06:16 #15048 [verbose] > │ |> fun x -> _v38 <- Some x │
00:06:16 #15049 [verbose] > │ _v38.Value │
00:06:16 #15050 [verbose] > │ let v39 : (unit -> System.Diagnostics.Stopwatch) = │
00:06:16 #15051 [verbose] > │ System.Diagnostics.Stopwatch │
00:06:16 #15052 [verbose] > │ let v40 : System.Diagnostics.Stopwatch = v39 () │
00:06:16 #15053 [verbose] > │ v40.Start () │
00:06:16 #15054 [verbose] > │ let v41 : int64 = v40.ElapsedMilliseconds │
00:06:16 #15055 [verbose] > │ let v42 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:06:16 #15056 [verbose] > │ let v43 : Mut1 = {l0 = 0} : Mut1 │
00:06:16 #15057 [verbose] > │ while method8(v43) do │
00:06:16 #15058 [verbose] > │ let v45 : int32 = v43.l0 │
00:06:16 #15059 [verbose] > │ v42.[int v45] <- v45 │
00:06:16 #15060 [verbose] > │ let v46 : int32 = v45 + 1 │
00:06:16 #15061 [verbose] > │ v43.l0 <- v46 │
00:06:16 #15062 [verbose] > │ () │
00:06:16 #15063 [verbose] > │ let v47 : ((int32 -> float) -> ((int32 []) -> (float []))) = │
00:06:16 #15064 [verbose] > │ Array.Parallel.map │
00:06:16 #15065 [verbose] > │ let v48 : (int32 -> float) = closure2(v20, v37) │
00:06:16 #15066 [verbose] > │ let v49 : ((int32 []) -> (float [])) = v47 v48 │
00:06:16 #15067 [verbose] > │ let v50 : (float []) = v49 v42 │
00:06:16 #15068 [verbose] > │ let v51 : int32 = v50.Length │
00:06:16 #15069 [verbose] > │ let v52 : int32 = v51 - 1 │
00:06:16 #15070 [verbose] > │ let v53 : float = v50.[int v52] │
00:06:16 #15071 [verbose] > │ let v54 : int64 = v40.ElapsedMilliseconds │
00:06:16 #15072 [verbose] > │ let v55 : int64 = v54 - v41 │
00:06:16 #15073 [verbose] > │ let v56 : string = $"Test case {v35 + 1}. {v36}. Time: {v55} " │
00:06:16 #15074 [verbose] > │ System.Console.WriteLine v56 │
00:06:16 #15075 [verbose] > │ v31.[int v34] <- struct (v53, v55) │
00:06:16 #15076 [verbose] > │ let v57 : uint64 = v34 + 1UL │
00:06:16 #15077 [verbose] > │ v32.l0 <- v57 │
00:06:16 #15078 [verbose] > │ () │
00:06:16 #15079 [verbose] > │ let v58 : uint64 = System.Convert.ToUInt64 v31.Length │
00:06:16 #15080 [verbose] > │ let v59 : (float []) = Array.zeroCreate<float> │
00:06:16 #15081 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:16 #15082 [verbose] > │ let v60 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15083 [verbose] > │ while method4(v58, v60) do │
00:06:16 #15084 [verbose] > │ let v62 : uint64 = v60.l0 │
00:06:16 #15085 [verbose] > │ let struct (v63 : float, v64 : int64) = v31.[int v62] │
00:06:16 #15086 [verbose] > │ v59.[int v62] <- v63 │
00:06:16 #15087 [verbose] > │ let v65 : uint64 = v62 + 1UL │
00:06:16 #15088 [verbose] > │ v60.l0 <- v65 │
00:06:16 #15089 [verbose] > │ () │
00:06:16 #15090 [verbose] > │ let v66 : uint64 = System.Convert.ToUInt64 v59.Length │
00:06:16 #15091 [verbose] > │ let v67 : bool = v66 <= 1UL │
00:06:16 #15092 [verbose] > │ if v67 then │
00:06:16 #15093 [verbose] > │ () │
00:06:16 #15094 [verbose] > │ else │
00:06:16 #15095 [verbose] > │ let v68 : float = v59.[int 0UL] │
00:06:16 #15096 [verbose] > │ let v69 : uint64 = 0UL │
00:06:16 #15097 [verbose] > │ let v70 : bool = method9(v68, v59, v69) │
00:06:16 #15098 [verbose] > │ if v70 then │
00:06:16 #15099 [verbose] > │ () │
00:06:16 #15100 [verbose] > │ else │
00:06:16 #15101 [verbose] > │ let v71 : string = $"Challenge error: {v59}" │
00:06:16 #15102 [verbose] > │ failwith<unit> v71 │
00:06:16 #15103 [verbose] > │ let v72 : string = $"%A{v21}" │
00:06:16 #15104 [verbose] > │ let v73 : (float []) = Array.zeroCreate<float> │
00:06:16 #15105 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:16 #15106 [verbose] > │ let v74 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15107 [verbose] > │ while method4(v58, v74) do │
00:06:16 #15108 [verbose] > │ let v76 : uint64 = v74.l0 │
00:06:16 #15109 [verbose] > │ let struct (v77 : float, v78 : int64) = v31.[int v76] │
00:06:16 #15110 [verbose] > │ v73.[int v76] <- v77 │
00:06:16 #15111 [verbose] > │ let v79 : uint64 = v76 + 1UL │
00:06:16 #15112 [verbose] > │ v74.l0 <- v79 │
00:06:16 #15113 [verbose] > │ () │
00:06:16 #15114 [verbose] > │ let v80 : float = v73.[int 0UL] │
00:06:16 #15115 [verbose] > │ let v81 : string = $"%A{v80}" │
00:06:16 #15116 [verbose] > │ let v82 : (int64 []) = Array.zeroCreate<int64> │
00:06:16 #15117 [verbose] > │ (System.Convert.ToInt32(v58)) │
00:06:16 #15118 [verbose] > │ let v83 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15119 [verbose] > │ while method4(v58, v83) do │
00:06:16 #15120 [verbose] > │ let v85 : uint64 = v83.l0 │
00:06:16 #15121 [verbose] > │ let struct (v86 : float, v87 : int64) = v31.[int v85] │
00:06:16 #15122 [verbose] > │ v82.[int v85] <- v87 │
00:06:16 #15123 [verbose] > │ let v88 : uint64 = v85 + 1UL │
00:06:16 #15124 [verbose] > │ v83.l0 <- v88 │
00:06:16 #15125 [verbose] > │ () │
00:06:16 #15126 [verbose] > │ v16.[int v19] <- struct (v72, v22, v81, v82) │
00:06:16 #15127 [verbose] > │ let v89 : uint64 = v19 + 1UL │
00:06:16 #15128 [verbose] > │ v17.l0 <- v89 │
00:06:16 #15129 [verbose] > │ () │
00:06:16 #15130 [verbose] > │ let v90 : uint64 = System.Convert.ToUInt64 v16.Length │
00:06:16 #15131 [verbose] > │ let v91 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:06:16 #15132 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:06:16 #15133 [verbose] > │ let v92 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15134 [verbose] > │ while method4(v90, v92) do │
00:06:16 #15135 [verbose] > │ let v94 : uint64 = v92.l0 │
00:06:16 #15136 [verbose] > │ let struct (v95 : string, v96 : string, v97 : string, v98 : (int64 [ │
00:06:16 #15137 [verbose] > │ ])) = v16.[int v94] │
00:06:16 #15138 [verbose] > │ let v99 : uint64 = System.Convert.ToUInt64 v98.Length │
00:06:16 #15139 [verbose] > │ let v100 : UH3 = UH3_0 │
00:06:16 #15140 [verbose] > │ let v101 : Mut2 = {l0 = 0UL; l1 = v100; l2 = 0L} : Mut2 │
00:06:16 #15141 [verbose] > │ while method10(v99, v101) do │
00:06:16 #15142 [verbose] > │ let v103 : uint64 = v101.l0 │
00:06:16 #15143 [verbose] > │ let struct (v104 : UH3, v105 : int64) = v101.l1, v101.l2 │
00:06:16 #15144 [verbose] > │ let v106 : int64 = v98.[int v103] │
00:06:16 #15145 [verbose] > │ let v107 : int64 = v105 + 1L │
00:06:16 #15146 [verbose] > │ let v108 : uint64 = v103 + 1UL │
00:06:16 #15147 [verbose] > │ let v109 : UH3 = UH3_1(v105, v106, v104) │
00:06:16 #15148 [verbose] > │ v101.l0 <- v108 │
00:06:16 #15149 [verbose] > │ v101.l1 <- v109 │
00:06:16 #15150 [verbose] > │ v101.l2 <- v107 │
00:06:16 #15151 [verbose] > │ () │
00:06:16 #15152 [verbose] > │ let struct (v110 : UH3, v111 : int64) = v101.l1, v101.l2 │
00:06:16 #15153 [verbose] > │ let v112 : UH3 = UH3_0 │
00:06:16 #15154 [verbose] > │ let v113 : UH3 = method11(v110, v112) │
00:06:16 #15155 [verbose] > │ let v114 : (struct (int64 * int64) []) = method12(v113) │
00:06:16 #15156 [verbose] > │ let v115 : int32 = v114.Length │
00:06:16 #15157 [verbose] > │ let v116 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:06:16 #15158 [verbose] > │ (int64 * int64)> (v115) │
00:06:16 #15159 [verbose] > │ let v117 : Mut1 = {l0 = 0} : Mut1 │
00:06:16 #15160 [verbose] > │ while method15(v115, v117) do │
00:06:16 #15161 [verbose] > │ let v119 : int32 = v117.l0 │
00:06:16 #15162 [verbose] > │ let struct (v120 : int64, v121 : int64) = v114.[int v119] │
00:06:16 #15163 [verbose] > │ let v122 : int64 = v120 + 1L │
00:06:16 #15164 [verbose] > │ v116.[int v119] <- struct (v122, v121) │
00:06:16 #15165 [verbose] > │ let v123 : int32 = v119 + 1 │
00:06:16 #15166 [verbose] > │ v117.l0 <- v123 │
00:06:16 #15167 [verbose] > │ () │
00:06:16 #15168 [verbose] > │ let v124 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:06:16 #15169 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:06:16 #15170 [verbose] > │ let v125 : (struct (int64 * int64) -> int64) = closure3() │
00:06:16 #15171 [verbose] > │ let v126 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:06:16 #15172 [verbose] > │ ])) = v124 v125 │
00:06:16 #15173 [verbose] > │ let v127 : (struct (int64 * int64) []) = v126 v116 │
00:06:16 #15174 [verbose] > │ let struct (v128 : int64, v129 : int64) = v127.[int 0] │
00:06:16 #15175 [verbose] > │ let v130 : string = $"%A{struct (v128, v129)}" │
00:06:16 #15176 [verbose] > │ let v131 : bool = v95 = v97 │
00:06:16 #15177 [verbose] > │ let v136 : US0 = │
00:06:16 #15178 [verbose] > │ if v131 then │
00:06:16 #15179 [verbose] > │ let v132 : System.ConsoleColor = │
00:06:16 #15180 [verbose] > │ System.ConsoleColor.DarkGreen │
00:06:16 #15181 [verbose] > │ US0_0(v132) │
00:06:16 #15182 [verbose] > │ else │
00:06:16 #15183 [verbose] > │ let v134 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:06:16 #15184 [verbose] > │ US0_0(v134) │
00:06:16 #15185 [verbose] > │ let v137 : UH2 = UH2_0 │
00:06:16 #15186 [verbose] > │ let v138 : UH2 = UH2_1(v130, v137) │
00:06:16 #15187 [verbose] > │ let v139 : UH2 = UH2_1(v97, v138) │
00:06:16 #15188 [verbose] > │ let v140 : UH2 = UH2_1(v95, v139) │
00:06:16 #15189 [verbose] > │ let v141 : UH2 = UH2_1(v96, v140) │
00:06:16 #15190 [verbose] > │ v91.[int v94] <- struct (v141, v136) │
00:06:16 #15191 [verbose] > │ let v142 : uint64 = v94 + 1UL │
00:06:16 #15192 [verbose] > │ v92.l0 <- v142 │
00:06:16 #15193 [verbose] > │ () │
00:06:16 #15194 [verbose] > │ let v143 : string = "Input" │
00:06:16 #15195 [verbose] > │ let v144 : string = "Expected" │
00:06:16 #15196 [verbose] > │ let v145 : string = "Result" │
00:06:16 #15197 [verbose] > │ let v146 : string = "Best" │
00:06:16 #15198 [verbose] > │ let v147 : UH2 = UH2_0 │
00:06:16 #15199 [verbose] > │ let v148 : UH2 = UH2_1(v146, v147) │
00:06:16 #15200 [verbose] > │ let v149 : UH2 = UH2_1(v145, v148) │
00:06:16 #15201 [verbose] > │ let v150 : UH2 = UH2_1(v144, v149) │
00:06:16 #15202 [verbose] > │ let v151 : UH2 = UH2_1(v143, v150) │
00:06:16 #15203 [verbose] > │ let v152 : US0 = US0_1 │
00:06:16 #15204 [verbose] > │ let v153 : string = "---" │
00:06:16 #15205 [verbose] > │ let v154 : UH2 = UH2_0 │
00:06:16 #15206 [verbose] > │ let v155 : UH2 = UH2_1(v153, v154) │
00:06:16 #15207 [verbose] > │ let v156 : UH2 = UH2_1(v153, v155) │
00:06:16 #15208 [verbose] > │ let v157 : UH2 = UH2_1(v153, v156) │
00:06:16 #15209 [verbose] > │ let v158 : UH2 = UH2_1(v153, v157) │
00:06:16 #15210 [verbose] > │ let v159 : US0 = US0_1 │
00:06:16 #15211 [verbose] > │ let v160 : UH4 = UH4_0 │
00:06:16 #15212 [verbose] > │ let v161 : UH4 = UH4_1(v158, v159, v160) │
00:06:16 #15213 [verbose] > │ let v162 : UH4 = UH4_1(v151, v152, v161) │
00:06:16 #15214 [verbose] > │ let v163 : (struct (UH2 * US0) []) = method16(v162) │
00:06:16 #15215 [verbose] > │ let v164 : uint64 = System.Convert.ToUInt64 v163.Length │
00:06:16 #15216 [verbose] > │ let v165 : uint64 = System.Convert.ToUInt64 v91.Length │
00:06:16 #15217 [verbose] > │ let v166 : uint64 = v164 + v165 │
00:06:16 #15218 [verbose] > │ let v167 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:06:16 #15219 [verbose] > │ US0)> (System.Convert.ToInt32(v166)) │
00:06:16 #15220 [verbose] > │ let v168 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15221 [verbose] > │ while method4(v166, v168) do │
00:06:16 #15222 [verbose] > │ let v170 : uint64 = v168.l0 │
00:06:16 #15223 [verbose] > │ let v171 : bool = v170 < v164 │
00:06:16 #15224 [verbose] > │ let struct (v177 : UH2, v178 : US0) = │
00:06:16 #15225 [verbose] > │ if v171 then │
00:06:16 #15226 [verbose] > │ let struct (v172 : UH2, v173 : US0) = v163.[int v170] │
00:06:16 #15227 [verbose] > │ struct (v172, v173) │
00:06:16 #15228 [verbose] > │ else │
00:06:16 #15229 [verbose] > │ let v174 : uint64 = v170 - v164 │
00:06:16 #15230 [verbose] > │ let struct (v175 : UH2, v176 : US0) = v91.[int v174] │
00:06:16 #15231 [verbose] > │ struct (v175, v176) │
00:06:16 #15232 [verbose] > │ v167.[int v170] <- struct (v177, v178) │
00:06:16 #15233 [verbose] > │ let v179 : uint64 = v170 + 1UL │
00:06:16 #15234 [verbose] > │ v168.l0 <- v179 │
00:06:16 #15235 [verbose] > │ () │
00:06:16 #15236 [verbose] > │ let v180 : uint64 = System.Convert.ToUInt64 v167.Length │
00:06:16 #15237 [verbose] > │ let v181 : ((string []) []) = Array.zeroCreate<(string [])> │
00:06:16 #15238 [verbose] > │ (System.Convert.ToInt32(v180)) │
00:06:16 #15239 [verbose] > │ let v182 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15240 [verbose] > │ while method4(v180, v182) do │
00:06:16 #15241 [verbose] > │ let v184 : uint64 = v182.l0 │
00:06:16 #15242 [verbose] > │ let struct (v185 : UH2, v186 : US0) = v167.[int v184] │
00:06:16 #15243 [verbose] > │ let v187 : (string []) = method19(v185) │
00:06:16 #15244 [verbose] > │ v181.[int v184] <- v187 │
00:06:16 #15245 [verbose] > │ let v188 : uint64 = v184 + 1UL │
00:06:16 #15246 [verbose] > │ v182.l0 <- v188 │
00:06:16 #15247 [verbose] > │ () │
00:06:16 #15248 [verbose] > │ let v189 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:06:16 #15249 [verbose] > │ let v190 : ((string []) []) = v189 v181 │
00:06:16 #15250 [verbose] > │ let v191 : uint64 = System.Convert.ToUInt64 v190.Length │
00:06:16 #15251 [verbose] > │ let v192 : (int64 []) = Array.zeroCreate<int64> │
00:06:16 #15252 [verbose] > │ (System.Convert.ToInt32(v191)) │
00:06:16 #15253 [verbose] > │ let v193 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15254 [verbose] > │ while method4(v191, v193) do │
00:06:16 #15255 [verbose] > │ let v195 : uint64 = v193.l0 │
00:06:16 #15256 [verbose] > │ let v196 : (string []) = v190.[int v195] │
00:06:16 #15257 [verbose] > │ let v197 : uint64 = System.Convert.ToUInt64 v196.Length │
00:06:16 #15258 [verbose] > │ let v198 : (int64 []) = Array.zeroCreate<int64> │
00:06:16 #15259 [verbose] > │ (System.Convert.ToInt32(v197)) │
00:06:16 #15260 [verbose] > │ let v199 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15261 [verbose] > │ while method4(v197, v199) do │
00:06:16 #15262 [verbose] > │ let v201 : uint64 = v199.l0 │
00:06:16 #15263 [verbose] > │ let v202 : string = v196.[int v201] │
00:06:16 #15264 [verbose] > │ let v203 : int64 = System.Convert.ToInt64 v202.Length │
00:06:16 #15265 [verbose] > │ v198.[int v201] <- v203 │
00:06:16 #15266 [verbose] > │ let v204 : uint64 = v201 + 1UL │
00:06:16 #15267 [verbose] > │ v199.l0 <- v204 │
00:06:16 #15268 [verbose] > │ () │
00:06:16 #15269 [verbose] > │ let v205 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:06:16 #15270 [verbose] > │ let v206 : (int64 []) = v205 v198 │
00:06:16 #15271 [verbose] > │ let v207 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:06:16 #15272 [verbose] > │ let v208 : ((int64 []) -> int64 option) = v207 0 │
00:06:16 #15273 [verbose] > │ let v209 : int64 option = v208 v206 │
00:06:16 #15274 [verbose] > │ let v210 : (int64 -> US1) = method22() │
00:06:16 #15275 [verbose] > │ let v211 : US1 = US1_1 │
00:06:16 #15276 [verbose] > │ let v212 : US1 = v209 |> Option.map v210 |> Option.defaultValue v211 │
00:06:16 #15277 [verbose] > │ let v215 : int64 = │
00:06:16 #15278 [verbose] > │ match v212 with │
00:06:16 #15279 [verbose] > │ | US1_1 -> (* None *) │
00:06:16 #15280 [verbose] > │ 0L │
00:06:16 #15281 [verbose] > │ | US1_0(v213) -> (* Some *) │
00:06:16 #15282 [verbose] > │ v213 │
00:06:16 #15283 [verbose] > │ v192.[int v195] <- v215 │
00:06:16 #15284 [verbose] > │ let v216 : uint64 = v195 + 1UL │
00:06:16 #15285 [verbose] > │ v193.l0 <- v216 │
00:06:16 #15286 [verbose] > │ () │
00:06:16 #15287 [verbose] > │ let v217 : uint64 = System.Convert.ToUInt64 v192.Length │
00:06:16 #15288 [verbose] > │ let v218 : UH5 = UH5_0 │
00:06:16 #15289 [verbose] > │ let v219 : Mut3 = {l0 = 0UL; l1 = v218; l2 = 0} : Mut3 │
00:06:16 #15290 [verbose] > │ while method23(v217, v219) do │
00:06:16 #15291 [verbose] > │ let v221 : uint64 = v219.l0 │
00:06:16 #15292 [verbose] > │ let struct (v222 : UH5, v223 : int32) = v219.l1, v219.l2 │
00:06:16 #15293 [verbose] > │ let v224 : int64 = v192.[int v221] │
00:06:16 #15294 [verbose] > │ let v225 : int32 = v223 + 1 │
00:06:16 #15295 [verbose] > │ let v226 : uint64 = v221 + 1UL │
00:06:16 #15296 [verbose] > │ let v227 : UH5 = UH5_1(v223, v224, v222) │
00:06:16 #15297 [verbose] > │ v219.l0 <- v226 │
00:06:16 #15298 [verbose] > │ v219.l1 <- v227 │
00:06:16 #15299 [verbose] > │ v219.l2 <- v225 │
00:06:16 #15300 [verbose] > │ () │
00:06:16 #15301 [verbose] > │ let struct (v228 : UH5, v229 : int32) = v219.l1, v219.l2 │
00:06:16 #15302 [verbose] > │ let v230 : UH5 = UH5_0 │
00:06:16 #15303 [verbose] > │ let v231 : UH5 = method24(v228, v230) │
00:06:16 #15304 [verbose] > │ let v232 : (struct (int32 * int64) []) = method25(v231) │
00:06:16 #15305 [verbose] > │ let v233 : Map<int32, int64> = v232 |> Array.map (fun (struct (a, b)) -> │
00:06:16 #15306 [verbose] > │ a, b) |> Map.ofArray │
00:06:16 #15307 [verbose] > │ let v234 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:06:16 #15308 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v180)) │
00:06:16 #15309 [verbose] > │ let v235 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15310 [verbose] > │ while method4(v180, v235) do │
00:06:16 #15311 [verbose] > │ let v237 : uint64 = v235.l0 │
00:06:16 #15312 [verbose] > │ let struct (v238 : UH2, v239 : US0) = v167.[int v237] │
00:06:16 #15313 [verbose] > │ let v240 : UH6 = UH6_0 │
00:06:16 #15314 [verbose] > │ let v241 : int32 = 0 │
00:06:16 #15315 [verbose] > │ let struct (v242 : UH6, v243 : int32) = method28(v238, v240, v241) │
00:06:16 #15316 [verbose] > │ let v244 : UH6 = UH6_0 │
00:06:16 #15317 [verbose] > │ let v245 : UH6 = method29(v242, v244) │
00:06:16 #15318 [verbose] > │ let v246 : UH2 = UH2_0 │
00:06:16 #15319 [verbose] > │ let v247 : UH2 = method30(v233, v245, v246) │
00:06:16 #15320 [verbose] > │ let v248 : (string []) = method31(v247) │
00:06:16 #15321 [verbose] > │ v234.[int v237] <- struct (v248, v239) │
00:06:16 #15322 [verbose] > │ let v249 : uint64 = v237 + 1UL │
00:06:16 #15323 [verbose] > │ v235.l0 <- v249 │
00:06:16 #15324 [verbose] > │ () │
00:06:16 #15325 [verbose] > │ System.Console.WriteLine v2 │
00:06:16 #15326 [verbose] > │ let v250 : uint64 = System.Convert.ToUInt64 v234.Length │
00:06:16 #15327 [verbose] > │ let v251 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15328 [verbose] > │ while method4(v250, v251) do │
00:06:16 #15329 [verbose] > │ let v253 : uint64 = v251.l0 │
00:06:16 #15330 [verbose] > │ let struct (v254 : (string []), v255 : US0) = v234.[int v253] │
00:06:16 #15331 [verbose] > │ match v255 with │
00:06:16 #15332 [verbose] > │ | US0_1 -> (* None *) │
00:06:16 #15333 [verbose] > │ let v258 : unit option = None │
00:06:16 #15334 [verbose] > │ let mutable _v258 = v258 │
00:06:16 #15335 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:16 #15336 [verbose] > │ () │
00:06:16 #15337 [verbose] > │ #endif │
00:06:16 #15338 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:16 #15339 [verbose] > │ () │
00:06:16 #15340 [verbose] > │ #endif │
00:06:16 #15341 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:16 #15342 [verbose] > │ () │
00:06:16 #15343 [verbose] > │ #endif │
00:06:16 #15344 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:16 #15345 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:16 #15346 [verbose] > │ System.Console.ResetColor () │
00:06:16 #15347 [verbose] > │ () │
00:06:16 #15348 [verbose] > │ #endif │
00:06:16 #15349 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:16 #15350 [verbose] > │ () │
00:06:16 #15351 [verbose] > │ #endif │
00:06:16 #15352 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:16 #15353 [verbose] > │ FABLE_COMPILER_DART │
00:06:16 #15354 [verbose] > │ Unchecked.defaultof<unit> │
00:06:16 #15355 [verbose] > │ () │
00:06:16 #15356 [verbose] > │ #endif │
00:06:16 #15357 [verbose] > │ |> fun x -> _v258 <- Some x │
00:06:16 #15358 [verbose] > │ _v258.Value │
00:06:16 #15359 [verbose] > │ () │
00:06:16 #15360 [verbose] > │ | US0_0(v256) -> (* Some *) │
00:06:16 #15361 [verbose] > │ let v257 : unit option = None │
00:06:16 #15362 [verbose] > │ let mutable _v257 = v257 │
00:06:16 #15363 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:16 #15364 [verbose] > │ () │
00:06:16 #15365 [verbose] > │ #endif │
00:06:16 #15366 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:16 #15367 [verbose] > │ () │
00:06:16 #15368 [verbose] > │ #endif │
00:06:16 #15369 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:16 #15370 [verbose] > │ () │
00:06:16 #15371 [verbose] > │ #endif │
00:06:16 #15372 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:16 #15373 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:16 #15374 [verbose] > │ System.Console.ForegroundColor <- v256 │
00:06:16 #15375 [verbose] > │ () │
00:06:16 #15376 [verbose] > │ #endif │
00:06:16 #15377 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:16 #15378 [verbose] > │ () │
00:06:16 #15379 [verbose] > │ #endif │
00:06:16 #15380 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:16 #15381 [verbose] > │ FABLE_COMPILER_DART │
00:06:16 #15382 [verbose] > │ Unchecked.defaultof<unit> │
00:06:16 #15383 [verbose] > │ () │
00:06:16 #15384 [verbose] > │ #endif │
00:06:16 #15385 [verbose] > │ |> fun x -> _v257 <- Some x │
00:06:16 #15386 [verbose] > │ _v257.Value │
00:06:16 #15387 [verbose] > │ () │
00:06:16 #15388 [verbose] > │ let v259 : string = "\t| " │
00:06:16 #15389 [verbose] > │ let v260 : string = System.String.Join (v259, v254) │
00:06:16 #15390 [verbose] > │ System.Console.WriteLine v260 │
00:06:16 #15391 [verbose] > │ let v261 : unit option = None │
00:06:16 #15392 [verbose] > │ let mutable _v261 = v261 │
00:06:16 #15393 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:06:16 #15394 [verbose] > │ () │
00:06:16 #15395 [verbose] > │ #endif │
00:06:16 #15396 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:06:16 #15397 [verbose] > │ () │
00:06:16 #15398 [verbose] > │ #endif │
00:06:16 #15399 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:06:16 #15400 [verbose] > │ () │
00:06:16 #15401 [verbose] > │ #endif │
00:06:16 #15402 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:06:16 #15403 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:06:16 #15404 [verbose] > │ System.Console.ResetColor () │
00:06:16 #15405 [verbose] > │ () │
00:06:16 #15406 [verbose] > │ #endif │
00:06:16 #15407 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:06:16 #15408 [verbose] > │ () │
00:06:16 #15409 [verbose] > │ #endif │
00:06:16 #15410 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:06:16 #15411 [verbose] > │ FABLE_COMPILER_DART │
00:06:16 #15412 [verbose] > │ Unchecked.defaultof<unit> │
00:06:16 #15413 [verbose] > │ () │
00:06:16 #15414 [verbose] > │ #endif │
00:06:16 #15415 [verbose] > │ |> fun x -> _v261 <- Some x │
00:06:16 #15416 [verbose] > │ _v261.Value │
00:06:16 #15417 [verbose] > │ let v262 : uint64 = v253 + 1UL │
00:06:16 #15418 [verbose] > │ v251.l0 <- v262 │
00:06:16 #15419 [verbose] > │ () │
00:06:16 #15420 [verbose] > │ let v263 : ((float []) []) = Array.zeroCreate<(float [])> │
00:06:16 #15421 [verbose] > │ (System.Convert.ToInt32(v90)) │
00:06:16 #15422 [verbose] > │ let v264 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15423 [verbose] > │ while method4(v90, v264) do │
00:06:16 #15424 [verbose] > │ let v266 : uint64 = v264.l0 │
00:06:16 #15425 [verbose] > │ let struct (v267 : string, v268 : string, v269 : string, v270 : │
00:06:16 #15426 [verbose] > │ (int64 [])) = v16.[int v266] │
00:06:16 #15427 [verbose] > │ let v271 : (int64 -> float) = float │
00:06:16 #15428 [verbose] > │ let v272 : uint64 = System.Convert.ToUInt64 v270.Length │
00:06:16 #15429 [verbose] > │ let v273 : (float []) = Array.zeroCreate<float> │
00:06:16 #15430 [verbose] > │ (System.Convert.ToInt32(v272)) │
00:06:16 #15431 [verbose] > │ let v274 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15432 [verbose] > │ while method4(v272, v274) do │
00:06:16 #15433 [verbose] > │ let v276 : uint64 = v274.l0 │
00:06:16 #15434 [verbose] > │ let v277 : int64 = v270.[int v276] │
00:06:16 #15435 [verbose] > │ let v278 : float = v271 v277 │
00:06:16 #15436 [verbose] > │ v273.[int v276] <- v278 │
00:06:16 #15437 [verbose] > │ let v279 : uint64 = v276 + 1UL │
00:06:16 #15438 [verbose] > │ v274.l0 <- v279 │
00:06:16 #15439 [verbose] > │ () │
00:06:16 #15440 [verbose] > │ v263.[int v266] <- v273 │
00:06:16 #15441 [verbose] > │ let v280 : uint64 = v266 + 1UL │
00:06:16 #15442 [verbose] > │ v264.l0 <- v280 │
00:06:16 #15443 [verbose] > │ () │
00:06:16 #15444 [verbose] > │ let v281 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:06:16 #15445 [verbose] > │ let v282 : ((float []) []) = v281 v263 │
00:06:16 #15446 [verbose] > │ let v283 : uint64 = System.Convert.ToUInt64 v282.Length │
00:06:16 #15447 [verbose] > │ let v284 : (float []) = Array.zeroCreate<float> │
00:06:16 #15448 [verbose] > │ (System.Convert.ToInt32(v283)) │
00:06:16 #15449 [verbose] > │ let v285 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15450 [verbose] > │ while method4(v283, v285) do │
00:06:16 #15451 [verbose] > │ let v287 : uint64 = v285.l0 │
00:06:16 #15452 [verbose] > │ let v288 : (float []) = v282.[int v287] │
00:06:16 #15453 [verbose] > │ let v289 : ((float []) -> float) = Array.average │
00:06:16 #15454 [verbose] > │ let v290 : float = v289 v288 │
00:06:16 #15455 [verbose] > │ v284.[int v287] <- v290 │
00:06:16 #15456 [verbose] > │ let v291 : uint64 = v287 + 1UL │
00:06:16 #15457 [verbose] > │ v285.l0 <- v291 │
00:06:16 #15458 [verbose] > │ () │
00:06:16 #15459 [verbose] > │ let v292 : (float -> int64) = int64 │
00:06:16 #15460 [verbose] > │ let v293 : uint64 = System.Convert.ToUInt64 v284.Length │
00:06:16 #15461 [verbose] > │ let v294 : (int64 []) = Array.zeroCreate<int64> │
00:06:16 #15462 [verbose] > │ (System.Convert.ToInt32(v293)) │
00:06:16 #15463 [verbose] > │ let v295 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15464 [verbose] > │ while method4(v293, v295) do │
00:06:16 #15465 [verbose] > │ let v297 : uint64 = v295.l0 │
00:06:16 #15466 [verbose] > │ let v298 : float = v284.[int v297] │
00:06:16 #15467 [verbose] > │ let v299 : int64 = v292 v298 │
00:06:16 #15468 [verbose] > │ v294.[int v297] <- v299 │
00:06:16 #15469 [verbose] > │ let v300 : uint64 = v297 + 1UL │
00:06:16 #15470 [verbose] > │ v295.l0 <- v300 │
00:06:16 #15471 [verbose] > │ () │
00:06:16 #15472 [verbose] > │ let v301 : uint64 = System.Convert.ToUInt64 v294.Length │
00:06:16 #15473 [verbose] > │ let v302 : UH5 = UH5_0 │
00:06:16 #15474 [verbose] > │ let v303 : Mut3 = {l0 = 0UL; l1 = v302; l2 = 0} : Mut3 │
00:06:16 #15475 [verbose] > │ while method23(v301, v303) do │
00:06:16 #15476 [verbose] > │ let v305 : uint64 = v303.l0 │
00:06:16 #15477 [verbose] > │ let struct (v306 : UH5, v307 : int32) = v303.l1, v303.l2 │
00:06:16 #15478 [verbose] > │ let v308 : int64 = v294.[int v305] │
00:06:16 #15479 [verbose] > │ let v309 : int32 = v307 + 1 │
00:06:16 #15480 [verbose] > │ let v310 : uint64 = v305 + 1UL │
00:06:16 #15481 [verbose] > │ let v311 : UH5 = UH5_1(v307, v308, v306) │
00:06:16 #15482 [verbose] > │ v303.l0 <- v310 │
00:06:16 #15483 [verbose] > │ v303.l1 <- v311 │
00:06:16 #15484 [verbose] > │ v303.l2 <- v309 │
00:06:16 #15485 [verbose] > │ () │
00:06:16 #15486 [verbose] > │ let struct (v312 : UH5, v313 : int32) = v303.l1, v303.l2 │
00:06:16 #15487 [verbose] > │ let v314 : UH5 = UH5_0 │
00:06:16 #15488 [verbose] > │ let v315 : UH5 = method24(v312, v314) │
00:06:16 #15489 [verbose] > │ let v316 : (struct (int32 * int64) []) = method34(v315) │
00:06:16 #15490 [verbose] > │ System.Console.WriteLine v2 │
00:06:16 #15491 [verbose] > │ let v317 : string = "Average Ranking " │
00:06:16 #15492 [verbose] > │ System.Console.WriteLine v317 │
00:06:16 #15493 [verbose] > │ let v318 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:06:16 #15494 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:06:16 #15495 [verbose] > │ let v319 : (struct (int32 * int64) -> int64) = closure5() │
00:06:16 #15496 [verbose] > │ let v320 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:06:16 #15497 [verbose] > │ = v318 v319 │
00:06:16 #15498 [verbose] > │ let v321 : (struct (int32 * int64) []) = v320 v316 │
00:06:16 #15499 [verbose] > │ let v322 : uint64 = System.Convert.ToUInt64 v321.Length │
00:06:16 #15500 [verbose] > │ let v323 : Mut0 = {l0 = 0UL} : Mut0 │
00:06:16 #15501 [verbose] > │ while method4(v322, v323) do │
00:06:16 #15502 [verbose] > │ let v325 : uint64 = v323.l0 │
00:06:16 #15503 [verbose] > │ let struct (v326 : int32, v327 : int64) = v321.[int v325] │
00:06:16 #15504 [verbose] > │ let v328 : string = $"Test case %d{v326 + 1}. Average Time: %A{v327} │
00:06:16 #15505 [verbose] > │ " │
00:06:16 #15506 [verbose] > │ System.Console.WriteLine v328 │
00:06:16 #15507 [verbose] > │ let v329 : uint64 = v325 + 1UL │
00:06:16 #15508 [verbose] > │ v323.l0 <- v329 │
00:06:16 #15509 [verbose] > │ () │
00:06:16 #15510 [verbose] > │ () │
00:06:16 #15511 [verbose] > │ method0() │
00:06:16 #15512 [verbose] > │ │
00:06:16 #15513 [verbose] > │ │
00:06:16 #15514 [verbose] > │ │
00:06:16 #15515 [verbose] > │ Test: v0 │
00:06:16 #15516 [verbose] > │ │
00:06:16 #15517 [verbose] > │ Solution: 0.0 │
00:06:16 #15518 [verbose] > │ Test case 1. A. Time: 25 │
00:06:16 #15519 [verbose] > │ │
00:06:16 #15520 [verbose] > │ Solution: 2.0 │
00:06:16 #15521 [verbose] > │ Test case 1. A. Time: 11 │
00:06:16 #15522 [verbose] > │ │
00:06:16 #15523 [verbose] > │ Solution: 5.0 │
00:06:16 #15524 [verbose] > │ Test case 1. A. Time: 12 │
00:06:16 #15525 [verbose] > │ │
00:06:16 #15526 [verbose] > │ Input | Expected | Result | Best │
00:06:16 #15527 [verbose] > │ --- | --- | --- | --- │
00:06:16 #15528 [verbose] > │ 0.0 | 1.0 | 1.0 | struct (1L, 25L) │
00:06:16 #15529 [verbose] > │ 2.0 | 3.0 | 3.0 | struct (1L, 11L) │
00:06:16 #15530 [verbose] > │ 5.0 | 6.0 | 6.0 | struct (1L, 12L) │
00:06:16 #15531 [verbose] > │ │
00:06:16 #15532 [verbose] > │ Average Ranking │
00:06:16 #15533 [verbose] > │ Test case 1. Average Time: 16L │
00:06:16 #15534 [verbose] > │ │
00:06:16 #15535 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:18 #15536 [verbose] > [NbConvertApp] Converting notebook benchmark.dib.ipynb to html
00:06:18 #15537 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:06:18 #15538 [verbose] > validate(nb)
00:06:19 #15539 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:06:19 #15540 [verbose] > return _pygments_highlight(
00:06:19 #15541 [verbose] > [NbConvertApp] Writing 418656 bytes to benchmark.dib.html
00:06:20 #15542 [debug] executeAsync / exitCode: 0 / output.Length: 243937
00:06:20 #15543 [debug] main / executeCommand / exitCode: 0
00:06:20 #15544 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 stream.dib" -Retries 3"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:06:22 #15545 [verbose] >
00:06:23 #15546 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:23 #15547 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:23 #15548 [verbose] > │ # stream │
00:06:23 #15549 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:23 #15550 [verbose] >
00:06:23 #15551 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:23 #15552 [verbose] > // // test
00:06:23 #15553 [verbose] >
00:06:23 #15554 [verbose] > open testing
00:06:26 #15555 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:06:27 #15556 [verbose] >
00:06:27 #15557 [verbose] > ╭─[ 4.30s - stdout ]───────────────────────────────────────────────────────────╮
00:06:27 #15558 [verbose] > │ () │
00:06:27 #15559 [verbose] > │ │
00:06:27 #15560 [verbose] > │ │
00:06:27 #15561 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #15562 [verbose] >
00:06:27 #15563 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 #15564 [verbose] > union rec stream t =
00:06:27 #15565 [verbose] > | StreamCons : t * (() -> stream t)
00:06:27 #15566 [verbose] > | StreamNil
00:06:27 #15567 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ec5e164ac07366f183dc76ef1b51602a0defc05ad4435dba9375a5275a4ed76a\main.spi
00:06:27 #15568 [verbose] >
00:06:27 #15569 [verbose] > ╭─[ 276.39ms - stdout ]────────────────────────────────────────────────────────╮
00:06:27 #15570 [verbose] > │ () │
00:06:27 #15571 [verbose] > │ │
00:06:27 #15572 [verbose] > │ │
00:06:27 #15573 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #15574 [verbose] >
00:06:27 #15575 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:27 #15576 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:27 #15577 [verbose] > │ ## fold │
00:06:27 #15578 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #15579 [verbose] >
00:06:27 #15580 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 #15581 [verbose] > inl fold fn init s =
00:06:27 #15582 [verbose] > inl rec body acc = function
00:06:27 #15583 [verbose] > | StreamCons (st, fn') => loop (fn acc st) (fn' ())
00:06:27 #15584 [verbose] > | StreamNil => acc
00:06:27 #15585 [verbose] > and inl loop acc = join_body body acc
00:06:27 #15586 [verbose] > loop init s
00:06:27 #15587 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\46d11b2427280a474479a75472c7fc6e27a423c40d13b933ba5fce989df2b52e\main.spi
00:06:27 #15588 [verbose] >
00:06:27 #15589 [verbose] > ╭─[ 262.94ms - stdout ]────────────────────────────────────────────────────────╮
00:06:27 #15590 [verbose] > │ () │
00:06:27 #15591 [verbose] > │ │
00:06:27 #15592 [verbose] > │ │
00:06:27 #15593 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #15594 [verbose] >
00:06:27 #15595 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:27 #15596 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:27 #15597 [verbose] > │ ## fold_back │
00:06:27 #15598 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:27 #15599 [verbose] >
00:06:27 #15600 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:27 #15601 [verbose] > inl fold_back fn s init =
00:06:27 #15602 [verbose] > inl rec body acc = function
00:06:27 #15603 [verbose] > | StreamCons (st, fn') => fn st (loop acc (fn' ()))
00:06:27 #15604 [verbose] > | StreamNil => acc
00:06:27 #15605 [verbose] > and inl loop acc = join_body body acc
00:06:27 #15606 [verbose] > loop init s
00:06:28 #15607 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0164ff90265037c7589e8fb7b9ecacd0811f8b6de14de3a315624b9e0305f2e5\main.spi
00:06:28 #15608 [verbose] >
00:06:28 #15609 [verbose] > ╭─[ 241.96ms - stdout ]────────────────────────────────────────────────────────╮
00:06:28 #15610 [verbose] > │ () │
00:06:28 #15611 [verbose] > │ │
00:06:28 #15612 [verbose] > │ │
00:06:28 #15613 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #15614 [verbose] >
00:06:28 #15615 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:28 #15616 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:28 #15617 [verbose] > │ ## to_list │
00:06:28 #15618 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #15619 [verbose] >
00:06:28 #15620 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 #15621 [verbose] > inl to_list s =
00:06:28 #15622 [verbose] > (s, [[]])
00:06:28 #15623 [verbose] > ||> fold_back fun x acc =>
00:06:28 #15624 [verbose] > x :: acc
00:06:28 #15625 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b299ef3fbaa1ffb974df90dd8151b724f60ad923f7ea83a73164fc2e8cbfd85f\main.spi
00:06:28 #15626 [verbose] >
00:06:28 #15627 [verbose] > ╭─[ 273.09ms - stdout ]────────────────────────────────────────────────────────╮
00:06:28 #15628 [verbose] > │ () │
00:06:28 #15629 [verbose] > │ │
00:06:28 #15630 [verbose] > │ │
00:06:28 #15631 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #15632 [verbose] >
00:06:28 #15633 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:28 #15634 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:28 #15635 [verbose] > │ ## rev │
00:06:28 #15636 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #15637 [verbose] >
00:06:28 #15638 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 #15639 [verbose] > inl rev s =
00:06:28 #15640 [verbose] > (StreamNil, s)
00:06:28 #15641 [verbose] > ||> fold fun s x =>
00:06:28 #15642 [verbose] > StreamCons (x, fun () => s)
00:06:28 #15643 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\25e9fd50c5fbb3fadff28cedd6034e4c93894e8f5fb85b52feee0a0002645954\main.spi
00:06:28 #15644 [verbose] >
00:06:28 #15645 [verbose] > ╭─[ 304.11ms - stdout ]────────────────────────────────────────────────────────╮
00:06:28 #15646 [verbose] > │ () │
00:06:28 #15647 [verbose] > │ │
00:06:28 #15648 [verbose] > │ │
00:06:28 #15649 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #15650 [verbose] >
00:06:28 #15651 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:28 #15652 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:28 #15653 [verbose] > │ ## from_list │
00:06:28 #15654 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #15655 [verbose] >
00:06:28 #15656 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 #15657 [verbose] > inl from_list list =
00:06:28 #15658 [verbose] > (list, StreamNil)
00:06:28 #15659 [verbose] > ||> listm.foldBack fun x acc =>
00:06:28 #15660 [verbose] > StreamCons (x, fun () => acc)
00:06:28 #15661 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\eb18c021fc2ea3a3b4a122fd6696ae180d843f1e42519b73ddbce3f2b0689847\main.spi
00:06:28 #15662 [verbose] >
00:06:28 #15663 [verbose] > ╭─[ 269.37ms - stdout ]────────────────────────────────────────────────────────╮
00:06:28 #15664 [verbose] > │ () │
00:06:28 #15665 [verbose] > │ │
00:06:28 #15666 [verbose] > │ │
00:06:28 #15667 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:28 #15668 [verbose] >
00:06:28 #15669 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:28 #15670 [verbose] > // // test
00:06:28 #15671 [verbose] >
00:06:28 #15672 [verbose] > listm.init 3i32 id
00:06:28 #15673 [verbose] > |> from_list
00:06:28 #15674 [verbose] > |> rev
00:06:28 #15675 [verbose] > |> to_list
00:06:28 #15676 [verbose] > |> _assert_eq [[ 2; 1; 0 ]]
00:06:29 #15677 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d4cdff881161d287ef2dae58c2a2a48a4ac818bfbde735b8868b449ef6d3095b\main.spi
00:06:30 #15678 [verbose] >
00:06:30 #15679 [verbose] > ╭─[ 1.39s - stdout ]───────────────────────────────────────────────────────────╮
00:06:30 #15680 [verbose] > │ type UH0 = │
00:06:30 #15681 [verbose] > │ | UH0_0 │
00:06:30 #15682 [verbose] > │ | UH0_1 of int32 * UH0 │
00:06:30 #15683 [verbose] > │ let rec method0 () : unit = │
00:06:30 #15684 [verbose] > │ let v0 : UH0 = UH0_0 │
00:06:30 #15685 [verbose] > │ let v1 : UH0 = UH0_1(0, v0) │
00:06:30 #15686 [verbose] > │ let v2 : UH0 = UH0_1(1, v1) │
00:06:30 #15687 [verbose] > │ let v3 : UH0 = UH0_1(2, v2) │
00:06:30 #15688 [verbose] > │ let v4 : string = $"%A{v3}" │
00:06:30 #15689 [verbose] > │ System.Console.WriteLine v4 │
00:06:30 #15690 [verbose] > │ let v23 : UH0 = UH0_0 │
00:06:30 #15691 [verbose] > │ let v24 : UH0 = UH0_1(0, v23) │
00:06:30 #15692 [verbose] > │ let v25 : UH0 = UH0_1(1, v24) │
00:06:30 #15693 [verbose] > │ let v26 : UH0 = UH0_1(2, v25) │
00:06:30 #15694 [verbose] > │ let v27 : UH0 = UH0_0 │
00:06:30 #15695 [verbose] > │ let v28 : UH0 = UH0_1(0, v27) │
00:06:30 #15696 [verbose] > │ let v29 : UH0 = UH0_1(1, v28) │
00:06:30 #15697 [verbose] > │ let v30 : UH0 = UH0_1(2, v29) │
00:06:30 #15698 [verbose] > │ let v31 : string = $"__expect / actual: %A{v26} / expected: %A{v30}" │
00:06:30 #15699 [verbose] > │ () │
00:06:30 #15700 [verbose] > │ method0() │
00:06:30 #15701 [verbose] > │ │
00:06:30 #15702 [verbose] > │ UH0_1 (2, UH0_1 (1, UH0_1 (0, UH0_0))) │
00:06:30 #15703 [verbose] > │ │
00:06:30 #15704 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #15705 [verbose] >
00:06:30 #15706 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:30 #15707 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:30 #15708 [verbose] > │ ## try_item │
00:06:30 #15709 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #15710 [verbose] >
00:06:30 #15711 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 #15712 [verbose] > inl try_item i s =
00:06:30 #15713 [verbose] > inl rec body i = function
00:06:30 #15714 [verbose] > | StreamCons (x, _) when i <= 0 => Some x
00:06:30 #15715 [verbose] > | StreamCons (_, fn) => loop (i - 1) (fn ())
00:06:30 #15716 [verbose] > | StreamNil => None
00:06:30 #15717 [verbose] > and inl loop acc s' =
00:06:30 #15718 [verbose] > match var_is acc, var_is s' with
00:06:30 #15719 [verbose] > | false, false => body acc s'
00:06:30 #15720 [verbose] > | _ =>
00:06:30 #15721 [verbose] > inl acc = dyn acc
00:06:30 #15722 [verbose] > inl s' = dyn s'
00:06:30 #15723 [verbose] > join body acc s'
00:06:30 #15724 [verbose] > loop i s
00:06:30 #15725 [verbose] >
00:06:30 #15726 [verbose] > inl item i =
00:06:30 #15727 [verbose] > try_item i >> optionm.value
00:06:30 #15728 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ea7fbf904784eb86dc9f830fab62fcf1b636a2e693f7e86963e088ab53b86c27\main.spi
00:06:30 #15729 [verbose] >
00:06:30 #15730 [verbose] > ╭─[ 233.69ms - stdout ]────────────────────────────────────────────────────────╮
00:06:30 #15731 [verbose] > │ () │
00:06:30 #15732 [verbose] > │ │
00:06:30 #15733 [verbose] > │ │
00:06:30 #15734 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #15735 [verbose] >
00:06:30 #15736 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 #15737 [verbose] > // // test
00:06:30 #15738 [verbose] >
00:06:30 #15739 [verbose] > listm.init 10i32 id
00:06:30 #15740 [verbose] > |> from_list
00:06:30 #15741 [verbose] > |> item 9i32
00:06:30 #15742 [verbose] > |> _assert_eq 9
00:06:30 #15743 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\639af1cf7869250282ea44349c3271e8e9114f7c9fe7038785d3f490ea78a775\main.spi
00:06:30 #15744 [verbose] >
00:06:30 #15745 [verbose] > ╭─[ 281.26ms - stdout ]────────────────────────────────────────────────────────╮
00:06:30 #15746 [verbose] > │ let rec method0 () : unit = │
00:06:30 #15747 [verbose] > │ let v0 : string = $"%A{9}" │
00:06:30 #15748 [verbose] > │ System.Console.WriteLine v0 │
00:06:30 #15749 [verbose] > │ let v1 : string = $"__expect / actual: %A{9} / expected: %A{9}" │
00:06:30 #15750 [verbose] > │ () │
00:06:30 #15751 [verbose] > │ method0() │
00:06:30 #15752 [verbose] > │ │
00:06:30 #15753 [verbose] > │ 9 │
00:06:30 #15754 [verbose] > │ │
00:06:30 #15755 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #15756 [verbose] >
00:06:30 #15757 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:30 #15758 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:30 #15759 [verbose] > │ ## new_infinite_stream │
00:06:30 #15760 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:30 #15761 [verbose] >
00:06:30 #15762 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:30 #15763 [verbose] > inl new_infinite_stream fn =
00:06:30 #15764 [verbose] > inl rec loop n =
00:06:30 #15765 [verbose] > StreamCons (fn n, fun () => loop (n + 1))
00:06:30 #15766 [verbose] > loop 0
00:06:30 #15767 [verbose] >
00:06:30 #15768 [verbose] > inl new_infinite_stream_ fn =
00:06:30 #15769 [verbose] > let rec loop n =
00:06:30 #15770 [verbose] > StreamCons (fn n, fun () => loop (n + 1))
00:06:30 #15771 [verbose] > loop 0
00:06:31 #15772 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7cb1e7b6a82f7df548f42f0a1026996e2529db405f972ecd4f2ddcdde8316a2f\main.spi
00:06:31 #15773 [verbose] >
00:06:31 #15774 [verbose] > ╭─[ 281.86ms - stdout ]────────────────────────────────────────────────────────╮
00:06:31 #15775 [verbose] > │ () │
00:06:31 #15776 [verbose] > │ │
00:06:31 #15777 [verbose] > │ │
00:06:31 #15778 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #15779 [verbose] >
00:06:31 #15780 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 #15781 [verbose] > // // test
00:06:31 #15782 [verbose] >
00:06:31 #15783 [verbose] > new_infinite_stream print_and_return
00:06:31 #15784 [verbose] > |> item 4i32
00:06:31 #15785 [verbose] > |> _assert_eq 4i32
00:06:31 #15786 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cd124474f0fc7c55758f9f3563c4f792dd1e2f51f1d019b539e00df4cce8448d\main.spi
00:06:31 #15787 [verbose] >
00:06:31 #15788 [verbose] > ╭─[ 272.22ms - stdout ]────────────────────────────────────────────────────────╮
00:06:31 #15789 [verbose] > │ let rec method0 () : unit = │
00:06:31 #15790 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:06:31 #15791 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:06:31 #15792 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:06:31 #15793 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:06:31 #15794 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:06:31 #15795 [verbose] > │ let v0 : string = $"%A{4}" │
00:06:31 #15796 [verbose] > │ System.Console.WriteLine v0 │
00:06:31 #15797 [verbose] > │ let v1 : string = $"__expect / actual: %A{4} / expected: %A{4}" │
00:06:31 #15798 [verbose] > │ () │
00:06:31 #15799 [verbose] > │ method0() │
00:06:31 #15800 [verbose] > │ │
00:06:31 #15801 [verbose] > │ print_and_return / x: 0 │
00:06:31 #15802 [verbose] > │ print_and_return / x: 1 │
00:06:31 #15803 [verbose] > │ print_and_return / x: 2 │
00:06:31 #15804 [verbose] > │ print_and_return / x: 3 │
00:06:31 #15805 [verbose] > │ print_and_return / x: 4 │
00:06:31 #15806 [verbose] > │ 4 │
00:06:31 #15807 [verbose] > │ │
00:06:31 #15808 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #15809 [verbose] >
00:06:31 #15810 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:31 #15811 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:31 #15812 [verbose] > │ ## new_finite_stream │
00:06:31 #15813 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #15814 [verbose] >
00:06:31 #15815 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 #15816 [verbose] > inl new_finite_stream fn max =
00:06:31 #15817 [verbose] > inl rec loop n =
00:06:31 #15818 [verbose] > if n >= max
00:06:31 #15819 [verbose] > then StreamNil
00:06:31 #15820 [verbose] > else StreamCons (fn n, fun () => loop (n + 1))
00:06:31 #15821 [verbose] > loop 0
00:06:31 #15822 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e322a9835bb539466a32722801f79e3b1a068747b7ae8d308f941a95a9319ee6\main.spi
00:06:31 #15823 [verbose] >
00:06:31 #15824 [verbose] > ╭─[ 234.98ms - stdout ]────────────────────────────────────────────────────────╮
00:06:31 #15825 [verbose] > │ () │
00:06:31 #15826 [verbose] > │ │
00:06:31 #15827 [verbose] > │ │
00:06:31 #15828 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #15829 [verbose] >
00:06:31 #15830 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:31 #15831 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:31 #15832 [verbose] > │ ## memoize │
00:06:31 #15833 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #15834 [verbose] >
00:06:31 #15835 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 #15836 [verbose] > union memoized_stream t =
00:06:31 #15837 [verbose] > | NotComputed : () -> stream t
00:06:31 #15838 [verbose] > | Computed : stream t
00:06:31 #15839 [verbose] >
00:06:31 #15840 [verbose] > inl memoize s =
00:06:31 #15841 [verbose] > inl rec body s =
00:06:31 #15842 [verbose] > inl state = mut (NotComputed s)
00:06:31 #15843 [verbose] > fun () =>
00:06:31 #15844 [verbose] > match *state with
00:06:31 #15845 [verbose] > | Computed x => x
00:06:31 #15846 [verbose] > | NotComputed fn =>
00:06:31 #15847 [verbose] > inl new_state =
00:06:31 #15848 [verbose] > match fn () with
00:06:31 #15849 [verbose] > | StreamNil => StreamNil
00:06:31 #15850 [verbose] > | StreamCons (x, fn) => StreamCons (x, loop fn)
00:06:31 #15851 [verbose] > state <- Computed new_state
00:06:31 #15852 [verbose] > new_state
00:06:31 #15853 [verbose] > and inl loop s' = join_body_unit body s s'
00:06:31 #15854 [verbose] > loop (fun () => s)
00:06:31 #15855 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a87a0d438a85f99ed29debb238f8a219ab4bedc1e327efe646a031e2281d507e\main.spi
00:06:31 #15856 [verbose] >
00:06:31 #15857 [verbose] > ╭─[ 252.69ms - stdout ]────────────────────────────────────────────────────────╮
00:06:31 #15858 [verbose] > │ () │
00:06:31 #15859 [verbose] > │ │
00:06:31 #15860 [verbose] > │ │
00:06:31 #15861 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:31 #15862 [verbose] >
00:06:31 #15863 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:31 #15864 [verbose] > // // test
00:06:31 #15865 [verbose] >
00:06:31 #15866 [verbose] > inl memo_stream = new_finite_stream print_and_return 10 |> memoize
00:06:31 #15867 [verbose] >
00:06:31 #15868 [verbose] > memo_stream ()
00:06:31 #15869 [verbose] > |> item 3i32
00:06:31 #15870 [verbose] > |> _assert_eq 3i32
00:06:31 #15871 [verbose] >
00:06:31 #15872 [verbose] > memo_stream ()
00:06:31 #15873 [verbose] > |> item 5i32
00:06:31 #15874 [verbose] > |> _assert_eq 5i32
00:06:32 #15875 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1d79ef58c19a796aede33305401f553e0b65733855a18ab95b2513c9ed417fcf\main.spi
00:06:32 #15876 [verbose] >
00:06:32 #15877 [verbose] > ╭─[ 586.81ms - stdout ]────────────────────────────────────────────────────────╮
00:06:32 #15878 [verbose] > │ type UH0 = │
00:06:32 #15879 [verbose] > │ | UH0_0 of int32 * (unit -> UH0) │
00:06:32 #15880 [verbose] > │ | UH0_1 │
00:06:32 #15881 [verbose] > │ and [<Struct>] US0 = │
00:06:32 #15882 [verbose] > │ | US0_0 of f0_0 : (unit -> UH0) │
00:06:32 #15883 [verbose] > │ | US0_1 of f1_0 : UH0 │
00:06:32 #15884 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:06:32 #15885 [verbose] > │ and [<Struct>] US1 = │
00:06:32 #15886 [verbose] > │ | US1_0 of f0_0 : int32 │
00:06:32 #15887 [verbose] > │ | US1_1 │
00:06:32 #15888 [verbose] > │ let rec closure10 () () : UH0 = │
00:06:32 #15889 [verbose] > │ UH0_1 │
00:06:32 #15890 [verbose] > │ and closure9 () () : UH0 = │
00:06:32 #15891 [verbose] > │ printfn $"print_and_return / x: {9}" │
00:06:32 #15892 [verbose] > │ let v0 : (unit -> UH0) = closure10() │
00:06:32 #15893 [verbose] > │ UH0_0(9, v0) │
00:06:32 #15894 [verbose] > │ and closure8 () () : UH0 = │
00:06:32 #15895 [verbose] > │ printfn $"print_and_return / x: {8}" │
00:06:32 #15896 [verbose] > │ let v0 : (unit -> UH0) = closure9() │
00:06:32 #15897 [verbose] > │ UH0_0(8, v0) │
00:06:32 #15898 [verbose] > │ and closure7 () () : UH0 = │
00:06:32 #15899 [verbose] > │ printfn $"print_and_return / x: {7}" │
00:06:32 #15900 [verbose] > │ let v0 : (unit -> UH0) = closure8() │
00:06:32 #15901 [verbose] > │ UH0_0(7, v0) │
00:06:32 #15902 [verbose] > │ and closure6 () () : UH0 = │
00:06:32 #15903 [verbose] > │ printfn $"print_and_return / x: {6}" │
00:06:32 #15904 [verbose] > │ let v0 : (unit -> UH0) = closure7() │
00:06:32 #15905 [verbose] > │ UH0_0(6, v0) │
00:06:32 #15906 [verbose] > │ and closure5 () () : UH0 = │
00:06:32 #15907 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:06:32 #15908 [verbose] > │ let v0 : (unit -> UH0) = closure6() │
00:06:32 #15909 [verbose] > │ UH0_0(5, v0) │
00:06:32 #15910 [verbose] > │ and closure4 () () : UH0 = │
00:06:32 #15911 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:06:32 #15912 [verbose] > │ let v0 : (unit -> UH0) = closure5() │
00:06:32 #15913 [verbose] > │ UH0_0(4, v0) │
00:06:32 #15914 [verbose] > │ and closure3 () () : UH0 = │
00:06:32 #15915 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:06:32 #15916 [verbose] > │ let v0 : (unit -> UH0) = closure4() │
00:06:32 #15917 [verbose] > │ UH0_0(3, v0) │
00:06:32 #15918 [verbose] > │ and closure2 () () : UH0 = │
00:06:32 #15919 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:06:32 #15920 [verbose] > │ let v0 : (unit -> UH0) = closure3() │
00:06:32 #15921 [verbose] > │ UH0_0(2, v0) │
00:06:32 #15922 [verbose] > │ and closure1 () () : UH0 = │
00:06:32 #15923 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:06:32 #15924 [verbose] > │ let v0 : (unit -> UH0) = closure2() │
00:06:32 #15925 [verbose] > │ UH0_0(1, v0) │
00:06:32 #15926 [verbose] > │ and closure0 () () : UH0 = │
00:06:32 #15927 [verbose] > │ let v0 : (unit -> UH0) = closure1() │
00:06:32 #15928 [verbose] > │ UH0_0(0, v0) │
00:06:32 #15929 [verbose] > │ and closure11 (v0 : Mut0) () : UH0 = │
00:06:32 #15930 [verbose] > │ let v1 : US0 = v0.l0 │
00:06:32 #15931 [verbose] > │ match v1 with │
00:06:32 #15932 [verbose] > │ | US0_1(v2) -> (* Computed *) │
00:06:32 #15933 [verbose] > │ v2 │
00:06:32 #15934 [verbose] > │ | US0_0(v3) -> (* NotComputed *) │
00:06:32 #15935 [verbose] > │ let v4 : UH0 = v3 () │
00:06:32 #15936 [verbose] > │ let v13 : UH0 = │
00:06:32 #15937 [verbose] > │ match v4 with │
00:06:32 #15938 [verbose] > │ | UH0_0(v6, v7) -> (* StreamCons *) │
00:06:32 #15939 [verbose] > │ let v8 : US0 = US0_0(v7) │
00:06:32 #15940 [verbose] > │ let v9 : Mut0 = {l0 = v8} : Mut0 │
00:06:32 #15941 [verbose] > │ let v10 : (unit -> UH0) = closure11(v9) │
00:06:32 #15942 [verbose] > │ UH0_0(v6, v10) │
00:06:32 #15943 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:06:32 #15944 [verbose] > │ UH0_1 │
00:06:32 #15945 [verbose] > │ let v14 : US0 = US0_1(v13) │
00:06:32 #15946 [verbose] > │ v0.l0 <- v14 │
00:06:32 #15947 [verbose] > │ v13 │
00:06:32 #15948 [verbose] > │ and method1 (v0 : int32, v1 : UH0) : US1 = │
00:06:32 #15949 [verbose] > │ match v1 with │
00:06:32 #15950 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:06:32 #15951 [verbose] > │ let v4 : bool = v0 <= 0 │
00:06:32 #15952 [verbose] > │ if v4 then │
00:06:32 #15953 [verbose] > │ US1_0(v2) │
00:06:32 #15954 [verbose] > │ else │
00:06:32 #15955 [verbose] > │ let v6 : int32 = v0 - 1 │
00:06:32 #15956 [verbose] > │ let v7 : UH0 = v3 () │
00:06:32 #15957 [verbose] > │ method1(v6, v7) │
00:06:32 #15958 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:06:32 #15959 [verbose] > │ US1_1 │
00:06:32 #15960 [verbose] > │ and method2 (v0 : bool) : bool = │
00:06:32 #15961 [verbose] > │ v0 │
00:06:32 #15962 [verbose] > │ and method0 () : unit = │
00:06:32 #15963 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:06:32 #15964 [verbose] > │ let v0 : (unit -> UH0) = closure0() │
00:06:32 #15965 [verbose] > │ let v1 : US0 = US0_0(v0) │
00:06:32 #15966 [verbose] > │ let v2 : Mut0 = {l0 = v1} : Mut0 │
00:06:32 #15967 [verbose] > │ let v3 : US0 = v2.l0 │
00:06:32 #15968 [verbose] > │ let v18 : UH0 = │
00:06:32 #15969 [verbose] > │ match v3 with │
00:06:32 #15970 [verbose] > │ | US0_1(v4) -> (* Computed *) │
00:06:32 #15971 [verbose] > │ v4 │
00:06:32 #15972 [verbose] > │ | US0_0(v5) -> (* NotComputed *) │
00:06:32 #15973 [verbose] > │ let v6 : UH0 = v5 () │
00:06:32 #15974 [verbose] > │ let v15 : UH0 = │
00:06:32 #15975 [verbose] > │ match v6 with │
00:06:32 #15976 [verbose] > │ | UH0_0(v8, v9) -> (* StreamCons *) │
00:06:32 #15977 [verbose] > │ let v10 : US0 = US0_0(v9) │
00:06:32 #15978 [verbose] > │ let v11 : Mut0 = {l0 = v10} : Mut0 │
00:06:32 #15979 [verbose] > │ let v12 : (unit -> UH0) = closure11(v11) │
00:06:32 #15980 [verbose] > │ UH0_0(v8, v12) │
00:06:32 #15981 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:06:32 #15982 [verbose] > │ UH0_1 │
00:06:32 #15983 [verbose] > │ let v16 : US0 = US0_1(v15) │
00:06:32 #15984 [verbose] > │ v2.l0 <- v16 │
00:06:32 #15985 [verbose] > │ v15 │
00:06:32 #15986 [verbose] > │ let v19 : int32 = 3 │
00:06:32 #15987 [verbose] > │ let v20 : US1 = method1(v19, v18) │
00:06:32 #15988 [verbose] > │ let v24 : int32 = │
00:06:32 #15989 [verbose] > │ match v20 with │
00:06:32 #15990 [verbose] > │ | US1_1 -> (* None *) │
00:06:32 #15991 [verbose] > │ failwith<int32> "Option does not have a value." │
00:06:32 #15992 [verbose] > │ | US1_0(v21) -> (* Some *) │
00:06:32 #15993 [verbose] > │ v21 │
00:06:32 #15994 [verbose] > │ let v25 : string = $"%A{v24}" │
00:06:32 #15995 [verbose] > │ System.Console.WriteLine v25 │
00:06:32 #15996 [verbose] > │ let v26 : bool = v24 = 3 │
00:06:32 #15997 [verbose] > │ let v28 : bool = │
00:06:32 #15998 [verbose] > │ if v26 then │
00:06:32 #15999 [verbose] > │ true │
00:06:32 #16000 [verbose] > │ else │
00:06:32 #16001 [verbose] > │ method2(v26) │
00:06:32 #16002 [verbose] > │ let v29 : string = $"__expect / actual: %A{v24} / expected: %A{3}" │
00:06:32 #16003 [verbose] > │ let v30 : bool = v28 = false │
00:06:32 #16004 [verbose] > │ if v30 then │
00:06:32 #16005 [verbose] > │ failwith<unit> v29 │
00:06:32 #16006 [verbose] > │ let v31 : US0 = v2.l0 │
00:06:32 #16007 [verbose] > │ let v46 : UH0 = │
00:06:32 #16008 [verbose] > │ match v31 with │
00:06:32 #16009 [verbose] > │ | US0_1(v32) -> (* Computed *) │
00:06:32 #16010 [verbose] > │ v32 │
00:06:32 #16011 [verbose] > │ | US0_0(v33) -> (* NotComputed *) │
00:06:32 #16012 [verbose] > │ let v34 : UH0 = v33 () │
00:06:32 #16013 [verbose] > │ let v43 : UH0 = │
00:06:32 #16014 [verbose] > │ match v34 with │
00:06:32 #16015 [verbose] > │ | UH0_0(v36, v37) -> (* StreamCons *) │
00:06:32 #16016 [verbose] > │ let v38 : US0 = US0_0(v37) │
00:06:32 #16017 [verbose] > │ let v39 : Mut0 = {l0 = v38} : Mut0 │
00:06:32 #16018 [verbose] > │ let v40 : (unit -> UH0) = closure11(v39) │
00:06:32 #16019 [verbose] > │ UH0_0(v36, v40) │
00:06:32 #16020 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:06:32 #16021 [verbose] > │ UH0_1 │
00:06:32 #16022 [verbose] > │ let v44 : US0 = US0_1(v43) │
00:06:32 #16023 [verbose] > │ v2.l0 <- v44 │
00:06:32 #16024 [verbose] > │ v43 │
00:06:32 #16025 [verbose] > │ let v47 : int32 = 5 │
00:06:32 #16026 [verbose] > │ let v48 : US1 = method1(v47, v46) │
00:06:32 #16027 [verbose] > │ let v52 : int32 = │
00:06:32 #16028 [verbose] > │ match v48 with │
00:06:32 #16029 [verbose] > │ | US1_1 -> (* None *) │
00:06:32 #16030 [verbose] > │ failwith<int32> "Option does not have a value." │
00:06:32 #16031 [verbose] > │ | US1_0(v49) -> (* Some *) │
00:06:32 #16032 [verbose] > │ v49 │
00:06:32 #16033 [verbose] > │ let v53 : string = $"%A{v52}" │
00:06:32 #16034 [verbose] > │ System.Console.WriteLine v53 │
00:06:32 #16035 [verbose] > │ let v54 : bool = v52 = 5 │
00:06:32 #16036 [verbose] > │ let v56 : bool = │
00:06:32 #16037 [verbose] > │ if v54 then │
00:06:32 #16038 [verbose] > │ true │
00:06:32 #16039 [verbose] > │ else │
00:06:32 #16040 [verbose] > │ method2(v54) │
00:06:32 #16041 [verbose] > │ let v57 : string = $"__expect / actual: %A{v52} / expected: %A{5}" │
00:06:32 #16042 [verbose] > │ let v58 : bool = v56 = false │
00:06:32 #16043 [verbose] > │ if v58 then │
00:06:32 #16044 [verbose] > │ failwith<unit> v57 │
00:06:32 #16045 [verbose] > │ method0() │
00:06:32 #16046 [verbose] > │ │
00:06:32 #16047 [verbose] > │ print_and_return / x: 0 │
00:06:32 #16048 [verbose] > │ print_and_return / x: 1 │
00:06:32 #16049 [verbose] > │ print_and_return / x: 2 │
00:06:32 #16050 [verbose] > │ print_and_return / x: 3 │
00:06:32 #16051 [verbose] > │ 3 │
00:06:32 #16052 [verbose] > │ print_and_return / x: 4 │
00:06:32 #16053 [verbose] > │ print_and_return / x: 5 │
00:06:32 #16054 [verbose] > │ 5 │
00:06:32 #16055 [verbose] > │ │
00:06:32 #16056 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:32 #16057 [verbose] >
00:06:32 #16058 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:32 #16059 [verbose] > // // test
00:06:32 #16060 [verbose] >
00:06:32 #16061 [verbose] > inl memo_stream = new_infinite_stream_ print_and_return |> memoize
00:06:32 #16062 [verbose] >
00:06:32 #16063 [verbose] > memo_stream ()
00:06:32 #16064 [verbose] > |> item 3i32
00:06:32 #16065 [verbose] > |> _assert_eq 3i32
00:06:32 #16066 [verbose] >
00:06:32 #16067 [verbose] > memo_stream ()
00:06:32 #16068 [verbose] > |> item 5i32
00:06:32 #16069 [verbose] > |> _assert_eq 5i32
00:06:32 #16070 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0126cb97375c4b8db393cd683add61325ad24a7a7409b24fcca3b862b8267b42\main.spi
00:06:32 #16071 [verbose] >
00:06:32 #16072 [verbose] > ╭─[ 289.36ms - stdout ]────────────────────────────────────────────────────────╮
00:06:32 #16073 [verbose] > │ type UH0 = │
00:06:32 #16074 [verbose] > │ | UH0_0 of int32 * (unit -> UH0) │
00:06:32 #16075 [verbose] > │ | UH0_1 │
00:06:32 #16076 [verbose] > │ and [<Struct>] US0 = │
00:06:32 #16077 [verbose] > │ | US0_0 of f0_0 : (unit -> UH0) │
00:06:32 #16078 [verbose] > │ | US0_1 of f1_0 : UH0 │
00:06:32 #16079 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:06:32 #16080 [verbose] > │ and [<Struct>] US1 = │
00:06:32 #16081 [verbose] > │ | US1_0 of f0_0 : int32 │
00:06:32 #16082 [verbose] > │ | US1_1 │
00:06:32 #16083 [verbose] > │ let rec closure0 (v0 : int32) () : UH0 = │
00:06:32 #16084 [verbose] > │ let v1 : int32 = v0 + 1 │
00:06:32 #16085 [verbose] > │ method1(v1) │
00:06:32 #16086 [verbose] > │ and method1 (v0 : int32) : UH0 = │
00:06:32 #16087 [verbose] > │ printfn $"print_and_return / x: {v0}" │
00:06:32 #16088 [verbose] > │ let v1 : (unit -> UH0) = closure0(v0) │
00:06:32 #16089 [verbose] > │ UH0_0(v0, v1) │
00:06:32 #16090 [verbose] > │ and closure1 (v0 : UH0) () : UH0 = │
00:06:32 #16091 [verbose] > │ v0 │
00:06:32 #16092 [verbose] > │ and closure2 (v0 : UH0, v1 : Mut0) () : UH0 = │
00:06:32 #16093 [verbose] > │ let v2 : US0 = v1.l0 │
00:06:32 #16094 [verbose] > │ match v2 with │
00:06:32 #16095 [verbose] > │ | US0_1(v3) -> (* Computed *) │
00:06:32 #16096 [verbose] > │ v3 │
00:06:32 #16097 [verbose] > │ | US0_0(v4) -> (* NotComputed *) │
00:06:32 #16098 [verbose] > │ let v5 : UH0 = v4 () │
00:06:32 #16099 [verbose] > │ let v12 : UH0 = │
00:06:32 #16100 [verbose] > │ match v5 with │
00:06:32 #16101 [verbose] > │ | UH0_0(v7, v8) -> (* StreamCons *) │
00:06:32 #16102 [verbose] > │ let v9 : (unit -> UH0) = method2(v0, v8) │
00:06:32 #16103 [verbose] > │ UH0_0(v7, v9) │
00:06:32 #16104 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:06:32 #16105 [verbose] > │ UH0_1 │
00:06:32 #16106 [verbose] > │ let v13 : US0 = US0_1(v12) │
00:06:32 #16107 [verbose] > │ v1.l0 <- v13 │
00:06:32 #16108 [verbose] > │ v12 │
00:06:32 #16109 [verbose] > │ and method2 (v0 : UH0, v1 : (unit -> UH0)) : (unit -> UH0) = │
00:06:32 #16110 [verbose] > │ let v2 : US0 = US0_0(v1) │
00:06:32 #16111 [verbose] > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:06:32 #16112 [verbose] > │ closure2(v0, v3) │
00:06:32 #16113 [verbose] > │ and method3 (v0 : int32, v1 : UH0) : US1 = │
00:06:32 #16114 [verbose] > │ match v1 with │
00:06:32 #16115 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:06:32 #16116 [verbose] > │ let v4 : bool = v0 <= 0 │
00:06:32 #16117 [verbose] > │ if v4 then │
00:06:32 #16118 [verbose] > │ US1_0(v2) │
00:06:32 #16119 [verbose] > │ else │
00:06:32 #16120 [verbose] > │ let v6 : int32 = v0 - 1 │
00:06:32 #16121 [verbose] > │ let v7 : UH0 = v3 () │
00:06:32 #16122 [verbose] > │ method3(v6, v7) │
00:06:32 #16123 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:06:32 #16124 [verbose] > │ US1_1 │
00:06:32 #16125 [verbose] > │ and method4 (v0 : bool) : bool = │
00:06:32 #16126 [verbose] > │ v0 │
00:06:32 #16127 [verbose] > │ and method0 () : unit = │
00:06:32 #16128 [verbose] > │ let v0 : int32 = 0 │
00:06:32 #16129 [verbose] > │ let v1 : UH0 = method1(v0) │
00:06:32 #16130 [verbose] > │ let v2 : (unit -> UH0) = closure1(v1) │
00:06:32 #16131 [verbose] > │ let v3 : (unit -> UH0) = method2(v1, v2) │
00:06:32 #16132 [verbose] > │ let v4 : UH0 = v3 () │
00:06:32 #16133 [verbose] > │ let v5 : int32 = 3 │
00:06:32 #16134 [verbose] > │ let v6 : US1 = method3(v5, v4) │
00:06:32 #16135 [verbose] > │ let v10 : int32 = │
00:06:32 #16136 [verbose] > │ match v6 with │
00:06:32 #16137 [verbose] > │ | US1_1 -> (* None *) │
00:06:32 #16138 [verbose] > │ failwith<int32> "Option does not have a value." │
00:06:32 #16139 [verbose] > │ | US1_0(v7) -> (* Some *) │
00:06:32 #16140 [verbose] > │ v7 │
00:06:32 #16141 [verbose] > │ let v11 : string = $"%A{v10}" │
00:06:32 #16142 [verbose] > │ System.Console.WriteLine v11 │
00:06:32 #16143 [verbose] > │ let v12 : bool = v10 = 3 │
00:06:32 #16144 [verbose] > │ let v14 : bool = │
00:06:32 #16145 [verbose] > │ if v12 then │
00:06:32 #16146 [verbose] > │ true │
00:06:32 #16147 [verbose] > │ else │
00:06:32 #16148 [verbose] > │ method4(v12) │
00:06:32 #16149 [verbose] > │ let v15 : string = $"__expect / actual: %A{v10} / expected: %A{3}" │
00:06:32 #16150 [verbose] > │ let v16 : bool = v14 = false │
00:06:32 #16151 [verbose] > │ if v16 then │
00:06:32 #16152 [verbose] > │ failwith<unit> v15 │
00:06:32 #16153 [verbose] > │ let v17 : UH0 = v3 () │
00:06:32 #16154 [verbose] > │ let v18 : int32 = 5 │
00:06:32 #16155 [verbose] > │ let v19 : US1 = method3(v18, v17) │
00:06:32 #16156 [verbose] > │ let v23 : int32 = │
00:06:32 #16157 [verbose] > │ match v19 with │
00:06:32 #16158 [verbose] > │ | US1_1 -> (* None *) │
00:06:32 #16159 [verbose] > │ failwith<int32> "Option does not have a value." │
00:06:32 #16160 [verbose] > │ | US1_0(v20) -> (* Some *) │
00:06:32 #16161 [verbose] > │ v20 │
00:06:32 #16162 [verbose] > │ let v24 : string = $"%A{v23}" │
00:06:32 #16163 [verbose] > │ System.Console.WriteLine v24 │
00:06:32 #16164 [verbose] > │ let v25 : bool = v23 = 5 │
00:06:32 #16165 [verbose] > │ let v27 : bool = │
00:06:32 #16166 [verbose] > │ if v25 then │
00:06:32 #16167 [verbose] > │ true │
00:06:32 #16168 [verbose] > │ else │
00:06:32 #16169 [verbose] > │ method4(v25) │
00:06:32 #16170 [verbose] > │ let v28 : string = $"__expect / actual: %A{v23} / expected: %A{5}" │
00:06:32 #16171 [verbose] > │ let v29 : bool = v27 = false │
00:06:32 #16172 [verbose] > │ if v29 then │
00:06:32 #16173 [verbose] > │ failwith<unit> v28 │
00:06:32 #16174 [verbose] > │ method0() │
00:06:32 #16175 [verbose] > │ │
00:06:32 #16176 [verbose] > │ print_and_return / x: 0 │
00:06:32 #16177 [verbose] > │ print_and_return / x: 1 │
00:06:32 #16178 [verbose] > │ print_and_return / x: 2 │
00:06:32 #16179 [verbose] > │ print_and_return / x: 3 │
00:06:32 #16180 [verbose] > │ 3 │
00:06:32 #16181 [verbose] > │ print_and_return / x: 4 │
00:06:32 #16182 [verbose] > │ print_and_return / x: 5 │
00:06:32 #16183 [verbose] > │ 5 │
00:06:32 #16184 [verbose] > │ │
00:06:32 #16185 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:32 #16186 [verbose] >
00:06:32 #16187 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:32 #16188 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:32 #16189 [verbose] > │ ## unfold │
00:06:32 #16190 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:32 #16191 [verbose] >
00:06:32 #16192 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:32 #16193 [verbose] > inl unfold f x0 =
00:06:32 #16194 [verbose] > inl rec body x =
00:06:32 #16195 [verbose] > match f x with
00:06:32 #16196 [verbose] > | Some (x', y) => StreamCons (x', fun () => loop y)
00:06:32 #16197 [verbose] > | None => StreamNil
00:06:32 #16198 [verbose] > and inl loop x = join_body_unit body x0 x
00:06:32 #16199 [verbose] > loop x0
00:06:33 #16200 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a718839f7e25674ae9006d1adf73ab7e38370db6ec655d3044b8a8d9a909d62f\main.spi
00:06:33 #16201 [verbose] >
00:06:33 #16202 [verbose] > ╭─[ 262.37ms - stdout ]────────────────────────────────────────────────────────╮
00:06:33 #16203 [verbose] > │ () │
00:06:33 #16204 [verbose] > │ │
00:06:33 #16205 [verbose] > │ │
00:06:33 #16206 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:33 #16207 [verbose] >
00:06:33 #16208 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:33 #16209 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:33 #16210 [verbose] > │ ## iterate │
00:06:33 #16211 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:33 #16212 [verbose] >
00:06:33 #16213 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:33 #16214 [verbose] > inl iterate f =
00:06:33 #16215 [verbose] > unfold (fun x => Some (x, f x))
00:06:33 #16216 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\05612d30f66338f5fc973470abb32611fad46a6306f252ee064ae815df3fccf4\main.spi
00:06:33 #16217 [verbose] >
00:06:33 #16218 [verbose] > ╭─[ 235.04ms - stdout ]────────────────────────────────────────────────────────╮
00:06:33 #16219 [verbose] > │ () │
00:06:33 #16220 [verbose] > │ │
00:06:33 #16221 [verbose] > │ │
00:06:33 #16222 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:33 #16223 [verbose] >
00:06:33 #16224 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:33 #16225 [verbose] > // // test
00:06:33 #16226 [verbose] >
00:06:33 #16227 [verbose] > iterate ((*) 2) 1i32
00:06:33 #16228 [verbose] > |> item 10i32
00:06:33 #16229 [verbose] > |> _assert_eq 1024
00:06:33 #16230 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9ecedaa8f53b2b35210e0cdb261560c5ecb3fb87d3ddf7174c76fc208c5c1dd9\main.spi
00:06:33 #16231 [verbose] >
00:06:33 #16232 [verbose] > ╭─[ 451.61ms - stdout ]────────────────────────────────────────────────────────╮
00:06:33 #16233 [verbose] > │ let rec method0 () : unit = │
00:06:33 #16234 [verbose] > │ let v0 : string = $"%A{1024}" │
00:06:33 #16235 [verbose] > │ System.Console.WriteLine v0 │
00:06:33 #16236 [verbose] > │ let v1 : string = $"__expect / actual: %A{1024} / expected: %A{1024}" │
00:06:33 #16237 [verbose] > │ () │
00:06:33 #16238 [verbose] > │ method0() │
00:06:33 #16239 [verbose] > │ │
00:06:33 #16240 [verbose] > │ 1024 │
00:06:33 #16241 [verbose] > │ │
00:06:33 #16242 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:33 #16243 [verbose] >
00:06:33 #16244 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:33 #16245 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:33 #16246 [verbose] > │ ## take_while │
00:06:33 #16247 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:33 #16248 [verbose] >
00:06:33 #16249 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:33 #16250 [verbose] > inl take_while cond s =
00:06:33 #16251 [verbose] > inl rec body i = function
00:06:33 #16252 [verbose] > | StreamCons (st, fn) when cond st i => StreamCons (st, fun () => loop
00:06:33 #16253 [verbose] > (i + 1) (fn ()))
00:06:33 #16254 [verbose] > | _ => StreamNil
00:06:33 #16255 [verbose] > and inl loop i = join_body body i
00:06:33 #16256 [verbose] > loop 0 s
00:06:34 #16257 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ffc67de91c64b757adfaecbe5a45c04b151bd865410c71d928529bdf9b2881e5\main.spi
00:06:34 #16258 [verbose] >
00:06:34 #16259 [verbose] > ╭─[ 254.83ms - stdout ]────────────────────────────────────────────────────────╮
00:06:34 #16260 [verbose] > │ () │
00:06:34 #16261 [verbose] > │ │
00:06:34 #16262 [verbose] > │ │
00:06:34 #16263 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:34 #16264 [verbose] >
00:06:34 #16265 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:34 #16266 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:34 #16267 [verbose] > │ ## sum │
00:06:34 #16268 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:34 #16269 [verbose] >
00:06:34 #16270 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:34 #16271 [verbose] > inl sum seq =
00:06:34 #16272 [verbose] > seq |> fold (+) 0
00:06:34 #16273 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\31b197d1538966e0e95d8e2273019ff9404eec16acfd8b1a283154828e1a22d3\main.spi
00:06:34 #16274 [verbose] >
00:06:34 #16275 [verbose] > ╭─[ 223.27ms - stdout ]────────────────────────────────────────────────────────╮
00:06:34 #16276 [verbose] > │ () │
00:06:34 #16277 [verbose] > │ │
00:06:34 #16278 [verbose] > │ │
00:06:34 #16279 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:34 #16280 [verbose] >
00:06:34 #16281 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:34 #16282 [verbose] > // // test
00:06:34 #16283 [verbose] >
00:06:34 #16284 [verbose] > listm.init 10i32 id
00:06:34 #16285 [verbose] > |> from_list
00:06:34 #16286 [verbose] > |> sum
00:06:34 #16287 [verbose] > |> _assert_eq 45
00:06:34 #16288 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a1059cdd2883e583c2c7efe84ffd1ee558e4999f7ee54795b75e5b46253cf359\main.spi
00:06:34 #16289 [verbose] >
00:06:34 #16290 [verbose] > ╭─[ 284.72ms - stdout ]────────────────────────────────────────────────────────╮
00:06:34 #16291 [verbose] > │ let rec method0 () : unit = │
00:06:34 #16292 [verbose] > │ let v0 : string = $"%A{45}" │
00:06:34 #16293 [verbose] > │ System.Console.WriteLine v0 │
00:06:34 #16294 [verbose] > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:06:34 #16295 [verbose] > │ () │
00:06:34 #16296 [verbose] > │ method0() │
00:06:34 #16297 [verbose] > │ │
00:06:34 #16298 [verbose] > │ 45 │
00:06:34 #16299 [verbose] > │ │
00:06:34 #16300 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:34 #16301 [verbose] >
00:06:34 #16302 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:34 #16303 [verbose] > // // test
00:06:34 #16304 [verbose] >
00:06:34 #16305 [verbose] > new_finite_stream print_and_return 10i32
00:06:34 #16306 [verbose] > |> take_while (fun n (_ : i32) => n < 5)
00:06:34 #16307 [verbose] > |> sum
00:06:34 #16308 [verbose] > |> _assert_eq 10
00:06:34 #16309 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f2a097ca7b8159171c62f1422577672fa7296e30b8c27eec1f2edc788fb08974\main.spi
00:06:34 #16310 [verbose] >
00:06:34 #16311 [verbose] > ╭─[ 270.71ms - stdout ]────────────────────────────────────────────────────────╮
00:06:34 #16312 [verbose] > │ let rec method0 () : unit = │
00:06:34 #16313 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:06:34 #16314 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:06:34 #16315 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:06:34 #16316 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:06:34 #16317 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:06:34 #16318 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:06:34 #16319 [verbose] > │ let v0 : string = $"%A{10}" │
00:06:34 #16320 [verbose] > │ System.Console.WriteLine v0 │
00:06:34 #16321 [verbose] > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:06:34 #16322 [verbose] > │ () │
00:06:34 #16323 [verbose] > │ method0() │
00:06:34 #16324 [verbose] > │ │
00:06:34 #16325 [verbose] > │ print_and_return / x: 0 │
00:06:34 #16326 [verbose] > │ print_and_return / x: 1 │
00:06:34 #16327 [verbose] > │ print_and_return / x: 2 │
00:06:34 #16328 [verbose] > │ print_and_return / x: 3 │
00:06:34 #16329 [verbose] > │ print_and_return / x: 4 │
00:06:34 #16330 [verbose] > │ print_and_return / x: 5 │
00:06:34 #16331 [verbose] > │ 10 │
00:06:34 #16332 [verbose] > │ │
00:06:34 #16333 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:34 #16334 [verbose] >
00:06:34 #16335 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:34 #16336 [verbose] > // // test
00:06:34 #16337 [verbose] >
00:06:34 #16338 [verbose] > new_infinite_stream print_and_return
00:06:34 #16339 [verbose] > |> take_while (fun n (_ : i32) => n < 5i32)
00:06:34 #16340 [verbose] > |> sum
00:06:34 #16341 [verbose] > |> _assert_eq 10
00:06:35 #16342 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\96447ddb722e12274cb1b24533ded3eb83fbcfb617e8b53c41211ccba18ab14a\main.spi
00:06:35 #16343 [verbose] >
00:06:35 #16344 [verbose] > ╭─[ 253.12ms - stdout ]────────────────────────────────────────────────────────╮
00:06:35 #16345 [verbose] > │ let rec method0 () : unit = │
00:06:35 #16346 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:06:35 #16347 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:06:35 #16348 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:06:35 #16349 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:06:35 #16350 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:06:35 #16351 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:06:35 #16352 [verbose] > │ let v0 : string = $"%A{10}" │
00:06:35 #16353 [verbose] > │ System.Console.WriteLine v0 │
00:06:35 #16354 [verbose] > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:06:35 #16355 [verbose] > │ () │
00:06:35 #16356 [verbose] > │ method0() │
00:06:35 #16357 [verbose] > │ │
00:06:35 #16358 [verbose] > │ print_and_return / x: 0 │
00:06:35 #16359 [verbose] > │ print_and_return / x: 1 │
00:06:35 #16360 [verbose] > │ print_and_return / x: 2 │
00:06:35 #16361 [verbose] > │ print_and_return / x: 3 │
00:06:35 #16362 [verbose] > │ print_and_return / x: 4 │
00:06:35 #16363 [verbose] > │ print_and_return / x: 5 │
00:06:35 #16364 [verbose] > │ 10 │
00:06:35 #16365 [verbose] > │ │
00:06:35 #16366 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:35 #16367 [verbose] >
00:06:35 #16368 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:35 #16369 [verbose] > // // test
00:06:35 #16370 [verbose] >
00:06:35 #16371 [verbose] > iterate ((*) 6) 1i32
00:06:35 #16372 [verbose] > |> take_while (fun _ i => i <= 7i32)
00:06:35 #16373 [verbose] > |> to_list
00:06:35 #16374 [verbose] > |> _assert_eq [[ 1i32; 6; 36; 216; 1296; 7776; 46656; 279936 ]]
00:06:35 #16375 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\73e7f8bbfbc626bb832a8d31282285ea7438ec3797ba8dae543ab95f4707af92\main.spi
00:06:35 #16376 [verbose] >
00:06:35 #16377 [verbose] > ╭─[ 330.38ms - stdout ]────────────────────────────────────────────────────────╮
00:06:35 #16378 [verbose] > │ type UH0 = │
00:06:35 #16379 [verbose] > │ | UH0_0 │
00:06:35 #16380 [verbose] > │ | UH0_1 of int32 * UH0 │
00:06:35 #16381 [verbose] > │ let rec method0 () : unit = │
00:06:35 #16382 [verbose] > │ let v0 : UH0 = UH0_0 │
00:06:35 #16383 [verbose] > │ let v1 : UH0 = UH0_1(279936, v0) │
00:06:35 #16384 [verbose] > │ let v2 : UH0 = UH0_1(46656, v1) │
00:06:35 #16385 [verbose] > │ let v3 : UH0 = UH0_1(7776, v2) │
00:06:35 #16386 [verbose] > │ let v4 : UH0 = UH0_1(1296, v3) │
00:06:35 #16387 [verbose] > │ let v5 : UH0 = UH0_1(216, v4) │
00:06:35 #16388 [verbose] > │ let v6 : UH0 = UH0_1(36, v5) │
00:06:35 #16389 [verbose] > │ let v7 : UH0 = UH0_1(6, v6) │
00:06:35 #16390 [verbose] > │ let v8 : UH0 = UH0_1(1, v7) │
00:06:35 #16391 [verbose] > │ let v9 : string = $"%A{v8}" │
00:06:35 #16392 [verbose] > │ System.Console.WriteLine v9 │
00:06:35 #16393 [verbose] > │ let v73 : UH0 = UH0_0 │
00:06:35 #16394 [verbose] > │ let v74 : UH0 = UH0_1(279936, v73) │
00:06:35 #16395 [verbose] > │ let v75 : UH0 = UH0_1(46656, v74) │
00:06:35 #16396 [verbose] > │ let v76 : UH0 = UH0_1(7776, v75) │
00:06:35 #16397 [verbose] > │ let v77 : UH0 = UH0_1(1296, v76) │
00:06:35 #16398 [verbose] > │ let v78 : UH0 = UH0_1(216, v77) │
00:06:35 #16399 [verbose] > │ let v79 : UH0 = UH0_1(36, v78) │
00:06:35 #16400 [verbose] > │ let v80 : UH0 = UH0_1(6, v79) │
00:06:35 #16401 [verbose] > │ let v81 : UH0 = UH0_1(1, v80) │
00:06:35 #16402 [verbose] > │ let v82 : UH0 = UH0_0 │
00:06:35 #16403 [verbose] > │ let v83 : UH0 = UH0_1(279936, v82) │
00:06:35 #16404 [verbose] > │ let v84 : UH0 = UH0_1(46656, v83) │
00:06:35 #16405 [verbose] > │ let v85 : UH0 = UH0_1(7776, v84) │
00:06:35 #16406 [verbose] > │ let v86 : UH0 = UH0_1(1296, v85) │
00:06:35 #16407 [verbose] > │ let v87 : UH0 = UH0_1(216, v86) │
00:06:35 #16408 [verbose] > │ let v88 : UH0 = UH0_1(36, v87) │
00:06:35 #16409 [verbose] > │ let v89 : UH0 = UH0_1(6, v88) │
00:06:35 #16410 [verbose] > │ let v90 : UH0 = UH0_1(1, v89) │
00:06:35 #16411 [verbose] > │ let v91 : string = $"__expect / actual: %A{v81} / expected: %A{v90}" │
00:06:35 #16412 [verbose] > │ () │
00:06:35 #16413 [verbose] > │ method0() │
00:06:35 #16414 [verbose] > │ │
00:06:35 #16415 [verbose] > │ UH0_1 │
00:06:35 #16416 [verbose] > │ (1, │
00:06:35 #16417 [verbose] > │ UH0_1 │
00:06:35 #16418 [verbose] > │ (6, │
00:06:35 #16419 [verbose] > │ UH0_1 │
00:06:35 #16420 [verbose] > │ (36, │
00:06:35 #16421 [verbose] > │ UH0_1 │
00:06:35 #16422 [verbose] > │ (216, │
00:06:35 #16423 [verbose] > │ UH0_1 (1296, UH0_1 (7776, UH0_1 (46656, UH0_1 (279936, │
00:06:35 #16424 [verbose] > │ UH0_0)))))))) │
00:06:35 #16425 [verbose] > │ │
00:06:35 #16426 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:35 #16427 [verbose] >
00:06:35 #16428 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:35 #16429 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:35 #16430 [verbose] > │ ## indexed │
00:06:35 #16431 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:35 #16432 [verbose] >
00:06:35 #16433 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:35 #16434 [verbose] > inl indexed s =
00:06:35 #16435 [verbose] > ((StreamNil, 0), s)
00:06:35 #16436 [verbose] > ||> fold fun (acc, i) x =>
00:06:35 #16437 [verbose] > StreamCons ((i, x), fun () => acc), i + 1
00:06:35 #16438 [verbose] > |> fst
00:06:35 #16439 [verbose] > |> rev
00:06:35 #16440 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d01f46a1d9abcd27a5717c0a7c3039938a80c74cdb4be49f5ed8457c09c8ec61\main.spi
00:06:35 #16441 [verbose] >
00:06:35 #16442 [verbose] > ╭─[ 244.67ms - stdout ]────────────────────────────────────────────────────────╮
00:06:35 #16443 [verbose] > │ () │
00:06:35 #16444 [verbose] > │ │
00:06:35 #16445 [verbose] > │ │
00:06:35 #16446 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:35 #16447 [verbose] >
00:06:35 #16448 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:35 #16449 [verbose] > // // test
00:06:35 #16450 [verbose] >
00:06:35 #16451 [verbose] > listm.init 10i32 ((*) 2)
00:06:35 #16452 [verbose] > |> from_list
00:06:35 #16453 [verbose] > |> indexed
00:06:35 #16454 [verbose] > |> item 5i32
00:06:35 #16455 [verbose] > |> _assert_eq (5i32, 10i32)
00:06:35 #16456 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0cb9bb9f048d08b327a70e9dc3dfe56138aecd98255398d1f2d583749ba66f05\main.spi
00:06:36 #16457 [verbose] >
00:06:36 #16458 [verbose] > ╭─[ 237.79ms - stdout ]────────────────────────────────────────────────────────╮
00:06:36 #16459 [verbose] > │ let rec method0 () : unit = │
00:06:36 #16460 [verbose] > │ let v0 : string = $"%A{struct (5, 10)}" │
00:06:36 #16461 [verbose] > │ System.Console.WriteLine v0 │
00:06:36 #16462 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5, 10)} / expected: │
00:06:36 #16463 [verbose] > │ %A{struct (5, 10)}" │
00:06:36 #16464 [verbose] > │ () │
00:06:36 #16465 [verbose] > │ method0() │
00:06:36 #16466 [verbose] > │ │
00:06:36 #16467 [verbose] > │ struct (5, 10) │
00:06:36 #16468 [verbose] > │ │
00:06:36 #16469 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:36 #16470 [verbose] >
00:06:36 #16471 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:36 #16472 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:36 #16473 [verbose] > │ ## map │
00:06:36 #16474 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:36 #16475 [verbose] >
00:06:36 #16476 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:36 #16477 [verbose] > inl map fn s =
00:06:36 #16478 [verbose] > (s, StreamNil)
00:06:36 #16479 [verbose] > ||> fold_back fun x acc =>
00:06:36 #16480 [verbose] > StreamCons (fn x, fun () => acc)
00:06:36 #16481 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2ebc890e941a6bdf3ae3771aa98e6781f27596877ca74fae54d05fb28ac78d3e\main.spi
00:06:36 #16482 [verbose] >
00:06:36 #16483 [verbose] > ╭─[ 265.34ms - stdout ]────────────────────────────────────────────────────────╮
00:06:36 #16484 [verbose] > │ () │
00:06:36 #16485 [verbose] > │ │
00:06:36 #16486 [verbose] > │ │
00:06:36 #16487 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:36 #16488 [verbose] >
00:06:36 #16489 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:36 #16490 [verbose] > // // test
00:06:36 #16491 [verbose] >
00:06:36 #16492 [verbose] > listm.init 10i32 id
00:06:36 #16493 [verbose] > |> from_list
00:06:36 #16494 [verbose] > |> map ((*) 2)
00:06:36 #16495 [verbose] > |> item 5i32
00:06:36 #16496 [verbose] > |> _assert_eq 10i32
00:06:36 #16497 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6215b42265ea20612a82cd302ef00b8c19d0f659b0ce4910956e50dd9aee3f5d\main.spi
00:06:36 #16498 [verbose] >
00:06:36 #16499 [verbose] > ╭─[ 275.02ms - stdout ]────────────────────────────────────────────────────────╮
00:06:36 #16500 [verbose] > │ let rec method0 () : unit = │
00:06:36 #16501 [verbose] > │ let v0 : string = $"%A{10}" │
00:06:36 #16502 [verbose] > │ System.Console.WriteLine v0 │
00:06:36 #16503 [verbose] > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:06:36 #16504 [verbose] > │ () │
00:06:36 #16505 [verbose] > │ method0() │
00:06:36 #16506 [verbose] > │ │
00:06:36 #16507 [verbose] > │ 10 │
00:06:36 #16508 [verbose] > │ │
00:06:36 #16509 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:36 #16510 [verbose] >
00:06:36 #16511 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:36 #16512 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:36 #16513 [verbose] > │ ## zip_with │
00:06:36 #16514 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:36 #16515 [verbose] >
00:06:36 #16516 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:36 #16517 [verbose] > inl zip_with fn s1 s2 =
00:06:36 #16518 [verbose] > inl rec loop s1 s2 =
00:06:36 #16519 [verbose] > match s1, s2 with
00:06:36 #16520 [verbose] > | StreamCons (st1, fn1), StreamCons (st2, fn2) =>
00:06:36 #16521 [verbose] > StreamCons (fn st1 st2, fun () => loop (fn1 ()) (fn2 ()))
00:06:36 #16522 [verbose] > | StreamNil, _ | _, StreamNil => StreamNil
00:06:36 #16523 [verbose] > loop s1 s2
00:06:36 #16524 [verbose] >
00:06:36 #16525 [verbose] > inl zip_with_ fn s1 s2 =
00:06:36 #16526 [verbose] > let rec loop s1 s2 =
00:06:36 #16527 [verbose] > match s1, s2 with
00:06:36 #16528 [verbose] > | StreamCons (st1, fn1), StreamCons (st2, fn2) =>
00:06:36 #16529 [verbose] > StreamCons (fn st1 st2, fun () => loop (fn1 ()) (fn2 ()))
00:06:36 #16530 [verbose] > | StreamNil, _ | _, StreamNil => StreamNil
00:06:36 #16531 [verbose] > loop s1 s2
00:06:36 #16532 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\30e35ffcaf96268d61fb7cc4639dd93937c234cd381253b442977083e8b19694\main.spi
00:06:36 #16533 [verbose] >
00:06:36 #16534 [verbose] > ╭─[ 214.47ms - stdout ]────────────────────────────────────────────────────────╮
00:06:36 #16535 [verbose] > │ () │
00:06:36 #16536 [verbose] > │ │
00:06:36 #16537 [verbose] > │ │
00:06:36 #16538 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:36 #16539 [verbose] >
00:06:36 #16540 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:36 #16541 [verbose] > // // test
00:06:36 #16542 [verbose] >
00:06:36 #16543 [verbose] > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:06:36 #16544 [verbose] > ||> zip_with (+)
00:06:36 #16545 [verbose] > |> item 2i32
00:06:36 #16546 [verbose] > |> _assert_eq 6
00:06:37 #16547 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d31bce54a07bdd17b7b532e94718c36f0d8932378fefdf9a143dc083e6615b4e\main.spi
00:06:37 #16548 [verbose] >
00:06:37 #16549 [verbose] > ╭─[ 227.06ms - stdout ]────────────────────────────────────────────────────────╮
00:06:37 #16550 [verbose] > │ let rec method0 () : unit = │
00:06:37 #16551 [verbose] > │ let v0 : string = $"%A{6}" │
00:06:37 #16552 [verbose] > │ System.Console.WriteLine v0 │
00:06:37 #16553 [verbose] > │ let v1 : string = $"__expect / actual: %A{6} / expected: %A{6}" │
00:06:37 #16554 [verbose] > │ () │
00:06:37 #16555 [verbose] > │ method0() │
00:06:37 #16556 [verbose] > │ │
00:06:37 #16557 [verbose] > │ 6 │
00:06:37 #16558 [verbose] > │ │
00:06:37 #16559 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:37 #16560 [verbose] >
00:06:37 #16561 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:37 #16562 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:37 #16563 [verbose] > │ ## zip │
00:06:37 #16564 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:37 #16565 [verbose] >
00:06:37 #16566 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:37 #16567 [verbose] > inl zip s1 s2 =
00:06:37 #16568 [verbose] > zip_with pair s1 s2
00:06:37 #16569 [verbose] >
00:06:37 #16570 [verbose] > inl zip_ s1 s2 =
00:06:37 #16571 [verbose] > zip_with_ pair s1 s2
00:06:37 #16572 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\930462e229d4272c50aa477634abd3f7396c9d5b1bf5df59b4b965b88686b22d\main.spi
00:06:37 #16573 [verbose] >
00:06:37 #16574 [verbose] > ╭─[ 239.50ms - stdout ]────────────────────────────────────────────────────────╮
00:06:37 #16575 [verbose] > │ () │
00:06:37 #16576 [verbose] > │ │
00:06:37 #16577 [verbose] > │ │
00:06:37 #16578 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:37 #16579 [verbose] >
00:06:37 #16580 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:37 #16581 [verbose] > // // test
00:06:37 #16582 [verbose] >
00:06:37 #16583 [verbose] > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:06:37 #16584 [verbose] > ||> zip
00:06:37 #16585 [verbose] > |> item 5i32
00:06:37 #16586 [verbose] > |> _assert_eq (5, 10)
00:06:37 #16587 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e6be40564a7d4466a77f4c9ac2f483af1345472c347035db71e4cf01e1c76468\main.spi
00:06:37 #16588 [verbose] >
00:06:37 #16589 [verbose] > ╭─[ 239.37ms - stdout ]────────────────────────────────────────────────────────╮
00:06:37 #16590 [verbose] > │ let rec method0 () : unit = │
00:06:37 #16591 [verbose] > │ let v0 : string = $"%A{struct (5, 10)}" │
00:06:37 #16592 [verbose] > │ System.Console.WriteLine v0 │
00:06:37 #16593 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5, 10)} / expected: │
00:06:37 #16594 [verbose] > │ %A{struct (5, 10)}" │
00:06:37 #16595 [verbose] > │ () │
00:06:37 #16596 [verbose] > │ method0() │
00:06:37 #16597 [verbose] > │ │
00:06:37 #16598 [verbose] > │ struct (5, 10) │
00:06:37 #16599 [verbose] > │ │
00:06:37 #16600 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:37 #16601 [verbose] >
00:06:37 #16602 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:37 #16603 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:37 #16604 [verbose] > │ ## unzip │
00:06:37 #16605 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:37 #16606 [verbose] >
00:06:37 #16607 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:37 #16608 [verbose] > inl unzip s =
00:06:37 #16609 [verbose] > inl rec body s =
00:06:37 #16610 [verbose] > match s with
00:06:37 #16611 [verbose] > | StreamCons ((x, y), fn) =>
00:06:37 #16612 [verbose] > inl xs, ys = loop (fn ())
00:06:37 #16613 [verbose] > StreamCons (x, fun () => xs), StreamCons (y, fun () => ys)
00:06:37 #16614 [verbose] > | StreamNil => pair StreamNil StreamNil
00:06:37 #16615 [verbose] > and inl loop x =
00:06:37 #16616 [verbose] > if var_is x |> not
00:06:37 #16617 [verbose] > then body x
00:06:37 #16618 [verbose] > else
00:06:37 #16619 [verbose] > inl x = dyn x
00:06:37 #16620 [verbose] > join body x
00:06:37 #16621 [verbose] > loop s
00:06:37 #16622 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\886600499881ee6985109e44f7d7ad5445d39668c382dd86a5f7ab39e6bb9d3d\main.spi
00:06:37 #16623 [verbose] >
00:06:37 #16624 [verbose] > ╭─[ 330.70ms - stdout ]────────────────────────────────────────────────────────╮
00:06:37 #16625 [verbose] > │ () │
00:06:37 #16626 [verbose] > │ │
00:06:37 #16627 [verbose] > │ │
00:06:37 #16628 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:37 #16629 [verbose] >
00:06:37 #16630 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:37 #16631 [verbose] > // // test
00:06:37 #16632 [verbose] >
00:06:37 #16633 [verbose] > listm.init 10i32 id
00:06:37 #16634 [verbose] > |> listm.map (fun x => x, x)
00:06:37 #16635 [verbose] > |> from_list
00:06:37 #16636 [verbose] > |> unzip
00:06:37 #16637 [verbose] > |> fun x, y =>
00:06:37 #16638 [verbose] > x |> sum
00:06:37 #16639 [verbose] > |> _assert_eq 45
00:06:37 #16640 [verbose] >
00:06:37 #16641 [verbose] > y |> sum
00:06:37 #16642 [verbose] > |> _assert_eq 45
00:06:38 #16643 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\276177dc1fb468ae47f51052b5efea3531e7e7076306fd11812b07cd39315430\main.spi
00:06:38 #16644 [verbose] >
00:06:38 #16645 [verbose] > ╭─[ 249.26ms - stdout ]────────────────────────────────────────────────────────╮
00:06:38 #16646 [verbose] > │ let rec method0 () : unit = │
00:06:38 #16647 [verbose] > │ let v0 : string = $"%A{45}" │
00:06:38 #16648 [verbose] > │ System.Console.WriteLine v0 │
00:06:38 #16649 [verbose] > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:06:38 #16650 [verbose] > │ let v2 : string = $"%A{45}" │
00:06:38 #16651 [verbose] > │ System.Console.WriteLine v2 │
00:06:38 #16652 [verbose] > │ let v3 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:06:38 #16653 [verbose] > │ () │
00:06:38 #16654 [verbose] > │ method0() │
00:06:38 #16655 [verbose] > │ │
00:06:38 #16656 [verbose] > │ 45 │
00:06:38 #16657 [verbose] > │ 45 │
00:06:38 #16658 [verbose] > │ │
00:06:38 #16659 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:38 #16660 [verbose] >
00:06:38 #16661 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:38 #16662 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:38 #16663 [verbose] > │ ## enumerate │
00:06:38 #16664 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:38 #16665 [verbose] >
00:06:38 #16666 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:38 #16667 [verbose] > inl enumerate forall dim {int; number} t. (ar : a dim t) : a dim (unativeint *
00:06:38 #16668 [verbose] > t) =
00:06:38 #16669 [verbose] > open rust_operators
00:06:38 #16670 [verbose] > inl (a ar) = ar
00:06:38 #16671 [verbose] > inl ar = ar |> am'.to_vec
00:06:38 #16672 [verbose] > !\($'"!ar.into_iter().enumerate().map(std::rc::Rc::new).collect()"')
00:06:38 #16673 [verbose] > |> am'.vec_map from_pair
00:06:38 #16674 [verbose] > |> am'.from_vec
00:06:38 #16675 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\23aecec0f91d981613244110ab8329c369016bfb20a7ff5aff693884df6de7c8\main.spi
00:06:38 #16676 [verbose] >
00:06:38 #16677 [verbose] > ╭─[ 241.26ms - stdout ]────────────────────────────────────────────────────────╮
00:06:38 #16678 [verbose] > │ () │
00:06:38 #16679 [verbose] > │ │
00:06:38 #16680 [verbose] > │ │
00:06:38 #16681 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:40 #16682 [verbose] > [NbConvertApp] Converting notebook stream.dib.ipynb to html
00:06:40 #16683 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:06:40 #16684 [verbose] > validate(nb)
00:06:40 #16685 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:06:40 #16686 [verbose] > return _pygments_highlight(
00:06:41 #16687 [verbose] > [NbConvertApp] Writing 363552 bytes to stream.dib.html
00:06:41 #16688 [debug] executeAsync / exitCode: 0 / output.Length: 67771
00:06:41 #16689 [debug] main / executeCommand / exitCode: 0
00:06:41 #16690 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 seq.dib" -Retries 3"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:06:44 #16691 [verbose] >
00:06:44 #16692 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:44 #16693 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:44 #16694 [verbose] > │ # seq │
00:06:44 #16695 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:44 #16696 [verbose] >
00:06:44 #16697 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:44 #16698 [verbose] > // // test
00:06:44 #16699 [verbose] >
00:06:44 #16700 [verbose] > open testing
00:06:48 #16701 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:06:49 #16702 [verbose] >
00:06:49 #16703 [verbose] > ╭─[ 4.91s - stdout ]───────────────────────────────────────────────────────────╮
00:06:49 #16704 [verbose] > │ () │
00:06:49 #16705 [verbose] > │ │
00:06:49 #16706 [verbose] > │ │
00:06:49 #16707 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 #16708 [verbose] >
00:06:49 #16709 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:49 #16710 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:49 #16711 [verbose] > │ ## seq' │
00:06:49 #16712 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 #16713 [verbose] >
00:06:49 #16714 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:49 #16715 [verbose] > type seq' t = $"`t seq"
00:06:49 #16716 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1af6ced68b6f0766d1515360e8f161aa00debd4b482634fa60ef485c9be1634d\main.spi
00:06:49 #16717 [verbose] >
00:06:49 #16718 [verbose] > ╭─[ 317.53ms - stdout ]────────────────────────────────────────────────────────╮
00:06:49 #16719 [verbose] > │ () │
00:06:49 #16720 [verbose] > │ │
00:06:49 #16721 [verbose] > │ │
00:06:49 #16722 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 #16723 [verbose] >
00:06:49 #16724 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:49 #16725 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:49 #16726 [verbose] > │ ## of_array' │
00:06:49 #16727 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:49 #16728 [verbose] >
00:06:49 #16729 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:49 #16730 [verbose] > inl of_array' forall dim t. (items : a dim t) : seq' t =
00:06:49 #16731 [verbose] > $'seq { for i = 0 to !items.Length - 1 do yield !items.[[i]] }'
00:06:50 #16732 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\39c1100ab27932ebae51f512120c78786676a3201eec0e43ee1aab1f769ae75f\main.spi
00:06:50 #16733 [verbose] >
00:06:50 #16734 [verbose] > ╭─[ 237.79ms - stdout ]────────────────────────────────────────────────────────╮
00:06:50 #16735 [verbose] > │ () │
00:06:50 #16736 [verbose] > │ │
00:06:50 #16737 [verbose] > │ │
00:06:50 #16738 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:50 #16739 [verbose] >
00:06:50 #16740 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:50 #16741 [verbose] > // // test
00:06:50 #16742 [verbose] >
00:06:50 #16743 [verbose] > (a ;[[ "a"; "b" ]] : _ i32 _)
00:06:50 #16744 [verbose] > |> of_array'
00:06:50 #16745 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\acec85eeba532ef8556851a1c7b220ea7068f1cd8c28571483629b03fbec4acd\main.spi
00:06:51 #16746 [verbose] >
00:06:51 #16747 [verbose] > ╭─[ 1.12s - return value ]─────────────────────────────────────────────────────╮
00:06:51 #16748 [verbose] > │ <details open="open" class="dni-treeview"><summary><span │
00:06:51 #16749 [verbose] > │ class="dni-code-hint"><code>[ a, b │
00:06:51 #16750 [verbose] > │ ]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │
00:06:51 #16751 [verbose] > │ CheckClose</td><td><div │
00:06:51 #16752 [verbose] > │ class="dni-plaintext"><pre>False</pre></div></td></tr><tr><td>LastGenerated< │
00:06:51 #16753 [verbose] > │ /td><td><div │
00:06:51 #16754 [verbose] > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td>v2</td> │
00:06:51 #16755 [verbose] > │ <td><div class="dni-plaintext"><pre>[ a, b │
00:06:51 #16756 [verbose] > │ ]</pre></div></td></tr><tr><td>enum</td><td><div │
00:06:51 #16757 [verbose] > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td>pc</td> │
00:06:51 #16758 [verbose] > │ <td><div │
00:06:51 #16759 [verbose] > │ class="dni-plaintext"><pre>0</pre></div></td></tr><tr><td>current</td><td><d │
00:06:51 #16760 [verbose] > │ iv │
00:06:51 #16761 [verbose] > │ class="dni-plaintext"><pre><null></pre></div></td></tr><tr><td><i>(val │
00:06:51 #16762 [verbose] > │ ues)</i></td><td><div class="dni-plaintext"><pre>[ a, b ]</pr... │
00:06:51 #16763 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 #16764 [verbose] >
00:06:51 #16765 [verbose] > ╭─[ 1.13s - stdout ]───────────────────────────────────────────────────────────╮
00:06:51 #16766 [verbose] > │ let rec method0 () : string seq = │
00:06:51 #16767 [verbose] > │ let v0 : string = "a" │
00:06:51 #16768 [verbose] > │ let v1 : string = "b" │
00:06:51 #16769 [verbose] > │ let v2 : (string []) = [|v0; v1|] │
00:06:51 #16770 [verbose] > │ let v3 : string seq = seq { for i = 0 to v2.Length - 1 do yield v2.[i] } │
00:06:51 #16771 [verbose] > │ v3 │
00:06:51 #16772 [verbose] > │ method0() │
00:06:51 #16773 [verbose] > │ │
00:06:51 #16774 [verbose] > │ │
00:06:51 #16775 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 #16776 [verbose] >
00:06:51 #16777 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:51 #16778 [verbose] > inl of_array forall dim t. (items : a dim t) : seq' t =
00:06:51 #16779 [verbose] > items |> $'Seq.ofArray'
00:06:51 #16780 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d08fe99df116127327d18e790241f965c5eb25caaaecb4bc4abc9aae8e1264f5\main.spi
00:06:51 #16781 [verbose] >
00:06:51 #16782 [verbose] > ╭─[ 269.87ms - stdout ]────────────────────────────────────────────────────────╮
00:06:51 #16783 [verbose] > │ () │
00:06:51 #16784 [verbose] > │ │
00:06:51 #16785 [verbose] > │ │
00:06:51 #16786 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 #16787 [verbose] >
00:06:51 #16788 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:51 #16789 [verbose] > // // test
00:06:51 #16790 [verbose] >
00:06:51 #16791 [verbose] > (a ;[[ "a"; "b" ]] : _ i32 _)
00:06:51 #16792 [verbose] > |> of_array
00:06:51 #16793 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\54a6569df4259cd844c29115626ec620b2214157ff0a5a8eb6b7493dd8143405\main.spi
00:06:51 #16794 [verbose] >
00:06:51 #16795 [verbose] > ╭─[ 281.12ms - return value ]──────────────────────────────────────────────────╮
00:06:51 #16796 [verbose] > │ <details open="open" class="dni-treeview"><summary><span │
00:06:51 #16797 [verbose] > │ class="dni-code-hint"><code>[ a, b │
00:06:51 #16798 [verbose] > │ ]</code></span></summary><div><table><thead><tr></tr></thead><tbody><tr><td> │
00:06:51 #16799 [verbose] > │ f</td><td><details class="dni-treeview"><summary><span │
00:06:51 #16800 [verbose] > │ class="dni-code-hint"><code>Microsoft.FSharp.Collections.SeqModule+OfArray@1 │
00:06:51 #16801 [verbose] > │ 010[ │
00:06:51 #16802 [verbose] > │ System.String]</code></span></summary><div><table><thead><tr></tr></thead><t │
00:06:51 #16803 [verbose] > │ body><tr><td>source</td><td><div class="dni-plaintext"><pre>[ a, b │
00:06:51 #16804 [verbose] > │ ]</pre></div></td></tr></tbody></table></div></details></td></tr><tr><td><i> │
00:06:51 #16805 [verbose] > │ (values)</i></td><td><div class="dni-plaintext"><pre>[ a, b │
00:06:51 #16806 [verbose] > │ ]</pre></div></td></tr></tbody></table></div></details><style> │
00:06:51 #16807 [verbose] > │ .dni-code-hint { │
00:06:51 #16808 [verbose] > │ font-style: italic; │
00:06:51 #16809 [verbose] > │ overflow: hidden; │
00:06:51 #16810 [verbose] > │ white-space: nowrap; │
00:06:51 #16811 [verbose] > │ } │
00:06:51 #16812 [verbose] > │ .dni-tree... │
00:06:51 #16813 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 #16814 [verbose] >
00:06:51 #16815 [verbose] > ╭─[ 290.50ms - stdout ]────────────────────────────────────────────────────────╮
00:06:51 #16816 [verbose] > │ let rec method0 () : string seq = │
00:06:51 #16817 [verbose] > │ let v0 : string = "a" │
00:06:51 #16818 [verbose] > │ let v1 : string = "b" │
00:06:51 #16819 [verbose] > │ let v2 : (string []) = [|v0; v1|] │
00:06:51 #16820 [verbose] > │ let v3 : ((string []) -> string seq) = Seq.ofArray │
00:06:51 #16821 [verbose] > │ v3 v2 │
00:06:51 #16822 [verbose] > │ method0() │
00:06:51 #16823 [verbose] > │ │
00:06:51 #16824 [verbose] > │ │
00:06:51 #16825 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 #16826 [verbose] >
00:06:51 #16827 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:51 #16828 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:51 #16829 [verbose] > │ ## to_array' │
00:06:51 #16830 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:51 #16831 [verbose] >
00:06:51 #16832 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:51 #16833 [verbose] > inl to_array' forall dim t. (items : seq' t) : a dim t =
00:06:51 #16834 [verbose] > $'!items |> Seq.toArray'
00:06:52 #16835 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cab4cbfb3aca8073b07c1d1839bd6a0e459d4494847af7534fe8292df874f1f5\main.spi
00:06:52 #16836 [verbose] >
00:06:52 #16837 [verbose] > ╭─[ 271.02ms - stdout ]────────────────────────────────────────────────────────╮
00:06:52 #16838 [verbose] > │ () │
00:06:52 #16839 [verbose] > │ │
00:06:52 #16840 [verbose] > │ │
00:06:52 #16841 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:52 #16842 [verbose] >
00:06:52 #16843 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:52 #16844 [verbose] > // // test
00:06:52 #16845 [verbose] >
00:06:52 #16846 [verbose] > (a ;[[ "a"; "b" ]] : _ i32 _)
00:06:52 #16847 [verbose] > |> of_array'
00:06:52 #16848 [verbose] > |> to_array'
00:06:52 #16849 [verbose] > |> _assert_eq (a ;[[ "a"; "b" ]] : _ i32 _)
00:06:52 #16850 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4f67f0f338d58afd46aea8c89c95f1cbcf47bf189ea68be7873eb11b20bdef12\main.spi
00:06:52 #16851 [verbose] >
00:06:52 #16852 [verbose] > ╭─[ 446.74ms - stdout ]────────────────────────────────────────────────────────╮
00:06:52 #16853 [verbose] > │ let rec method1 (v0 : (string []), v1 : (string []), v2 : int32) : bool = │
00:06:52 #16854 [verbose] > │ let v3 : int32 = v0.Length │
00:06:52 #16855 [verbose] > │ let v4 : bool = v2 < v3 │
00:06:52 #16856 [verbose] > │ if v4 then │
00:06:52 #16857 [verbose] > │ let v5 : string = v0.[int v2] │
00:06:52 #16858 [verbose] > │ let v6 : string = v1.[int v2] │
00:06:52 #16859 [verbose] > │ let v7 : bool = v5 = v6 │
00:06:52 #16860 [verbose] > │ if v7 then │
00:06:52 #16861 [verbose] > │ let v8 : int32 = v2 + 1 │
00:06:52 #16862 [verbose] > │ method1(v0, v1, v8) │
00:06:52 #16863 [verbose] > │ else │
00:06:52 #16864 [verbose] > │ false │
00:06:52 #16865 [verbose] > │ else │
00:06:52 #16866 [verbose] > │ true │
00:06:52 #16867 [verbose] > │ and method2 (v0 : bool) : bool = │
00:06:52 #16868 [verbose] > │ v0 │
00:06:52 #16869 [verbose] > │ and method0 () : unit = │
00:06:52 #16870 [verbose] > │ let v0 : string = "a" │
00:06:52 #16871 [verbose] > │ let v1 : string = "b" │
00:06:52 #16872 [verbose] > │ let v2 : (string []) = [|v0; v1|] │
00:06:52 #16873 [verbose] > │ let v3 : string seq = seq { for i = 0 to v2.Length - 1 do yield v2.[i] } │
00:06:52 #16874 [verbose] > │ let v4 : (string []) = v3 |> Seq.toArray │
00:06:52 #16875 [verbose] > │ let v5 : (string []) = [|v0; v1|] │
00:06:52 #16876 [verbose] > │ let v6 : string = $"%A{v4}" │
00:06:52 #16877 [verbose] > │ System.Console.WriteLine v6 │
00:06:52 #16878 [verbose] > │ let v7 : int32 = v4.Length │
00:06:52 #16879 [verbose] > │ let v8 : int32 = v5.Length │
00:06:52 #16880 [verbose] > │ let v9 : bool = v7 = v8 │
00:06:52 #16881 [verbose] > │ let v10 : bool = v9 <> true │
00:06:52 #16882 [verbose] > │ let v13 : bool = │
00:06:52 #16883 [verbose] > │ if v10 then │
00:06:52 #16884 [verbose] > │ false │
00:06:52 #16885 [verbose] > │ else │
00:06:52 #16886 [verbose] > │ let v11 : int32 = 0 │
00:06:52 #16887 [verbose] > │ method1(v4, v5, v11) │
00:06:52 #16888 [verbose] > │ let v15 : bool = │
00:06:52 #16889 [verbose] > │ if v13 then │
00:06:52 #16890 [verbose] > │ true │
00:06:52 #16891 [verbose] > │ else │
00:06:52 #16892 [verbose] > │ method2(v13) │
00:06:52 #16893 [verbose] > │ let v16 : string = $"__expect / actual: %A{v4} / expected: %A{v5}" │
00:06:52 #16894 [verbose] > │ let v17 : bool = v15 = false │
00:06:52 #16895 [verbose] > │ if v17 then │
00:06:52 #16896 [verbose] > │ failwith<unit> v16 │
00:06:52 #16897 [verbose] > │ method0() │
00:06:52 #16898 [verbose] > │ │
00:06:52 #16899 [verbose] > │ [|"a"; "b"|] │
00:06:52 #16900 [verbose] > │ │
00:06:52 #16901 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:52 #16902 [verbose] >
00:06:52 #16903 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:52 #16904 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:52 #16905 [verbose] > │ ## seq │
00:06:52 #16906 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:52 #16907 [verbose] >
00:06:52 #16908 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:52 #16909 [verbose] > type seq dim el = dim -> option el
00:06:52 #16910 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0a38bd94404cc52baf9e3c852ac7a05ca9939411527f15f911c2180e436f8dce\main.spi
00:06:52 #16911 [verbose] >
00:06:52 #16912 [verbose] > ╭─[ 290.27ms - stdout ]────────────────────────────────────────────────────────╮
00:06:52 #16913 [verbose] > │ () │
00:06:52 #16914 [verbose] > │ │
00:06:52 #16915 [verbose] > │ │
00:06:52 #16916 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:52 #16917 [verbose] >
00:06:52 #16918 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:52 #16919 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:52 #16920 [verbose] > │ ## try_item │
00:06:52 #16921 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:52 #16922 [verbose] >
00:06:52 #16923 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:52 #16924 [verbose] > inl try_item n s =
00:06:52 #16925 [verbose] > n |> s
00:06:53 #16926 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ffcfaebbd5db3a654fab173e1d1184c6a37a01ad861b19c8fc0c91c4f8babfd3\main.spi
00:06:53 #16927 [verbose] >
00:06:53 #16928 [verbose] > ╭─[ 232.53ms - stdout ]────────────────────────────────────────────────────────╮
00:06:53 #16929 [verbose] > │ () │
00:06:53 #16930 [verbose] > │ │
00:06:53 #16931 [verbose] > │ │
00:06:53 #16932 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 #16933 [verbose] >
00:06:53 #16934 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:53 #16935 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:53 #16936 [verbose] > │ ## from_list │
00:06:53 #16937 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 #16938 [verbose] >
00:06:53 #16939 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:53 #16940 [verbose] > inl from_list list =
00:06:53 #16941 [verbose] > fun n =>
00:06:53 #16942 [verbose] > list
00:06:53 #16943 [verbose] > |> listm'.try_item n
00:06:53 #16944 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b357aca6935209493196c246bab6cb887dc3746ac23c508aad5fe89704232e72\main.spi
00:06:53 #16945 [verbose] >
00:06:53 #16946 [verbose] > ╭─[ 215.58ms - stdout ]────────────────────────────────────────────────────────╮
00:06:53 #16947 [verbose] > │ () │
00:06:53 #16948 [verbose] > │ │
00:06:53 #16949 [verbose] > │ │
00:06:53 #16950 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 #16951 [verbose] >
00:06:53 #16952 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:53 #16953 [verbose] > // // test
00:06:53 #16954 [verbose] >
00:06:53 #16955 [verbose] > listm.init 10i32 print_and_return
00:06:53 #16956 [verbose] > |> from_list
00:06:53 #16957 [verbose] > |> try_item 5i32
00:06:53 #16958 [verbose] > |> _assert_eq (Some 5i32)
00:06:53 #16959 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a7839974e220e3119b94b887628daf89e2ec3f7c71bd07ed555e0b19895beffc\main.spi
00:06:53 #16960 [verbose] >
00:06:53 #16961 [verbose] > ╭─[ 633.39ms - stdout ]────────────────────────────────────────────────────────╮
00:06:53 #16962 [verbose] > │ type [<Struct>] US0 = │
00:06:53 #16963 [verbose] > │ | US0_0 of f0_0 : int32 │
00:06:53 #16964 [verbose] > │ | US0_1 │
00:06:53 #16965 [verbose] > │ let rec method0 () : unit = │
00:06:53 #16966 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:06:53 #16967 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:06:53 #16968 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:06:53 #16969 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:06:53 #16970 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:06:53 #16971 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:06:53 #16972 [verbose] > │ printfn $"print_and_return / x: {6}" │
00:06:53 #16973 [verbose] > │ printfn $"print_and_return / x: {7}" │
00:06:53 #16974 [verbose] > │ printfn $"print_and_return / x: {8}" │
00:06:53 #16975 [verbose] > │ printfn $"print_and_return / x: {9}" │
00:06:53 #16976 [verbose] > │ let v0 : US0 = US0_0(5) │
00:06:53 #16977 [verbose] > │ let v1 : string = $"%A{v0}" │
00:06:53 #16978 [verbose] > │ System.Console.WriteLine v1 │
00:06:53 #16979 [verbose] > │ let v5 : US0 = US0_0(5) │
00:06:53 #16980 [verbose] > │ let v6 : US0 = US0_0(5) │
00:06:53 #16981 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:53 #16982 [verbose] > │ () │
00:06:53 #16983 [verbose] > │ method0() │
00:06:53 #16984 [verbose] > │ │
00:06:53 #16985 [verbose] > │ print_and_return / x: 0 │
00:06:53 #16986 [verbose] > │ print_and_return / x: 1 │
00:06:53 #16987 [verbose] > │ print_and_return / x: 2 │
00:06:53 #16988 [verbose] > │ print_and_return / x: 3 │
00:06:53 #16989 [verbose] > │ print_and_return / x: 4 │
00:06:53 #16990 [verbose] > │ print_and_return / x: 5 │
00:06:53 #16991 [verbose] > │ print_and_return / x: 6 │
00:06:53 #16992 [verbose] > │ print_and_return / x: 7 │
00:06:53 #16993 [verbose] > │ print_and_return / x: 8 │
00:06:53 #16994 [verbose] > │ print_and_return / x: 9 │
00:06:53 #16995 [verbose] > │ US0_0 5 │
00:06:53 #16996 [verbose] > │ │
00:06:53 #16997 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 #16998 [verbose] >
00:06:53 #16999 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:53 #17000 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:53 #17001 [verbose] > │ ## map │
00:06:53 #17002 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:53 #17003 [verbose] >
00:06:53 #17004 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:53 #17005 [verbose] > inl map fn s =
00:06:53 #17006 [verbose] > fun n =>
00:06:53 #17007 [verbose] > n
00:06:53 #17008 [verbose] > |> s
00:06:53 #17009 [verbose] > |> optionm.map fn
00:06:54 #17010 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\301511f5c3fcccd73ac885fd90da1881343f446a28999c86ce2475e3f868855b\main.spi
00:06:54 #17011 [verbose] >
00:06:54 #17012 [verbose] > ╭─[ 234.01ms - stdout ]────────────────────────────────────────────────────────╮
00:06:54 #17013 [verbose] > │ () │
00:06:54 #17014 [verbose] > │ │
00:06:54 #17015 [verbose] > │ │
00:06:54 #17016 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:54 #17017 [verbose] >
00:06:54 #17018 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:54 #17019 [verbose] > // // test
00:06:54 #17020 [verbose] >
00:06:54 #17021 [verbose] > listm.init 10i32 id
00:06:54 #17022 [verbose] > |> from_list
00:06:54 #17023 [verbose] > |> map ((*) 2)
00:06:54 #17024 [verbose] > |> try_item 5i32
00:06:54 #17025 [verbose] > |> _assert_eq (Some 10i32)
00:06:54 #17026 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\90a8d677b59ac611475528e1a6305d3fa7bb0af52fc2ab05f5df0f57622fcddd\main.spi
00:06:54 #17027 [verbose] >
00:06:54 #17028 [verbose] > ╭─[ 240.58ms - stdout ]────────────────────────────────────────────────────────╮
00:06:54 #17029 [verbose] > │ type [<Struct>] US0 = │
00:06:54 #17030 [verbose] > │ | US0_0 of f0_0 : int32 │
00:06:54 #17031 [verbose] > │ | US0_1 │
00:06:54 #17032 [verbose] > │ let rec method0 () : unit = │
00:06:54 #17033 [verbose] > │ let v0 : US0 = US0_0(10) │
00:06:54 #17034 [verbose] > │ let v1 : string = $"%A{v0}" │
00:06:54 #17035 [verbose] > │ System.Console.WriteLine v1 │
00:06:54 #17036 [verbose] > │ let v5 : US0 = US0_0(10) │
00:06:54 #17037 [verbose] > │ let v6 : US0 = US0_0(10) │
00:06:54 #17038 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:54 #17039 [verbose] > │ () │
00:06:54 #17040 [verbose] > │ method0() │
00:06:54 #17041 [verbose] > │ │
00:06:54 #17042 [verbose] > │ US0_0 10 │
00:06:54 #17043 [verbose] > │ │
00:06:54 #17044 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:54 #17045 [verbose] >
00:06:54 #17046 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:54 #17047 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:54 #17048 [verbose] > │ ## mapi │
00:06:54 #17049 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:54 #17050 [verbose] >
00:06:54 #17051 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:54 #17052 [verbose] > inl mapi fn s =
00:06:54 #17053 [verbose] > fun n =>
00:06:54 #17054 [verbose] > n
00:06:54 #17055 [verbose] > |> s
00:06:54 #17056 [verbose] > |> optionm.map (fn n)
00:06:54 #17057 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1d769f0d49d641d276e34b0ad91af34056b778ab72827e19841a1552a187013e\main.spi
00:06:54 #17058 [verbose] >
00:06:54 #17059 [verbose] > ╭─[ 278.82ms - stdout ]────────────────────────────────────────────────────────╮
00:06:54 #17060 [verbose] > │ () │
00:06:54 #17061 [verbose] > │ │
00:06:54 #17062 [verbose] > │ │
00:06:54 #17063 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:54 #17064 [verbose] >
00:06:54 #17065 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:54 #17066 [verbose] > // // test
00:06:54 #17067 [verbose] >
00:06:54 #17068 [verbose] > listm.init 10i32 print_and_return
00:06:54 #17069 [verbose] > |> from_list
00:06:54 #17070 [verbose] > |> mapi fun i x => i + x
00:06:54 #17071 [verbose] > |> try_item 5i32
00:06:54 #17072 [verbose] > |> _assert_eq (Some 10i32)
00:06:54 #17073 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5d0f68c78a35c0539a74eae7e0f56e46a95ec7e4c555ef342ec536450ffd1e98\main.spi
00:06:55 #17074 [verbose] >
00:06:55 #17075 [verbose] > ╭─[ 264.02ms - stdout ]────────────────────────────────────────────────────────╮
00:06:55 #17076 [verbose] > │ type [<Struct>] US0 = │
00:06:55 #17077 [verbose] > │ | US0_0 of f0_0 : int32 │
00:06:55 #17078 [verbose] > │ | US0_1 │
00:06:55 #17079 [verbose] > │ let rec method0 () : unit = │
00:06:55 #17080 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:06:55 #17081 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:06:55 #17082 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:06:55 #17083 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:06:55 #17084 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:06:55 #17085 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:06:55 #17086 [verbose] > │ printfn $"print_and_return / x: {6}" │
00:06:55 #17087 [verbose] > │ printfn $"print_and_return / x: {7}" │
00:06:55 #17088 [verbose] > │ printfn $"print_and_return / x: {8}" │
00:06:55 #17089 [verbose] > │ printfn $"print_and_return / x: {9}" │
00:06:55 #17090 [verbose] > │ let v0 : US0 = US0_0(10) │
00:06:55 #17091 [verbose] > │ let v1 : string = $"%A{v0}" │
00:06:55 #17092 [verbose] > │ System.Console.WriteLine v1 │
00:06:55 #17093 [verbose] > │ let v5 : US0 = US0_0(10) │
00:06:55 #17094 [verbose] > │ let v6 : US0 = US0_0(10) │
00:06:55 #17095 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:55 #17096 [verbose] > │ () │
00:06:55 #17097 [verbose] > │ method0() │
00:06:55 #17098 [verbose] > │ │
00:06:55 #17099 [verbose] > │ print_and_return / x: 0 │
00:06:55 #17100 [verbose] > │ print_and_return / x: 1 │
00:06:55 #17101 [verbose] > │ print_and_return / x: 2 │
00:06:55 #17102 [verbose] > │ print_and_return / x: 3 │
00:06:55 #17103 [verbose] > │ print_and_return / x: 4 │
00:06:55 #17104 [verbose] > │ print_and_return / x: 5 │
00:06:55 #17105 [verbose] > │ print_and_return / x: 6 │
00:06:55 #17106 [verbose] > │ print_and_return / x: 7 │
00:06:55 #17107 [verbose] > │ print_and_return / x: 8 │
00:06:55 #17108 [verbose] > │ print_and_return / x: 9 │
00:06:55 #17109 [verbose] > │ US0_0 10 │
00:06:55 #17110 [verbose] > │ │
00:06:55 #17111 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 #17112 [verbose] >
00:06:55 #17113 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:55 #17114 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:55 #17115 [verbose] > │ ## choose │
00:06:55 #17116 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 #17117 [verbose] >
00:06:55 #17118 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:55 #17119 [verbose] > inl choose forall dim {number} t u. (fn : t -> option u) (s : seq dim t) : seq
00:06:55 #17120 [verbose] > dim u =
00:06:55 #17121 [verbose] > fun n =>
00:06:55 #17122 [verbose] > inl rec body fn s i i' =
00:06:55 #17123 [verbose] > match i |> s with
00:06:55 #17124 [verbose] > | None => None
00:06:55 #17125 [verbose] > | Some x =>
00:06:55 #17126 [verbose] > match x |> fn with
00:06:55 #17127 [verbose] > | Some x when n = i' => Some x
00:06:55 #17128 [verbose] > | Some _ => loop (i + 1) (i' + 1)
00:06:55 #17129 [verbose] > | _ => loop (i + 1) i'
00:06:55 #17130 [verbose] > and inl loop i i' =
00:06:55 #17131 [verbose] > if n |> var_is |> not
00:06:55 #17132 [verbose] > then body fn s i i'
00:06:55 #17133 [verbose] > else
00:06:55 #17134 [verbose] > inl fn = join fn
00:06:55 #17135 [verbose] > inl s = join s
00:06:55 #17136 [verbose] > join body fn s i i'
00:06:55 #17137 [verbose] > loop 0 0
00:06:55 #17138 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c486df90ba58dcd6d06b687cd2ec078a138befdc5bab9a504b5c37108a45ba2d\main.spi
00:06:55 #17139 [verbose] >
00:06:55 #17140 [verbose] > ╭─[ 254.95ms - stdout ]────────────────────────────────────────────────────────╮
00:06:55 #17141 [verbose] > │ () │
00:06:55 #17142 [verbose] > │ │
00:06:55 #17143 [verbose] > │ │
00:06:55 #17144 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 #17145 [verbose] >
00:06:55 #17146 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:55 #17147 [verbose] > // // test
00:06:55 #17148 [verbose] >
00:06:55 #17149 [verbose] > listm.init 10i32 print_and_return
00:06:55 #17150 [verbose] > |> from_list
00:06:55 #17151 [verbose] > |> choose (fun x => if x % 2 = 0 then Some x else None)
00:06:55 #17152 [verbose] > |> try_item 1i32
00:06:55 #17153 [verbose] > |> _assert_eq (Some 2i32)
00:06:55 #17154 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ff12a2b1a70ee068e40b2c3ac16a077608bf9c6d4150d24dcfbf2062c9e8120a\main.spi
00:06:55 #17155 [verbose] >
00:06:55 #17156 [verbose] > ╭─[ 282.39ms - stdout ]────────────────────────────────────────────────────────╮
00:06:55 #17157 [verbose] > │ type [<Struct>] US0 = │
00:06:55 #17158 [verbose] > │ | US0_0 of f0_0 : int32 │
00:06:55 #17159 [verbose] > │ | US0_1 │
00:06:55 #17160 [verbose] > │ let rec method0 () : unit = │
00:06:55 #17161 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:06:55 #17162 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:06:55 #17163 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:06:55 #17164 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:06:55 #17165 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:06:55 #17166 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:06:55 #17167 [verbose] > │ printfn $"print_and_return / x: {6}" │
00:06:55 #17168 [verbose] > │ printfn $"print_and_return / x: {7}" │
00:06:55 #17169 [verbose] > │ printfn $"print_and_return / x: {8}" │
00:06:55 #17170 [verbose] > │ printfn $"print_and_return / x: {9}" │
00:06:55 #17171 [verbose] > │ let v0 : US0 = US0_0(2) │
00:06:55 #17172 [verbose] > │ let v1 : string = $"%A{v0}" │
00:06:55 #17173 [verbose] > │ System.Console.WriteLine v1 │
00:06:55 #17174 [verbose] > │ let v5 : US0 = US0_0(2) │
00:06:55 #17175 [verbose] > │ let v6 : US0 = US0_0(2) │
00:06:55 #17176 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:55 #17177 [verbose] > │ () │
00:06:55 #17178 [verbose] > │ method0() │
00:06:55 #17179 [verbose] > │ │
00:06:55 #17180 [verbose] > │ print_and_return / x: 0 │
00:06:55 #17181 [verbose] > │ print_and_return / x: 1 │
00:06:55 #17182 [verbose] > │ print_and_return / x: 2 │
00:06:55 #17183 [verbose] > │ print_and_return / x: 3 │
00:06:55 #17184 [verbose] > │ print_and_return / x: 4 │
00:06:55 #17185 [verbose] > │ print_and_return / x: 5 │
00:06:55 #17186 [verbose] > │ print_and_return / x: 6 │
00:06:55 #17187 [verbose] > │ print_and_return / x: 7 │
00:06:55 #17188 [verbose] > │ print_and_return / x: 8 │
00:06:55 #17189 [verbose] > │ print_and_return / x: 9 │
00:06:55 #17190 [verbose] > │ US0_0 2 │
00:06:55 #17191 [verbose] > │ │
00:06:55 #17192 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 #17193 [verbose] >
00:06:55 #17194 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:55 #17195 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:55 #17196 [verbose] > │ ## indexed │
00:06:55 #17197 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 #17198 [verbose] >
00:06:55 #17199 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:55 #17200 [verbose] > inl indexed s =
00:06:55 #17201 [verbose] > s
00:06:55 #17202 [verbose] > |> mapi fun i x =>
00:06:55 #17203 [verbose] > i, x
00:06:55 #17204 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0efe85276bdb297cb243e6a0b28d7f8222e9a4e5971c499aa076e740fbdd7f6f\main.spi
00:06:55 #17205 [verbose] >
00:06:55 #17206 [verbose] > ╭─[ 254.92ms - stdout ]────────────────────────────────────────────────────────╮
00:06:55 #17207 [verbose] > │ () │
00:06:55 #17208 [verbose] > │ │
00:06:55 #17209 [verbose] > │ │
00:06:55 #17210 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:55 #17211 [verbose] >
00:06:55 #17212 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:55 #17213 [verbose] > // // test
00:06:55 #17214 [verbose] >
00:06:55 #17215 [verbose] > listm.init 10i32 ((*) 2)
00:06:55 #17216 [verbose] > |> from_list
00:06:55 #17217 [verbose] > |> indexed
00:06:55 #17218 [verbose] > |> try_item 5i32
00:06:55 #17219 [verbose] > |> _assert_eq (Some (5i32, 10i32))
00:06:56 #17220 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\28b8c56cc510f255afd056080a895fab8bb7493c195a02844de9a3c9862e44fe\main.spi
00:06:56 #17221 [verbose] >
00:06:56 #17222 [verbose] > ╭─[ 296.17ms - stdout ]────────────────────────────────────────────────────────╮
00:06:56 #17223 [verbose] > │ type [<Struct>] US0 = │
00:06:56 #17224 [verbose] > │ | US0_0 of f0_0 : int32 * f0_1 : int32 │
00:06:56 #17225 [verbose] > │ | US0_1 │
00:06:56 #17226 [verbose] > │ let rec method0 () : unit = │
00:06:56 #17227 [verbose] > │ let v0 : US0 = US0_0(5, 10) │
00:06:56 #17228 [verbose] > │ let v1 : string = $"%A{v0}" │
00:06:56 #17229 [verbose] > │ System.Console.WriteLine v1 │
00:06:56 #17230 [verbose] > │ let v5 : US0 = US0_0(5, 10) │
00:06:56 #17231 [verbose] > │ let v6 : US0 = US0_0(5, 10) │
00:06:56 #17232 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:56 #17233 [verbose] > │ () │
00:06:56 #17234 [verbose] > │ method0() │
00:06:56 #17235 [verbose] > │ │
00:06:56 #17236 [verbose] > │ US0_0 (5, 10) │
00:06:56 #17237 [verbose] > │ │
00:06:56 #17238 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:56 #17239 [verbose] >
00:06:56 #17240 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:56 #17241 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:56 #17242 [verbose] > │ ## zip │
00:06:56 #17243 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:56 #17244 [verbose] >
00:06:56 #17245 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:56 #17246 [verbose] > inl zip n seq1 seq2 =
00:06:56 #17247 [verbose] > seq1 n, seq2 n
00:06:56 #17248 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9793beb23590609c42786f2a60fcedafae54b1e1d55ea1144821df4c478b30e1\main.spi
00:06:56 #17249 [verbose] >
00:06:56 #17250 [verbose] > ╭─[ 289.15ms - stdout ]────────────────────────────────────────────────────────╮
00:06:56 #17251 [verbose] > │ () │
00:06:56 #17252 [verbose] > │ │
00:06:56 #17253 [verbose] > │ │
00:06:56 #17254 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:56 #17255 [verbose] >
00:06:56 #17256 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:56 #17257 [verbose] > // // test
00:06:56 #17258 [verbose] >
00:06:56 #17259 [verbose] > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:06:56 #17260 [verbose] > ||> zip 5i32
00:06:56 #17261 [verbose] > |> _assert_eq (Some 5, Some 10)
00:06:56 #17262 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1108e5f081d9a48e19e9463d93a1b89f2ce6ec8f5d7a1794be2aef882fd03652\main.spi
00:06:56 #17263 [verbose] >
00:06:56 #17264 [verbose] > ╭─[ 275.21ms - stdout ]────────────────────────────────────────────────────────╮
00:06:56 #17265 [verbose] > │ type [<Struct>] US0 = │
00:06:56 #17266 [verbose] > │ | US0_0 of f0_0 : int32 │
00:06:56 #17267 [verbose] > │ | US0_1 │
00:06:56 #17268 [verbose] > │ let rec method0 () : unit = │
00:06:56 #17269 [verbose] > │ let v0 : US0 = US0_0(5) │
00:06:56 #17270 [verbose] > │ let v1 : US0 = US0_0(10) │
00:06:56 #17271 [verbose] > │ let v2 : string = $"%A{struct (v0, v1)}" │
00:06:56 #17272 [verbose] > │ System.Console.WriteLine v2 │
00:06:56 #17273 [verbose] > │ let v9 : US0 = US0_0(5) │
00:06:56 #17274 [verbose] > │ let v10 : US0 = US0_0(10) │
00:06:56 #17275 [verbose] > │ let v11 : US0 = US0_0(5) │
00:06:56 #17276 [verbose] > │ let v12 : US0 = US0_0(10) │
00:06:56 #17277 [verbose] > │ let v13 : string = $"__expect / actual: %A{struct (v9, v10)} / expected: │
00:06:56 #17278 [verbose] > │ %A{struct (v11, v12)}" │
00:06:56 #17279 [verbose] > │ () │
00:06:56 #17280 [verbose] > │ method0() │
00:06:56 #17281 [verbose] > │ │
00:06:56 #17282 [verbose] > │ struct (US0_0 5, US0_0 10) │
00:06:56 #17283 [verbose] > │ │
00:06:56 #17284 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:56 #17285 [verbose] >
00:06:56 #17286 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:56 #17287 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:56 #17288 [verbose] > │ ## zip_with │
00:06:56 #17289 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:56 #17290 [verbose] >
00:06:56 #17291 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:56 #17292 [verbose] > inl zip_with fn seq1 seq2 =
00:06:56 #17293 [verbose] > fun n =>
00:06:56 #17294 [verbose] > fn (seq1 n) (seq2 n)
00:06:56 #17295 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\1034cba10918f275a772c7a7d2a9ac4f99b75a67100ac7f62a867e039395bc41\main.spi
00:06:56 #17296 [verbose] >
00:06:56 #17297 [verbose] > ╭─[ 272.89ms - stdout ]────────────────────────────────────────────────────────╮
00:06:56 #17298 [verbose] > │ () │
00:06:57 #17299 [verbose] > │ │
00:06:57 #17300 [verbose] > │ │
00:06:57 #17301 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 #17302 [verbose] >
00:06:57 #17303 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:57 #17304 [verbose] > // // test
00:06:57 #17305 [verbose] >
00:06:57 #17306 [verbose] > ((listm.init 10i32 id |> from_list), (listm.init 10i32 ((*) 2) |> from_list))
00:06:57 #17307 [verbose] > ||> zip_with (optionm'.choose (+))
00:06:57 #17308 [verbose] > |> try_item 2i32
00:06:57 #17309 [verbose] > |> _assert_eq (Some 6)
00:06:57 #17310 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\aa7ee70f4f4262c329dafae2a51adf357120685a9a0176f4b969e9ac1cb0130d\main.spi
00:06:57 #17311 [verbose] >
00:06:57 #17312 [verbose] > ╭─[ 301.96ms - stdout ]────────────────────────────────────────────────────────╮
00:06:57 #17313 [verbose] > │ type [<Struct>] US0 = │
00:06:57 #17314 [verbose] > │ | US0_0 of f0_0 : int32 │
00:06:57 #17315 [verbose] > │ | US0_1 │
00:06:57 #17316 [verbose] > │ let rec method0 () : unit = │
00:06:57 #17317 [verbose] > │ let v0 : US0 = US0_0(6) │
00:06:57 #17318 [verbose] > │ let v1 : string = $"%A{v0}" │
00:06:57 #17319 [verbose] > │ System.Console.WriteLine v1 │
00:06:57 #17320 [verbose] > │ let v5 : US0 = US0_0(6) │
00:06:57 #17321 [verbose] > │ let v6 : US0 = US0_0(6) │
00:06:57 #17322 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:06:57 #17323 [verbose] > │ () │
00:06:57 #17324 [verbose] > │ method0() │
00:06:57 #17325 [verbose] > │ │
00:06:57 #17326 [verbose] > │ US0_0 6 │
00:06:57 #17327 [verbose] > │ │
00:06:57 #17328 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 #17329 [verbose] >
00:06:57 #17330 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:57 #17331 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:57 #17332 [verbose] > │ ## fold │
00:06:57 #17333 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 #17334 [verbose] >
00:06:57 #17335 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:57 #17336 [verbose] > inl fold fn init seq =
00:06:57 #17337 [verbose] > inl rec loop acc n =
00:06:57 #17338 [verbose] > match seq n with
00:06:57 #17339 [verbose] > | Some x => loop (fn acc x) (n + 1)
00:06:57 #17340 [verbose] > | None => acc
00:06:57 #17341 [verbose] > loop init 0
00:06:57 #17342 [verbose] >
00:06:57 #17343 [verbose] > inl fold_ fn init seq =
00:06:57 #17344 [verbose] > let rec loop acc n =
00:06:57 #17345 [verbose] > match seq n with
00:06:57 #17346 [verbose] > | Some x => loop (fn acc x) (n + 1)
00:06:57 #17347 [verbose] > | None => acc
00:06:57 #17348 [verbose] > loop init 0
00:06:57 #17349 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0ec648d0056bec8e07f0fae2f3106b0834ae42e35b120570f71080b17a6afefd\main.spi
00:06:57 #17350 [verbose] >
00:06:57 #17351 [verbose] > ╭─[ 286.75ms - stdout ]────────────────────────────────────────────────────────╮
00:06:57 #17352 [verbose] > │ () │
00:06:57 #17353 [verbose] > │ │
00:06:57 #17354 [verbose] > │ │
00:06:57 #17355 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 #17356 [verbose] >
00:06:57 #17357 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:57 #17358 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:57 #17359 [verbose] > │ ## sum │
00:06:57 #17360 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 #17361 [verbose] >
00:06:57 #17362 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:57 #17363 [verbose] > inl sum seq =
00:06:57 #17364 [verbose] > seq |> fold (+) 0
00:06:57 #17365 [verbose] >
00:06:57 #17366 [verbose] > inl sum_ seq =
00:06:57 #17367 [verbose] > seq |> fold_ (+) 0
00:06:57 #17368 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f17b16ec4b371564f50cd9d8e8cc4f016e7dedb00b9bad40a402aab67ecb1392\main.spi
00:06:57 #17369 [verbose] >
00:06:57 #17370 [verbose] > ╭─[ 260.73ms - stdout ]────────────────────────────────────────────────────────╮
00:06:57 #17371 [verbose] > │ () │
00:06:57 #17372 [verbose] > │ │
00:06:57 #17373 [verbose] > │ │
00:06:57 #17374 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:57 #17375 [verbose] >
00:06:57 #17376 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:57 #17377 [verbose] > // // test
00:06:57 #17378 [verbose] >
00:06:57 #17379 [verbose] > listm.init 10i32 id
00:06:57 #17380 [verbose] > |> from_list
00:06:57 #17381 [verbose] > |> fun f (n : i32) => f n
00:06:57 #17382 [verbose] > |> sum
00:06:57 #17383 [verbose] > |> _assert_eq 45
00:06:58 #17384 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f0ff2755e6cea06338295f26733d2dea17c436995f6341baceb73bdec26ce556\main.spi
00:06:58 #17385 [verbose] >
00:06:58 #17386 [verbose] > ╭─[ 255.31ms - stdout ]────────────────────────────────────────────────────────╮
00:06:58 #17387 [verbose] > │ let rec method0 () : unit = │
00:06:58 #17388 [verbose] > │ let v0 : string = $"%A{45}" │
00:06:58 #17389 [verbose] > │ System.Console.WriteLine v0 │
00:06:58 #17390 [verbose] > │ let v1 : string = $"__expect / actual: %A{45} / expected: %A{45}" │
00:06:58 #17391 [verbose] > │ () │
00:06:58 #17392 [verbose] > │ method0() │
00:06:58 #17393 [verbose] > │ │
00:06:58 #17394 [verbose] > │ 45 │
00:06:58 #17395 [verbose] > │ │
00:06:58 #17396 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:58 #17397 [verbose] >
00:06:58 #17398 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:58 #17399 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:58 #17400 [verbose] > │ ## to_list │
00:06:58 #17401 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:58 #17402 [verbose] >
00:06:58 #17403 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:58 #17404 [verbose] > inl to_list seq =
00:06:58 #17405 [verbose] > seq
00:06:58 #17406 [verbose] > |> fold (fun acc x => x :: acc) [[]]
00:06:58 #17407 [verbose] > |> listm.rev
00:06:58 #17408 [verbose] >
00:06:58 #17409 [verbose] > inl to_list_ seq =
00:06:58 #17410 [verbose] > seq
00:06:58 #17411 [verbose] > |> fold_ (fun acc x => x :: acc) [[]]
00:06:58 #17412 [verbose] > |> listm.rev
00:06:58 #17413 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f6884827fc3069c2b6680ab84dd20bc70f4a746b023e441c8af20c559b3c5ec5\main.spi
00:06:58 #17414 [verbose] >
00:06:58 #17415 [verbose] > ╭─[ 251.01ms - stdout ]────────────────────────────────────────────────────────╮
00:06:58 #17416 [verbose] > │ () │
00:06:58 #17417 [verbose] > │ │
00:06:58 #17418 [verbose] > │ │
00:06:58 #17419 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:58 #17420 [verbose] >
00:06:58 #17421 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:58 #17422 [verbose] > // // test
00:06:58 #17423 [verbose] >
00:06:58 #17424 [verbose] > listm.init 10i32 id
00:06:58 #17425 [verbose] > |> from_list
00:06:58 #17426 [verbose] > |> fun f (n : i32) => f n
00:06:58 #17427 [verbose] > |> to_list
00:06:58 #17428 [verbose] > |> _assert_eq (listm.init 10i32 id)
00:06:58 #17429 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ed68af7049021acfcf8f3a992036a60e6280ccf91c2c203fd3d6ac86186f5306\main.spi
00:06:59 #17430 [verbose] >
00:06:59 #17431 [verbose] > ╭─[ 689.71ms - stdout ]────────────────────────────────────────────────────────╮
00:06:59 #17432 [verbose] > │ type UH0 = │
00:06:59 #17433 [verbose] > │ | UH0_0 │
00:06:59 #17434 [verbose] > │ | UH0_1 of int32 * UH0 │
00:06:59 #17435 [verbose] > │ let rec method0 () : unit = │
00:06:59 #17436 [verbose] > │ let v0 : UH0 = UH0_0 │
00:06:59 #17437 [verbose] > │ let v1 : UH0 = UH0_1(9, v0) │
00:06:59 #17438 [verbose] > │ let v2 : UH0 = UH0_1(8, v1) │
00:06:59 #17439 [verbose] > │ let v3 : UH0 = UH0_1(7, v2) │
00:06:59 #17440 [verbose] > │ let v4 : UH0 = UH0_1(6, v3) │
00:06:59 #17441 [verbose] > │ let v5 : UH0 = UH0_1(5, v4) │
00:06:59 #17442 [verbose] > │ let v6 : UH0 = UH0_1(4, v5) │
00:06:59 #17443 [verbose] > │ let v7 : UH0 = UH0_1(3, v6) │
00:06:59 #17444 [verbose] > │ let v8 : UH0 = UH0_1(2, v7) │
00:06:59 #17445 [verbose] > │ let v9 : UH0 = UH0_1(1, v8) │
00:06:59 #17446 [verbose] > │ let v10 : UH0 = UH0_1(0, v9) │
00:06:59 #17447 [verbose] > │ let v11 : string = $"%A{v10}" │
00:06:59 #17448 [verbose] > │ System.Console.WriteLine v11 │
00:06:59 #17449 [verbose] > │ let v100 : UH0 = UH0_0 │
00:06:59 #17450 [verbose] > │ let v101 : UH0 = UH0_1(9, v100) │
00:06:59 #17451 [verbose] > │ let v102 : UH0 = UH0_1(8, v101) │
00:06:59 #17452 [verbose] > │ let v103 : UH0 = UH0_1(7, v102) │
00:06:59 #17453 [verbose] > │ let v104 : UH0 = UH0_1(6, v103) │
00:06:59 #17454 [verbose] > │ let v105 : UH0 = UH0_1(5, v104) │
00:06:59 #17455 [verbose] > │ let v106 : UH0 = UH0_1(4, v105) │
00:06:59 #17456 [verbose] > │ let v107 : UH0 = UH0_1(3, v106) │
00:06:59 #17457 [verbose] > │ let v108 : UH0 = UH0_1(2, v107) │
00:06:59 #17458 [verbose] > │ let v109 : UH0 = UH0_1(1, v108) │
00:06:59 #17459 [verbose] > │ let v110 : UH0 = UH0_1(0, v109) │
00:06:59 #17460 [verbose] > │ let v111 : UH0 = UH0_0 │
00:06:59 #17461 [verbose] > │ let v112 : UH0 = UH0_1(9, v111) │
00:06:59 #17462 [verbose] > │ let v113 : UH0 = UH0_1(8, v112) │
00:06:59 #17463 [verbose] > │ let v114 : UH0 = UH0_1(7, v113) │
00:06:59 #17464 [verbose] > │ let v115 : UH0 = UH0_1(6, v114) │
00:06:59 #17465 [verbose] > │ let v116 : UH0 = UH0_1(5, v115) │
00:06:59 #17466 [verbose] > │ let v117 : UH0 = UH0_1(4, v116) │
00:06:59 #17467 [verbose] > │ let v118 : UH0 = UH0_1(3, v117) │
00:06:59 #17468 [verbose] > │ let v119 : UH0 = UH0_1(2, v118) │
00:06:59 #17469 [verbose] > │ let v120 : UH0 = UH0_1(1, v119) │
00:06:59 #17470 [verbose] > │ let v121 : UH0 = UH0_1(0, v120) │
00:06:59 #17471 [verbose] > │ let v122 : string = $"__expect / actual: %A{v110} / expected: %A{v121}" │
00:06:59 #17472 [verbose] > │ () │
00:06:59 #17473 [verbose] > │ method0() │
00:06:59 #17474 [verbose] > │ │
00:06:59 #17475 [verbose] > │ UH0_1 │
00:06:59 #17476 [verbose] > │ (0, │
00:06:59 #17477 [verbose] > │ UH0_1 │
00:06:59 #17478 [verbose] > │ (1, │
00:06:59 #17479 [verbose] > │ UH0_1 │
00:06:59 #17480 [verbose] > │ (2, │
00:06:59 #17481 [verbose] > │ UH0_1 │
00:06:59 #17482 [verbose] > │ (3, │
00:06:59 #17483 [verbose] > │ UH0_1 │
00:06:59 #17484 [verbose] > │ (4, UH0_1 (5, UH0_1 (6, UH0_1 (7, UH0_1 (8, UH0_1 (9, │
00:06:59 #17485 [verbose] > │ UH0_0)))))))))) │
00:06:59 #17486 [verbose] > │ │
00:06:59 #17487 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:59 #17488 [verbose] >
00:06:59 #17489 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:59 #17490 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:59 #17491 [verbose] > │ ## from_array │
00:06:59 #17492 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:59 #17493 [verbose] >
00:06:59 #17494 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:59 #17495 [verbose] > inl from_array forall dim {number; int} el. (array : a dim el) : seq dim el =
00:06:59 #17496 [verbose] > fun n =>
00:06:59 #17497 [verbose] > if n >= length array
00:06:59 #17498 [verbose] > then None
00:06:59 #17499 [verbose] > else index array n |> Some
00:06:59 #17500 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0fcc80e340884ae624f4a413f7602755932ea5032da91b156e201a6daf0f789b\main.spi
00:06:59 #17501 [verbose] >
00:06:59 #17502 [verbose] > ╭─[ 239.76ms - stdout ]────────────────────────────────────────────────────────╮
00:06:59 #17503 [verbose] > │ () │
00:06:59 #17504 [verbose] > │ │
00:06:59 #17505 [verbose] > │ │
00:06:59 #17506 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:59 #17507 [verbose] >
00:06:59 #17508 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:59 #17509 [verbose] > // // test
00:06:59 #17510 [verbose] >
00:06:59 #17511 [verbose] > a ;[[ 1; 2; 3 ]]
00:06:59 #17512 [verbose] > |> from_array
00:06:59 #17513 [verbose] > |> try_item 1i32
00:06:59 #17514 [verbose] > |> _assert_eq (Some 2i32)
00:06:59 #17515 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\629a5d7b03149cf54fd3e23872ede6833beed63edd2caea5dfb9cb4b8276abc8\main.spi
00:06:59 #17516 [verbose] >
00:06:59 #17517 [verbose] > ╭─[ 326.45ms - stdout ]────────────────────────────────────────────────────────╮
00:06:59 #17518 [verbose] > │ type [<Struct>] US0 = │
00:06:59 #17519 [verbose] > │ | US0_0 of f0_0 : int32 │
00:06:59 #17520 [verbose] > │ | US0_1 │
00:06:59 #17521 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:06:59 #17522 [verbose] > │ v0 │
00:06:59 #17523 [verbose] > │ and method0 () : unit = │
00:06:59 #17524 [verbose] > │ let v0 : (int32 []) = [|1; 2; 3|] │
00:06:59 #17525 [verbose] > │ let v1 : int32 = v0.Length │
00:06:59 #17526 [verbose] > │ let v2 : bool = 1 >= v1 │
00:06:59 #17527 [verbose] > │ let v6 : US0 = │
00:06:59 #17528 [verbose] > │ if v2 then │
00:06:59 #17529 [verbose] > │ US0_1 │
00:06:59 #17530 [verbose] > │ else │
00:06:59 #17531 [verbose] > │ let v4 : int32 = v0.[int 1] │
00:06:59 #17532 [verbose] > │ US0_0(v4) │
00:06:59 #17533 [verbose] > │ let v7 : string = $"%A{v6}" │
00:06:59 #17534 [verbose] > │ System.Console.WriteLine v7 │
00:06:59 #17535 [verbose] > │ let v11 : bool = │
00:06:59 #17536 [verbose] > │ match v6 with │
00:06:59 #17537 [verbose] > │ | US0_0(v9) -> (* Some *) │
00:06:59 #17538 [verbose] > │ let v10 : bool = v9 = 2 │
00:06:59 #17539 [verbose] > │ v10 │
00:06:59 #17540 [verbose] > │ | _ -> │
00:06:59 #17541 [verbose] > │ false │
00:06:59 #17542 [verbose] > │ let v13 : bool = │
00:06:59 #17543 [verbose] > │ if v11 then │
00:06:59 #17544 [verbose] > │ true │
00:06:59 #17545 [verbose] > │ else │
00:06:59 #17546 [verbose] > │ method1(v11) │
00:06:59 #17547 [verbose] > │ let v14 : US0 = US0_0(2) │
00:06:59 #17548 [verbose] > │ let v15 : string = $"__expect / actual: %A{v6} / expected: %A{v14}" │
00:06:59 #17549 [verbose] > │ let v16 : bool = v13 = false │
00:06:59 #17550 [verbose] > │ if v16 then │
00:06:59 #17551 [verbose] > │ failwith<unit> v15 │
00:06:59 #17552 [verbose] > │ method0() │
00:06:59 #17553 [verbose] > │ │
00:06:59 #17554 [verbose] > │ US0_0 2 │
00:06:59 #17555 [verbose] > │ │
00:06:59 #17556 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:59 #17557 [verbose] >
00:06:59 #17558 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:06:59 #17559 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:06:59 #17560 [verbose] > │ ## to_array │
00:06:59 #17561 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:59 #17562 [verbose] >
00:06:59 #17563 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:59 #17564 [verbose] > inl to_array seq =
00:06:59 #17565 [verbose] > inl ar = a ;[[]] |> mut
00:06:59 #17566 [verbose] > ((), seq)
00:06:59 #17567 [verbose] > ||> fold fun _ x =>
00:06:59 #17568 [verbose] > ar <- *ar /@ a ;[[x]]
00:06:59 #17569 [verbose] > *ar
00:06:59 #17570 [verbose] >
00:06:59 #17571 [verbose] > inl to_array_ seq =
00:06:59 #17572 [verbose] > inl ar = a ;[[]] |> mut
00:06:59 #17573 [verbose] > ((), seq)
00:06:59 #17574 [verbose] > ||> fold_ fun _ x =>
00:06:59 #17575 [verbose] > ar <- *ar /@ a ;[[x]]
00:06:59 #17576 [verbose] > *ar
00:06:59 #17577 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5328365eeae243b0bbc4edaf3a62e49fa7a3a7caf9e196f2a8589fee857b8ce7\main.spi
00:06:59 #17578 [verbose] >
00:06:59 #17579 [verbose] > ╭─[ 228.01ms - stdout ]────────────────────────────────────────────────────────╮
00:06:59 #17580 [verbose] > │ () │
00:06:59 #17581 [verbose] > │ │
00:06:59 #17582 [verbose] > │ │
00:06:59 #17583 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:06:59 #17584 [verbose] >
00:06:59 #17585 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:06:59 #17586 [verbose] > // // test
00:06:59 #17587 [verbose] >
00:06:59 #17588 [verbose] > listm.init 10i32 id
00:06:59 #17589 [verbose] > |> from_list
00:06:59 #17590 [verbose] > |> fun (x : i32 -> _) => x
00:06:59 #17591 [verbose] > |> to_array
00:06:59 #17592 [verbose] > |> _assert_eq (a ;[[ 0; 1; 2; 3; 4; 5; 6; 7; 8; 9 ]] : _ i32 _)
00:07:00 #17593 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a8615ad98c09bd83904d08e2b8aa58f599bfc6896f350a253c38e1e415df48de\main.spi
00:07:00 #17594 [verbose] >
00:07:00 #17595 [verbose] > ╭─[ 558.75ms - stdout ]────────────────────────────────────────────────────────╮
00:07:00 #17596 [verbose] > │ type Mut0 = {mutable l0 : (int32 [])} │
00:07:00 #17597 [verbose] > │ and Mut1 = {mutable l0 : int32} │
00:07:00 #17598 [verbose] > │ let rec method1 (v0 : int32, v1 : Mut1) : bool = │
00:07:00 #17599 [verbose] > │ let v2 : int32 = v1.l0 │
00:07:00 #17600 [verbose] > │ let v3 : bool = v2 < v0 │
00:07:00 #17601 [verbose] > │ v3 │
00:07:00 #17602 [verbose] > │ and method2 (v0 : (int32 []), v1 : (int32 []), v2 : int32) : bool = │
00:07:00 #17603 [verbose] > │ let v3 : int32 = v0.Length │
00:07:00 #17604 [verbose] > │ let v4 : bool = v2 < v3 │
00:07:00 #17605 [verbose] > │ if v4 then │
00:07:00 #17606 [verbose] > │ let v5 : int32 = v0.[int v2] │
00:07:00 #17607 [verbose] > │ let v6 : int32 = v1.[int v2] │
00:07:00 #17608 [verbose] > │ let v7 : bool = v5 = v6 │
00:07:00 #17609 [verbose] > │ if v7 then │
00:07:00 #17610 [verbose] > │ let v8 : int32 = v2 + 1 │
00:07:00 #17611 [verbose] > │ method2(v0, v1, v8) │
00:07:00 #17612 [verbose] > │ else │
00:07:00 #17613 [verbose] > │ false │
00:07:00 #17614 [verbose] > │ else │
00:07:00 #17615 [verbose] > │ true │
00:07:00 #17616 [verbose] > │ and method3 (v0 : bool) : bool = │
00:07:00 #17617 [verbose] > │ v0 │
00:07:00 #17618 [verbose] > │ and method0 () : unit = │
00:07:00 #17619 [verbose] > │ let v0 : (int32 []) = [||] │
00:07:00 #17620 [verbose] > │ let v1 : Mut0 = {l0 = v0} : Mut0 │
00:07:00 #17621 [verbose] > │ let v2 : (int32 []) = v1.l0 │
00:07:00 #17622 [verbose] > │ let v3 : (int32 []) = [|0|] │
00:07:00 #17623 [verbose] > │ let v4 : int32 = v2.Length │
00:07:00 #17624 [verbose] > │ let v5 : int32 = v3.Length │
00:07:00 #17625 [verbose] > │ let v6 : int32 = v4 + v5 │
00:07:00 #17626 [verbose] > │ let v7 : (int32 []) = Array.zeroCreate<int32> (v6) │
00:07:00 #17627 [verbose] > │ let v8 : Mut1 = {l0 = 0} : Mut1 │
00:07:00 #17628 [verbose] > │ while method1(v6, v8) do │
00:07:00 #17629 [verbose] > │ let v10 : int32 = v8.l0 │
00:07:00 #17630 [verbose] > │ let v11 : bool = v10 < v4 │
00:07:00 #17631 [verbose] > │ let v15 : int32 = │
00:07:00 #17632 [verbose] > │ if v11 then │
00:07:00 #17633 [verbose] > │ let v12 : int32 = v2.[int v10] │
00:07:00 #17634 [verbose] > │ v12 │
00:07:00 #17635 [verbose] > │ else │
00:07:00 #17636 [verbose] > │ let v13 : int32 = v10 - v4 │
00:07:00 #17637 [verbose] > │ let v14 : int32 = v3.[int v13] │
00:07:00 #17638 [verbose] > │ v14 │
00:07:00 #17639 [verbose] > │ v7.[int v10] <- v15 │
00:07:00 #17640 [verbose] > │ let v16 : int32 = v10 + 1 │
00:07:00 #17641 [verbose] > │ v8.l0 <- v16 │
00:07:00 #17642 [verbose] > │ () │
00:07:00 #17643 [verbose] > │ v1.l0 <- v7 │
00:07:00 #17644 [verbose] > │ let v17 : (int32 []) = v1.l0 │
00:07:00 #17645 [verbose] > │ let v18 : (int32 []) = [|1|] │
00:07:00 #17646 [verbose] > │ let v19 : int32 = v17.Length │
00:07:00 #17647 [verbose] > │ let v20 : int32 = v18.Length │
00:07:00 #17648 [verbose] > │ let v21 : int32 = v19 + v20 │
00:07:00 #17649 [verbose] > │ let v22 : (int32 []) = Array.zeroCreate<int32> (v21) │
00:07:00 #17650 [verbose] > │ let v23 : Mut1 = {l0 = 0} : Mut1 │
00:07:00 #17651 [verbose] > │ while method1(v21, v23) do │
00:07:00 #17652 [verbose] > │ let v25 : int32 = v23.l0 │
00:07:00 #17653 [verbose] > │ let v26 : bool = v25 < v19 │
00:07:00 #17654 [verbose] > │ let v30 : int32 = │
00:07:00 #17655 [verbose] > │ if v26 then │
00:07:00 #17656 [verbose] > │ let v27 : int32 = v17.[int v25] │
00:07:00 #17657 [verbose] > │ v27 │
00:07:00 #17658 [verbose] > │ else │
00:07:00 #17659 [verbose] > │ let v28 : int32 = v25 - v19 │
00:07:00 #17660 [verbose] > │ let v29 : int32 = v18.[int v28] │
00:07:00 #17661 [verbose] > │ v29 │
00:07:00 #17662 [verbose] > │ v22.[int v25] <- v30 │
00:07:00 #17663 [verbose] > │ let v31 : int32 = v25 + 1 │
00:07:00 #17664 [verbose] > │ v23.l0 <- v31 │
00:07:00 #17665 [verbose] > │ () │
00:07:00 #17666 [verbose] > │ v1.l0 <- v22 │
00:07:00 #17667 [verbose] > │ let v32 : (int32 []) = v1.l0 │
00:07:00 #17668 [verbose] > │ let v33 : (int32 []) = [|2|] │
00:07:00 #17669 [verbose] > │ let v34 : int32 = v32.Length │
00:07:00 #17670 [verbose] > │ let v35 : int32 = v33.Length │
00:07:00 #17671 [verbose] > │ let v36 : int32 = v34 + v35 │
00:07:00 #17672 [verbose] > │ let v37 : (int32 []) = Array.zeroCreate<int32> (v36) │
00:07:00 #17673 [verbose] > │ let v38 : Mut1 = {l0 = 0} : Mut1 │
00:07:00 #17674 [verbose] > │ while method1(v36, v38) do │
00:07:00 #17675 [verbose] > │ let v40 : int32 = v38.l0 │
00:07:00 #17676 [verbose] > │ let v41 : bool = v40 < v34 │
00:07:00 #17677 [verbose] > │ let v45 : int32 = │
00:07:00 #17678 [verbose] > │ if v41 then │
00:07:00 #17679 [verbose] > │ let v42 : int32 = v32.[int v40] │
00:07:00 #17680 [verbose] > │ v42 │
00:07:00 #17681 [verbose] > │ else │
00:07:00 #17682 [verbose] > │ let v43 : int32 = v40 - v34 │
00:07:00 #17683 [verbose] > │ let v44 : int32 = v33.[int v43] │
00:07:00 #17684 [verbose] > │ v44 │
00:07:00 #17685 [verbose] > │ v37.[int v40] <- v45 │
00:07:00 #17686 [verbose] > │ let v46 : int32 = v40 + 1 │
00:07:00 #17687 [verbose] > │ v38.l0 <- v46 │
00:07:00 #17688 [verbose] > │ () │
00:07:00 #17689 [verbose] > │ v1.l0 <- v37 │
00:07:00 #17690 [verbose] > │ let v47 : (int32 []) = v1.l0 │
00:07:00 #17691 [verbose] > │ let v48 : (int32 []) = [|3|] │
00:07:00 #17692 [verbose] > │ let v49 : int32 = v47.Length │
00:07:00 #17693 [verbose] > │ let v50 : int32 = v48.Length │
00:07:00 #17694 [verbose] > │ let v51 : int32 = v49 + v50 │
00:07:00 #17695 [verbose] > │ let v52 : (int32 []) = Array.zeroCreate<int32> (v51) │
00:07:00 #17696 [verbose] > │ let v53 : Mut1 = {l0 = 0} : Mut1 │
00:07:00 #17697 [verbose] > │ while method1(v51, v53) do │
00:07:00 #17698 [verbose] > │ let v55 : int32 = v53.l0 │
00:07:00 #17699 [verbose] > │ let v56 : bool = v55 < v49 │
00:07:00 #17700 [verbose] > │ let v60 : int32 = │
00:07:00 #17701 [verbose] > │ if v56 then │
00:07:00 #17702 [verbose] > │ let v57 : int32 = v47.[int v55] │
00:07:00 #17703 [verbose] > │ v57 │
00:07:00 #17704 [verbose] > │ else │
00:07:00 #17705 [verbose] > │ let v58 : int32 = v55 - v49 │
00:07:00 #17706 [verbose] > │ let v59 : int32 = v48.[int v58] │
00:07:00 #17707 [verbose] > │ v59 │
00:07:00 #17708 [verbose] > │ v52.[int v55] <- v60 │
00:07:00 #17709 [verbose] > │ let v61 : int32 = v55 + 1 │
00:07:00 #17710 [verbose] > │ v53.l0 <- v61 │
00:07:00 #17711 [verbose] > │ () │
00:07:00 #17712 [verbose] > │ v1.l0 <- v52 │
00:07:00 #17713 [verbose] > │ let v62 : (int32 []) = v1.l0 │
00:07:00 #17714 [verbose] > │ let v63 : (int32 []) = [|4|] │
00:07:00 #17715 [verbose] > │ let v64 : int32 = v62.Length │
00:07:00 #17716 [verbose] > │ let v65 : int32 = v63.Length │
00:07:00 #17717 [verbose] > │ let v66 : int32 = v64 + v65 │
00:07:00 #17718 [verbose] > │ let v67 : (int32 []) = Array.zeroCreate<int32> (v66) │
00:07:00 #17719 [verbose] > │ let v68 : Mut1 = {l0 = 0} : Mut1 │
00:07:00 #17720 [verbose] > │ while method1(v66, v68) do │
00:07:00 #17721 [verbose] > │ let v70 : int32 = v68.l0 │
00:07:00 #17722 [verbose] > │ let v71 : bool = v70 < v64 │
00:07:00 #17723 [verbose] > │ let v75 : int32 = │
00:07:00 #17724 [verbose] > │ if v71 then │
00:07:00 #17725 [verbose] > │ let v72 : int32 = v62.[int v70] │
00:07:00 #17726 [verbose] > │ v72 │
00:07:00 #17727 [verbose] > │ else │
00:07:00 #17728 [verbose] > │ let v73 : int32 = v70 - v64 │
00:07:00 #17729 [verbose] > │ let v74 : int32 = v63.[int v73] │
00:07:00 #17730 [verbose] > │ v74 │
00:07:00 #17731 [verbose] > │ v67.[int v70] <- v75 │
00:07:00 #17732 [verbose] > │ let v76 : int32 = v70 + 1 │
00:07:00 #17733 [verbose] > │ v68.l0 <- v76 │
00:07:00 #17734 [verbose] > │ () │
00:07:00 #17735 [verbose] > │ v1.l0 <- v67 │
00:07:00 #17736 [verbose] > │ let v77 : (int32 []) = v1.l0 │
00:07:00 #17737 [verbose] > │ let v78 : (int32 []) = [|5|] │
00:07:00 #17738 [verbose] > │ let v79 : int32 = v77.Length │
00:07:00 #17739 [verbose] > │ let v80 : int32 = v78.Length │
00:07:00 #17740 [verbose] > │ let v81 : int32 = v79 + v80 │
00:07:00 #17741 [verbose] > │ let v82 : (int32 []) = Array.zeroCreate<int32> (v81) │
00:07:00 #17742 [verbose] > │ let v83 : Mut1 = {l0 = 0} : Mut1 │
00:07:00 #17743 [verbose] > │ while method1(v81, v83) do │
00:07:00 #17744 [verbose] > │ let v85 : int32 = v83.l0 │
00:07:00 #17745 [verbose] > │ let v86 : bool = v85 < v79 │
00:07:00 #17746 [verbose] > │ let v90 : int32 = │
00:07:00 #17747 [verbose] > │ if v86 then │
00:07:00 #17748 [verbose] > │ let v87 : int32 = v77.[int v85] │
00:07:00 #17749 [verbose] > │ v87 │
00:07:00 #17750 [verbose] > │ else │
00:07:00 #17751 [verbose] > │ let v88 : int32 = v85 - v79 │
00:07:00 #17752 [verbose] > │ let v89 : int32 = v78.[int v88] │
00:07:00 #17753 [verbose] > │ v89 │
00:07:00 #17754 [verbose] > │ v82.[int v85] <- v90 │
00:07:00 #17755 [verbose] > │ let v91 : int32 = v85 + 1 │
00:07:00 #17756 [verbose] > │ v83.l0 <- v91 │
00:07:00 #17757 [verbose] > │ () │
00:07:00 #17758 [verbose] > │ v1.l0 <- v82 │
00:07:00 #17759 [verbose] > │ let v92 : (int32 []) = v1.l0 │
00:07:00 #17760 [verbose] > │ let v93 : (int32 []) = [|6|] │
00:07:00 #17761 [verbose] > │ let v94 : int32 = v92.Length │
00:07:00 #17762 [verbose] > │ let v95 : int32 = v93.Length │
00:07:00 #17763 [verbose] > │ let v96 : int32 = v94 + v95 │
00:07:00 #17764 [verbose] > │ let v97 : (int32 []) = Array.zeroCreate<int32> (v96) │
00:07:00 #17765 [verbose] > │ let v98 : Mut1 = {l0 = 0} : Mut1 │
00:07:00 #17766 [verbose] > │ while method1(v96, v98) do │
00:07:00 #17767 [verbose] > │ let v100 : int32 = v98.l0 │
00:07:00 #17768 [verbose] > │ let v101 : bool = v100 < v94 │
00:07:00 #17769 [verbose] > │ let v105 : int32 = │
00:07:00 #17770 [verbose] > │ if v101 then │
00:07:00 #17771 [verbose] > │ let v102 : int32 = v92.[int v100] │
00:07:00 #17772 [verbose] > │ v102 │
00:07:00 #17773 [verbose] > │ else │
00:07:00 #17774 [verbose] > │ let v103 : int32 = v100 - v94 │
00:07:00 #17775 [verbose] > │ let v104 : int32 = v93.[int v103] │
00:07:00 #17776 [verbose] > │ v104 │
00:07:00 #17777 [verbose] > │ v97.[int v100] <- v105 │
00:07:00 #17778 [verbose] > │ let v106 : int32 = v100 + 1 │
00:07:00 #17779 [verbose] > │ v98.l0 <- v106 │
00:07:00 #17780 [verbose] > │ () │
00:07:00 #17781 [verbose] > │ v1.l0 <- v97 │
00:07:00 #17782 [verbose] > │ let v107 : (int32 []) = v1.l0 │
00:07:00 #17783 [verbose] > │ let v108 : (int32 []) = [|7|] │
00:07:00 #17784 [verbose] > │ let v109 : int32 = v107.Length │
00:07:00 #17785 [verbose] > │ let v110 : int32 = v108.Length │
00:07:00 #17786 [verbose] > │ let v111 : int32 = v109 + v110 │
00:07:00 #17787 [verbose] > │ let v112 : (int32 []) = Array.zeroCreate<int32> (v111) │
00:07:00 #17788 [verbose] > │ let v113 : Mut1 = {l0 = 0} : Mut1 │
00:07:00 #17789 [verbose] > │ while method1(v111, v113) do │
00:07:00 #17790 [verbose] > │ let v115 : int32 = v113.l0 │
00:07:00 #17791 [verbose] > │ let v116 : bool = v115 < v109 │
00:07:00 #17792 [verbose] > │ let v120 : int32 = │
00:07:00 #17793 [verbose] > │ if v116 then │
00:07:00 #17794 [verbose] > │ let v117 : int32 = v107.[int v115] │
00:07:00 #17795 [verbose] > │ v117 │
00:07:00 #17796 [verbose] > │ else │
00:07:00 #17797 [verbose] > │ let v118 : int32 = v115 - v109 │
00:07:00 #17798 [verbose] > │ let v119 : int32 = v108.[int v118] │
00:07:00 #17799 [verbose] > │ v119 │
00:07:00 #17800 [verbose] > │ v112.[int v115] <- v120 │
00:07:00 #17801 [verbose] > │ let v121 : int32 = v115 + 1 │
00:07:00 #17802 [verbose] > │ v113.l0 <- v121 │
00:07:00 #17803 [verbose] > │ () │
00:07:00 #17804 [verbose] > │ v1.l0 <- v112 │
00:07:00 #17805 [verbose] > │ let v122 : (int32 []) = v1.l0 │
00:07:00 #17806 [verbose] > │ let v123 : (int32 []) = [|8|] │
00:07:00 #17807 [verbose] > │ let v124 : int32 = v122.Length │
00:07:00 #17808 [verbose] > │ let v125 : int32 = v123.Length │
00:07:00 #17809 [verbose] > │ let v126 : int32 = v124 + v125 │
00:07:00 #17810 [verbose] > │ let v127 : (int32 []) = Array.zeroCreate<int32> (v126) │
00:07:00 #17811 [verbose] > │ let v128 : Mut1 = {l0 = 0} : Mut1 │
00:07:00 #17812 [verbose] > │ while method1(v126, v128) do │
00:07:00 #17813 [verbose] > │ let v130 : int32 = v128.l0 │
00:07:00 #17814 [verbose] > │ let v131 : bool = v130 < v124 │
00:07:00 #17815 [verbose] > │ let v135 : int32 = │
00:07:00 #17816 [verbose] > │ if v131 then │
00:07:00 #17817 [verbose] > │ let v132 : int32 = v122.[int v130] │
00:07:00 #17818 [verbose] > │ v132 │
00:07:00 #17819 [verbose] > │ else │
00:07:00 #17820 [verbose] > │ let v133 : int32 = v130 - v124 │
00:07:00 #17821 [verbose] > │ let v134 : int32 = v123.[int v133] │
00:07:00 #17822 [verbose] > │ v134 │
00:07:00 #17823 [verbose] > │ v127.[int v130] <- v135 │
00:07:00 #17824 [verbose] > │ let v136 : int32 = v130 + 1 │
00:07:00 #17825 [verbose] > │ v128.l0 <- v136 │
00:07:00 #17826 [verbose] > │ () │
00:07:00 #17827 [verbose] > │ v1.l0 <- v127 │
00:07:00 #17828 [verbose] > │ let v137 : (int32 []) = v1.l0 │
00:07:00 #17829 [verbose] > │ let v138 : (int32 []) = [|9|] │
00:07:00 #17830 [verbose] > │ let v139 : int32 = v137.Length │
00:07:00 #17831 [verbose] > │ let v140 : int32 = v138.Length │
00:07:00 #17832 [verbose] > │ let v141 : int32 = v139 + v140 │
00:07:00 #17833 [verbose] > │ let v142 : (int32 []) = Array.zeroCreate<int32> (v141) │
00:07:00 #17834 [verbose] > │ let v143 : Mut1 = {l0 = 0} : Mut1 │
00:07:00 #17835 [verbose] > │ while method1(v141, v143) do │
00:07:00 #17836 [verbose] > │ let v145 : int32 = v143.l0 │
00:07:00 #17837 [verbose] > │ let v146 : bool = v145 < v139 │
00:07:00 #17838 [verbose] > │ let v150 : int32 = │
00:07:00 #17839 [verbose] > │ if v146 then │
00:07:00 #17840 [verbose] > │ let v147 : int32 = v137.[int v145] │
00:07:00 #17841 [verbose] > │ v147 │
00:07:00 #17842 [verbose] > │ else │
00:07:00 #17843 [verbose] > │ let v148 : int32 = v145 - v139 │
00:07:00 #17844 [verbose] > │ let v149 : int32 = v138.[int v148] │
00:07:00 #17845 [verbose] > │ v149 │
00:07:00 #17846 [verbose] > │ v142.[int v145] <- v150 │
00:07:00 #17847 [verbose] > │ let v151 : int32 = v145 + 1 │
00:07:00 #17848 [verbose] > │ v143.l0 <- v151 │
00:07:00 #17849 [verbose] > │ () │
00:07:00 #17850 [verbose] > │ v1.l0 <- v142 │
00:07:00 #17851 [verbose] > │ let v152 : (int32 []) = v1.l0 │
00:07:00 #17852 [verbose] > │ let v153 : (int32 []) = [|0; 1; 2; 3; 4; 5; 6; 7; 8; 9|] │
00:07:00 #17853 [verbose] > │ let v154 : string = $"%A{v152}" │
00:07:00 #17854 [verbose] > │ System.Console.WriteLine v154 │
00:07:00 #17855 [verbose] > │ let v155 : int32 = v152.Length │
00:07:00 #17856 [verbose] > │ let v156 : int32 = v153.Length │
00:07:00 #17857 [verbose] > │ let v157 : bool = v155 = v156 │
00:07:00 #17858 [verbose] > │ let v158 : bool = v157 <> true │
00:07:00 #17859 [verbose] > │ let v161 : bool = │
00:07:00 #17860 [verbose] > │ if v158 then │
00:07:00 #17861 [verbose] > │ false │
00:07:00 #17862 [verbose] > │ else │
00:07:00 #17863 [verbose] > │ let v159 : int32 = 0 │
00:07:00 #17864 [verbose] > │ method2(v152, v153, v159) │
00:07:00 #17865 [verbose] > │ let v163 : bool = │
00:07:00 #17866 [verbose] > │ if v161 then │
00:07:00 #17867 [verbose] > │ true │
00:07:00 #17868 [verbose] > │ else │
00:07:00 #17869 [verbose] > │ method3(v161) │
00:07:00 #17870 [verbose] > │ let v164 : string = $"__expect / actual: %A{v152} / expected: %A{v153}" │
00:07:00 #17871 [verbose] > │ let v165 : bool = v163 = false │
00:07:00 #17872 [verbose] > │ if v165 then │
00:07:00 #17873 [verbose] > │ failwith<unit> v164 │
00:07:00 #17874 [verbose] > │ method0() │
00:07:00 #17875 [verbose] > │ │
00:07:00 #17876 [verbose] > │ [|0; 1; 2; 3; 4; 5; 6; 7; 8; 9|] │
00:07:00 #17877 [verbose] > │ │
00:07:00 #17878 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:00 #17879 [verbose] >
00:07:00 #17880 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:00 #17881 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:00 #17882 [verbose] > │ ## take_while │
00:07:00 #17883 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:00 #17884 [verbose] >
00:07:00 #17885 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:00 #17886 [verbose] > inl take_while cond seq =
00:07:00 #17887 [verbose] > inl rec loop acc i =
00:07:00 #17888 [verbose] > match seq i with
00:07:00 #17889 [verbose] > | Some st when cond st i => loop (st :: acc) (i + 1)
00:07:00 #17890 [verbose] > | _ => acc |> listm.rev
00:07:00 #17891 [verbose] > loop [[]] 0
00:07:00 #17892 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c835a9d6b263e6b6845ca92cffd72b89f9f2b6ba2b84b1a01574576560b0403e\main.spi
00:07:00 #17893 [verbose] >
00:07:00 #17894 [verbose] > ╭─[ 221.33ms - stdout ]────────────────────────────────────────────────────────╮
00:07:00 #17895 [verbose] > │ () │
00:07:00 #17896 [verbose] > │ │
00:07:00 #17897 [verbose] > │ │
00:07:00 #17898 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:00 #17899 [verbose] >
00:07:00 #17900 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:00 #17901 [verbose] > // // test
00:07:00 #17902 [verbose] >
00:07:00 #17903 [verbose] > listm.init 10i32 id
00:07:00 #17904 [verbose] > |> from_list
00:07:00 #17905 [verbose] > |> take_while (fun n (_ : i32) => n < 5)
00:07:00 #17906 [verbose] > |> listm'.sum
00:07:00 #17907 [verbose] > |> _assert_eq 10
00:07:00 #17908 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e36d8fc435e3f3619e5d20dbfa81adbf40c8ec144094dc2283e3b5fd3edb6f88\main.spi
00:07:01 #17909 [verbose] >
00:07:01 #17910 [verbose] > ╭─[ 238.17ms - stdout ]────────────────────────────────────────────────────────╮
00:07:01 #17911 [verbose] > │ let rec method0 () : unit = │
00:07:01 #17912 [verbose] > │ let v0 : string = $"%A{10}" │
00:07:01 #17913 [verbose] > │ System.Console.WriteLine v0 │
00:07:01 #17914 [verbose] > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:07:01 #17915 [verbose] > │ () │
00:07:01 #17916 [verbose] > │ method0() │
00:07:01 #17917 [verbose] > │ │
00:07:01 #17918 [verbose] > │ 10 │
00:07:01 #17919 [verbose] > │ │
00:07:01 #17920 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:01 #17921 [verbose] >
00:07:01 #17922 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:01 #17923 [verbose] > // // test
00:07:01 #17924 [verbose] >
00:07:01 #17925 [verbose] > stream.new_finite_stream print_and_return 10i32
00:07:01 #17926 [verbose] > |> flip stream.try_item
00:07:01 #17927 [verbose] > |> take_while (fun n (_ : i32) => n < 5)
00:07:01 #17928 [verbose] > |> listm'.sum
00:07:01 #17929 [verbose] > |> _assert_eq 10
00:07:01 #17930 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e250906b6d08e1adbde8baf632c9ea19a71b8058058d7cd13451410973f1db53\main.spi
00:07:01 #17931 [verbose] >
00:07:01 #17932 [verbose] > ╭─[ 266.50ms - stdout ]────────────────────────────────────────────────────────╮
00:07:01 #17933 [verbose] > │ let rec method0 () : unit = │
00:07:01 #17934 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:07:01 #17935 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:07:01 #17936 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:07:01 #17937 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:07:01 #17938 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:07:01 #17939 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:07:01 #17940 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:07:01 #17941 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:07:01 #17942 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:07:01 #17943 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:07:01 #17944 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:07:01 #17945 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:07:01 #17946 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:07:01 #17947 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:07:01 #17948 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:07:01 #17949 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:07:01 #17950 [verbose] > │ let v0 : string = $"%A{10}" │
00:07:01 #17951 [verbose] > │ System.Console.WriteLine v0 │
00:07:01 #17952 [verbose] > │ let v1 : string = $"__expect / actual: %A{10} / expected: %A{10}" │
00:07:01 #17953 [verbose] > │ () │
00:07:01 #17954 [verbose] > │ method0() │
00:07:01 #17955 [verbose] > │ │
00:07:01 #17956 [verbose] > │ print_and_return / x: 0 │
00:07:01 #17957 [verbose] > │ print_and_return / x: 1 │
00:07:01 #17958 [verbose] > │ print_and_return / x: 1 │
00:07:01 #17959 [verbose] > │ print_and_return / x: 2 │
00:07:01 #17960 [verbose] > │ print_and_return / x: 1 │
00:07:01 #17961 [verbose] > │ print_and_return / x: 2 │
00:07:01 #17962 [verbose] > │ print_and_return / x: 3 │
00:07:01 #17963 [verbose] > │ print_and_return / x: 1 │
00:07:01 #17964 [verbose] > │ print_and_return / x: 2 │
00:07:01 #17965 [verbose] > │ print_and_return / x: 3 │
00:07:01 #17966 [verbose] > │ print_and_return / x: 4 │
00:07:01 #17967 [verbose] > │ print_and_return / x: 1 │
00:07:01 #17968 [verbose] > │ print_and_return / x: 2 │
00:07:01 #17969 [verbose] > │ print_and_return / x: 3 │
00:07:01 #17970 [verbose] > │ print_and_return / x: 4 │
00:07:01 #17971 [verbose] > │ print_and_return / x: 5 │
00:07:01 #17972 [verbose] > │ 10 │
00:07:01 #17973 [verbose] > │ │
00:07:01 #17974 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:01 #17975 [verbose] >
00:07:01 #17976 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:01 #17977 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:01 #17978 [verbose] > │ ## take_while_ │
00:07:01 #17979 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:01 #17980 [verbose] >
00:07:01 #17981 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:01 #17982 [verbose] > inl take_while_ cond seq =
00:07:01 #17983 [verbose] > let rec loop acc i =
00:07:01 #17984 [verbose] > match seq i with
00:07:01 #17985 [verbose] > | Some st when cond st i => loop (st :: acc) (i + 1)
00:07:01 #17986 [verbose] > | _ => acc |> listm.rev
00:07:01 #17987 [verbose] > loop [[]] 0
00:07:01 #17988 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\58313e211b09d1d3d04ab759655ae72155d976bddbcdfaa6ef0c495ed2ec34c7\main.spi
00:07:01 #17989 [verbose] >
00:07:01 #17990 [verbose] > ╭─[ 225.66ms - stdout ]────────────────────────────────────────────────────────╮
00:07:01 #17991 [verbose] > │ () │
00:07:01 #17992 [verbose] > │ │
00:07:01 #17993 [verbose] > │ │
00:07:01 #17994 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:01 #17995 [verbose] >
00:07:01 #17996 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:01 #17997 [verbose] > // // test
00:07:01 #17998 [verbose] >
00:07:01 #17999 [verbose] > stream.new_infinite_stream_ print_and_return
00:07:01 #18000 [verbose] > |> flip stream.try_item
00:07:01 #18001 [verbose] > |> take_while_ (fun n (_ : i32) => n < 5i32)
00:07:01 #18002 [verbose] > |> listm'.sum
00:07:01 #18003 [verbose] > |> _assert_eq 10
00:07:01 #18004 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\37cfe3fe566c5d4b0258724672710f23b6eacede177d43e02196cd2191fdb906\main.spi
00:07:02 #18005 [verbose] >
00:07:02 #18006 [verbose] > ╭─[ 420.85ms - stdout ]────────────────────────────────────────────────────────╮
00:07:02 #18007 [verbose] > │ type UH0 = │
00:07:02 #18008 [verbose] > │ | UH0_0 of int32 * (unit -> UH0) │
00:07:02 #18009 [verbose] > │ | UH0_1 │
00:07:02 #18010 [verbose] > │ and UH1 = │
00:07:02 #18011 [verbose] > │ | UH1_0 │
00:07:02 #18012 [verbose] > │ | UH1_1 of int32 * UH1 │
00:07:02 #18013 [verbose] > │ and [<Struct>] US0 = │
00:07:02 #18014 [verbose] > │ | US0_0 of f0_0 : int32 │
00:07:02 #18015 [verbose] > │ | US0_1 │
00:07:02 #18016 [verbose] > │ let rec closure0 (v0 : int32) () : UH0 = │
00:07:02 #18017 [verbose] > │ let v1 : int32 = v0 + 1 │
00:07:02 #18018 [verbose] > │ method1(v1) │
00:07:02 #18019 [verbose] > │ and method1 (v0 : int32) : UH0 = │
00:07:02 #18020 [verbose] > │ printfn $"print_and_return / x: {v0}" │
00:07:02 #18021 [verbose] > │ let v1 : (unit -> UH0) = closure0(v0) │
00:07:02 #18022 [verbose] > │ UH0_0(v0, v1) │
00:07:02 #18023 [verbose] > │ and method3 (v0 : int32, v1 : UH0) : US0 = │
00:07:02 #18024 [verbose] > │ match v1 with │
00:07:02 #18025 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:07:02 #18026 [verbose] > │ let v4 : bool = v0 <= 0 │
00:07:02 #18027 [verbose] > │ if v4 then │
00:07:02 #18028 [verbose] > │ US0_0(v2) │
00:07:02 #18029 [verbose] > │ else │
00:07:02 #18030 [verbose] > │ let v6 : int32 = v0 - 1 │
00:07:02 #18031 [verbose] > │ let v7 : UH0 = v3 () │
00:07:02 #18032 [verbose] > │ method3(v6, v7) │
00:07:02 #18033 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:02 #18034 [verbose] > │ US0_1 │
00:07:02 #18035 [verbose] > │ and method4 (v0 : UH1, v1 : UH1) : UH1 = │
00:07:02 #18036 [verbose] > │ match v0 with │
00:07:02 #18037 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:07:02 #18038 [verbose] > │ let v4 : UH1 = UH1_1(v2, v1) │
00:07:02 #18039 [verbose] > │ method4(v3, v4) │
00:07:02 #18040 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:02 #18041 [verbose] > │ v1 │
00:07:02 #18042 [verbose] > │ and method2 (v0 : UH0, v1 : UH1, v2 : int32) : UH1 = │
00:07:02 #18043 [verbose] > │ let v3 : US0 = method3(v2, v0) │
00:07:02 #18044 [verbose] > │ match v3 with │
00:07:02 #18045 [verbose] > │ | US0_0(v4) -> (* Some *) │
00:07:02 #18046 [verbose] > │ let v5 : bool = v4 < 5 │
00:07:02 #18047 [verbose] > │ if v5 then │
00:07:02 #18048 [verbose] > │ let v6 : UH1 = UH1_1(v4, v1) │
00:07:02 #18049 [verbose] > │ let v7 : int32 = v2 + 1 │
00:07:02 #18050 [verbose] > │ method2(v0, v6, v7) │
00:07:02 #18051 [verbose] > │ else │
00:07:02 #18052 [verbose] > │ let v9 : UH1 = UH1_0 │
00:07:02 #18053 [verbose] > │ method4(v1, v9) │
00:07:02 #18054 [verbose] > │ | _ -> │
00:07:02 #18055 [verbose] > │ let v12 : UH1 = UH1_0 │
00:07:02 #18056 [verbose] > │ method4(v1, v12) │
00:07:02 #18057 [verbose] > │ and method5 (v0 : UH1, v1 : int32) : int32 = │
00:07:02 #18058 [verbose] > │ match v0 with │
00:07:02 #18059 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:07:02 #18060 [verbose] > │ let v4 : int32 = v1 + v2 │
00:07:02 #18061 [verbose] > │ method5(v3, v4) │
00:07:02 #18062 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:02 #18063 [verbose] > │ v1 │
00:07:02 #18064 [verbose] > │ and method6 (v0 : bool) : bool = │
00:07:02 #18065 [verbose] > │ v0 │
00:07:02 #18066 [verbose] > │ and method0 () : unit = │
00:07:02 #18067 [verbose] > │ let v0 : int32 = 0 │
00:07:02 #18068 [verbose] > │ let v1 : UH0 = method1(v0) │
00:07:02 #18069 [verbose] > │ let v2 : UH1 = UH1_0 │
00:07:02 #18070 [verbose] > │ let v3 : int32 = 0 │
00:07:02 #18071 [verbose] > │ let v4 : UH1 = method2(v1, v2, v3) │
00:07:02 #18072 [verbose] > │ let v5 : int32 = 0 │
00:07:02 #18073 [verbose] > │ let v6 : int32 = method5(v4, v5) │
00:07:02 #18074 [verbose] > │ let v7 : string = $"%A{v6}" │
00:07:02 #18075 [verbose] > │ System.Console.WriteLine v7 │
00:07:02 #18076 [verbose] > │ let v8 : bool = v6 = 10 │
00:07:02 #18077 [verbose] > │ let v10 : bool = │
00:07:02 #18078 [verbose] > │ if v8 then │
00:07:02 #18079 [verbose] > │ true │
00:07:02 #18080 [verbose] > │ else │
00:07:02 #18081 [verbose] > │ method6(v8) │
00:07:02 #18082 [verbose] > │ let v11 : string = $"__expect / actual: %A{v6} / expected: %A{10}" │
00:07:02 #18083 [verbose] > │ let v12 : bool = v10 = false │
00:07:02 #18084 [verbose] > │ if v12 then │
00:07:02 #18085 [verbose] > │ failwith<unit> v11 │
00:07:02 #18086 [verbose] > │ method0() │
00:07:02 #18087 [verbose] > │ │
00:07:02 #18088 [verbose] > │ print_and_return / x: 0 │
00:07:02 #18089 [verbose] > │ print_and_return / x: 1 │
00:07:02 #18090 [verbose] > │ print_and_return / x: 1 │
00:07:02 #18091 [verbose] > │ print_and_return / x: 2 │
00:07:02 #18092 [verbose] > │ print_and_return / x: 1 │
00:07:02 #18093 [verbose] > │ print_and_return / x: 2 │
00:07:02 #18094 [verbose] > │ print_and_return / x: 3 │
00:07:02 #18095 [verbose] > │ print_and_return / x: 1 │
00:07:02 #18096 [verbose] > │ print_and_return / x: 2 │
00:07:02 #18097 [verbose] > │ print_and_return / x: 3 │
00:07:02 #18098 [verbose] > │ print_and_return / x: 4 │
00:07:02 #18099 [verbose] > │ print_and_return / x: 1 │
00:07:02 #18100 [verbose] > │ print_and_return / x: 2 │
00:07:02 #18101 [verbose] > │ print_and_return / x: 3 │
00:07:02 #18102 [verbose] > │ print_and_return / x: 4 │
00:07:02 #18103 [verbose] > │ print_and_return / x: 5 │
00:07:02 #18104 [verbose] > │ 10 │
00:07:02 #18105 [verbose] > │ │
00:07:02 #18106 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:02 #18107 [verbose] >
00:07:02 #18108 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:02 #18109 [verbose] > // // test
00:07:02 #18110 [verbose] >
00:07:02 #18111 [verbose] > stream.new_infinite_stream_ print_and_return
00:07:02 #18112 [verbose] > |> stream.memoize
00:07:02 #18113 [verbose] > |> fun list =>
00:07:02 #18114 [verbose] > inl list = list ()
00:07:02 #18115 [verbose] > fun n =>
00:07:02 #18116 [verbose] > list |> stream.try_item n
00:07:02 #18117 [verbose] > |> take_while_ (fun n (_ : i32) => n < 5i32)
00:07:02 #18118 [verbose] > |> listm'.sum
00:07:02 #18119 [verbose] > |> _assert_eq 10
00:07:02 #18120 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\69b1402b68e84bc9fb791b6fb236425a74a1669c8a085186c8e423710380900b\main.spi
00:07:02 #18121 [verbose] >
00:07:02 #18122 [verbose] > ╭─[ 388.04ms - stdout ]────────────────────────────────────────────────────────╮
00:07:02 #18123 [verbose] > │ type UH0 = │
00:07:02 #18124 [verbose] > │ | UH0_0 of int32 * (unit -> UH0) │
00:07:02 #18125 [verbose] > │ | UH0_1 │
00:07:02 #18126 [verbose] > │ and [<Struct>] US0 = │
00:07:02 #18127 [verbose] > │ | US0_0 of f0_0 : (unit -> UH0) │
00:07:02 #18128 [verbose] > │ | US0_1 of f1_0 : UH0 │
00:07:02 #18129 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:07:02 #18130 [verbose] > │ and UH1 = │
00:07:02 #18131 [verbose] > │ | UH1_0 │
00:07:02 #18132 [verbose] > │ | UH1_1 of int32 * UH1 │
00:07:02 #18133 [verbose] > │ and [<Struct>] US1 = │
00:07:02 #18134 [verbose] > │ | US1_0 of f0_0 : int32 │
00:07:02 #18135 [verbose] > │ | US1_1 │
00:07:02 #18136 [verbose] > │ let rec closure0 (v0 : int32) () : UH0 = │
00:07:02 #18137 [verbose] > │ let v1 : int32 = v0 + 1 │
00:07:02 #18138 [verbose] > │ method1(v1) │
00:07:02 #18139 [verbose] > │ and method1 (v0 : int32) : UH0 = │
00:07:02 #18140 [verbose] > │ printfn $"print_and_return / x: {v0}" │
00:07:02 #18141 [verbose] > │ let v1 : (unit -> UH0) = closure0(v0) │
00:07:02 #18142 [verbose] > │ UH0_0(v0, v1) │
00:07:02 #18143 [verbose] > │ and closure1 (v0 : UH0) () : UH0 = │
00:07:02 #18144 [verbose] > │ v0 │
00:07:02 #18145 [verbose] > │ and closure2 (v0 : UH0, v1 : Mut0) () : UH0 = │
00:07:02 #18146 [verbose] > │ let v2 : US0 = v1.l0 │
00:07:02 #18147 [verbose] > │ match v2 with │
00:07:02 #18148 [verbose] > │ | US0_1(v3) -> (* Computed *) │
00:07:02 #18149 [verbose] > │ v3 │
00:07:02 #18150 [verbose] > │ | US0_0(v4) -> (* NotComputed *) │
00:07:02 #18151 [verbose] > │ let v5 : UH0 = v4 () │
00:07:02 #18152 [verbose] > │ let v12 : UH0 = │
00:07:02 #18153 [verbose] > │ match v5 with │
00:07:02 #18154 [verbose] > │ | UH0_0(v7, v8) -> (* StreamCons *) │
00:07:02 #18155 [verbose] > │ let v9 : (unit -> UH0) = method2(v0, v8) │
00:07:02 #18156 [verbose] > │ UH0_0(v7, v9) │
00:07:02 #18157 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:02 #18158 [verbose] > │ UH0_1 │
00:07:02 #18159 [verbose] > │ let v13 : US0 = US0_1(v12) │
00:07:02 #18160 [verbose] > │ v1.l0 <- v13 │
00:07:02 #18161 [verbose] > │ v12 │
00:07:02 #18162 [verbose] > │ and method2 (v0 : UH0, v1 : (unit -> UH0)) : (unit -> UH0) = │
00:07:02 #18163 [verbose] > │ let v2 : US0 = US0_0(v1) │
00:07:02 #18164 [verbose] > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:07:02 #18165 [verbose] > │ closure2(v0, v3) │
00:07:02 #18166 [verbose] > │ and method4 (v0 : int32, v1 : UH0) : US1 = │
00:07:02 #18167 [verbose] > │ match v1 with │
00:07:02 #18168 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:07:02 #18169 [verbose] > │ let v4 : bool = v0 <= 0 │
00:07:02 #18170 [verbose] > │ if v4 then │
00:07:02 #18171 [verbose] > │ US1_0(v2) │
00:07:02 #18172 [verbose] > │ else │
00:07:02 #18173 [verbose] > │ let v6 : int32 = v0 - 1 │
00:07:02 #18174 [verbose] > │ let v7 : UH0 = v3 () │
00:07:02 #18175 [verbose] > │ method4(v6, v7) │
00:07:02 #18176 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:02 #18177 [verbose] > │ US1_1 │
00:07:02 #18178 [verbose] > │ and method5 (v0 : UH1, v1 : UH1) : UH1 = │
00:07:02 #18179 [verbose] > │ match v0 with │
00:07:02 #18180 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:07:02 #18181 [verbose] > │ let v4 : UH1 = UH1_1(v2, v1) │
00:07:02 #18182 [verbose] > │ method5(v3, v4) │
00:07:02 #18183 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:02 #18184 [verbose] > │ v1 │
00:07:02 #18185 [verbose] > │ and method3 (v0 : UH0, v1 : UH1, v2 : int32) : UH1 = │
00:07:02 #18186 [verbose] > │ let v3 : US1 = method4(v2, v0) │
00:07:02 #18187 [verbose] > │ match v3 with │
00:07:02 #18188 [verbose] > │ | US1_0(v4) -> (* Some *) │
00:07:02 #18189 [verbose] > │ let v5 : bool = v4 < 5 │
00:07:02 #18190 [verbose] > │ if v5 then │
00:07:02 #18191 [verbose] > │ let v6 : UH1 = UH1_1(v4, v1) │
00:07:02 #18192 [verbose] > │ let v7 : int32 = v2 + 1 │
00:07:02 #18193 [verbose] > │ method3(v0, v6, v7) │
00:07:02 #18194 [verbose] > │ else │
00:07:02 #18195 [verbose] > │ let v9 : UH1 = UH1_0 │
00:07:02 #18196 [verbose] > │ method5(v1, v9) │
00:07:02 #18197 [verbose] > │ | _ -> │
00:07:02 #18198 [verbose] > │ let v12 : UH1 = UH1_0 │
00:07:02 #18199 [verbose] > │ method5(v1, v12) │
00:07:02 #18200 [verbose] > │ and method6 (v0 : UH1, v1 : int32) : int32 = │
00:07:02 #18201 [verbose] > │ match v0 with │
00:07:02 #18202 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:07:02 #18203 [verbose] > │ let v4 : int32 = v1 + v2 │
00:07:02 #18204 [verbose] > │ method6(v3, v4) │
00:07:02 #18205 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:02 #18206 [verbose] > │ v1 │
00:07:02 #18207 [verbose] > │ and method7 (v0 : bool) : bool = │
00:07:02 #18208 [verbose] > │ v0 │
00:07:02 #18209 [verbose] > │ and method0 () : unit = │
00:07:02 #18210 [verbose] > │ let v0 : int32 = 0 │
00:07:02 #18211 [verbose] > │ let v1 : UH0 = method1(v0) │
00:07:02 #18212 [verbose] > │ let v2 : (unit -> UH0) = closure1(v1) │
00:07:02 #18213 [verbose] > │ let v3 : (unit -> UH0) = method2(v1, v2) │
00:07:02 #18214 [verbose] > │ let v4 : UH0 = v3 () │
00:07:02 #18215 [verbose] > │ let v5 : UH1 = UH1_0 │
00:07:02 #18216 [verbose] > │ let v6 : int32 = 0 │
00:07:02 #18217 [verbose] > │ let v7 : UH1 = method3(v4, v5, v6) │
00:07:02 #18218 [verbose] > │ let v8 : int32 = 0 │
00:07:02 #18219 [verbose] > │ let v9 : int32 = method6(v7, v8) │
00:07:02 #18220 [verbose] > │ let v10 : string = $"%A{v9}" │
00:07:02 #18221 [verbose] > │ System.Console.WriteLine v10 │
00:07:02 #18222 [verbose] > │ let v11 : bool = v9 = 10 │
00:07:02 #18223 [verbose] > │ let v13 : bool = │
00:07:02 #18224 [verbose] > │ if v11 then │
00:07:02 #18225 [verbose] > │ true │
00:07:02 #18226 [verbose] > │ else │
00:07:02 #18227 [verbose] > │ method7(v11) │
00:07:02 #18228 [verbose] > │ let v14 : string = $"__expect / actual: %A{v9} / expected: %A{10}" │
00:07:02 #18229 [verbose] > │ let v15 : bool = v13 = false │
00:07:02 #18230 [verbose] > │ if v15 then │
00:07:02 #18231 [verbose] > │ failwith<unit> v14 │
00:07:02 #18232 [verbose] > │ method0() │
00:07:02 #18233 [verbose] > │ │
00:07:02 #18234 [verbose] > │ print_and_return / x: 0 │
00:07:02 #18235 [verbose] > │ print_and_return / x: 1 │
00:07:02 #18236 [verbose] > │ print_and_return / x: 2 │
00:07:02 #18237 [verbose] > │ print_and_return / x: 3 │
00:07:02 #18238 [verbose] > │ print_and_return / x: 4 │
00:07:02 #18239 [verbose] > │ print_and_return / x: 5 │
00:07:02 #18240 [verbose] > │ 10 │
00:07:02 #18241 [verbose] > │ │
00:07:02 #18242 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:02 #18243 [verbose] >
00:07:02 #18244 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:02 #18245 [verbose] > // // test
00:07:02 #18246 [verbose] >
00:07:02 #18247 [verbose] > stream.new_finite_stream print_and_return 10i32
00:07:02 #18248 [verbose] > |> stream.memoize
00:07:02 #18249 [verbose] > |> fun list =>
00:07:02 #18250 [verbose] > inl list = list ()
00:07:02 #18251 [verbose] > fun n =>
00:07:02 #18252 [verbose] > list |> stream.try_item n
00:07:02 #18253 [verbose] > |> take_while_ (fun n (_ : i32) => n < 5)
00:07:02 #18254 [verbose] > |> listm'.sum
00:07:02 #18255 [verbose] > |> _assert_eq 10
00:07:02 #18256 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5a492d77b231ca917ef9bfb52ad76915f5d237f0591bcdb5c8a244112d599127\main.spi
00:07:02 #18257 [verbose] >
00:07:02 #18258 [verbose] > ╭─[ 404.89ms - stdout ]────────────────────────────────────────────────────────╮
00:07:02 #18259 [verbose] > │ type UH0 = │
00:07:02 #18260 [verbose] > │ | UH0_0 of int32 * (unit -> UH0) │
00:07:02 #18261 [verbose] > │ | UH0_1 │
00:07:02 #18262 [verbose] > │ and [<Struct>] US0 = │
00:07:02 #18263 [verbose] > │ | US0_0 of f0_0 : (unit -> UH0) │
00:07:02 #18264 [verbose] > │ | US0_1 of f1_0 : UH0 │
00:07:02 #18265 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:07:02 #18266 [verbose] > │ and UH1 = │
00:07:02 #18267 [verbose] > │ | UH1_0 │
00:07:02 #18268 [verbose] > │ | UH1_1 of int32 * UH1 │
00:07:02 #18269 [verbose] > │ and [<Struct>] US1 = │
00:07:02 #18270 [verbose] > │ | US1_0 of f0_0 : int32 │
00:07:02 #18271 [verbose] > │ | US1_1 │
00:07:02 #18272 [verbose] > │ let rec closure10 () () : UH0 = │
00:07:02 #18273 [verbose] > │ UH0_1 │
00:07:02 #18274 [verbose] > │ and closure9 () () : UH0 = │
00:07:02 #18275 [verbose] > │ printfn $"print_and_return / x: {9}" │
00:07:02 #18276 [verbose] > │ let v0 : (unit -> UH0) = closure10() │
00:07:02 #18277 [verbose] > │ UH0_0(9, v0) │
00:07:02 #18278 [verbose] > │ and closure8 () () : UH0 = │
00:07:02 #18279 [verbose] > │ printfn $"print_and_return / x: {8}" │
00:07:02 #18280 [verbose] > │ let v0 : (unit -> UH0) = closure9() │
00:07:02 #18281 [verbose] > │ UH0_0(8, v0) │
00:07:02 #18282 [verbose] > │ and closure7 () () : UH0 = │
00:07:02 #18283 [verbose] > │ printfn $"print_and_return / x: {7}" │
00:07:02 #18284 [verbose] > │ let v0 : (unit -> UH0) = closure8() │
00:07:02 #18285 [verbose] > │ UH0_0(7, v0) │
00:07:02 #18286 [verbose] > │ and closure6 () () : UH0 = │
00:07:02 #18287 [verbose] > │ printfn $"print_and_return / x: {6}" │
00:07:02 #18288 [verbose] > │ let v0 : (unit -> UH0) = closure7() │
00:07:02 #18289 [verbose] > │ UH0_0(6, v0) │
00:07:02 #18290 [verbose] > │ and closure5 () () : UH0 = │
00:07:02 #18291 [verbose] > │ printfn $"print_and_return / x: {5}" │
00:07:02 #18292 [verbose] > │ let v0 : (unit -> UH0) = closure6() │
00:07:02 #18293 [verbose] > │ UH0_0(5, v0) │
00:07:02 #18294 [verbose] > │ and closure4 () () : UH0 = │
00:07:02 #18295 [verbose] > │ printfn $"print_and_return / x: {4}" │
00:07:02 #18296 [verbose] > │ let v0 : (unit -> UH0) = closure5() │
00:07:02 #18297 [verbose] > │ UH0_0(4, v0) │
00:07:02 #18298 [verbose] > │ and closure3 () () : UH0 = │
00:07:02 #18299 [verbose] > │ printfn $"print_and_return / x: {3}" │
00:07:02 #18300 [verbose] > │ let v0 : (unit -> UH0) = closure4() │
00:07:02 #18301 [verbose] > │ UH0_0(3, v0) │
00:07:02 #18302 [verbose] > │ and closure2 () () : UH0 = │
00:07:02 #18303 [verbose] > │ printfn $"print_and_return / x: {2}" │
00:07:02 #18304 [verbose] > │ let v0 : (unit -> UH0) = closure3() │
00:07:02 #18305 [verbose] > │ UH0_0(2, v0) │
00:07:02 #18306 [verbose] > │ and closure1 () () : UH0 = │
00:07:02 #18307 [verbose] > │ printfn $"print_and_return / x: {1}" │
00:07:02 #18308 [verbose] > │ let v0 : (unit -> UH0) = closure2() │
00:07:02 #18309 [verbose] > │ UH0_0(1, v0) │
00:07:02 #18310 [verbose] > │ and closure0 () () : UH0 = │
00:07:02 #18311 [verbose] > │ let v0 : (unit -> UH0) = closure1() │
00:07:02 #18312 [verbose] > │ UH0_0(0, v0) │
00:07:02 #18313 [verbose] > │ and closure11 (v0 : Mut0) () : UH0 = │
00:07:02 #18314 [verbose] > │ let v1 : US0 = v0.l0 │
00:07:02 #18315 [verbose] > │ match v1 with │
00:07:02 #18316 [verbose] > │ | US0_1(v2) -> (* Computed *) │
00:07:02 #18317 [verbose] > │ v2 │
00:07:02 #18318 [verbose] > │ | US0_0(v3) -> (* NotComputed *) │
00:07:02 #18319 [verbose] > │ let v4 : UH0 = v3 () │
00:07:02 #18320 [verbose] > │ let v13 : UH0 = │
00:07:02 #18321 [verbose] > │ match v4 with │
00:07:02 #18322 [verbose] > │ | UH0_0(v6, v7) -> (* StreamCons *) │
00:07:02 #18323 [verbose] > │ let v8 : US0 = US0_0(v7) │
00:07:02 #18324 [verbose] > │ let v9 : Mut0 = {l0 = v8} : Mut0 │
00:07:02 #18325 [verbose] > │ let v10 : (unit -> UH0) = closure11(v9) │
00:07:02 #18326 [verbose] > │ UH0_0(v6, v10) │
00:07:02 #18327 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:02 #18328 [verbose] > │ UH0_1 │
00:07:02 #18329 [verbose] > │ let v14 : US0 = US0_1(v13) │
00:07:02 #18330 [verbose] > │ v0.l0 <- v14 │
00:07:02 #18331 [verbose] > │ v13 │
00:07:02 #18332 [verbose] > │ and method2 (v0 : int32, v1 : UH0) : US1 = │
00:07:02 #18333 [verbose] > │ match v1 with │
00:07:02 #18334 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:07:02 #18335 [verbose] > │ let v4 : bool = v0 <= 0 │
00:07:02 #18336 [verbose] > │ if v4 then │
00:07:02 #18337 [verbose] > │ US1_0(v2) │
00:07:02 #18338 [verbose] > │ else │
00:07:02 #18339 [verbose] > │ let v6 : int32 = v0 - 1 │
00:07:02 #18340 [verbose] > │ let v7 : UH0 = v3 () │
00:07:02 #18341 [verbose] > │ method2(v6, v7) │
00:07:02 #18342 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:02 #18343 [verbose] > │ US1_1 │
00:07:02 #18344 [verbose] > │ and method3 (v0 : UH1, v1 : UH1) : UH1 = │
00:07:02 #18345 [verbose] > │ match v0 with │
00:07:02 #18346 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:07:02 #18347 [verbose] > │ let v4 : UH1 = UH1_1(v2, v1) │
00:07:02 #18348 [verbose] > │ method3(v3, v4) │
00:07:02 #18349 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:02 #18350 [verbose] > │ v1 │
00:07:02 #18351 [verbose] > │ and method1 (v0 : UH0, v1 : UH1, v2 : int32) : UH1 = │
00:07:02 #18352 [verbose] > │ let v3 : US1 = method2(v2, v0) │
00:07:02 #18353 [verbose] > │ match v3 with │
00:07:02 #18354 [verbose] > │ | US1_0(v4) -> (* Some *) │
00:07:02 #18355 [verbose] > │ let v5 : bool = v4 < 5 │
00:07:02 #18356 [verbose] > │ if v5 then │
00:07:02 #18357 [verbose] > │ let v6 : UH1 = UH1_1(v4, v1) │
00:07:02 #18358 [verbose] > │ let v7 : int32 = v2 + 1 │
00:07:02 #18359 [verbose] > │ method1(v0, v6, v7) │
00:07:02 #18360 [verbose] > │ else │
00:07:02 #18361 [verbose] > │ let v9 : UH1 = UH1_0 │
00:07:02 #18362 [verbose] > │ method3(v1, v9) │
00:07:02 #18363 [verbose] > │ | _ -> │
00:07:02 #18364 [verbose] > │ let v12 : UH1 = UH1_0 │
00:07:02 #18365 [verbose] > │ method3(v1, v12) │
00:07:02 #18366 [verbose] > │ and method4 (v0 : UH1, v1 : int32) : int32 = │
00:07:02 #18367 [verbose] > │ match v0 with │
00:07:02 #18368 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:07:02 #18369 [verbose] > │ let v4 : int32 = v1 + v2 │
00:07:02 #18370 [verbose] > │ method4(v3, v4) │
00:07:02 #18371 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:02 #18372 [verbose] > │ v1 │
00:07:02 #18373 [verbose] > │ and method5 (v0 : bool) : bool = │
00:07:02 #18374 [verbose] > │ v0 │
00:07:02 #18375 [verbose] > │ and method0 () : unit = │
00:07:02 #18376 [verbose] > │ printfn $"print_and_return / x: {0}" │
00:07:02 #18377 [verbose] > │ let v0 : (unit -> UH0) = closure0() │
00:07:02 #18378 [verbose] > │ let v1 : US0 = US0_0(v0) │
00:07:02 #18379 [verbose] > │ let v2 : Mut0 = {l0 = v1} : Mut0 │
00:07:02 #18380 [verbose] > │ let v3 : US0 = v2.l0 │
00:07:02 #18381 [verbose] > │ let v18 : UH0 = │
00:07:02 #18382 [verbose] > │ match v3 with │
00:07:02 #18383 [verbose] > │ | US0_1(v4) -> (* Computed *) │
00:07:02 #18384 [verbose] > │ v4 │
00:07:02 #18385 [verbose] > │ | US0_0(v5) -> (* NotComputed *) │
00:07:02 #18386 [verbose] > │ let v6 : UH0 = v5 () │
00:07:02 #18387 [verbose] > │ let v15 : UH0 = │
00:07:02 #18388 [verbose] > │ match v6 with │
00:07:02 #18389 [verbose] > │ | UH0_0(v8, v9) -> (* StreamCons *) │
00:07:02 #18390 [verbose] > │ let v10 : US0 = US0_0(v9) │
00:07:02 #18391 [verbose] > │ let v11 : Mut0 = {l0 = v10} : Mut0 │
00:07:02 #18392 [verbose] > │ let v12 : (unit -> UH0) = closure11(v11) │
00:07:02 #18393 [verbose] > │ UH0_0(v8, v12) │
00:07:02 #18394 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:07:02 #18395 [verbose] > │ UH0_1 │
00:07:02 #18396 [verbose] > │ let v16 : US0 = US0_1(v15) │
00:07:02 #18397 [verbose] > │ v2.l0 <- v16 │
00:07:02 #18398 [verbose] > │ v15 │
00:07:02 #18399 [verbose] > │ let v19 : UH1 = UH1_0 │
00:07:02 #18400 [verbose] > │ let v20 : int32 = 0 │
00:07:02 #18401 [verbose] > │ let v21 : UH1 = method1(v18, v19, v20) │
00:07:02 #18402 [verbose] > │ let v22 : int32 = 0 │
00:07:02 #18403 [verbose] > │ let v23 : int32 = method4(v21, v22) │
00:07:02 #18404 [verbose] > │ let v24 : string = $"%A{v23}" │
00:07:02 #18405 [verbose] > │ System.Console.WriteLine v24 │
00:07:02 #18406 [verbose] > │ let v25 : bool = v23 = 10 │
00:07:02 #18407 [verbose] > │ let v27 : bool = │
00:07:02 #18408 [verbose] > │ if v25 then │
00:07:02 #18409 [verbose] > │ true │
00:07:02 #18410 [verbose] > │ else │
00:07:02 #18411 [verbose] > │ method5(v25) │
00:07:02 #18412 [verbose] > │ let v28 : string = $"__expect / actual: %A{v23} / expected: %A{10}" │
00:07:02 #18413 [verbose] > │ let v29 : bool = v27 = false │
00:07:02 #18414 [verbose] > │ if v29 then │
00:07:02 #18415 [verbose] > │ failwith<unit> v28 │
00:07:02 #18416 [verbose] > │ method0() │
00:07:02 #18417 [verbose] > │ │
00:07:02 #18418 [verbose] > │ print_and_return / x: 0 │
00:07:02 #18419 [verbose] > │ print_and_return / x: 1 │
00:07:02 #18420 [verbose] > │ print_and_return / x: 2 │
00:07:02 #18421 [verbose] > │ print_and_return / x: 3 │
00:07:02 #18422 [verbose] > │ print_and_return / x: 4 │
00:07:02 #18423 [verbose] > │ print_and_return / x: 5 │
00:07:02 #18424 [verbose] > │ 10 │
00:07:02 #18425 [verbose] > │ │
00:07:02 #18426 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:02 #18427 [verbose] >
00:07:02 #18428 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:02 #18429 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:02 #18430 [verbose] > │ ## memoize │
00:07:02 #18431 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:02 #18432 [verbose] >
00:07:02 #18433 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:02 #18434 [verbose] > inl memoize seq =
00:07:02 #18435 [verbose] > inl state = mut [[]]
00:07:02 #18436 [verbose] > fun n =>
00:07:02 #18437 [verbose] > match *state |> listm'.try_find (fun (n', _) => n' = n) with
00:07:02 #18438 [verbose] > | Some (_, v) => v
00:07:02 #18439 [verbose] > | None =>
00:07:02 #18440 [verbose] > inl new_state = seq n
00:07:02 #18441 [verbose] > state <- (n, new_state) :: *state
00:07:02 #18442 [verbose] > new_state
00:07:02 #18443 [verbose] >
00:07:02 #18444 [verbose] > inl memoize_ seq =
00:07:02 #18445 [verbose] > inl state = mut [[]]
00:07:02 #18446 [verbose] > fun n =>
00:07:02 #18447 [verbose] > match *state |> listm'.try_find_ (fun (n', _) => n' = n) with
00:07:02 #18448 [verbose] > | Some (_, v) => v
00:07:02 #18449 [verbose] > | None =>
00:07:02 #18450 [verbose] > inl new_state = seq n
00:07:02 #18451 [verbose] > state <- (n, new_state) :: *state
00:07:02 #18452 [verbose] > new_state
00:07:03 #18453 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b609324b10b54aec5d180e7f31364cb3142ce38e5db52636fa112ae87af95bf0\main.spi
00:07:03 #18454 [verbose] >
00:07:03 #18455 [verbose] > ╭─[ 242.71ms - stdout ]────────────────────────────────────────────────────────╮
00:07:03 #18456 [verbose] > │ () │
00:07:03 #18457 [verbose] > │ │
00:07:03 #18458 [verbose] > │ │
00:07:03 #18459 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:03 #18460 [verbose] >
00:07:03 #18461 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:03 #18462 [verbose] > // // test
00:07:03 #18463 [verbose] >
00:07:03 #18464 [verbose] > inl seq =
00:07:03 #18465 [verbose] > fun n =>
00:07:03 #18466 [verbose] > n |> print_and_return |> Some
00:07:03 #18467 [verbose] > |> memoize_
00:07:03 #18468 [verbose] >
00:07:03 #18469 [verbose] > seq
00:07:03 #18470 [verbose] > |> take_while_ (fun n (_ : i32) => n < 5)
00:07:03 #18471 [verbose] > |> listm'.sum
00:07:03 #18472 [verbose] > |> _assert_eq 10
00:07:03 #18473 [verbose] >
00:07:03 #18474 [verbose] > seq
00:07:03 #18475 [verbose] > |> take_while_ (fun n _ => n < 5)
00:07:03 #18476 [verbose] > |> listm'.sum
00:07:03 #18477 [verbose] > |> _assert_eq 10
00:07:03 #18478 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2d54beb1ad7ca9173b988ea8fad2a24c2d3016ac85207179dc3db5ae3bbda7a1\main.spi
00:07:03 #18479 [verbose] >
00:07:03 #18480 [verbose] > ╭─[ 399.77ms - stdout ]────────────────────────────────────────────────────────╮
00:07:03 #18481 [verbose] > │ type [<Struct>] US0 = │
00:07:03 #18482 [verbose] > │ | US0_0 of f0_0 : int32 │
00:07:03 #18483 [verbose] > │ | US0_1 │
00:07:03 #18484 [verbose] > │ and UH0 = │
00:07:03 #18485 [verbose] > │ | UH0_0 │
00:07:03 #18486 [verbose] > │ | UH0_1 of int32 * US0 * UH0 │
00:07:03 #18487 [verbose] > │ and Mut0 = {mutable l0 : UH0} │
00:07:03 #18488 [verbose] > │ and UH1 = │
00:07:03 #18489 [verbose] > │ | UH1_0 │
00:07:03 #18490 [verbose] > │ | UH1_1 of int32 * UH1 │
00:07:03 #18491 [verbose] > │ and [<Struct>] US1 = │
00:07:03 #18492 [verbose] > │ | US1_0 of f0_0 : int32 * f0_1 : US0 │
00:07:03 #18493 [verbose] > │ | US1_1 │
00:07:03 #18494 [verbose] > │ let rec method2 (v0 : int32, v1 : UH0) : US1 = │
00:07:03 #18495 [verbose] > │ match v1 with │
00:07:03 #18496 [verbose] > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:07:03 #18497 [verbose] > │ let v6 : bool = v3 = v0 │
00:07:03 #18498 [verbose] > │ if v6 then │
00:07:03 #18499 [verbose] > │ US1_0(v3, v4) │
00:07:03 #18500 [verbose] > │ else │
00:07:03 #18501 [verbose] > │ method2(v0, v5) │
00:07:03 #18502 [verbose] > │ | UH0_0 -> (* Nil *) │
00:07:03 #18503 [verbose] > │ US1_1 │
00:07:03 #18504 [verbose] > │ and method3 (v0 : UH1, v1 : UH1) : UH1 = │
00:07:03 #18505 [verbose] > │ match v0 with │
00:07:03 #18506 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:07:03 #18507 [verbose] > │ let v4 : UH1 = UH1_1(v2, v1) │
00:07:03 #18508 [verbose] > │ method3(v3, v4) │
00:07:03 #18509 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:03 #18510 [verbose] > │ v1 │
00:07:03 #18511 [verbose] > │ and method1 (v0 : Mut0, v1 : UH1, v2 : int32) : UH1 = │
00:07:03 #18512 [verbose] > │ let v3 : UH0 = v0.l0 │
00:07:03 #18513 [verbose] > │ let v4 : US1 = method2(v2, v3) │
00:07:03 #18514 [verbose] > │ let v12 : US0 = │
00:07:03 #18515 [verbose] > │ match v4 with │
00:07:03 #18516 [verbose] > │ | US1_1 -> (* None *) │
00:07:03 #18517 [verbose] > │ printfn $"print_and_return / x: {v2}" │
00:07:03 #18518 [verbose] > │ let v7 : UH0 = v0.l0 │
00:07:03 #18519 [verbose] > │ let v8 : US0 = US0_0(v2) │
00:07:03 #18520 [verbose] > │ let v9 : UH0 = UH0_1(v2, v8, v7) │
00:07:03 #18521 [verbose] > │ v0.l0 <- v9 │
00:07:03 #18522 [verbose] > │ US0_0(v2) │
00:07:03 #18523 [verbose] > │ | US1_0(v5, v6) -> (* Some *) │
00:07:03 #18524 [verbose] > │ v6 │
00:07:03 #18525 [verbose] > │ match v12 with │
00:07:03 #18526 [verbose] > │ | US0_0(v13) -> (* Some *) │
00:07:03 #18527 [verbose] > │ let v14 : bool = v13 < 5 │
00:07:03 #18528 [verbose] > │ if v14 then │
00:07:03 #18529 [verbose] > │ let v15 : UH1 = UH1_1(v13, v1) │
00:07:03 #18530 [verbose] > │ let v16 : int32 = v2 + 1 │
00:07:03 #18531 [verbose] > │ method1(v0, v15, v16) │
00:07:03 #18532 [verbose] > │ else │
00:07:03 #18533 [verbose] > │ let v18 : UH1 = UH1_0 │
00:07:03 #18534 [verbose] > │ method3(v1, v18) │
00:07:03 #18535 [verbose] > │ | _ -> │
00:07:03 #18536 [verbose] > │ let v21 : UH1 = UH1_0 │
00:07:03 #18537 [verbose] > │ method3(v1, v21) │
00:07:03 #18538 [verbose] > │ and method4 (v0 : UH1, v1 : int32) : int32 = │
00:07:03 #18539 [verbose] > │ match v0 with │
00:07:03 #18540 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:07:03 #18541 [verbose] > │ let v4 : int32 = v1 + v2 │
00:07:03 #18542 [verbose] > │ method4(v3, v4) │
00:07:03 #18543 [verbose] > │ | UH1_0 -> (* Nil *) │
00:07:03 #18544 [verbose] > │ v1 │
00:07:03 #18545 [verbose] > │ and method5 (v0 : bool) : bool = │
00:07:03 #18546 [verbose] > │ v0 │
00:07:03 #18547 [verbose] > │ and method6 (v0 : Mut0, v1 : UH1, v2 : int32) : UH1 = │
00:07:03 #18548 [verbose] > │ let v3 : UH0 = v0.l0 │
00:07:03 #18549 [verbose] > │ let v4 : US1 = method2(v2, v3) │
00:07:03 #18550 [verbose] > │ let v12 : US0 = │
00:07:03 #18551 [verbose] > │ match v4 with │
00:07:03 #18552 [verbose] > │ | US1_1 -> (* None *) │
00:07:03 #18553 [verbose] > │ printfn $"print_and_return / x: {v2}" │
00:07:03 #18554 [verbose] > │ let v7 : UH0 = v0.l0 │
00:07:03 #18555 [verbose] > │ let v8 : US0 = US0_0(v2) │
00:07:03 #18556 [verbose] > │ let v9 : UH0 = UH0_1(v2, v8, v7) │
00:07:03 #18557 [verbose] > │ v0.l0 <- v9 │
00:07:03 #18558 [verbose] > │ US0_0(v2) │
00:07:03 #18559 [verbose] > │ | US1_0(v5, v6) -> (* Some *) │
00:07:03 #18560 [verbose] > │ v6 │
00:07:03 #18561 [verbose] > │ match v12 with │
00:07:03 #18562 [verbose] > │ | US0_0(v13) -> (* Some *) │
00:07:03 #18563 [verbose] > │ let v14 : bool = v13 < 5 │
00:07:03 #18564 [verbose] > │ if v14 then │
00:07:03 #18565 [verbose] > │ let v15 : UH1 = UH1_1(v13, v1) │
00:07:03 #18566 [verbose] > │ let v16 : int32 = v2 + 1 │
00:07:03 #18567 [verbose] > │ method6(v0, v15, v16) │
00:07:03 #18568 [verbose] > │ else │
00:07:03 #18569 [verbose] > │ let v18 : UH1 = UH1_0 │
00:07:03 #18570 [verbose] > │ method3(v1, v18) │
00:07:03 #18571 [verbose] > │ | _ -> │
00:07:03 #18572 [verbose] > │ let v21 : UH1 = UH1_0 │
00:07:03 #18573 [verbose] > │ method3(v1, v21) │
00:07:03 #18574 [verbose] > │ and method0 () : unit = │
00:07:03 #18575 [verbose] > │ let v0 : UH0 = UH0_0 │
00:07:03 #18576 [verbose] > │ let v1 : Mut0 = {l0 = v0} : Mut0 │
00:07:03 #18577 [verbose] > │ let v2 : UH1 = UH1_0 │
00:07:03 #18578 [verbose] > │ let v3 : int32 = 0 │
00:07:03 #18579 [verbose] > │ let v4 : UH1 = method1(v1, v2, v3) │
00:07:03 #18580 [verbose] > │ let v5 : int32 = 0 │
00:07:03 #18581 [verbose] > │ let v6 : int32 = method4(v4, v5) │
00:07:03 #18582 [verbose] > │ let v7 : string = $"%A{v6}" │
00:07:03 #18583 [verbose] > │ System.Console.WriteLine v7 │
00:07:03 #18584 [verbose] > │ let v8 : bool = v6 = 10 │
00:07:03 #18585 [verbose] > │ let v10 : bool = │
00:07:03 #18586 [verbose] > │ if v8 then │
00:07:03 #18587 [verbose] > │ true │
00:07:03 #18588 [verbose] > │ else │
00:07:03 #18589 [verbose] > │ method5(v8) │
00:07:03 #18590 [verbose] > │ let v11 : string = $"__expect / actual: %A{v6} / expected: %A{10}" │
00:07:03 #18591 [verbose] > │ let v12 : bool = v10 = false │
00:07:03 #18592 [verbose] > │ if v12 then │
00:07:03 #18593 [verbose] > │ failwith<unit> v11 │
00:07:03 #18594 [verbose] > │ let v13 : UH1 = UH1_0 │
00:07:03 #18595 [verbose] > │ let v14 : int32 = 0 │
00:07:03 #18596 [verbose] > │ let v15 : UH1 = method6(v1, v13, v14) │
00:07:03 #18597 [verbose] > │ let v16 : int32 = 0 │
00:07:03 #18598 [verbose] > │ let v17 : int32 = method4(v15, v16) │
00:07:03 #18599 [verbose] > │ let v18 : string = $"%A{v17}" │
00:07:03 #18600 [verbose] > │ System.Console.WriteLine v18 │
00:07:03 #18601 [verbose] > │ let v19 : bool = v17 = 10 │
00:07:03 #18602 [verbose] > │ let v21 : bool = │
00:07:03 #18603 [verbose] > │ if v19 then │
00:07:03 #18604 [verbose] > │ true │
00:07:03 #18605 [verbose] > │ else │
00:07:03 #18606 [verbose] > │ method5(v19) │
00:07:03 #18607 [verbose] > │ let v22 : string = $"__expect / actual: %A{v17} / expected: %A{10}" │
00:07:03 #18608 [verbose] > │ let v23 : bool = v21 = false │
00:07:03 #18609 [verbose] > │ if v23 then │
00:07:03 #18610 [verbose] > │ failwith<unit> v22 │
00:07:03 #18611 [verbose] > │ method0() │
00:07:03 #18612 [verbose] > │ │
00:07:03 #18613 [verbose] > │ print_and_return / x: 0 │
00:07:03 #18614 [verbose] > │ print_and_return / x: 1 │
00:07:03 #18615 [verbose] > │ print_and_return / x: 2 │
00:07:03 #18616 [verbose] > │ print_and_return / x: 3 │
00:07:03 #18617 [verbose] > │ print_and_return / x: 4 │
00:07:03 #18618 [verbose] > │ print_and_return / x: 5 │
00:07:03 #18619 [verbose] > │ 10 │
00:07:03 #18620 [verbose] > │ 10 │
00:07:03 #18621 [verbose] > │ │
00:07:03 #18622 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:03 #18623 [verbose] >
00:07:03 #18624 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:03 #18625 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:03 #18626 [verbose] > │ ## iterate │
00:07:03 #18627 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:03 #18628 [verbose] >
00:07:03 #18629 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:03 #18630 [verbose] > inl iterate f x0 num_steps =
00:07:03 #18631 [verbose] > inl rec loop x n =
00:07:03 #18632 [verbose] > if n <= 0
00:07:03 #18633 [verbose] > then x
00:07:03 #18634 [verbose] > else loop (f x) (n - 1)
00:07:03 #18635 [verbose] > loop x0 num_steps
00:07:03 #18636 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\679f011911bb64849b6a6bbf5e63853dfee508e78775ac5d3845ecc786777936\main.spi
00:07:03 #18637 [verbose] >
00:07:03 #18638 [verbose] > ╭─[ 238.52ms - stdout ]────────────────────────────────────────────────────────╮
00:07:03 #18639 [verbose] > │ () │
00:07:03 #18640 [verbose] > │ │
00:07:03 #18641 [verbose] > │ │
00:07:03 #18642 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:03 #18643 [verbose] >
00:07:03 #18644 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:03 #18645 [verbose] > // // test
00:07:03 #18646 [verbose] >
00:07:03 #18647 [verbose] > 10i32 |> iterate ((*) 2) 1i32
00:07:03 #18648 [verbose] > |> _assert_eq 1024
00:07:04 #18649 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\86a2f82573f422503fdc0cd30bce5b77e2b97137f29acd7e335241f8be38bafd\main.spi
00:07:04 #18650 [verbose] >
00:07:04 #18651 [verbose] > ╭─[ 230.24ms - stdout ]────────────────────────────────────────────────────────╮
00:07:04 #18652 [verbose] > │ let rec method0 () : unit = │
00:07:04 #18653 [verbose] > │ let v0 : string = $"%A{1024}" │
00:07:04 #18654 [verbose] > │ System.Console.WriteLine v0 │
00:07:04 #18655 [verbose] > │ let v1 : string = $"__expect / actual: %A{1024} / expected: %A{1024}" │
00:07:04 #18656 [verbose] > │ () │
00:07:04 #18657 [verbose] > │ method0() │
00:07:04 #18658 [verbose] > │ │
00:07:04 #18659 [verbose] > │ 1024 │
00:07:04 #18660 [verbose] > │ │
00:07:04 #18661 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:04 #18662 [verbose] >
00:07:04 #18663 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:04 #18664 [verbose] > inl iterate_ f x0 num_steps =
00:07:04 #18665 [verbose] > let rec loop x n =
00:07:04 #18666 [verbose] > if n <= 0
00:07:04 #18667 [verbose] > then x
00:07:04 #18668 [verbose] > else loop (f x) (n - 1)
00:07:04 #18669 [verbose] > loop x0 num_steps
00:07:04 #18670 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\053285a34ed9bb8ca81f4c3c05c7aaad1adde58da3a1faaedf077ec2629cd9df\main.spi
00:07:04 #18671 [verbose] >
00:07:04 #18672 [verbose] > ╭─[ 224.85ms - stdout ]────────────────────────────────────────────────────────╮
00:07:04 #18673 [verbose] > │ () │
00:07:04 #18674 [verbose] > │ │
00:07:04 #18675 [verbose] > │ │
00:07:04 #18676 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:04 #18677 [verbose] >
00:07:04 #18678 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:04 #18679 [verbose] > // // test
00:07:04 #18680 [verbose] >
00:07:04 #18681 [verbose] > 10i32 |> iterate_ ((*) 2) 1i32
00:07:04 #18682 [verbose] > |> _assert_eq 1024
00:07:04 #18683 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e9544f79f995dc3fad435202c285f831a7db4eb57033be7a536c3c228ec25378\main.spi
00:07:04 #18684 [verbose] >
00:07:04 #18685 [verbose] > ╭─[ 252.55ms - stdout ]────────────────────────────────────────────────────────╮
00:07:04 #18686 [verbose] > │ let rec method1 (v0 : int32, v1 : int32) : int32 = │
00:07:04 #18687 [verbose] > │ let v2 : bool = v1 <= 0 │
00:07:04 #18688 [verbose] > │ if v2 then │
00:07:04 #18689 [verbose] > │ v0 │
00:07:04 #18690 [verbose] > │ else │
00:07:04 #18691 [verbose] > │ let v3 : int32 = 2 * v0 │
00:07:04 #18692 [verbose] > │ let v4 : int32 = v1 - 1 │
00:07:04 #18693 [verbose] > │ method1(v3, v4) │
00:07:04 #18694 [verbose] > │ and method2 (v0 : bool) : bool = │
00:07:04 #18695 [verbose] > │ v0 │
00:07:04 #18696 [verbose] > │ and method0 () : unit = │
00:07:04 #18697 [verbose] > │ let v0 : int32 = 1 │
00:07:04 #18698 [verbose] > │ let v1 : int32 = 10 │
00:07:04 #18699 [verbose] > │ let v2 : int32 = method1(v0, v1) │
00:07:04 #18700 [verbose] > │ let v3 : string = $"%A{v2}" │
00:07:04 #18701 [verbose] > │ System.Console.WriteLine v3 │
00:07:04 #18702 [verbose] > │ let v4 : bool = v2 = 1024 │
00:07:04 #18703 [verbose] > │ let v6 : bool = │
00:07:04 #18704 [verbose] > │ if v4 then │
00:07:04 #18705 [verbose] > │ true │
00:07:04 #18706 [verbose] > │ else │
00:07:04 #18707 [verbose] > │ method2(v4) │
00:07:04 #18708 [verbose] > │ let v7 : string = $"__expect / actual: %A{v2} / expected: %A{1024}" │
00:07:04 #18709 [verbose] > │ let v8 : bool = v6 = false │
00:07:04 #18710 [verbose] > │ if v8 then │
00:07:04 #18711 [verbose] > │ failwith<unit> v7 │
00:07:04 #18712 [verbose] > │ method0() │
00:07:04 #18713 [verbose] > │ │
00:07:04 #18714 [verbose] > │ 1024 │
00:07:04 #18715 [verbose] > │ │
00:07:04 #18716 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:04 #18717 [verbose] >
00:07:04 #18718 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:04 #18719 [verbose] > inl iterate' f x0 num_steps =
00:07:04 #18720 [verbose] > listm.init num_steps id
00:07:04 #18721 [verbose] > |> listm.fold (fun x _ => f x) x0
00:07:04 #18722 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b4420a50bf870f423e71bfcffe190710ed5a1b994f5b1cc6e7ad8b15150e8379\main.spi
00:07:04 #18723 [verbose] >
00:07:04 #18724 [verbose] > ╭─[ 208.86ms - stdout ]────────────────────────────────────────────────────────╮
00:07:04 #18725 [verbose] > │ () │
00:07:04 #18726 [verbose] > │ │
00:07:04 #18727 [verbose] > │ │
00:07:04 #18728 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:04 #18729 [verbose] >
00:07:04 #18730 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:04 #18731 [verbose] > // // test
00:07:04 #18732 [verbose] >
00:07:04 #18733 [verbose] > 10i32 |> iterate' ((*) 2) 1i32
00:07:04 #18734 [verbose] > |> _assert_eq 1024
00:07:04 #18735 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0b70c3477107ce51bd74e612c73947798322eb3d2d291095f7c17480d10c531c\main.spi
00:07:05 #18736 [verbose] >
00:07:05 #18737 [verbose] > ╭─[ 235.61ms - stdout ]────────────────────────────────────────────────────────╮
00:07:05 #18738 [verbose] > │ let rec method0 () : unit = │
00:07:05 #18739 [verbose] > │ let v0 : string = $"%A{1024}" │
00:07:05 #18740 [verbose] > │ System.Console.WriteLine v0 │
00:07:05 #18741 [verbose] > │ let v1 : string = $"__expect / actual: %A{1024} / expected: %A{1024}" │
00:07:05 #18742 [verbose] > │ () │
00:07:05 #18743 [verbose] > │ method0() │
00:07:05 #18744 [verbose] > │ │
00:07:05 #18745 [verbose] > │ 1024 │
00:07:05 #18746 [verbose] > │ │
00:07:05 #18747 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:05 #18748 [verbose] >
00:07:05 #18749 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:05 #18750 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:05 #18751 [verbose] > │ ## find_last │
00:07:05 #18752 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:05 #18753 [verbose] >
00:07:05 #18754 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:05 #18755 [verbose] > inl find_last forall item result. fold_fn fn target : option result =
00:07:05 #18756 [verbose] > fold_fn (fun (item : item) (result : option result) =>
00:07:05 #18757 [verbose] > match result with
00:07:05 #18758 [verbose] > | None => fn item
00:07:05 #18759 [verbose] > | result => result
00:07:05 #18760 [verbose] > ) target (None : option result)
00:07:05 #18761 [verbose] >
00:07:05 #18762 [verbose] > inl array_find_last forall item result. (fn : item -> option result) (target : a
00:07:05 #18763 [verbose] > i32 item) : option result =
00:07:05 #18764 [verbose] > find_last am.foldBack fn target
00:07:05 #18765 [verbose] >
00:07:05 #18766 [verbose] > inl list_find_last forall item result. (fn : item -> option result) (target :
00:07:05 #18767 [verbose] > list item) : option result =
00:07:05 #18768 [verbose] > find_last listm.foldBack fn target
00:07:05 #18769 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\492ddd08a87b34c748a77b78bae82782b2dc5b4e9b53834ec7407ee0f7875284\main.spi
00:07:05 #18770 [verbose] >
00:07:05 #18771 [verbose] > ╭─[ 220.91ms - stdout ]────────────────────────────────────────────────────────╮
00:07:05 #18772 [verbose] > │ () │
00:07:05 #18773 [verbose] > │ │
00:07:05 #18774 [verbose] > │ │
00:07:05 #18775 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:07 #18776 [verbose] > [NbConvertApp] Converting notebook seq.dib.ipynb to html
00:07:07 #18777 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:07:07 #18778 [verbose] > validate(nb)
00:07:07 #18779 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:07:07 #18780 [verbose] > return _pygments_highlight(
00:07:08 #18781 [verbose] > [NbConvertApp] Writing 410189 bytes to seq.dib.html
00:07:09 #18782 [debug] executeAsync / exitCode: 0 / output.Length: 137269
00:07:09 #18783 [debug] main / executeCommand / exitCode: 0
00:07:09 #18784 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 util.dib" -Retries 3"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:07:11 #18785 [verbose] >
00:07:11 #18786 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:11 #18787 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:11 #18788 [verbose] > │ # util │
00:07:11 #18789 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:11 #18790 [verbose] >
00:07:11 #18791 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:11 #18792 [verbose] > // // test
00:07:11 #18793 [verbose] >
00:07:11 #18794 [verbose] > open testing
00:07:14 #18795 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:07:15 #18796 [verbose] >
00:07:15 #18797 [verbose] > ╭─[ 4.13s - stdout ]───────────────────────────────────────────────────────────╮
00:07:15 #18798 [verbose] > │ () │
00:07:15 #18799 [verbose] > │ │
00:07:15 #18800 [verbose] > │ │
00:07:15 #18801 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:15 #18802 [verbose] >
00:07:15 #18803 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:15 #18804 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:15 #18805 [verbose] > │ ## ski │
00:07:15 #18806 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:15 #18807 [verbose] >
00:07:15 #18808 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:15 #18809 [verbose] > union rec ski =
00:07:15 #18810 [verbose] > | I
00:07:15 #18811 [verbose] > | K
00:07:15 #18812 [verbose] > | S
00:07:15 #18813 [verbose] > | App : ski * ski
00:07:15 #18814 [verbose] >
00:07:15 #18815 [verbose] > inl rec eval ski =
00:07:15 #18816 [verbose] > match ski with
00:07:15 #18817 [verbose] > | App (App (K, x), y) => eval x
00:07:15 #18818 [verbose] > | App (App (App (S, x), y), z) => eval (App (App (x, z), App (y, z)))
00:07:15 #18819 [verbose] > | App (I, x) => eval x
00:07:15 #18820 [verbose] > | App (K, x) => App (K, eval x)
00:07:15 #18821 [verbose] > | App (f, x) => eval (App (eval f, x))
00:07:15 #18822 [verbose] > | _ => ski
00:07:15 #18823 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\72e6282f3300e6d54314019decc9350b1ca0492fcff018c717ad3e91103f2421\main.spi
00:07:16 #18824 [verbose] >
00:07:16 #18825 [verbose] > ╭─[ 270.55ms - stdout ]────────────────────────────────────────────────────────╮
00:07:16 #18826 [verbose] > │ () │
00:07:16 #18827 [verbose] > │ │
00:07:16 #18828 [verbose] > │ │
00:07:16 #18829 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:16 #18830 [verbose] >
00:07:16 #18831 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:16 #18832 [verbose] > // // test
00:07:16 #18833 [verbose] >
00:07:16 #18834 [verbose] > eval I
00:07:16 #18835 [verbose] > |> _assert_eq I
00:07:16 #18836 [verbose] >
00:07:16 #18837 [verbose] > eval (App (I, I))
00:07:16 #18838 [verbose] > |> _assert_eq I
00:07:16 #18839 [verbose] >
00:07:16 #18840 [verbose] > eval (App (I, App (I, I)))
00:07:16 #18841 [verbose] > |> _assert_eq I
00:07:16 #18842 [verbose] >
00:07:16 #18843 [verbose] > eval (App (App (I, I), I))
00:07:16 #18844 [verbose] > |> _assert_eq I
00:07:16 #18845 [verbose] >
00:07:16 #18846 [verbose] > eval (App (App (App (I, I), I), I))
00:07:16 #18847 [verbose] > |> _assert_eq I
00:07:16 #18848 [verbose] >
00:07:16 #18849 [verbose] > eval K
00:07:16 #18850 [verbose] > |> _assert_eq K
00:07:16 #18851 [verbose] >
00:07:16 #18852 [verbose] > eval (App (K, I))
00:07:16 #18853 [verbose] > |> _assert_eq (App (K, I))
00:07:16 #18854 [verbose] >
00:07:16 #18855 [verbose] > eval (App (K, K))
00:07:16 #18856 [verbose] > |> _assert_eq (App (K, K))
00:07:16 #18857 [verbose] >
00:07:16 #18858 [verbose] > eval (App (App (K, I), K))
00:07:16 #18859 [verbose] > |> _assert_eq I
00:07:16 #18860 [verbose] >
00:07:16 #18861 [verbose] > eval (App (App (K, K), I))
00:07:16 #18862 [verbose] > |> _assert_eq K
00:07:16 #18863 [verbose] >
00:07:16 #18864 [verbose] > eval (App (App (App (App (K, K), I), S), K))
00:07:16 #18865 [verbose] > |> _assert_eq S
00:07:16 #18866 [verbose] >
00:07:16 #18867 [verbose] > eval S
00:07:16 #18868 [verbose] > |> _assert_eq S
00:07:16 #18869 [verbose] >
00:07:16 #18870 [verbose] > eval (App (App (App (S, I), I), I))
00:07:16 #18871 [verbose] > |> _assert_eq I
00:07:16 #18872 [verbose] >
00:07:16 #18873 [verbose] > eval (App (App (App (S, K), K), I))
00:07:16 #18874 [verbose] > |> _assert_eq I
00:07:16 #18875 [verbose] >
00:07:16 #18876 [verbose] > eval (App (App (App (S, K), I), (App (App (K, I), S))))
00:07:16 #18877 [verbose] > |> _assert_eq I
00:07:16 #18878 [verbose] >
00:07:16 #18879 [verbose] > eval (App (App (K, S), App (I, App (App (App (S, K), S), I))))
00:07:16 #18880 [verbose] > |> _assert_eq S
00:07:16 #18881 [verbose] >
00:07:16 #18882 [verbose] > eval (App (App (App (S, K), I), K))
00:07:16 #18883 [verbose] > |> _assert_eq K
00:07:16 #18884 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\93b710d30ef6a9d1c3b60387f41126d8e9e8cbd255a200d566eb617c05907b76\main.spi
00:07:17 #18885 [verbose] >
00:07:17 #18886 [verbose] > ╭─[ 1.84s - stdout ]───────────────────────────────────────────────────────────╮
00:07:17 #18887 [verbose] > │ type UH0 = │
00:07:17 #18888 [verbose] > │ | UH0_0 │
00:07:17 #18889 [verbose] > │ | UH0_1 │
00:07:17 #18890 [verbose] > │ | UH0_2 │
00:07:17 #18891 [verbose] > │ | UH0_3 of UH0 * UH0 │
00:07:17 #18892 [verbose] > │ let rec method0 () : unit = │
00:07:17 #18893 [verbose] > │ let v0 : UH0 = UH0_0 │
00:07:17 #18894 [verbose] > │ let v1 : string = $"%A{v0}" │
00:07:17 #18895 [verbose] > │ System.Console.WriteLine v1 │
00:07:17 #18896 [verbose] > │ let v5 : UH0 = UH0_0 │
00:07:17 #18897 [verbose] > │ let v6 : UH0 = UH0_0 │
00:07:17 #18898 [verbose] > │ let v7 : string = $"__expect / actual: %A{v5} / expected: %A{v6}" │
00:07:17 #18899 [verbose] > │ let v8 : UH0 = UH0_0 │
00:07:17 #18900 [verbose] > │ let v9 : string = $"%A{v8}" │
00:07:17 #18901 [verbose] > │ System.Console.WriteLine v9 │
00:07:17 #18902 [verbose] > │ let v13 : UH0 = UH0_0 │
00:07:17 #18903 [verbose] > │ let v14 : UH0 = UH0_0 │
00:07:17 #18904 [verbose] > │ let v15 : string = $"__expect / actual: %A{v13} / expected: %A{v14}" │
00:07:17 #18905 [verbose] > │ let v16 : UH0 = UH0_0 │
00:07:17 #18906 [verbose] > │ let v17 : string = $"%A{v16}" │
00:07:17 #18907 [verbose] > │ System.Console.WriteLine v17 │
00:07:17 #18908 [verbose] > │ let v21 : UH0 = UH0_0 │
00:07:17 #18909 [verbose] > │ let v22 : UH0 = UH0_0 │
00:07:17 #18910 [verbose] > │ let v23 : string = $"__expect / actual: %A{v21} / expected: %A{v22}" │
00:07:17 #18911 [verbose] > │ let v24 : UH0 = UH0_0 │
00:07:17 #18912 [verbose] > │ let v25 : string = $"%A{v24}" │
00:07:17 #18913 [verbose] > │ System.Console.WriteLine v25 │
00:07:17 #18914 [verbose] > │ let v29 : UH0 = UH0_0 │
00:07:17 #18915 [verbose] > │ let v30 : UH0 = UH0_0 │
00:07:17 #18916 [verbose] > │ let v31 : string = $"__expect / actual: %A{v29} / expected: %A{v30}" │
00:07:17 #18917 [verbose] > │ let v32 : UH0 = UH0_0 │
00:07:17 #18918 [verbose] > │ let v33 : string = $"%A{v32}" │
00:07:17 #18919 [verbose] > │ System.Console.WriteLine v33 │
00:07:17 #18920 [verbose] > │ let v37 : UH0 = UH0_0 │
00:07:17 #18921 [verbose] > │ let v38 : UH0 = UH0_0 │
00:07:17 #18922 [verbose] > │ let v39 : string = $"__expect / actual: %A{v37} / expected: %A{v38}" │
00:07:17 #18923 [verbose] > │ let v40 : UH0 = UH0_1 │
00:07:17 #18924 [verbose] > │ let v41 : string = $"%A{v40}" │
00:07:17 #18925 [verbose] > │ System.Console.WriteLine v41 │
00:07:17 #18926 [verbose] > │ let v45 : UH0 = UH0_1 │
00:07:17 #18927 [verbose] > │ let v46 : UH0 = UH0_1 │
00:07:17 #18928 [verbose] > │ let v47 : string = $"__expect / actual: %A{v45} / expected: %A{v46}" │
00:07:17 #18929 [verbose] > │ let v48 : UH0 = UH0_1 │
00:07:17 #18930 [verbose] > │ let v49 : UH0 = UH0_0 │
00:07:17 #18931 [verbose] > │ let v50 : UH0 = UH0_3(v48, v49) │
00:07:17 #18932 [verbose] > │ let v51 : string = $"%A{v50}" │
00:07:17 #18933 [verbose] > │ System.Console.WriteLine v51 │
00:07:17 #18934 [verbose] > │ let v63 : UH0 = UH0_1 │
00:07:17 #18935 [verbose] > │ let v64 : UH0 = UH0_0 │
00:07:17 #18936 [verbose] > │ let v65 : UH0 = UH0_3(v63, v64) │
00:07:17 #18937 [verbose] > │ let v66 : UH0 = UH0_1 │
00:07:17 #18938 [verbose] > │ let v67 : UH0 = UH0_0 │
00:07:17 #18939 [verbose] > │ let v68 : UH0 = UH0_3(v66, v67) │
00:07:17 #18940 [verbose] > │ let v69 : string = $"__expect / actual: %A{v65} / expected: %A{v68}" │
00:07:17 #18941 [verbose] > │ let v70 : UH0 = UH0_1 │
00:07:17 #18942 [verbose] > │ let v71 : UH0 = UH0_1 │
00:07:17 #18943 [verbose] > │ let v72 : UH0 = UH0_3(v70, v71) │
00:07:17 #18944 [verbose] > │ let v73 : string = $"%A{v72}" │
00:07:17 #18945 [verbose] > │ System.Console.WriteLine v73 │
00:07:17 #18946 [verbose] > │ let v85 : UH0 = UH0_1 │
00:07:17 #18947 [verbose] > │ let v86 : UH0 = UH0_1 │
00:07:17 #18948 [verbose] > │ let v87 : UH0 = UH0_3(v85, v86) │
00:07:17 #18949 [verbose] > │ let v88 : UH0 = UH0_1 │
00:07:17 #18950 [verbose] > │ let v89 : UH0 = UH0_1 │
00:07:17 #18951 [verbose] > │ let v90 : UH0 = UH0_3(v88, v89) │
00:07:17 #18952 [verbose] > │ let v91 : string = $"__expect / actual: %A{v87} / expected: %A{v90}" │
00:07:17 #18953 [verbose] > │ let v92 : UH0 = UH0_0 │
00:07:17 #18954 [verbose] > │ let v93 : string = $"%A{v92}" │
00:07:17 #18955 [verbose] > │ System.Console.WriteLine v93 │
00:07:17 #18956 [verbose] > │ let v97 : UH0 = UH0_0 │
00:07:17 #18957 [verbose] > │ let v98 : UH0 = UH0_0 │
00:07:17 #18958 [verbose] > │ let v99 : string = $"__expect / actual: %A{v97} / expected: %A{v98}" │
00:07:17 #18959 [verbose] > │ let v100 : UH0 = UH0_1 │
00:07:17 #18960 [verbose] > │ let v101 : string = $"%A{v100}" │
00:07:17 #18961 [verbose] > │ System.Console.WriteLine v101 │
00:07:17 #18962 [verbose] > │ let v105 : UH0 = UH0_1 │
00:07:17 #18963 [verbose] > │ let v106 : UH0 = UH0_1 │
00:07:17 #18964 [verbose] > │ let v107 : string = $"__expect / actual: %A{v105} / expected: %A{v106}" │
00:07:17 #18965 [verbose] > │ let v108 : UH0 = UH0_2 │
00:07:17 #18966 [verbose] > │ let v109 : string = $"%A{v108}" │
00:07:17 #18967 [verbose] > │ System.Console.WriteLine v109 │
00:07:17 #18968 [verbose] > │ let v113 : UH0 = UH0_2 │
00:07:17 #18969 [verbose] > │ let v114 : UH0 = UH0_2 │
00:07:17 #18970 [verbose] > │ let v115 : string = $"__expect / actual: %A{v113} / expected: %A{v114}" │
00:07:17 #18971 [verbose] > │ let v116 : UH0 = UH0_2 │
00:07:17 #18972 [verbose] > │ let v117 : string = $"%A{v116}" │
00:07:17 #18973 [verbose] > │ System.Console.WriteLine v117 │
00:07:17 #18974 [verbose] > │ let v121 : UH0 = UH0_2 │
00:07:17 #18975 [verbose] > │ let v122 : UH0 = UH0_2 │
00:07:17 #18976 [verbose] > │ let v123 : string = $"__expect / actual: %A{v121} / expected: %A{v122}" │
00:07:17 #18977 [verbose] > │ let v124 : UH0 = UH0_0 │
00:07:17 #18978 [verbose] > │ let v125 : string = $"%A{v124}" │
00:07:17 #18979 [verbose] > │ System.Console.WriteLine v125 │
00:07:17 #18980 [verbose] > │ let v129 : UH0 = UH0_0 │
00:07:17 #18981 [verbose] > │ let v130 : UH0 = UH0_0 │
00:07:17 #18982 [verbose] > │ let v131 : string = $"__expect / actual: %A{v129} / expected: %A{v130}" │
00:07:17 #18983 [verbose] > │ let v132 : UH0 = UH0_0 │
00:07:17 #18984 [verbose] > │ let v133 : string = $"%A{v132}" │
00:07:17 #18985 [verbose] > │ System.Console.WriteLine v133 │
00:07:17 #18986 [verbose] > │ let v137 : UH0 = UH0_0 │
00:07:17 #18987 [verbose] > │ let v138 : UH0 = UH0_0 │
00:07:17 #18988 [verbose] > │ let v139 : string = $"__expect / actual: %A{v137} / expected: %A{v138}" │
00:07:17 #18989 [verbose] > │ let v140 : UH0 = UH0_0 │
00:07:17 #18990 [verbose] > │ let v141 : string = $"%A{v140}" │
00:07:17 #18991 [verbose] > │ System.Console.WriteLine v141 │
00:07:17 #18992 [verbose] > │ let v145 : UH0 = UH0_0 │
00:07:17 #18993 [verbose] > │ let v146 : UH0 = UH0_0 │
00:07:17 #18994 [verbose] > │ let v147 : string = $"__expect / actual: %A{v145} / expected: %A{v146}" │
00:07:17 #18995 [verbose] > │ let v148 : UH0 = UH0_2 │
00:07:17 #18996 [verbose] > │ let v149 : string = $"%A{v148}" │
00:07:17 #18997 [verbose] > │ System.Console.WriteLine v149 │
00:07:17 #18998 [verbose] > │ let v153 : UH0 = UH0_2 │
00:07:17 #18999 [verbose] > │ let v154 : UH0 = UH0_2 │
00:07:17 #19000 [verbose] > │ let v155 : string = $"__expect / actual: %A{v153} / expected: %A{v154}" │
00:07:17 #19001 [verbose] > │ let v156 : UH0 = UH0_1 │
00:07:17 #19002 [verbose] > │ let v157 : string = $"%A{v156}" │
00:07:17 #19003 [verbose] > │ System.Console.WriteLine v157 │
00:07:17 #19004 [verbose] > │ let v161 : UH0 = UH0_1 │
00:07:17 #19005 [verbose] > │ let v162 : UH0 = UH0_1 │
00:07:17 #19006 [verbose] > │ let v163 : string = $"__expect / actual: %A{v161} / expected: %A{v162}" │
00:07:17 #19007 [verbose] > │ () │
00:07:17 #19008 [verbose] > │ method0() │
00:07:17 #19009 [verbose] > │ │
00:07:17 #19010 [verbose] > │ UH0_0 │
00:07:17 #19011 [verbose] > │ UH0_0 │
00:07:17 #19012 [verbose] > │ UH0_0 │
00:07:17 #19013 [verbose] > │ UH0_0 │
00:07:17 #19014 [verbose] > │ UH0_0 │
00:07:17 #19015 [verbose] > │ UH0_1 │
00:07:17 #19016 [verbose] > │ UH0_3 (UH0_1, UH0_0) │
00:07:17 #19017 [verbose] > │ UH0_3 (UH0_1, UH0_1) │
00:07:17 #19018 [verbose] > │ UH0_0 │
00:07:17 #19019 [verbose] > │ UH0_1 │
00:07:17 #19020 [verbose] > │ UH0_2 │
00:07:17 #19021 [verbose] > │ UH0_2 │
00:07:17 #19022 [verbose] > │ UH0_0 │
00:07:17 #19023 [verbose] > │ UH0_0 │
00:07:17 #19024 [verbose] > │ UH0_0 │
00:07:17 #19025 [verbose] > │ UH0_2 │
00:07:17 #19026 [verbose] > │ UH0_1 │
00:07:17 #19027 [verbose] > │ │
00:07:17 #19028 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:19 #19029 [verbose] > [NbConvertApp] Converting notebook util.dib.ipynb to html
00:07:19 #19030 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:07:19 #19031 [verbose] > validate(nb)
00:07:20 #19032 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:07:20 #19033 [verbose] > return _pygments_highlight(
00:07:20 #19034 [verbose] > [NbConvertApp] Writing 288561 bytes to util.dib.html
00:07:21 #19035 [debug] executeAsync / exitCode: 0 / output.Length: 15199
00:07:21 #19036 [debug] main / executeCommand / exitCode: 0
00:07:21 #19037 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 file_system.dib" -Retries 3"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:07:23 #19038 [verbose] >
00:07:23 #19039 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:23 #19040 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:23 #19041 [verbose] > │ # file_system │
00:07:23 #19042 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:23 #19043 [verbose] >
00:07:23 #19044 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:23 #19045 [verbose] > open sm'_operators
00:07:26 #19046 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8e0f0354561b2c97df06acd4c3ea95f2daf6895158af8361de97c13866799744\main.spi
00:07:27 #19047 [verbose] >
00:07:27 #19048 [verbose] > ╭─[ 3.92s - stdout ]───────────────────────────────────────────────────────────╮
00:07:27 #19049 [verbose] > │ () │
00:07:27 #19050 [verbose] > │ │
00:07:27 #19051 [verbose] > │ │
00:07:27 #19052 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:27 #19053 [verbose] >
00:07:27 #19054 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:27 #19055 [verbose] > // // test
00:07:27 #19056 [verbose] >
00:07:27 #19057 [verbose] > open testing
00:07:27 #19058 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c45f56626e445f341847e116c2e90b4cc6ff29f96977dd2788a732457b25f1a7\main.spi
00:07:27 #19059 [verbose] >
00:07:27 #19060 [verbose] > ╭─[ 229.15ms - stdout ]────────────────────────────────────────────────────────╮
00:07:27 #19061 [verbose] > │ () │
00:07:27 #19062 [verbose] > │ │
00:07:27 #19063 [verbose] > │ │
00:07:27 #19064 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:27 #19065 [verbose] >
00:07:27 #19066 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:27 #19067 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:27 #19068 [verbose] > │ ## types │
00:07:27 #19069 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:27 #19070 [verbose] >
00:07:27 #19071 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:27 #19072 [verbose] > inl types () =
00:07:27 #19073 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::path::Path\")>]] type
00:07:27 #19074 [verbose] > std_path_Path = class end"
00:07:27 #19075 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::path::PathBuf\")>]] type
00:07:27 #19076 [verbose] > std_path_PathBuf = class end"
00:07:28 #19077 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\10e8d825215ddc433d9762663b783a1a3757de9b8d655e4d2f20a471bf28b89c\main.spi
00:07:28 #19078 [verbose] >
00:07:28 #19079 [verbose] > ╭─[ 239.37ms - stdout ]────────────────────────────────────────────────────────╮
00:07:28 #19080 [verbose] > │ () │
00:07:28 #19081 [verbose] > │ │
00:07:28 #19082 [verbose] > │ │
00:07:28 #19083 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:28 #19084 [verbose] >
00:07:28 #19085 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:28 #19086 [verbose] > inl types () =
00:07:28 #19087 [verbose] > global "#if FABLE_COMPILER // file_system.types"
00:07:28 #19088 [verbose] > sm'.types ()
00:07:28 #19089 [verbose] > rust.types ()
00:07:28 #19090 [verbose] > types ()
00:07:28 #19091 [verbose] > global "#endif // file_system.types"
00:07:28 #19092 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e68733e68b764134f711ae7d46dbdbcc484436512d26d92371ce0b1a40f96191\main.spi
00:07:28 #19093 [verbose] >
00:07:28 #19094 [verbose] > ╭─[ 284.37ms - stdout ]────────────────────────────────────────────────────────╮
00:07:28 #19095 [verbose] > │ () │
00:07:28 #19096 [verbose] > │ │
00:07:28 #19097 [verbose] > │ │
00:07:28 #19098 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:28 #19099 [verbose] >
00:07:28 #19100 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:28 #19101 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:28 #19102 [verbose] > │ ## file_mode │
00:07:28 #19103 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:28 #19104 [verbose] >
00:07:28 #19105 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:28 #19106 [verbose] > nominal file_mode' = $'System.IO.FileMode'
00:07:28 #19107 [verbose] >
00:07:28 #19108 [verbose] > union file_mode =
00:07:28 #19109 [verbose] > | ModeCreateNew
00:07:28 #19110 [verbose] > | ModeCreate
00:07:28 #19111 [verbose] > | ModeOpen
00:07:28 #19112 [verbose] > | ModeOpenOrCreate
00:07:28 #19113 [verbose] > | Truncate
00:07:28 #19114 [verbose] > | Append
00:07:28 #19115 [verbose] >
00:07:28 #19116 [verbose] > inl file_mode = function
00:07:28 #19117 [verbose] > | ModeCreateNew => $'System.IO.FileMode.CreateNew' : file_mode'
00:07:28 #19118 [verbose] > | ModeCreate => $'System.IO.FileMode.Create' : file_mode'
00:07:28 #19119 [verbose] > | ModeOpen => $'System.IO.FileMode.Open' : file_mode'
00:07:28 #19120 [verbose] > | ModeOpenOrCreate => $'System.IO.FileMode.OpenOrCreate' : file_mode'
00:07:28 #19121 [verbose] > | Truncate => $'System.IO.FileMode.Truncate' : file_mode'
00:07:28 #19122 [verbose] > | Append => $'System.IO.FileMode.Append' : file_mode'
00:07:28 #19123 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\484b87615fe68fdb707b0bed291f001da522ed3f56cff1f5947f2854467a753d\main.spi
00:07:28 #19124 [verbose] >
00:07:28 #19125 [verbose] > ╭─[ 268.51ms - stdout ]────────────────────────────────────────────────────────╮
00:07:28 #19126 [verbose] > │ () │
00:07:28 #19127 [verbose] > │ │
00:07:28 #19128 [verbose] > │ │
00:07:28 #19129 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:28 #19130 [verbose] >
00:07:28 #19131 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:28 #19132 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:28 #19133 [verbose] > │ ## file_access │
00:07:28 #19134 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:28 #19135 [verbose] >
00:07:28 #19136 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:28 #19137 [verbose] > nominal file_access' = $'System.IO.FileAccess'
00:07:28 #19138 [verbose] >
00:07:28 #19139 [verbose] > union file_access =
00:07:28 #19140 [verbose] > | AccessRead
00:07:28 #19141 [verbose] > | AccessWrite
00:07:28 #19142 [verbose] > | AccessReadWrite
00:07:28 #19143 [verbose] >
00:07:28 #19144 [verbose] > inl file_access = function
00:07:28 #19145 [verbose] > | AccessRead => $'System.IO.FileAccess.Read' : file_access'
00:07:28 #19146 [verbose] > | AccessWrite => $'System.IO.FileAccess.ReadWrite' : file_access'
00:07:28 #19147 [verbose] > | AccessReadWrite => $'System.IO.FileAccess.ReadWrite' : file_access'
00:07:28 #19148 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f1897c2318d589b3806ec362f586c664f962d48abef7663ed441c5187cb92dc5\main.spi
00:07:28 #19149 [verbose] >
00:07:28 #19150 [verbose] > ╭─[ 238.75ms - stdout ]────────────────────────────────────────────────────────╮
00:07:28 #19151 [verbose] > │ () │
00:07:28 #19152 [verbose] > │ │
00:07:28 #19153 [verbose] > │ │
00:07:28 #19154 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:28 #19155 [verbose] >
00:07:28 #19156 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:28 #19157 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:28 #19158 [verbose] > │ ## file_share │
00:07:28 #19159 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:28 #19160 [verbose] >
00:07:28 #19161 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:28 #19162 [verbose] > nominal file_share' = $'System.IO.FileShare'
00:07:28 #19163 [verbose] >
00:07:28 #19164 [verbose] > union file_share =
00:07:28 #19165 [verbose] > | ShareNone
00:07:28 #19166 [verbose] > | ShareRead
00:07:28 #19167 [verbose] > | ShareWrite
00:07:28 #19168 [verbose] > | ShareReadWrite
00:07:28 #19169 [verbose] > | ShareDelete
00:07:28 #19170 [verbose] >
00:07:28 #19171 [verbose] > inl file_share = function
00:07:28 #19172 [verbose] > | ShareNone => $'System.IO.FileShare.None' : file_share'
00:07:28 #19173 [verbose] > | ShareRead => $'System.IO.FileShare.Read' : file_share'
00:07:28 #19174 [verbose] > | ShareWrite => $'System.IO.FileShare.Write' : file_share'
00:07:28 #19175 [verbose] > | ShareReadWrite => $'System.IO.FileShare.ReadWrite' : file_share'
00:07:28 #19176 [verbose] > | ShareDelete => $'System.IO.FileShare.Delete' : file_share'
00:07:29 #19177 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f4599e5fe72536acc1c1ba15d6cb145f3fb9d7147a52b31a38215cd4be3326ae\main.spi
00:07:29 #19178 [verbose] >
00:07:29 #19179 [verbose] > ╭─[ 279.13ms - stdout ]────────────────────────────────────────────────────────╮
00:07:29 #19180 [verbose] > │ () │
00:07:29 #19181 [verbose] > │ │
00:07:29 #19182 [verbose] > │ │
00:07:29 #19183 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:29 #19184 [verbose] >
00:07:29 #19185 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:29 #19186 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:29 #19187 [verbose] > │ ## file_stream │
00:07:29 #19188 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:29 #19189 [verbose] >
00:07:29 #19190 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:29 #19191 [verbose] > nominal file_stream' = $'System.IO.FileStream'
00:07:29 #19192 [verbose] >
00:07:29 #19193 [verbose] > inl file_stream (path : string) mode access share : file_stream' =
00:07:29 #19194 [verbose] > run_target function
00:07:29 #19195 [verbose] > | Fsharp (Native) => fun () =>
00:07:29 #19196 [verbose] > inl mode = mode |> file_mode
00:07:29 #19197 [verbose] > inl access = access |> file_access
00:07:29 #19198 [verbose] > inl share = share |> file_share
00:07:29 #19199 [verbose] > $'new System.IO.FileStream (!path, !mode, !access, !share)'
00:07:29 #19200 [verbose] > | _ => fun () => null ()
00:07:29 #19201 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e9d00de34f54cd5950a679147d9884b659b41b666d3e05df0f3fd64514d863c5\main.spi
00:07:29 #19202 [verbose] >
00:07:29 #19203 [verbose] > ╭─[ 258.32ms - stdout ]────────────────────────────────────────────────────────╮
00:07:29 #19204 [verbose] > │ () │
00:07:29 #19205 [verbose] > │ │
00:07:29 #19206 [verbose] > │ │
00:07:29 #19207 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:29 #19208 [verbose] >
00:07:29 #19209 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:29 #19210 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:29 #19211 [verbose] > │ ## path │
00:07:29 #19212 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:29 #19213 [verbose] >
00:07:29 #19214 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:29 #19215 [verbose] > nominal path = $'std_path_Path'
00:07:29 #19216 [verbose] > nominal path_buf = $'std_path_PathBuf'
00:07:29 #19217 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\35d79212916f6890c31315266bbf13ac3a8f374727ea00859a67e269414521e5\main.spi
00:07:29 #19218 [verbose] >
00:07:29 #19219 [verbose] > ╭─[ 261.13ms - stdout ]────────────────────────────────────────────────────────╮
00:07:29 #19220 [verbose] > │ () │
00:07:29 #19221 [verbose] > │ │
00:07:29 #19222 [verbose] > │ │
00:07:29 #19223 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:29 #19224 [verbose] >
00:07:29 #19225 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:29 #19226 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:29 #19227 [verbose] > │ ## new_path_buf │
00:07:29 #19228 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:29 #19229 [verbose] >
00:07:29 #19230 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:29 #19231 [verbose] > inl new_path_buf (path : string) : path_buf =
00:07:29 #19232 [verbose] > open rust_operators
00:07:29 #19233 [verbose] > inl path = path |> sm'.to_std_string
00:07:29 #19234 [verbose] > !\\(path, $'"std::path::PathBuf::from($0)"')
00:07:29 #19235 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7baad357bc03e35ecda7f8cf53cedf9ee6132b1eff380a0956f226835da5ba91\main.spi
00:07:30 #19236 [verbose] >
00:07:30 #19237 [verbose] > ╭─[ 243.75ms - stdout ]────────────────────────────────────────────────────────╮
00:07:30 #19238 [verbose] > │ () │
00:07:30 #19239 [verbose] > │ │
00:07:30 #19240 [verbose] > │ │
00:07:30 #19241 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #19242 [verbose] >
00:07:30 #19243 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:30 #19244 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:30 #19245 [verbose] > │ ## path_buf_from │
00:07:30 #19246 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #19247 [verbose] >
00:07:30 #19248 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:30 #19249 [verbose] > inl path_buf_from (path : rust.box path) : path_buf =
00:07:30 #19250 [verbose] > open rust_operators
00:07:30 #19251 [verbose] > !\\(path, $'"std::path::PathBuf::from($0)"')
00:07:30 #19252 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d928a0ce805e6e889177d873f242e9845297cc61910809a039c8ab5dd6bfe924\main.spi
00:07:30 #19253 [verbose] >
00:07:30 #19254 [verbose] > ╭─[ 248.94ms - stdout ]────────────────────────────────────────────────────────╮
00:07:30 #19255 [verbose] > │ () │
00:07:30 #19256 [verbose] > │ │
00:07:30 #19257 [verbose] > │ │
00:07:30 #19258 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #19259 [verbose] >
00:07:30 #19260 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:30 #19261 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:30 #19262 [verbose] > │ ## path_join │
00:07:30 #19263 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #19264 [verbose] >
00:07:30 #19265 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:30 #19266 [verbose] > inl path_join (s : string) (path_buf : path_buf) : path_buf =
00:07:30 #19267 [verbose] > open rust_operators
00:07:30 #19268 [verbose] > !\\((path_buf, s |> sm'.to_std_string), $'"$0.join($1)"')
00:07:30 #19269 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5638cc72691b554ae2d57be04679caa80415feaacb826e81ccc0359db518eeb5\main.spi
00:07:30 #19270 [verbose] >
00:07:30 #19271 [verbose] > ╭─[ 265.46ms - stdout ]────────────────────────────────────────────────────────╮
00:07:30 #19272 [verbose] > │ () │
00:07:30 #19273 [verbose] > │ │
00:07:30 #19274 [verbose] > │ │
00:07:30 #19275 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #19276 [verbose] >
00:07:30 #19277 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:30 #19278 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:30 #19279 [verbose] > │ ## path_display │
00:07:30 #19280 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #19281 [verbose] >
00:07:30 #19282 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:30 #19283 [verbose] > inl path_display (path : rust.ref' path) : sm'.std_string =
00:07:30 #19284 [verbose] > open rust_operators
00:07:30 #19285 [verbose] > !\\(path, $'"$0.display().to_string()"')
00:07:30 #19286 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e27324cfedf3791b19b1931b7ae55a321f14b96fcd0ae76666afd4c8d17f58d3\main.spi
00:07:30 #19287 [verbose] >
00:07:30 #19288 [verbose] > ╭─[ 198.92ms - stdout ]────────────────────────────────────────────────────────╮
00:07:30 #19289 [verbose] > │ () │
00:07:30 #19290 [verbose] > │ │
00:07:30 #19291 [verbose] > │ │
00:07:30 #19292 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #19293 [verbose] >
00:07:30 #19294 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:30 #19295 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:30 #19296 [verbose] > │ ## path_buf_file_name │
00:07:30 #19297 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:30 #19298 [verbose] >
00:07:30 #19299 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:30 #19300 [verbose] > inl path_buf_file_name (path : path_buf) : optionm'.option' (rust.ref'
00:07:30 #19301 [verbose] > sm'.os_str) =
00:07:30 #19302 [verbose] > open rust_operators
00:07:30 #19303 [verbose] > !\($'"!path.file_name()"')
00:07:30 #19304 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\609e6d2b938374c38bb307c0b969035066cb89ffcebc3d2cbc8ad338b3f4c110\main.spi
00:07:31 #19305 [verbose] >
00:07:31 #19306 [verbose] > ╭─[ 221.33ms - stdout ]────────────────────────────────────────────────────────╮
00:07:31 #19307 [verbose] > │ () │
00:07:31 #19308 [verbose] > │ │
00:07:31 #19309 [verbose] > │ │
00:07:31 #19310 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #19311 [verbose] >
00:07:31 #19312 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:31 #19313 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:31 #19314 [verbose] > │ ## path_buf_display │
00:07:31 #19315 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #19316 [verbose] >
00:07:31 #19317 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:31 #19318 [verbose] > inl path_buf_display (path_buf : path_buf) : sm'.std_string =
00:07:31 #19319 [verbose] > open rust_operators
00:07:31 #19320 [verbose] > !\\(path_buf, $'"$0.display().to_string()"')
00:07:31 #19321 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c97bfb19456f1fe0a20519ebb24ac28ebf121575bb202ef5b7721d7e51417a74\main.spi
00:07:31 #19322 [verbose] >
00:07:31 #19323 [verbose] > ╭─[ 230.73ms - stdout ]────────────────────────────────────────────────────────╮
00:07:31 #19324 [verbose] > │ () │
00:07:31 #19325 [verbose] > │ │
00:07:31 #19326 [verbose] > │ │
00:07:31 #19327 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #19328 [verbose] >
00:07:31 #19329 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:31 #19330 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:31 #19331 [verbose] > │ ## path_exists │
00:07:31 #19332 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #19333 [verbose] >
00:07:31 #19334 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:31 #19335 [verbose] > inl path_buf_exists (path_buf : path_buf) : bool =
00:07:31 #19336 [verbose] > open rust_operators
00:07:31 #19337 [verbose] > !\\(path_buf, $'"$0.exists()"')
00:07:31 #19338 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\21d60e80919d6c096058e7f6419f02c121b9b8ed9b4a754cf9313fd560baf912\main.spi
00:07:31 #19339 [verbose] >
00:07:31 #19340 [verbose] > ╭─[ 258.70ms - stdout ]────────────────────────────────────────────────────────╮
00:07:31 #19341 [verbose] > │ () │
00:07:31 #19342 [verbose] > │ │
00:07:31 #19343 [verbose] > │ │
00:07:31 #19344 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #19345 [verbose] >
00:07:31 #19346 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:31 #19347 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:31 #19348 [verbose] > │ ## path_is_dir │
00:07:31 #19349 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #19350 [verbose] >
00:07:31 #19351 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:31 #19352 [verbose] > inl path_buf_is_dir (path_buf : path_buf) : bool =
00:07:31 #19353 [verbose] > open rust_operators
00:07:31 #19354 [verbose] > !\\(path_buf, $'"$0.is_dir()"')
00:07:31 #19355 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\69140b3077799c33c915a3c4f4d9820c1aa2af10ba1574ab69c295c8e90fce56\main.spi
00:07:31 #19356 [verbose] >
00:07:31 #19357 [verbose] > ╭─[ 249.98ms - stdout ]────────────────────────────────────────────────────────╮
00:07:31 #19358 [verbose] > │ () │
00:07:31 #19359 [verbose] > │ │
00:07:31 #19360 [verbose] > │ │
00:07:31 #19361 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #19362 [verbose] >
00:07:31 #19363 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:31 #19364 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:31 #19365 [verbose] > │ ## path_is_file │
00:07:31 #19366 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:31 #19367 [verbose] >
00:07:31 #19368 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:31 #19369 [verbose] > inl path_buf_is_file (path_buf : path_buf) : bool =
00:07:31 #19370 [verbose] > open rust_operators
00:07:31 #19371 [verbose] > !\\(path_buf, $'"$0.is_file()"')
00:07:31 #19372 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8ec59c7174d31994c0eb3ef68d083c8d80076eb0fe6c4841b3d0c01cc7463677\main.spi
00:07:31 #19373 [verbose] >
00:07:32 #19374 [verbose] > ╭─[ 238.54ms - stdout ]────────────────────────────────────────────────────────╮
00:07:32 #19375 [verbose] > │ () │
00:07:32 #19376 [verbose] > │ │
00:07:32 #19377 [verbose] > │ │
00:07:32 #19378 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #19379 [verbose] >
00:07:32 #19380 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:32 #19381 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:32 #19382 [verbose] > │ ## path_buf_parent │
00:07:32 #19383 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #19384 [verbose] >
00:07:32 #19385 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 #19386 [verbose] > inl path_buf_parent (path_buf : path_buf) : optionm'.option' path_buf =
00:07:32 #19387 [verbose] > open rust_operators
00:07:32 #19388 [verbose] > !\\(path_buf, $'"$0.parent().map(std::path::PathBuf::from)"')
00:07:32 #19389 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9319952f747666870eee57be97ce9cc870ef9599f5c07c43a9416d0813f7b20d\main.spi
00:07:32 #19390 [verbose] >
00:07:32 #19391 [verbose] > ╭─[ 262.21ms - stdout ]────────────────────────────────────────────────────────╮
00:07:32 #19392 [verbose] > │ () │
00:07:32 #19393 [verbose] > │ │
00:07:32 #19394 [verbose] > │ │
00:07:32 #19395 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #19396 [verbose] >
00:07:32 #19397 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:32 #19398 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:32 #19399 [verbose] > │ ## ts_path_join │
00:07:32 #19400 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #19401 [verbose] >
00:07:32 #19402 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 #19403 [verbose] > inl ts_path_join (b : string) (a : string) : string =
00:07:32 #19404 [verbose] > open ts_operators
00:07:32 #19405 [verbose] > global "type IPathJoin = abstract join: [[<System.ParamArray>]] paths:
00:07:32 #19406 [verbose] > string[[]] -> string"
00:07:32 #19407 [verbose] > inl path : $'IPathJoin' = ts.import_all "path"
00:07:32 #19408 [verbose] > !\\((a, b), $'"!path.join($0, $1)"')
00:07:32 #19409 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e4358c1b996e341f9adabad7687775c6b568823f6faef49d2fd054805b10ade9\main.spi
00:07:32 #19410 [verbose] >
00:07:32 #19411 [verbose] > ╭─[ 240.00ms - stdout ]────────────────────────────────────────────────────────╮
00:07:32 #19412 [verbose] > │ () │
00:07:32 #19413 [verbose] > │ │
00:07:32 #19414 [verbose] > │ │
00:07:32 #19415 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #19416 [verbose] >
00:07:32 #19417 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:32 #19418 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:32 #19419 [verbose] > │ ## (< />) │
00:07:32 #19420 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #19421 [verbose] >
00:07:32 #19422 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 #19423 [verbose] > inl (</>) (a : string) (b : string) : string =
00:07:32 #19424 [verbose] > run_target function
00:07:32 #19425 [verbose] > | Rust (Native) => fun () =>
00:07:32 #19426 [verbose] > a |> new_path_buf |> path_join b |> path_buf_display |>
00:07:32 #19427 [verbose] > sm'.from_std_string
00:07:32 #19428 [verbose] > | Fsharp (Native) => fun () =>
00:07:32 #19429 [verbose] > $'System.IO.Path.Combine (!a, !b)'
00:07:32 #19430 [verbose] > | TypeScript _ => fun () =>
00:07:32 #19431 [verbose] > a |> ts_path_join b
00:07:32 #19432 [verbose] > | _ => fun () => null ()
00:07:32 #19433 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\007ad635c9661a2cec0a2c5c2208dc4646ce88e42f1ef63cc6c9a2b95cde2953\main.spi
00:07:32 #19434 [verbose] >
00:07:32 #19435 [verbose] > ╭─[ 284.00ms - stdout ]────────────────────────────────────────────────────────╮
00:07:32 #19436 [verbose] > │ () │
00:07:32 #19437 [verbose] > │ │
00:07:32 #19438 [verbose] > │ │
00:07:32 #19439 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #19440 [verbose] >
00:07:32 #19441 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:32 #19442 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:32 #19443 [verbose] > │ ## get_temp_path │
00:07:32 #19444 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:32 #19445 [verbose] >
00:07:32 #19446 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:32 #19447 [verbose] > inl get_temp_path () : string =
00:07:32 #19448 [verbose] > $'System.IO.Path.GetTempPath' ()
00:07:32 #19449 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e84e15ef92cb8025f748044a7ea42476e0831601d649f8b383bd018eb08ab7d8\main.spi
00:07:33 #19450 [verbose] >
00:07:33 #19451 [verbose] > ╭─[ 284.32ms - stdout ]────────────────────────────────────────────────────────╮
00:07:33 #19452 [verbose] > │ () │
00:07:33 #19453 [verbose] > │ │
00:07:33 #19454 [verbose] > │ │
00:07:33 #19455 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 #19456 [verbose] >
00:07:33 #19457 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:33 #19458 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:33 #19459 [verbose] > │ ## get_file_name │
00:07:33 #19460 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 #19461 [verbose] >
00:07:33 #19462 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 #19463 [verbose] > inl get_file_name (path : string) : string =
00:07:33 #19464 [verbose] > run_target function
00:07:33 #19465 [verbose] > | Fsharp (Native) => fun () =>
00:07:33 #19466 [verbose] > path |> $'System.IO.Path.GetFileName'
00:07:33 #19467 [verbose] > | _ => fun () => null ()
00:07:33 #19468 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c47505e13b585b7f79e1c32c7b8bfcd0755836e7fa4cb84935fad5bdb210a64e\main.spi
00:07:33 #19469 [verbose] >
00:07:33 #19470 [verbose] > ╭─[ 267.06ms - stdout ]────────────────────────────────────────────────────────╮
00:07:33 #19471 [verbose] > │ () │
00:07:33 #19472 [verbose] > │ │
00:07:33 #19473 [verbose] > │ │
00:07:33 #19474 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 #19475 [verbose] >
00:07:33 #19476 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:33 #19477 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:33 #19478 [verbose] > │ ## create_temp_directory_name │
00:07:33 #19479 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 #19480 [verbose] >
00:07:33 #19481 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 #19482 [verbose] > inl create_temp_directory_name () =
00:07:33 #19483 [verbose] > run_target function
00:07:33 #19484 [verbose] > | Fsharp (Native) => fun () =>
00:07:33 #19485 [verbose] > get_temp_path ()
00:07:33 #19486 [verbose] > </> ($'$"\!{!get_entry_assembly_name ()}"' : string)
00:07:33 #19487 [verbose] > </> (date_time.now () |> date_time.new_guid_from_date_time |>
00:07:33 #19488 [verbose] > sm'.obj_to_string)
00:07:33 #19489 [verbose] > | target => fun () => null ()
00:07:33 #19490 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3b9f9e25d4a8f9c7640425b49cf43b2be7f026718abfaf7e8ad4ef43fb845152\main.spi
00:07:33 #19491 [verbose] >
00:07:33 #19492 [verbose] > ╭─[ 210.25ms - stdout ]────────────────────────────────────────────────────────╮
00:07:33 #19493 [verbose] > │ () │
00:07:33 #19494 [verbose] > │ │
00:07:33 #19495 [verbose] > │ │
00:07:33 #19496 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:33 #19497 [verbose] >
00:07:33 #19498 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:33 #19499 [verbose] > // // test
00:07:33 #19500 [verbose] >
00:07:33 #19501 [verbose] > create_temp_directory_name ()
00:07:33 #19502 [verbose] > |> _assert_contains ($'System.IO.Path.DirectorySeparatorChar' : char)
00:07:33 #19503 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b8fa5422a3a0f51d068b69c04450e05ee04f3c061341f5753aca34269d34d204\main.spi
00:07:35 #19504 [verbose] >
00:07:35 #19505 [verbose] > ╭─[ 1.58s - stdout ]───────────────────────────────────────────────────────────╮
00:07:35 #19506 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:07:35 #19507 [verbose] > │ string │
00:07:35 #19508 [verbose] > │ type [<Struct>] US0 = │
00:07:35 #19509 [verbose] > │ | US0_0 of f0_0 : char │
00:07:35 #19510 [verbose] > │ | US0_1 │
00:07:35 #19511 [verbose] > │ let rec closure0 () () : string = │
00:07:35 #19512 [verbose] > │ let v0 : string option = None │
00:07:35 #19513 [verbose] > │ let mutable _v0 = v0 │
00:07:35 #19514 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:35 #19515 [verbose] > │ let v1 : string = null |> unbox<string> │
00:07:35 #19516 [verbose] > │ v1 │
00:07:35 #19517 [verbose] > │ #endif │
00:07:35 #19518 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:35 #19519 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:35 #19520 [verbose] > │ v2 │
00:07:35 #19521 [verbose] > │ #endif │
00:07:35 #19522 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:35 #19523 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:35 #19524 [verbose] > │ v3 │
00:07:35 #19525 [verbose] > │ #endif │
00:07:35 #19526 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:35 #19527 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:35 #19528 [verbose] > │ let v4 : string = │
00:07:35 #19529 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:35 #19530 [verbose] > │ v4 │
00:07:35 #19531 [verbose] > │ #endif │
00:07:35 #19532 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:35 #19533 [verbose] > │ let v5 : string = null |> unbox<string> │
00:07:35 #19534 [verbose] > │ v5 │
00:07:35 #19535 [verbose] > │ #endif │
00:07:35 #19536 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:35 #19537 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:07:35 #19538 [verbose] > │ v6 │
00:07:35 #19539 [verbose] > │ #endif │
00:07:35 #19540 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:35 #19541 [verbose] > │ let v7 : string = _v0.Value │
00:07:35 #19542 [verbose] > │ v7 │
00:07:35 #19543 [verbose] > │ and method1 (v0 : string) : string = │
00:07:35 #19544 [verbose] > │ v0 │
00:07:35 #19545 [verbose] > │ and closure1 (v0 : char) (v1 : char) : bool = │
00:07:35 #19546 [verbose] > │ let v2 : bool = v0 = v1 │
00:07:35 #19547 [verbose] > │ v2 │
00:07:35 #19548 [verbose] > │ and closure2 () (v0 : char) : US0 = │
00:07:35 #19549 [verbose] > │ US0_0(v0) │
00:07:35 #19550 [verbose] > │ and method2 () : (char -> US0) = │
00:07:35 #19551 [verbose] > │ closure2() │
00:07:35 #19552 [verbose] > │ and method3 (v0 : bool) : bool = │
00:07:35 #19553 [verbose] > │ v0 │
00:07:35 #19554 [verbose] > │ and method0 () : unit = │
00:07:35 #19555 [verbose] > │ let v0 : string option = None │
00:07:35 #19556 [verbose] > │ let mutable _v0 = v0 │
00:07:35 #19557 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:35 #19558 [verbose] > │ let v1 : string = null |> unbox<string> │
00:07:35 #19559 [verbose] > │ v1 │
00:07:35 #19560 [verbose] > │ #endif │
00:07:35 #19561 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:35 #19562 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:35 #19563 [verbose] > │ v2 │
00:07:35 #19564 [verbose] > │ #endif │
00:07:35 #19565 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:35 #19566 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:35 #19567 [verbose] > │ v3 │
00:07:35 #19568 [verbose] > │ #endif │
00:07:35 #19569 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:35 #19570 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:35 #19571 [verbose] > │ let v4 : (unit -> string) = System.IO.Path.GetTempPath │
00:07:35 #19572 [verbose] > │ let v5 : string = v4 () │
00:07:35 #19573 [verbose] > │ let v6 : (unit -> string) = closure0() │
00:07:35 #19574 [verbose] > │ let v7 : string = $"!{v6 ()}" │
00:07:35 #19575 [verbose] > │ let v8 : string option = None │
00:07:35 #19576 [verbose] > │ let mutable _v8 = v8 │
00:07:35 #19577 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:35 #19578 [verbose] > │ let v9 : string = method1(v5) │
00:07:35 #19579 [verbose] > │ let v10 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:35 #19580 [verbose] > │ let v11 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:07:35 #19581 [verbose] > │ let v12 : string = "String::from($0)" │
00:07:35 #19582 [verbose] > │ let v13 : std_string_String = Fable.Core.RustInterop.emitRustExpr v11 │
00:07:35 #19583 [verbose] > │ v12 │
00:07:35 #19584 [verbose] > │ let v14 : string = "std::path::PathBuf::from($0)" │
00:07:35 #19585 [verbose] > │ let v15 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v13 v14 │
00:07:35 #19586 [verbose] > │ let v16 : string = method1(v7) │
00:07:35 #19587 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:35 #19588 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:07:35 #19589 [verbose] > │ let v19 : string = "String::from($0)" │
00:07:35 #19590 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:07:35 #19591 [verbose] > │ v19 │
00:07:35 #19592 [verbose] > │ let v21 : string = "$0.join($1)" │
00:07:35 #19593 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:35 #19594 [verbose] > │ (v15, v20) v21 │
00:07:35 #19595 [verbose] > │ let v23 : string = "$0.display().to_string()" │
00:07:35 #19596 [verbose] > │ let v24 : std_string_String = Fable.Core.RustInterop.emitRustExpr v22 │
00:07:35 #19597 [verbose] > │ v23 │
00:07:35 #19598 [verbose] > │ let v25 : string = "fable_library_rust::String_::fromString($0)" │
00:07:35 #19599 [verbose] > │ let v26 : string = Fable.Core.RustInterop.emitRustExpr v24 v25 │
00:07:35 #19600 [verbose] > │ v26 │
00:07:35 #19601 [verbose] > │ #endif │
00:07:35 #19602 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:35 #19603 [verbose] > │ let v27 : string = null |> unbox<string> │
00:07:35 #19604 [verbose] > │ v27 │
00:07:35 #19605 [verbose] > │ #endif │
00:07:35 #19606 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:35 #19607 [verbose] > │ let v28 : string = null |> unbox<string> │
00:07:35 #19608 [verbose] > │ v28 │
00:07:35 #19609 [verbose] > │ #endif │
00:07:35 #19610 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:35 #19611 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:35 #19612 [verbose] > │ let v29 : string = System.IO.Path.Combine (v5, v7) │
00:07:35 #19613 [verbose] > │ v29 │
00:07:35 #19614 [verbose] > │ #endif │
00:07:35 #19615 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:35 #19616 [verbose] > │ let v30 : string = "path" │
00:07:35 #19617 [verbose] > │ let v31 : IPathJoin = Fable.Core.JsInterop.importAll v30 │
00:07:35 #19618 [verbose] > │ let v32 : string = "v31.join($0, $1)" │
00:07:35 #19619 [verbose] > │ let v33 : string = Fable.Core.JsInterop.emitJsExpr struct (v5, v7) v32 │
00:07:35 #19620 [verbose] > │ v33 │
00:07:35 #19621 [verbose] > │ #endif │
00:07:35 #19622 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:35 #19623 [verbose] > │ let v34 : string = Unchecked.defaultof<string> │
00:07:35 #19624 [verbose] > │ v34 │
00:07:35 #19625 [verbose] > │ #endif │
00:07:35 #19626 [verbose] > │ |> fun x -> _v8 <- Some x │
00:07:35 #19627 [verbose] > │ let v35 : string = _v8.Value │
00:07:35 #19628 [verbose] > │ let v36 : System.DateTime = System.DateTime.Now │
00:07:35 #19629 [verbose] > │ let v37 : System.Guid = System.Guid.NewGuid () │
00:07:35 #19630 [verbose] > │ let v38 : (System.Guid -> string) = _.ToString() │
00:07:35 #19631 [verbose] > │ let v39 : string = v38 v37 │
00:07:35 #19632 [verbose] > │ let v40 : string = v36.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:07:35 #19633 [verbose] > │ let v41 : System.Guid = System.Guid $"{v40}{v39.[v40.Length..]}" │
00:07:35 #19634 [verbose] > │ let v42 : (System.Guid -> string) = _.ToString() │
00:07:35 #19635 [verbose] > │ let v43 : string = v42 v41 │
00:07:35 #19636 [verbose] > │ let v44 : string option = None │
00:07:35 #19637 [verbose] > │ let mutable _v44 = v44 │
00:07:35 #19638 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:35 #19639 [verbose] > │ let v45 : string = method1(v35) │
00:07:35 #19640 [verbose] > │ let v46 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:35 #19641 [verbose] > │ let v47 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v45 v46 │
00:07:35 #19642 [verbose] > │ let v48 : string = "String::from($0)" │
00:07:35 #19643 [verbose] > │ let v49 : std_string_String = Fable.Core.RustInterop.emitRustExpr v47 │
00:07:35 #19644 [verbose] > │ v48 │
00:07:35 #19645 [verbose] > │ let v50 : string = "std::path::PathBuf::from($0)" │
00:07:35 #19646 [verbose] > │ let v51 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v49 v50 │
00:07:35 #19647 [verbose] > │ let v52 : string = method1(v43) │
00:07:35 #19648 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:35 #19649 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:07:35 #19650 [verbose] > │ let v55 : string = "String::from($0)" │
00:07:35 #19651 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:07:35 #19652 [verbose] > │ v55 │
00:07:35 #19653 [verbose] > │ let v57 : string = "$0.join($1)" │
00:07:35 #19654 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:35 #19655 [verbose] > │ (v51, v56) v57 │
00:07:35 #19656 [verbose] > │ let v59 : string = "$0.display().to_string()" │
00:07:35 #19657 [verbose] > │ let v60 : std_string_String = Fable.Core.RustInterop.emitRustExpr v58 │
00:07:35 #19658 [verbose] > │ v59 │
00:07:35 #19659 [verbose] > │ let v61 : string = "fable_library_rust::String_::fromString($0)" │
00:07:35 #19660 [verbose] > │ let v62 : string = Fable.Core.RustInterop.emitRustExpr v60 v61 │
00:07:35 #19661 [verbose] > │ v62 │
00:07:35 #19662 [verbose] > │ #endif │
00:07:35 #19663 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:35 #19664 [verbose] > │ let v63 : string = null |> unbox<string> │
00:07:35 #19665 [verbose] > │ v63 │
00:07:35 #19666 [verbose] > │ #endif │
00:07:35 #19667 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:35 #19668 [verbose] > │ let v64 : string = null |> unbox<string> │
00:07:35 #19669 [verbose] > │ v64 │
00:07:35 #19670 [verbose] > │ #endif │
00:07:35 #19671 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:35 #19672 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:35 #19673 [verbose] > │ let v65 : string = System.IO.Path.Combine (v35, v43) │
00:07:35 #19674 [verbose] > │ v65 │
00:07:35 #19675 [verbose] > │ #endif │
00:07:35 #19676 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:35 #19677 [verbose] > │ let v66 : IPathJoin = Fable.Core.JsInterop.importAll v30 │
00:07:35 #19678 [verbose] > │ let v67 : string = "v66.join($0, $1)" │
00:07:35 #19679 [verbose] > │ let v68 : string = Fable.Core.JsInterop.emitJsExpr struct (v35, v43) v67 │
00:07:35 #19680 [verbose] > │ v68 │
00:07:35 #19681 [verbose] > │ #endif │
00:07:35 #19682 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:35 #19683 [verbose] > │ let v69 : string = Unchecked.defaultof<string> │
00:07:35 #19684 [verbose] > │ v69 │
00:07:35 #19685 [verbose] > │ #endif │
00:07:35 #19686 [verbose] > │ |> fun x -> _v44 <- Some x │
00:07:35 #19687 [verbose] > │ let v70 : string = _v44.Value │
00:07:35 #19688 [verbose] > │ v70 │
00:07:35 #19689 [verbose] > │ #endif │
00:07:35 #19690 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:35 #19691 [verbose] > │ let v71 : string = null |> unbox<string> │
00:07:35 #19692 [verbose] > │ v71 │
00:07:35 #19693 [verbose] > │ #endif │
00:07:35 #19694 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:35 #19695 [verbose] > │ let v72 : string = Unchecked.defaultof<string> │
00:07:35 #19696 [verbose] > │ v72 │
00:07:35 #19697 [verbose] > │ #endif │
00:07:35 #19698 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:35 #19699 [verbose] > │ let v73 : string = _v0.Value │
00:07:35 #19700 [verbose] > │ let v74 : char = System.IO.Path.DirectorySeparatorChar │
00:07:35 #19701 [verbose] > │ let v75 : string = $"%A{v73}" │
00:07:35 #19702 [verbose] > │ System.Console.WriteLine v75 │
00:07:35 #19703 [verbose] > │ let v76 : ((char -> bool) -> (string -> char option)) = Seq.tryFind │
00:07:35 #19704 [verbose] > │ let v77 : (char -> bool) = closure1(v74) │
00:07:35 #19705 [verbose] > │ let v78 : (string -> char option) = v76 v77 │
00:07:35 #19706 [verbose] > │ let v79 : char option = v78 v73 │
00:07:35 #19707 [verbose] > │ let v80 : (char -> US0) = method2() │
00:07:35 #19708 [verbose] > │ let v81 : US0 = US0_1 │
00:07:35 #19709 [verbose] > │ let v82 : US0 = v79 |> Option.map v80 |> Option.defaultValue v81 │
00:07:35 #19710 [verbose] > │ let v84 : bool = │
00:07:35 #19711 [verbose] > │ match v82 with │
00:07:35 #19712 [verbose] > │ | US0_1 -> (* None *) │
00:07:35 #19713 [verbose] > │ true │
00:07:35 #19714 [verbose] > │ | _ -> │
00:07:35 #19715 [verbose] > │ false │
00:07:35 #19716 [verbose] > │ let v85 : bool = v84 <> true │
00:07:35 #19717 [verbose] > │ let v87 : bool = │
00:07:35 #19718 [verbose] > │ if v85 then │
00:07:35 #19719 [verbose] > │ true │
00:07:35 #19720 [verbose] > │ else │
00:07:35 #19721 [verbose] > │ method3(v85) │
00:07:35 #19722 [verbose] > │ let v88 : string = $"__expect / actual: %A{v73} / expected: %A{v74}" │
00:07:35 #19723 [verbose] > │ let v89 : bool = v87 = false │
00:07:35 #19724 [verbose] > │ if v89 then │
00:07:35 #19725 [verbose] > │ failwith<unit> v88 │
00:07:35 #19726 [verbose] > │ method0() │
00:07:35 #19727 [verbose] > │ │
00:07:35 #19728 [verbose] > │ "C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240411-2051-3867-6731-6b07 │
00:07:35 #19729 [verbose] > │ c3d355bf" │
00:07:35 #19730 [verbose] > │ │
00:07:35 #19731 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:35 #19732 [verbose] >
00:07:35 #19733 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:35 #19734 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:35 #19735 [verbose] > │ ## directory_info │
00:07:35 #19736 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:35 #19737 [verbose] >
00:07:35 #19738 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:35 #19739 [verbose] > nominal directory_info = $'System.IO.DirectoryInfo'
00:07:35 #19740 [verbose] >
00:07:35 #19741 [verbose] > inl directory_info (path : string) : directory_info =
00:07:35 #19742 [verbose] > path |> $'`directory_info '
00:07:35 #19743 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5466402083aea3dc26c9b1b4876f1778846baf79383e479b88a8836487b7e821\main.spi
00:07:35 #19744 [verbose] >
00:07:35 #19745 [verbose] > ╭─[ 226.37ms - stdout ]────────────────────────────────────────────────────────╮
00:07:35 #19746 [verbose] > │ () │
00:07:35 #19747 [verbose] > │ │
00:07:35 #19748 [verbose] > │ │
00:07:35 #19749 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:35 #19750 [verbose] >
00:07:35 #19751 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:35 #19752 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:35 #19753 [verbose] > │ ## directory_info_exists │
00:07:35 #19754 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:35 #19755 [verbose] >
00:07:35 #19756 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:35 #19757 [verbose] > inl directory_info_exists (info : directory_info) : bool =
00:07:35 #19758 [verbose] > run_target function
00:07:35 #19759 [verbose] > | Fsharp (Native) => fun () =>
00:07:35 #19760 [verbose] > $'!info.Exists'
00:07:35 #19761 [verbose] > | _ => fun () => null ()
00:07:35 #19762 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d68c04ebda50d54a988fc8b0a91d92d14503d25de13ce8d191cdf9bcb1695ab3\main.spi
00:07:35 #19763 [verbose] >
00:07:35 #19764 [verbose] > ╭─[ 261.70ms - stdout ]────────────────────────────────────────────────────────╮
00:07:35 #19765 [verbose] > │ () │
00:07:35 #19766 [verbose] > │ │
00:07:35 #19767 [verbose] > │ │
00:07:35 #19768 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:35 #19769 [verbose] >
00:07:35 #19770 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:35 #19771 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:35 #19772 [verbose] > │ ## directory_info_creation_time │
00:07:35 #19773 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:35 #19774 [verbose] >
00:07:35 #19775 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:35 #19776 [verbose] > inl directory_info_creation_time (info : directory_info) : date_time.date_time =
00:07:35 #19777 [verbose] > run_target function
00:07:35 #19778 [verbose] > | Fsharp (Native) => fun () =>
00:07:35 #19779 [verbose] > $'!info.CreationTime'
00:07:35 #19780 [verbose] > | _ => fun () => null ()
00:07:35 #19781 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\7da088a91c81266592eca6af105ecb47c29efd74ac091ebb8a58f4e661bc6c30\main.spi
00:07:36 #19782 [verbose] >
00:07:36 #19783 [verbose] > ╭─[ 271.05ms - stdout ]────────────────────────────────────────────────────────╮
00:07:36 #19784 [verbose] > │ () │
00:07:36 #19785 [verbose] > │ │
00:07:36 #19786 [verbose] > │ │
00:07:36 #19787 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:36 #19788 [verbose] >
00:07:36 #19789 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:36 #19790 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:36 #19791 [verbose] > │ ## directory_info_name │
00:07:36 #19792 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:36 #19793 [verbose] >
00:07:36 #19794 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:36 #19795 [verbose] > inl directory_info_name (info : directory_info) : string =
00:07:36 #19796 [verbose] > run_target function
00:07:36 #19797 [verbose] > | Fsharp (Native) => fun () =>
00:07:36 #19798 [verbose] > $'!info.Name'
00:07:36 #19799 [verbose] > | _ => fun () => null ()
00:07:36 #19800 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\02ded3fb4ac663c21ae263254afea73e4b79d23b21790dc7adbb65b7b2606933\main.spi
00:07:36 #19801 [verbose] >
00:07:36 #19802 [verbose] > ╭─[ 636.61ms - stdout ]────────────────────────────────────────────────────────╮
00:07:36 #19803 [verbose] > │ () │
00:07:36 #19804 [verbose] > │ │
00:07:36 #19805 [verbose] > │ │
00:07:36 #19806 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:36 #19807 [verbose] >
00:07:36 #19808 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:36 #19809 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:36 #19810 [verbose] > │ ## directory_info_full_name │
00:07:36 #19811 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:36 #19812 [verbose] >
00:07:36 #19813 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:36 #19814 [verbose] > inl directory_info_full_name (info : directory_info) : string =
00:07:36 #19815 [verbose] > run_target function
00:07:36 #19816 [verbose] > | Fsharp (Native) => fun () =>
00:07:36 #19817 [verbose] > $'!info.FullName'
00:07:36 #19818 [verbose] > | _ => fun () => null ()
00:07:36 #19819 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f33f48a1e0e53f9b2a7aa374be2ebdc3297314e1cd3a311ab69122d2e979ae2e\main.spi
00:07:36 #19820 [verbose] >
00:07:36 #19821 [verbose] > ╭─[ 251.81ms - stdout ]────────────────────────────────────────────────────────╮
00:07:36 #19822 [verbose] > │ () │
00:07:36 #19823 [verbose] > │ │
00:07:36 #19824 [verbose] > │ │
00:07:36 #19825 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:36 #19826 [verbose] >
00:07:36 #19827 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:36 #19828 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:36 #19829 [verbose] > │ ## get_source_directory │
00:07:36 #19830 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:36 #19831 [verbose] >
00:07:36 #19832 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:36 #19833 [verbose] > inl get_source_directory () =
00:07:36 #19834 [verbose] > $'__SOURCE_DIRECTORY__' : string
00:07:37 #19835 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5e1ac56a7ac1c0051346307b84c5ad8ad4996d99ebfafb6b3a013208d106791e\main.spi
00:07:37 #19836 [verbose] >
00:07:37 #19837 [verbose] > ╭─[ 239.05ms - stdout ]────────────────────────────────────────────────────────╮
00:07:37 #19838 [verbose] > │ () │
00:07:37 #19839 [verbose] > │ │
00:07:37 #19840 [verbose] > │ │
00:07:37 #19841 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:37 #19842 [verbose] >
00:07:37 #19843 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:37 #19844 [verbose] > // // test
00:07:37 #19845 [verbose] >
00:07:37 #19846 [verbose] > get_source_directory ()
00:07:37 #19847 [verbose] > |> directory_info
00:07:37 #19848 [verbose] > |> directory_info_name
00:07:37 #19849 [verbose] > |> _assert_eq "spiral"
00:07:37 #19850 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\181a3e7fc4797a329b7900bfb753b38a5f8630b6da11347da236209cc94d15e9\main.spi
00:07:37 #19851 [verbose] >
00:07:37 #19852 [verbose] > ╭─[ 316.22ms - stdout ]────────────────────────────────────────────────────────╮
00:07:37 #19853 [verbose] > │ let rec method1 (v0 : bool) : bool = │
00:07:37 #19854 [verbose] > │ v0 │
00:07:37 #19855 [verbose] > │ and method0 () : unit = │
00:07:37 #19856 [verbose] > │ let v0 : string = __SOURCE_DIRECTORY__ │
00:07:37 #19857 [verbose] > │ let v1 : (string -> System.IO.DirectoryInfo) = System.IO.DirectoryInfo │
00:07:37 #19858 [verbose] > │ let v2 : System.IO.DirectoryInfo = v1 v0 │
00:07:37 #19859 [verbose] > │ let v3 : string option = None │
00:07:37 #19860 [verbose] > │ let mutable _v3 = v3 │
00:07:37 #19861 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:37 #19862 [verbose] > │ let v4 : string = null |> unbox<string> │
00:07:37 #19863 [verbose] > │ v4 │
00:07:37 #19864 [verbose] > │ #endif │
00:07:37 #19865 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:37 #19866 [verbose] > │ let v5 : string = null |> unbox<string> │
00:07:37 #19867 [verbose] > │ v5 │
00:07:37 #19868 [verbose] > │ #endif │
00:07:37 #19869 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:37 #19870 [verbose] > │ let v6 : string = null |> unbox<string> │
00:07:37 #19871 [verbose] > │ v6 │
00:07:37 #19872 [verbose] > │ #endif │
00:07:37 #19873 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:37 #19874 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:37 #19875 [verbose] > │ let v7 : string = v2.Name │
00:07:37 #19876 [verbose] > │ v7 │
00:07:37 #19877 [verbose] > │ #endif │
00:07:37 #19878 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:37 #19879 [verbose] > │ let v8 : string = null |> unbox<string> │
00:07:37 #19880 [verbose] > │ v8 │
00:07:37 #19881 [verbose] > │ #endif │
00:07:37 #19882 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:37 #19883 [verbose] > │ let v9 : string = Unchecked.defaultof<string> │
00:07:37 #19884 [verbose] > │ v9 │
00:07:37 #19885 [verbose] > │ #endif │
00:07:37 #19886 [verbose] > │ |> fun x -> _v3 <- Some x │
00:07:37 #19887 [verbose] > │ let v10 : string = _v3.Value │
00:07:37 #19888 [verbose] > │ let v11 : string = $"%A{v10}" │
00:07:37 #19889 [verbose] > │ System.Console.WriteLine v11 │
00:07:37 #19890 [verbose] > │ let v13 : bool = v10 = "spiral" │
00:07:37 #19891 [verbose] > │ let v15 : bool = │
00:07:37 #19892 [verbose] > │ if v13 then │
00:07:37 #19893 [verbose] > │ true │
00:07:37 #19894 [verbose] > │ else │
00:07:37 #19895 [verbose] > │ method1(v13) │
00:07:37 #19896 [verbose] > │ let v16 : string = "spiral" │
00:07:37 #19897 [verbose] > │ let v17 : string = $"__expect / actual: %A{v10} / expected: %A{v16}" │
00:07:37 #19898 [verbose] > │ let v18 : bool = v15 = false │
00:07:37 #19899 [verbose] > │ if v18 then │
00:07:37 #19900 [verbose] > │ failwith<unit> v17 │
00:07:37 #19901 [verbose] > │ method0() │
00:07:37 #19902 [verbose] > │ │
00:07:37 #19903 [verbose] > │ "spiral" │
00:07:37 #19904 [verbose] > │ │
00:07:37 #19905 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:37 #19906 [verbose] >
00:07:37 #19907 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:37 #19908 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:37 #19909 [verbose] > │ ## create_directory │
00:07:37 #19910 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:37 #19911 [verbose] >
00:07:37 #19912 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:37 #19913 [verbose] > inl create_directory (path : string) : directory_info =
00:07:37 #19914 [verbose] > run_target function
00:07:37 #19915 [verbose] > | Fsharp (Native) => fun () =>
00:07:37 #19916 [verbose] > path |> $'System.IO.Directory.CreateDirectory'
00:07:37 #19917 [verbose] > | _ => fun () => null ()
00:07:37 #19918 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0b3824446321b020fd0dfa251646c22db315f9ead0c8ce415544d57b5d6fcbc8\main.spi
00:07:37 #19919 [verbose] >
00:07:37 #19920 [verbose] > ╭─[ 224.94ms - stdout ]────────────────────────────────────────────────────────╮
00:07:37 #19921 [verbose] > │ () │
00:07:37 #19922 [verbose] > │ │
00:07:37 #19923 [verbose] > │ │
00:07:37 #19924 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:37 #19925 [verbose] >
00:07:37 #19926 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:37 #19927 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:37 #19928 [verbose] > │ ## directory_exists │
00:07:37 #19929 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:37 #19930 [verbose] >
00:07:37 #19931 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:37 #19932 [verbose] > inl directory_exists (path : string) : bool =
00:07:37 #19933 [verbose] > run_target function
00:07:37 #19934 [verbose] > | Rust (Native) => fun () =>
00:07:37 #19935 [verbose] > inl path = path |> new_path_buf
00:07:37 #19936 [verbose] > (path |> path_buf_exists) && (path |> path_buf_is_dir)
00:07:37 #19937 [verbose] > | Fsharp (Native) => fun () =>
00:07:37 #19938 [verbose] > path |> $'System.IO.Directory.Exists'
00:07:37 #19939 [verbose] > | TypeScript (Native) => fun () =>
00:07:37 #19940 [verbose] > global "type IFsExistsSync = abstract existsSync: path: string ->
00:07:37 #19941 [verbose] > bool"
00:07:37 #19942 [verbose] > inl fs : $'IFsExistsSync' = ts.import_all "fs"
00:07:37 #19943 [verbose] > ts.emit_expr path $'"!fs.existsSync($0)"'
00:07:37 #19944 [verbose] > | _ => fun () => null ()
00:07:37 #19945 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\40ae47aa17b6f6fc26907ecf2e785469ad7d25084e81f015eecbfdc13ea0e033\main.spi
00:07:38 #19946 [verbose] >
00:07:38 #19947 [verbose] > ╭─[ 255.60ms - stdout ]────────────────────────────────────────────────────────╮
00:07:38 #19948 [verbose] > │ () │
00:07:38 #19949 [verbose] > │ │
00:07:38 #19950 [verbose] > │ │
00:07:38 #19951 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #19952 [verbose] >
00:07:38 #19953 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:38 #19954 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:38 #19955 [verbose] > │ ## directory_get_parent │
00:07:38 #19956 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #19957 [verbose] >
00:07:38 #19958 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 #19959 [verbose] > inl directory_get_parent (path : string) : optionm'.option' string =
00:07:38 #19960 [verbose] > run_target function
00:07:38 #19961 [verbose] > | Rust (Native) => fun () =>
00:07:38 #19962 [verbose] > path
00:07:38 #19963 [verbose] > |> new_path_buf
00:07:38 #19964 [verbose] > |> path_buf_parent
00:07:38 #19965 [verbose] > |> optionm'.try'
00:07:38 #19966 [verbose] > |> path_buf_display
00:07:38 #19967 [verbose] > |> sm'.from_std_string
00:07:38 #19968 [verbose] > |> Some
00:07:38 #19969 [verbose] > | Fsharp (Native) => fun () =>
00:07:38 #19970 [verbose] > inl parent : directory_info = path |>
00:07:38 #19971 [verbose] > $'System.IO.Directory.GetParent'
00:07:38 #19972 [verbose] > if parent =. null ()
00:07:38 #19973 [verbose] > then None
00:07:38 #19974 [verbose] > else parent |> directory_info_full_name |> Some
00:07:38 #19975 [verbose] > | TypeScript _ => fun () =>
00:07:38 #19976 [verbose] > global "type IPathDirname = abstract dirname: path: string ->
00:07:38 #19977 [verbose] > string"
00:07:38 #19978 [verbose] > inl fs : $'IPathDirname' = ts.import_all "path"
00:07:38 #19979 [verbose] > ts.emit_expr path $'"!fs.dirname($0)"' |> Some
00:07:38 #19980 [verbose] > | _ => fun () => null ()
00:07:38 #19981 [verbose] > |> optionm'.box
00:07:38 #19982 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ae12221c9cab3397fb872e84f4879eaf43d1cf3b699222035ac988407a271651\main.spi
00:07:38 #19983 [verbose] >
00:07:38 #19984 [verbose] > ╭─[ 290.63ms - stdout ]────────────────────────────────────────────────────────╮
00:07:38 #19985 [verbose] > │ () │
00:07:38 #19986 [verbose] > │ │
00:07:38 #19987 [verbose] > │ │
00:07:38 #19988 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #19989 [verbose] >
00:07:38 #19990 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:38 #19991 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:38 #19992 [verbose] > │ ## file_delete │
00:07:38 #19993 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #19994 [verbose] >
00:07:38 #19995 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 #19996 [verbose] > inl file_delete (path : string) : () =
00:07:38 #19997 [verbose] > run_target function
00:07:38 #19998 [verbose] > | Fsharp (Native) => fun () =>
00:07:38 #19999 [verbose] > path |> $'System.IO.File.Delete'
00:07:38 #20000 [verbose] > | _ => fun () => null ()
00:07:38 #20001 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5306aa46322207ec81cbcaa207c76eb977ea6edd40aa4343e79fc2f5d851d040\main.spi
00:07:38 #20002 [verbose] >
00:07:38 #20003 [verbose] > ╭─[ 217.92ms - stdout ]────────────────────────────────────────────────────────╮
00:07:38 #20004 [verbose] > │ () │
00:07:38 #20005 [verbose] > │ │
00:07:38 #20006 [verbose] > │ │
00:07:38 #20007 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #20008 [verbose] >
00:07:38 #20009 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:38 #20010 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:38 #20011 [verbose] > │ ## file_move │
00:07:38 #20012 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #20013 [verbose] >
00:07:38 #20014 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 #20015 [verbose] > inl file_move (old_path : string) (new_path : string) : () =
00:07:38 #20016 [verbose] > run_target function
00:07:38 #20017 [verbose] > | Fsharp (Native) => fun () =>
00:07:38 #20018 [verbose] > $'System.IO.File.Move (!old_path, !new_path)'
00:07:38 #20019 [verbose] > | _ => fun () => null ()
00:07:38 #20020 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3a0114adb85271345bd3c502a89ab481d85cd1c959f36206b4ca983e6a2e481d\main.spi
00:07:38 #20021 [verbose] >
00:07:38 #20022 [verbose] > ╭─[ 243.10ms - stdout ]────────────────────────────────────────────────────────╮
00:07:38 #20023 [verbose] > │ () │
00:07:38 #20024 [verbose] > │ │
00:07:38 #20025 [verbose] > │ │
00:07:38 #20026 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #20027 [verbose] >
00:07:38 #20028 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:38 #20029 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:38 #20030 [verbose] > │ ## file_exists │
00:07:38 #20031 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #20032 [verbose] >
00:07:38 #20033 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 #20034 [verbose] > inl file_exists (path : string) : bool =
00:07:38 #20035 [verbose] > run_target function
00:07:38 #20036 [verbose] > | Rust (Native) => fun () =>
00:07:38 #20037 [verbose] > inl path_buf = path |> new_path_buf
00:07:38 #20038 [verbose] > (path_buf |> path_buf_exists) && (path_buf |> path_buf_is_file)
00:07:38 #20039 [verbose] > | Fsharp (Native) => fun () =>
00:07:38 #20040 [verbose] > path |> $'System.IO.File.Exists'
00:07:38 #20041 [verbose] > | TypeScript (Native) => fun () =>
00:07:38 #20042 [verbose] > global "type IFsExistsSync = abstract existsSync: path: string ->
00:07:38 #20043 [verbose] > bool"
00:07:38 #20044 [verbose] > inl fs : $'IFsExistsSync' = ts.import_all "fs"
00:07:38 #20045 [verbose] > ts.emit_expr path $'"!fs.existsSync($0)"'
00:07:38 #20046 [verbose] > | _ => fun () => null ()
00:07:38 #20047 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e11492c41308cf6e1b99f8ebdc8d37bbf2b2ff5ebcf4a250290ddb1887873007\main.spi
00:07:38 #20048 [verbose] >
00:07:38 #20049 [verbose] > ╭─[ 219.48ms - stdout ]────────────────────────────────────────────────────────╮
00:07:38 #20050 [verbose] > │ () │
00:07:38 #20051 [verbose] > │ │
00:07:38 #20052 [verbose] > │ │
00:07:38 #20053 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #20054 [verbose] >
00:07:38 #20055 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:38 #20056 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:38 #20057 [verbose] > │ ## directory_delete │
00:07:38 #20058 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:38 #20059 [verbose] >
00:07:38 #20060 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:38 #20061 [verbose] > inl directory_delete recursive (path : string) : () =
00:07:38 #20062 [verbose] > run_target function
00:07:38 #20063 [verbose] > | Fsharp (Native) => fun () =>
00:07:38 #20064 [verbose] > $'System.IO.Directory.Delete (!path, !recursive)'
00:07:38 #20065 [verbose] > | _ => fun () => null ()
00:07:39 #20066 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c54873952c739f5756cadd40bf3eda5694966bbe14a2927e2d7f2fd941bf08fa\main.spi
00:07:39 #20067 [verbose] >
00:07:39 #20068 [verbose] > ╭─[ 224.11ms - stdout ]────────────────────────────────────────────────────────╮
00:07:39 #20069 [verbose] > │ () │
00:07:39 #20070 [verbose] > │ │
00:07:39 #20071 [verbose] > │ │
00:07:39 #20072 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #20073 [verbose] >
00:07:39 #20074 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:39 #20075 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:39 #20076 [verbose] > │ ## read_all_text_async │
00:07:39 #20077 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #20078 [verbose] >
00:07:39 #20079 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 #20080 [verbose] > inl read_all_text_async (path : string) : _ string =
00:07:39 #20081 [verbose] > run_target function
00:07:39 #20082 [verbose] > | Fsharp (Native) => fun () =>
00:07:39 #20083 [verbose] > path |> $'System.IO.File.ReadAllTextAsync' |> async.await_task
00:07:39 #20084 [verbose] > | _ => fun () => null ()
00:07:39 #20085 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a7b948b58dabef3ef1a80130b651791a0ab08a160dfde28f920754b7bdddd2f6\main.spi
00:07:39 #20086 [verbose] >
00:07:39 #20087 [verbose] > ╭─[ 232.35ms - stdout ]────────────────────────────────────────────────────────╮
00:07:39 #20088 [verbose] > │ () │
00:07:39 #20089 [verbose] > │ │
00:07:39 #20090 [verbose] > │ │
00:07:39 #20091 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #20092 [verbose] >
00:07:39 #20093 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:39 #20094 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:39 #20095 [verbose] > │ ## file_exists_content │
00:07:39 #20096 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #20097 [verbose] >
00:07:39 #20098 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 #20099 [verbose] > inl file_exists_content path content : _ bool =
00:07:39 #20100 [verbose] > run_target function
00:07:39 #20101 [verbose] > | Fsharp (Native) => fun () =>
00:07:39 #20102 [verbose] > fun () =>
00:07:39 #20103 [verbose] > if path |> file_exists |> not
00:07:39 #20104 [verbose] > then false |> return |> fun x => $'(*' : ()
00:07:39 #20105 [verbose] > else
00:07:39 #20106 [verbose] > $'*) else' : ()
00:07:39 #20107 [verbose] > inl existing_content = path |> read_all_text_async |>
00:07:39 #20108 [verbose] > async.let'
00:07:39 #20109 [verbose] > content = existing_content |> return |> fun x => $'(*' : ()
00:07:39 #20110 [verbose] > |> fun x => $'*)' : ()
00:07:39 #20111 [verbose] > |> async.new_async_unit
00:07:39 #20112 [verbose] > | _ => fun () => null ()
00:07:39 #20113 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\32740c64cd2f2a256530c58c6acbc42777c73a8591614d9366647ff41d26fbaf\main.spi
00:07:39 #20114 [verbose] >
00:07:39 #20115 [verbose] > ╭─[ 232.70ms - stdout ]────────────────────────────────────────────────────────╮
00:07:39 #20116 [verbose] > │ () │
00:07:39 #20117 [verbose] > │ │
00:07:39 #20118 [verbose] > │ │
00:07:39 #20119 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #20120 [verbose] >
00:07:39 #20121 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:39 #20122 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:39 #20123 [verbose] > │ ## write_all_text │
00:07:39 #20124 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #20125 [verbose] >
00:07:39 #20126 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 #20127 [verbose] > inl write_all_text (path : string) (text : string) : () =
00:07:39 #20128 [verbose] > run_target function
00:07:39 #20129 [verbose] > | Fsharp (Native) => fun () =>
00:07:39 #20130 [verbose] > $'System.IO.File.WriteAllText (!path, !text)'
00:07:39 #20131 [verbose] > | _ => fun () => null ()
00:07:39 #20132 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\715ed0d60688f58d15b38e180149d18cf5f055c038a816aa744bf17d0263748c\main.spi
00:07:39 #20133 [verbose] >
00:07:39 #20134 [verbose] > ╭─[ 233.05ms - stdout ]────────────────────────────────────────────────────────╮
00:07:39 #20135 [verbose] > │ () │
00:07:39 #20136 [verbose] > │ │
00:07:39 #20137 [verbose] > │ │
00:07:39 #20138 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #20139 [verbose] >
00:07:39 #20140 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:39 #20141 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:39 #20142 [verbose] > │ ## write_all_text_async │
00:07:39 #20143 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:39 #20144 [verbose] >
00:07:39 #20145 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:39 #20146 [verbose] > inl write_all_text_async (path : string) (text : string) : _ () =
00:07:39 #20147 [verbose] > run_target function
00:07:39 #20148 [verbose] > | Fsharp (Native) => fun () =>
00:07:39 #20149 [verbose] > $'System.IO.File.WriteAllTextAsync (!path, !text)' |>
00:07:39 #20150 [verbose] > async.await_task
00:07:39 #20151 [verbose] > | _ => fun () => null ()
00:07:40 #20152 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bc7ccaca373947724a436da27e53423e0d92ae3438fb4b27adde5cecb8f3bc6c\main.spi
00:07:40 #20153 [verbose] >
00:07:40 #20154 [verbose] > ╭─[ 226.79ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 #20155 [verbose] > │ () │
00:07:40 #20156 [verbose] > │ │
00:07:40 #20157 [verbose] > │ │
00:07:40 #20158 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #20159 [verbose] >
00:07:40 #20160 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 #20161 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 #20162 [verbose] > │ ## write_all_text_exists │
00:07:40 #20163 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #20164 [verbose] >
00:07:40 #20165 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 #20166 [verbose] > inl write_all_text_exists path contents =
00:07:40 #20167 [verbose] > fun () =>
00:07:40 #20168 [verbose] > inl exists' = contents |> file_exists_content path |> async.let'
00:07:40 #20169 [verbose] > if not exists'
00:07:40 #20170 [verbose] > then contents |> write_all_text_async path |> async.do
00:07:40 #20171 [verbose] > |> async.new_async
00:07:40 #20172 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\dfdcb0af56a76e1f5e3cfe865242c732fdfe85f1fb6fcff3238c1cbbc89297e3\main.spi
00:07:40 #20173 [verbose] >
00:07:40 #20174 [verbose] > ╭─[ 227.64ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 #20175 [verbose] > │ () │
00:07:40 #20176 [verbose] > │ │
00:07:40 #20177 [verbose] > │ │
00:07:40 #20178 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #20179 [verbose] >
00:07:40 #20180 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 #20181 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 #20182 [verbose] > │ ## delete_directory_async │
00:07:40 #20183 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #20184 [verbose] >
00:07:40 #20185 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 #20186 [verbose] > inl delete_directory_async path : _ i64 =
00:07:40 #20187 [verbose] > run_target function
00:07:40 #20188 [verbose] > | Fsharp (Native) => fun () =>
00:07:40 #20189 [verbose] > let rec loop (retry : i64) =
00:07:40 #20190 [verbose] > fun () =>
00:07:40 #20191 [verbose] > try_unit
00:07:40 #20192 [verbose] > fun () =>
00:07:40 #20193 [verbose] > path |> directory_delete true
00:07:40 #20194 [verbose] > retry |> return
00:07:40 #20195 [verbose] > fun ex =>
00:07:40 #20196 [verbose] > if retry % 100i64 = 0 then
00:07:40 #20197 [verbose] > inl ex = ex |> sm'.format_exception
00:07:40 #20198 [verbose] > let get_locals () = $'$"path: {!path |>
00:07:40 #20199 [verbose] > !get_file_name} / ex: {!ex} / {!get_locals ()}"' : string
00:07:40 #20200 [verbose] > // trace Debug (fun () ->
00:07:40 #20201 [verbose] > "delete_directory_async") getLocals
00:07:40 #20202 [verbose] > console.write_line ($'$"delete_directory_async
00:07:40 #20203 [verbose] > {!get_locals ()}"' : string)
00:07:40 #20204 [verbose] > async.sleep 10i32 |> async.do
00:07:40 #20205 [verbose] > loop (retry + 1) |> async.return_await
00:07:40 #20206 [verbose] > |> async.new_async
00:07:40 #20207 [verbose] > loop 0
00:07:40 #20208 [verbose] > | _ => fun () => null ()
00:07:40 #20209 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8fd1ba2f183ac33c40bee7160f6deb138a363ebaa7cb1f09ad731e64e197f09d\main.spi
00:07:40 #20210 [verbose] >
00:07:40 #20211 [verbose] > ╭─[ 219.82ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 #20212 [verbose] > │ () │
00:07:40 #20213 [verbose] > │ │
00:07:40 #20214 [verbose] > │ │
00:07:40 #20215 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #20216 [verbose] >
00:07:40 #20217 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:40 #20218 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:40 #20219 [verbose] > │ ## create_temp_directory │
00:07:40 #20220 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #20221 [verbose] >
00:07:40 #20222 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 #20223 [verbose] > inl create_temp_directory () =
00:07:40 #20224 [verbose] > run_target function
00:07:40 #20225 [verbose] > | Fsharp (Native) => fun () =>
00:07:40 #20226 [verbose] > inl temp_folder = create_temp_directory_name ()
00:07:40 #20227 [verbose] > inl result = temp_folder |> create_directory
00:07:40 #20228 [verbose] >
00:07:40 #20229 [verbose] > inl exists' = result |> directory_info_exists
00:07:40 #20230 [verbose] > if not exists' then
00:07:40 #20231 [verbose] > inl creation_time = result |> directory_info_creation_time
00:07:40 #20232 [verbose] > inl result = ($'{| Exists = !exists'; CreationTime =
00:07:40 #20233 [verbose] > !creation_time |}' : any) |> sm'.format_debug
00:07:40 #20234 [verbose] > inl get_locals () : string =
00:07:40 #20235 [verbose] > $'$"temp_folder: {!temp_folder} / result: {!result}
00:07:40 #20236 [verbose] > {!get_locals ()}"'
00:07:40 #20237 [verbose] > // trace Debug (fun () => "createTempDirectory") get_locals
00:07:40 #20238 [verbose] > console.write_line ($'$"create_temp_directory / {!get_locals
00:07:40 #20239 [verbose] > ()}"' : string)
00:07:40 #20240 [verbose] > inl disposable : _ () = new_disposable fun () =>
00:07:40 #20241 [verbose] > temp_folder
00:07:40 #20242 [verbose] > |> delete_directory_async
00:07:40 #20243 [verbose] > |> async.ignore
00:07:40 #20244 [verbose] > |> async.run_synchronously
00:07:40 #20245 [verbose] > temp_folder, disposable
00:07:40 #20246 [verbose] > | _ => fun () => null ()
00:07:40 #20247 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ec84f40cf1c325b18552f94d957c014f432462c26ecd5d2f7dcc8e5db6124528\main.spi
00:07:40 #20248 [verbose] >
00:07:40 #20249 [verbose] > ╭─[ 221.11ms - stdout ]────────────────────────────────────────────────────────╮
00:07:40 #20250 [verbose] > │ () │
00:07:40 #20251 [verbose] > │ │
00:07:40 #20252 [verbose] > │ │
00:07:40 #20253 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:40 #20254 [verbose] >
00:07:40 #20255 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:40 #20256 [verbose] > // // test
00:07:40 #20257 [verbose] >
00:07:40 #20258 [verbose] > inl path, disposable = create_temp_directory ()
00:07:40 #20259 [verbose] > disposable |> use |> ignore
00:07:40 #20260 [verbose] > path
00:07:40 #20261 [verbose] > |> directory_exists
00:07:40 #20262 [verbose] > |> _assert_eq true
00:07:41 #20263 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6b9cc67ff5d0d8345bcdb16a075ac606918ad98c11e88e598beff738c5db1326\main.spi
00:07:41 #20264 [verbose] >
00:07:41 #20265 [verbose] > ╭─[ 686.77ms - stdout ]────────────────────────────────────────────────────────╮
00:07:41 #20266 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:07:41 #20267 [verbose] > │ string │
00:07:41 #20268 [verbose] > │ type IFsExistsSync = abstract existsSync: path: string -> bool │
00:07:41 #20269 [verbose] > │ let rec closure0 () () : string = │
00:07:41 #20270 [verbose] > │ let v0 : string option = None │
00:07:41 #20271 [verbose] > │ let mutable _v0 = v0 │
00:07:41 #20272 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20273 [verbose] > │ let v1 : string = null |> unbox<string> │
00:07:41 #20274 [verbose] > │ v1 │
00:07:41 #20275 [verbose] > │ #endif │
00:07:41 #20276 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20277 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:41 #20278 [verbose] > │ v2 │
00:07:41 #20279 [verbose] > │ #endif │
00:07:41 #20280 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20281 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:41 #20282 [verbose] > │ v3 │
00:07:41 #20283 [verbose] > │ #endif │
00:07:41 #20284 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20285 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20286 [verbose] > │ let v4 : string = │
00:07:41 #20287 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:41 #20288 [verbose] > │ v4 │
00:07:41 #20289 [verbose] > │ #endif │
00:07:41 #20290 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20291 [verbose] > │ let v5 : string = null |> unbox<string> │
00:07:41 #20292 [verbose] > │ v5 │
00:07:41 #20293 [verbose] > │ #endif │
00:07:41 #20294 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20295 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:07:41 #20296 [verbose] > │ v6 │
00:07:41 #20297 [verbose] > │ #endif │
00:07:41 #20298 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:41 #20299 [verbose] > │ let v7 : string = _v0.Value │
00:07:41 #20300 [verbose] > │ v7 │
00:07:41 #20301 [verbose] > │ and method1 (v0 : string) : string = │
00:07:41 #20302 [verbose] > │ v0 │
00:07:41 #20303 [verbose] > │ and closure2 () () : string = │
00:07:41 #20304 [verbose] > │ let v0 : string = "" │
00:07:41 #20305 [verbose] > │ v0 │
00:07:41 #20306 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:07:41 #20307 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:07:41 #20308 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:07:41 #20309 [verbose] > │ v3 │
00:07:41 #20310 [verbose] > │ and closure5 () (v0 : string) : string = │
00:07:41 #20311 [verbose] > │ let v1 : string option = None │
00:07:41 #20312 [verbose] > │ let mutable _v1 = v1 │
00:07:41 #20313 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20314 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:41 #20315 [verbose] > │ v2 │
00:07:41 #20316 [verbose] > │ #endif │
00:07:41 #20317 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20318 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:41 #20319 [verbose] > │ v3 │
00:07:41 #20320 [verbose] > │ #endif │
00:07:41 #20321 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20322 [verbose] > │ let v4 : string = null |> unbox<string> │
00:07:41 #20323 [verbose] > │ v4 │
00:07:41 #20324 [verbose] > │ #endif │
00:07:41 #20325 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20326 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20327 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:07:41 #20328 [verbose] > │ let v6 : string = v5 v0 │
00:07:41 #20329 [verbose] > │ v6 │
00:07:41 #20330 [verbose] > │ #endif │
00:07:41 #20331 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20332 [verbose] > │ let v7 : string = null |> unbox<string> │
00:07:41 #20333 [verbose] > │ v7 │
00:07:41 #20334 [verbose] > │ #endif │
00:07:41 #20335 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20336 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:07:41 #20337 [verbose] > │ v8 │
00:07:41 #20338 [verbose] > │ #endif │
00:07:41 #20339 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:41 #20340 [verbose] > │ let v9 : string = _v1.Value │
00:07:41 #20341 [verbose] > │ v9 │
00:07:41 #20342 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:07:41 #20343 [verbose] > │ let v2 : (string -> string) = closure5() │
00:07:41 #20344 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:07:41 #20345 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:07:41 #20346 [verbose] > │ v4 │
00:07:41 #20347 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:07:41 #20348 [verbose] > │ method3(v0, v1) │
00:07:41 #20349 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:07:41 #20350 [verbose] > │ let v2 : Async<int64> option = None │
00:07:41 #20351 [verbose] > │ let mutable _v2 = v2 │
00:07:41 #20352 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20353 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:41 #20354 [verbose] > │ v3 │
00:07:41 #20355 [verbose] > │ #endif │
00:07:41 #20356 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20357 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:41 #20358 [verbose] > │ v4 │
00:07:41 #20359 [verbose] > │ #endif │
00:07:41 #20360 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20361 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:07:41 #20362 [verbose] > │ v5 │
00:07:41 #20363 [verbose] > │ #endif │
00:07:41 #20364 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20365 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20366 [verbose] > │ let v6 : Async<int64> option = None │
00:07:41 #20367 [verbose] > │ let mutable _v6 = v6 │
00:07:41 #20368 [verbose] > │ async { │
00:07:41 #20369 [verbose] > │ try │
00:07:41 #20370 [verbose] > │ let v7 : unit option = None │
00:07:41 #20371 [verbose] > │ let mutable _v7 = v7 │
00:07:41 #20372 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20373 [verbose] > │ null |> unbox<unit> │
00:07:41 #20374 [verbose] > │ () │
00:07:41 #20375 [verbose] > │ #endif │
00:07:41 #20376 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20377 [verbose] > │ null |> unbox<unit> │
00:07:41 #20378 [verbose] > │ () │
00:07:41 #20379 [verbose] > │ #endif │
00:07:41 #20380 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20381 [verbose] > │ null |> unbox<unit> │
00:07:41 #20382 [verbose] > │ () │
00:07:41 #20383 [verbose] > │ #endif │
00:07:41 #20384 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20385 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20386 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:07:41 #20387 [verbose] > │ () │
00:07:41 #20388 [verbose] > │ #endif │
00:07:41 #20389 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20390 [verbose] > │ null |> unbox<unit> │
00:07:41 #20391 [verbose] > │ () │
00:07:41 #20392 [verbose] > │ #endif │
00:07:41 #20393 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20394 [verbose] > │ Unchecked.defaultof<unit> │
00:07:41 #20395 [verbose] > │ () │
00:07:41 #20396 [verbose] > │ #endif │
00:07:41 #20397 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:41 #20398 [verbose] > │ _v7.Value │
00:07:41 #20399 [verbose] > │ return v1 │
00:07:41 #20400 [verbose] > │ with ex -> │
00:07:41 #20401 [verbose] > │ let v8 : exn = ex │
00:07:41 #20402 [verbose] > │ let v9 : int64 = v1 % 100L │
00:07:41 #20403 [verbose] > │ let v10 : bool = v9 = 0L │
00:07:41 #20404 [verbose] > │ if v10 then │
00:07:41 #20405 [verbose] > │ let v11 : string option = None │
00:07:41 #20406 [verbose] > │ let mutable _v11 = v11 │
00:07:41 #20407 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20408 [verbose] > │ let v12 : string = $"%A{v8}" │
00:07:41 #20409 [verbose] > │ v12 │
00:07:41 #20410 [verbose] > │ #endif │
00:07:41 #20411 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20412 [verbose] > │ let v13 : string = $"%A{v8}" │
00:07:41 #20413 [verbose] > │ v13 │
00:07:41 #20414 [verbose] > │ #endif │
00:07:41 #20415 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20416 [verbose] > │ let v14 : string = $"%A{v8}" │
00:07:41 #20417 [verbose] > │ v14 │
00:07:41 #20418 [verbose] > │ #endif │
00:07:41 #20419 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20420 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20421 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:07:41 #20422 [verbose] > │ v15 │
00:07:41 #20423 [verbose] > │ #endif │
00:07:41 #20424 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20425 [verbose] > │ let v16 : string = $"%A{v8}" │
00:07:41 #20426 [verbose] > │ v16 │
00:07:41 #20427 [verbose] > │ #endif │
00:07:41 #20428 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:41 #20429 [verbose] > │ FABLE_COMPILER_DART │
00:07:41 #20430 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:07:41 #20431 [verbose] > │ v17 │
00:07:41 #20432 [verbose] > │ #endif │
00:07:41 #20433 [verbose] > │ |> fun x -> _v11 <- Some x │
00:07:41 #20434 [verbose] > │ let v18 : string = _v11.Value │
00:07:41 #20435 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:07:41 #20436 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:07:41 #20437 [verbose] > │ System.Console.WriteLine v20 │
00:07:41 #20438 [verbose] > │ () │
00:07:41 #20439 [verbose] > │ let v21 : Async<unit> option = None │
00:07:41 #20440 [verbose] > │ let mutable _v21 = v21 │
00:07:41 #20441 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20442 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:07:41 #20443 [verbose] > │ v22 │
00:07:41 #20444 [verbose] > │ #endif │
00:07:41 #20445 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20446 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:07:41 #20447 [verbose] > │ v23 │
00:07:41 #20448 [verbose] > │ #endif │
00:07:41 #20449 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20450 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:07:41 #20451 [verbose] > │ v24 │
00:07:41 #20452 [verbose] > │ #endif │
00:07:41 #20453 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20454 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20455 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:07:41 #20456 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:07:41 #20457 [verbose] > │ v26 │
00:07:41 #20458 [verbose] > │ #endif │
00:07:41 #20459 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20460 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:07:41 #20461 [verbose] > │ v27 │
00:07:41 #20462 [verbose] > │ #endif │
00:07:41 #20463 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20464 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:41 #20465 [verbose] > │ v28 │
00:07:41 #20466 [verbose] > │ #endif │
00:07:41 #20467 [verbose] > │ |> fun x -> _v21 <- Some x │
00:07:41 #20468 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:07:41 #20469 [verbose] > │ do! v29 │
00:07:41 #20470 [verbose] > │ let v30 : int64 = v1 + 1L │
00:07:41 #20471 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:07:41 #20472 [verbose] > │ return! v31 │
00:07:41 #20473 [verbose] > │ (* │
00:07:41 #20474 [verbose] > │ let v32 : int64 = *) │
00:07:41 #20475 [verbose] > │ } │
00:07:41 #20476 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:41 #20477 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:07:41 #20478 [verbose] > │ v33 │
00:07:41 #20479 [verbose] > │ #endif │
00:07:41 #20480 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20481 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:07:41 #20482 [verbose] > │ v34 │
00:07:41 #20483 [verbose] > │ #endif │
00:07:41 #20484 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20485 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:41 #20486 [verbose] > │ v35 │
00:07:41 #20487 [verbose] > │ #endif │
00:07:41 #20488 [verbose] > │ |> fun x -> _v2 <- Some x │
00:07:41 #20489 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:07:41 #20490 [verbose] > │ v36 │
00:07:41 #20491 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:07:41 #20492 [verbose] > │ let v1 : Async<int64> option = None │
00:07:41 #20493 [verbose] > │ let mutable _v1 = v1 │
00:07:41 #20494 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20495 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:07:41 #20496 [verbose] > │ v2 │
00:07:41 #20497 [verbose] > │ #endif │
00:07:41 #20498 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20499 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:41 #20500 [verbose] > │ v3 │
00:07:41 #20501 [verbose] > │ #endif │
00:07:41 #20502 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20503 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:41 #20504 [verbose] > │ v4 │
00:07:41 #20505 [verbose] > │ #endif │
00:07:41 #20506 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20507 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20508 [verbose] > │ let v5 : int64 = 0L │
00:07:41 #20509 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:07:41 #20510 [verbose] > │ v6 │
00:07:41 #20511 [verbose] > │ #endif │
00:07:41 #20512 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20513 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:07:41 #20514 [verbose] > │ v7 │
00:07:41 #20515 [verbose] > │ #endif │
00:07:41 #20516 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20517 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:41 #20518 [verbose] > │ v8 │
00:07:41 #20519 [verbose] > │ #endif │
00:07:41 #20520 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:41 #20521 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:07:41 #20522 [verbose] > │ let v10 : Async<unit> option = None │
00:07:41 #20523 [verbose] > │ let mutable _v10 = v10 │
00:07:41 #20524 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20525 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:07:41 #20526 [verbose] > │ v11 │
00:07:41 #20527 [verbose] > │ #endif │
00:07:41 #20528 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20529 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:07:41 #20530 [verbose] > │ v12 │
00:07:41 #20531 [verbose] > │ #endif │
00:07:41 #20532 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20533 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:07:41 #20534 [verbose] > │ v13 │
00:07:41 #20535 [verbose] > │ #endif │
00:07:41 #20536 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20537 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20538 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:07:41 #20539 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:07:41 #20540 [verbose] > │ v15 │
00:07:41 #20541 [verbose] > │ #endif │
00:07:41 #20542 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20543 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:07:41 #20544 [verbose] > │ v16 │
00:07:41 #20545 [verbose] > │ #endif │
00:07:41 #20546 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20547 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:41 #20548 [verbose] > │ v17 │
00:07:41 #20549 [verbose] > │ #endif │
00:07:41 #20550 [verbose] > │ |> fun x -> _v10 <- Some x │
00:07:41 #20551 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:07:41 #20552 [verbose] > │ let v19 : unit option = None │
00:07:41 #20553 [verbose] > │ let mutable _v19 = v19 │
00:07:41 #20554 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20555 [verbose] > │ null |> unbox<unit> │
00:07:41 #20556 [verbose] > │ () │
00:07:41 #20557 [verbose] > │ #endif │
00:07:41 #20558 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20559 [verbose] > │ null |> unbox<unit> │
00:07:41 #20560 [verbose] > │ () │
00:07:41 #20561 [verbose] > │ #endif │
00:07:41 #20562 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20563 [verbose] > │ null |> unbox<unit> │
00:07:41 #20564 [verbose] > │ () │
00:07:41 #20565 [verbose] > │ #endif │
00:07:41 #20566 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20567 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20568 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:07:41 #20569 [verbose] > │ v20 v18 │
00:07:41 #20570 [verbose] > │ () │
00:07:41 #20571 [verbose] > │ #endif │
00:07:41 #20572 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20573 [verbose] > │ null |> unbox<unit> │
00:07:41 #20574 [verbose] > │ () │
00:07:41 #20575 [verbose] > │ #endif │
00:07:41 #20576 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20577 [verbose] > │ Unchecked.defaultof<unit> │
00:07:41 #20578 [verbose] > │ () │
00:07:41 #20579 [verbose] > │ #endif │
00:07:41 #20580 [verbose] > │ |> fun x -> _v19 <- Some x │
00:07:41 #20581 [verbose] > │ _v19.Value │
00:07:41 #20582 [verbose] > │ () │
00:07:41 #20583 [verbose] > │ and method4 (v0 : bool) : bool = │
00:07:41 #20584 [verbose] > │ v0 │
00:07:41 #20585 [verbose] > │ and method0 () : unit = │
00:07:41 #20586 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:07:41 #20587 [verbose] > │ let mutable _v0 = v0 │
00:07:41 #20588 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20589 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:07:41 #20590 [verbose] > │ (string * System.IDisposable)> │
00:07:41 #20591 [verbose] > │ struct (v1, v2) │
00:07:41 #20592 [verbose] > │ #endif │
00:07:41 #20593 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20594 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:07:41 #20595 [verbose] > │ (string * System.IDisposable)> │
00:07:41 #20596 [verbose] > │ struct (v3, v4) │
00:07:41 #20597 [verbose] > │ #endif │
00:07:41 #20598 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20599 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:07:41 #20600 [verbose] > │ (string * System.IDisposable)> │
00:07:41 #20601 [verbose] > │ struct (v5, v6) │
00:07:41 #20602 [verbose] > │ #endif │
00:07:41 #20603 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20604 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20605 [verbose] > │ let v7 : string option = None │
00:07:41 #20606 [verbose] > │ let mutable _v7 = v7 │
00:07:41 #20607 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20608 [verbose] > │ let v8 : string = null |> unbox<string> │
00:07:41 #20609 [verbose] > │ v8 │
00:07:41 #20610 [verbose] > │ #endif │
00:07:41 #20611 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20612 [verbose] > │ let v9 : string = null |> unbox<string> │
00:07:41 #20613 [verbose] > │ v9 │
00:07:41 #20614 [verbose] > │ #endif │
00:07:41 #20615 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20616 [verbose] > │ let v10 : string = null |> unbox<string> │
00:07:41 #20617 [verbose] > │ v10 │
00:07:41 #20618 [verbose] > │ #endif │
00:07:41 #20619 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20620 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20621 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:07:41 #20622 [verbose] > │ let v12 : string = v11 () │
00:07:41 #20623 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:07:41 #20624 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:07:41 #20625 [verbose] > │ let v15 : string option = None │
00:07:41 #20626 [verbose] > │ let mutable _v15 = v15 │
00:07:41 #20627 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20628 [verbose] > │ let v16 : string = method1(v12) │
00:07:41 #20629 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:41 #20630 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:07:41 #20631 [verbose] > │ let v19 : string = "String::from($0)" │
00:07:41 #20632 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:07:41 #20633 [verbose] > │ v19 │
00:07:41 #20634 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:07:41 #20635 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:07:41 #20636 [verbose] > │ let v23 : string = method1(v14) │
00:07:41 #20637 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:41 #20638 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:07:41 #20639 [verbose] > │ let v26 : string = "String::from($0)" │
00:07:41 #20640 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:07:41 #20641 [verbose] > │ v26 │
00:07:41 #20642 [verbose] > │ let v28 : string = "$0.join($1)" │
00:07:41 #20643 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:41 #20644 [verbose] > │ (v22, v27) v28 │
00:07:41 #20645 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:07:41 #20646 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:07:41 #20647 [verbose] > │ v30 │
00:07:41 #20648 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:07:41 #20649 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:07:41 #20650 [verbose] > │ v33 │
00:07:41 #20651 [verbose] > │ #endif │
00:07:41 #20652 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20653 [verbose] > │ let v34 : string = null |> unbox<string> │
00:07:41 #20654 [verbose] > │ v34 │
00:07:41 #20655 [verbose] > │ #endif │
00:07:41 #20656 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20657 [verbose] > │ let v35 : string = null |> unbox<string> │
00:07:41 #20658 [verbose] > │ v35 │
00:07:41 #20659 [verbose] > │ #endif │
00:07:41 #20660 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20661 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20662 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:07:41 #20663 [verbose] > │ v36 │
00:07:41 #20664 [verbose] > │ #endif │
00:07:41 #20665 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20666 [verbose] > │ let v37 : string = "path" │
00:07:41 #20667 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:41 #20668 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:07:41 #20669 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:07:41 #20670 [verbose] > │ v40 │
00:07:41 #20671 [verbose] > │ #endif │
00:07:41 #20672 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20673 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:07:41 #20674 [verbose] > │ v41 │
00:07:41 #20675 [verbose] > │ #endif │
00:07:41 #20676 [verbose] > │ |> fun x -> _v15 <- Some x │
00:07:41 #20677 [verbose] > │ let v42 : string = _v15.Value │
00:07:41 #20678 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:07:41 #20679 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:07:41 #20680 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:07:41 #20681 [verbose] > │ let v46 : string = v45 v44 │
00:07:41 #20682 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:07:41 #20683 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:07:41 #20684 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:07:41 #20685 [verbose] > │ let v50 : string = v49 v48 │
00:07:41 #20686 [verbose] > │ let v51 : string option = None │
00:07:41 #20687 [verbose] > │ let mutable _v51 = v51 │
00:07:41 #20688 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20689 [verbose] > │ let v52 : string = method1(v42) │
00:07:41 #20690 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:41 #20691 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:07:41 #20692 [verbose] > │ let v55 : string = "String::from($0)" │
00:07:41 #20693 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:07:41 #20694 [verbose] > │ v55 │
00:07:41 #20695 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:07:41 #20696 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:07:41 #20697 [verbose] > │ let v59 : string = method1(v50) │
00:07:41 #20698 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:41 #20699 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:07:41 #20700 [verbose] > │ let v62 : string = "String::from($0)" │
00:07:41 #20701 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:07:41 #20702 [verbose] > │ v62 │
00:07:41 #20703 [verbose] > │ let v64 : string = "$0.join($1)" │
00:07:41 #20704 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:41 #20705 [verbose] > │ (v58, v63) v64 │
00:07:41 #20706 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:07:41 #20707 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:07:41 #20708 [verbose] > │ v66 │
00:07:41 #20709 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:07:41 #20710 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:07:41 #20711 [verbose] > │ v69 │
00:07:41 #20712 [verbose] > │ #endif │
00:07:41 #20713 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20714 [verbose] > │ let v70 : string = null |> unbox<string> │
00:07:41 #20715 [verbose] > │ v70 │
00:07:41 #20716 [verbose] > │ #endif │
00:07:41 #20717 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20718 [verbose] > │ let v71 : string = null |> unbox<string> │
00:07:41 #20719 [verbose] > │ v71 │
00:07:41 #20720 [verbose] > │ #endif │
00:07:41 #20721 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20722 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20723 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:07:41 #20724 [verbose] > │ v72 │
00:07:41 #20725 [verbose] > │ #endif │
00:07:41 #20726 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20727 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:41 #20728 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:07:41 #20729 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:07:41 #20730 [verbose] > │ v75 │
00:07:41 #20731 [verbose] > │ #endif │
00:07:41 #20732 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20733 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:07:41 #20734 [verbose] > │ v76 │
00:07:41 #20735 [verbose] > │ #endif │
00:07:41 #20736 [verbose] > │ |> fun x -> _v51 <- Some x │
00:07:41 #20737 [verbose] > │ let v77 : string = _v51.Value │
00:07:41 #20738 [verbose] > │ v77 │
00:07:41 #20739 [verbose] > │ #endif │
00:07:41 #20740 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20741 [verbose] > │ let v78 : string = null |> unbox<string> │
00:07:41 #20742 [verbose] > │ v78 │
00:07:41 #20743 [verbose] > │ #endif │
00:07:41 #20744 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20745 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:07:41 #20746 [verbose] > │ v79 │
00:07:41 #20747 [verbose] > │ #endif │
00:07:41 #20748 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:41 #20749 [verbose] > │ let v80 : string = _v7.Value │
00:07:41 #20750 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:07:41 #20751 [verbose] > │ let mutable _v81 = v81 │
00:07:41 #20752 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20753 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:07:41 #20754 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:41 #20755 [verbose] > │ v82 │
00:07:41 #20756 [verbose] > │ #endif │
00:07:41 #20757 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20758 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:07:41 #20759 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:41 #20760 [verbose] > │ v83 │
00:07:41 #20761 [verbose] > │ #endif │
00:07:41 #20762 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20763 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:07:41 #20764 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:41 #20765 [verbose] > │ v84 │
00:07:41 #20766 [verbose] > │ #endif │
00:07:41 #20767 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20768 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20769 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:07:41 #20770 [verbose] > │ System.IO.Directory.CreateDirectory │
00:07:41 #20771 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:07:41 #20772 [verbose] > │ v86 │
00:07:41 #20773 [verbose] > │ #endif │
00:07:41 #20774 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20775 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:07:41 #20776 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:41 #20777 [verbose] > │ v87 │
00:07:41 #20778 [verbose] > │ #endif │
00:07:41 #20779 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20780 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:07:41 #20781 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:07:41 #20782 [verbose] > │ v88 │
00:07:41 #20783 [verbose] > │ #endif │
00:07:41 #20784 [verbose] > │ |> fun x -> _v81 <- Some x │
00:07:41 #20785 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:07:41 #20786 [verbose] > │ let v90 : bool option = None │
00:07:41 #20787 [verbose] > │ let mutable _v90 = v90 │
00:07:41 #20788 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20789 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:07:41 #20790 [verbose] > │ v91 │
00:07:41 #20791 [verbose] > │ #endif │
00:07:41 #20792 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20793 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:07:41 #20794 [verbose] > │ v92 │
00:07:41 #20795 [verbose] > │ #endif │
00:07:41 #20796 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20797 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:07:41 #20798 [verbose] > │ v93 │
00:07:41 #20799 [verbose] > │ #endif │
00:07:41 #20800 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20801 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20802 [verbose] > │ let v94 : bool = v89.Exists │
00:07:41 #20803 [verbose] > │ v94 │
00:07:41 #20804 [verbose] > │ #endif │
00:07:41 #20805 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20806 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:07:41 #20807 [verbose] > │ v95 │
00:07:41 #20808 [verbose] > │ #endif │
00:07:41 #20809 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20810 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:07:41 #20811 [verbose] > │ v96 │
00:07:41 #20812 [verbose] > │ #endif │
00:07:41 #20813 [verbose] > │ |> fun x -> _v90 <- Some x │
00:07:41 #20814 [verbose] > │ let v97 : bool = _v90.Value │
00:07:41 #20815 [verbose] > │ let v98 : bool = v97 = false │
00:07:41 #20816 [verbose] > │ if v98 then │
00:07:41 #20817 [verbose] > │ let v99 : System.DateTime option = None │
00:07:41 #20818 [verbose] > │ let mutable _v99 = v99 │
00:07:41 #20819 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20820 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:07:41 #20821 [verbose] > │ v100 │
00:07:41 #20822 [verbose] > │ #endif │
00:07:41 #20823 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20824 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:07:41 #20825 [verbose] > │ v101 │
00:07:41 #20826 [verbose] > │ #endif │
00:07:41 #20827 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20828 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:07:41 #20829 [verbose] > │ v102 │
00:07:41 #20830 [verbose] > │ #endif │
00:07:41 #20831 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20832 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20833 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:07:41 #20834 [verbose] > │ v103 │
00:07:41 #20835 [verbose] > │ #endif │
00:07:41 #20836 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20837 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:07:41 #20838 [verbose] > │ v104 │
00:07:41 #20839 [verbose] > │ #endif │
00:07:41 #20840 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:41 #20841 [verbose] > │ FABLE_COMPILER_DART │
00:07:41 #20842 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:07:41 #20843 [verbose] > │ v105 │
00:07:41 #20844 [verbose] > │ #endif │
00:07:41 #20845 [verbose] > │ |> fun x -> _v99 <- Some x │
00:07:41 #20846 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:07:41 #20847 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:07:41 #20848 [verbose] > │ let v108 : string = $"%A{v107}" │
00:07:41 #20849 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:07:41 #20850 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:07:41 #20851 [verbose] > │ System.Console.WriteLine v110 │
00:07:41 #20852 [verbose] > │ () │
00:07:41 #20853 [verbose] > │ let v111 : System.IDisposable option = None │
00:07:41 #20854 [verbose] > │ let mutable _v111 = v111 │
00:07:41 #20855 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20856 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:41 #20857 [verbose] > │ v112 │
00:07:41 #20858 [verbose] > │ #endif │
00:07:41 #20859 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20860 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:41 #20861 [verbose] > │ v113 │
00:07:41 #20862 [verbose] > │ #endif │
00:07:41 #20863 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20864 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:41 #20865 [verbose] > │ v114 │
00:07:41 #20866 [verbose] > │ #endif │
00:07:41 #20867 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20868 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20869 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:07:41 #20870 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:07:41 #20871 [verbose] > │ _.Dispose () = v115 () } │
00:07:41 #20872 [verbose] > │ v116 │
00:07:41 #20873 [verbose] > │ #endif │
00:07:41 #20874 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20875 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:41 #20876 [verbose] > │ v117 │
00:07:41 #20877 [verbose] > │ #endif │
00:07:41 #20878 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20879 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:07:41 #20880 [verbose] > │ v118 │
00:07:41 #20881 [verbose] > │ #endif │
00:07:41 #20882 [verbose] > │ |> fun x -> _v111 <- Some x │
00:07:41 #20883 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:07:41 #20884 [verbose] > │ struct (v80, v119) │
00:07:41 #20885 [verbose] > │ #endif │
00:07:41 #20886 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20887 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:07:41 #20888 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:07:41 #20889 [verbose] > │ struct (v120, v121) │
00:07:41 #20890 [verbose] > │ #endif │
00:07:41 #20891 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20892 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:07:41 #20893 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:07:41 #20894 [verbose] > │ struct (v122, v123) │
00:07:41 #20895 [verbose] > │ #endif │
00:07:41 #20896 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:41 #20897 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:07:41 #20898 [verbose] > │ use v125 = v125 │
00:07:41 #20899 [verbose] > │ let v126 : System.IDisposable = v125 │
00:07:41 #20900 [verbose] > │ let v127 : bool option = None │
00:07:41 #20901 [verbose] > │ let mutable _v127 = v127 │
00:07:41 #20902 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:41 #20903 [verbose] > │ let v128 : string = method1(v124) │
00:07:41 #20904 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:41 #20905 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:07:41 #20906 [verbose] > │ let v131 : string = "String::from($0)" │
00:07:41 #20907 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:07:41 #20908 [verbose] > │ v131 │
00:07:41 #20909 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:07:41 #20910 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:07:41 #20911 [verbose] > │ v133 │
00:07:41 #20912 [verbose] > │ let v135 : string = "$0.exists()" │
00:07:41 #20913 [verbose] > │ let v136 : bool = Fable.Core.RustInterop.emitRustExpr v134 v135 │
00:07:41 #20914 [verbose] > │ let v139 : bool = │
00:07:41 #20915 [verbose] > │ if v136 then │
00:07:41 #20916 [verbose] > │ let v137 : string = "$0.is_dir()" │
00:07:41 #20917 [verbose] > │ let v138 : bool = Fable.Core.RustInterop.emitRustExpr v134 v137 │
00:07:41 #20918 [verbose] > │ v138 │
00:07:41 #20919 [verbose] > │ else │
00:07:41 #20920 [verbose] > │ false │
00:07:41 #20921 [verbose] > │ v139 │
00:07:41 #20922 [verbose] > │ #endif │
00:07:41 #20923 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:41 #20924 [verbose] > │ let v140 : bool = null |> unbox<bool> │
00:07:41 #20925 [verbose] > │ v140 │
00:07:41 #20926 [verbose] > │ #endif │
00:07:41 #20927 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:41 #20928 [verbose] > │ let v141 : bool = null |> unbox<bool> │
00:07:41 #20929 [verbose] > │ v141 │
00:07:41 #20930 [verbose] > │ #endif │
00:07:41 #20931 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:41 #20932 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:41 #20933 [verbose] > │ let v142 : (string -> bool) = System.IO.Directory.Exists │
00:07:41 #20934 [verbose] > │ let v143 : bool = v142 v124 │
00:07:41 #20935 [verbose] > │ v143 │
00:07:41 #20936 [verbose] > │ #endif │
00:07:41 #20937 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:41 #20938 [verbose] > │ let v144 : string = "fs" │
00:07:41 #20939 [verbose] > │ let v145 : IFsExistsSync = Fable.Core.JsInterop.importAll v144 │
00:07:41 #20940 [verbose] > │ let v146 : string = "v145.existsSync($0)" │
00:07:41 #20941 [verbose] > │ let v147 : bool = Fable.Core.JsInterop.emitJsExpr v124 v146 │
00:07:41 #20942 [verbose] > │ v147 │
00:07:41 #20943 [verbose] > │ #endif │
00:07:41 #20944 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:41 #20945 [verbose] > │ let v148 : bool = Unchecked.defaultof<bool> │
00:07:41 #20946 [verbose] > │ v148 │
00:07:41 #20947 [verbose] > │ #endif │
00:07:41 #20948 [verbose] > │ |> fun x -> _v127 <- Some x │
00:07:41 #20949 [verbose] > │ let v149 : bool = _v127.Value │
00:07:41 #20950 [verbose] > │ let v150 : string = $"%A{v149}" │
00:07:41 #20951 [verbose] > │ System.Console.WriteLine v150 │
00:07:41 #20952 [verbose] > │ let v152 : bool = │
00:07:41 #20953 [verbose] > │ if v149 then │
00:07:41 #20954 [verbose] > │ true │
00:07:41 #20955 [verbose] > │ else │
00:07:41 #20956 [verbose] > │ method4(v149) │
00:07:41 #20957 [verbose] > │ let v153 : string = $"__expect / actual: %A{v149} / expected: %A{true}" │
00:07:41 #20958 [verbose] > │ let v154 : bool = v152 = false │
00:07:41 #20959 [verbose] > │ if v154 then │
00:07:41 #20960 [verbose] > │ failwith<unit> v153 │
00:07:41 #20961 [verbose] > │ method0() │
00:07:41 #20962 [verbose] > │ │
00:07:41 #20963 [verbose] > │ true │
00:07:41 #20964 [verbose] > │ │
00:07:41 #20965 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:41 #20966 [verbose] >
00:07:41 #20967 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:41 #20968 [verbose] > // // test
00:07:41 #20969 [verbose] >
00:07:41 #20970 [verbose] > inl lock_directory path =
00:07:41 #20971 [verbose] > fun () =>
00:07:41 #20972 [verbose] > trace Debug (fun () => "_1") get_locals
00:07:41 #20973 [verbose] > "0" |> write_all_text_async (path </> "test.txt") |> async.do
00:07:41 #20974 [verbose] > file_stream
00:07:41 #20975 [verbose] > (path </> "test.txt")
00:07:41 #20976 [verbose] > ModeOpen
00:07:41 #20977 [verbose] > AccessReadWrite
00:07:41 #20978 [verbose] > ShareNone
00:07:41 #20979 [verbose] > |> use
00:07:41 #20980 [verbose] > |> ignore
00:07:41 #20981 [verbose] > trace Debug (fun () => "_2") get_locals
00:07:41 #20982 [verbose] > async.sleep 2000 |> async.do
00:07:41 #20983 [verbose] > trace Debug (fun () => "_3") get_locals
00:07:41 #20984 [verbose] > () |> return
00:07:41 #20985 [verbose] > |> async.new_async
00:07:41 #20986 [verbose] >
00:07:41 #20987 [verbose] > inl temp_dir, disposable = create_temp_directory ()
00:07:41 #20988 [verbose] > disposable |> use |> ignore
00:07:41 #20989 [verbose] > inl path = temp_dir </> "test"
00:07:41 #20990 [verbose] >
00:07:41 #20991 [verbose] > fun () =>
00:07:41 #20992 [verbose] > trace Debug (fun () => "1") get_locals
00:07:41 #20993 [verbose] > path |> create_directory |> ignore
00:07:41 #20994 [verbose] > trace Debug (fun () => "2") get_locals
00:07:41 #20995 [verbose] > inl child = path |> lock_directory |> async.start_child |> async.let'
00:07:41 #20996 [verbose] > trace Debug (fun () => "3") get_locals
00:07:41 #20997 [verbose] > async.sleep 60 |> async.do
00:07:41 #20998 [verbose] > trace Debug (fun () => "4") get_locals
00:07:41 #20999 [verbose] > inl retries = path |> delete_directory_async |> async.let'
00:07:41 #21000 [verbose] > trace Debug (fun () => "5") get_locals
00:07:41 #21001 [verbose] > child |> async.do
00:07:41 #21002 [verbose] > trace Debug (fun () => "6") get_locals
00:07:41 #21003 [verbose] > retries |> return
00:07:41 #21004 [verbose] > |> async.new_async_unit
00:07:41 #21005 [verbose] > |> async.run_with_timeout 3000
00:07:41 #21006 [verbose] > |> fun x => x : _ i64
00:07:41 #21007 [verbose] > |> function
00:07:41 #21008 [verbose] > | Some (retries : i64) =>
00:07:41 #21009 [verbose] > retries
00:07:41 #21010 [verbose] > |> _assert_between
00:07:41 #21011 [verbose] > (if runtime.is_windows () then 50 else 0)
00:07:41 #21012 [verbose] > (if runtime.is_windows () then 150 else 0)
00:07:41 #21013 [verbose] >
00:07:41 #21014 [verbose] > true
00:07:41 #21015 [verbose] > | _ => false
00:07:41 #21016 [verbose] > |> _assert_eq true
00:07:42 #21017 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c21bcc2df7fb3255f0dc8814dc6ccffca58d5fa0f22b9a736a646db0f6300d34\main.spi
00:07:44 #21018 [verbose] >
00:07:45 #21019 [verbose] > ╭─[ 3.12s - stdout ]───────────────────────────────────────────────────────────╮
00:07:45 #21020 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:07:45 #21021 [verbose] > │ string │
00:07:45 #21022 [verbose] > │ module State = let mutable trace_state = None │
00:07:45 #21023 [verbose] > │ type [<Struct>] US0 = │
00:07:45 #21024 [verbose] > │ | US0_0 │
00:07:45 #21025 [verbose] > │ | US0_1 │
00:07:45 #21026 [verbose] > │ | US0_2 │
00:07:45 #21027 [verbose] > │ | US0_3 │
00:07:45 #21028 [verbose] > │ | US0_4 │
00:07:45 #21029 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:07:45 #21030 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:07:45 #21031 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:07:45 #21032 [verbose] > │ and [<Struct>] US1 = │
00:07:45 #21033 [verbose] > │ | US1_0 of f0_0 : int64 │
00:07:45 #21034 [verbose] > │ | US1_1 │
00:07:45 #21035 [verbose] > │ and [<Struct>] US2 = │
00:07:45 #21036 [verbose] > │ | US2_0 of f0_0 : int64 │
00:07:45 #21037 [verbose] > │ | US2_1 │
00:07:45 #21038 [verbose] > │ and [<Struct>] US3 = │
00:07:45 #21039 [verbose] > │ | US3_0 of f0_0 : int64 │
00:07:45 #21040 [verbose] > │ | US3_1 of f1_0 : exn │
00:07:45 #21041 [verbose] > │ and [<Struct>] US4 = │
00:07:45 #21042 [verbose] > │ | US4_0 of f0_0 : int64 │
00:07:45 #21043 [verbose] > │ | US4_1 of f1_0 : exn │
00:07:45 #21044 [verbose] > │ let rec closure0 () () : string = │
00:07:45 #21045 [verbose] > │ let v0 : string option = None │
00:07:45 #21046 [verbose] > │ let mutable _v0 = v0 │
00:07:45 #21047 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21048 [verbose] > │ let v1 : string = null |> unbox<string> │
00:07:45 #21049 [verbose] > │ v1 │
00:07:45 #21050 [verbose] > │ #endif │
00:07:45 #21051 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21052 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:45 #21053 [verbose] > │ v2 │
00:07:45 #21054 [verbose] > │ #endif │
00:07:45 #21055 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21056 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:45 #21057 [verbose] > │ v3 │
00:07:45 #21058 [verbose] > │ #endif │
00:07:45 #21059 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21060 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21061 [verbose] > │ let v4 : string = │
00:07:45 #21062 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:45 #21063 [verbose] > │ v4 │
00:07:45 #21064 [verbose] > │ #endif │
00:07:45 #21065 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21066 [verbose] > │ let v5 : string = null |> unbox<string> │
00:07:45 #21067 [verbose] > │ v5 │
00:07:45 #21068 [verbose] > │ #endif │
00:07:45 #21069 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21070 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:07:45 #21071 [verbose] > │ v6 │
00:07:45 #21072 [verbose] > │ #endif │
00:07:45 #21073 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:45 #21074 [verbose] > │ let v7 : string = _v0.Value │
00:07:45 #21075 [verbose] > │ v7 │
00:07:45 #21076 [verbose] > │ and method1 (v0 : string) : string = │
00:07:45 #21077 [verbose] > │ v0 │
00:07:45 #21078 [verbose] > │ and closure2 () () : string = │
00:07:45 #21079 [verbose] > │ let v0 : string = "" │
00:07:45 #21080 [verbose] > │ v0 │
00:07:45 #21081 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:07:45 #21082 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:07:45 #21083 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:07:45 #21084 [verbose] > │ v3 │
00:07:45 #21085 [verbose] > │ and closure5 () (v0 : string) : string = │
00:07:45 #21086 [verbose] > │ let v1 : string option = None │
00:07:45 #21087 [verbose] > │ let mutable _v1 = v1 │
00:07:45 #21088 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21089 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:45 #21090 [verbose] > │ v2 │
00:07:45 #21091 [verbose] > │ #endif │
00:07:45 #21092 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21093 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:45 #21094 [verbose] > │ v3 │
00:07:45 #21095 [verbose] > │ #endif │
00:07:45 #21096 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21097 [verbose] > │ let v4 : string = null |> unbox<string> │
00:07:45 #21098 [verbose] > │ v4 │
00:07:45 #21099 [verbose] > │ #endif │
00:07:45 #21100 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21101 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21102 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:07:45 #21103 [verbose] > │ let v6 : string = v5 v0 │
00:07:45 #21104 [verbose] > │ v6 │
00:07:45 #21105 [verbose] > │ #endif │
00:07:45 #21106 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21107 [verbose] > │ let v7 : string = null |> unbox<string> │
00:07:45 #21108 [verbose] > │ v7 │
00:07:45 #21109 [verbose] > │ #endif │
00:07:45 #21110 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21111 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:07:45 #21112 [verbose] > │ v8 │
00:07:45 #21113 [verbose] > │ #endif │
00:07:45 #21114 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:45 #21115 [verbose] > │ let v9 : string = _v1.Value │
00:07:45 #21116 [verbose] > │ v9 │
00:07:45 #21117 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:07:45 #21118 [verbose] > │ let v2 : (string -> string) = closure5() │
00:07:45 #21119 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:07:45 #21120 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:07:45 #21121 [verbose] > │ v4 │
00:07:45 #21122 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:07:45 #21123 [verbose] > │ method3(v0, v1) │
00:07:45 #21124 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:07:45 #21125 [verbose] > │ let v2 : Async<int64> option = None │
00:07:45 #21126 [verbose] > │ let mutable _v2 = v2 │
00:07:45 #21127 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21128 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #21129 [verbose] > │ v3 │
00:07:45 #21130 [verbose] > │ #endif │
00:07:45 #21131 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21132 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #21133 [verbose] > │ v4 │
00:07:45 #21134 [verbose] > │ #endif │
00:07:45 #21135 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21136 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #21137 [verbose] > │ v5 │
00:07:45 #21138 [verbose] > │ #endif │
00:07:45 #21139 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21140 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21141 [verbose] > │ let v6 : Async<int64> option = None │
00:07:45 #21142 [verbose] > │ let mutable _v6 = v6 │
00:07:45 #21143 [verbose] > │ async { │
00:07:45 #21144 [verbose] > │ try │
00:07:45 #21145 [verbose] > │ let v7 : unit option = None │
00:07:45 #21146 [verbose] > │ let mutable _v7 = v7 │
00:07:45 #21147 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21148 [verbose] > │ null |> unbox<unit> │
00:07:45 #21149 [verbose] > │ () │
00:07:45 #21150 [verbose] > │ #endif │
00:07:45 #21151 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21152 [verbose] > │ null |> unbox<unit> │
00:07:45 #21153 [verbose] > │ () │
00:07:45 #21154 [verbose] > │ #endif │
00:07:45 #21155 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21156 [verbose] > │ null |> unbox<unit> │
00:07:45 #21157 [verbose] > │ () │
00:07:45 #21158 [verbose] > │ #endif │
00:07:45 #21159 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21160 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21161 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:07:45 #21162 [verbose] > │ () │
00:07:45 #21163 [verbose] > │ #endif │
00:07:45 #21164 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21165 [verbose] > │ null |> unbox<unit> │
00:07:45 #21166 [verbose] > │ () │
00:07:45 #21167 [verbose] > │ #endif │
00:07:45 #21168 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21169 [verbose] > │ Unchecked.defaultof<unit> │
00:07:45 #21170 [verbose] > │ () │
00:07:45 #21171 [verbose] > │ #endif │
00:07:45 #21172 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:45 #21173 [verbose] > │ _v7.Value │
00:07:45 #21174 [verbose] > │ return v1 │
00:07:45 #21175 [verbose] > │ with ex -> │
00:07:45 #21176 [verbose] > │ let v8 : exn = ex │
00:07:45 #21177 [verbose] > │ let v9 : int64 = v1 % 100L │
00:07:45 #21178 [verbose] > │ let v10 : bool = v9 = 0L │
00:07:45 #21179 [verbose] > │ if v10 then │
00:07:45 #21180 [verbose] > │ let v11 : string option = None │
00:07:45 #21181 [verbose] > │ let mutable _v11 = v11 │
00:07:45 #21182 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21183 [verbose] > │ let v12 : string = $"%A{v8}" │
00:07:45 #21184 [verbose] > │ v12 │
00:07:45 #21185 [verbose] > │ #endif │
00:07:45 #21186 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21187 [verbose] > │ let v13 : string = $"%A{v8}" │
00:07:45 #21188 [verbose] > │ v13 │
00:07:45 #21189 [verbose] > │ #endif │
00:07:45 #21190 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21191 [verbose] > │ let v14 : string = $"%A{v8}" │
00:07:45 #21192 [verbose] > │ v14 │
00:07:45 #21193 [verbose] > │ #endif │
00:07:45 #21194 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21195 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21196 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:07:45 #21197 [verbose] > │ v15 │
00:07:45 #21198 [verbose] > │ #endif │
00:07:45 #21199 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21200 [verbose] > │ let v16 : string = $"%A{v8}" │
00:07:45 #21201 [verbose] > │ v16 │
00:07:45 #21202 [verbose] > │ #endif │
00:07:45 #21203 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:45 #21204 [verbose] > │ FABLE_COMPILER_DART │
00:07:45 #21205 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:07:45 #21206 [verbose] > │ v17 │
00:07:45 #21207 [verbose] > │ #endif │
00:07:45 #21208 [verbose] > │ |> fun x -> _v11 <- Some x │
00:07:45 #21209 [verbose] > │ let v18 : string = _v11.Value │
00:07:45 #21210 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:07:45 #21211 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:07:45 #21212 [verbose] > │ System.Console.WriteLine v20 │
00:07:45 #21213 [verbose] > │ () │
00:07:45 #21214 [verbose] > │ let v21 : Async<unit> option = None │
00:07:45 #21215 [verbose] > │ let mutable _v21 = v21 │
00:07:45 #21216 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21217 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #21218 [verbose] > │ v22 │
00:07:45 #21219 [verbose] > │ #endif │
00:07:45 #21220 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21221 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #21222 [verbose] > │ v23 │
00:07:45 #21223 [verbose] > │ #endif │
00:07:45 #21224 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21225 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #21226 [verbose] > │ v24 │
00:07:45 #21227 [verbose] > │ #endif │
00:07:45 #21228 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21229 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21230 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:07:45 #21231 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:07:45 #21232 [verbose] > │ v26 │
00:07:45 #21233 [verbose] > │ #endif │
00:07:45 #21234 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21235 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #21236 [verbose] > │ v27 │
00:07:45 #21237 [verbose] > │ #endif │
00:07:45 #21238 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21239 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:45 #21240 [verbose] > │ v28 │
00:07:45 #21241 [verbose] > │ #endif │
00:07:45 #21242 [verbose] > │ |> fun x -> _v21 <- Some x │
00:07:45 #21243 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:07:45 #21244 [verbose] > │ do! v29 │
00:07:45 #21245 [verbose] > │ let v30 : int64 = v1 + 1L │
00:07:45 #21246 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:07:45 #21247 [verbose] > │ return! v31 │
00:07:45 #21248 [verbose] > │ (* │
00:07:45 #21249 [verbose] > │ let v32 : int64 = *) │
00:07:45 #21250 [verbose] > │ } │
00:07:45 #21251 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:45 #21252 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:07:45 #21253 [verbose] > │ v33 │
00:07:45 #21254 [verbose] > │ #endif │
00:07:45 #21255 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21256 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #21257 [verbose] > │ v34 │
00:07:45 #21258 [verbose] > │ #endif │
00:07:45 #21259 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21260 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:45 #21261 [verbose] > │ v35 │
00:07:45 #21262 [verbose] > │ #endif │
00:07:45 #21263 [verbose] > │ |> fun x -> _v2 <- Some x │
00:07:45 #21264 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:07:45 #21265 [verbose] > │ v36 │
00:07:45 #21266 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:07:45 #21267 [verbose] > │ let v1 : Async<int64> option = None │
00:07:45 #21268 [verbose] > │ let mutable _v1 = v1 │
00:07:45 #21269 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21270 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #21271 [verbose] > │ v2 │
00:07:45 #21272 [verbose] > │ #endif │
00:07:45 #21273 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21274 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #21275 [verbose] > │ v3 │
00:07:45 #21276 [verbose] > │ #endif │
00:07:45 #21277 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21278 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #21279 [verbose] > │ v4 │
00:07:45 #21280 [verbose] > │ #endif │
00:07:45 #21281 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21282 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21283 [verbose] > │ let v5 : int64 = 0L │
00:07:45 #21284 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:07:45 #21285 [verbose] > │ v6 │
00:07:45 #21286 [verbose] > │ #endif │
00:07:45 #21287 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21288 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #21289 [verbose] > │ v7 │
00:07:45 #21290 [verbose] > │ #endif │
00:07:45 #21291 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21292 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:45 #21293 [verbose] > │ v8 │
00:07:45 #21294 [verbose] > │ #endif │
00:07:45 #21295 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:45 #21296 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:07:45 #21297 [verbose] > │ let v10 : Async<unit> option = None │
00:07:45 #21298 [verbose] > │ let mutable _v10 = v10 │
00:07:45 #21299 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21300 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #21301 [verbose] > │ v11 │
00:07:45 #21302 [verbose] > │ #endif │
00:07:45 #21303 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21304 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #21305 [verbose] > │ v12 │
00:07:45 #21306 [verbose] > │ #endif │
00:07:45 #21307 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21308 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #21309 [verbose] > │ v13 │
00:07:45 #21310 [verbose] > │ #endif │
00:07:45 #21311 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21312 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21313 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:07:45 #21314 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:07:45 #21315 [verbose] > │ v15 │
00:07:45 #21316 [verbose] > │ #endif │
00:07:45 #21317 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21318 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #21319 [verbose] > │ v16 │
00:07:45 #21320 [verbose] > │ #endif │
00:07:45 #21321 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21322 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:45 #21323 [verbose] > │ v17 │
00:07:45 #21324 [verbose] > │ #endif │
00:07:45 #21325 [verbose] > │ |> fun x -> _v10 <- Some x │
00:07:45 #21326 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:07:45 #21327 [verbose] > │ let v19 : unit option = None │
00:07:45 #21328 [verbose] > │ let mutable _v19 = v19 │
00:07:45 #21329 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21330 [verbose] > │ null |> unbox<unit> │
00:07:45 #21331 [verbose] > │ () │
00:07:45 #21332 [verbose] > │ #endif │
00:07:45 #21333 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21334 [verbose] > │ null |> unbox<unit> │
00:07:45 #21335 [verbose] > │ () │
00:07:45 #21336 [verbose] > │ #endif │
00:07:45 #21337 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21338 [verbose] > │ null |> unbox<unit> │
00:07:45 #21339 [verbose] > │ () │
00:07:45 #21340 [verbose] > │ #endif │
00:07:45 #21341 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21342 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21343 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:07:45 #21344 [verbose] > │ v20 v18 │
00:07:45 #21345 [verbose] > │ () │
00:07:45 #21346 [verbose] > │ #endif │
00:07:45 #21347 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21348 [verbose] > │ null |> unbox<unit> │
00:07:45 #21349 [verbose] > │ () │
00:07:45 #21350 [verbose] > │ #endif │
00:07:45 #21351 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21352 [verbose] > │ Unchecked.defaultof<unit> │
00:07:45 #21353 [verbose] > │ () │
00:07:45 #21354 [verbose] > │ #endif │
00:07:45 #21355 [verbose] > │ |> fun x -> _v19 <- Some x │
00:07:45 #21356 [verbose] > │ _v19.Value │
00:07:45 #21357 [verbose] > │ () │
00:07:45 #21358 [verbose] > │ and method4 () : string = │
00:07:45 #21359 [verbose] > │ let v0 : string = "test" │
00:07:45 #21360 [verbose] > │ v0 │
00:07:45 #21361 [verbose] > │ and closure6 () () : string = │
00:07:45 #21362 [verbose] > │ let v0 : string = "1" │
00:07:45 #21363 [verbose] > │ v0 │
00:07:45 #21364 [verbose] > │ and method6 (v0 : int64 option) : int64 option = │
00:07:45 #21365 [verbose] > │ v0 │
00:07:45 #21366 [verbose] > │ and method7 (v0 : int64 option) : int64 option = │
00:07:45 #21367 [verbose] > │ v0 │
00:07:45 #21368 [verbose] > │ and closure7 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:07:45 #21369 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:07:45 #21370 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:07:45 #21371 [verbose] > │ let v2 : US0 = US0_0 │
00:07:45 #21372 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:07:45 #21373 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:07:45 #21374 [verbose] > │ let v5 : int64 option option = None │
00:07:45 #21375 [verbose] > │ let mutable _v5 = v5 │
00:07:45 #21376 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:07:45 #21377 [verbose] > │ let v6 : string option = None │
00:07:45 #21378 [verbose] > │ let mutable _v6 = v6 │
00:07:45 #21379 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21380 [verbose] > │ let v7 : string = null |> unbox<string> │
00:07:45 #21381 [verbose] > │ v7 │
00:07:45 #21382 [verbose] > │ #endif │
00:07:45 #21383 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21384 [verbose] > │ let v8 : string = null |> unbox<string> │
00:07:45 #21385 [verbose] > │ v8 │
00:07:45 #21386 [verbose] > │ #endif │
00:07:45 #21387 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21388 [verbose] > │ let v9 : string = null |> unbox<string> │
00:07:45 #21389 [verbose] > │ v9 │
00:07:45 #21390 [verbose] > │ #endif │
00:07:45 #21391 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21392 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21393 [verbose] > │ let v10 : string = │
00:07:45 #21394 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:45 #21395 [verbose] > │ v10 │
00:07:45 #21396 [verbose] > │ #endif │
00:07:45 #21397 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21398 [verbose] > │ let v11 : string = null |> unbox<string> │
00:07:45 #21399 [verbose] > │ v11 │
00:07:45 #21400 [verbose] > │ #endif │
00:07:45 #21401 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21402 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:07:45 #21403 [verbose] > │ v12 │
00:07:45 #21404 [verbose] > │ #endif │
00:07:45 #21405 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:45 #21406 [verbose] > │ let v13 : string = _v6.Value │
00:07:45 #21407 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:07:45 #21408 [verbose] > │ let v16 : bool = v15 <> true │
00:07:45 #21409 [verbose] > │ let v22 : US1 = │
00:07:45 #21410 [verbose] > │ if v16 then │
00:07:45 #21411 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:07:45 #21412 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:07:45 #21413 [verbose] > │ let v19 : int64 = v18 v17 │
00:07:45 #21414 [verbose] > │ US1_0(v19) │
00:07:45 #21415 [verbose] > │ else │
00:07:45 #21416 [verbose] > │ US1_1 │
00:07:45 #21417 [verbose] > │ let v27 : int64 option = │
00:07:45 #21418 [verbose] > │ match v22 with │
00:07:45 #21419 [verbose] > │ | US1_1 -> (* None *) │
00:07:45 #21420 [verbose] > │ let v25 : int64 option = None │
00:07:45 #21421 [verbose] > │ v25 │
00:07:45 #21422 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:07:45 #21423 [verbose] > │ let v24 : int64 option = Some v23 │
00:07:45 #21424 [verbose] > │ v24 │
00:07:45 #21425 [verbose] > │ let v28 : int64 option = method6(v27) │
00:07:45 #21426 [verbose] > │ v28 │
00:07:45 #21427 [verbose] > │ #else │
00:07:45 #21428 [verbose] > │ let v29 : int64 option = None │
00:07:45 #21429 [verbose] > │ let v30 : int64 option = method7(v29) │
00:07:45 #21430 [verbose] > │ v30 │
00:07:45 #21431 [verbose] > │ #endif │
00:07:45 #21432 [verbose] > │ |> fun x -> _v5 <- Some x │
00:07:45 #21433 [verbose] > │ let v31 : int64 option = _v5.Value │
00:07:45 #21434 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:07:45 #21435 [verbose] > │ and closure9 () (v0 : int64) : US2 = │
00:07:45 #21436 [verbose] > │ US2_0(v0) │
00:07:45 #21437 [verbose] > │ and method8 () : (int64 -> US2) = │
00:07:45 #21438 [verbose] > │ closure9() │
00:07:45 #21439 [verbose] > │ and method9 () : string = │
00:07:45 #21440 [verbose] > │ let v0 : string = "" │
00:07:45 #21441 [verbose] > │ v0 │
00:07:45 #21442 [verbose] > │ and closure8 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:07:45 #21443 [verbose] > │ string = │
00:07:45 #21444 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:07:45 #21445 [verbose] > │ closure7() │
00:07:45 #21446 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:45 #21447 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:07:45 #21448 [verbose] > │ option) = State.trace_state.Value │
00:07:45 #21449 [verbose] > │ let v9 : string option = None │
00:07:45 #21450 [verbose] > │ let mutable _v9 = v9 │
00:07:45 #21451 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21452 [verbose] > │ let v10 : (int64 -> US2) = method8() │
00:07:45 #21453 [verbose] > │ let v11 : US2 = US2_1 │
00:07:45 #21454 [verbose] > │ let v12 : US2 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:07:45 #21455 [verbose] > │ let v30 : System.DateTime = │
00:07:45 #21456 [verbose] > │ match v12 with │
00:07:45 #21457 [verbose] > │ | US2_1 -> (* None *) │
00:07:45 #21458 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:07:45 #21459 [verbose] > │ v28 │
00:07:45 #21460 [verbose] > │ | US2_0(v13) -> (* Some *) │
00:07:45 #21461 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:07:45 #21462 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:07:45 #21463 [verbose] > │ let v16 : int64 = v15 v14 │
00:07:45 #21464 [verbose] > │ let v17 : int64 = v16 - v13 │
00:07:45 #21465 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:07:45 #21466 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:07:45 #21467 [verbose] > │ let v20 : int32 = v19 v18 │
00:07:45 #21468 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:07:45 #21469 [verbose] > │ let v22 : int32 = v21 v18 │
00:07:45 #21470 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:07:45 #21471 [verbose] > │ let v24 : int32 = v23 v18 │
00:07:45 #21472 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:07:45 #21473 [verbose] > │ let v26 : int32 = v25 v18 │
00:07:45 #21474 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:07:45 #21475 [verbose] > │ v24, v26) │
00:07:45 #21476 [verbose] > │ v27 │
00:07:45 #21477 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:07:45 #21478 [verbose] > │ let v32 : string = v30.ToString v31 │
00:07:45 #21479 [verbose] > │ v32 │
00:07:45 #21480 [verbose] > │ #endif │
00:07:45 #21481 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21482 [verbose] > │ let v33 : string = method9() │
00:07:45 #21483 [verbose] > │ v33 │
00:07:45 #21484 [verbose] > │ #endif │
00:07:45 #21485 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21486 [verbose] > │ let v34 : string = method9() │
00:07:45 #21487 [verbose] > │ v34 │
00:07:45 #21488 [verbose] > │ #endif │
00:07:45 #21489 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21490 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21491 [verbose] > │ let v35 : (int64 -> US2) = method8() │
00:07:45 #21492 [verbose] > │ let v36 : US2 = US2_1 │
00:07:45 #21493 [verbose] > │ let v37 : US2 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:07:45 #21494 [verbose] > │ let v55 : System.DateTime = │
00:07:45 #21495 [verbose] > │ match v37 with │
00:07:45 #21496 [verbose] > │ | US2_1 -> (* None *) │
00:07:45 #21497 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:07:45 #21498 [verbose] > │ v53 │
00:07:45 #21499 [verbose] > │ | US2_0(v38) -> (* Some *) │
00:07:45 #21500 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:07:45 #21501 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:07:45 #21502 [verbose] > │ let v41 : int64 = v40 v39 │
00:07:45 #21503 [verbose] > │ let v42 : int64 = v41 - v38 │
00:07:45 #21504 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:07:45 #21505 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:07:45 #21506 [verbose] > │ let v45 : int32 = v44 v43 │
00:07:45 #21507 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:07:45 #21508 [verbose] > │ let v47 : int32 = v46 v43 │
00:07:45 #21509 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:07:45 #21510 [verbose] > │ let v49 : int32 = v48 v43 │
00:07:45 #21511 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:07:45 #21512 [verbose] > │ let v51 : int32 = v50 v43 │
00:07:45 #21513 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:07:45 #21514 [verbose] > │ v49, v51) │
00:07:45 #21515 [verbose] > │ v52 │
00:07:45 #21516 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:07:45 #21517 [verbose] > │ let v57 : string = v55.ToString v56 │
00:07:45 #21518 [verbose] > │ v57 │
00:07:45 #21519 [verbose] > │ #endif │
00:07:45 #21520 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21521 [verbose] > │ let v58 : string = method9() │
00:07:45 #21522 [verbose] > │ v58 │
00:07:45 #21523 [verbose] > │ #endif │
00:07:45 #21524 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21525 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:07:45 #21526 [verbose] > │ v59 │
00:07:45 #21527 [verbose] > │ #endif │
00:07:45 #21528 [verbose] > │ |> fun x -> _v9 <- Some x │
00:07:45 #21529 [verbose] > │ let v60 : string = _v9.Value │
00:07:45 #21530 [verbose] > │ let v61 : int64 = v4.l0 │
00:07:45 #21531 [verbose] > │ let v71 : string = │
00:07:45 #21532 [verbose] > │ match v0 with │
00:07:45 #21533 [verbose] > │ | US0_4 -> (* Critical *) │
00:07:45 #21534 [verbose] > │ let v66 : string = "Critical" │
00:07:45 #21535 [verbose] > │ v66 │
00:07:45 #21536 [verbose] > │ | US0_1 -> (* Debug *) │
00:07:45 #21537 [verbose] > │ let v63 : string = "Debug" │
00:07:45 #21538 [verbose] > │ v63 │
00:07:45 #21539 [verbose] > │ | US0_2 -> (* Info *) │
00:07:45 #21540 [verbose] > │ let v64 : string = "Info" │
00:07:45 #21541 [verbose] > │ v64 │
00:07:45 #21542 [verbose] > │ | US0_0 -> (* Verbose *) │
00:07:45 #21543 [verbose] > │ let v62 : string = "Verbose" │
00:07:45 #21544 [verbose] > │ v62 │
00:07:45 #21545 [verbose] > │ | US0_3 -> (* Warning *) │
00:07:45 #21546 [verbose] > │ let v65 : string = "Warning" │
00:07:45 #21547 [verbose] > │ v65 │
00:07:45 #21548 [verbose] > │ let v72 : string = v71.ToLower () │
00:07:45 #21549 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:07:45 #21550 [verbose] > │ let v74 : (char []) = [||] │
00:07:45 #21551 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:07:45 #21552 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:07:45 #21553 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:07:45 #21554 [verbose] > │ v77 │
00:07:45 #21555 [verbose] > │ and method5 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:07:45 #21556 [verbose] > │ = │
00:07:45 #21557 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:07:45 #21558 [verbose] > │ closure7() │
00:07:45 #21559 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:45 #21560 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:07:45 #21561 [verbose] > │ option) = State.trace_state.Value │
00:07:45 #21562 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:45 #21563 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:07:45 #21564 [verbose] > │ option) = State.trace_state.Value │
00:07:45 #21565 [verbose] > │ let v14 : US0 = v12.l0 │
00:07:45 #21566 [verbose] > │ let v15 : bool = v11.l0 │
00:07:45 #21567 [verbose] > │ let v17 : bool = │
00:07:45 #21568 [verbose] > │ if v15 then │
00:07:45 #21569 [verbose] > │ let v16 : bool = v0 >= v14 │
00:07:45 #21570 [verbose] > │ v16 │
00:07:45 #21571 [verbose] > │ else │
00:07:45 #21572 [verbose] > │ false │
00:07:45 #21573 [verbose] > │ if v17 then │
00:07:45 #21574 [verbose] > │ let v18 : int64 = v4.l0 │
00:07:45 #21575 [verbose] > │ let v19 : int64 = v18 + 1L │
00:07:45 #21576 [verbose] > │ v4.l0 <- v19 │
00:07:45 #21577 [verbose] > │ let v20 : (unit -> string) = closure8(v0, v1, v2) │
00:07:45 #21578 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:07:45 #21579 [verbose] > │ let v22 : unit option = None │
00:07:45 #21580 [verbose] > │ let mutable _v22 = v22 │
00:07:45 #21581 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21582 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:07:45 #21583 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:07:45 #21584 [verbose] > │ () │
00:07:45 #21585 [verbose] > │ #endif │
00:07:45 #21586 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21587 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:07:45 #21588 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:07:45 #21589 [verbose] > │ () │
00:07:45 #21590 [verbose] > │ #endif │
00:07:45 #21591 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21592 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:07:45 #21593 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:07:45 #21594 [verbose] > │ () │
00:07:45 #21595 [verbose] > │ #endif │
00:07:45 #21596 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21597 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21598 [verbose] > │ System.Console.WriteLine v21 │
00:07:45 #21599 [verbose] > │ () │
00:07:45 #21600 [verbose] > │ #endif │
00:07:45 #21601 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21602 [verbose] > │ System.Console.WriteLine v21 │
00:07:45 #21603 [verbose] > │ () │
00:07:45 #21604 [verbose] > │ #endif │
00:07:45 #21605 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:45 #21606 [verbose] > │ FABLE_COMPILER_DART │
00:07:45 #21607 [verbose] > │ Unchecked.defaultof<unit> │
00:07:45 #21608 [verbose] > │ () │
00:07:45 #21609 [verbose] > │ #endif │
00:07:45 #21610 [verbose] > │ |> fun x -> _v22 <- Some x │
00:07:45 #21611 [verbose] > │ _v22.Value │
00:07:45 #21612 [verbose] > │ () │
00:07:45 #21613 [verbose] > │ and closure10 () () : string = │
00:07:45 #21614 [verbose] > │ let v0 : string = "2" │
00:07:45 #21615 [verbose] > │ v0 │
00:07:45 #21616 [verbose] > │ and closure11 () () : string = │
00:07:45 #21617 [verbose] > │ let v0 : string = "_1" │
00:07:45 #21618 [verbose] > │ v0 │
00:07:45 #21619 [verbose] > │ and method10 () : string = │
00:07:45 #21620 [verbose] > │ let v0 : string = "test.txt" │
00:07:45 #21621 [verbose] > │ v0 │
00:07:45 #21622 [verbose] > │ and closure12 () () : string = │
00:07:45 #21623 [verbose] > │ let v0 : string = "_2" │
00:07:45 #21624 [verbose] > │ v0 │
00:07:45 #21625 [verbose] > │ and closure13 () () : string = │
00:07:45 #21626 [verbose] > │ let v0 : string = "_3" │
00:07:45 #21627 [verbose] > │ v0 │
00:07:45 #21628 [verbose] > │ and closure14 () () : string = │
00:07:45 #21629 [verbose] > │ let v0 : string = "3" │
00:07:45 #21630 [verbose] > │ v0 │
00:07:45 #21631 [verbose] > │ and closure15 () () : string = │
00:07:45 #21632 [verbose] > │ let v0 : string = "4" │
00:07:45 #21633 [verbose] > │ v0 │
00:07:45 #21634 [verbose] > │ and closure16 () () : string = │
00:07:45 #21635 [verbose] > │ let v0 : string = "5" │
00:07:45 #21636 [verbose] > │ v0 │
00:07:45 #21637 [verbose] > │ and closure17 () () : string = │
00:07:45 #21638 [verbose] > │ let v0 : string = "6" │
00:07:45 #21639 [verbose] > │ v0 │
00:07:45 #21640 [verbose] > │ and closure18 () (v0 : int64) : US3 = │
00:07:45 #21641 [verbose] > │ US3_0(v0) │
00:07:45 #21642 [verbose] > │ and closure19 () (v0 : exn) : US3 = │
00:07:45 #21643 [verbose] > │ US3_1(v0) │
00:07:45 #21644 [verbose] > │ and closure20 () () : string = │
00:07:45 #21645 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:07:45 #21646 [verbose] > │ v0 │
00:07:45 #21647 [verbose] > │ and closure21 () () : string = │
00:07:45 #21648 [verbose] > │ let v0 : (unit -> string) = closure2() │
00:07:45 #21649 [verbose] > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:07:45 #21650 [verbose] > │ v1 │
00:07:45 #21651 [verbose] > │ and closure22 (v0 : string) () : string = │
00:07:45 #21652 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:07:45 #21653 [verbose] > │ v1 │
00:07:45 #21654 [verbose] > │ and method11 (v0 : bool) : bool = │
00:07:45 #21655 [verbose] > │ v0 │
00:07:45 #21656 [verbose] > │ and method0 () : unit = │
00:07:45 #21657 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:07:45 #21658 [verbose] > │ let mutable _v0 = v0 │
00:07:45 #21659 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21660 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:07:45 #21661 [verbose] > │ (string * System.IDisposable)> │
00:07:45 #21662 [verbose] > │ struct (v1, v2) │
00:07:45 #21663 [verbose] > │ #endif │
00:07:45 #21664 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21665 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:07:45 #21666 [verbose] > │ (string * System.IDisposable)> │
00:07:45 #21667 [verbose] > │ struct (v3, v4) │
00:07:45 #21668 [verbose] > │ #endif │
00:07:45 #21669 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21670 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:07:45 #21671 [verbose] > │ (string * System.IDisposable)> │
00:07:45 #21672 [verbose] > │ struct (v5, v6) │
00:07:45 #21673 [verbose] > │ #endif │
00:07:45 #21674 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21675 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21676 [verbose] > │ let v7 : string option = None │
00:07:45 #21677 [verbose] > │ let mutable _v7 = v7 │
00:07:45 #21678 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21679 [verbose] > │ let v8 : string = null |> unbox<string> │
00:07:45 #21680 [verbose] > │ v8 │
00:07:45 #21681 [verbose] > │ #endif │
00:07:45 #21682 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21683 [verbose] > │ let v9 : string = null |> unbox<string> │
00:07:45 #21684 [verbose] > │ v9 │
00:07:45 #21685 [verbose] > │ #endif │
00:07:45 #21686 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21687 [verbose] > │ let v10 : string = null |> unbox<string> │
00:07:45 #21688 [verbose] > │ v10 │
00:07:45 #21689 [verbose] > │ #endif │
00:07:45 #21690 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21691 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21692 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:07:45 #21693 [verbose] > │ let v12 : string = v11 () │
00:07:45 #21694 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:07:45 #21695 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:07:45 #21696 [verbose] > │ let v15 : string option = None │
00:07:45 #21697 [verbose] > │ let mutable _v15 = v15 │
00:07:45 #21698 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21699 [verbose] > │ let v16 : string = method1(v12) │
00:07:45 #21700 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:45 #21701 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:07:45 #21702 [verbose] > │ let v19 : string = "String::from($0)" │
00:07:45 #21703 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:07:45 #21704 [verbose] > │ v19 │
00:07:45 #21705 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:07:45 #21706 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:07:45 #21707 [verbose] > │ let v23 : string = method1(v14) │
00:07:45 #21708 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:45 #21709 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:07:45 #21710 [verbose] > │ let v26 : string = "String::from($0)" │
00:07:45 #21711 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:07:45 #21712 [verbose] > │ v26 │
00:07:45 #21713 [verbose] > │ let v28 : string = "$0.join($1)" │
00:07:45 #21714 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:45 #21715 [verbose] > │ (v22, v27) v28 │
00:07:45 #21716 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:07:45 #21717 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:07:45 #21718 [verbose] > │ v30 │
00:07:45 #21719 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:07:45 #21720 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:07:45 #21721 [verbose] > │ v33 │
00:07:45 #21722 [verbose] > │ #endif │
00:07:45 #21723 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21724 [verbose] > │ let v34 : string = null |> unbox<string> │
00:07:45 #21725 [verbose] > │ v34 │
00:07:45 #21726 [verbose] > │ #endif │
00:07:45 #21727 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21728 [verbose] > │ let v35 : string = null |> unbox<string> │
00:07:45 #21729 [verbose] > │ v35 │
00:07:45 #21730 [verbose] > │ #endif │
00:07:45 #21731 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21732 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21733 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:07:45 #21734 [verbose] > │ v36 │
00:07:45 #21735 [verbose] > │ #endif │
00:07:45 #21736 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21737 [verbose] > │ let v37 : string = "path" │
00:07:45 #21738 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:45 #21739 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:07:45 #21740 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:07:45 #21741 [verbose] > │ v40 │
00:07:45 #21742 [verbose] > │ #endif │
00:07:45 #21743 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21744 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:07:45 #21745 [verbose] > │ v41 │
00:07:45 #21746 [verbose] > │ #endif │
00:07:45 #21747 [verbose] > │ |> fun x -> _v15 <- Some x │
00:07:45 #21748 [verbose] > │ let v42 : string = _v15.Value │
00:07:45 #21749 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:07:45 #21750 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:07:45 #21751 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:07:45 #21752 [verbose] > │ let v46 : string = v45 v44 │
00:07:45 #21753 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:07:45 #21754 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:07:45 #21755 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:07:45 #21756 [verbose] > │ let v50 : string = v49 v48 │
00:07:45 #21757 [verbose] > │ let v51 : string option = None │
00:07:45 #21758 [verbose] > │ let mutable _v51 = v51 │
00:07:45 #21759 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21760 [verbose] > │ let v52 : string = method1(v42) │
00:07:45 #21761 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:45 #21762 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:07:45 #21763 [verbose] > │ let v55 : string = "String::from($0)" │
00:07:45 #21764 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:07:45 #21765 [verbose] > │ v55 │
00:07:45 #21766 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:07:45 #21767 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:07:45 #21768 [verbose] > │ let v59 : string = method1(v50) │
00:07:45 #21769 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:45 #21770 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:07:45 #21771 [verbose] > │ let v62 : string = "String::from($0)" │
00:07:45 #21772 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:07:45 #21773 [verbose] > │ v62 │
00:07:45 #21774 [verbose] > │ let v64 : string = "$0.join($1)" │
00:07:45 #21775 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:45 #21776 [verbose] > │ (v58, v63) v64 │
00:07:45 #21777 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:07:45 #21778 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:07:45 #21779 [verbose] > │ v66 │
00:07:45 #21780 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:07:45 #21781 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:07:45 #21782 [verbose] > │ v69 │
00:07:45 #21783 [verbose] > │ #endif │
00:07:45 #21784 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21785 [verbose] > │ let v70 : string = null |> unbox<string> │
00:07:45 #21786 [verbose] > │ v70 │
00:07:45 #21787 [verbose] > │ #endif │
00:07:45 #21788 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21789 [verbose] > │ let v71 : string = null |> unbox<string> │
00:07:45 #21790 [verbose] > │ v71 │
00:07:45 #21791 [verbose] > │ #endif │
00:07:45 #21792 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21793 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21794 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:07:45 #21795 [verbose] > │ v72 │
00:07:45 #21796 [verbose] > │ #endif │
00:07:45 #21797 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21798 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:45 #21799 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:07:45 #21800 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:07:45 #21801 [verbose] > │ v75 │
00:07:45 #21802 [verbose] > │ #endif │
00:07:45 #21803 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21804 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:07:45 #21805 [verbose] > │ v76 │
00:07:45 #21806 [verbose] > │ #endif │
00:07:45 #21807 [verbose] > │ |> fun x -> _v51 <- Some x │
00:07:45 #21808 [verbose] > │ let v77 : string = _v51.Value │
00:07:45 #21809 [verbose] > │ v77 │
00:07:45 #21810 [verbose] > │ #endif │
00:07:45 #21811 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21812 [verbose] > │ let v78 : string = null |> unbox<string> │
00:07:45 #21813 [verbose] > │ v78 │
00:07:45 #21814 [verbose] > │ #endif │
00:07:45 #21815 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21816 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:07:45 #21817 [verbose] > │ v79 │
00:07:45 #21818 [verbose] > │ #endif │
00:07:45 #21819 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:45 #21820 [verbose] > │ let v80 : string = _v7.Value │
00:07:45 #21821 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:07:45 #21822 [verbose] > │ let mutable _v81 = v81 │
00:07:45 #21823 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21824 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:07:45 #21825 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:45 #21826 [verbose] > │ v82 │
00:07:45 #21827 [verbose] > │ #endif │
00:07:45 #21828 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21829 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:07:45 #21830 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:45 #21831 [verbose] > │ v83 │
00:07:45 #21832 [verbose] > │ #endif │
00:07:45 #21833 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21834 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:07:45 #21835 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:45 #21836 [verbose] > │ v84 │
00:07:45 #21837 [verbose] > │ #endif │
00:07:45 #21838 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21839 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21840 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:07:45 #21841 [verbose] > │ System.IO.Directory.CreateDirectory │
00:07:45 #21842 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:07:45 #21843 [verbose] > │ v86 │
00:07:45 #21844 [verbose] > │ #endif │
00:07:45 #21845 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21846 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:07:45 #21847 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:45 #21848 [verbose] > │ v87 │
00:07:45 #21849 [verbose] > │ #endif │
00:07:45 #21850 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21851 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:07:45 #21852 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:07:45 #21853 [verbose] > │ v88 │
00:07:45 #21854 [verbose] > │ #endif │
00:07:45 #21855 [verbose] > │ |> fun x -> _v81 <- Some x │
00:07:45 #21856 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:07:45 #21857 [verbose] > │ let v90 : bool option = None │
00:07:45 #21858 [verbose] > │ let mutable _v90 = v90 │
00:07:45 #21859 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21860 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:07:45 #21861 [verbose] > │ v91 │
00:07:45 #21862 [verbose] > │ #endif │
00:07:45 #21863 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21864 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:07:45 #21865 [verbose] > │ v92 │
00:07:45 #21866 [verbose] > │ #endif │
00:07:45 #21867 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21868 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:07:45 #21869 [verbose] > │ v93 │
00:07:45 #21870 [verbose] > │ #endif │
00:07:45 #21871 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21872 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21873 [verbose] > │ let v94 : bool = v89.Exists │
00:07:45 #21874 [verbose] > │ v94 │
00:07:45 #21875 [verbose] > │ #endif │
00:07:45 #21876 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21877 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:07:45 #21878 [verbose] > │ v95 │
00:07:45 #21879 [verbose] > │ #endif │
00:07:45 #21880 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21881 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:07:45 #21882 [verbose] > │ v96 │
00:07:45 #21883 [verbose] > │ #endif │
00:07:45 #21884 [verbose] > │ |> fun x -> _v90 <- Some x │
00:07:45 #21885 [verbose] > │ let v97 : bool = _v90.Value │
00:07:45 #21886 [verbose] > │ let v98 : bool = v97 = false │
00:07:45 #21887 [verbose] > │ if v98 then │
00:07:45 #21888 [verbose] > │ let v99 : System.DateTime option = None │
00:07:45 #21889 [verbose] > │ let mutable _v99 = v99 │
00:07:45 #21890 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21891 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:07:45 #21892 [verbose] > │ v100 │
00:07:45 #21893 [verbose] > │ #endif │
00:07:45 #21894 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21895 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:07:45 #21896 [verbose] > │ v101 │
00:07:45 #21897 [verbose] > │ #endif │
00:07:45 #21898 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21899 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:07:45 #21900 [verbose] > │ v102 │
00:07:45 #21901 [verbose] > │ #endif │
00:07:45 #21902 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21903 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21904 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:07:45 #21905 [verbose] > │ v103 │
00:07:45 #21906 [verbose] > │ #endif │
00:07:45 #21907 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21908 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:07:45 #21909 [verbose] > │ v104 │
00:07:45 #21910 [verbose] > │ #endif │
00:07:45 #21911 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:45 #21912 [verbose] > │ FABLE_COMPILER_DART │
00:07:45 #21913 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:07:45 #21914 [verbose] > │ v105 │
00:07:45 #21915 [verbose] > │ #endif │
00:07:45 #21916 [verbose] > │ |> fun x -> _v99 <- Some x │
00:07:45 #21917 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:07:45 #21918 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:07:45 #21919 [verbose] > │ let v108 : string = $"%A{v107}" │
00:07:45 #21920 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:07:45 #21921 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:07:45 #21922 [verbose] > │ System.Console.WriteLine v110 │
00:07:45 #21923 [verbose] > │ () │
00:07:45 #21924 [verbose] > │ let v111 : System.IDisposable option = None │
00:07:45 #21925 [verbose] > │ let mutable _v111 = v111 │
00:07:45 #21926 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21927 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:45 #21928 [verbose] > │ v112 │
00:07:45 #21929 [verbose] > │ #endif │
00:07:45 #21930 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #21931 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:45 #21932 [verbose] > │ v113 │
00:07:45 #21933 [verbose] > │ #endif │
00:07:45 #21934 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #21935 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:45 #21936 [verbose] > │ v114 │
00:07:45 #21937 [verbose] > │ #endif │
00:07:45 #21938 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #21939 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #21940 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:07:45 #21941 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:07:45 #21942 [verbose] > │ _.Dispose () = v115 () } │
00:07:45 #21943 [verbose] > │ v116 │
00:07:45 #21944 [verbose] > │ #endif │
00:07:45 #21945 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21946 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:45 #21947 [verbose] > │ v117 │
00:07:45 #21948 [verbose] > │ #endif │
00:07:45 #21949 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21950 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:07:45 #21951 [verbose] > │ v118 │
00:07:45 #21952 [verbose] > │ #endif │
00:07:45 #21953 [verbose] > │ |> fun x -> _v111 <- Some x │
00:07:45 #21954 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:07:45 #21955 [verbose] > │ struct (v80, v119) │
00:07:45 #21956 [verbose] > │ #endif │
00:07:45 #21957 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #21958 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:07:45 #21959 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:07:45 #21960 [verbose] > │ struct (v120, v121) │
00:07:45 #21961 [verbose] > │ #endif │
00:07:45 #21962 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #21963 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:07:45 #21964 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:07:45 #21965 [verbose] > │ struct (v122, v123) │
00:07:45 #21966 [verbose] > │ #endif │
00:07:45 #21967 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:45 #21968 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:07:45 #21969 [verbose] > │ use v125 = v125 │
00:07:45 #21970 [verbose] > │ let v126 : System.IDisposable = v125 │
00:07:45 #21971 [verbose] > │ let v127 : string option = None │
00:07:45 #21972 [verbose] > │ let mutable _v127 = v127 │
00:07:45 #21973 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #21974 [verbose] > │ let v128 : string = method1(v124) │
00:07:45 #21975 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:45 #21976 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:07:45 #21977 [verbose] > │ let v131 : string = "String::from($0)" │
00:07:45 #21978 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:07:45 #21979 [verbose] > │ v131 │
00:07:45 #21980 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:07:45 #21981 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:07:45 #21982 [verbose] > │ v133 │
00:07:45 #21983 [verbose] > │ let v135 : string = method4() │
00:07:45 #21984 [verbose] > │ let v136 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:45 #21985 [verbose] > │ let v137 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v135 v136 │
00:07:45 #21986 [verbose] > │ let v138 : string = "String::from($0)" │
00:07:45 #21987 [verbose] > │ let v139 : std_string_String = Fable.Core.RustInterop.emitRustExpr v137 │
00:07:45 #21988 [verbose] > │ v138 │
00:07:45 #21989 [verbose] > │ let v140 : string = "$0.join($1)" │
00:07:45 #21990 [verbose] > │ let v141 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:45 #21991 [verbose] > │ (v134, v139) v140 │
00:07:45 #21992 [verbose] > │ let v142 : string = "$0.display().to_string()" │
00:07:45 #21993 [verbose] > │ let v143 : std_string_String = Fable.Core.RustInterop.emitRustExpr v141 │
00:07:45 #21994 [verbose] > │ v142 │
00:07:45 #21995 [verbose] > │ let v144 : string = "fable_library_rust::String_::fromString($0)" │
00:07:45 #21996 [verbose] > │ let v145 : string = Fable.Core.RustInterop.emitRustExpr v143 v144 │
00:07:45 #21997 [verbose] > │ v145 │
00:07:45 #21998 [verbose] > │ #endif │
00:07:45 #21999 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22000 [verbose] > │ let v146 : string = null |> unbox<string> │
00:07:45 #22001 [verbose] > │ v146 │
00:07:45 #22002 [verbose] > │ #endif │
00:07:45 #22003 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22004 [verbose] > │ let v147 : string = null |> unbox<string> │
00:07:45 #22005 [verbose] > │ v147 │
00:07:45 #22006 [verbose] > │ #endif │
00:07:45 #22007 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22008 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22009 [verbose] > │ let v148 : string = "test" │
00:07:45 #22010 [verbose] > │ let v149 : string = System.IO.Path.Combine (v124, v148) │
00:07:45 #22011 [verbose] > │ v149 │
00:07:45 #22012 [verbose] > │ #endif │
00:07:45 #22013 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22014 [verbose] > │ let v150 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:45 #22015 [verbose] > │ let v151 : string = "v150.join($0, $1)" │
00:07:45 #22016 [verbose] > │ let v152 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v148) │
00:07:45 #22017 [verbose] > │ v151 │
00:07:45 #22018 [verbose] > │ v152 │
00:07:45 #22019 [verbose] > │ #endif │
00:07:45 #22020 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22021 [verbose] > │ let v153 : string = Unchecked.defaultof<string> │
00:07:45 #22022 [verbose] > │ v153 │
00:07:45 #22023 [verbose] > │ #endif │
00:07:45 #22024 [verbose] > │ |> fun x -> _v127 <- Some x │
00:07:45 #22025 [verbose] > │ let v154 : string = _v127.Value │
00:07:45 #22026 [verbose] > │ let v155 : Async<int64> option = None │
00:07:45 #22027 [verbose] > │ let mutable _v155 = v155 │
00:07:45 #22028 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22029 [verbose] > │ let v156 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #22030 [verbose] > │ v156 │
00:07:45 #22031 [verbose] > │ #endif │
00:07:45 #22032 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22033 [verbose] > │ let v157 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #22034 [verbose] > │ v157 │
00:07:45 #22035 [verbose] > │ #endif │
00:07:45 #22036 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22037 [verbose] > │ let v158 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #22038 [verbose] > │ v158 │
00:07:45 #22039 [verbose] > │ #endif │
00:07:45 #22040 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22041 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22042 [verbose] > │ let v159 : Async<int64> option = None │
00:07:45 #22043 [verbose] > │ let mutable _v159 = v159 │
00:07:45 #22044 [verbose] > │ async { │
00:07:45 #22045 [verbose] > │ let v160 : US0 = US0_1 │
00:07:45 #22046 [verbose] > │ let v161 : (unit -> string) = closure6() │
00:07:45 #22047 [verbose] > │ let v162 : (unit -> string) = closure2() │
00:07:45 #22048 [verbose] > │ method5(v160, v161, v162) │
00:07:45 #22049 [verbose] > │ let v163 : System.IO.DirectoryInfo option = None │
00:07:45 #22050 [verbose] > │ let mutable _v163 = v163 │
00:07:45 #22051 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22052 [verbose] > │ let v164 : System.IO.DirectoryInfo = null |> │
00:07:45 #22053 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:45 #22054 [verbose] > │ v164 │
00:07:45 #22055 [verbose] > │ #endif │
00:07:45 #22056 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22057 [verbose] > │ let v165 : System.IO.DirectoryInfo = null |> │
00:07:45 #22058 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:45 #22059 [verbose] > │ v165 │
00:07:45 #22060 [verbose] > │ #endif │
00:07:45 #22061 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22062 [verbose] > │ let v166 : System.IO.DirectoryInfo = null |> │
00:07:45 #22063 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:45 #22064 [verbose] > │ v166 │
00:07:45 #22065 [verbose] > │ #endif │
00:07:45 #22066 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22067 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22068 [verbose] > │ let v167 : (string -> System.IO.DirectoryInfo) = │
00:07:45 #22069 [verbose] > │ System.IO.Directory.CreateDirectory │
00:07:45 #22070 [verbose] > │ let v168 : System.IO.DirectoryInfo = v167 v154 │
00:07:45 #22071 [verbose] > │ v168 │
00:07:45 #22072 [verbose] > │ #endif │
00:07:45 #22073 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22074 [verbose] > │ let v169 : System.IO.DirectoryInfo = null |> │
00:07:45 #22075 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:45 #22076 [verbose] > │ v169 │
00:07:45 #22077 [verbose] > │ #endif │
00:07:45 #22078 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22079 [verbose] > │ let v170 : System.IO.DirectoryInfo = │
00:07:45 #22080 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:07:45 #22081 [verbose] > │ v170 │
00:07:45 #22082 [verbose] > │ #endif │
00:07:45 #22083 [verbose] > │ |> fun x -> _v163 <- Some x │
00:07:45 #22084 [verbose] > │ let v171 : System.IO.DirectoryInfo = _v163.Value │
00:07:45 #22085 [verbose] > │ let v172 : US0 = US0_1 │
00:07:45 #22086 [verbose] > │ let v173 : (unit -> string) = closure10() │
00:07:45 #22087 [verbose] > │ method5(v172, v173, v162) │
00:07:45 #22088 [verbose] > │ let v174 : Async<unit> option = None │
00:07:45 #22089 [verbose] > │ let mutable _v174 = v174 │
00:07:45 #22090 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22091 [verbose] > │ let v175 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22092 [verbose] > │ v175 │
00:07:45 #22093 [verbose] > │ #endif │
00:07:45 #22094 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22095 [verbose] > │ let v176 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22096 [verbose] > │ v176 │
00:07:45 #22097 [verbose] > │ #endif │
00:07:45 #22098 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22099 [verbose] > │ let v177 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22100 [verbose] > │ v177 │
00:07:45 #22101 [verbose] > │ #endif │
00:07:45 #22102 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22103 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22104 [verbose] > │ let v178 : Async<unit> option = None │
00:07:45 #22105 [verbose] > │ let mutable _v178 = v178 │
00:07:45 #22106 [verbose] > │ async { │
00:07:45 #22107 [verbose] > │ let v179 : US0 = US0_1 │
00:07:45 #22108 [verbose] > │ let v180 : (unit -> string) = closure11() │
00:07:45 #22109 [verbose] > │ method5(v179, v180, v162) │
00:07:45 #22110 [verbose] > │ let v181 : string option = None │
00:07:45 #22111 [verbose] > │ let mutable _v181 = v181 │
00:07:45 #22112 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22113 [verbose] > │ let v182 : string = method1(v154) │
00:07:45 #22114 [verbose] > │ let v183 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:45 #22115 [verbose] > │ let v184 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v182 v183 │
00:07:45 #22116 [verbose] > │ let v185 : string = "String::from($0)" │
00:07:45 #22117 [verbose] > │ let v186 : std_string_String = Fable.Core.RustInterop.emitRustExpr v184 │
00:07:45 #22118 [verbose] > │ v185 │
00:07:45 #22119 [verbose] > │ let v187 : string = "std::path::PathBuf::from($0)" │
00:07:45 #22120 [verbose] > │ let v188 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v186 │
00:07:45 #22121 [verbose] > │ v187 │
00:07:45 #22122 [verbose] > │ let v189 : string = method10() │
00:07:45 #22123 [verbose] > │ let v190 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:45 #22124 [verbose] > │ let v191 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v189 v190 │
00:07:45 #22125 [verbose] > │ let v192 : string = "String::from($0)" │
00:07:45 #22126 [verbose] > │ let v193 : std_string_String = Fable.Core.RustInterop.emitRustExpr v191 │
00:07:45 #22127 [verbose] > │ v192 │
00:07:45 #22128 [verbose] > │ let v194 : string = "$0.join($1)" │
00:07:45 #22129 [verbose] > │ let v195 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:45 #22130 [verbose] > │ (v188, v193) v194 │
00:07:45 #22131 [verbose] > │ let v196 : string = "$0.display().to_string()" │
00:07:45 #22132 [verbose] > │ let v197 : std_string_String = Fable.Core.RustInterop.emitRustExpr v195 │
00:07:45 #22133 [verbose] > │ v196 │
00:07:45 #22134 [verbose] > │ let v198 : string = "fable_library_rust::String_::fromString($0)" │
00:07:45 #22135 [verbose] > │ let v199 : string = Fable.Core.RustInterop.emitRustExpr v197 v198 │
00:07:45 #22136 [verbose] > │ v199 │
00:07:45 #22137 [verbose] > │ #endif │
00:07:45 #22138 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22139 [verbose] > │ let v200 : string = null |> unbox<string> │
00:07:45 #22140 [verbose] > │ v200 │
00:07:45 #22141 [verbose] > │ #endif │
00:07:45 #22142 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22143 [verbose] > │ let v201 : string = null |> unbox<string> │
00:07:45 #22144 [verbose] > │ v201 │
00:07:45 #22145 [verbose] > │ #endif │
00:07:45 #22146 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22147 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22148 [verbose] > │ let v202 : string = "test.txt" │
00:07:45 #22149 [verbose] > │ let v203 : string = System.IO.Path.Combine (v154, v202) │
00:07:45 #22150 [verbose] > │ v203 │
00:07:45 #22151 [verbose] > │ #endif │
00:07:45 #22152 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22153 [verbose] > │ let v204 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:45 #22154 [verbose] > │ let v205 : string = "v204.join($0, $1)" │
00:07:45 #22155 [verbose] > │ let v206 : string = Fable.Core.JsInterop.emitJsExpr struct (v154, v202) │
00:07:45 #22156 [verbose] > │ v205 │
00:07:45 #22157 [verbose] > │ v206 │
00:07:45 #22158 [verbose] > │ #endif │
00:07:45 #22159 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22160 [verbose] > │ let v207 : string = Unchecked.defaultof<string> │
00:07:45 #22161 [verbose] > │ v207 │
00:07:45 #22162 [verbose] > │ #endif │
00:07:45 #22163 [verbose] > │ |> fun x -> _v181 <- Some x │
00:07:45 #22164 [verbose] > │ let v208 : string = _v181.Value │
00:07:45 #22165 [verbose] > │ let v209 : Async<unit> option = None │
00:07:45 #22166 [verbose] > │ let mutable _v209 = v209 │
00:07:45 #22167 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22168 [verbose] > │ let v210 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22169 [verbose] > │ v210 │
00:07:45 #22170 [verbose] > │ #endif │
00:07:45 #22171 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22172 [verbose] > │ let v211 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22173 [verbose] > │ v211 │
00:07:45 #22174 [verbose] > │ #endif │
00:07:45 #22175 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22176 [verbose] > │ let v212 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22177 [verbose] > │ v212 │
00:07:45 #22178 [verbose] > │ #endif │
00:07:45 #22179 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22180 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22181 [verbose] > │ let v213 : string = "0" │
00:07:45 #22182 [verbose] > │ let v214 : System.Threading.Tasks.Task = │
00:07:45 #22183 [verbose] > │ System.IO.File.WriteAllTextAsync (v208, v213) │
00:07:45 #22184 [verbose] > │ let v215 : Async<unit> option = None │
00:07:45 #22185 [verbose] > │ let mutable _v215 = v215 │
00:07:45 #22186 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22187 [verbose] > │ let v216 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22188 [verbose] > │ v216 │
00:07:45 #22189 [verbose] > │ #endif │
00:07:45 #22190 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22191 [verbose] > │ let v217 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22192 [verbose] > │ v217 │
00:07:45 #22193 [verbose] > │ #endif │
00:07:45 #22194 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22195 [verbose] > │ let v218 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22196 [verbose] > │ v218 │
00:07:45 #22197 [verbose] > │ #endif │
00:07:45 #22198 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22199 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22200 [verbose] > │ let v219 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:07:45 #22201 [verbose] > │ Async.AwaitTask │
00:07:45 #22202 [verbose] > │ let v220 : Async<unit> = v219 v214 │
00:07:45 #22203 [verbose] > │ v220 │
00:07:45 #22204 [verbose] > │ #endif │
00:07:45 #22205 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22206 [verbose] > │ let v221 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22207 [verbose] > │ v221 │
00:07:45 #22208 [verbose] > │ #endif │
00:07:45 #22209 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22210 [verbose] > │ let v222 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:45 #22211 [verbose] > │ v222 │
00:07:45 #22212 [verbose] > │ #endif │
00:07:45 #22213 [verbose] > │ |> fun x -> _v215 <- Some x │
00:07:45 #22214 [verbose] > │ let v223 : Async<unit> = _v215.Value │
00:07:45 #22215 [verbose] > │ v223 │
00:07:45 #22216 [verbose] > │ #endif │
00:07:45 #22217 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22218 [verbose] > │ let v224 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22219 [verbose] > │ v224 │
00:07:45 #22220 [verbose] > │ #endif │
00:07:45 #22221 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22222 [verbose] > │ let v225 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:45 #22223 [verbose] > │ v225 │
00:07:45 #22224 [verbose] > │ #endif │
00:07:45 #22225 [verbose] > │ |> fun x -> _v209 <- Some x │
00:07:45 #22226 [verbose] > │ let v226 : Async<unit> = _v209.Value │
00:07:45 #22227 [verbose] > │ do! v226 │
00:07:45 #22228 [verbose] > │ let v227 : string option = None │
00:07:45 #22229 [verbose] > │ let mutable _v227 = v227 │
00:07:45 #22230 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22231 [verbose] > │ let v228 : string = method1(v154) │
00:07:45 #22232 [verbose] > │ let v229 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:45 #22233 [verbose] > │ let v230 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v228 v229 │
00:07:45 #22234 [verbose] > │ let v231 : string = "String::from($0)" │
00:07:45 #22235 [verbose] > │ let v232 : std_string_String = Fable.Core.RustInterop.emitRustExpr v230 │
00:07:45 #22236 [verbose] > │ v231 │
00:07:45 #22237 [verbose] > │ let v233 : string = "std::path::PathBuf::from($0)" │
00:07:45 #22238 [verbose] > │ let v234 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v232 │
00:07:45 #22239 [verbose] > │ v233 │
00:07:45 #22240 [verbose] > │ let v235 : string = method10() │
00:07:45 #22241 [verbose] > │ let v236 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:45 #22242 [verbose] > │ let v237 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v235 v236 │
00:07:45 #22243 [verbose] > │ let v238 : string = "String::from($0)" │
00:07:45 #22244 [verbose] > │ let v239 : std_string_String = Fable.Core.RustInterop.emitRustExpr v237 │
00:07:45 #22245 [verbose] > │ v238 │
00:07:45 #22246 [verbose] > │ let v240 : string = "$0.join($1)" │
00:07:45 #22247 [verbose] > │ let v241 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:45 #22248 [verbose] > │ (v234, v239) v240 │
00:07:45 #22249 [verbose] > │ let v242 : string = "$0.display().to_string()" │
00:07:45 #22250 [verbose] > │ let v243 : std_string_String = Fable.Core.RustInterop.emitRustExpr v241 │
00:07:45 #22251 [verbose] > │ v242 │
00:07:45 #22252 [verbose] > │ let v244 : string = "fable_library_rust::String_::fromString($0)" │
00:07:45 #22253 [verbose] > │ let v245 : string = Fable.Core.RustInterop.emitRustExpr v243 v244 │
00:07:45 #22254 [verbose] > │ v245 │
00:07:45 #22255 [verbose] > │ #endif │
00:07:45 #22256 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22257 [verbose] > │ let v246 : string = null |> unbox<string> │
00:07:45 #22258 [verbose] > │ v246 │
00:07:45 #22259 [verbose] > │ #endif │
00:07:45 #22260 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22261 [verbose] > │ let v247 : string = null |> unbox<string> │
00:07:45 #22262 [verbose] > │ v247 │
00:07:45 #22263 [verbose] > │ #endif │
00:07:45 #22264 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22265 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22266 [verbose] > │ let v248 : string = System.IO.Path.Combine (v154, v202) │
00:07:45 #22267 [verbose] > │ v248 │
00:07:45 #22268 [verbose] > │ #endif │
00:07:45 #22269 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22270 [verbose] > │ let v249 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:45 #22271 [verbose] > │ let v250 : string = "v249.join($0, $1)" │
00:07:45 #22272 [verbose] > │ let v251 : string = Fable.Core.JsInterop.emitJsExpr struct (v154, v202) │
00:07:45 #22273 [verbose] > │ v250 │
00:07:45 #22274 [verbose] > │ v251 │
00:07:45 #22275 [verbose] > │ #endif │
00:07:45 #22276 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22277 [verbose] > │ let v252 : string = Unchecked.defaultof<string> │
00:07:45 #22278 [verbose] > │ v252 │
00:07:45 #22279 [verbose] > │ #endif │
00:07:45 #22280 [verbose] > │ |> fun x -> _v227 <- Some x │
00:07:45 #22281 [verbose] > │ let v253 : string = _v227.Value │
00:07:45 #22282 [verbose] > │ let v254 : System.IO.FileStream option = None │
00:07:45 #22283 [verbose] > │ let mutable _v254 = v254 │
00:07:45 #22284 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22285 [verbose] > │ let v255 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:45 #22286 [verbose] > │ v255 │
00:07:45 #22287 [verbose] > │ #endif │
00:07:45 #22288 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22289 [verbose] > │ let v256 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:45 #22290 [verbose] > │ v256 │
00:07:45 #22291 [verbose] > │ #endif │
00:07:45 #22292 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22293 [verbose] > │ let v257 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:45 #22294 [verbose] > │ v257 │
00:07:45 #22295 [verbose] > │ #endif │
00:07:45 #22296 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22297 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22298 [verbose] > │ let v258 : System.IO.FileMode = System.IO.FileMode.Open │
00:07:45 #22299 [verbose] > │ let v259 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:07:45 #22300 [verbose] > │ let v260 : System.IO.FileShare = System.IO.FileShare.None │
00:07:45 #22301 [verbose] > │ let v261 : System.IO.FileStream = new System.IO.FileStream (v253, v258, │
00:07:45 #22302 [verbose] > │ v259, v260) │
00:07:45 #22303 [verbose] > │ v261 │
00:07:45 #22304 [verbose] > │ #endif │
00:07:45 #22305 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22306 [verbose] > │ let v262 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:45 #22307 [verbose] > │ v262 │
00:07:45 #22308 [verbose] > │ #endif │
00:07:45 #22309 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22310 [verbose] > │ let v263 : System.IO.FileStream = │
00:07:45 #22311 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:07:45 #22312 [verbose] > │ v263 │
00:07:45 #22313 [verbose] > │ #endif │
00:07:45 #22314 [verbose] > │ |> fun x -> _v254 <- Some x │
00:07:45 #22315 [verbose] > │ let v264 : System.IO.FileStream = _v254.Value │
00:07:45 #22316 [verbose] > │ use v264 = v264 │
00:07:45 #22317 [verbose] > │ let v265 : System.IO.FileStream = v264 │
00:07:45 #22318 [verbose] > │ let v266 : US0 = US0_1 │
00:07:45 #22319 [verbose] > │ let v267 : (unit -> string) = closure12() │
00:07:45 #22320 [verbose] > │ method5(v266, v267, v162) │
00:07:45 #22321 [verbose] > │ let v268 : Async<unit> option = None │
00:07:45 #22322 [verbose] > │ let mutable _v268 = v268 │
00:07:45 #22323 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22324 [verbose] > │ let v269 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22325 [verbose] > │ v269 │
00:07:45 #22326 [verbose] > │ #endif │
00:07:45 #22327 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22328 [verbose] > │ let v270 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22329 [verbose] > │ v270 │
00:07:45 #22330 [verbose] > │ #endif │
00:07:45 #22331 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22332 [verbose] > │ let v271 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22333 [verbose] > │ v271 │
00:07:45 #22334 [verbose] > │ #endif │
00:07:45 #22335 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22336 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22337 [verbose] > │ let v272 : (int32 -> Async<unit>) = Async.Sleep │
00:07:45 #22338 [verbose] > │ let v273 : Async<unit> = v272 2000 │
00:07:45 #22339 [verbose] > │ v273 │
00:07:45 #22340 [verbose] > │ #endif │
00:07:45 #22341 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22342 [verbose] > │ let v274 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22343 [verbose] > │ v274 │
00:07:45 #22344 [verbose] > │ #endif │
00:07:45 #22345 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22346 [verbose] > │ let v275 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:45 #22347 [verbose] > │ v275 │
00:07:45 #22348 [verbose] > │ #endif │
00:07:45 #22349 [verbose] > │ |> fun x -> _v268 <- Some x │
00:07:45 #22350 [verbose] > │ let v276 : Async<unit> = _v268.Value │
00:07:45 #22351 [verbose] > │ do! v276 │
00:07:45 #22352 [verbose] > │ let v277 : US0 = US0_1 │
00:07:45 #22353 [verbose] > │ let v278 : (unit -> string) = closure13() │
00:07:45 #22354 [verbose] > │ method5(v277, v278, v162) │
00:07:45 #22355 [verbose] > │ return () │
00:07:45 #22356 [verbose] > │ } │
00:07:45 #22357 [verbose] > │ |> fun x -> _v178 <- Some x │
00:07:45 #22358 [verbose] > │ let v279 : Async<unit> = _v178 |> Option.get │
00:07:45 #22359 [verbose] > │ v279 │
00:07:45 #22360 [verbose] > │ #endif │
00:07:45 #22361 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22362 [verbose] > │ let v280 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22363 [verbose] > │ v280 │
00:07:45 #22364 [verbose] > │ #endif │
00:07:45 #22365 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22366 [verbose] > │ let v281 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:45 #22367 [verbose] > │ v281 │
00:07:45 #22368 [verbose] > │ #endif │
00:07:45 #22369 [verbose] > │ |> fun x -> _v174 <- Some x │
00:07:45 #22370 [verbose] > │ let v282 : Async<unit> = _v174.Value │
00:07:45 #22371 [verbose] > │ let v283 : Async<Async<unit>> option = None │
00:07:45 #22372 [verbose] > │ let mutable _v283 = v283 │
00:07:45 #22373 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22374 [verbose] > │ let v284 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:45 #22375 [verbose] > │ v284 │
00:07:45 #22376 [verbose] > │ #endif │
00:07:45 #22377 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22378 [verbose] > │ let v285 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:45 #22379 [verbose] > │ v285 │
00:07:45 #22380 [verbose] > │ #endif │
00:07:45 #22381 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22382 [verbose] > │ let v286 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:45 #22383 [verbose] > │ v286 │
00:07:45 #22384 [verbose] > │ #endif │
00:07:45 #22385 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22386 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22387 [verbose] > │ let v287 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:07:45 #22388 [verbose] > │ let v288 : Async<Async<unit>> = v287 v282 │
00:07:45 #22389 [verbose] > │ v288 │
00:07:45 #22390 [verbose] > │ #endif │
00:07:45 #22391 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22392 [verbose] > │ let v289 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:45 #22393 [verbose] > │ v289 │
00:07:45 #22394 [verbose] > │ #endif │
00:07:45 #22395 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22396 [verbose] > │ let v290 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:07:45 #22397 [verbose] > │ v290 │
00:07:45 #22398 [verbose] > │ #endif │
00:07:45 #22399 [verbose] > │ |> fun x -> _v283 <- Some x │
00:07:45 #22400 [verbose] > │ let v291 : Async<Async<unit>> = _v283.Value │
00:07:45 #22401 [verbose] > │ let! v291 = v291 │
00:07:45 #22402 [verbose] > │ let v292 : Async<unit> = v291 │
00:07:45 #22403 [verbose] > │ let v293 : US0 = US0_1 │
00:07:45 #22404 [verbose] > │ let v294 : (unit -> string) = closure14() │
00:07:45 #22405 [verbose] > │ method5(v293, v294, v162) │
00:07:45 #22406 [verbose] > │ let v295 : Async<unit> option = None │
00:07:45 #22407 [verbose] > │ let mutable _v295 = v295 │
00:07:45 #22408 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22409 [verbose] > │ let v296 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22410 [verbose] > │ v296 │
00:07:45 #22411 [verbose] > │ #endif │
00:07:45 #22412 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22413 [verbose] > │ let v297 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22414 [verbose] > │ v297 │
00:07:45 #22415 [verbose] > │ #endif │
00:07:45 #22416 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22417 [verbose] > │ let v298 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22418 [verbose] > │ v298 │
00:07:45 #22419 [verbose] > │ #endif │
00:07:45 #22420 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22421 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22422 [verbose] > │ let v299 : (int32 -> Async<unit>) = Async.Sleep │
00:07:45 #22423 [verbose] > │ let v300 : Async<unit> = v299 60 │
00:07:45 #22424 [verbose] > │ v300 │
00:07:45 #22425 [verbose] > │ #endif │
00:07:45 #22426 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22427 [verbose] > │ let v301 : Async<unit> = null |> unbox<Async<unit>> │
00:07:45 #22428 [verbose] > │ v301 │
00:07:45 #22429 [verbose] > │ #endif │
00:07:45 #22430 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22431 [verbose] > │ let v302 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:45 #22432 [verbose] > │ v302 │
00:07:45 #22433 [verbose] > │ #endif │
00:07:45 #22434 [verbose] > │ |> fun x -> _v295 <- Some x │
00:07:45 #22435 [verbose] > │ let v303 : Async<unit> = _v295.Value │
00:07:45 #22436 [verbose] > │ do! v303 │
00:07:45 #22437 [verbose] > │ let v304 : US0 = US0_1 │
00:07:45 #22438 [verbose] > │ let v305 : (unit -> string) = closure15() │
00:07:45 #22439 [verbose] > │ method5(v304, v305, v162) │
00:07:45 #22440 [verbose] > │ let v306 : Async<int64> option = None │
00:07:45 #22441 [verbose] > │ let mutable _v306 = v306 │
00:07:45 #22442 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22443 [verbose] > │ let v307 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #22444 [verbose] > │ v307 │
00:07:45 #22445 [verbose] > │ #endif │
00:07:45 #22446 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22447 [verbose] > │ let v308 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #22448 [verbose] > │ v308 │
00:07:45 #22449 [verbose] > │ #endif │
00:07:45 #22450 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22451 [verbose] > │ let v309 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #22452 [verbose] > │ v309 │
00:07:45 #22453 [verbose] > │ #endif │
00:07:45 #22454 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22455 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22456 [verbose] > │ let v310 : int64 = 0L │
00:07:45 #22457 [verbose] > │ let v311 : Async<int64> = method2(v154, v310) │
00:07:45 #22458 [verbose] > │ v311 │
00:07:45 #22459 [verbose] > │ #endif │
00:07:45 #22460 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22461 [verbose] > │ let v312 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #22462 [verbose] > │ v312 │
00:07:45 #22463 [verbose] > │ #endif │
00:07:45 #22464 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22465 [verbose] > │ let v313 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:45 #22466 [verbose] > │ v313 │
00:07:45 #22467 [verbose] > │ #endif │
00:07:45 #22468 [verbose] > │ |> fun x -> _v306 <- Some x │
00:07:45 #22469 [verbose] > │ let v314 : Async<int64> = _v306.Value │
00:07:45 #22470 [verbose] > │ let! v314 = v314 │
00:07:45 #22471 [verbose] > │ let v315 : int64 = v314 │
00:07:45 #22472 [verbose] > │ let v316 : US0 = US0_1 │
00:07:45 #22473 [verbose] > │ let v317 : (unit -> string) = closure16() │
00:07:45 #22474 [verbose] > │ method5(v316, v317, v162) │
00:07:45 #22475 [verbose] > │ do! v292 │
00:07:45 #22476 [verbose] > │ let v318 : US0 = US0_1 │
00:07:45 #22477 [verbose] > │ let v319 : (unit -> string) = closure17() │
00:07:45 #22478 [verbose] > │ method5(v318, v319, v162) │
00:07:45 #22479 [verbose] > │ return v315 │
00:07:45 #22480 [verbose] > │ } │
00:07:45 #22481 [verbose] > │ |> fun x -> _v159 <- Some x │
00:07:45 #22482 [verbose] > │ let v320 : Async<int64> = _v159 |> Option.get │
00:07:45 #22483 [verbose] > │ v320 │
00:07:45 #22484 [verbose] > │ #endif │
00:07:45 #22485 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22486 [verbose] > │ let v321 : Async<int64> = null |> unbox<Async<int64>> │
00:07:45 #22487 [verbose] > │ v321 │
00:07:45 #22488 [verbose] > │ #endif │
00:07:45 #22489 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22490 [verbose] > │ let v322 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:45 #22491 [verbose] > │ v322 │
00:07:45 #22492 [verbose] > │ #endif │
00:07:45 #22493 [verbose] > │ |> fun x -> _v155 <- Some x │
00:07:45 #22494 [verbose] > │ let v323 : Async<int64> = _v155.Value │
00:07:45 #22495 [verbose] > │ let v324 : Async<US2> option = None │
00:07:45 #22496 [verbose] > │ let mutable _v324 = v324 │
00:07:45 #22497 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22498 [verbose] > │ let v325 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22499 [verbose] > │ v325 │
00:07:45 #22500 [verbose] > │ #endif │
00:07:45 #22501 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22502 [verbose] > │ let v326 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22503 [verbose] > │ v326 │
00:07:45 #22504 [verbose] > │ #endif │
00:07:45 #22505 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22506 [verbose] > │ let v327 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22507 [verbose] > │ v327 │
00:07:45 #22508 [verbose] > │ #endif │
00:07:45 #22509 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22510 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22511 [verbose] > │ let v328 : Async<US2> option = None │
00:07:45 #22512 [verbose] > │ let mutable _v328 = v328 │
00:07:45 #22513 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22514 [verbose] > │ let v329 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22515 [verbose] > │ v329 │
00:07:45 #22516 [verbose] > │ #endif │
00:07:45 #22517 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22518 [verbose] > │ let v330 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22519 [verbose] > │ v330 │
00:07:45 #22520 [verbose] > │ #endif │
00:07:45 #22521 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22522 [verbose] > │ let v331 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22523 [verbose] > │ v331 │
00:07:45 #22524 [verbose] > │ #endif │
00:07:45 #22525 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22526 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22527 [verbose] > │ let v332 : Async<US2> option = None │
00:07:45 #22528 [verbose] > │ let mutable _v332 = v332 │
00:07:45 #22529 [verbose] > │ async { │
00:07:45 #22530 [verbose] > │ let v333 : Async<Async<int64>> option = None │
00:07:45 #22531 [verbose] > │ let mutable _v333 = v333 │
00:07:45 #22532 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22533 [verbose] > │ let v334 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:07:45 #22534 [verbose] > │ v334 │
00:07:45 #22535 [verbose] > │ #endif │
00:07:45 #22536 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22537 [verbose] > │ let v335 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:07:45 #22538 [verbose] > │ v335 │
00:07:45 #22539 [verbose] > │ #endif │
00:07:45 #22540 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22541 [verbose] > │ let v336 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:07:45 #22542 [verbose] > │ v336 │
00:07:45 #22543 [verbose] > │ #endif │
00:07:45 #22544 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22545 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22546 [verbose] > │ let v337 : Async<Async<int64>> = Async.StartChild (v323, 3000) │
00:07:45 #22547 [verbose] > │ v337 │
00:07:45 #22548 [verbose] > │ #endif │
00:07:45 #22549 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22550 [verbose] > │ let v338 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:07:45 #22551 [verbose] > │ v338 │
00:07:45 #22552 [verbose] > │ #endif │
00:07:45 #22553 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22554 [verbose] > │ let v339 : Async<Async<int64>> = │
00:07:45 #22555 [verbose] > │ Unchecked.defaultof<Async<Async<int64>>> │
00:07:45 #22556 [verbose] > │ v339 │
00:07:45 #22557 [verbose] > │ #endif │
00:07:45 #22558 [verbose] > │ |> fun x -> _v333 <- Some x │
00:07:45 #22559 [verbose] > │ let v340 : Async<Async<int64>> = _v333.Value │
00:07:45 #22560 [verbose] > │ let! v340 = v340 │
00:07:45 #22561 [verbose] > │ let v341 : Async<int64> = v340 │
00:07:45 #22562 [verbose] > │ let v342 : Async<Choice<int64, exn>> option = None │
00:07:45 #22563 [verbose] > │ let mutable _v342 = v342 │
00:07:45 #22564 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22565 [verbose] > │ let v343 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:07:45 #22566 [verbose] > │ exn>>> │
00:07:45 #22567 [verbose] > │ v343 │
00:07:45 #22568 [verbose] > │ #endif │
00:07:45 #22569 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22570 [verbose] > │ let v344 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:07:45 #22571 [verbose] > │ exn>>> │
00:07:45 #22572 [verbose] > │ v344 │
00:07:45 #22573 [verbose] > │ #endif │
00:07:45 #22574 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22575 [verbose] > │ let v345 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:07:45 #22576 [verbose] > │ exn>>> │
00:07:45 #22577 [verbose] > │ v345 │
00:07:45 #22578 [verbose] > │ #endif │
00:07:45 #22579 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22580 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22581 [verbose] > │ let v346 : (Async<int64> -> Async<Choice<int64, exn>>) = Async.Catch │
00:07:45 #22582 [verbose] > │ let v347 : Async<Choice<int64, exn>> = v346 v341 │
00:07:45 #22583 [verbose] > │ v347 │
00:07:45 #22584 [verbose] > │ #endif │
00:07:45 #22585 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22586 [verbose] > │ let v348 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:07:45 #22587 [verbose] > │ exn>>> │
00:07:45 #22588 [verbose] > │ v348 │
00:07:45 #22589 [verbose] > │ #endif │
00:07:45 #22590 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22591 [verbose] > │ let v349 : Async<Choice<int64, exn>> = │
00:07:45 #22592 [verbose] > │ Unchecked.defaultof<Async<Choice<int64, exn>>> │
00:07:45 #22593 [verbose] > │ v349 │
00:07:45 #22594 [verbose] > │ #endif │
00:07:45 #22595 [verbose] > │ |> fun x -> _v342 <- Some x │
00:07:45 #22596 [verbose] > │ let v350 : Async<Choice<int64, exn>> = _v342.Value │
00:07:45 #22597 [verbose] > │ let v351 : Async<US3> option = None │
00:07:45 #22598 [verbose] > │ let mutable _v351 = v351 │
00:07:45 #22599 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22600 [verbose] > │ let v352 : Async<US3> = null |> unbox<Async<US3>> │
00:07:45 #22601 [verbose] > │ v352 │
00:07:45 #22602 [verbose] > │ #endif │
00:07:45 #22603 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22604 [verbose] > │ let v353 : Async<US3> = null |> unbox<Async<US3>> │
00:07:45 #22605 [verbose] > │ v353 │
00:07:45 #22606 [verbose] > │ #endif │
00:07:45 #22607 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22608 [verbose] > │ let v354 : Async<US3> = null |> unbox<Async<US3>> │
00:07:45 #22609 [verbose] > │ v354 │
00:07:45 #22610 [verbose] > │ #endif │
00:07:45 #22611 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22612 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22613 [verbose] > │ let v355 : Async<US3> option = None │
00:07:45 #22614 [verbose] > │ let mutable _v355 = v355 │
00:07:45 #22615 [verbose] > │ async { │
00:07:45 #22616 [verbose] > │ let! v350 = v350 │
00:07:45 #22617 [verbose] > │ let v356 : Choice<int64, exn> = v350 │
00:07:45 #22618 [verbose] > │ let v357 : US3 option = None │
00:07:45 #22619 [verbose] > │ let mutable _v357 = v357 │
00:07:45 #22620 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22621 [verbose] > │ let v358 : US3 = null |> unbox<US3> │
00:07:45 #22622 [verbose] > │ v358 │
00:07:45 #22623 [verbose] > │ #endif │
00:07:45 #22624 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22625 [verbose] > │ let v359 : US3 = null |> unbox<US3> │
00:07:45 #22626 [verbose] > │ v359 │
00:07:45 #22627 [verbose] > │ #endif │
00:07:45 #22628 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22629 [verbose] > │ let v360 : US3 = null |> unbox<US3> │
00:07:45 #22630 [verbose] > │ v360 │
00:07:45 #22631 [verbose] > │ #endif │
00:07:45 #22632 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22633 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22634 [verbose] > │ let v361 : (int64 -> US3) = closure18() │
00:07:45 #22635 [verbose] > │ let v362 : (exn -> US3) = closure19() │
00:07:45 #22636 [verbose] > │ let v363 : US3 = match v356 with Choice1Of2 x -> v361 x | Choice2Of2 x │
00:07:45 #22637 [verbose] > │ -> v362 x │
00:07:45 #22638 [verbose] > │ v363 │
00:07:45 #22639 [verbose] > │ #endif │
00:07:45 #22640 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22641 [verbose] > │ let v364 : US3 = null |> unbox<US3> │
00:07:45 #22642 [verbose] > │ v364 │
00:07:45 #22643 [verbose] > │ #endif │
00:07:45 #22644 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22645 [verbose] > │ let v365 : US3 = Unchecked.defaultof<US3> │
00:07:45 #22646 [verbose] > │ v365 │
00:07:45 #22647 [verbose] > │ #endif │
00:07:45 #22648 [verbose] > │ |> fun x -> _v357 <- Some x │
00:07:45 #22649 [verbose] > │ let v366 : US3 = _v357.Value │
00:07:45 #22650 [verbose] > │ return v366 │
00:07:45 #22651 [verbose] > │ } │
00:07:45 #22652 [verbose] > │ |> fun x -> _v355 <- Some x │
00:07:45 #22653 [verbose] > │ let v367 : Async<US3> = _v355 |> Option.get │
00:07:45 #22654 [verbose] > │ v367 │
00:07:45 #22655 [verbose] > │ #endif │
00:07:45 #22656 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22657 [verbose] > │ let v368 : Async<US3> = null |> unbox<Async<US3>> │
00:07:45 #22658 [verbose] > │ v368 │
00:07:45 #22659 [verbose] > │ #endif │
00:07:45 #22660 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22661 [verbose] > │ let v369 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:07:45 #22662 [verbose] > │ v369 │
00:07:45 #22663 [verbose] > │ #endif │
00:07:45 #22664 [verbose] > │ |> fun x -> _v351 <- Some x │
00:07:45 #22665 [verbose] > │ let v370 : Async<US3> = _v351.Value │
00:07:45 #22666 [verbose] > │ let v371 : Async<US4> option = None │
00:07:45 #22667 [verbose] > │ let mutable _v371 = v371 │
00:07:45 #22668 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22669 [verbose] > │ let v372 : Async<US4> = null |> unbox<Async<US4>> │
00:07:45 #22670 [verbose] > │ v372 │
00:07:45 #22671 [verbose] > │ #endif │
00:07:45 #22672 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22673 [verbose] > │ let v373 : Async<US4> = null |> unbox<Async<US4>> │
00:07:45 #22674 [verbose] > │ v373 │
00:07:45 #22675 [verbose] > │ #endif │
00:07:45 #22676 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22677 [verbose] > │ let v374 : Async<US4> = null |> unbox<Async<US4>> │
00:07:45 #22678 [verbose] > │ v374 │
00:07:45 #22679 [verbose] > │ #endif │
00:07:45 #22680 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22681 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22682 [verbose] > │ let v375 : Async<US4> option = None │
00:07:45 #22683 [verbose] > │ let mutable _v375 = v375 │
00:07:45 #22684 [verbose] > │ async { │
00:07:45 #22685 [verbose] > │ let! v370 = v370 │
00:07:45 #22686 [verbose] > │ let v376 : US3 = v370 │
00:07:45 #22687 [verbose] > │ let v382 : US4 = │
00:07:45 #22688 [verbose] > │ match v376 with │
00:07:45 #22689 [verbose] > │ | US3_0(v377) -> (* Choice1Of2 *) │
00:07:45 #22690 [verbose] > │ US4_0(v377) │
00:07:45 #22691 [verbose] > │ | US3_1(v379) -> (* Choice2Of2 *) │
00:07:45 #22692 [verbose] > │ US4_1(v379) │
00:07:45 #22693 [verbose] > │ return v382 │
00:07:45 #22694 [verbose] > │ } │
00:07:45 #22695 [verbose] > │ |> fun x -> _v375 <- Some x │
00:07:45 #22696 [verbose] > │ let v383 : Async<US4> = _v375 |> Option.get │
00:07:45 #22697 [verbose] > │ v383 │
00:07:45 #22698 [verbose] > │ #endif │
00:07:45 #22699 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22700 [verbose] > │ let v384 : Async<US4> = null |> unbox<Async<US4>> │
00:07:45 #22701 [verbose] > │ v384 │
00:07:45 #22702 [verbose] > │ #endif │
00:07:45 #22703 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22704 [verbose] > │ let v385 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:07:45 #22705 [verbose] > │ v385 │
00:07:45 #22706 [verbose] > │ #endif │
00:07:45 #22707 [verbose] > │ |> fun x -> _v371 <- Some x │
00:07:45 #22708 [verbose] > │ let v386 : Async<US4> = _v371.Value │
00:07:45 #22709 [verbose] > │ let v387 : Async<US2> option = None │
00:07:45 #22710 [verbose] > │ let mutable _v387 = v387 │
00:07:45 #22711 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22712 [verbose] > │ let v388 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22713 [verbose] > │ v388 │
00:07:45 #22714 [verbose] > │ #endif │
00:07:45 #22715 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22716 [verbose] > │ let v389 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22717 [verbose] > │ v389 │
00:07:45 #22718 [verbose] > │ #endif │
00:07:45 #22719 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22720 [verbose] > │ let v390 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22721 [verbose] > │ v390 │
00:07:45 #22722 [verbose] > │ #endif │
00:07:45 #22723 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22724 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22725 [verbose] > │ let v391 : Async<US2> option = None │
00:07:45 #22726 [verbose] > │ let mutable _v391 = v391 │
00:07:45 #22727 [verbose] > │ async { │
00:07:45 #22728 [verbose] > │ let! v386 = v386 │
00:07:45 #22729 [verbose] > │ let v392 : US4 = v386 │
00:07:45 #22730 [verbose] > │ let v417 : US2 = │
00:07:45 #22731 [verbose] > │ match v392 with │
00:07:45 #22732 [verbose] > │ | US4_1(v395) -> (* Error *) │
00:07:45 #22733 [verbose] > │ let v396 : string = $"%A{v395}" │
00:07:45 #22734 [verbose] > │ let v397 : string = "System.TimeoutException" │
00:07:45 #22735 [verbose] > │ let v398 : bool = v396.Contains v397 │
00:07:45 #22736 [verbose] > │ if v398 then │
00:07:45 #22737 [verbose] > │ let v399 : US0 = US0_1 │
00:07:45 #22738 [verbose] > │ let v400 : (unit -> string) = closure20() │
00:07:45 #22739 [verbose] > │ let v401 : (unit -> string) = closure21() │
00:07:45 #22740 [verbose] > │ method5(v399, v400, v401) │
00:07:45 #22741 [verbose] > │ US2_1 │
00:07:45 #22742 [verbose] > │ else │
00:07:45 #22743 [verbose] > │ let v403 : string option = None │
00:07:45 #22744 [verbose] > │ let mutable _v403 = v403 │
00:07:45 #22745 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22746 [verbose] > │ let v404 : string = $"%A{v395}" │
00:07:45 #22747 [verbose] > │ v404 │
00:07:45 #22748 [verbose] > │ #endif │
00:07:45 #22749 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22750 [verbose] > │ let v405 : string = $"%A{v395}" │
00:07:45 #22751 [verbose] > │ v405 │
00:07:45 #22752 [verbose] > │ #endif │
00:07:45 #22753 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22754 [verbose] > │ let v406 : string = $"%A{v395}" │
00:07:45 #22755 [verbose] > │ v406 │
00:07:45 #22756 [verbose] > │ #endif │
00:07:45 #22757 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22758 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22759 [verbose] > │ let v407 : string = $"{v395.GetType ()}: {v395.Message}" │
00:07:45 #22760 [verbose] > │ v407 │
00:07:45 #22761 [verbose] > │ #endif │
00:07:45 #22762 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22763 [verbose] > │ let v408 : string = $"%A{v395}" │
00:07:45 #22764 [verbose] > │ v408 │
00:07:45 #22765 [verbose] > │ #endif │
00:07:45 #22766 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:45 #22767 [verbose] > │ FABLE_COMPILER_DART │
00:07:45 #22768 [verbose] > │ let v409 : string = Unchecked.defaultof<string> │
00:07:45 #22769 [verbose] > │ v409 │
00:07:45 #22770 [verbose] > │ #endif │
00:07:45 #22771 [verbose] > │ |> fun x -> _v403 <- Some x │
00:07:45 #22772 [verbose] > │ let v410 : string = _v403.Value │
00:07:45 #22773 [verbose] > │ let v411 : US0 = US0_4 │
00:07:45 #22774 [verbose] > │ let v412 : (unit -> string) = closure22(v410) │
00:07:45 #22775 [verbose] > │ let v413 : (unit -> string) = closure21() │
00:07:45 #22776 [verbose] > │ method5(v411, v412, v413) │
00:07:45 #22777 [verbose] > │ US2_1 │
00:07:45 #22778 [verbose] > │ | US4_0(v393) -> (* Ok *) │
00:07:45 #22779 [verbose] > │ US2_0(v393) │
00:07:45 #22780 [verbose] > │ return v417 │
00:07:45 #22781 [verbose] > │ } │
00:07:45 #22782 [verbose] > │ |> fun x -> _v391 <- Some x │
00:07:45 #22783 [verbose] > │ let v418 : Async<US2> = _v391 |> Option.get │
00:07:45 #22784 [verbose] > │ v418 │
00:07:45 #22785 [verbose] > │ #endif │
00:07:45 #22786 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22787 [verbose] > │ let v419 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22788 [verbose] > │ v419 │
00:07:45 #22789 [verbose] > │ #endif │
00:07:45 #22790 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22791 [verbose] > │ let v420 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:07:45 #22792 [verbose] > │ v420 │
00:07:45 #22793 [verbose] > │ #endif │
00:07:45 #22794 [verbose] > │ |> fun x -> _v387 <- Some x │
00:07:45 #22795 [verbose] > │ let v421 : Async<US2> = _v387.Value │
00:07:45 #22796 [verbose] > │ return! v421 │
00:07:45 #22797 [verbose] > │ } │
00:07:45 #22798 [verbose] > │ |> fun x -> _v332 <- Some x │
00:07:45 #22799 [verbose] > │ let v422 : Async<US2> = _v332 |> Option.get │
00:07:45 #22800 [verbose] > │ v422 │
00:07:45 #22801 [verbose] > │ #endif │
00:07:45 #22802 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22803 [verbose] > │ let v423 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22804 [verbose] > │ v423 │
00:07:45 #22805 [verbose] > │ #endif │
00:07:45 #22806 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22807 [verbose] > │ let v424 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:07:45 #22808 [verbose] > │ v424 │
00:07:45 #22809 [verbose] > │ #endif │
00:07:45 #22810 [verbose] > │ |> fun x -> _v328 <- Some x │
00:07:45 #22811 [verbose] > │ let v425 : Async<US2> = _v328.Value │
00:07:45 #22812 [verbose] > │ v425 │
00:07:45 #22813 [verbose] > │ #endif │
00:07:45 #22814 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22815 [verbose] > │ let v426 : Async<US2> = null |> unbox<Async<US2>> │
00:07:45 #22816 [verbose] > │ v426 │
00:07:45 #22817 [verbose] > │ #endif │
00:07:45 #22818 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22819 [verbose] > │ let v427 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:07:45 #22820 [verbose] > │ v427 │
00:07:45 #22821 [verbose] > │ #endif │
00:07:45 #22822 [verbose] > │ |> fun x -> _v324 <- Some x │
00:07:45 #22823 [verbose] > │ let v428 : Async<US2> = _v324.Value │
00:07:45 #22824 [verbose] > │ let v429 : US2 option = None │
00:07:45 #22825 [verbose] > │ let mutable _v429 = v429 │
00:07:45 #22826 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22827 [verbose] > │ let v430 : US2 = null |> unbox<US2> │
00:07:45 #22828 [verbose] > │ v430 │
00:07:45 #22829 [verbose] > │ #endif │
00:07:45 #22830 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22831 [verbose] > │ let v431 : US2 = null |> unbox<US2> │
00:07:45 #22832 [verbose] > │ v431 │
00:07:45 #22833 [verbose] > │ #endif │
00:07:45 #22834 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22835 [verbose] > │ let v432 : US2 = null |> unbox<US2> │
00:07:45 #22836 [verbose] > │ v432 │
00:07:45 #22837 [verbose] > │ #endif │
00:07:45 #22838 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22839 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22840 [verbose] > │ let v433 : (Async<US2> -> US2) = Async.RunSynchronously │
00:07:45 #22841 [verbose] > │ let v434 : US2 = v433 v428 │
00:07:45 #22842 [verbose] > │ v434 │
00:07:45 #22843 [verbose] > │ #endif │
00:07:45 #22844 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22845 [verbose] > │ let v435 : US2 = null |> unbox<US2> │
00:07:45 #22846 [verbose] > │ v435 │
00:07:45 #22847 [verbose] > │ #endif │
00:07:45 #22848 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:45 #22849 [verbose] > │ let v436 : US2 = Unchecked.defaultof<US2> │
00:07:45 #22850 [verbose] > │ v436 │
00:07:45 #22851 [verbose] > │ #endif │
00:07:45 #22852 [verbose] > │ |> fun x -> _v429 <- Some x │
00:07:45 #22853 [verbose] > │ let v437 : US2 = _v429.Value │
00:07:45 #22854 [verbose] > │ let v475 : bool = │
00:07:45 #22855 [verbose] > │ match v437 with │
00:07:45 #22856 [verbose] > │ | US2_0(v438) -> (* Some *) │
00:07:45 #22857 [verbose] > │ let v439 : bool option = None │
00:07:45 #22858 [verbose] > │ let mutable _v439 = v439 │
00:07:45 #22859 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22860 [verbose] > │ let v440 : bool = null |> unbox<bool> │
00:07:45 #22861 [verbose] > │ v440 │
00:07:45 #22862 [verbose] > │ #endif │
00:07:45 #22863 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22864 [verbose] > │ let v441 : bool = null |> unbox<bool> │
00:07:45 #22865 [verbose] > │ v441 │
00:07:45 #22866 [verbose] > │ #endif │
00:07:45 #22867 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22868 [verbose] > │ let v442 : bool = null |> unbox<bool> │
00:07:45 #22869 [verbose] > │ v442 │
00:07:45 #22870 [verbose] > │ #endif │
00:07:45 #22871 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22872 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22873 [verbose] > │ let v443 : System.Runtime.InteropServices.OSPlatform = │
00:07:45 #22874 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:07:45 #22875 [verbose] > │ let v444 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:07:45 #22876 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:07:45 #22877 [verbose] > │ let v445 : bool = v444 v443 │
00:07:45 #22878 [verbose] > │ v445 │
00:07:45 #22879 [verbose] > │ #endif │
00:07:45 #22880 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22881 [verbose] > │ let v446 : bool = null |> unbox<bool> │
00:07:45 #22882 [verbose] > │ v446 │
00:07:45 #22883 [verbose] > │ #endif │
00:07:45 #22884 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:45 #22885 [verbose] > │ FABLE_COMPILER_DART │
00:07:45 #22886 [verbose] > │ let v447 : bool = Unchecked.defaultof<bool> │
00:07:45 #22887 [verbose] > │ v447 │
00:07:45 #22888 [verbose] > │ #endif │
00:07:45 #22889 [verbose] > │ |> fun x -> _v439 <- Some x │
00:07:45 #22890 [verbose] > │ let v448 : bool = _v439.Value │
00:07:45 #22891 [verbose] > │ let v449 : int64 = │
00:07:45 #22892 [verbose] > │ if v448 then │
00:07:45 #22893 [verbose] > │ 50L │
00:07:45 #22894 [verbose] > │ else │
00:07:45 #22895 [verbose] > │ 0L │
00:07:45 #22896 [verbose] > │ let v450 : bool option = None │
00:07:45 #22897 [verbose] > │ let mutable _v450 = v450 │
00:07:45 #22898 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:45 #22899 [verbose] > │ let v451 : bool = null |> unbox<bool> │
00:07:45 #22900 [verbose] > │ v451 │
00:07:45 #22901 [verbose] > │ #endif │
00:07:45 #22902 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:45 #22903 [verbose] > │ let v452 : bool = null |> unbox<bool> │
00:07:45 #22904 [verbose] > │ v452 │
00:07:45 #22905 [verbose] > │ #endif │
00:07:45 #22906 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:45 #22907 [verbose] > │ let v453 : bool = null |> unbox<bool> │
00:07:45 #22908 [verbose] > │ v453 │
00:07:45 #22909 [verbose] > │ #endif │
00:07:45 #22910 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:45 #22911 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:45 #22912 [verbose] > │ let v454 : System.Runtime.InteropServices.OSPlatform = │
00:07:45 #22913 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:07:45 #22914 [verbose] > │ let v455 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:07:45 #22915 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:07:45 #22916 [verbose] > │ let v456 : bool = v455 v454 │
00:07:45 #22917 [verbose] > │ v456 │
00:07:45 #22918 [verbose] > │ #endif │
00:07:45 #22919 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:45 #22920 [verbose] > │ let v457 : bool = null |> unbox<bool> │
00:07:45 #22921 [verbose] > │ v457 │
00:07:45 #22922 [verbose] > │ #endif │
00:07:45 #22923 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:45 #22924 [verbose] > │ FABLE_COMPILER_DART │
00:07:45 #22925 [verbose] > │ let v458 : bool = Unchecked.defaultof<bool> │
00:07:45 #22926 [verbose] > │ v458 │
00:07:45 #22927 [verbose] > │ #endif │
00:07:45 #22928 [verbose] > │ |> fun x -> _v450 <- Some x │
00:07:45 #22929 [verbose] > │ let v459 : bool = _v450.Value │
00:07:45 #22930 [verbose] > │ let v460 : int64 = │
00:07:45 #22931 [verbose] > │ if v459 then │
00:07:45 #22932 [verbose] > │ 150L │
00:07:45 #22933 [verbose] > │ else │
00:07:45 #22934 [verbose] > │ 0L │
00:07:45 #22935 [verbose] > │ let v461 : string = $"%A{v438}" │
00:07:45 #22936 [verbose] > │ System.Console.WriteLine v461 │
00:07:45 #22937 [verbose] > │ let v462 : string = $"%A{v438}" │
00:07:45 #22938 [verbose] > │ System.Console.WriteLine v462 │
00:07:45 #22939 [verbose] > │ let v463 : bool = v438 >= v449 │
00:07:45 #22940 [verbose] > │ let v465 : bool = │
00:07:45 #22941 [verbose] > │ if v463 then │
00:07:45 #22942 [verbose] > │ true │
00:07:45 #22943 [verbose] > │ else │
00:07:45 #22944 [verbose] > │ method11(v463) │
00:07:45 #22945 [verbose] > │ let v466 : string = $"__expect / actual: %A{v438} / expected: │
00:07:45 #22946 [verbose] > │ %A{v449}" │
00:07:45 #22947 [verbose] > │ let v467 : bool = v465 = false │
00:07:45 #22948 [verbose] > │ if v467 then │
00:07:45 #22949 [verbose] > │ failwith<unit> v466 │
00:07:45 #22950 [verbose] > │ let v468 : string = $"%A{v438}" │
00:07:45 #22951 [verbose] > │ System.Console.WriteLine v468 │
00:07:45 #22952 [verbose] > │ let v469 : bool = v438 <= v460 │
00:07:45 #22953 [verbose] > │ let v471 : bool = │
00:07:45 #22954 [verbose] > │ if v469 then │
00:07:45 #22955 [verbose] > │ true │
00:07:45 #22956 [verbose] > │ else │
00:07:45 #22957 [verbose] > │ method11(v469) │
00:07:45 #22958 [verbose] > │ let v472 : string = $"__expect / actual: %A{v438} / expected: │
00:07:45 #22959 [verbose] > │ %A{v460}" │
00:07:45 #22960 [verbose] > │ let v473 : bool = v471 = false │
00:07:45 #22961 [verbose] > │ if v473 then │
00:07:45 #22962 [verbose] > │ failwith<unit> v472 │
00:07:45 #22963 [verbose] > │ let v474 : string = $"__expect / actual: %A{v438} / expected: │
00:07:45 #22964 [verbose] > │ %A{struct (v449, v460)}" │
00:07:45 #22965 [verbose] > │ true │
00:07:45 #22966 [verbose] > │ | _ -> │
00:07:45 #22967 [verbose] > │ false │
00:07:45 #22968 [verbose] > │ let v476 : string = $"%A{v475}" │
00:07:45 #22969 [verbose] > │ System.Console.WriteLine v476 │
00:07:45 #22970 [verbose] > │ let v478 : bool = │
00:07:45 #22971 [verbose] > │ if v475 then │
00:07:45 #22972 [verbose] > │ true │
00:07:45 #22973 [verbose] > │ else │
00:07:45 #22974 [verbose] > │ method11(v475) │
00:07:45 #22975 [verbose] > │ let v479 : string = $"__expect / actual: %A{v475} / expected: %A{true}" │
00:07:45 #22976 [verbose] > │ let v480 : bool = v478 = false │
00:07:45 #22977 [verbose] > │ if v480 then │
00:07:45 #22978 [verbose] > │ failwith<unit> v479 │
00:07:45 #22979 [verbose] > │ method0() │
00:07:45 #22980 [verbose] > │ │
00:07:45 #22981 [verbose] > │ 00:00:00 #1 [debug] 1 │
00:07:45 #22982 [verbose] > │ 00:00:00 #2 [debug] 2 │
00:07:45 #22983 [verbose] > │ 00:00:00 #3 [debug] 3 │
00:07:45 #22984 [verbose] > │ 00:00:00 #4 [debug] _1 │
00:07:45 #22985 [verbose] > │ 00:00:00 #5 [debug] _2 │
00:07:45 #22986 [verbose] > │ 00:00:00 #6 [debug] 4 │
00:07:45 #22987 [verbose] > │ delete_directory_async / path: test / ex: System.IO.IOException: The process │
00:07:45 #22988 [verbose] > │ cannot access the file 'test.txt' because it is being used by another │
00:07:45 #22989 [verbose] > │ process. / │
00:07:45 #22990 [verbose] > │ delete_directory_async / path: test / ex: System.IO.IOException: The process │
00:07:45 #22991 [verbose] > │ cannot access the file 'test.txt' because it is being used by another │
00:07:45 #22992 [verbose] > │ process. / │
00:07:45 #22993 [verbose] > │ 00:00:02 #7 [debug] _3 │
00:07:45 #22994 [verbose] > │ 00:00:02 #8 [debug] 5 │
00:07:45 #22995 [verbose] > │ 00:00:02 #9 [debug] 6 │
00:07:45 #22996 [verbose] > │ 125L │
00:07:45 #22997 [verbose] > │ 125L │
00:07:45 #22998 [verbose] > │ 125L │
00:07:45 #22999 [verbose] > │ true │
00:07:45 #23000 [verbose] > │ │
00:07:45 #23001 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 #23002 [verbose] >
00:07:45 #23003 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:45 #23004 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:45 #23005 [verbose] > │ ## wait_for_file_access │
00:07:45 #23006 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:45 #23007 [verbose] >
00:07:45 #23008 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:45 #23009 [verbose] > inl wait_for_file_access access path =
00:07:45 #23010 [verbose] > run_target function
00:07:45 #23011 [verbose] > | Fsharp (Native) => fun () =>
00:07:45 #23012 [verbose] > inl file_access, file_share =
00:07:45 #23013 [verbose] > access
00:07:45 #23014 [verbose] > |> optionm'.default_value (AccessReadWrite, ShareRead)
00:07:45 #23015 [verbose] > let rec loop (retry : i64) : _ i64 =
00:07:45 #23016 [verbose] > fun () =>
00:07:45 #23017 [verbose] > try_unit
00:07:45 #23018 [verbose] > fun () =>
00:07:45 #23019 [verbose] > file_stream
00:07:45 #23020 [verbose] > path
00:07:45 #23021 [verbose] > ModeOpen
00:07:45 #23022 [verbose] > file_access
00:07:45 #23023 [verbose] > file_share
00:07:45 #23024 [verbose] > |> use
00:07:45 #23025 [verbose] > |> ignore
00:07:45 #23026 [verbose] > retry |> return
00:07:45 #23027 [verbose] > fun ex =>
00:07:45 #23028 [verbose] > if retry > 0 && retry % 100i64 = 0 then
00:07:45 #23029 [verbose] > inl ex = ex |> sm'.format_exception
00:07:45 #23030 [verbose] > let get_locals () = $'$"path: {!path |>
00:07:45 #23031 [verbose] > !get_file_name} / retry: {!retry} / ex: {!ex} / {!get_locals ()}"' : string
00:07:45 #23032 [verbose] > // trace Debug (fun () ->
00:07:45 #23033 [verbose] > "wait_for_file_access") getLocals
00:07:45 #23034 [verbose] > console.write_line ($'$"wait_for_file_access
00:07:45 #23035 [verbose] > {!get_locals ()}"' : string)
00:07:45 #23036 [verbose] > async.sleep 10i32 |> async.do
00:07:45 #23037 [verbose] > loop (retry + 1) |> async.return_await
00:07:45 #23038 [verbose] > |> async.new_async
00:07:45 #23039 [verbose] > loop 0
00:07:45 #23040 [verbose] > | _ => fun () => null ()
00:07:45 #23041 [verbose] >
00:07:45 #23042 [verbose] > inl wait_for_file_access_read path =
00:07:45 #23043 [verbose] > path
00:07:45 #23044 [verbose] > |> wait_for_file_access (Some (
00:07:45 #23045 [verbose] > AccessRead,
00:07:45 #23046 [verbose] > ShareRead
00:07:45 #23047 [verbose] > ))
00:07:46 #23048 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d1bc159eb0bfd0b55087a9a42ef1b00417b2ffac7dffacbaa6cc52a3c99a9b43\main.spi
00:07:46 #23049 [verbose] >
00:07:46 #23050 [verbose] > ╭─[ 238.91ms - stdout ]────────────────────────────────────────────────────────╮
00:07:46 #23051 [verbose] > │ () │
00:07:46 #23052 [verbose] > │ │
00:07:46 #23053 [verbose] > │ │
00:07:46 #23054 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:46 #23055 [verbose] >
00:07:46 #23056 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:46 #23057 [verbose] > // // test
00:07:46 #23058 [verbose] >
00:07:46 #23059 [verbose] > inl lock_file path =
00:07:46 #23060 [verbose] > fun () =>
00:07:46 #23061 [verbose] > trace Debug (fun () => "_1") get_locals
00:07:46 #23062 [verbose] > inl stream : file_stream' =
00:07:46 #23063 [verbose] > file_stream
00:07:46 #23064 [verbose] > path
00:07:46 #23065 [verbose] > ModeOpen
00:07:46 #23066 [verbose] > AccessReadWrite
00:07:46 #23067 [verbose] > ShareNone
00:07:46 #23068 [verbose] > |> use
00:07:46 #23069 [verbose] > trace Debug (fun () => "_2") get_locals
00:07:46 #23070 [verbose] > async.sleep 2000 |> async.do
00:07:46 #23071 [verbose] > trace Debug (fun () => "_3") get_locals
00:07:46 #23072 [verbose] > ($'!stream.Seek (0L, System.IO.SeekOrigin.Begin)' : i64) |> ignore
00:07:46 #23073 [verbose] > trace Debug (fun () => "_4") get_locals
00:07:46 #23074 [verbose] > $'!stream.WriteByte' 49u8
00:07:46 #23075 [verbose] > trace Debug (fun () => "_5") get_locals
00:07:46 #23076 [verbose] > stream |> $'_.Flush()'
00:07:46 #23077 [verbose] > trace Debug (fun () => "_6") get_locals
00:07:46 #23078 [verbose] > |> async.new_async
00:07:46 #23079 [verbose] >
00:07:46 #23080 [verbose] > inl temp_dir, disposable = create_temp_directory ()
00:07:46 #23081 [verbose] > disposable |> use |> ignore
00:07:46 #23082 [verbose] > inl path = temp_dir </> "test.txt"
00:07:46 #23083 [verbose] >
00:07:46 #23084 [verbose] > fun () =>
00:07:46 #23085 [verbose] > trace Debug (fun () => "1") get_locals
00:07:46 #23086 [verbose] > "0" |> write_all_text_async path |> async.do
00:07:46 #23087 [verbose] > trace Debug (fun () => "2") get_locals
00:07:46 #23088 [verbose] > inl child = path |> lock_file |> async.start_child |> async.let'
00:07:46 #23089 [verbose] > trace Debug (fun () => "3") get_locals
00:07:46 #23090 [verbose] > async.sleep 1 |> async.do
00:07:46 #23091 [verbose] > trace Debug (fun () => "4") get_locals
00:07:46 #23092 [verbose] > inl retries = path |> wait_for_file_access None |> async.let'
00:07:46 #23093 [verbose] > trace Debug (fun () => "5") get_locals
00:07:46 #23094 [verbose] > inl text = path |> read_all_text_async |> async.let'
00:07:46 #23095 [verbose] > trace Debug (fun () => "6") get_locals
00:07:46 #23096 [verbose] > child |> async.do
00:07:46 #23097 [verbose] > trace Debug (fun () => "7") get_locals
00:07:46 #23098 [verbose] > (retries, text) |> return
00:07:46 #23099 [verbose] > |> async.new_async_unit
00:07:46 #23100 [verbose] > |> async.run_with_timeout 3000
00:07:46 #23101 [verbose] > |> function
00:07:46 #23102 [verbose] > | Some ((retries : i64), text) =>
00:07:46 #23103 [verbose] > retries
00:07:46 #23104 [verbose] > |> _assert_between
00:07:46 #23105 [verbose] > (if runtime.is_windows () then 50 else 100)
00:07:46 #23106 [verbose] > (if runtime.is_windows () then 150 else 200)
00:07:46 #23107 [verbose] >
00:07:46 #23108 [verbose] > text |> _assert_eq (join "1")
00:07:46 #23109 [verbose] >
00:07:46 #23110 [verbose] > true
00:07:46 #23111 [verbose] > | _ => false
00:07:46 #23112 [verbose] > |> _assert_eq true
00:07:46 #23113 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\24287f46df74d6d492431fda21ab3b4b9d027ba3efba6ef4ed9c6ec30ab1d0f8\main.spi
00:07:49 #23114 [verbose] >
00:07:49 #23115 [verbose] > ╭─[ 3.02s - stdout ]───────────────────────────────────────────────────────────╮
00:07:49 #23116 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:07:49 #23117 [verbose] > │ string │
00:07:49 #23118 [verbose] > │ module State = let mutable trace_state = None │
00:07:49 #23119 [verbose] > │ type [<Struct>] US0 = │
00:07:49 #23120 [verbose] > │ | US0_0 │
00:07:49 #23121 [verbose] > │ | US0_1 │
00:07:49 #23122 [verbose] > │ | US0_2 │
00:07:49 #23123 [verbose] > │ | US0_3 │
00:07:49 #23124 [verbose] > │ | US0_4 │
00:07:49 #23125 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:07:49 #23126 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:07:49 #23127 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:07:49 #23128 [verbose] > │ and [<Struct>] US1 = │
00:07:49 #23129 [verbose] > │ | US1_0 of f0_0 : int64 │
00:07:49 #23130 [verbose] > │ | US1_1 │
00:07:49 #23131 [verbose] > │ and [<Struct>] US2 = │
00:07:49 #23132 [verbose] > │ | US2_0 of f0_0 : int64 │
00:07:49 #23133 [verbose] > │ | US2_1 │
00:07:49 #23134 [verbose] > │ and [<Struct>] US3 = │
00:07:49 #23135 [verbose] > │ | US3_0 of f0_0 : int64 * f0_1 : string │
00:07:49 #23136 [verbose] > │ | US3_1 │
00:07:49 #23137 [verbose] > │ and [<Struct>] US4 = │
00:07:49 #23138 [verbose] > │ | US4_0 of f0_0 : int64 * f0_1 : string │
00:07:49 #23139 [verbose] > │ | US4_1 of f1_0 : exn │
00:07:49 #23140 [verbose] > │ and [<Struct>] US5 = │
00:07:49 #23141 [verbose] > │ | US5_0 of f0_0 : int64 * f0_1 : string │
00:07:49 #23142 [verbose] > │ | US5_1 of f1_0 : exn │
00:07:49 #23143 [verbose] > │ let rec closure0 () () : string = │
00:07:49 #23144 [verbose] > │ let v0 : string option = None │
00:07:49 #23145 [verbose] > │ let mutable _v0 = v0 │
00:07:49 #23146 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23147 [verbose] > │ let v1 : string = null |> unbox<string> │
00:07:49 #23148 [verbose] > │ v1 │
00:07:49 #23149 [verbose] > │ #endif │
00:07:49 #23150 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23151 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:49 #23152 [verbose] > │ v2 │
00:07:49 #23153 [verbose] > │ #endif │
00:07:49 #23154 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23155 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:49 #23156 [verbose] > │ v3 │
00:07:49 #23157 [verbose] > │ #endif │
00:07:49 #23158 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23159 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23160 [verbose] > │ let v4 : string = │
00:07:49 #23161 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:49 #23162 [verbose] > │ v4 │
00:07:49 #23163 [verbose] > │ #endif │
00:07:49 #23164 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23165 [verbose] > │ let v5 : string = null |> unbox<string> │
00:07:49 #23166 [verbose] > │ v5 │
00:07:49 #23167 [verbose] > │ #endif │
00:07:49 #23168 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23169 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:07:49 #23170 [verbose] > │ v6 │
00:07:49 #23171 [verbose] > │ #endif │
00:07:49 #23172 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:49 #23173 [verbose] > │ let v7 : string = _v0.Value │
00:07:49 #23174 [verbose] > │ v7 │
00:07:49 #23175 [verbose] > │ and method1 (v0 : string) : string = │
00:07:49 #23176 [verbose] > │ v0 │
00:07:49 #23177 [verbose] > │ and closure2 () () : string = │
00:07:49 #23178 [verbose] > │ let v0 : string = "" │
00:07:49 #23179 [verbose] > │ v0 │
00:07:49 #23180 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:07:49 #23181 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:07:49 #23182 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:07:49 #23183 [verbose] > │ v3 │
00:07:49 #23184 [verbose] > │ and closure5 () (v0 : string) : string = │
00:07:49 #23185 [verbose] > │ let v1 : string option = None │
00:07:49 #23186 [verbose] > │ let mutable _v1 = v1 │
00:07:49 #23187 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23188 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:49 #23189 [verbose] > │ v2 │
00:07:49 #23190 [verbose] > │ #endif │
00:07:49 #23191 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23192 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:49 #23193 [verbose] > │ v3 │
00:07:49 #23194 [verbose] > │ #endif │
00:07:49 #23195 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23196 [verbose] > │ let v4 : string = null |> unbox<string> │
00:07:49 #23197 [verbose] > │ v4 │
00:07:49 #23198 [verbose] > │ #endif │
00:07:49 #23199 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23200 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23201 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:07:49 #23202 [verbose] > │ let v6 : string = v5 v0 │
00:07:49 #23203 [verbose] > │ v6 │
00:07:49 #23204 [verbose] > │ #endif │
00:07:49 #23205 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23206 [verbose] > │ let v7 : string = null |> unbox<string> │
00:07:49 #23207 [verbose] > │ v7 │
00:07:49 #23208 [verbose] > │ #endif │
00:07:49 #23209 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23210 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:07:49 #23211 [verbose] > │ v8 │
00:07:49 #23212 [verbose] > │ #endif │
00:07:49 #23213 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:49 #23214 [verbose] > │ let v9 : string = _v1.Value │
00:07:49 #23215 [verbose] > │ v9 │
00:07:49 #23216 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:07:49 #23217 [verbose] > │ let v2 : (string -> string) = closure5() │
00:07:49 #23218 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:07:49 #23219 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:07:49 #23220 [verbose] > │ v4 │
00:07:49 #23221 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:07:49 #23222 [verbose] > │ method3(v0, v1) │
00:07:49 #23223 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:07:49 #23224 [verbose] > │ let v2 : Async<int64> option = None │
00:07:49 #23225 [verbose] > │ let mutable _v2 = v2 │
00:07:49 #23226 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23227 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23228 [verbose] > │ v3 │
00:07:49 #23229 [verbose] > │ #endif │
00:07:49 #23230 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23231 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23232 [verbose] > │ v4 │
00:07:49 #23233 [verbose] > │ #endif │
00:07:49 #23234 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23235 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23236 [verbose] > │ v5 │
00:07:49 #23237 [verbose] > │ #endif │
00:07:49 #23238 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23239 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23240 [verbose] > │ let v6 : Async<int64> option = None │
00:07:49 #23241 [verbose] > │ let mutable _v6 = v6 │
00:07:49 #23242 [verbose] > │ async { │
00:07:49 #23243 [verbose] > │ try │
00:07:49 #23244 [verbose] > │ let v7 : unit option = None │
00:07:49 #23245 [verbose] > │ let mutable _v7 = v7 │
00:07:49 #23246 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23247 [verbose] > │ null |> unbox<unit> │
00:07:49 #23248 [verbose] > │ () │
00:07:49 #23249 [verbose] > │ #endif │
00:07:49 #23250 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23251 [verbose] > │ null |> unbox<unit> │
00:07:49 #23252 [verbose] > │ () │
00:07:49 #23253 [verbose] > │ #endif │
00:07:49 #23254 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23255 [verbose] > │ null |> unbox<unit> │
00:07:49 #23256 [verbose] > │ () │
00:07:49 #23257 [verbose] > │ #endif │
00:07:49 #23258 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23259 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23260 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:07:49 #23261 [verbose] > │ () │
00:07:49 #23262 [verbose] > │ #endif │
00:07:49 #23263 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23264 [verbose] > │ null |> unbox<unit> │
00:07:49 #23265 [verbose] > │ () │
00:07:49 #23266 [verbose] > │ #endif │
00:07:49 #23267 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23268 [verbose] > │ Unchecked.defaultof<unit> │
00:07:49 #23269 [verbose] > │ () │
00:07:49 #23270 [verbose] > │ #endif │
00:07:49 #23271 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:49 #23272 [verbose] > │ _v7.Value │
00:07:49 #23273 [verbose] > │ return v1 │
00:07:49 #23274 [verbose] > │ with ex -> │
00:07:49 #23275 [verbose] > │ let v8 : exn = ex │
00:07:49 #23276 [verbose] > │ let v9 : int64 = v1 % 100L │
00:07:49 #23277 [verbose] > │ let v10 : bool = v9 = 0L │
00:07:49 #23278 [verbose] > │ if v10 then │
00:07:49 #23279 [verbose] > │ let v11 : string option = None │
00:07:49 #23280 [verbose] > │ let mutable _v11 = v11 │
00:07:49 #23281 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23282 [verbose] > │ let v12 : string = $"%A{v8}" │
00:07:49 #23283 [verbose] > │ v12 │
00:07:49 #23284 [verbose] > │ #endif │
00:07:49 #23285 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23286 [verbose] > │ let v13 : string = $"%A{v8}" │
00:07:49 #23287 [verbose] > │ v13 │
00:07:49 #23288 [verbose] > │ #endif │
00:07:49 #23289 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23290 [verbose] > │ let v14 : string = $"%A{v8}" │
00:07:49 #23291 [verbose] > │ v14 │
00:07:49 #23292 [verbose] > │ #endif │
00:07:49 #23293 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23294 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23295 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:07:49 #23296 [verbose] > │ v15 │
00:07:49 #23297 [verbose] > │ #endif │
00:07:49 #23298 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23299 [verbose] > │ let v16 : string = $"%A{v8}" │
00:07:49 #23300 [verbose] > │ v16 │
00:07:49 #23301 [verbose] > │ #endif │
00:07:49 #23302 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:49 #23303 [verbose] > │ FABLE_COMPILER_DART │
00:07:49 #23304 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:07:49 #23305 [verbose] > │ v17 │
00:07:49 #23306 [verbose] > │ #endif │
00:07:49 #23307 [verbose] > │ |> fun x -> _v11 <- Some x │
00:07:49 #23308 [verbose] > │ let v18 : string = _v11.Value │
00:07:49 #23309 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:07:49 #23310 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:07:49 #23311 [verbose] > │ System.Console.WriteLine v20 │
00:07:49 #23312 [verbose] > │ () │
00:07:49 #23313 [verbose] > │ let v21 : Async<unit> option = None │
00:07:49 #23314 [verbose] > │ let mutable _v21 = v21 │
00:07:49 #23315 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23316 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23317 [verbose] > │ v22 │
00:07:49 #23318 [verbose] > │ #endif │
00:07:49 #23319 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23320 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23321 [verbose] > │ v23 │
00:07:49 #23322 [verbose] > │ #endif │
00:07:49 #23323 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23324 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23325 [verbose] > │ v24 │
00:07:49 #23326 [verbose] > │ #endif │
00:07:49 #23327 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23328 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23329 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:07:49 #23330 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:07:49 #23331 [verbose] > │ v26 │
00:07:49 #23332 [verbose] > │ #endif │
00:07:49 #23333 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23334 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23335 [verbose] > │ v27 │
00:07:49 #23336 [verbose] > │ #endif │
00:07:49 #23337 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23338 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:49 #23339 [verbose] > │ v28 │
00:07:49 #23340 [verbose] > │ #endif │
00:07:49 #23341 [verbose] > │ |> fun x -> _v21 <- Some x │
00:07:49 #23342 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:07:49 #23343 [verbose] > │ do! v29 │
00:07:49 #23344 [verbose] > │ let v30 : int64 = v1 + 1L │
00:07:49 #23345 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:07:49 #23346 [verbose] > │ return! v31 │
00:07:49 #23347 [verbose] > │ (* │
00:07:49 #23348 [verbose] > │ let v32 : int64 = *) │
00:07:49 #23349 [verbose] > │ } │
00:07:49 #23350 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:49 #23351 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:07:49 #23352 [verbose] > │ v33 │
00:07:49 #23353 [verbose] > │ #endif │
00:07:49 #23354 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23355 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23356 [verbose] > │ v34 │
00:07:49 #23357 [verbose] > │ #endif │
00:07:49 #23358 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23359 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:49 #23360 [verbose] > │ v35 │
00:07:49 #23361 [verbose] > │ #endif │
00:07:49 #23362 [verbose] > │ |> fun x -> _v2 <- Some x │
00:07:49 #23363 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:07:49 #23364 [verbose] > │ v36 │
00:07:49 #23365 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:07:49 #23366 [verbose] > │ let v1 : Async<int64> option = None │
00:07:49 #23367 [verbose] > │ let mutable _v1 = v1 │
00:07:49 #23368 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23369 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23370 [verbose] > │ v2 │
00:07:49 #23371 [verbose] > │ #endif │
00:07:49 #23372 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23373 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23374 [verbose] > │ v3 │
00:07:49 #23375 [verbose] > │ #endif │
00:07:49 #23376 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23377 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23378 [verbose] > │ v4 │
00:07:49 #23379 [verbose] > │ #endif │
00:07:49 #23380 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23381 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23382 [verbose] > │ let v5 : int64 = 0L │
00:07:49 #23383 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:07:49 #23384 [verbose] > │ v6 │
00:07:49 #23385 [verbose] > │ #endif │
00:07:49 #23386 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23387 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23388 [verbose] > │ v7 │
00:07:49 #23389 [verbose] > │ #endif │
00:07:49 #23390 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23391 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:49 #23392 [verbose] > │ v8 │
00:07:49 #23393 [verbose] > │ #endif │
00:07:49 #23394 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:49 #23395 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:07:49 #23396 [verbose] > │ let v10 : Async<unit> option = None │
00:07:49 #23397 [verbose] > │ let mutable _v10 = v10 │
00:07:49 #23398 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23399 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23400 [verbose] > │ v11 │
00:07:49 #23401 [verbose] > │ #endif │
00:07:49 #23402 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23403 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23404 [verbose] > │ v12 │
00:07:49 #23405 [verbose] > │ #endif │
00:07:49 #23406 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23407 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23408 [verbose] > │ v13 │
00:07:49 #23409 [verbose] > │ #endif │
00:07:49 #23410 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23411 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23412 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:07:49 #23413 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:07:49 #23414 [verbose] > │ v15 │
00:07:49 #23415 [verbose] > │ #endif │
00:07:49 #23416 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23417 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23418 [verbose] > │ v16 │
00:07:49 #23419 [verbose] > │ #endif │
00:07:49 #23420 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23421 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:49 #23422 [verbose] > │ v17 │
00:07:49 #23423 [verbose] > │ #endif │
00:07:49 #23424 [verbose] > │ |> fun x -> _v10 <- Some x │
00:07:49 #23425 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:07:49 #23426 [verbose] > │ let v19 : unit option = None │
00:07:49 #23427 [verbose] > │ let mutable _v19 = v19 │
00:07:49 #23428 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23429 [verbose] > │ null |> unbox<unit> │
00:07:49 #23430 [verbose] > │ () │
00:07:49 #23431 [verbose] > │ #endif │
00:07:49 #23432 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23433 [verbose] > │ null |> unbox<unit> │
00:07:49 #23434 [verbose] > │ () │
00:07:49 #23435 [verbose] > │ #endif │
00:07:49 #23436 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23437 [verbose] > │ null |> unbox<unit> │
00:07:49 #23438 [verbose] > │ () │
00:07:49 #23439 [verbose] > │ #endif │
00:07:49 #23440 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23441 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23442 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:07:49 #23443 [verbose] > │ v20 v18 │
00:07:49 #23444 [verbose] > │ () │
00:07:49 #23445 [verbose] > │ #endif │
00:07:49 #23446 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23447 [verbose] > │ null |> unbox<unit> │
00:07:49 #23448 [verbose] > │ () │
00:07:49 #23449 [verbose] > │ #endif │
00:07:49 #23450 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23451 [verbose] > │ Unchecked.defaultof<unit> │
00:07:49 #23452 [verbose] > │ () │
00:07:49 #23453 [verbose] > │ #endif │
00:07:49 #23454 [verbose] > │ |> fun x -> _v19 <- Some x │
00:07:49 #23455 [verbose] > │ _v19.Value │
00:07:49 #23456 [verbose] > │ () │
00:07:49 #23457 [verbose] > │ and method4 () : string = │
00:07:49 #23458 [verbose] > │ let v0 : string = "test.txt" │
00:07:49 #23459 [verbose] > │ v0 │
00:07:49 #23460 [verbose] > │ and closure6 () () : string = │
00:07:49 #23461 [verbose] > │ let v0 : string = "1" │
00:07:49 #23462 [verbose] > │ v0 │
00:07:49 #23463 [verbose] > │ and method6 (v0 : int64 option) : int64 option = │
00:07:49 #23464 [verbose] > │ v0 │
00:07:49 #23465 [verbose] > │ and method7 (v0 : int64 option) : int64 option = │
00:07:49 #23466 [verbose] > │ v0 │
00:07:49 #23467 [verbose] > │ and closure7 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:07:49 #23468 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:07:49 #23469 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:07:49 #23470 [verbose] > │ let v2 : US0 = US0_0 │
00:07:49 #23471 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:07:49 #23472 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:07:49 #23473 [verbose] > │ let v5 : int64 option option = None │
00:07:49 #23474 [verbose] > │ let mutable _v5 = v5 │
00:07:49 #23475 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:07:49 #23476 [verbose] > │ let v6 : string option = None │
00:07:49 #23477 [verbose] > │ let mutable _v6 = v6 │
00:07:49 #23478 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23479 [verbose] > │ let v7 : string = null |> unbox<string> │
00:07:49 #23480 [verbose] > │ v7 │
00:07:49 #23481 [verbose] > │ #endif │
00:07:49 #23482 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23483 [verbose] > │ let v8 : string = null |> unbox<string> │
00:07:49 #23484 [verbose] > │ v8 │
00:07:49 #23485 [verbose] > │ #endif │
00:07:49 #23486 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23487 [verbose] > │ let v9 : string = null |> unbox<string> │
00:07:49 #23488 [verbose] > │ v9 │
00:07:49 #23489 [verbose] > │ #endif │
00:07:49 #23490 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23491 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23492 [verbose] > │ let v10 : string = │
00:07:49 #23493 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:49 #23494 [verbose] > │ v10 │
00:07:49 #23495 [verbose] > │ #endif │
00:07:49 #23496 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23497 [verbose] > │ let v11 : string = null |> unbox<string> │
00:07:49 #23498 [verbose] > │ v11 │
00:07:49 #23499 [verbose] > │ #endif │
00:07:49 #23500 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23501 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:07:49 #23502 [verbose] > │ v12 │
00:07:49 #23503 [verbose] > │ #endif │
00:07:49 #23504 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:49 #23505 [verbose] > │ let v13 : string = _v6.Value │
00:07:49 #23506 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:07:49 #23507 [verbose] > │ let v16 : bool = v15 <> true │
00:07:49 #23508 [verbose] > │ let v22 : US1 = │
00:07:49 #23509 [verbose] > │ if v16 then │
00:07:49 #23510 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:07:49 #23511 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:07:49 #23512 [verbose] > │ let v19 : int64 = v18 v17 │
00:07:49 #23513 [verbose] > │ US1_0(v19) │
00:07:49 #23514 [verbose] > │ else │
00:07:49 #23515 [verbose] > │ US1_1 │
00:07:49 #23516 [verbose] > │ let v27 : int64 option = │
00:07:49 #23517 [verbose] > │ match v22 with │
00:07:49 #23518 [verbose] > │ | US1_1 -> (* None *) │
00:07:49 #23519 [verbose] > │ let v25 : int64 option = None │
00:07:49 #23520 [verbose] > │ v25 │
00:07:49 #23521 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:07:49 #23522 [verbose] > │ let v24 : int64 option = Some v23 │
00:07:49 #23523 [verbose] > │ v24 │
00:07:49 #23524 [verbose] > │ let v28 : int64 option = method6(v27) │
00:07:49 #23525 [verbose] > │ v28 │
00:07:49 #23526 [verbose] > │ #else │
00:07:49 #23527 [verbose] > │ let v29 : int64 option = None │
00:07:49 #23528 [verbose] > │ let v30 : int64 option = method7(v29) │
00:07:49 #23529 [verbose] > │ v30 │
00:07:49 #23530 [verbose] > │ #endif │
00:07:49 #23531 [verbose] > │ |> fun x -> _v5 <- Some x │
00:07:49 #23532 [verbose] > │ let v31 : int64 option = _v5.Value │
00:07:49 #23533 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:07:49 #23534 [verbose] > │ and closure9 () (v0 : int64) : US2 = │
00:07:49 #23535 [verbose] > │ US2_0(v0) │
00:07:49 #23536 [verbose] > │ and method8 () : (int64 -> US2) = │
00:07:49 #23537 [verbose] > │ closure9() │
00:07:49 #23538 [verbose] > │ and method9 () : string = │
00:07:49 #23539 [verbose] > │ let v0 : string = "" │
00:07:49 #23540 [verbose] > │ v0 │
00:07:49 #23541 [verbose] > │ and closure8 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:07:49 #23542 [verbose] > │ string = │
00:07:49 #23543 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:07:49 #23544 [verbose] > │ closure7() │
00:07:49 #23545 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:49 #23546 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:07:49 #23547 [verbose] > │ option) = State.trace_state.Value │
00:07:49 #23548 [verbose] > │ let v9 : string option = None │
00:07:49 #23549 [verbose] > │ let mutable _v9 = v9 │
00:07:49 #23550 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23551 [verbose] > │ let v10 : (int64 -> US2) = method8() │
00:07:49 #23552 [verbose] > │ let v11 : US2 = US2_1 │
00:07:49 #23553 [verbose] > │ let v12 : US2 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:07:49 #23554 [verbose] > │ let v30 : System.DateTime = │
00:07:49 #23555 [verbose] > │ match v12 with │
00:07:49 #23556 [verbose] > │ | US2_1 -> (* None *) │
00:07:49 #23557 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:07:49 #23558 [verbose] > │ v28 │
00:07:49 #23559 [verbose] > │ | US2_0(v13) -> (* Some *) │
00:07:49 #23560 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:07:49 #23561 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:07:49 #23562 [verbose] > │ let v16 : int64 = v15 v14 │
00:07:49 #23563 [verbose] > │ let v17 : int64 = v16 - v13 │
00:07:49 #23564 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:07:49 #23565 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:07:49 #23566 [verbose] > │ let v20 : int32 = v19 v18 │
00:07:49 #23567 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:07:49 #23568 [verbose] > │ let v22 : int32 = v21 v18 │
00:07:49 #23569 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:07:49 #23570 [verbose] > │ let v24 : int32 = v23 v18 │
00:07:49 #23571 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:07:49 #23572 [verbose] > │ let v26 : int32 = v25 v18 │
00:07:49 #23573 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:07:49 #23574 [verbose] > │ v24, v26) │
00:07:49 #23575 [verbose] > │ v27 │
00:07:49 #23576 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:07:49 #23577 [verbose] > │ let v32 : string = v30.ToString v31 │
00:07:49 #23578 [verbose] > │ v32 │
00:07:49 #23579 [verbose] > │ #endif │
00:07:49 #23580 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23581 [verbose] > │ let v33 : string = method9() │
00:07:49 #23582 [verbose] > │ v33 │
00:07:49 #23583 [verbose] > │ #endif │
00:07:49 #23584 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23585 [verbose] > │ let v34 : string = method9() │
00:07:49 #23586 [verbose] > │ v34 │
00:07:49 #23587 [verbose] > │ #endif │
00:07:49 #23588 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23589 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23590 [verbose] > │ let v35 : (int64 -> US2) = method8() │
00:07:49 #23591 [verbose] > │ let v36 : US2 = US2_1 │
00:07:49 #23592 [verbose] > │ let v37 : US2 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:07:49 #23593 [verbose] > │ let v55 : System.DateTime = │
00:07:49 #23594 [verbose] > │ match v37 with │
00:07:49 #23595 [verbose] > │ | US2_1 -> (* None *) │
00:07:49 #23596 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:07:49 #23597 [verbose] > │ v53 │
00:07:49 #23598 [verbose] > │ | US2_0(v38) -> (* Some *) │
00:07:49 #23599 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:07:49 #23600 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:07:49 #23601 [verbose] > │ let v41 : int64 = v40 v39 │
00:07:49 #23602 [verbose] > │ let v42 : int64 = v41 - v38 │
00:07:49 #23603 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:07:49 #23604 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:07:49 #23605 [verbose] > │ let v45 : int32 = v44 v43 │
00:07:49 #23606 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:07:49 #23607 [verbose] > │ let v47 : int32 = v46 v43 │
00:07:49 #23608 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:07:49 #23609 [verbose] > │ let v49 : int32 = v48 v43 │
00:07:49 #23610 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:07:49 #23611 [verbose] > │ let v51 : int32 = v50 v43 │
00:07:49 #23612 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:07:49 #23613 [verbose] > │ v49, v51) │
00:07:49 #23614 [verbose] > │ v52 │
00:07:49 #23615 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:07:49 #23616 [verbose] > │ let v57 : string = v55.ToString v56 │
00:07:49 #23617 [verbose] > │ v57 │
00:07:49 #23618 [verbose] > │ #endif │
00:07:49 #23619 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23620 [verbose] > │ let v58 : string = method9() │
00:07:49 #23621 [verbose] > │ v58 │
00:07:49 #23622 [verbose] > │ #endif │
00:07:49 #23623 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23624 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:07:49 #23625 [verbose] > │ v59 │
00:07:49 #23626 [verbose] > │ #endif │
00:07:49 #23627 [verbose] > │ |> fun x -> _v9 <- Some x │
00:07:49 #23628 [verbose] > │ let v60 : string = _v9.Value │
00:07:49 #23629 [verbose] > │ let v61 : int64 = v4.l0 │
00:07:49 #23630 [verbose] > │ let v71 : string = │
00:07:49 #23631 [verbose] > │ match v0 with │
00:07:49 #23632 [verbose] > │ | US0_4 -> (* Critical *) │
00:07:49 #23633 [verbose] > │ let v66 : string = "Critical" │
00:07:49 #23634 [verbose] > │ v66 │
00:07:49 #23635 [verbose] > │ | US0_1 -> (* Debug *) │
00:07:49 #23636 [verbose] > │ let v63 : string = "Debug" │
00:07:49 #23637 [verbose] > │ v63 │
00:07:49 #23638 [verbose] > │ | US0_2 -> (* Info *) │
00:07:49 #23639 [verbose] > │ let v64 : string = "Info" │
00:07:49 #23640 [verbose] > │ v64 │
00:07:49 #23641 [verbose] > │ | US0_0 -> (* Verbose *) │
00:07:49 #23642 [verbose] > │ let v62 : string = "Verbose" │
00:07:49 #23643 [verbose] > │ v62 │
00:07:49 #23644 [verbose] > │ | US0_3 -> (* Warning *) │
00:07:49 #23645 [verbose] > │ let v65 : string = "Warning" │
00:07:49 #23646 [verbose] > │ v65 │
00:07:49 #23647 [verbose] > │ let v72 : string = v71.ToLower () │
00:07:49 #23648 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:07:49 #23649 [verbose] > │ let v74 : (char []) = [||] │
00:07:49 #23650 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:07:49 #23651 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:07:49 #23652 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:07:49 #23653 [verbose] > │ v77 │
00:07:49 #23654 [verbose] > │ and method5 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:07:49 #23655 [verbose] > │ = │
00:07:49 #23656 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:07:49 #23657 [verbose] > │ closure7() │
00:07:49 #23658 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:49 #23659 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:07:49 #23660 [verbose] > │ option) = State.trace_state.Value │
00:07:49 #23661 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:49 #23662 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:07:49 #23663 [verbose] > │ option) = State.trace_state.Value │
00:07:49 #23664 [verbose] > │ let v14 : US0 = v12.l0 │
00:07:49 #23665 [verbose] > │ let v15 : bool = v11.l0 │
00:07:49 #23666 [verbose] > │ let v17 : bool = │
00:07:49 #23667 [verbose] > │ if v15 then │
00:07:49 #23668 [verbose] > │ let v16 : bool = v0 >= v14 │
00:07:49 #23669 [verbose] > │ v16 │
00:07:49 #23670 [verbose] > │ else │
00:07:49 #23671 [verbose] > │ false │
00:07:49 #23672 [verbose] > │ if v17 then │
00:07:49 #23673 [verbose] > │ let v18 : int64 = v4.l0 │
00:07:49 #23674 [verbose] > │ let v19 : int64 = v18 + 1L │
00:07:49 #23675 [verbose] > │ v4.l0 <- v19 │
00:07:49 #23676 [verbose] > │ let v20 : (unit -> string) = closure8(v0, v1, v2) │
00:07:49 #23677 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:07:49 #23678 [verbose] > │ let v22 : unit option = None │
00:07:49 #23679 [verbose] > │ let mutable _v22 = v22 │
00:07:49 #23680 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23681 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:07:49 #23682 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:07:49 #23683 [verbose] > │ () │
00:07:49 #23684 [verbose] > │ #endif │
00:07:49 #23685 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23686 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:07:49 #23687 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:07:49 #23688 [verbose] > │ () │
00:07:49 #23689 [verbose] > │ #endif │
00:07:49 #23690 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23691 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:07:49 #23692 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:07:49 #23693 [verbose] > │ () │
00:07:49 #23694 [verbose] > │ #endif │
00:07:49 #23695 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23696 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23697 [verbose] > │ System.Console.WriteLine v21 │
00:07:49 #23698 [verbose] > │ () │
00:07:49 #23699 [verbose] > │ #endif │
00:07:49 #23700 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23701 [verbose] > │ System.Console.WriteLine v21 │
00:07:49 #23702 [verbose] > │ () │
00:07:49 #23703 [verbose] > │ #endif │
00:07:49 #23704 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:49 #23705 [verbose] > │ FABLE_COMPILER_DART │
00:07:49 #23706 [verbose] > │ Unchecked.defaultof<unit> │
00:07:49 #23707 [verbose] > │ () │
00:07:49 #23708 [verbose] > │ #endif │
00:07:49 #23709 [verbose] > │ |> fun x -> _v22 <- Some x │
00:07:49 #23710 [verbose] > │ _v22.Value │
00:07:49 #23711 [verbose] > │ () │
00:07:49 #23712 [verbose] > │ and closure10 () () : string = │
00:07:49 #23713 [verbose] > │ let v0 : string = "2" │
00:07:49 #23714 [verbose] > │ v0 │
00:07:49 #23715 [verbose] > │ and closure11 () () : string = │
00:07:49 #23716 [verbose] > │ let v0 : string = "_1" │
00:07:49 #23717 [verbose] > │ v0 │
00:07:49 #23718 [verbose] > │ and closure12 () () : string = │
00:07:49 #23719 [verbose] > │ let v0 : string = "_2" │
00:07:49 #23720 [verbose] > │ v0 │
00:07:49 #23721 [verbose] > │ and closure13 () () : string = │
00:07:49 #23722 [verbose] > │ let v0 : string = "_3" │
00:07:49 #23723 [verbose] > │ v0 │
00:07:49 #23724 [verbose] > │ and closure14 () () : string = │
00:07:49 #23725 [verbose] > │ let v0 : string = "_4" │
00:07:49 #23726 [verbose] > │ v0 │
00:07:49 #23727 [verbose] > │ and closure15 () () : string = │
00:07:49 #23728 [verbose] > │ let v0 : string = "_5" │
00:07:49 #23729 [verbose] > │ v0 │
00:07:49 #23730 [verbose] > │ and closure16 () () : string = │
00:07:49 #23731 [verbose] > │ let v0 : string = "_6" │
00:07:49 #23732 [verbose] > │ v0 │
00:07:49 #23733 [verbose] > │ and closure17 () () : string = │
00:07:49 #23734 [verbose] > │ let v0 : string = "3" │
00:07:49 #23735 [verbose] > │ v0 │
00:07:49 #23736 [verbose] > │ and closure18 () () : string = │
00:07:49 #23737 [verbose] > │ let v0 : string = "4" │
00:07:49 #23738 [verbose] > │ v0 │
00:07:49 #23739 [verbose] > │ and method11 (v0 : string, v1 : int64, v2 : string) : string = │
00:07:49 #23740 [verbose] > │ let v3 : (string -> string) = closure5() │
00:07:49 #23741 [verbose] > │ let v4 : (unit -> string) = closure2() │
00:07:49 #23742 [verbose] > │ let v5 : string = $"path: {v0 |> v3} / retry: {v1} / ex: {v2} / {v4 ()}" │
00:07:49 #23743 [verbose] > │ v5 │
00:07:49 #23744 [verbose] > │ and closure19 (v0 : string, v1 : int64, v2 : string) () : string = │
00:07:49 #23745 [verbose] > │ method11(v0, v1, v2) │
00:07:49 #23746 [verbose] > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:07:49 #23747 [verbose] > │ let v2 : Async<int64> option = None │
00:07:49 #23748 [verbose] > │ let mutable _v2 = v2 │
00:07:49 #23749 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23750 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23751 [verbose] > │ v3 │
00:07:49 #23752 [verbose] > │ #endif │
00:07:49 #23753 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23754 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23755 [verbose] > │ v4 │
00:07:49 #23756 [verbose] > │ #endif │
00:07:49 #23757 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23758 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23759 [verbose] > │ v5 │
00:07:49 #23760 [verbose] > │ #endif │
00:07:49 #23761 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23762 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23763 [verbose] > │ let v6 : Async<int64> option = None │
00:07:49 #23764 [verbose] > │ let mutable _v6 = v6 │
00:07:49 #23765 [verbose] > │ async { │
00:07:49 #23766 [verbose] > │ try │
00:07:49 #23767 [verbose] > │ let v7 : System.IO.FileStream option = None │
00:07:49 #23768 [verbose] > │ let mutable _v7 = v7 │
00:07:49 #23769 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23770 [verbose] > │ let v8 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:49 #23771 [verbose] > │ v8 │
00:07:49 #23772 [verbose] > │ #endif │
00:07:49 #23773 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23774 [verbose] > │ let v9 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:49 #23775 [verbose] > │ v9 │
00:07:49 #23776 [verbose] > │ #endif │
00:07:49 #23777 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23778 [verbose] > │ let v10 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:49 #23779 [verbose] > │ v10 │
00:07:49 #23780 [verbose] > │ #endif │
00:07:49 #23781 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23782 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23783 [verbose] > │ let v11 : System.IO.FileMode = System.IO.FileMode.Open │
00:07:49 #23784 [verbose] > │ let v12 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:07:49 #23785 [verbose] > │ let v13 : System.IO.FileShare = System.IO.FileShare.Read │
00:07:49 #23786 [verbose] > │ let v14 : System.IO.FileStream = new System.IO.FileStream (v0, v11, v12, │
00:07:49 #23787 [verbose] > │ v13) │
00:07:49 #23788 [verbose] > │ v14 │
00:07:49 #23789 [verbose] > │ #endif │
00:07:49 #23790 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23791 [verbose] > │ let v15 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:49 #23792 [verbose] > │ v15 │
00:07:49 #23793 [verbose] > │ #endif │
00:07:49 #23794 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23795 [verbose] > │ let v16 : System.IO.FileStream = │
00:07:49 #23796 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:07:49 #23797 [verbose] > │ v16 │
00:07:49 #23798 [verbose] > │ #endif │
00:07:49 #23799 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:49 #23800 [verbose] > │ let v17 : System.IO.FileStream = _v7.Value │
00:07:49 #23801 [verbose] > │ use v17 = v17 │
00:07:49 #23802 [verbose] > │ let v18 : System.IO.FileStream = v17 │
00:07:49 #23803 [verbose] > │ return v1 │
00:07:49 #23804 [verbose] > │ with ex -> │
00:07:49 #23805 [verbose] > │ let v19 : exn = ex │
00:07:49 #23806 [verbose] > │ let v20 : bool = v1 > 0L │
00:07:49 #23807 [verbose] > │ let v23 : bool = │
00:07:49 #23808 [verbose] > │ if v20 then │
00:07:49 #23809 [verbose] > │ let v21 : int64 = v1 % 100L │
00:07:49 #23810 [verbose] > │ let v22 : bool = v21 = 0L │
00:07:49 #23811 [verbose] > │ v22 │
00:07:49 #23812 [verbose] > │ else │
00:07:49 #23813 [verbose] > │ false │
00:07:49 #23814 [verbose] > │ if v23 then │
00:07:49 #23815 [verbose] > │ let v24 : string option = None │
00:07:49 #23816 [verbose] > │ let mutable _v24 = v24 │
00:07:49 #23817 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23818 [verbose] > │ let v25 : string = $"%A{v19}" │
00:07:49 #23819 [verbose] > │ v25 │
00:07:49 #23820 [verbose] > │ #endif │
00:07:49 #23821 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23822 [verbose] > │ let v26 : string = $"%A{v19}" │
00:07:49 #23823 [verbose] > │ v26 │
00:07:49 #23824 [verbose] > │ #endif │
00:07:49 #23825 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23826 [verbose] > │ let v27 : string = $"%A{v19}" │
00:07:49 #23827 [verbose] > │ v27 │
00:07:49 #23828 [verbose] > │ #endif │
00:07:49 #23829 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23830 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23831 [verbose] > │ let v28 : string = $"{v19.GetType ()}: {v19.Message}" │
00:07:49 #23832 [verbose] > │ v28 │
00:07:49 #23833 [verbose] > │ #endif │
00:07:49 #23834 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23835 [verbose] > │ let v29 : string = $"%A{v19}" │
00:07:49 #23836 [verbose] > │ v29 │
00:07:49 #23837 [verbose] > │ #endif │
00:07:49 #23838 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:49 #23839 [verbose] > │ FABLE_COMPILER_DART │
00:07:49 #23840 [verbose] > │ let v30 : string = Unchecked.defaultof<string> │
00:07:49 #23841 [verbose] > │ v30 │
00:07:49 #23842 [verbose] > │ #endif │
00:07:49 #23843 [verbose] > │ |> fun x -> _v24 <- Some x │
00:07:49 #23844 [verbose] > │ let v31 : string = _v24.Value │
00:07:49 #23845 [verbose] > │ let v32 : (unit -> string) = closure19(v0, v1, v31) │
00:07:49 #23846 [verbose] > │ let v33 : string = $"wait_for_file_access / {v32 ()}" │
00:07:49 #23847 [verbose] > │ System.Console.WriteLine v33 │
00:07:49 #23848 [verbose] > │ () │
00:07:49 #23849 [verbose] > │ let v34 : Async<unit> option = None │
00:07:49 #23850 [verbose] > │ let mutable _v34 = v34 │
00:07:49 #23851 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23852 [verbose] > │ let v35 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23853 [verbose] > │ v35 │
00:07:49 #23854 [verbose] > │ #endif │
00:07:49 #23855 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23856 [verbose] > │ let v36 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23857 [verbose] > │ v36 │
00:07:49 #23858 [verbose] > │ #endif │
00:07:49 #23859 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23860 [verbose] > │ let v37 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23861 [verbose] > │ v37 │
00:07:49 #23862 [verbose] > │ #endif │
00:07:49 #23863 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23864 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23865 [verbose] > │ let v38 : (int32 -> Async<unit>) = Async.Sleep │
00:07:49 #23866 [verbose] > │ let v39 : Async<unit> = v38 10 │
00:07:49 #23867 [verbose] > │ v39 │
00:07:49 #23868 [verbose] > │ #endif │
00:07:49 #23869 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23870 [verbose] > │ let v40 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #23871 [verbose] > │ v40 │
00:07:49 #23872 [verbose] > │ #endif │
00:07:49 #23873 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23874 [verbose] > │ let v41 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:49 #23875 [verbose] > │ v41 │
00:07:49 #23876 [verbose] > │ #endif │
00:07:49 #23877 [verbose] > │ |> fun x -> _v34 <- Some x │
00:07:49 #23878 [verbose] > │ let v42 : Async<unit> = _v34.Value │
00:07:49 #23879 [verbose] > │ do! v42 │
00:07:49 #23880 [verbose] > │ let v43 : int64 = v1 + 1L │
00:07:49 #23881 [verbose] > │ let v44 : Async<int64> = method10(v0, v43) │
00:07:49 #23882 [verbose] > │ return! v44 │
00:07:49 #23883 [verbose] > │ (* │
00:07:49 #23884 [verbose] > │ let v45 : int64 = *) │
00:07:49 #23885 [verbose] > │ } │
00:07:49 #23886 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:49 #23887 [verbose] > │ let v46 : Async<int64> = _v6 |> Option.get │
00:07:49 #23888 [verbose] > │ v46 │
00:07:49 #23889 [verbose] > │ #endif │
00:07:49 #23890 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #23891 [verbose] > │ let v47 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #23892 [verbose] > │ v47 │
00:07:49 #23893 [verbose] > │ #endif │
00:07:49 #23894 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #23895 [verbose] > │ let v48 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:49 #23896 [verbose] > │ v48 │
00:07:49 #23897 [verbose] > │ #endif │
00:07:49 #23898 [verbose] > │ |> fun x -> _v2 <- Some x │
00:07:49 #23899 [verbose] > │ let v49 : Async<int64> = _v2.Value │
00:07:49 #23900 [verbose] > │ v49 │
00:07:49 #23901 [verbose] > │ and closure20 () () : string = │
00:07:49 #23902 [verbose] > │ let v0 : string = "5" │
00:07:49 #23903 [verbose] > │ v0 │
00:07:49 #23904 [verbose] > │ and closure21 () () : string = │
00:07:49 #23905 [verbose] > │ let v0 : string = "6" │
00:07:49 #23906 [verbose] > │ v0 │
00:07:49 #23907 [verbose] > │ and closure22 () () : string = │
00:07:49 #23908 [verbose] > │ let v0 : string = "7" │
00:07:49 #23909 [verbose] > │ v0 │
00:07:49 #23910 [verbose] > │ and closure23 () struct (v0 : int64, v1 : string) : US4 = │
00:07:49 #23911 [verbose] > │ US4_0(v0, v1) │
00:07:49 #23912 [verbose] > │ and closure24 () (v0 : exn) : US4 = │
00:07:49 #23913 [verbose] > │ US4_1(v0) │
00:07:49 #23914 [verbose] > │ and closure25 () () : string = │
00:07:49 #23915 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:07:49 #23916 [verbose] > │ v0 │
00:07:49 #23917 [verbose] > │ and closure26 () () : string = │
00:07:49 #23918 [verbose] > │ let v0 : (unit -> string) = closure2() │
00:07:49 #23919 [verbose] > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:07:49 #23920 [verbose] > │ v1 │
00:07:49 #23921 [verbose] > │ and closure27 (v0 : string) () : string = │
00:07:49 #23922 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:07:49 #23923 [verbose] > │ v1 │
00:07:49 #23924 [verbose] > │ and method12 (v0 : bool) : bool = │
00:07:49 #23925 [verbose] > │ v0 │
00:07:49 #23926 [verbose] > │ and method13 () : string = │
00:07:49 #23927 [verbose] > │ let v0 : string = "1" │
00:07:49 #23928 [verbose] > │ v0 │
00:07:49 #23929 [verbose] > │ and method0 () : unit = │
00:07:49 #23930 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:07:49 #23931 [verbose] > │ let mutable _v0 = v0 │
00:07:49 #23932 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23933 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:07:49 #23934 [verbose] > │ (string * System.IDisposable)> │
00:07:49 #23935 [verbose] > │ struct (v1, v2) │
00:07:49 #23936 [verbose] > │ #endif │
00:07:49 #23937 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23938 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:07:49 #23939 [verbose] > │ (string * System.IDisposable)> │
00:07:49 #23940 [verbose] > │ struct (v3, v4) │
00:07:49 #23941 [verbose] > │ #endif │
00:07:49 #23942 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23943 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:07:49 #23944 [verbose] > │ (string * System.IDisposable)> │
00:07:49 #23945 [verbose] > │ struct (v5, v6) │
00:07:49 #23946 [verbose] > │ #endif │
00:07:49 #23947 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23948 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23949 [verbose] > │ let v7 : string option = None │
00:07:49 #23950 [verbose] > │ let mutable _v7 = v7 │
00:07:49 #23951 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23952 [verbose] > │ let v8 : string = null |> unbox<string> │
00:07:49 #23953 [verbose] > │ v8 │
00:07:49 #23954 [verbose] > │ #endif │
00:07:49 #23955 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23956 [verbose] > │ let v9 : string = null |> unbox<string> │
00:07:49 #23957 [verbose] > │ v9 │
00:07:49 #23958 [verbose] > │ #endif │
00:07:49 #23959 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #23960 [verbose] > │ let v10 : string = null |> unbox<string> │
00:07:49 #23961 [verbose] > │ v10 │
00:07:49 #23962 [verbose] > │ #endif │
00:07:49 #23963 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #23964 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #23965 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:07:49 #23966 [verbose] > │ let v12 : string = v11 () │
00:07:49 #23967 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:07:49 #23968 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:07:49 #23969 [verbose] > │ let v15 : string option = None │
00:07:49 #23970 [verbose] > │ let mutable _v15 = v15 │
00:07:49 #23971 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #23972 [verbose] > │ let v16 : string = method1(v12) │
00:07:49 #23973 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:49 #23974 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:07:49 #23975 [verbose] > │ let v19 : string = "String::from($0)" │
00:07:49 #23976 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:07:49 #23977 [verbose] > │ v19 │
00:07:49 #23978 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:07:49 #23979 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:07:49 #23980 [verbose] > │ let v23 : string = method1(v14) │
00:07:49 #23981 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:49 #23982 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:07:49 #23983 [verbose] > │ let v26 : string = "String::from($0)" │
00:07:49 #23984 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:07:49 #23985 [verbose] > │ v26 │
00:07:49 #23986 [verbose] > │ let v28 : string = "$0.join($1)" │
00:07:49 #23987 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:49 #23988 [verbose] > │ (v22, v27) v28 │
00:07:49 #23989 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:07:49 #23990 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:07:49 #23991 [verbose] > │ v30 │
00:07:49 #23992 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:07:49 #23993 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:07:49 #23994 [verbose] > │ v33 │
00:07:49 #23995 [verbose] > │ #endif │
00:07:49 #23996 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #23997 [verbose] > │ let v34 : string = null |> unbox<string> │
00:07:49 #23998 [verbose] > │ v34 │
00:07:49 #23999 [verbose] > │ #endif │
00:07:49 #24000 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24001 [verbose] > │ let v35 : string = null |> unbox<string> │
00:07:49 #24002 [verbose] > │ v35 │
00:07:49 #24003 [verbose] > │ #endif │
00:07:49 #24004 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24005 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24006 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:07:49 #24007 [verbose] > │ v36 │
00:07:49 #24008 [verbose] > │ #endif │
00:07:49 #24009 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24010 [verbose] > │ let v37 : string = "path" │
00:07:49 #24011 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:49 #24012 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:07:49 #24013 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:07:49 #24014 [verbose] > │ v40 │
00:07:49 #24015 [verbose] > │ #endif │
00:07:49 #24016 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24017 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:07:49 #24018 [verbose] > │ v41 │
00:07:49 #24019 [verbose] > │ #endif │
00:07:49 #24020 [verbose] > │ |> fun x -> _v15 <- Some x │
00:07:49 #24021 [verbose] > │ let v42 : string = _v15.Value │
00:07:49 #24022 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:07:49 #24023 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:07:49 #24024 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:07:49 #24025 [verbose] > │ let v46 : string = v45 v44 │
00:07:49 #24026 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:07:49 #24027 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:07:49 #24028 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:07:49 #24029 [verbose] > │ let v50 : string = v49 v48 │
00:07:49 #24030 [verbose] > │ let v51 : string option = None │
00:07:49 #24031 [verbose] > │ let mutable _v51 = v51 │
00:07:49 #24032 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24033 [verbose] > │ let v52 : string = method1(v42) │
00:07:49 #24034 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:49 #24035 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:07:49 #24036 [verbose] > │ let v55 : string = "String::from($0)" │
00:07:49 #24037 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:07:49 #24038 [verbose] > │ v55 │
00:07:49 #24039 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:07:49 #24040 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:07:49 #24041 [verbose] > │ let v59 : string = method1(v50) │
00:07:49 #24042 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:49 #24043 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:07:49 #24044 [verbose] > │ let v62 : string = "String::from($0)" │
00:07:49 #24045 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:07:49 #24046 [verbose] > │ v62 │
00:07:49 #24047 [verbose] > │ let v64 : string = "$0.join($1)" │
00:07:49 #24048 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:49 #24049 [verbose] > │ (v58, v63) v64 │
00:07:49 #24050 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:07:49 #24051 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:07:49 #24052 [verbose] > │ v66 │
00:07:49 #24053 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:07:49 #24054 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:07:49 #24055 [verbose] > │ v69 │
00:07:49 #24056 [verbose] > │ #endif │
00:07:49 #24057 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24058 [verbose] > │ let v70 : string = null |> unbox<string> │
00:07:49 #24059 [verbose] > │ v70 │
00:07:49 #24060 [verbose] > │ #endif │
00:07:49 #24061 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24062 [verbose] > │ let v71 : string = null |> unbox<string> │
00:07:49 #24063 [verbose] > │ v71 │
00:07:49 #24064 [verbose] > │ #endif │
00:07:49 #24065 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24066 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24067 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:07:49 #24068 [verbose] > │ v72 │
00:07:49 #24069 [verbose] > │ #endif │
00:07:49 #24070 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24071 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:49 #24072 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:07:49 #24073 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:07:49 #24074 [verbose] > │ v75 │
00:07:49 #24075 [verbose] > │ #endif │
00:07:49 #24076 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24077 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:07:49 #24078 [verbose] > │ v76 │
00:07:49 #24079 [verbose] > │ #endif │
00:07:49 #24080 [verbose] > │ |> fun x -> _v51 <- Some x │
00:07:49 #24081 [verbose] > │ let v77 : string = _v51.Value │
00:07:49 #24082 [verbose] > │ v77 │
00:07:49 #24083 [verbose] > │ #endif │
00:07:49 #24084 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24085 [verbose] > │ let v78 : string = null |> unbox<string> │
00:07:49 #24086 [verbose] > │ v78 │
00:07:49 #24087 [verbose] > │ #endif │
00:07:49 #24088 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24089 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:07:49 #24090 [verbose] > │ v79 │
00:07:49 #24091 [verbose] > │ #endif │
00:07:49 #24092 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:49 #24093 [verbose] > │ let v80 : string = _v7.Value │
00:07:49 #24094 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:07:49 #24095 [verbose] > │ let mutable _v81 = v81 │
00:07:49 #24096 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24097 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:07:49 #24098 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:49 #24099 [verbose] > │ v82 │
00:07:49 #24100 [verbose] > │ #endif │
00:07:49 #24101 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24102 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:07:49 #24103 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:49 #24104 [verbose] > │ v83 │
00:07:49 #24105 [verbose] > │ #endif │
00:07:49 #24106 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24107 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:07:49 #24108 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:49 #24109 [verbose] > │ v84 │
00:07:49 #24110 [verbose] > │ #endif │
00:07:49 #24111 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24112 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24113 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:07:49 #24114 [verbose] > │ System.IO.Directory.CreateDirectory │
00:07:49 #24115 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:07:49 #24116 [verbose] > │ v86 │
00:07:49 #24117 [verbose] > │ #endif │
00:07:49 #24118 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24119 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:07:49 #24120 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:49 #24121 [verbose] > │ v87 │
00:07:49 #24122 [verbose] > │ #endif │
00:07:49 #24123 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24124 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:07:49 #24125 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:07:49 #24126 [verbose] > │ v88 │
00:07:49 #24127 [verbose] > │ #endif │
00:07:49 #24128 [verbose] > │ |> fun x -> _v81 <- Some x │
00:07:49 #24129 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:07:49 #24130 [verbose] > │ let v90 : bool option = None │
00:07:49 #24131 [verbose] > │ let mutable _v90 = v90 │
00:07:49 #24132 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24133 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:07:49 #24134 [verbose] > │ v91 │
00:07:49 #24135 [verbose] > │ #endif │
00:07:49 #24136 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24137 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:07:49 #24138 [verbose] > │ v92 │
00:07:49 #24139 [verbose] > │ #endif │
00:07:49 #24140 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24141 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:07:49 #24142 [verbose] > │ v93 │
00:07:49 #24143 [verbose] > │ #endif │
00:07:49 #24144 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24145 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24146 [verbose] > │ let v94 : bool = v89.Exists │
00:07:49 #24147 [verbose] > │ v94 │
00:07:49 #24148 [verbose] > │ #endif │
00:07:49 #24149 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24150 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:07:49 #24151 [verbose] > │ v95 │
00:07:49 #24152 [verbose] > │ #endif │
00:07:49 #24153 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24154 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:07:49 #24155 [verbose] > │ v96 │
00:07:49 #24156 [verbose] > │ #endif │
00:07:49 #24157 [verbose] > │ |> fun x -> _v90 <- Some x │
00:07:49 #24158 [verbose] > │ let v97 : bool = _v90.Value │
00:07:49 #24159 [verbose] > │ let v98 : bool = v97 = false │
00:07:49 #24160 [verbose] > │ if v98 then │
00:07:49 #24161 [verbose] > │ let v99 : System.DateTime option = None │
00:07:49 #24162 [verbose] > │ let mutable _v99 = v99 │
00:07:49 #24163 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24164 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:07:49 #24165 [verbose] > │ v100 │
00:07:49 #24166 [verbose] > │ #endif │
00:07:49 #24167 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24168 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:07:49 #24169 [verbose] > │ v101 │
00:07:49 #24170 [verbose] > │ #endif │
00:07:49 #24171 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24172 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:07:49 #24173 [verbose] > │ v102 │
00:07:49 #24174 [verbose] > │ #endif │
00:07:49 #24175 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24176 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24177 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:07:49 #24178 [verbose] > │ v103 │
00:07:49 #24179 [verbose] > │ #endif │
00:07:49 #24180 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24181 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:07:49 #24182 [verbose] > │ v104 │
00:07:49 #24183 [verbose] > │ #endif │
00:07:49 #24184 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:49 #24185 [verbose] > │ FABLE_COMPILER_DART │
00:07:49 #24186 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:07:49 #24187 [verbose] > │ v105 │
00:07:49 #24188 [verbose] > │ #endif │
00:07:49 #24189 [verbose] > │ |> fun x -> _v99 <- Some x │
00:07:49 #24190 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:07:49 #24191 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:07:49 #24192 [verbose] > │ let v108 : string = $"%A{v107}" │
00:07:49 #24193 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:07:49 #24194 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:07:49 #24195 [verbose] > │ System.Console.WriteLine v110 │
00:07:49 #24196 [verbose] > │ () │
00:07:49 #24197 [verbose] > │ let v111 : System.IDisposable option = None │
00:07:49 #24198 [verbose] > │ let mutable _v111 = v111 │
00:07:49 #24199 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24200 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:49 #24201 [verbose] > │ v112 │
00:07:49 #24202 [verbose] > │ #endif │
00:07:49 #24203 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24204 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:49 #24205 [verbose] > │ v113 │
00:07:49 #24206 [verbose] > │ #endif │
00:07:49 #24207 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24208 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:49 #24209 [verbose] > │ v114 │
00:07:49 #24210 [verbose] > │ #endif │
00:07:49 #24211 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24212 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24213 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:07:49 #24214 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:07:49 #24215 [verbose] > │ _.Dispose () = v115 () } │
00:07:49 #24216 [verbose] > │ v116 │
00:07:49 #24217 [verbose] > │ #endif │
00:07:49 #24218 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24219 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:49 #24220 [verbose] > │ v117 │
00:07:49 #24221 [verbose] > │ #endif │
00:07:49 #24222 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24223 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:07:49 #24224 [verbose] > │ v118 │
00:07:49 #24225 [verbose] > │ #endif │
00:07:49 #24226 [verbose] > │ |> fun x -> _v111 <- Some x │
00:07:49 #24227 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:07:49 #24228 [verbose] > │ struct (v80, v119) │
00:07:49 #24229 [verbose] > │ #endif │
00:07:49 #24230 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24231 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:07:49 #24232 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:07:49 #24233 [verbose] > │ struct (v120, v121) │
00:07:49 #24234 [verbose] > │ #endif │
00:07:49 #24235 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24236 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:07:49 #24237 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:07:49 #24238 [verbose] > │ struct (v122, v123) │
00:07:49 #24239 [verbose] > │ #endif │
00:07:49 #24240 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:49 #24241 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:07:49 #24242 [verbose] > │ use v125 = v125 │
00:07:49 #24243 [verbose] > │ let v126 : System.IDisposable = v125 │
00:07:49 #24244 [verbose] > │ let v127 : string option = None │
00:07:49 #24245 [verbose] > │ let mutable _v127 = v127 │
00:07:49 #24246 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24247 [verbose] > │ let v128 : string = method1(v124) │
00:07:49 #24248 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:49 #24249 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:07:49 #24250 [verbose] > │ let v131 : string = "String::from($0)" │
00:07:49 #24251 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:07:49 #24252 [verbose] > │ v131 │
00:07:49 #24253 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:07:49 #24254 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:07:49 #24255 [verbose] > │ v133 │
00:07:49 #24256 [verbose] > │ let v135 : string = method4() │
00:07:49 #24257 [verbose] > │ let v136 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:49 #24258 [verbose] > │ let v137 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v135 v136 │
00:07:49 #24259 [verbose] > │ let v138 : string = "String::from($0)" │
00:07:49 #24260 [verbose] > │ let v139 : std_string_String = Fable.Core.RustInterop.emitRustExpr v137 │
00:07:49 #24261 [verbose] > │ v138 │
00:07:49 #24262 [verbose] > │ let v140 : string = "$0.join($1)" │
00:07:49 #24263 [verbose] > │ let v141 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:49 #24264 [verbose] > │ (v134, v139) v140 │
00:07:49 #24265 [verbose] > │ let v142 : string = "$0.display().to_string()" │
00:07:49 #24266 [verbose] > │ let v143 : std_string_String = Fable.Core.RustInterop.emitRustExpr v141 │
00:07:49 #24267 [verbose] > │ v142 │
00:07:49 #24268 [verbose] > │ let v144 : string = "fable_library_rust::String_::fromString($0)" │
00:07:49 #24269 [verbose] > │ let v145 : string = Fable.Core.RustInterop.emitRustExpr v143 v144 │
00:07:49 #24270 [verbose] > │ v145 │
00:07:49 #24271 [verbose] > │ #endif │
00:07:49 #24272 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24273 [verbose] > │ let v146 : string = null |> unbox<string> │
00:07:49 #24274 [verbose] > │ v146 │
00:07:49 #24275 [verbose] > │ #endif │
00:07:49 #24276 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24277 [verbose] > │ let v147 : string = null |> unbox<string> │
00:07:49 #24278 [verbose] > │ v147 │
00:07:49 #24279 [verbose] > │ #endif │
00:07:49 #24280 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24281 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24282 [verbose] > │ let v148 : string = "test.txt" │
00:07:49 #24283 [verbose] > │ let v149 : string = System.IO.Path.Combine (v124, v148) │
00:07:49 #24284 [verbose] > │ v149 │
00:07:49 #24285 [verbose] > │ #endif │
00:07:49 #24286 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24287 [verbose] > │ let v150 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:49 #24288 [verbose] > │ let v151 : string = "v150.join($0, $1)" │
00:07:49 #24289 [verbose] > │ let v152 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v148) │
00:07:49 #24290 [verbose] > │ v151 │
00:07:49 #24291 [verbose] > │ v152 │
00:07:49 #24292 [verbose] > │ #endif │
00:07:49 #24293 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24294 [verbose] > │ let v153 : string = Unchecked.defaultof<string> │
00:07:49 #24295 [verbose] > │ v153 │
00:07:49 #24296 [verbose] > │ #endif │
00:07:49 #24297 [verbose] > │ |> fun x -> _v127 <- Some x │
00:07:49 #24298 [verbose] > │ let v154 : string = _v127.Value │
00:07:49 #24299 [verbose] > │ let v155 : Async<struct (int64 * string)> option = None │
00:07:49 #24300 [verbose] > │ let mutable _v155 = v155 │
00:07:49 #24301 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24302 [verbose] > │ let v156 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:07:49 #24303 [verbose] > │ (int64 * string)>> │
00:07:49 #24304 [verbose] > │ v156 │
00:07:49 #24305 [verbose] > │ #endif │
00:07:49 #24306 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24307 [verbose] > │ let v157 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:07:49 #24308 [verbose] > │ (int64 * string)>> │
00:07:49 #24309 [verbose] > │ v157 │
00:07:49 #24310 [verbose] > │ #endif │
00:07:49 #24311 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24312 [verbose] > │ let v158 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:07:49 #24313 [verbose] > │ (int64 * string)>> │
00:07:49 #24314 [verbose] > │ v158 │
00:07:49 #24315 [verbose] > │ #endif │
00:07:49 #24316 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24317 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24318 [verbose] > │ let v159 : Async<struct (int64 * string)> option = None │
00:07:49 #24319 [verbose] > │ let mutable _v159 = v159 │
00:07:49 #24320 [verbose] > │ async { │
00:07:49 #24321 [verbose] > │ let v160 : US0 = US0_1 │
00:07:49 #24322 [verbose] > │ let v161 : (unit -> string) = closure6() │
00:07:49 #24323 [verbose] > │ let v162 : (unit -> string) = closure2() │
00:07:49 #24324 [verbose] > │ method5(v160, v161, v162) │
00:07:49 #24325 [verbose] > │ let v163 : Async<unit> option = None │
00:07:49 #24326 [verbose] > │ let mutable _v163 = v163 │
00:07:49 #24327 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24328 [verbose] > │ let v164 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24329 [verbose] > │ v164 │
00:07:49 #24330 [verbose] > │ #endif │
00:07:49 #24331 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24332 [verbose] > │ let v165 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24333 [verbose] > │ v165 │
00:07:49 #24334 [verbose] > │ #endif │
00:07:49 #24335 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24336 [verbose] > │ let v166 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24337 [verbose] > │ v166 │
00:07:49 #24338 [verbose] > │ #endif │
00:07:49 #24339 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24340 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24341 [verbose] > │ let v167 : string = "0" │
00:07:49 #24342 [verbose] > │ let v168 : System.Threading.Tasks.Task = │
00:07:49 #24343 [verbose] > │ System.IO.File.WriteAllTextAsync (v154, v167) │
00:07:49 #24344 [verbose] > │ let v169 : Async<unit> option = None │
00:07:49 #24345 [verbose] > │ let mutable _v169 = v169 │
00:07:49 #24346 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24347 [verbose] > │ let v170 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24348 [verbose] > │ v170 │
00:07:49 #24349 [verbose] > │ #endif │
00:07:49 #24350 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24351 [verbose] > │ let v171 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24352 [verbose] > │ v171 │
00:07:49 #24353 [verbose] > │ #endif │
00:07:49 #24354 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24355 [verbose] > │ let v172 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24356 [verbose] > │ v172 │
00:07:49 #24357 [verbose] > │ #endif │
00:07:49 #24358 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24359 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24360 [verbose] > │ let v173 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:07:49 #24361 [verbose] > │ Async.AwaitTask │
00:07:49 #24362 [verbose] > │ let v174 : Async<unit> = v173 v168 │
00:07:49 #24363 [verbose] > │ v174 │
00:07:49 #24364 [verbose] > │ #endif │
00:07:49 #24365 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24366 [verbose] > │ let v175 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24367 [verbose] > │ v175 │
00:07:49 #24368 [verbose] > │ #endif │
00:07:49 #24369 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24370 [verbose] > │ let v176 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:49 #24371 [verbose] > │ v176 │
00:07:49 #24372 [verbose] > │ #endif │
00:07:49 #24373 [verbose] > │ |> fun x -> _v169 <- Some x │
00:07:49 #24374 [verbose] > │ let v177 : Async<unit> = _v169.Value │
00:07:49 #24375 [verbose] > │ v177 │
00:07:49 #24376 [verbose] > │ #endif │
00:07:49 #24377 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24378 [verbose] > │ let v178 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24379 [verbose] > │ v178 │
00:07:49 #24380 [verbose] > │ #endif │
00:07:49 #24381 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24382 [verbose] > │ let v179 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:49 #24383 [verbose] > │ v179 │
00:07:49 #24384 [verbose] > │ #endif │
00:07:49 #24385 [verbose] > │ |> fun x -> _v163 <- Some x │
00:07:49 #24386 [verbose] > │ let v180 : Async<unit> = _v163.Value │
00:07:49 #24387 [verbose] > │ do! v180 │
00:07:49 #24388 [verbose] > │ let v181 : US0 = US0_1 │
00:07:49 #24389 [verbose] > │ let v182 : (unit -> string) = closure10() │
00:07:49 #24390 [verbose] > │ method5(v181, v182, v162) │
00:07:49 #24391 [verbose] > │ let v183 : Async<unit> option = None │
00:07:49 #24392 [verbose] > │ let mutable _v183 = v183 │
00:07:49 #24393 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24394 [verbose] > │ let v184 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24395 [verbose] > │ v184 │
00:07:49 #24396 [verbose] > │ #endif │
00:07:49 #24397 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24398 [verbose] > │ let v185 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24399 [verbose] > │ v185 │
00:07:49 #24400 [verbose] > │ #endif │
00:07:49 #24401 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24402 [verbose] > │ let v186 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24403 [verbose] > │ v186 │
00:07:49 #24404 [verbose] > │ #endif │
00:07:49 #24405 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24406 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24407 [verbose] > │ let v187 : Async<unit> option = None │
00:07:49 #24408 [verbose] > │ let mutable _v187 = v187 │
00:07:49 #24409 [verbose] > │ async { │
00:07:49 #24410 [verbose] > │ let v188 : US0 = US0_1 │
00:07:49 #24411 [verbose] > │ let v189 : (unit -> string) = closure11() │
00:07:49 #24412 [verbose] > │ method5(v188, v189, v162) │
00:07:49 #24413 [verbose] > │ let v190 : System.IO.FileStream option = None │
00:07:49 #24414 [verbose] > │ let mutable _v190 = v190 │
00:07:49 #24415 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24416 [verbose] > │ let v191 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:49 #24417 [verbose] > │ v191 │
00:07:49 #24418 [verbose] > │ #endif │
00:07:49 #24419 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24420 [verbose] > │ let v192 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:49 #24421 [verbose] > │ v192 │
00:07:49 #24422 [verbose] > │ #endif │
00:07:49 #24423 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24424 [verbose] > │ let v193 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:49 #24425 [verbose] > │ v193 │
00:07:49 #24426 [verbose] > │ #endif │
00:07:49 #24427 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24428 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24429 [verbose] > │ let v194 : System.IO.FileMode = System.IO.FileMode.Open │
00:07:49 #24430 [verbose] > │ let v195 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:07:49 #24431 [verbose] > │ let v196 : System.IO.FileShare = System.IO.FileShare.None │
00:07:49 #24432 [verbose] > │ let v197 : System.IO.FileStream = new System.IO.FileStream (v154, v194, │
00:07:49 #24433 [verbose] > │ v195, v196) │
00:07:49 #24434 [verbose] > │ v197 │
00:07:49 #24435 [verbose] > │ #endif │
00:07:49 #24436 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24437 [verbose] > │ let v198 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:49 #24438 [verbose] > │ v198 │
00:07:49 #24439 [verbose] > │ #endif │
00:07:49 #24440 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24441 [verbose] > │ let v199 : System.IO.FileStream = │
00:07:49 #24442 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:07:49 #24443 [verbose] > │ v199 │
00:07:49 #24444 [verbose] > │ #endif │
00:07:49 #24445 [verbose] > │ |> fun x -> _v190 <- Some x │
00:07:49 #24446 [verbose] > │ let v200 : System.IO.FileStream = _v190.Value │
00:07:49 #24447 [verbose] > │ use v200 = v200 │
00:07:49 #24448 [verbose] > │ let v201 : System.IO.FileStream = v200 │
00:07:49 #24449 [verbose] > │ let v202 : US0 = US0_1 │
00:07:49 #24450 [verbose] > │ let v203 : (unit -> string) = closure12() │
00:07:49 #24451 [verbose] > │ method5(v202, v203, v162) │
00:07:49 #24452 [verbose] > │ let v204 : Async<unit> option = None │
00:07:49 #24453 [verbose] > │ let mutable _v204 = v204 │
00:07:49 #24454 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24455 [verbose] > │ let v205 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24456 [verbose] > │ v205 │
00:07:49 #24457 [verbose] > │ #endif │
00:07:49 #24458 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24459 [verbose] > │ let v206 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24460 [verbose] > │ v206 │
00:07:49 #24461 [verbose] > │ #endif │
00:07:49 #24462 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24463 [verbose] > │ let v207 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24464 [verbose] > │ v207 │
00:07:49 #24465 [verbose] > │ #endif │
00:07:49 #24466 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24467 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24468 [verbose] > │ let v208 : (int32 -> Async<unit>) = Async.Sleep │
00:07:49 #24469 [verbose] > │ let v209 : Async<unit> = v208 2000 │
00:07:49 #24470 [verbose] > │ v209 │
00:07:49 #24471 [verbose] > │ #endif │
00:07:49 #24472 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24473 [verbose] > │ let v210 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24474 [verbose] > │ v210 │
00:07:49 #24475 [verbose] > │ #endif │
00:07:49 #24476 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24477 [verbose] > │ let v211 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:49 #24478 [verbose] > │ v211 │
00:07:49 #24479 [verbose] > │ #endif │
00:07:49 #24480 [verbose] > │ |> fun x -> _v204 <- Some x │
00:07:49 #24481 [verbose] > │ let v212 : Async<unit> = _v204.Value │
00:07:49 #24482 [verbose] > │ do! v212 │
00:07:49 #24483 [verbose] > │ let v213 : US0 = US0_1 │
00:07:49 #24484 [verbose] > │ let v214 : (unit -> string) = closure13() │
00:07:49 #24485 [verbose] > │ method5(v213, v214, v162) │
00:07:49 #24486 [verbose] > │ let v215 : int64 = v201.Seek (0L, System.IO.SeekOrigin.Begin) │
00:07:49 #24487 [verbose] > │ let v216 : US0 = US0_1 │
00:07:49 #24488 [verbose] > │ let v217 : (unit -> string) = closure14() │
00:07:49 #24489 [verbose] > │ method5(v216, v217, v162) │
00:07:49 #24490 [verbose] > │ let v218 : (uint8 -> unit) = v201.WriteByte │
00:07:49 #24491 [verbose] > │ v218 49uy │
00:07:49 #24492 [verbose] > │ let v219 : US0 = US0_1 │
00:07:49 #24493 [verbose] > │ let v220 : (unit -> string) = closure15() │
00:07:49 #24494 [verbose] > │ method5(v219, v220, v162) │
00:07:49 #24495 [verbose] > │ let v221 : (System.IO.FileStream -> unit) = _.Flush() │
00:07:49 #24496 [verbose] > │ v221 v201 │
00:07:49 #24497 [verbose] > │ let v222 : US0 = US0_1 │
00:07:49 #24498 [verbose] > │ let v223 : (unit -> string) = closure16() │
00:07:49 #24499 [verbose] > │ method5(v222, v223, v162) │
00:07:49 #24500 [verbose] > │ } │
00:07:49 #24501 [verbose] > │ |> fun x -> _v187 <- Some x │
00:07:49 #24502 [verbose] > │ let v224 : Async<unit> = _v187 |> Option.get │
00:07:49 #24503 [verbose] > │ v224 │
00:07:49 #24504 [verbose] > │ #endif │
00:07:49 #24505 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24506 [verbose] > │ let v225 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24507 [verbose] > │ v225 │
00:07:49 #24508 [verbose] > │ #endif │
00:07:49 #24509 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24510 [verbose] > │ let v226 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:49 #24511 [verbose] > │ v226 │
00:07:49 #24512 [verbose] > │ #endif │
00:07:49 #24513 [verbose] > │ |> fun x -> _v183 <- Some x │
00:07:49 #24514 [verbose] > │ let v227 : Async<unit> = _v183.Value │
00:07:49 #24515 [verbose] > │ let v228 : Async<Async<unit>> option = None │
00:07:49 #24516 [verbose] > │ let mutable _v228 = v228 │
00:07:49 #24517 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24518 [verbose] > │ let v229 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:49 #24519 [verbose] > │ v229 │
00:07:49 #24520 [verbose] > │ #endif │
00:07:49 #24521 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24522 [verbose] > │ let v230 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:49 #24523 [verbose] > │ v230 │
00:07:49 #24524 [verbose] > │ #endif │
00:07:49 #24525 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24526 [verbose] > │ let v231 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:49 #24527 [verbose] > │ v231 │
00:07:49 #24528 [verbose] > │ #endif │
00:07:49 #24529 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24530 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24531 [verbose] > │ let v232 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:07:49 #24532 [verbose] > │ let v233 : Async<Async<unit>> = v232 v227 │
00:07:49 #24533 [verbose] > │ v233 │
00:07:49 #24534 [verbose] > │ #endif │
00:07:49 #24535 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24536 [verbose] > │ let v234 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:49 #24537 [verbose] > │ v234 │
00:07:49 #24538 [verbose] > │ #endif │
00:07:49 #24539 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24540 [verbose] > │ let v235 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:07:49 #24541 [verbose] > │ v235 │
00:07:49 #24542 [verbose] > │ #endif │
00:07:49 #24543 [verbose] > │ |> fun x -> _v228 <- Some x │
00:07:49 #24544 [verbose] > │ let v236 : Async<Async<unit>> = _v228.Value │
00:07:49 #24545 [verbose] > │ let! v236 = v236 │
00:07:49 #24546 [verbose] > │ let v237 : Async<unit> = v236 │
00:07:49 #24547 [verbose] > │ let v238 : US0 = US0_1 │
00:07:49 #24548 [verbose] > │ let v239 : (unit -> string) = closure17() │
00:07:49 #24549 [verbose] > │ method5(v238, v239, v162) │
00:07:49 #24550 [verbose] > │ let v240 : Async<unit> option = None │
00:07:49 #24551 [verbose] > │ let mutable _v240 = v240 │
00:07:49 #24552 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24553 [verbose] > │ let v241 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24554 [verbose] > │ v241 │
00:07:49 #24555 [verbose] > │ #endif │
00:07:49 #24556 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24557 [verbose] > │ let v242 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24558 [verbose] > │ v242 │
00:07:49 #24559 [verbose] > │ #endif │
00:07:49 #24560 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24561 [verbose] > │ let v243 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24562 [verbose] > │ v243 │
00:07:49 #24563 [verbose] > │ #endif │
00:07:49 #24564 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24565 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24566 [verbose] > │ let v244 : (int32 -> Async<unit>) = Async.Sleep │
00:07:49 #24567 [verbose] > │ let v245 : Async<unit> = v244 1 │
00:07:49 #24568 [verbose] > │ v245 │
00:07:49 #24569 [verbose] > │ #endif │
00:07:49 #24570 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24571 [verbose] > │ let v246 : Async<unit> = null |> unbox<Async<unit>> │
00:07:49 #24572 [verbose] > │ v246 │
00:07:49 #24573 [verbose] > │ #endif │
00:07:49 #24574 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24575 [verbose] > │ let v247 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:49 #24576 [verbose] > │ v247 │
00:07:49 #24577 [verbose] > │ #endif │
00:07:49 #24578 [verbose] > │ |> fun x -> _v240 <- Some x │
00:07:49 #24579 [verbose] > │ let v248 : Async<unit> = _v240.Value │
00:07:49 #24580 [verbose] > │ do! v248 │
00:07:49 #24581 [verbose] > │ let v249 : US0 = US0_1 │
00:07:49 #24582 [verbose] > │ let v250 : (unit -> string) = closure18() │
00:07:49 #24583 [verbose] > │ method5(v249, v250, v162) │
00:07:49 #24584 [verbose] > │ let v251 : Async<int64> option = None │
00:07:49 #24585 [verbose] > │ let mutable _v251 = v251 │
00:07:49 #24586 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24587 [verbose] > │ let v252 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #24588 [verbose] > │ v252 │
00:07:49 #24589 [verbose] > │ #endif │
00:07:49 #24590 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24591 [verbose] > │ let v253 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #24592 [verbose] > │ v253 │
00:07:49 #24593 [verbose] > │ #endif │
00:07:49 #24594 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24595 [verbose] > │ let v254 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #24596 [verbose] > │ v254 │
00:07:49 #24597 [verbose] > │ #endif │
00:07:49 #24598 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24599 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24600 [verbose] > │ let v255 : int64 = 0L │
00:07:49 #24601 [verbose] > │ let v256 : Async<int64> = method10(v154, v255) │
00:07:49 #24602 [verbose] > │ v256 │
00:07:49 #24603 [verbose] > │ #endif │
00:07:49 #24604 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24605 [verbose] > │ let v257 : Async<int64> = null |> unbox<Async<int64>> │
00:07:49 #24606 [verbose] > │ v257 │
00:07:49 #24607 [verbose] > │ #endif │
00:07:49 #24608 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24609 [verbose] > │ let v258 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:49 #24610 [verbose] > │ v258 │
00:07:49 #24611 [verbose] > │ #endif │
00:07:49 #24612 [verbose] > │ |> fun x -> _v251 <- Some x │
00:07:49 #24613 [verbose] > │ let v259 : Async<int64> = _v251.Value │
00:07:49 #24614 [verbose] > │ let! v259 = v259 │
00:07:49 #24615 [verbose] > │ let v260 : int64 = v259 │
00:07:49 #24616 [verbose] > │ let v261 : US0 = US0_1 │
00:07:49 #24617 [verbose] > │ let v262 : (unit -> string) = closure20() │
00:07:49 #24618 [verbose] > │ method5(v261, v262, v162) │
00:07:49 #24619 [verbose] > │ let v263 : Async<string> option = None │
00:07:49 #24620 [verbose] > │ let mutable _v263 = v263 │
00:07:49 #24621 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24622 [verbose] > │ let v264 : Async<string> = null |> unbox<Async<string>> │
00:07:49 #24623 [verbose] > │ v264 │
00:07:49 #24624 [verbose] > │ #endif │
00:07:49 #24625 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24626 [verbose] > │ let v265 : Async<string> = null |> unbox<Async<string>> │
00:07:49 #24627 [verbose] > │ v265 │
00:07:49 #24628 [verbose] > │ #endif │
00:07:49 #24629 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24630 [verbose] > │ let v266 : Async<string> = null |> unbox<Async<string>> │
00:07:49 #24631 [verbose] > │ v266 │
00:07:49 #24632 [verbose] > │ #endif │
00:07:49 #24633 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24634 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24635 [verbose] > │ let v267 : (string -> System.Threading.Tasks.Task<string>) = │
00:07:49 #24636 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:07:49 #24637 [verbose] > │ let v268 : System.Threading.Tasks.Task<string> = v267 v154 │
00:07:49 #24638 [verbose] > │ let v269 : Async<string> option = None │
00:07:49 #24639 [verbose] > │ let mutable _v269 = v269 │
00:07:49 #24640 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24641 [verbose] > │ let v270 : Async<string> = null |> unbox<Async<string>> │
00:07:49 #24642 [verbose] > │ v270 │
00:07:49 #24643 [verbose] > │ #endif │
00:07:49 #24644 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24645 [verbose] > │ let v271 : Async<string> = null |> unbox<Async<string>> │
00:07:49 #24646 [verbose] > │ v271 │
00:07:49 #24647 [verbose] > │ #endif │
00:07:49 #24648 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24649 [verbose] > │ let v272 : Async<string> = null |> unbox<Async<string>> │
00:07:49 #24650 [verbose] > │ v272 │
00:07:49 #24651 [verbose] > │ #endif │
00:07:49 #24652 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24653 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24654 [verbose] > │ let v273 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:07:49 #24655 [verbose] > │ Async.AwaitTask │
00:07:49 #24656 [verbose] > │ let v274 : Async<string> = v273 v268 │
00:07:49 #24657 [verbose] > │ v274 │
00:07:49 #24658 [verbose] > │ #endif │
00:07:49 #24659 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24660 [verbose] > │ let v275 : Async<string> = null |> unbox<Async<string>> │
00:07:49 #24661 [verbose] > │ v275 │
00:07:49 #24662 [verbose] > │ #endif │
00:07:49 #24663 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24664 [verbose] > │ let v276 : Async<string> = Unchecked.defaultof<Async<string>> │
00:07:49 #24665 [verbose] > │ v276 │
00:07:49 #24666 [verbose] > │ #endif │
00:07:49 #24667 [verbose] > │ |> fun x -> _v269 <- Some x │
00:07:49 #24668 [verbose] > │ let v277 : Async<string> = _v269.Value │
00:07:49 #24669 [verbose] > │ v277 │
00:07:49 #24670 [verbose] > │ #endif │
00:07:49 #24671 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24672 [verbose] > │ let v278 : Async<string> = null |> unbox<Async<string>> │
00:07:49 #24673 [verbose] > │ v278 │
00:07:49 #24674 [verbose] > │ #endif │
00:07:49 #24675 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24676 [verbose] > │ let v279 : Async<string> = Unchecked.defaultof<Async<string>> │
00:07:49 #24677 [verbose] > │ v279 │
00:07:49 #24678 [verbose] > │ #endif │
00:07:49 #24679 [verbose] > │ |> fun x -> _v263 <- Some x │
00:07:49 #24680 [verbose] > │ let v280 : Async<string> = _v263.Value │
00:07:49 #24681 [verbose] > │ let! v280 = v280 │
00:07:49 #24682 [verbose] > │ let v281 : string = v280 │
00:07:49 #24683 [verbose] > │ let v282 : US0 = US0_1 │
00:07:49 #24684 [verbose] > │ let v283 : (unit -> string) = closure21() │
00:07:49 #24685 [verbose] > │ method5(v282, v283, v162) │
00:07:49 #24686 [verbose] > │ do! v237 │
00:07:49 #24687 [verbose] > │ let v284 : US0 = US0_1 │
00:07:49 #24688 [verbose] > │ let v285 : (unit -> string) = closure22() │
00:07:49 #24689 [verbose] > │ method5(v284, v285, v162) │
00:07:49 #24690 [verbose] > │ return struct (v260, v281) │
00:07:49 #24691 [verbose] > │ } │
00:07:49 #24692 [verbose] > │ |> fun x -> _v159 <- Some x │
00:07:49 #24693 [verbose] > │ let v286 : Async<struct (int64 * string)> = _v159 |> Option.get │
00:07:49 #24694 [verbose] > │ v286 │
00:07:49 #24695 [verbose] > │ #endif │
00:07:49 #24696 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24697 [verbose] > │ let v287 : Async<struct (int64 * string)> = null |> unbox<Async<struct │
00:07:49 #24698 [verbose] > │ (int64 * string)>> │
00:07:49 #24699 [verbose] > │ v287 │
00:07:49 #24700 [verbose] > │ #endif │
00:07:49 #24701 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24702 [verbose] > │ let v288 : Async<struct (int64 * string)> = │
00:07:49 #24703 [verbose] > │ Unchecked.defaultof<Async<struct (int64 * string)>> │
00:07:49 #24704 [verbose] > │ v288 │
00:07:49 #24705 [verbose] > │ #endif │
00:07:49 #24706 [verbose] > │ |> fun x -> _v155 <- Some x │
00:07:49 #24707 [verbose] > │ let v289 : Async<struct (int64 * string)> = _v155.Value │
00:07:49 #24708 [verbose] > │ let v290 : Async<US3> option = None │
00:07:49 #24709 [verbose] > │ let mutable _v290 = v290 │
00:07:49 #24710 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24711 [verbose] > │ let v291 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #24712 [verbose] > │ v291 │
00:07:49 #24713 [verbose] > │ #endif │
00:07:49 #24714 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24715 [verbose] > │ let v292 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #24716 [verbose] > │ v292 │
00:07:49 #24717 [verbose] > │ #endif │
00:07:49 #24718 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24719 [verbose] > │ let v293 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #24720 [verbose] > │ v293 │
00:07:49 #24721 [verbose] > │ #endif │
00:07:49 #24722 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24723 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24724 [verbose] > │ let v294 : Async<US3> option = None │
00:07:49 #24725 [verbose] > │ let mutable _v294 = v294 │
00:07:49 #24726 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24727 [verbose] > │ let v295 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #24728 [verbose] > │ v295 │
00:07:49 #24729 [verbose] > │ #endif │
00:07:49 #24730 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24731 [verbose] > │ let v296 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #24732 [verbose] > │ v296 │
00:07:49 #24733 [verbose] > │ #endif │
00:07:49 #24734 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24735 [verbose] > │ let v297 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #24736 [verbose] > │ v297 │
00:07:49 #24737 [verbose] > │ #endif │
00:07:49 #24738 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24739 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24740 [verbose] > │ let v298 : Async<US3> option = None │
00:07:49 #24741 [verbose] > │ let mutable _v298 = v298 │
00:07:49 #24742 [verbose] > │ async { │
00:07:49 #24743 [verbose] > │ let v299 : Async<Async<struct (int64 * string)>> option = None │
00:07:49 #24744 [verbose] > │ let mutable _v299 = v299 │
00:07:49 #24745 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24746 [verbose] > │ let v300 : Async<Async<struct (int64 * string)>> = null |> │
00:07:49 #24747 [verbose] > │ unbox<Async<Async<struct (int64 * string)>>> │
00:07:49 #24748 [verbose] > │ v300 │
00:07:49 #24749 [verbose] > │ #endif │
00:07:49 #24750 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24751 [verbose] > │ let v301 : Async<Async<struct (int64 * string)>> = null |> │
00:07:49 #24752 [verbose] > │ unbox<Async<Async<struct (int64 * string)>>> │
00:07:49 #24753 [verbose] > │ v301 │
00:07:49 #24754 [verbose] > │ #endif │
00:07:49 #24755 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24756 [verbose] > │ let v302 : Async<Async<struct (int64 * string)>> = null |> │
00:07:49 #24757 [verbose] > │ unbox<Async<Async<struct (int64 * string)>>> │
00:07:49 #24758 [verbose] > │ v302 │
00:07:49 #24759 [verbose] > │ #endif │
00:07:49 #24760 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24761 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24762 [verbose] > │ let v303 : Async<Async<struct (int64 * string)>> = Async.StartChild │
00:07:49 #24763 [verbose] > │ (v289, 3000) │
00:07:49 #24764 [verbose] > │ v303 │
00:07:49 #24765 [verbose] > │ #endif │
00:07:49 #24766 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24767 [verbose] > │ let v304 : Async<Async<struct (int64 * string)>> = null |> │
00:07:49 #24768 [verbose] > │ unbox<Async<Async<struct (int64 * string)>>> │
00:07:49 #24769 [verbose] > │ v304 │
00:07:49 #24770 [verbose] > │ #endif │
00:07:49 #24771 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24772 [verbose] > │ let v305 : Async<Async<struct (int64 * string)>> = │
00:07:49 #24773 [verbose] > │ Unchecked.defaultof<Async<Async<struct (int64 * string)>>> │
00:07:49 #24774 [verbose] > │ v305 │
00:07:49 #24775 [verbose] > │ #endif │
00:07:49 #24776 [verbose] > │ |> fun x -> _v299 <- Some x │
00:07:49 #24777 [verbose] > │ let v306 : Async<Async<struct (int64 * string)>> = _v299.Value │
00:07:49 #24778 [verbose] > │ let! v306 = v306 │
00:07:49 #24779 [verbose] > │ let v307 : Async<struct (int64 * string)> = v306 │
00:07:49 #24780 [verbose] > │ let v308 : Async<Choice<struct (int64 * string), exn>> option = None │
00:07:49 #24781 [verbose] > │ let mutable _v308 = v308 │
00:07:49 #24782 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24783 [verbose] > │ let v309 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:07:49 #24784 [verbose] > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:07:49 #24785 [verbose] > │ v309 │
00:07:49 #24786 [verbose] > │ #endif │
00:07:49 #24787 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24788 [verbose] > │ let v310 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:07:49 #24789 [verbose] > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:07:49 #24790 [verbose] > │ v310 │
00:07:49 #24791 [verbose] > │ #endif │
00:07:49 #24792 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24793 [verbose] > │ let v311 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:07:49 #24794 [verbose] > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:07:49 #24795 [verbose] > │ v311 │
00:07:49 #24796 [verbose] > │ #endif │
00:07:49 #24797 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24798 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24799 [verbose] > │ let v312 : (Async<struct (int64 * string)> -> Async<Choice<struct (int64 │
00:07:49 #24800 [verbose] > │ * string), exn>>) = Async.Catch │
00:07:49 #24801 [verbose] > │ let v313 : Async<Choice<struct (int64 * string), exn>> = v312 v307 │
00:07:49 #24802 [verbose] > │ v313 │
00:07:49 #24803 [verbose] > │ #endif │
00:07:49 #24804 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24805 [verbose] > │ let v314 : Async<Choice<struct (int64 * string), exn>> = null |> │
00:07:49 #24806 [verbose] > │ unbox<Async<Choice<struct (int64 * string), exn>>> │
00:07:49 #24807 [verbose] > │ v314 │
00:07:49 #24808 [verbose] > │ #endif │
00:07:49 #24809 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24810 [verbose] > │ let v315 : Async<Choice<struct (int64 * string), exn>> = │
00:07:49 #24811 [verbose] > │ Unchecked.defaultof<Async<Choice<struct (int64 * string), exn>>> │
00:07:49 #24812 [verbose] > │ v315 │
00:07:49 #24813 [verbose] > │ #endif │
00:07:49 #24814 [verbose] > │ |> fun x -> _v308 <- Some x │
00:07:49 #24815 [verbose] > │ let v316 : Async<Choice<struct (int64 * string), exn>> = _v308.Value │
00:07:49 #24816 [verbose] > │ let v317 : Async<US4> option = None │
00:07:49 #24817 [verbose] > │ let mutable _v317 = v317 │
00:07:49 #24818 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24819 [verbose] > │ let v318 : Async<US4> = null |> unbox<Async<US4>> │
00:07:49 #24820 [verbose] > │ v318 │
00:07:49 #24821 [verbose] > │ #endif │
00:07:49 #24822 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24823 [verbose] > │ let v319 : Async<US4> = null |> unbox<Async<US4>> │
00:07:49 #24824 [verbose] > │ v319 │
00:07:49 #24825 [verbose] > │ #endif │
00:07:49 #24826 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24827 [verbose] > │ let v320 : Async<US4> = null |> unbox<Async<US4>> │
00:07:49 #24828 [verbose] > │ v320 │
00:07:49 #24829 [verbose] > │ #endif │
00:07:49 #24830 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24831 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24832 [verbose] > │ let v321 : Async<US4> option = None │
00:07:49 #24833 [verbose] > │ let mutable _v321 = v321 │
00:07:49 #24834 [verbose] > │ async { │
00:07:49 #24835 [verbose] > │ let! v316 = v316 │
00:07:49 #24836 [verbose] > │ let v322 : Choice<struct (int64 * string), exn> = v316 │
00:07:49 #24837 [verbose] > │ let v323 : US4 option = None │
00:07:49 #24838 [verbose] > │ let mutable _v323 = v323 │
00:07:49 #24839 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24840 [verbose] > │ let v324 : US4 = null |> unbox<US4> │
00:07:49 #24841 [verbose] > │ v324 │
00:07:49 #24842 [verbose] > │ #endif │
00:07:49 #24843 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24844 [verbose] > │ let v325 : US4 = null |> unbox<US4> │
00:07:49 #24845 [verbose] > │ v325 │
00:07:49 #24846 [verbose] > │ #endif │
00:07:49 #24847 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24848 [verbose] > │ let v326 : US4 = null |> unbox<US4> │
00:07:49 #24849 [verbose] > │ v326 │
00:07:49 #24850 [verbose] > │ #endif │
00:07:49 #24851 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24852 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24853 [verbose] > │ let v327 : (struct (int64 * string) -> US4) = closure23() │
00:07:49 #24854 [verbose] > │ let v328 : (exn -> US4) = closure24() │
00:07:49 #24855 [verbose] > │ let v329 : US4 = match v322 with Choice1Of2 x -> v327 x | Choice2Of2 x │
00:07:49 #24856 [verbose] > │ -> v328 x │
00:07:49 #24857 [verbose] > │ v329 │
00:07:49 #24858 [verbose] > │ #endif │
00:07:49 #24859 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24860 [verbose] > │ let v330 : US4 = null |> unbox<US4> │
00:07:49 #24861 [verbose] > │ v330 │
00:07:49 #24862 [verbose] > │ #endif │
00:07:49 #24863 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24864 [verbose] > │ let v331 : US4 = Unchecked.defaultof<US4> │
00:07:49 #24865 [verbose] > │ v331 │
00:07:49 #24866 [verbose] > │ #endif │
00:07:49 #24867 [verbose] > │ |> fun x -> _v323 <- Some x │
00:07:49 #24868 [verbose] > │ let v332 : US4 = _v323.Value │
00:07:49 #24869 [verbose] > │ return v332 │
00:07:49 #24870 [verbose] > │ } │
00:07:49 #24871 [verbose] > │ |> fun x -> _v321 <- Some x │
00:07:49 #24872 [verbose] > │ let v333 : Async<US4> = _v321 |> Option.get │
00:07:49 #24873 [verbose] > │ v333 │
00:07:49 #24874 [verbose] > │ #endif │
00:07:49 #24875 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24876 [verbose] > │ let v334 : Async<US4> = null |> unbox<Async<US4>> │
00:07:49 #24877 [verbose] > │ v334 │
00:07:49 #24878 [verbose] > │ #endif │
00:07:49 #24879 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24880 [verbose] > │ let v335 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:07:49 #24881 [verbose] > │ v335 │
00:07:49 #24882 [verbose] > │ #endif │
00:07:49 #24883 [verbose] > │ |> fun x -> _v317 <- Some x │
00:07:49 #24884 [verbose] > │ let v336 : Async<US4> = _v317.Value │
00:07:49 #24885 [verbose] > │ let v337 : Async<US5> option = None │
00:07:49 #24886 [verbose] > │ let mutable _v337 = v337 │
00:07:49 #24887 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24888 [verbose] > │ let v338 : Async<US5> = null |> unbox<Async<US5>> │
00:07:49 #24889 [verbose] > │ v338 │
00:07:49 #24890 [verbose] > │ #endif │
00:07:49 #24891 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24892 [verbose] > │ let v339 : Async<US5> = null |> unbox<Async<US5>> │
00:07:49 #24893 [verbose] > │ v339 │
00:07:49 #24894 [verbose] > │ #endif │
00:07:49 #24895 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24896 [verbose] > │ let v340 : Async<US5> = null |> unbox<Async<US5>> │
00:07:49 #24897 [verbose] > │ v340 │
00:07:49 #24898 [verbose] > │ #endif │
00:07:49 #24899 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24900 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24901 [verbose] > │ let v341 : Async<US5> option = None │
00:07:49 #24902 [verbose] > │ let mutable _v341 = v341 │
00:07:49 #24903 [verbose] > │ async { │
00:07:49 #24904 [verbose] > │ let! v336 = v336 │
00:07:49 #24905 [verbose] > │ let v342 : US4 = v336 │
00:07:49 #24906 [verbose] > │ let v349 : US5 = │
00:07:49 #24907 [verbose] > │ match v342 with │
00:07:49 #24908 [verbose] > │ | US4_0(v343, v344) -> (* Choice1Of2 *) │
00:07:49 #24909 [verbose] > │ US5_0(v343, v344) │
00:07:49 #24910 [verbose] > │ | US4_1(v346) -> (* Choice2Of2 *) │
00:07:49 #24911 [verbose] > │ US5_1(v346) │
00:07:49 #24912 [verbose] > │ return v349 │
00:07:49 #24913 [verbose] > │ } │
00:07:49 #24914 [verbose] > │ |> fun x -> _v341 <- Some x │
00:07:49 #24915 [verbose] > │ let v350 : Async<US5> = _v341 |> Option.get │
00:07:49 #24916 [verbose] > │ v350 │
00:07:49 #24917 [verbose] > │ #endif │
00:07:49 #24918 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24919 [verbose] > │ let v351 : Async<US5> = null |> unbox<Async<US5>> │
00:07:49 #24920 [verbose] > │ v351 │
00:07:49 #24921 [verbose] > │ #endif │
00:07:49 #24922 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #24923 [verbose] > │ let v352 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:07:49 #24924 [verbose] > │ v352 │
00:07:49 #24925 [verbose] > │ #endif │
00:07:49 #24926 [verbose] > │ |> fun x -> _v337 <- Some x │
00:07:49 #24927 [verbose] > │ let v353 : Async<US5> = _v337.Value │
00:07:49 #24928 [verbose] > │ let v354 : Async<US3> option = None │
00:07:49 #24929 [verbose] > │ let mutable _v354 = v354 │
00:07:49 #24930 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24931 [verbose] > │ let v355 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #24932 [verbose] > │ v355 │
00:07:49 #24933 [verbose] > │ #endif │
00:07:49 #24934 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24935 [verbose] > │ let v356 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #24936 [verbose] > │ v356 │
00:07:49 #24937 [verbose] > │ #endif │
00:07:49 #24938 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24939 [verbose] > │ let v357 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #24940 [verbose] > │ v357 │
00:07:49 #24941 [verbose] > │ #endif │
00:07:49 #24942 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24943 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24944 [verbose] > │ let v358 : Async<US3> option = None │
00:07:49 #24945 [verbose] > │ let mutable _v358 = v358 │
00:07:49 #24946 [verbose] > │ async { │
00:07:49 #24947 [verbose] > │ let! v353 = v353 │
00:07:49 #24948 [verbose] > │ let v359 : US5 = v353 │
00:07:49 #24949 [verbose] > │ let v385 : US3 = │
00:07:49 #24950 [verbose] > │ match v359 with │
00:07:49 #24951 [verbose] > │ | US5_1(v363) -> (* Error *) │
00:07:49 #24952 [verbose] > │ let v364 : string = $"%A{v363}" │
00:07:49 #24953 [verbose] > │ let v365 : string = "System.TimeoutException" │
00:07:49 #24954 [verbose] > │ let v366 : bool = v364.Contains v365 │
00:07:49 #24955 [verbose] > │ if v366 then │
00:07:49 #24956 [verbose] > │ let v367 : US0 = US0_1 │
00:07:49 #24957 [verbose] > │ let v368 : (unit -> string) = closure25() │
00:07:49 #24958 [verbose] > │ let v369 : (unit -> string) = closure26() │
00:07:49 #24959 [verbose] > │ method5(v367, v368, v369) │
00:07:49 #24960 [verbose] > │ US3_1 │
00:07:49 #24961 [verbose] > │ else │
00:07:49 #24962 [verbose] > │ let v371 : string option = None │
00:07:49 #24963 [verbose] > │ let mutable _v371 = v371 │
00:07:49 #24964 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #24965 [verbose] > │ let v372 : string = $"%A{v363}" │
00:07:49 #24966 [verbose] > │ v372 │
00:07:49 #24967 [verbose] > │ #endif │
00:07:49 #24968 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #24969 [verbose] > │ let v373 : string = $"%A{v363}" │
00:07:49 #24970 [verbose] > │ v373 │
00:07:49 #24971 [verbose] > │ #endif │
00:07:49 #24972 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #24973 [verbose] > │ let v374 : string = $"%A{v363}" │
00:07:49 #24974 [verbose] > │ v374 │
00:07:49 #24975 [verbose] > │ #endif │
00:07:49 #24976 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #24977 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #24978 [verbose] > │ let v375 : string = $"{v363.GetType ()}: {v363.Message}" │
00:07:49 #24979 [verbose] > │ v375 │
00:07:49 #24980 [verbose] > │ #endif │
00:07:49 #24981 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #24982 [verbose] > │ let v376 : string = $"%A{v363}" │
00:07:49 #24983 [verbose] > │ v376 │
00:07:49 #24984 [verbose] > │ #endif │
00:07:49 #24985 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:49 #24986 [verbose] > │ FABLE_COMPILER_DART │
00:07:49 #24987 [verbose] > │ let v377 : string = Unchecked.defaultof<string> │
00:07:49 #24988 [verbose] > │ v377 │
00:07:49 #24989 [verbose] > │ #endif │
00:07:49 #24990 [verbose] > │ |> fun x -> _v371 <- Some x │
00:07:49 #24991 [verbose] > │ let v378 : string = _v371.Value │
00:07:49 #24992 [verbose] > │ let v379 : US0 = US0_4 │
00:07:49 #24993 [verbose] > │ let v380 : (unit -> string) = closure27(v378) │
00:07:49 #24994 [verbose] > │ let v381 : (unit -> string) = closure26() │
00:07:49 #24995 [verbose] > │ method5(v379, v380, v381) │
00:07:49 #24996 [verbose] > │ US3_1 │
00:07:49 #24997 [verbose] > │ | US5_0(v360, v361) -> (* Ok *) │
00:07:49 #24998 [verbose] > │ US3_0(v360, v361) │
00:07:49 #24999 [verbose] > │ return v385 │
00:07:49 #25000 [verbose] > │ } │
00:07:49 #25001 [verbose] > │ |> fun x -> _v358 <- Some x │
00:07:49 #25002 [verbose] > │ let v386 : Async<US3> = _v358 |> Option.get │
00:07:49 #25003 [verbose] > │ v386 │
00:07:49 #25004 [verbose] > │ #endif │
00:07:49 #25005 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #25006 [verbose] > │ let v387 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #25007 [verbose] > │ v387 │
00:07:49 #25008 [verbose] > │ #endif │
00:07:49 #25009 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #25010 [verbose] > │ let v388 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:07:49 #25011 [verbose] > │ v388 │
00:07:49 #25012 [verbose] > │ #endif │
00:07:49 #25013 [verbose] > │ |> fun x -> _v354 <- Some x │
00:07:49 #25014 [verbose] > │ let v389 : Async<US3> = _v354.Value │
00:07:49 #25015 [verbose] > │ return! v389 │
00:07:49 #25016 [verbose] > │ } │
00:07:49 #25017 [verbose] > │ |> fun x -> _v298 <- Some x │
00:07:49 #25018 [verbose] > │ let v390 : Async<US3> = _v298 |> Option.get │
00:07:49 #25019 [verbose] > │ v390 │
00:07:49 #25020 [verbose] > │ #endif │
00:07:49 #25021 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #25022 [verbose] > │ let v391 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #25023 [verbose] > │ v391 │
00:07:49 #25024 [verbose] > │ #endif │
00:07:49 #25025 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #25026 [verbose] > │ let v392 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:07:49 #25027 [verbose] > │ v392 │
00:07:49 #25028 [verbose] > │ #endif │
00:07:49 #25029 [verbose] > │ |> fun x -> _v294 <- Some x │
00:07:49 #25030 [verbose] > │ let v393 : Async<US3> = _v294.Value │
00:07:49 #25031 [verbose] > │ v393 │
00:07:49 #25032 [verbose] > │ #endif │
00:07:49 #25033 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #25034 [verbose] > │ let v394 : Async<US3> = null |> unbox<Async<US3>> │
00:07:49 #25035 [verbose] > │ v394 │
00:07:49 #25036 [verbose] > │ #endif │
00:07:49 #25037 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #25038 [verbose] > │ let v395 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:07:49 #25039 [verbose] > │ v395 │
00:07:49 #25040 [verbose] > │ #endif │
00:07:49 #25041 [verbose] > │ |> fun x -> _v290 <- Some x │
00:07:49 #25042 [verbose] > │ let v396 : Async<US3> = _v290.Value │
00:07:49 #25043 [verbose] > │ let v397 : US3 option = None │
00:07:49 #25044 [verbose] > │ let mutable _v397 = v397 │
00:07:49 #25045 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #25046 [verbose] > │ let v398 : US3 = null |> unbox<US3> │
00:07:49 #25047 [verbose] > │ v398 │
00:07:49 #25048 [verbose] > │ #endif │
00:07:49 #25049 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #25050 [verbose] > │ let v399 : US3 = null |> unbox<US3> │
00:07:49 #25051 [verbose] > │ v399 │
00:07:49 #25052 [verbose] > │ #endif │
00:07:49 #25053 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #25054 [verbose] > │ let v400 : US3 = null |> unbox<US3> │
00:07:49 #25055 [verbose] > │ v400 │
00:07:49 #25056 [verbose] > │ #endif │
00:07:49 #25057 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #25058 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #25059 [verbose] > │ let v401 : (Async<US3> -> US3) = Async.RunSynchronously │
00:07:49 #25060 [verbose] > │ let v402 : US3 = v401 v396 │
00:07:49 #25061 [verbose] > │ v402 │
00:07:49 #25062 [verbose] > │ #endif │
00:07:49 #25063 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #25064 [verbose] > │ let v403 : US3 = null |> unbox<US3> │
00:07:49 #25065 [verbose] > │ v403 │
00:07:49 #25066 [verbose] > │ #endif │
00:07:49 #25067 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:49 #25068 [verbose] > │ let v404 : US3 = Unchecked.defaultof<US3> │
00:07:49 #25069 [verbose] > │ v404 │
00:07:49 #25070 [verbose] > │ #endif │
00:07:49 #25071 [verbose] > │ |> fun x -> _v397 <- Some x │
00:07:49 #25072 [verbose] > │ let v405 : US3 = _v397.Value │
00:07:49 #25073 [verbose] > │ let v451 : bool = │
00:07:49 #25074 [verbose] > │ match v405 with │
00:07:49 #25075 [verbose] > │ | US3_0(v406, v407) -> (* Some *) │
00:07:49 #25076 [verbose] > │ let v408 : bool option = None │
00:07:49 #25077 [verbose] > │ let mutable _v408 = v408 │
00:07:49 #25078 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #25079 [verbose] > │ let v409 : bool = null |> unbox<bool> │
00:07:49 #25080 [verbose] > │ v409 │
00:07:49 #25081 [verbose] > │ #endif │
00:07:49 #25082 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #25083 [verbose] > │ let v410 : bool = null |> unbox<bool> │
00:07:49 #25084 [verbose] > │ v410 │
00:07:49 #25085 [verbose] > │ #endif │
00:07:49 #25086 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #25087 [verbose] > │ let v411 : bool = null |> unbox<bool> │
00:07:49 #25088 [verbose] > │ v411 │
00:07:49 #25089 [verbose] > │ #endif │
00:07:49 #25090 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #25091 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #25092 [verbose] > │ let v412 : System.Runtime.InteropServices.OSPlatform = │
00:07:49 #25093 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:07:49 #25094 [verbose] > │ let v413 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:07:49 #25095 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:07:49 #25096 [verbose] > │ let v414 : bool = v413 v412 │
00:07:49 #25097 [verbose] > │ v414 │
00:07:49 #25098 [verbose] > │ #endif │
00:07:49 #25099 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:49 #25100 [verbose] > │ let v415 : bool = null |> unbox<bool> │
00:07:49 #25101 [verbose] > │ v415 │
00:07:49 #25102 [verbose] > │ #endif │
00:07:49 #25103 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:49 #25104 [verbose] > │ FABLE_COMPILER_DART │
00:07:49 #25105 [verbose] > │ let v416 : bool = Unchecked.defaultof<bool> │
00:07:49 #25106 [verbose] > │ v416 │
00:07:49 #25107 [verbose] > │ #endif │
00:07:49 #25108 [verbose] > │ |> fun x -> _v408 <- Some x │
00:07:49 #25109 [verbose] > │ let v417 : bool = _v408.Value │
00:07:49 #25110 [verbose] > │ let v418 : int64 = │
00:07:49 #25111 [verbose] > │ if v417 then │
00:07:49 #25112 [verbose] > │ 50L │
00:07:49 #25113 [verbose] > │ else │
00:07:49 #25114 [verbose] > │ 100L │
00:07:49 #25115 [verbose] > │ let v419 : bool option = None │
00:07:49 #25116 [verbose] > │ let mutable _v419 = v419 │
00:07:49 #25117 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:49 #25118 [verbose] > │ let v420 : bool = null |> unbox<bool> │
00:07:49 #25119 [verbose] > │ v420 │
00:07:49 #25120 [verbose] > │ #endif │
00:07:49 #25121 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:49 #25122 [verbose] > │ let v421 : bool = null |> unbox<bool> │
00:07:49 #25123 [verbose] > │ v421 │
00:07:49 #25124 [verbose] > │ #endif │
00:07:49 #25125 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:49 #25126 [verbose] > │ let v422 : bool = null |> unbox<bool> │
00:07:49 #25127 [verbose] > │ v422 │
00:07:49 #25128 [verbose] > │ #endif │
00:07:49 #25129 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:49 #25130 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:49 #25131 [verbose] > │ let v423 : System.Runtime.InteropServices.OSPlatform = │
00:07:49 #25132 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:07:49 #25133 [verbose] > │ let v424 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:07:49 #25134 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:07:49 #25135 [verbose] > │ let v425 : bool = v424 v423 │
00:07:49 #25136 [verbose] > │ v425 │
00:07:49 #25137 [verbose] > │ #endif │
00:07:50 #25138 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:50 #25139 [verbose] > │ let v426 : bool = null |> unbox<bool> │
00:07:50 #25140 [verbose] > │ v426 │
00:07:50 #25141 [verbose] > │ #endif │
00:07:50 #25142 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:50 #25143 [verbose] > │ FABLE_COMPILER_DART │
00:07:50 #25144 [verbose] > │ let v427 : bool = Unchecked.defaultof<bool> │
00:07:50 #25145 [verbose] > │ v427 │
00:07:50 #25146 [verbose] > │ #endif │
00:07:50 #25147 [verbose] > │ |> fun x -> _v419 <- Some x │
00:07:50 #25148 [verbose] > │ let v428 : bool = _v419.Value │
00:07:50 #25149 [verbose] > │ let v429 : int64 = │
00:07:50 #25150 [verbose] > │ if v428 then │
00:07:50 #25151 [verbose] > │ 150L │
00:07:50 #25152 [verbose] > │ else │
00:07:50 #25153 [verbose] > │ 200L │
00:07:50 #25154 [verbose] > │ let v430 : string = $"%A{v406}" │
00:07:50 #25155 [verbose] > │ System.Console.WriteLine v430 │
00:07:50 #25156 [verbose] > │ let v431 : string = $"%A{v406}" │
00:07:50 #25157 [verbose] > │ System.Console.WriteLine v431 │
00:07:50 #25158 [verbose] > │ let v432 : bool = v406 >= v418 │
00:07:50 #25159 [verbose] > │ let v434 : bool = │
00:07:50 #25160 [verbose] > │ if v432 then │
00:07:50 #25161 [verbose] > │ true │
00:07:50 #25162 [verbose] > │ else │
00:07:50 #25163 [verbose] > │ method12(v432) │
00:07:50 #25164 [verbose] > │ let v435 : string = $"__expect / actual: %A{v406} / expected: │
00:07:50 #25165 [verbose] > │ %A{v418}" │
00:07:50 #25166 [verbose] > │ let v436 : bool = v434 = false │
00:07:50 #25167 [verbose] > │ if v436 then │
00:07:50 #25168 [verbose] > │ failwith<unit> v435 │
00:07:50 #25169 [verbose] > │ let v437 : string = $"%A{v406}" │
00:07:50 #25170 [verbose] > │ System.Console.WriteLine v437 │
00:07:50 #25171 [verbose] > │ let v438 : bool = v406 <= v429 │
00:07:50 #25172 [verbose] > │ let v440 : bool = │
00:07:50 #25173 [verbose] > │ if v438 then │
00:07:50 #25174 [verbose] > │ true │
00:07:50 #25175 [verbose] > │ else │
00:07:50 #25176 [verbose] > │ method12(v438) │
00:07:50 #25177 [verbose] > │ let v441 : string = $"__expect / actual: %A{v406} / expected: │
00:07:50 #25178 [verbose] > │ %A{v429}" │
00:07:50 #25179 [verbose] > │ let v442 : bool = v440 = false │
00:07:50 #25180 [verbose] > │ if v442 then │
00:07:50 #25181 [verbose] > │ failwith<unit> v441 │
00:07:50 #25182 [verbose] > │ let v443 : string = $"__expect / actual: %A{v406} / expected: │
00:07:50 #25183 [verbose] > │ %A{struct (v418, v429)}" │
00:07:50 #25184 [verbose] > │ let v444 : string = method13() │
00:07:50 #25185 [verbose] > │ let v445 : string = $"%A{v407}" │
00:07:50 #25186 [verbose] > │ System.Console.WriteLine v445 │
00:07:50 #25187 [verbose] > │ let v446 : bool = v407 = v444 │
00:07:50 #25188 [verbose] > │ let v448 : bool = │
00:07:50 #25189 [verbose] > │ if v446 then │
00:07:50 #25190 [verbose] > │ true │
00:07:50 #25191 [verbose] > │ else │
00:07:50 #25192 [verbose] > │ method12(v446) │
00:07:50 #25193 [verbose] > │ let v449 : string = $"__expect / actual: %A{v407} / expected: │
00:07:50 #25194 [verbose] > │ %A{v444}" │
00:07:50 #25195 [verbose] > │ let v450 : bool = v448 = false │
00:07:50 #25196 [verbose] > │ if v450 then │
00:07:50 #25197 [verbose] > │ failwith<unit> v449 │
00:07:50 #25198 [verbose] > │ true │
00:07:50 #25199 [verbose] > │ | _ -> │
00:07:50 #25200 [verbose] > │ false │
00:07:50 #25201 [verbose] > │ let v452 : string = $"%A{v451}" │
00:07:50 #25202 [verbose] > │ System.Console.WriteLine v452 │
00:07:50 #25203 [verbose] > │ let v454 : bool = │
00:07:50 #25204 [verbose] > │ if v451 then │
00:07:50 #25205 [verbose] > │ true │
00:07:50 #25206 [verbose] > │ else │
00:07:50 #25207 [verbose] > │ method12(v451) │
00:07:50 #25208 [verbose] > │ let v455 : string = $"__expect / actual: %A{v451} / expected: %A{true}" │
00:07:50 #25209 [verbose] > │ let v456 : bool = v454 = false │
00:07:50 #25210 [verbose] > │ if v456 then │
00:07:50 #25211 [verbose] > │ failwith<unit> v455 │
00:07:50 #25212 [verbose] > │ method0() │
00:07:50 #25213 [verbose] > │ │
00:07:50 #25214 [verbose] > │ 00:00:00 #1 [debug] 1 │
00:07:50 #25215 [verbose] > │ 00:00:00 #2 [debug] 2 │
00:07:50 #25216 [verbose] > │ 00:00:00 #3 [debug] 3 │
00:07:50 #25217 [verbose] > │ 00:00:00 #4 [debug] _1 │
00:07:50 #25218 [verbose] > │ 00:00:00 #5 [debug] _2 │
00:07:50 #25219 [verbose] > │ 00:00:00 #6 [debug] 4 │
00:07:50 #25220 [verbose] > │ wait_for_file_access / path: test.txt / retry: 100 / ex: │
00:07:50 #25221 [verbose] > │ System.IO.IOException: The process cannot access the file │
00:07:50 #25222 [verbose] > │ 'C:\Users\i574n\AppData\Local\Temp\!dotnet-repl\20240411-2051-5065-6543-6a25 │
00:07:50 #25223 [verbose] > │ 511a50fe\test.txt' because it is being used by another process. / │
00:07:50 #25224 [verbose] > │ 00:00:01 #7 [debug] _3 │
00:07:50 #25225 [verbose] > │ 00:00:01 #8 [debug] _4 │
00:07:50 #25226 [verbose] > │ 00:00:01 #9 [debug] _5 │
00:07:50 #25227 [verbose] > │ 00:00:01 #10 [debug] _6 │
00:07:50 #25228 [verbose] > │ 00:00:02 #11 [debug] 5 │
00:07:50 #25229 [verbose] > │ 00:00:02 #12 [debug] 6 │
00:07:50 #25230 [verbose] > │ 00:00:02 #13 [debug] 7 │
00:07:50 #25231 [verbose] > │ 128L │
00:07:50 #25232 [verbose] > │ 128L │
00:07:50 #25233 [verbose] > │ 128L │
00:07:50 #25234 [verbose] > │ "1" │
00:07:50 #25235 [verbose] > │ true │
00:07:50 #25236 [verbose] > │ │
00:07:50 #25237 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:50 #25238 [verbose] >
00:07:50 #25239 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:50 #25240 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:50 #25241 [verbose] > │ ## read_all_text_retry_async │
00:07:50 #25242 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:50 #25243 [verbose] >
00:07:50 #25244 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:50 #25245 [verbose] > inl read_all_text_retry_async full_path : async.async (optionm'.option' string)
00:07:50 #25246 [verbose] > =
00:07:50 #25247 [verbose] > run_target function
00:07:50 #25248 [verbose] > | Fsharp (Native) => fun () =>
00:07:50 #25249 [verbose] > let rec loop (retry : i64) =
00:07:50 #25250 [verbose] > fun () =>
00:07:50 #25251 [verbose] > try_unit
00:07:50 #25252 [verbose] > fun () =>
00:07:50 #25253 [verbose] > if retry > 0
00:07:50 #25254 [verbose] > then
00:07:50 #25255 [verbose] > full_path
00:07:50 #25256 [verbose] > |> wait_for_file_access_read
00:07:50 #25257 [verbose] > |> async.run_with_timeout_async 1000
00:07:50 #25258 [verbose] > |> async.ignore
00:07:50 #25259 [verbose] > |> async.do
00:07:50 #25260 [verbose] > full_path |> read_all_text_async |> async.map (Some
00:07:50 #25261 [verbose] > >> optionm'.box) |> async.return_await
00:07:50 #25262 [verbose] > fun ex =>
00:07:50 #25263 [verbose] > if retry <> 0 then
00:07:50 #25264 [verbose] > inl ex = ex |> sm'.format_exception
00:07:50 #25265 [verbose] > let get_locals () = $'$"retry: {!retry} / ex:
00:07:50 #25266 [verbose] > {!ex} / {!get_locals ()}"' : string
00:07:50 #25267 [verbose] > trace Debug (fun () =>
00:07:50 #25268 [verbose] > $'"read_all_text_retry_async"' : string) get_locals
00:07:50 #25269 [verbose] > (None : _ string) |> optionm'.box |> return |>
00:07:50 #25270 [verbose] > fun x => $'(*' : ()
00:07:50 #25271 [verbose] > else
00:07:50 #25272 [verbose] > $'*) else' : ()
00:07:50 #25273 [verbose] > loop (retry + 1) |> async.return_await |> fun x
00:07:50 #25274 [verbose] > => $'(*' : ()
00:07:50 #25275 [verbose] > |> fun x => $'*)' : ()
00:07:50 #25276 [verbose] > |> async.new_async
00:07:50 #25277 [verbose] > loop 0
00:07:50 #25278 [verbose] > | _ => fun () => null ()
00:07:50 #25279 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c97661bb7d90b7dbbda98e7929544298fb87bdcc826f31239eae7604cdd5adc8\main.spi
00:07:50 #25280 [verbose] >
00:07:50 #25281 [verbose] > ╭─[ 581.21ms - stdout ]────────────────────────────────────────────────────────╮
00:07:50 #25282 [verbose] > │ () │
00:07:50 #25283 [verbose] > │ │
00:07:50 #25284 [verbose] > │ │
00:07:50 #25285 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:50 #25286 [verbose] >
00:07:50 #25287 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:50 #25288 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:50 #25289 [verbose] > │ ## delete_file_async │
00:07:50 #25290 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:50 #25291 [verbose] >
00:07:50 #25292 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:50 #25293 [verbose] > inl delete_file_async path : _ i64 =
00:07:50 #25294 [verbose] > run_target function
00:07:50 #25295 [verbose] > | Fsharp (Native) => fun () =>
00:07:50 #25296 [verbose] > let rec loop (retry : i64) =
00:07:50 #25297 [verbose] > fun () =>
00:07:50 #25298 [verbose] > try_unit
00:07:50 #25299 [verbose] > fun () =>
00:07:50 #25300 [verbose] > path |> file_delete
00:07:50 #25301 [verbose] > return retry
00:07:50 #25302 [verbose] > fun ex =>
00:07:50 #25303 [verbose] > if retry % 100 = 0 then
00:07:50 #25304 [verbose] > inl ex = ex |> sm'.format_exception
00:07:50 #25305 [verbose] > let getLocals () = $'$"path: {!path |>
00:07:50 #25306 [verbose] > !get_file_name} / ex: {ex} / {!get_locals ()}"'
00:07:50 #25307 [verbose] > trace Warning (fun () => "delete_file_async")
00:07:50 #25308 [verbose] > get_locals
00:07:50 #25309 [verbose] > async.sleep 10 |> async.do
00:07:50 #25310 [verbose] > loop (retry + 1) |> async.return_await
00:07:50 #25311 [verbose] > |> async.new_async
00:07:50 #25312 [verbose] > loop 0
00:07:50 #25313 [verbose] > | _ => fun () => null ()
00:07:50 #25314 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\40effd6e0722d56acb791466fe9accefae10cbb3539b394232a15956a3d18e17\main.spi
00:07:50 #25315 [verbose] >
00:07:50 #25316 [verbose] > ╭─[ 198.62ms - stdout ]────────────────────────────────────────────────────────╮
00:07:50 #25317 [verbose] > │ () │
00:07:50 #25318 [verbose] > │ │
00:07:50 #25319 [verbose] > │ │
00:07:50 #25320 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:50 #25321 [verbose] >
00:07:50 #25322 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:50 #25323 [verbose] > // // test
00:07:50 #25324 [verbose] >
00:07:50 #25325 [verbose] > inl lock_file path =
00:07:50 #25326 [verbose] > fun () =>
00:07:50 #25327 [verbose] > trace Debug (fun () => "_1") get_locals
00:07:50 #25328 [verbose] > file_stream
00:07:50 #25329 [verbose] > path
00:07:50 #25330 [verbose] > ModeOpen
00:07:50 #25331 [verbose] > AccessReadWrite
00:07:50 #25332 [verbose] > ShareNone
00:07:50 #25333 [verbose] > |> use
00:07:50 #25334 [verbose] > |> ignore
00:07:50 #25335 [verbose] > trace Debug (fun () => "_2") get_locals
00:07:50 #25336 [verbose] > async.sleep 2000 |> async.do
00:07:50 #25337 [verbose] > trace Debug (fun () => "_3") get_locals
00:07:50 #25338 [verbose] > |> async.new_async
00:07:50 #25339 [verbose] >
00:07:50 #25340 [verbose] > inl temp_dir, disposable = create_temp_directory ()
00:07:50 #25341 [verbose] > disposable |> use |> ignore
00:07:50 #25342 [verbose] > inl path = temp_dir </> "test.txt"
00:07:50 #25343 [verbose] >
00:07:50 #25344 [verbose] > fun () =>
00:07:50 #25345 [verbose] > trace Debug (fun () => "1") get_locals
00:07:50 #25346 [verbose] > "0" |> write_all_text_async path |> async.do
00:07:50 #25347 [verbose] > trace Debug (fun () => "2") get_locals
00:07:50 #25348 [verbose] > inl child = lock_file path |> async.start_child |> async.let'
00:07:50 #25349 [verbose] > trace Debug (fun () => "3") get_locals
00:07:50 #25350 [verbose] > async.sleep 1 |> async.do
00:07:50 #25351 [verbose] > trace Debug (fun () => "4") get_locals
00:07:50 #25352 [verbose] > inl retries = delete_file_async path |> async.let'
00:07:50 #25353 [verbose] > trace Debug (fun () => "5") get_locals
00:07:50 #25354 [verbose] > child |> async.do
00:07:50 #25355 [verbose] > trace Debug (fun () => "6") get_locals
00:07:50 #25356 [verbose] > return retries
00:07:50 #25357 [verbose] > |> async.new_async_unit
00:07:50 #25358 [verbose] > |> async.run_with_timeout 3000
00:07:50 #25359 [verbose] > |> function
00:07:50 #25360 [verbose] > | Some (retries : i64) =>
00:07:50 #25361 [verbose] > retries
00:07:50 #25362 [verbose] > |> _assert_between
00:07:50 #25363 [verbose] > (if runtime.is_windows () then 50 else 0)
00:07:50 #25364 [verbose] > (if runtime.is_windows () then 150 else 0)
00:07:50 #25365 [verbose] >
00:07:50 #25366 [verbose] > true
00:07:50 #25367 [verbose] > | _ => false
00:07:50 #25368 [verbose] > |> _assert_eq true
00:07:50 #25369 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d63f45ae5de73af5d014b82ee9bcae4876c9f6019823c78408423f1586c074dc\main.spi
00:07:53 #25370 [verbose] >
00:07:53 #25371 [verbose] > ╭─[ 2.80s - stdout ]───────────────────────────────────────────────────────────╮
00:07:53 #25372 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:07:53 #25373 [verbose] > │ string │
00:07:53 #25374 [verbose] > │ module State = let mutable trace_state = None │
00:07:53 #25375 [verbose] > │ type [<Struct>] US0 = │
00:07:53 #25376 [verbose] > │ | US0_0 │
00:07:53 #25377 [verbose] > │ | US0_1 │
00:07:53 #25378 [verbose] > │ | US0_2 │
00:07:53 #25379 [verbose] > │ | US0_3 │
00:07:53 #25380 [verbose] > │ | US0_4 │
00:07:53 #25381 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:07:53 #25382 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:07:53 #25383 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:07:53 #25384 [verbose] > │ and [<Struct>] US1 = │
00:07:53 #25385 [verbose] > │ | US1_0 of f0_0 : int64 │
00:07:53 #25386 [verbose] > │ | US1_1 │
00:07:53 #25387 [verbose] > │ and [<Struct>] US2 = │
00:07:53 #25388 [verbose] > │ | US2_0 of f0_0 : int64 │
00:07:53 #25389 [verbose] > │ | US2_1 │
00:07:53 #25390 [verbose] > │ and [<Struct>] US3 = │
00:07:53 #25391 [verbose] > │ | US3_0 of f0_0 : int64 │
00:07:53 #25392 [verbose] > │ | US3_1 of f1_0 : exn │
00:07:53 #25393 [verbose] > │ and [<Struct>] US4 = │
00:07:53 #25394 [verbose] > │ | US4_0 of f0_0 : int64 │
00:07:53 #25395 [verbose] > │ | US4_1 of f1_0 : exn │
00:07:53 #25396 [verbose] > │ let rec closure0 () () : string = │
00:07:53 #25397 [verbose] > │ let v0 : string option = None │
00:07:53 #25398 [verbose] > │ let mutable _v0 = v0 │
00:07:53 #25399 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25400 [verbose] > │ let v1 : string = null |> unbox<string> │
00:07:53 #25401 [verbose] > │ v1 │
00:07:53 #25402 [verbose] > │ #endif │
00:07:53 #25403 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25404 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:53 #25405 [verbose] > │ v2 │
00:07:53 #25406 [verbose] > │ #endif │
00:07:53 #25407 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25408 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:53 #25409 [verbose] > │ v3 │
00:07:53 #25410 [verbose] > │ #endif │
00:07:53 #25411 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25412 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25413 [verbose] > │ let v4 : string = │
00:07:53 #25414 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:53 #25415 [verbose] > │ v4 │
00:07:53 #25416 [verbose] > │ #endif │
00:07:53 #25417 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25418 [verbose] > │ let v5 : string = null |> unbox<string> │
00:07:53 #25419 [verbose] > │ v5 │
00:07:53 #25420 [verbose] > │ #endif │
00:07:53 #25421 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #25422 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:07:53 #25423 [verbose] > │ v6 │
00:07:53 #25424 [verbose] > │ #endif │
00:07:53 #25425 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:53 #25426 [verbose] > │ let v7 : string = _v0.Value │
00:07:53 #25427 [verbose] > │ v7 │
00:07:53 #25428 [verbose] > │ and method1 (v0 : string) : string = │
00:07:53 #25429 [verbose] > │ v0 │
00:07:53 #25430 [verbose] > │ and closure2 () () : string = │
00:07:53 #25431 [verbose] > │ let v0 : string = "" │
00:07:53 #25432 [verbose] > │ v0 │
00:07:53 #25433 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:07:53 #25434 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:07:53 #25435 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:07:53 #25436 [verbose] > │ v3 │
00:07:53 #25437 [verbose] > │ and closure5 () (v0 : string) : string = │
00:07:53 #25438 [verbose] > │ let v1 : string option = None │
00:07:53 #25439 [verbose] > │ let mutable _v1 = v1 │
00:07:53 #25440 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25441 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:53 #25442 [verbose] > │ v2 │
00:07:53 #25443 [verbose] > │ #endif │
00:07:53 #25444 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25445 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:53 #25446 [verbose] > │ v3 │
00:07:53 #25447 [verbose] > │ #endif │
00:07:53 #25448 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25449 [verbose] > │ let v4 : string = null |> unbox<string> │
00:07:53 #25450 [verbose] > │ v4 │
00:07:53 #25451 [verbose] > │ #endif │
00:07:53 #25452 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25453 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25454 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:07:53 #25455 [verbose] > │ let v6 : string = v5 v0 │
00:07:53 #25456 [verbose] > │ v6 │
00:07:53 #25457 [verbose] > │ #endif │
00:07:53 #25458 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25459 [verbose] > │ let v7 : string = null |> unbox<string> │
00:07:53 #25460 [verbose] > │ v7 │
00:07:53 #25461 [verbose] > │ #endif │
00:07:53 #25462 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #25463 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:07:53 #25464 [verbose] > │ v8 │
00:07:53 #25465 [verbose] > │ #endif │
00:07:53 #25466 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:53 #25467 [verbose] > │ let v9 : string = _v1.Value │
00:07:53 #25468 [verbose] > │ v9 │
00:07:53 #25469 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:07:53 #25470 [verbose] > │ let v2 : (string -> string) = closure5() │
00:07:53 #25471 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:07:53 #25472 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:07:53 #25473 [verbose] > │ v4 │
00:07:53 #25474 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:07:53 #25475 [verbose] > │ method3(v0, v1) │
00:07:53 #25476 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:07:53 #25477 [verbose] > │ let v2 : Async<int64> option = None │
00:07:53 #25478 [verbose] > │ let mutable _v2 = v2 │
00:07:53 #25479 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25480 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #25481 [verbose] > │ v3 │
00:07:53 #25482 [verbose] > │ #endif │
00:07:53 #25483 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25484 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #25485 [verbose] > │ v4 │
00:07:53 #25486 [verbose] > │ #endif │
00:07:53 #25487 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25488 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #25489 [verbose] > │ v5 │
00:07:53 #25490 [verbose] > │ #endif │
00:07:53 #25491 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25492 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25493 [verbose] > │ let v6 : Async<int64> option = None │
00:07:53 #25494 [verbose] > │ let mutable _v6 = v6 │
00:07:53 #25495 [verbose] > │ async { │
00:07:53 #25496 [verbose] > │ try │
00:07:53 #25497 [verbose] > │ let v7 : unit option = None │
00:07:53 #25498 [verbose] > │ let mutable _v7 = v7 │
00:07:53 #25499 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25500 [verbose] > │ null |> unbox<unit> │
00:07:53 #25501 [verbose] > │ () │
00:07:53 #25502 [verbose] > │ #endif │
00:07:53 #25503 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25504 [verbose] > │ null |> unbox<unit> │
00:07:53 #25505 [verbose] > │ () │
00:07:53 #25506 [verbose] > │ #endif │
00:07:53 #25507 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25508 [verbose] > │ null |> unbox<unit> │
00:07:53 #25509 [verbose] > │ () │
00:07:53 #25510 [verbose] > │ #endif │
00:07:53 #25511 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25512 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25513 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:07:53 #25514 [verbose] > │ () │
00:07:53 #25515 [verbose] > │ #endif │
00:07:53 #25516 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25517 [verbose] > │ null |> unbox<unit> │
00:07:53 #25518 [verbose] > │ () │
00:07:53 #25519 [verbose] > │ #endif │
00:07:53 #25520 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #25521 [verbose] > │ Unchecked.defaultof<unit> │
00:07:53 #25522 [verbose] > │ () │
00:07:53 #25523 [verbose] > │ #endif │
00:07:53 #25524 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:53 #25525 [verbose] > │ _v7.Value │
00:07:53 #25526 [verbose] > │ return v1 │
00:07:53 #25527 [verbose] > │ with ex -> │
00:07:53 #25528 [verbose] > │ let v8 : exn = ex │
00:07:53 #25529 [verbose] > │ let v9 : int64 = v1 % 100L │
00:07:53 #25530 [verbose] > │ let v10 : bool = v9 = 0L │
00:07:53 #25531 [verbose] > │ if v10 then │
00:07:53 #25532 [verbose] > │ let v11 : string option = None │
00:07:53 #25533 [verbose] > │ let mutable _v11 = v11 │
00:07:53 #25534 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25535 [verbose] > │ let v12 : string = $"%A{v8}" │
00:07:53 #25536 [verbose] > │ v12 │
00:07:53 #25537 [verbose] > │ #endif │
00:07:53 #25538 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25539 [verbose] > │ let v13 : string = $"%A{v8}" │
00:07:53 #25540 [verbose] > │ v13 │
00:07:53 #25541 [verbose] > │ #endif │
00:07:53 #25542 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25543 [verbose] > │ let v14 : string = $"%A{v8}" │
00:07:53 #25544 [verbose] > │ v14 │
00:07:53 #25545 [verbose] > │ #endif │
00:07:53 #25546 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25547 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25548 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:07:53 #25549 [verbose] > │ v15 │
00:07:53 #25550 [verbose] > │ #endif │
00:07:53 #25551 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25552 [verbose] > │ let v16 : string = $"%A{v8}" │
00:07:53 #25553 [verbose] > │ v16 │
00:07:53 #25554 [verbose] > │ #endif │
00:07:53 #25555 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:53 #25556 [verbose] > │ FABLE_COMPILER_DART │
00:07:53 #25557 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:07:53 #25558 [verbose] > │ v17 │
00:07:53 #25559 [verbose] > │ #endif │
00:07:53 #25560 [verbose] > │ |> fun x -> _v11 <- Some x │
00:07:53 #25561 [verbose] > │ let v18 : string = _v11.Value │
00:07:53 #25562 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:07:53 #25563 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:07:53 #25564 [verbose] > │ System.Console.WriteLine v20 │
00:07:53 #25565 [verbose] > │ () │
00:07:53 #25566 [verbose] > │ let v21 : Async<unit> option = None │
00:07:53 #25567 [verbose] > │ let mutable _v21 = v21 │
00:07:53 #25568 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25569 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #25570 [verbose] > │ v22 │
00:07:53 #25571 [verbose] > │ #endif │
00:07:53 #25572 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25573 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #25574 [verbose] > │ v23 │
00:07:53 #25575 [verbose] > │ #endif │
00:07:53 #25576 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25577 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #25578 [verbose] > │ v24 │
00:07:53 #25579 [verbose] > │ #endif │
00:07:53 #25580 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25581 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25582 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:07:53 #25583 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:07:53 #25584 [verbose] > │ v26 │
00:07:53 #25585 [verbose] > │ #endif │
00:07:53 #25586 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25587 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #25588 [verbose] > │ v27 │
00:07:53 #25589 [verbose] > │ #endif │
00:07:53 #25590 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #25591 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:53 #25592 [verbose] > │ v28 │
00:07:53 #25593 [verbose] > │ #endif │
00:07:53 #25594 [verbose] > │ |> fun x -> _v21 <- Some x │
00:07:53 #25595 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:07:53 #25596 [verbose] > │ do! v29 │
00:07:53 #25597 [verbose] > │ let v30 : int64 = v1 + 1L │
00:07:53 #25598 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:07:53 #25599 [verbose] > │ return! v31 │
00:07:53 #25600 [verbose] > │ (* │
00:07:53 #25601 [verbose] > │ let v32 : int64 = *) │
00:07:53 #25602 [verbose] > │ } │
00:07:53 #25603 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:53 #25604 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:07:53 #25605 [verbose] > │ v33 │
00:07:53 #25606 [verbose] > │ #endif │
00:07:53 #25607 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25608 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #25609 [verbose] > │ v34 │
00:07:53 #25610 [verbose] > │ #endif │
00:07:53 #25611 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #25612 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:53 #25613 [verbose] > │ v35 │
00:07:53 #25614 [verbose] > │ #endif │
00:07:53 #25615 [verbose] > │ |> fun x -> _v2 <- Some x │
00:07:53 #25616 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:07:53 #25617 [verbose] > │ v36 │
00:07:53 #25618 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:07:53 #25619 [verbose] > │ let v1 : Async<int64> option = None │
00:07:53 #25620 [verbose] > │ let mutable _v1 = v1 │
00:07:53 #25621 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25622 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #25623 [verbose] > │ v2 │
00:07:53 #25624 [verbose] > │ #endif │
00:07:53 #25625 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25626 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #25627 [verbose] > │ v3 │
00:07:53 #25628 [verbose] > │ #endif │
00:07:53 #25629 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25630 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #25631 [verbose] > │ v4 │
00:07:53 #25632 [verbose] > │ #endif │
00:07:53 #25633 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25634 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25635 [verbose] > │ let v5 : int64 = 0L │
00:07:53 #25636 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:07:53 #25637 [verbose] > │ v6 │
00:07:53 #25638 [verbose] > │ #endif │
00:07:53 #25639 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25640 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #25641 [verbose] > │ v7 │
00:07:53 #25642 [verbose] > │ #endif │
00:07:53 #25643 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #25644 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:53 #25645 [verbose] > │ v8 │
00:07:53 #25646 [verbose] > │ #endif │
00:07:53 #25647 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:53 #25648 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:07:53 #25649 [verbose] > │ let v10 : Async<unit> option = None │
00:07:53 #25650 [verbose] > │ let mutable _v10 = v10 │
00:07:53 #25651 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25652 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #25653 [verbose] > │ v11 │
00:07:53 #25654 [verbose] > │ #endif │
00:07:53 #25655 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25656 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #25657 [verbose] > │ v12 │
00:07:53 #25658 [verbose] > │ #endif │
00:07:53 #25659 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25660 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #25661 [verbose] > │ v13 │
00:07:53 #25662 [verbose] > │ #endif │
00:07:53 #25663 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25664 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25665 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:07:53 #25666 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:07:53 #25667 [verbose] > │ v15 │
00:07:53 #25668 [verbose] > │ #endif │
00:07:53 #25669 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25670 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #25671 [verbose] > │ v16 │
00:07:53 #25672 [verbose] > │ #endif │
00:07:53 #25673 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #25674 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:53 #25675 [verbose] > │ v17 │
00:07:53 #25676 [verbose] > │ #endif │
00:07:53 #25677 [verbose] > │ |> fun x -> _v10 <- Some x │
00:07:53 #25678 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:07:53 #25679 [verbose] > │ let v19 : unit option = None │
00:07:53 #25680 [verbose] > │ let mutable _v19 = v19 │
00:07:53 #25681 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25682 [verbose] > │ null |> unbox<unit> │
00:07:53 #25683 [verbose] > │ () │
00:07:53 #25684 [verbose] > │ #endif │
00:07:53 #25685 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25686 [verbose] > │ null |> unbox<unit> │
00:07:53 #25687 [verbose] > │ () │
00:07:53 #25688 [verbose] > │ #endif │
00:07:53 #25689 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25690 [verbose] > │ null |> unbox<unit> │
00:07:53 #25691 [verbose] > │ () │
00:07:53 #25692 [verbose] > │ #endif │
00:07:53 #25693 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25694 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25695 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:07:53 #25696 [verbose] > │ v20 v18 │
00:07:53 #25697 [verbose] > │ () │
00:07:53 #25698 [verbose] > │ #endif │
00:07:53 #25699 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25700 [verbose] > │ null |> unbox<unit> │
00:07:53 #25701 [verbose] > │ () │
00:07:53 #25702 [verbose] > │ #endif │
00:07:53 #25703 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #25704 [verbose] > │ Unchecked.defaultof<unit> │
00:07:53 #25705 [verbose] > │ () │
00:07:53 #25706 [verbose] > │ #endif │
00:07:53 #25707 [verbose] > │ |> fun x -> _v19 <- Some x │
00:07:53 #25708 [verbose] > │ _v19.Value │
00:07:53 #25709 [verbose] > │ () │
00:07:53 #25710 [verbose] > │ and method4 () : string = │
00:07:53 #25711 [verbose] > │ let v0 : string = "test.txt" │
00:07:53 #25712 [verbose] > │ v0 │
00:07:53 #25713 [verbose] > │ and closure6 () () : string = │
00:07:53 #25714 [verbose] > │ let v0 : string = "1" │
00:07:53 #25715 [verbose] > │ v0 │
00:07:53 #25716 [verbose] > │ and method6 (v0 : int64 option) : int64 option = │
00:07:53 #25717 [verbose] > │ v0 │
00:07:53 #25718 [verbose] > │ and method7 (v0 : int64 option) : int64 option = │
00:07:53 #25719 [verbose] > │ v0 │
00:07:53 #25720 [verbose] > │ and closure7 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:07:53 #25721 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:07:53 #25722 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:07:53 #25723 [verbose] > │ let v2 : US0 = US0_0 │
00:07:53 #25724 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:07:53 #25725 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:07:53 #25726 [verbose] > │ let v5 : int64 option option = None │
00:07:53 #25727 [verbose] > │ let mutable _v5 = v5 │
00:07:53 #25728 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:07:53 #25729 [verbose] > │ let v6 : string option = None │
00:07:53 #25730 [verbose] > │ let mutable _v6 = v6 │
00:07:53 #25731 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25732 [verbose] > │ let v7 : string = null |> unbox<string> │
00:07:53 #25733 [verbose] > │ v7 │
00:07:53 #25734 [verbose] > │ #endif │
00:07:53 #25735 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25736 [verbose] > │ let v8 : string = null |> unbox<string> │
00:07:53 #25737 [verbose] > │ v8 │
00:07:53 #25738 [verbose] > │ #endif │
00:07:53 #25739 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25740 [verbose] > │ let v9 : string = null |> unbox<string> │
00:07:53 #25741 [verbose] > │ v9 │
00:07:53 #25742 [verbose] > │ #endif │
00:07:53 #25743 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25744 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25745 [verbose] > │ let v10 : string = │
00:07:53 #25746 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:53 #25747 [verbose] > │ v10 │
00:07:53 #25748 [verbose] > │ #endif │
00:07:53 #25749 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25750 [verbose] > │ let v11 : string = null |> unbox<string> │
00:07:53 #25751 [verbose] > │ v11 │
00:07:53 #25752 [verbose] > │ #endif │
00:07:53 #25753 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #25754 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:07:53 #25755 [verbose] > │ v12 │
00:07:53 #25756 [verbose] > │ #endif │
00:07:53 #25757 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:53 #25758 [verbose] > │ let v13 : string = _v6.Value │
00:07:53 #25759 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:07:53 #25760 [verbose] > │ let v16 : bool = v15 <> true │
00:07:53 #25761 [verbose] > │ let v22 : US1 = │
00:07:53 #25762 [verbose] > │ if v16 then │
00:07:53 #25763 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:07:53 #25764 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:07:53 #25765 [verbose] > │ let v19 : int64 = v18 v17 │
00:07:53 #25766 [verbose] > │ US1_0(v19) │
00:07:53 #25767 [verbose] > │ else │
00:07:53 #25768 [verbose] > │ US1_1 │
00:07:53 #25769 [verbose] > │ let v27 : int64 option = │
00:07:53 #25770 [verbose] > │ match v22 with │
00:07:53 #25771 [verbose] > │ | US1_1 -> (* None *) │
00:07:53 #25772 [verbose] > │ let v25 : int64 option = None │
00:07:53 #25773 [verbose] > │ v25 │
00:07:53 #25774 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:07:53 #25775 [verbose] > │ let v24 : int64 option = Some v23 │
00:07:53 #25776 [verbose] > │ v24 │
00:07:53 #25777 [verbose] > │ let v28 : int64 option = method6(v27) │
00:07:53 #25778 [verbose] > │ v28 │
00:07:53 #25779 [verbose] > │ #else │
00:07:53 #25780 [verbose] > │ let v29 : int64 option = None │
00:07:53 #25781 [verbose] > │ let v30 : int64 option = method7(v29) │
00:07:53 #25782 [verbose] > │ v30 │
00:07:53 #25783 [verbose] > │ #endif │
00:07:53 #25784 [verbose] > │ |> fun x -> _v5 <- Some x │
00:07:53 #25785 [verbose] > │ let v31 : int64 option = _v5.Value │
00:07:53 #25786 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:07:53 #25787 [verbose] > │ and closure9 () (v0 : int64) : US2 = │
00:07:53 #25788 [verbose] > │ US2_0(v0) │
00:07:53 #25789 [verbose] > │ and method8 () : (int64 -> US2) = │
00:07:53 #25790 [verbose] > │ closure9() │
00:07:53 #25791 [verbose] > │ and method9 () : string = │
00:07:53 #25792 [verbose] > │ let v0 : string = "" │
00:07:53 #25793 [verbose] > │ v0 │
00:07:53 #25794 [verbose] > │ and closure8 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:07:53 #25795 [verbose] > │ string = │
00:07:53 #25796 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:07:53 #25797 [verbose] > │ closure7() │
00:07:53 #25798 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:53 #25799 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:07:53 #25800 [verbose] > │ option) = State.trace_state.Value │
00:07:53 #25801 [verbose] > │ let v9 : string option = None │
00:07:53 #25802 [verbose] > │ let mutable _v9 = v9 │
00:07:53 #25803 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25804 [verbose] > │ let v10 : (int64 -> US2) = method8() │
00:07:53 #25805 [verbose] > │ let v11 : US2 = US2_1 │
00:07:53 #25806 [verbose] > │ let v12 : US2 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:07:53 #25807 [verbose] > │ let v30 : System.DateTime = │
00:07:53 #25808 [verbose] > │ match v12 with │
00:07:53 #25809 [verbose] > │ | US2_1 -> (* None *) │
00:07:53 #25810 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:07:53 #25811 [verbose] > │ v28 │
00:07:53 #25812 [verbose] > │ | US2_0(v13) -> (* Some *) │
00:07:53 #25813 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:07:53 #25814 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:07:53 #25815 [verbose] > │ let v16 : int64 = v15 v14 │
00:07:53 #25816 [verbose] > │ let v17 : int64 = v16 - v13 │
00:07:53 #25817 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:07:53 #25818 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:07:53 #25819 [verbose] > │ let v20 : int32 = v19 v18 │
00:07:53 #25820 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:07:53 #25821 [verbose] > │ let v22 : int32 = v21 v18 │
00:07:53 #25822 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:07:53 #25823 [verbose] > │ let v24 : int32 = v23 v18 │
00:07:53 #25824 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:07:53 #25825 [verbose] > │ let v26 : int32 = v25 v18 │
00:07:53 #25826 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:07:53 #25827 [verbose] > │ v24, v26) │
00:07:53 #25828 [verbose] > │ v27 │
00:07:53 #25829 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:07:53 #25830 [verbose] > │ let v32 : string = v30.ToString v31 │
00:07:53 #25831 [verbose] > │ v32 │
00:07:53 #25832 [verbose] > │ #endif │
00:07:53 #25833 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25834 [verbose] > │ let v33 : string = method9() │
00:07:53 #25835 [verbose] > │ v33 │
00:07:53 #25836 [verbose] > │ #endif │
00:07:53 #25837 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25838 [verbose] > │ let v34 : string = method9() │
00:07:53 #25839 [verbose] > │ v34 │
00:07:53 #25840 [verbose] > │ #endif │
00:07:53 #25841 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25842 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25843 [verbose] > │ let v35 : (int64 -> US2) = method8() │
00:07:53 #25844 [verbose] > │ let v36 : US2 = US2_1 │
00:07:53 #25845 [verbose] > │ let v37 : US2 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:07:53 #25846 [verbose] > │ let v55 : System.DateTime = │
00:07:53 #25847 [verbose] > │ match v37 with │
00:07:53 #25848 [verbose] > │ | US2_1 -> (* None *) │
00:07:53 #25849 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:07:53 #25850 [verbose] > │ v53 │
00:07:53 #25851 [verbose] > │ | US2_0(v38) -> (* Some *) │
00:07:53 #25852 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:07:53 #25853 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:07:53 #25854 [verbose] > │ let v41 : int64 = v40 v39 │
00:07:53 #25855 [verbose] > │ let v42 : int64 = v41 - v38 │
00:07:53 #25856 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:07:53 #25857 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:07:53 #25858 [verbose] > │ let v45 : int32 = v44 v43 │
00:07:53 #25859 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:07:53 #25860 [verbose] > │ let v47 : int32 = v46 v43 │
00:07:53 #25861 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:07:53 #25862 [verbose] > │ let v49 : int32 = v48 v43 │
00:07:53 #25863 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:07:53 #25864 [verbose] > │ let v51 : int32 = v50 v43 │
00:07:53 #25865 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:07:53 #25866 [verbose] > │ v49, v51) │
00:07:53 #25867 [verbose] > │ v52 │
00:07:53 #25868 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:07:53 #25869 [verbose] > │ let v57 : string = v55.ToString v56 │
00:07:53 #25870 [verbose] > │ v57 │
00:07:53 #25871 [verbose] > │ #endif │
00:07:53 #25872 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25873 [verbose] > │ let v58 : string = method9() │
00:07:53 #25874 [verbose] > │ v58 │
00:07:53 #25875 [verbose] > │ #endif │
00:07:53 #25876 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #25877 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:07:53 #25878 [verbose] > │ v59 │
00:07:53 #25879 [verbose] > │ #endif │
00:07:53 #25880 [verbose] > │ |> fun x -> _v9 <- Some x │
00:07:53 #25881 [verbose] > │ let v60 : string = _v9.Value │
00:07:53 #25882 [verbose] > │ let v61 : int64 = v4.l0 │
00:07:53 #25883 [verbose] > │ let v71 : string = │
00:07:53 #25884 [verbose] > │ match v0 with │
00:07:53 #25885 [verbose] > │ | US0_4 -> (* Critical *) │
00:07:53 #25886 [verbose] > │ let v66 : string = "Critical" │
00:07:53 #25887 [verbose] > │ v66 │
00:07:53 #25888 [verbose] > │ | US0_1 -> (* Debug *) │
00:07:53 #25889 [verbose] > │ let v63 : string = "Debug" │
00:07:53 #25890 [verbose] > │ v63 │
00:07:53 #25891 [verbose] > │ | US0_2 -> (* Info *) │
00:07:53 #25892 [verbose] > │ let v64 : string = "Info" │
00:07:53 #25893 [verbose] > │ v64 │
00:07:53 #25894 [verbose] > │ | US0_0 -> (* Verbose *) │
00:07:53 #25895 [verbose] > │ let v62 : string = "Verbose" │
00:07:53 #25896 [verbose] > │ v62 │
00:07:53 #25897 [verbose] > │ | US0_3 -> (* Warning *) │
00:07:53 #25898 [verbose] > │ let v65 : string = "Warning" │
00:07:53 #25899 [verbose] > │ v65 │
00:07:53 #25900 [verbose] > │ let v72 : string = v71.ToLower () │
00:07:53 #25901 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:07:53 #25902 [verbose] > │ let v74 : (char []) = [||] │
00:07:53 #25903 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:07:53 #25904 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:07:53 #25905 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:07:53 #25906 [verbose] > │ v77 │
00:07:53 #25907 [verbose] > │ and method5 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:07:53 #25908 [verbose] > │ = │
00:07:53 #25909 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:07:53 #25910 [verbose] > │ closure7() │
00:07:53 #25911 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:53 #25912 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:07:53 #25913 [verbose] > │ option) = State.trace_state.Value │
00:07:53 #25914 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:53 #25915 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:07:53 #25916 [verbose] > │ option) = State.trace_state.Value │
00:07:53 #25917 [verbose] > │ let v14 : US0 = v12.l0 │
00:07:53 #25918 [verbose] > │ let v15 : bool = v11.l0 │
00:07:53 #25919 [verbose] > │ let v17 : bool = │
00:07:53 #25920 [verbose] > │ if v15 then │
00:07:53 #25921 [verbose] > │ let v16 : bool = v0 >= v14 │
00:07:53 #25922 [verbose] > │ v16 │
00:07:53 #25923 [verbose] > │ else │
00:07:53 #25924 [verbose] > │ false │
00:07:53 #25925 [verbose] > │ if v17 then │
00:07:53 #25926 [verbose] > │ let v18 : int64 = v4.l0 │
00:07:53 #25927 [verbose] > │ let v19 : int64 = v18 + 1L │
00:07:53 #25928 [verbose] > │ v4.l0 <- v19 │
00:07:53 #25929 [verbose] > │ let v20 : (unit -> string) = closure8(v0, v1, v2) │
00:07:53 #25930 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:07:53 #25931 [verbose] > │ let v22 : unit option = None │
00:07:53 #25932 [verbose] > │ let mutable _v22 = v22 │
00:07:53 #25933 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25934 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:07:53 #25935 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:07:53 #25936 [verbose] > │ () │
00:07:53 #25937 [verbose] > │ #endif │
00:07:53 #25938 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25939 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:07:53 #25940 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:07:53 #25941 [verbose] > │ () │
00:07:53 #25942 [verbose] > │ #endif │
00:07:53 #25943 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25944 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:07:53 #25945 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:07:53 #25946 [verbose] > │ () │
00:07:53 #25947 [verbose] > │ #endif │
00:07:53 #25948 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #25949 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #25950 [verbose] > │ System.Console.WriteLine v21 │
00:07:53 #25951 [verbose] > │ () │
00:07:53 #25952 [verbose] > │ #endif │
00:07:53 #25953 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #25954 [verbose] > │ System.Console.WriteLine v21 │
00:07:53 #25955 [verbose] > │ () │
00:07:53 #25956 [verbose] > │ #endif │
00:07:53 #25957 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:53 #25958 [verbose] > │ FABLE_COMPILER_DART │
00:07:53 #25959 [verbose] > │ Unchecked.defaultof<unit> │
00:07:53 #25960 [verbose] > │ () │
00:07:53 #25961 [verbose] > │ #endif │
00:07:53 #25962 [verbose] > │ |> fun x -> _v22 <- Some x │
00:07:53 #25963 [verbose] > │ _v22.Value │
00:07:53 #25964 [verbose] > │ () │
00:07:53 #25965 [verbose] > │ and closure10 () () : string = │
00:07:53 #25966 [verbose] > │ let v0 : string = "2" │
00:07:53 #25967 [verbose] > │ v0 │
00:07:53 #25968 [verbose] > │ and closure11 () () : string = │
00:07:53 #25969 [verbose] > │ let v0 : string = "_1" │
00:07:53 #25970 [verbose] > │ v0 │
00:07:53 #25971 [verbose] > │ and closure12 () () : string = │
00:07:53 #25972 [verbose] > │ let v0 : string = "_2" │
00:07:53 #25973 [verbose] > │ v0 │
00:07:53 #25974 [verbose] > │ and closure13 () () : string = │
00:07:53 #25975 [verbose] > │ let v0 : string = "_3" │
00:07:53 #25976 [verbose] > │ v0 │
00:07:53 #25977 [verbose] > │ and closure14 () () : string = │
00:07:53 #25978 [verbose] > │ let v0 : string = "3" │
00:07:53 #25979 [verbose] > │ v0 │
00:07:53 #25980 [verbose] > │ and closure15 () () : string = │
00:07:53 #25981 [verbose] > │ let v0 : string = "4" │
00:07:53 #25982 [verbose] > │ v0 │
00:07:53 #25983 [verbose] > │ and closure16 () () : string = │
00:07:53 #25984 [verbose] > │ let v0 : string = "delete_file_async" │
00:07:53 #25985 [verbose] > │ v0 │
00:07:53 #25986 [verbose] > │ and method10 (v0 : string, v1 : int64) : Async<int64> = │
00:07:53 #25987 [verbose] > │ let v2 : Async<int64> option = None │
00:07:53 #25988 [verbose] > │ let mutable _v2 = v2 │
00:07:53 #25989 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #25990 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #25991 [verbose] > │ v3 │
00:07:53 #25992 [verbose] > │ #endif │
00:07:53 #25993 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #25994 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #25995 [verbose] > │ v4 │
00:07:53 #25996 [verbose] > │ #endif │
00:07:53 #25997 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #25998 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #25999 [verbose] > │ v5 │
00:07:53 #26000 [verbose] > │ #endif │
00:07:53 #26001 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #26002 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #26003 [verbose] > │ let v6 : Async<int64> option = None │
00:07:53 #26004 [verbose] > │ let mutable _v6 = v6 │
00:07:53 #26005 [verbose] > │ async { │
00:07:53 #26006 [verbose] > │ try │
00:07:53 #26007 [verbose] > │ let v7 : unit option = None │
00:07:53 #26008 [verbose] > │ let mutable _v7 = v7 │
00:07:53 #26009 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #26010 [verbose] > │ null |> unbox<unit> │
00:07:53 #26011 [verbose] > │ () │
00:07:53 #26012 [verbose] > │ #endif │
00:07:53 #26013 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #26014 [verbose] > │ null |> unbox<unit> │
00:07:53 #26015 [verbose] > │ () │
00:07:53 #26016 [verbose] > │ #endif │
00:07:53 #26017 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #26018 [verbose] > │ null |> unbox<unit> │
00:07:53 #26019 [verbose] > │ () │
00:07:53 #26020 [verbose] > │ #endif │
00:07:53 #26021 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #26022 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #26023 [verbose] > │ let v8 : (string -> unit) = System.IO.File.Delete │
00:07:53 #26024 [verbose] > │ v8 v0 │
00:07:53 #26025 [verbose] > │ () │
00:07:53 #26026 [verbose] > │ #endif │
00:07:53 #26027 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #26028 [verbose] > │ null |> unbox<unit> │
00:07:53 #26029 [verbose] > │ () │
00:07:53 #26030 [verbose] > │ #endif │
00:07:53 #26031 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #26032 [verbose] > │ Unchecked.defaultof<unit> │
00:07:53 #26033 [verbose] > │ () │
00:07:53 #26034 [verbose] > │ #endif │
00:07:53 #26035 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:53 #26036 [verbose] > │ _v7.Value │
00:07:53 #26037 [verbose] > │ return v1 │
00:07:53 #26038 [verbose] > │ with ex -> │
00:07:53 #26039 [verbose] > │ let v9 : exn = ex │
00:07:53 #26040 [verbose] > │ let v10 : int64 = v1 % 100L │
00:07:53 #26041 [verbose] > │ let v11 : bool = v10 = 0L │
00:07:53 #26042 [verbose] > │ if v11 then │
00:07:53 #26043 [verbose] > │ let v12 : string option = None │
00:07:53 #26044 [verbose] > │ let mutable _v12 = v12 │
00:07:53 #26045 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #26046 [verbose] > │ let v13 : string = $"%A{v9}" │
00:07:53 #26047 [verbose] > │ v13 │
00:07:53 #26048 [verbose] > │ #endif │
00:07:53 #26049 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #26050 [verbose] > │ let v14 : string = $"%A{v9}" │
00:07:53 #26051 [verbose] > │ v14 │
00:07:53 #26052 [verbose] > │ #endif │
00:07:53 #26053 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #26054 [verbose] > │ let v15 : string = $"%A{v9}" │
00:07:53 #26055 [verbose] > │ v15 │
00:07:53 #26056 [verbose] > │ #endif │
00:07:53 #26057 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #26058 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #26059 [verbose] > │ let v16 : string = $"{v9.GetType ()}: {v9.Message}" │
00:07:53 #26060 [verbose] > │ v16 │
00:07:53 #26061 [verbose] > │ #endif │
00:07:53 #26062 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #26063 [verbose] > │ let v17 : string = $"%A{v9}" │
00:07:53 #26064 [verbose] > │ v17 │
00:07:53 #26065 [verbose] > │ #endif │
00:07:53 #26066 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:53 #26067 [verbose] > │ FABLE_COMPILER_DART │
00:07:53 #26068 [verbose] > │ let v18 : string = Unchecked.defaultof<string> │
00:07:53 #26069 [verbose] > │ v18 │
00:07:53 #26070 [verbose] > │ #endif │
00:07:53 #26071 [verbose] > │ |> fun x -> _v12 <- Some x │
00:07:53 #26072 [verbose] > │ let v19 : string = _v12.Value │
00:07:53 #26073 [verbose] > │ let v20 : US0 = US0_3 │
00:07:53 #26074 [verbose] > │ let v21 : (unit -> string) = closure16() │
00:07:53 #26075 [verbose] > │ let v22 : (unit -> string) = closure2() │
00:07:53 #26076 [verbose] > │ method5(v20, v21, v22) │
00:07:53 #26077 [verbose] > │ let v23 : Async<unit> option = None │
00:07:53 #26078 [verbose] > │ let mutable _v23 = v23 │
00:07:53 #26079 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #26080 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #26081 [verbose] > │ v24 │
00:07:53 #26082 [verbose] > │ #endif │
00:07:53 #26083 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #26084 [verbose] > │ let v25 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #26085 [verbose] > │ v25 │
00:07:53 #26086 [verbose] > │ #endif │
00:07:53 #26087 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #26088 [verbose] > │ let v26 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #26089 [verbose] > │ v26 │
00:07:53 #26090 [verbose] > │ #endif │
00:07:53 #26091 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #26092 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #26093 [verbose] > │ let v27 : (int32 -> Async<unit>) = Async.Sleep │
00:07:53 #26094 [verbose] > │ let v28 : Async<unit> = v27 10 │
00:07:53 #26095 [verbose] > │ v28 │
00:07:53 #26096 [verbose] > │ #endif │
00:07:53 #26097 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #26098 [verbose] > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:07:53 #26099 [verbose] > │ v29 │
00:07:53 #26100 [verbose] > │ #endif │
00:07:53 #26101 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #26102 [verbose] > │ let v30 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:53 #26103 [verbose] > │ v30 │
00:07:53 #26104 [verbose] > │ #endif │
00:07:53 #26105 [verbose] > │ |> fun x -> _v23 <- Some x │
00:07:53 #26106 [verbose] > │ let v31 : Async<unit> = _v23.Value │
00:07:53 #26107 [verbose] > │ do! v31 │
00:07:53 #26108 [verbose] > │ let v32 : int64 = v1 + 1L │
00:07:53 #26109 [verbose] > │ let v33 : Async<int64> = method10(v0, v32) │
00:07:53 #26110 [verbose] > │ return! v33 │
00:07:53 #26111 [verbose] > │ (* │
00:07:53 #26112 [verbose] > │ let v34 : int64 = *) │
00:07:53 #26113 [verbose] > │ } │
00:07:53 #26114 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:53 #26115 [verbose] > │ let v35 : Async<int64> = _v6 |> Option.get │
00:07:53 #26116 [verbose] > │ v35 │
00:07:53 #26117 [verbose] > │ #endif │
00:07:53 #26118 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #26119 [verbose] > │ let v36 : Async<int64> = null |> unbox<Async<int64>> │
00:07:53 #26120 [verbose] > │ v36 │
00:07:53 #26121 [verbose] > │ #endif │
00:07:53 #26122 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #26123 [verbose] > │ let v37 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:53 #26124 [verbose] > │ v37 │
00:07:53 #26125 [verbose] > │ #endif │
00:07:53 #26126 [verbose] > │ |> fun x -> _v2 <- Some x │
00:07:53 #26127 [verbose] > │ let v38 : Async<int64> = _v2.Value │
00:07:53 #26128 [verbose] > │ v38 │
00:07:53 #26129 [verbose] > │ and closure17 () () : string = │
00:07:53 #26130 [verbose] > │ let v0 : string = "5" │
00:07:53 #26131 [verbose] > │ v0 │
00:07:53 #26132 [verbose] > │ and closure18 () () : string = │
00:07:53 #26133 [verbose] > │ let v0 : string = "6" │
00:07:53 #26134 [verbose] > │ v0 │
00:07:53 #26135 [verbose] > │ and closure19 () (v0 : int64) : US3 = │
00:07:53 #26136 [verbose] > │ US3_0(v0) │
00:07:53 #26137 [verbose] > │ and closure20 () (v0 : exn) : US3 = │
00:07:53 #26138 [verbose] > │ US3_1(v0) │
00:07:53 #26139 [verbose] > │ and closure21 () () : string = │
00:07:53 #26140 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:07:53 #26141 [verbose] > │ v0 │
00:07:53 #26142 [verbose] > │ and closure22 () () : string = │
00:07:53 #26143 [verbose] > │ let v0 : (unit -> string) = closure2() │
00:07:53 #26144 [verbose] > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:07:53 #26145 [verbose] > │ v1 │
00:07:53 #26146 [verbose] > │ and closure23 (v0 : string) () : string = │
00:07:53 #26147 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:07:53 #26148 [verbose] > │ v1 │
00:07:53 #26149 [verbose] > │ and method11 (v0 : bool) : bool = │
00:07:53 #26150 [verbose] > │ v0 │
00:07:53 #26151 [verbose] > │ and method0 () : unit = │
00:07:53 #26152 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:07:53 #26153 [verbose] > │ let mutable _v0 = v0 │
00:07:53 #26154 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #26155 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:07:53 #26156 [verbose] > │ (string * System.IDisposable)> │
00:07:53 #26157 [verbose] > │ struct (v1, v2) │
00:07:53 #26158 [verbose] > │ #endif │
00:07:53 #26159 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #26160 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:07:53 #26161 [verbose] > │ (string * System.IDisposable)> │
00:07:53 #26162 [verbose] > │ struct (v3, v4) │
00:07:53 #26163 [verbose] > │ #endif │
00:07:53 #26164 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #26165 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:07:53 #26166 [verbose] > │ (string * System.IDisposable)> │
00:07:53 #26167 [verbose] > │ struct (v5, v6) │
00:07:53 #26168 [verbose] > │ #endif │
00:07:53 #26169 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #26170 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #26171 [verbose] > │ let v7 : string option = None │
00:07:53 #26172 [verbose] > │ let mutable _v7 = v7 │
00:07:53 #26173 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #26174 [verbose] > │ let v8 : string = null |> unbox<string> │
00:07:53 #26175 [verbose] > │ v8 │
00:07:53 #26176 [verbose] > │ #endif │
00:07:53 #26177 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #26178 [verbose] > │ let v9 : string = null |> unbox<string> │
00:07:53 #26179 [verbose] > │ v9 │
00:07:53 #26180 [verbose] > │ #endif │
00:07:53 #26181 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #26182 [verbose] > │ let v10 : string = null |> unbox<string> │
00:07:53 #26183 [verbose] > │ v10 │
00:07:53 #26184 [verbose] > │ #endif │
00:07:53 #26185 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #26186 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #26187 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:07:53 #26188 [verbose] > │ let v12 : string = v11 () │
00:07:53 #26189 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:07:53 #26190 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:07:53 #26191 [verbose] > │ let v15 : string option = None │
00:07:53 #26192 [verbose] > │ let mutable _v15 = v15 │
00:07:53 #26193 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #26194 [verbose] > │ let v16 : string = method1(v12) │
00:07:53 #26195 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:53 #26196 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:07:53 #26197 [verbose] > │ let v19 : string = "String::from($0)" │
00:07:53 #26198 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:07:53 #26199 [verbose] > │ v19 │
00:07:53 #26200 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:07:53 #26201 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:07:53 #26202 [verbose] > │ let v23 : string = method1(v14) │
00:07:53 #26203 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:53 #26204 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:07:53 #26205 [verbose] > │ let v26 : string = "String::from($0)" │
00:07:53 #26206 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:07:53 #26207 [verbose] > │ v26 │
00:07:53 #26208 [verbose] > │ let v28 : string = "$0.join($1)" │
00:07:53 #26209 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:53 #26210 [verbose] > │ (v22, v27) v28 │
00:07:53 #26211 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:07:53 #26212 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:07:53 #26213 [verbose] > │ v30 │
00:07:53 #26214 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:07:53 #26215 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:07:53 #26216 [verbose] > │ v33 │
00:07:53 #26217 [verbose] > │ #endif │
00:07:53 #26218 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #26219 [verbose] > │ let v34 : string = null |> unbox<string> │
00:07:53 #26220 [verbose] > │ v34 │
00:07:53 #26221 [verbose] > │ #endif │
00:07:53 #26222 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #26223 [verbose] > │ let v35 : string = null |> unbox<string> │
00:07:53 #26224 [verbose] > │ v35 │
00:07:53 #26225 [verbose] > │ #endif │
00:07:53 #26226 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #26227 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #26228 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:07:53 #26229 [verbose] > │ v36 │
00:07:53 #26230 [verbose] > │ #endif │
00:07:53 #26231 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #26232 [verbose] > │ let v37 : string = "path" │
00:07:53 #26233 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:53 #26234 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:07:53 #26235 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:07:53 #26236 [verbose] > │ v40 │
00:07:53 #26237 [verbose] > │ #endif │
00:07:53 #26238 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #26239 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:07:53 #26240 [verbose] > │ v41 │
00:07:53 #26241 [verbose] > │ #endif │
00:07:53 #26242 [verbose] > │ |> fun x -> _v15 <- Some x │
00:07:53 #26243 [verbose] > │ let v42 : string = _v15.Value │
00:07:53 #26244 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:07:53 #26245 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:07:53 #26246 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:07:53 #26247 [verbose] > │ let v46 : string = v45 v44 │
00:07:53 #26248 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:07:53 #26249 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:07:53 #26250 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:07:53 #26251 [verbose] > │ let v50 : string = v49 v48 │
00:07:53 #26252 [verbose] > │ let v51 : string option = None │
00:07:53 #26253 [verbose] > │ let mutable _v51 = v51 │
00:07:53 #26254 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #26255 [verbose] > │ let v52 : string = method1(v42) │
00:07:53 #26256 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:53 #26257 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:07:53 #26258 [verbose] > │ let v55 : string = "String::from($0)" │
00:07:53 #26259 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:07:53 #26260 [verbose] > │ v55 │
00:07:53 #26261 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:07:53 #26262 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:07:53 #26263 [verbose] > │ let v59 : string = method1(v50) │
00:07:53 #26264 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:53 #26265 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:07:53 #26266 [verbose] > │ let v62 : string = "String::from($0)" │
00:07:53 #26267 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:07:53 #26268 [verbose] > │ v62 │
00:07:53 #26269 [verbose] > │ let v64 : string = "$0.join($1)" │
00:07:53 #26270 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:53 #26271 [verbose] > │ (v58, v63) v64 │
00:07:53 #26272 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:07:53 #26273 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:07:53 #26274 [verbose] > │ v66 │
00:07:53 #26275 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:07:53 #26276 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:07:53 #26277 [verbose] > │ v69 │
00:07:53 #26278 [verbose] > │ #endif │
00:07:53 #26279 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #26280 [verbose] > │ let v70 : string = null |> unbox<string> │
00:07:53 #26281 [verbose] > │ v70 │
00:07:53 #26282 [verbose] > │ #endif │
00:07:53 #26283 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #26284 [verbose] > │ let v71 : string = null |> unbox<string> │
00:07:53 #26285 [verbose] > │ v71 │
00:07:53 #26286 [verbose] > │ #endif │
00:07:53 #26287 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #26288 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #26289 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:07:53 #26290 [verbose] > │ v72 │
00:07:53 #26291 [verbose] > │ #endif │
00:07:53 #26292 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #26293 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:53 #26294 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:07:53 #26295 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:07:53 #26296 [verbose] > │ v75 │
00:07:53 #26297 [verbose] > │ #endif │
00:07:53 #26298 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #26299 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:07:53 #26300 [verbose] > │ v76 │
00:07:53 #26301 [verbose] > │ #endif │
00:07:53 #26302 [verbose] > │ |> fun x -> _v51 <- Some x │
00:07:53 #26303 [verbose] > │ let v77 : string = _v51.Value │
00:07:53 #26304 [verbose] > │ v77 │
00:07:53 #26305 [verbose] > │ #endif │
00:07:53 #26306 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #26307 [verbose] > │ let v78 : string = null |> unbox<string> │
00:07:53 #26308 [verbose] > │ v78 │
00:07:53 #26309 [verbose] > │ #endif │
00:07:53 #26310 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #26311 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:07:53 #26312 [verbose] > │ v79 │
00:07:53 #26313 [verbose] > │ #endif │
00:07:53 #26314 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:53 #26315 [verbose] > │ let v80 : string = _v7.Value │
00:07:53 #26316 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:07:53 #26317 [verbose] > │ let mutable _v81 = v81 │
00:07:53 #26318 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #26319 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:07:53 #26320 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:53 #26321 [verbose] > │ v82 │
00:07:53 #26322 [verbose] > │ #endif │
00:07:53 #26323 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #26324 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:07:53 #26325 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:53 #26326 [verbose] > │ v83 │
00:07:53 #26327 [verbose] > │ #endif │
00:07:53 #26328 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:53 #26329 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:07:53 #26330 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:53 #26331 [verbose] > │ v84 │
00:07:53 #26332 [verbose] > │ #endif │
00:07:53 #26333 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:53 #26334 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:53 #26335 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:07:53 #26336 [verbose] > │ System.IO.Directory.CreateDirectory │
00:07:53 #26337 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:07:53 #26338 [verbose] > │ v86 │
00:07:53 #26339 [verbose] > │ #endif │
00:07:53 #26340 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:53 #26341 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:07:53 #26342 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:53 #26343 [verbose] > │ v87 │
00:07:53 #26344 [verbose] > │ #endif │
00:07:53 #26345 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:53 #26346 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:07:53 #26347 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:07:53 #26348 [verbose] > │ v88 │
00:07:53 #26349 [verbose] > │ #endif │
00:07:53 #26350 [verbose] > │ |> fun x -> _v81 <- Some x │
00:07:53 #26351 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:07:53 #26352 [verbose] > │ let v90 : bool option = None │
00:07:53 #26353 [verbose] > │ let mutable _v90 = v90 │
00:07:53 #26354 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:53 #26355 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:07:53 #26356 [verbose] > │ v91 │
00:07:53 #26357 [verbose] > │ #endif │
00:07:53 #26358 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:53 #26359 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:07:53 #26360 [verbose] > │ v92 │
00:07:53 #26361 [verbose] > │ #endif │
00:07:53 #26362 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26363 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:07:54 #26364 [verbose] > │ v93 │
00:07:54 #26365 [verbose] > │ #endif │
00:07:54 #26366 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26367 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26368 [verbose] > │ let v94 : bool = v89.Exists │
00:07:54 #26369 [verbose] > │ v94 │
00:07:54 #26370 [verbose] > │ #endif │
00:07:54 #26371 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26372 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:07:54 #26373 [verbose] > │ v95 │
00:07:54 #26374 [verbose] > │ #endif │
00:07:54 #26375 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26376 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:07:54 #26377 [verbose] > │ v96 │
00:07:54 #26378 [verbose] > │ #endif │
00:07:54 #26379 [verbose] > │ |> fun x -> _v90 <- Some x │
00:07:54 #26380 [verbose] > │ let v97 : bool = _v90.Value │
00:07:54 #26381 [verbose] > │ let v98 : bool = v97 = false │
00:07:54 #26382 [verbose] > │ if v98 then │
00:07:54 #26383 [verbose] > │ let v99 : System.DateTime option = None │
00:07:54 #26384 [verbose] > │ let mutable _v99 = v99 │
00:07:54 #26385 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26386 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:07:54 #26387 [verbose] > │ v100 │
00:07:54 #26388 [verbose] > │ #endif │
00:07:54 #26389 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26390 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:07:54 #26391 [verbose] > │ v101 │
00:07:54 #26392 [verbose] > │ #endif │
00:07:54 #26393 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26394 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:07:54 #26395 [verbose] > │ v102 │
00:07:54 #26396 [verbose] > │ #endif │
00:07:54 #26397 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26398 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26399 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:07:54 #26400 [verbose] > │ v103 │
00:07:54 #26401 [verbose] > │ #endif │
00:07:54 #26402 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26403 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:07:54 #26404 [verbose] > │ v104 │
00:07:54 #26405 [verbose] > │ #endif │
00:07:54 #26406 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:54 #26407 [verbose] > │ FABLE_COMPILER_DART │
00:07:54 #26408 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:07:54 #26409 [verbose] > │ v105 │
00:07:54 #26410 [verbose] > │ #endif │
00:07:54 #26411 [verbose] > │ |> fun x -> _v99 <- Some x │
00:07:54 #26412 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:07:54 #26413 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:07:54 #26414 [verbose] > │ let v108 : string = $"%A{v107}" │
00:07:54 #26415 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:07:54 #26416 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:07:54 #26417 [verbose] > │ System.Console.WriteLine v110 │
00:07:54 #26418 [verbose] > │ () │
00:07:54 #26419 [verbose] > │ let v111 : System.IDisposable option = None │
00:07:54 #26420 [verbose] > │ let mutable _v111 = v111 │
00:07:54 #26421 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26422 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:54 #26423 [verbose] > │ v112 │
00:07:54 #26424 [verbose] > │ #endif │
00:07:54 #26425 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26426 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:54 #26427 [verbose] > │ v113 │
00:07:54 #26428 [verbose] > │ #endif │
00:07:54 #26429 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26430 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:54 #26431 [verbose] > │ v114 │
00:07:54 #26432 [verbose] > │ #endif │
00:07:54 #26433 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26434 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26435 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:07:54 #26436 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:07:54 #26437 [verbose] > │ _.Dispose () = v115 () } │
00:07:54 #26438 [verbose] > │ v116 │
00:07:54 #26439 [verbose] > │ #endif │
00:07:54 #26440 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26441 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:54 #26442 [verbose] > │ v117 │
00:07:54 #26443 [verbose] > │ #endif │
00:07:54 #26444 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26445 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:07:54 #26446 [verbose] > │ v118 │
00:07:54 #26447 [verbose] > │ #endif │
00:07:54 #26448 [verbose] > │ |> fun x -> _v111 <- Some x │
00:07:54 #26449 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:07:54 #26450 [verbose] > │ struct (v80, v119) │
00:07:54 #26451 [verbose] > │ #endif │
00:07:54 #26452 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26453 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:07:54 #26454 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:07:54 #26455 [verbose] > │ struct (v120, v121) │
00:07:54 #26456 [verbose] > │ #endif │
00:07:54 #26457 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26458 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:07:54 #26459 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:07:54 #26460 [verbose] > │ struct (v122, v123) │
00:07:54 #26461 [verbose] > │ #endif │
00:07:54 #26462 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:54 #26463 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:07:54 #26464 [verbose] > │ use v125 = v125 │
00:07:54 #26465 [verbose] > │ let v126 : System.IDisposable = v125 │
00:07:54 #26466 [verbose] > │ let v127 : string option = None │
00:07:54 #26467 [verbose] > │ let mutable _v127 = v127 │
00:07:54 #26468 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26469 [verbose] > │ let v128 : string = method1(v124) │
00:07:54 #26470 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:54 #26471 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:07:54 #26472 [verbose] > │ let v131 : string = "String::from($0)" │
00:07:54 #26473 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:07:54 #26474 [verbose] > │ v131 │
00:07:54 #26475 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:07:54 #26476 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:07:54 #26477 [verbose] > │ v133 │
00:07:54 #26478 [verbose] > │ let v135 : string = method4() │
00:07:54 #26479 [verbose] > │ let v136 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:54 #26480 [verbose] > │ let v137 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v135 v136 │
00:07:54 #26481 [verbose] > │ let v138 : string = "String::from($0)" │
00:07:54 #26482 [verbose] > │ let v139 : std_string_String = Fable.Core.RustInterop.emitRustExpr v137 │
00:07:54 #26483 [verbose] > │ v138 │
00:07:54 #26484 [verbose] > │ let v140 : string = "$0.join($1)" │
00:07:54 #26485 [verbose] > │ let v141 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:54 #26486 [verbose] > │ (v134, v139) v140 │
00:07:54 #26487 [verbose] > │ let v142 : string = "$0.display().to_string()" │
00:07:54 #26488 [verbose] > │ let v143 : std_string_String = Fable.Core.RustInterop.emitRustExpr v141 │
00:07:54 #26489 [verbose] > │ v142 │
00:07:54 #26490 [verbose] > │ let v144 : string = "fable_library_rust::String_::fromString($0)" │
00:07:54 #26491 [verbose] > │ let v145 : string = Fable.Core.RustInterop.emitRustExpr v143 v144 │
00:07:54 #26492 [verbose] > │ v145 │
00:07:54 #26493 [verbose] > │ #endif │
00:07:54 #26494 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26495 [verbose] > │ let v146 : string = null |> unbox<string> │
00:07:54 #26496 [verbose] > │ v146 │
00:07:54 #26497 [verbose] > │ #endif │
00:07:54 #26498 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26499 [verbose] > │ let v147 : string = null |> unbox<string> │
00:07:54 #26500 [verbose] > │ v147 │
00:07:54 #26501 [verbose] > │ #endif │
00:07:54 #26502 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26503 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26504 [verbose] > │ let v148 : string = "test.txt" │
00:07:54 #26505 [verbose] > │ let v149 : string = System.IO.Path.Combine (v124, v148) │
00:07:54 #26506 [verbose] > │ v149 │
00:07:54 #26507 [verbose] > │ #endif │
00:07:54 #26508 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26509 [verbose] > │ let v150 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:54 #26510 [verbose] > │ let v151 : string = "v150.join($0, $1)" │
00:07:54 #26511 [verbose] > │ let v152 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v148) │
00:07:54 #26512 [verbose] > │ v151 │
00:07:54 #26513 [verbose] > │ v152 │
00:07:54 #26514 [verbose] > │ #endif │
00:07:54 #26515 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26516 [verbose] > │ let v153 : string = Unchecked.defaultof<string> │
00:07:54 #26517 [verbose] > │ v153 │
00:07:54 #26518 [verbose] > │ #endif │
00:07:54 #26519 [verbose] > │ |> fun x -> _v127 <- Some x │
00:07:54 #26520 [verbose] > │ let v154 : string = _v127.Value │
00:07:54 #26521 [verbose] > │ let v155 : Async<int64> option = None │
00:07:54 #26522 [verbose] > │ let mutable _v155 = v155 │
00:07:54 #26523 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26524 [verbose] > │ let v156 : Async<int64> = null |> unbox<Async<int64>> │
00:07:54 #26525 [verbose] > │ v156 │
00:07:54 #26526 [verbose] > │ #endif │
00:07:54 #26527 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26528 [verbose] > │ let v157 : Async<int64> = null |> unbox<Async<int64>> │
00:07:54 #26529 [verbose] > │ v157 │
00:07:54 #26530 [verbose] > │ #endif │
00:07:54 #26531 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26532 [verbose] > │ let v158 : Async<int64> = null |> unbox<Async<int64>> │
00:07:54 #26533 [verbose] > │ v158 │
00:07:54 #26534 [verbose] > │ #endif │
00:07:54 #26535 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26536 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26537 [verbose] > │ let v159 : Async<int64> option = None │
00:07:54 #26538 [verbose] > │ let mutable _v159 = v159 │
00:07:54 #26539 [verbose] > │ async { │
00:07:54 #26540 [verbose] > │ let v160 : US0 = US0_1 │
00:07:54 #26541 [verbose] > │ let v161 : (unit -> string) = closure6() │
00:07:54 #26542 [verbose] > │ let v162 : (unit -> string) = closure2() │
00:07:54 #26543 [verbose] > │ method5(v160, v161, v162) │
00:07:54 #26544 [verbose] > │ let v163 : Async<unit> option = None │
00:07:54 #26545 [verbose] > │ let mutable _v163 = v163 │
00:07:54 #26546 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26547 [verbose] > │ let v164 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26548 [verbose] > │ v164 │
00:07:54 #26549 [verbose] > │ #endif │
00:07:54 #26550 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26551 [verbose] > │ let v165 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26552 [verbose] > │ v165 │
00:07:54 #26553 [verbose] > │ #endif │
00:07:54 #26554 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26555 [verbose] > │ let v166 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26556 [verbose] > │ v166 │
00:07:54 #26557 [verbose] > │ #endif │
00:07:54 #26558 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26559 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26560 [verbose] > │ let v167 : string = "0" │
00:07:54 #26561 [verbose] > │ let v168 : System.Threading.Tasks.Task = │
00:07:54 #26562 [verbose] > │ System.IO.File.WriteAllTextAsync (v154, v167) │
00:07:54 #26563 [verbose] > │ let v169 : Async<unit> option = None │
00:07:54 #26564 [verbose] > │ let mutable _v169 = v169 │
00:07:54 #26565 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26566 [verbose] > │ let v170 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26567 [verbose] > │ v170 │
00:07:54 #26568 [verbose] > │ #endif │
00:07:54 #26569 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26570 [verbose] > │ let v171 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26571 [verbose] > │ v171 │
00:07:54 #26572 [verbose] > │ #endif │
00:07:54 #26573 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26574 [verbose] > │ let v172 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26575 [verbose] > │ v172 │
00:07:54 #26576 [verbose] > │ #endif │
00:07:54 #26577 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26578 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26579 [verbose] > │ let v173 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:07:54 #26580 [verbose] > │ Async.AwaitTask │
00:07:54 #26581 [verbose] > │ let v174 : Async<unit> = v173 v168 │
00:07:54 #26582 [verbose] > │ v174 │
00:07:54 #26583 [verbose] > │ #endif │
00:07:54 #26584 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26585 [verbose] > │ let v175 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26586 [verbose] > │ v175 │
00:07:54 #26587 [verbose] > │ #endif │
00:07:54 #26588 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26589 [verbose] > │ let v176 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:54 #26590 [verbose] > │ v176 │
00:07:54 #26591 [verbose] > │ #endif │
00:07:54 #26592 [verbose] > │ |> fun x -> _v169 <- Some x │
00:07:54 #26593 [verbose] > │ let v177 : Async<unit> = _v169.Value │
00:07:54 #26594 [verbose] > │ v177 │
00:07:54 #26595 [verbose] > │ #endif │
00:07:54 #26596 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26597 [verbose] > │ let v178 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26598 [verbose] > │ v178 │
00:07:54 #26599 [verbose] > │ #endif │
00:07:54 #26600 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26601 [verbose] > │ let v179 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:54 #26602 [verbose] > │ v179 │
00:07:54 #26603 [verbose] > │ #endif │
00:07:54 #26604 [verbose] > │ |> fun x -> _v163 <- Some x │
00:07:54 #26605 [verbose] > │ let v180 : Async<unit> = _v163.Value │
00:07:54 #26606 [verbose] > │ do! v180 │
00:07:54 #26607 [verbose] > │ let v181 : US0 = US0_1 │
00:07:54 #26608 [verbose] > │ let v182 : (unit -> string) = closure10() │
00:07:54 #26609 [verbose] > │ method5(v181, v182, v162) │
00:07:54 #26610 [verbose] > │ let v183 : Async<unit> option = None │
00:07:54 #26611 [verbose] > │ let mutable _v183 = v183 │
00:07:54 #26612 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26613 [verbose] > │ let v184 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26614 [verbose] > │ v184 │
00:07:54 #26615 [verbose] > │ #endif │
00:07:54 #26616 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26617 [verbose] > │ let v185 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26618 [verbose] > │ v185 │
00:07:54 #26619 [verbose] > │ #endif │
00:07:54 #26620 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26621 [verbose] > │ let v186 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26622 [verbose] > │ v186 │
00:07:54 #26623 [verbose] > │ #endif │
00:07:54 #26624 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26625 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26626 [verbose] > │ let v187 : Async<unit> option = None │
00:07:54 #26627 [verbose] > │ let mutable _v187 = v187 │
00:07:54 #26628 [verbose] > │ async { │
00:07:54 #26629 [verbose] > │ let v188 : US0 = US0_1 │
00:07:54 #26630 [verbose] > │ let v189 : (unit -> string) = closure11() │
00:07:54 #26631 [verbose] > │ method5(v188, v189, v162) │
00:07:54 #26632 [verbose] > │ let v190 : System.IO.FileStream option = None │
00:07:54 #26633 [verbose] > │ let mutable _v190 = v190 │
00:07:54 #26634 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26635 [verbose] > │ let v191 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:54 #26636 [verbose] > │ v191 │
00:07:54 #26637 [verbose] > │ #endif │
00:07:54 #26638 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26639 [verbose] > │ let v192 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:54 #26640 [verbose] > │ v192 │
00:07:54 #26641 [verbose] > │ #endif │
00:07:54 #26642 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26643 [verbose] > │ let v193 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:54 #26644 [verbose] > │ v193 │
00:07:54 #26645 [verbose] > │ #endif │
00:07:54 #26646 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26647 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26648 [verbose] > │ let v194 : System.IO.FileMode = System.IO.FileMode.Open │
00:07:54 #26649 [verbose] > │ let v195 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:07:54 #26650 [verbose] > │ let v196 : System.IO.FileShare = System.IO.FileShare.None │
00:07:54 #26651 [verbose] > │ let v197 : System.IO.FileStream = new System.IO.FileStream (v154, v194, │
00:07:54 #26652 [verbose] > │ v195, v196) │
00:07:54 #26653 [verbose] > │ v197 │
00:07:54 #26654 [verbose] > │ #endif │
00:07:54 #26655 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26656 [verbose] > │ let v198 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:54 #26657 [verbose] > │ v198 │
00:07:54 #26658 [verbose] > │ #endif │
00:07:54 #26659 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26660 [verbose] > │ let v199 : System.IO.FileStream = │
00:07:54 #26661 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:07:54 #26662 [verbose] > │ v199 │
00:07:54 #26663 [verbose] > │ #endif │
00:07:54 #26664 [verbose] > │ |> fun x -> _v190 <- Some x │
00:07:54 #26665 [verbose] > │ let v200 : System.IO.FileStream = _v190.Value │
00:07:54 #26666 [verbose] > │ use v200 = v200 │
00:07:54 #26667 [verbose] > │ let v201 : System.IO.FileStream = v200 │
00:07:54 #26668 [verbose] > │ let v202 : US0 = US0_1 │
00:07:54 #26669 [verbose] > │ let v203 : (unit -> string) = closure12() │
00:07:54 #26670 [verbose] > │ method5(v202, v203, v162) │
00:07:54 #26671 [verbose] > │ let v204 : Async<unit> option = None │
00:07:54 #26672 [verbose] > │ let mutable _v204 = v204 │
00:07:54 #26673 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26674 [verbose] > │ let v205 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26675 [verbose] > │ v205 │
00:07:54 #26676 [verbose] > │ #endif │
00:07:54 #26677 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26678 [verbose] > │ let v206 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26679 [verbose] > │ v206 │
00:07:54 #26680 [verbose] > │ #endif │
00:07:54 #26681 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26682 [verbose] > │ let v207 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26683 [verbose] > │ v207 │
00:07:54 #26684 [verbose] > │ #endif │
00:07:54 #26685 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26686 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26687 [verbose] > │ let v208 : (int32 -> Async<unit>) = Async.Sleep │
00:07:54 #26688 [verbose] > │ let v209 : Async<unit> = v208 2000 │
00:07:54 #26689 [verbose] > │ v209 │
00:07:54 #26690 [verbose] > │ #endif │
00:07:54 #26691 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26692 [verbose] > │ let v210 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26693 [verbose] > │ v210 │
00:07:54 #26694 [verbose] > │ #endif │
00:07:54 #26695 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26696 [verbose] > │ let v211 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:54 #26697 [verbose] > │ v211 │
00:07:54 #26698 [verbose] > │ #endif │
00:07:54 #26699 [verbose] > │ |> fun x -> _v204 <- Some x │
00:07:54 #26700 [verbose] > │ let v212 : Async<unit> = _v204.Value │
00:07:54 #26701 [verbose] > │ do! v212 │
00:07:54 #26702 [verbose] > │ let v213 : US0 = US0_1 │
00:07:54 #26703 [verbose] > │ let v214 : (unit -> string) = closure13() │
00:07:54 #26704 [verbose] > │ method5(v213, v214, v162) │
00:07:54 #26705 [verbose] > │ } │
00:07:54 #26706 [verbose] > │ |> fun x -> _v187 <- Some x │
00:07:54 #26707 [verbose] > │ let v215 : Async<unit> = _v187 |> Option.get │
00:07:54 #26708 [verbose] > │ v215 │
00:07:54 #26709 [verbose] > │ #endif │
00:07:54 #26710 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26711 [verbose] > │ let v216 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26712 [verbose] > │ v216 │
00:07:54 #26713 [verbose] > │ #endif │
00:07:54 #26714 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26715 [verbose] > │ let v217 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:54 #26716 [verbose] > │ v217 │
00:07:54 #26717 [verbose] > │ #endif │
00:07:54 #26718 [verbose] > │ |> fun x -> _v183 <- Some x │
00:07:54 #26719 [verbose] > │ let v218 : Async<unit> = _v183.Value │
00:07:54 #26720 [verbose] > │ let v219 : Async<Async<unit>> option = None │
00:07:54 #26721 [verbose] > │ let mutable _v219 = v219 │
00:07:54 #26722 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26723 [verbose] > │ let v220 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:54 #26724 [verbose] > │ v220 │
00:07:54 #26725 [verbose] > │ #endif │
00:07:54 #26726 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26727 [verbose] > │ let v221 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:54 #26728 [verbose] > │ v221 │
00:07:54 #26729 [verbose] > │ #endif │
00:07:54 #26730 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26731 [verbose] > │ let v222 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:54 #26732 [verbose] > │ v222 │
00:07:54 #26733 [verbose] > │ #endif │
00:07:54 #26734 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26735 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26736 [verbose] > │ let v223 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:07:54 #26737 [verbose] > │ let v224 : Async<Async<unit>> = v223 v218 │
00:07:54 #26738 [verbose] > │ v224 │
00:07:54 #26739 [verbose] > │ #endif │
00:07:54 #26740 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26741 [verbose] > │ let v225 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:54 #26742 [verbose] > │ v225 │
00:07:54 #26743 [verbose] > │ #endif │
00:07:54 #26744 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26745 [verbose] > │ let v226 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:07:54 #26746 [verbose] > │ v226 │
00:07:54 #26747 [verbose] > │ #endif │
00:07:54 #26748 [verbose] > │ |> fun x -> _v219 <- Some x │
00:07:54 #26749 [verbose] > │ let v227 : Async<Async<unit>> = _v219.Value │
00:07:54 #26750 [verbose] > │ let! v227 = v227 │
00:07:54 #26751 [verbose] > │ let v228 : Async<unit> = v227 │
00:07:54 #26752 [verbose] > │ let v229 : US0 = US0_1 │
00:07:54 #26753 [verbose] > │ let v230 : (unit -> string) = closure14() │
00:07:54 #26754 [verbose] > │ method5(v229, v230, v162) │
00:07:54 #26755 [verbose] > │ let v231 : Async<unit> option = None │
00:07:54 #26756 [verbose] > │ let mutable _v231 = v231 │
00:07:54 #26757 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26758 [verbose] > │ let v232 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26759 [verbose] > │ v232 │
00:07:54 #26760 [verbose] > │ #endif │
00:07:54 #26761 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26762 [verbose] > │ let v233 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26763 [verbose] > │ v233 │
00:07:54 #26764 [verbose] > │ #endif │
00:07:54 #26765 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26766 [verbose] > │ let v234 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26767 [verbose] > │ v234 │
00:07:54 #26768 [verbose] > │ #endif │
00:07:54 #26769 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26770 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26771 [verbose] > │ let v235 : (int32 -> Async<unit>) = Async.Sleep │
00:07:54 #26772 [verbose] > │ let v236 : Async<unit> = v235 1 │
00:07:54 #26773 [verbose] > │ v236 │
00:07:54 #26774 [verbose] > │ #endif │
00:07:54 #26775 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26776 [verbose] > │ let v237 : Async<unit> = null |> unbox<Async<unit>> │
00:07:54 #26777 [verbose] > │ v237 │
00:07:54 #26778 [verbose] > │ #endif │
00:07:54 #26779 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26780 [verbose] > │ let v238 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:54 #26781 [verbose] > │ v238 │
00:07:54 #26782 [verbose] > │ #endif │
00:07:54 #26783 [verbose] > │ |> fun x -> _v231 <- Some x │
00:07:54 #26784 [verbose] > │ let v239 : Async<unit> = _v231.Value │
00:07:54 #26785 [verbose] > │ do! v239 │
00:07:54 #26786 [verbose] > │ let v240 : US0 = US0_1 │
00:07:54 #26787 [verbose] > │ let v241 : (unit -> string) = closure15() │
00:07:54 #26788 [verbose] > │ method5(v240, v241, v162) │
00:07:54 #26789 [verbose] > │ let v242 : Async<int64> option = None │
00:07:54 #26790 [verbose] > │ let mutable _v242 = v242 │
00:07:54 #26791 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26792 [verbose] > │ let v243 : Async<int64> = null |> unbox<Async<int64>> │
00:07:54 #26793 [verbose] > │ v243 │
00:07:54 #26794 [verbose] > │ #endif │
00:07:54 #26795 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26796 [verbose] > │ let v244 : Async<int64> = null |> unbox<Async<int64>> │
00:07:54 #26797 [verbose] > │ v244 │
00:07:54 #26798 [verbose] > │ #endif │
00:07:54 #26799 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26800 [verbose] > │ let v245 : Async<int64> = null |> unbox<Async<int64>> │
00:07:54 #26801 [verbose] > │ v245 │
00:07:54 #26802 [verbose] > │ #endif │
00:07:54 #26803 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26804 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26805 [verbose] > │ let v246 : int64 = 0L │
00:07:54 #26806 [verbose] > │ let v247 : Async<int64> = method10(v154, v246) │
00:07:54 #26807 [verbose] > │ v247 │
00:07:54 #26808 [verbose] > │ #endif │
00:07:54 #26809 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26810 [verbose] > │ let v248 : Async<int64> = null |> unbox<Async<int64>> │
00:07:54 #26811 [verbose] > │ v248 │
00:07:54 #26812 [verbose] > │ #endif │
00:07:54 #26813 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26814 [verbose] > │ let v249 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:54 #26815 [verbose] > │ v249 │
00:07:54 #26816 [verbose] > │ #endif │
00:07:54 #26817 [verbose] > │ |> fun x -> _v242 <- Some x │
00:07:54 #26818 [verbose] > │ let v250 : Async<int64> = _v242.Value │
00:07:54 #26819 [verbose] > │ let! v250 = v250 │
00:07:54 #26820 [verbose] > │ let v251 : int64 = v250 │
00:07:54 #26821 [verbose] > │ let v252 : US0 = US0_1 │
00:07:54 #26822 [verbose] > │ let v253 : (unit -> string) = closure17() │
00:07:54 #26823 [verbose] > │ method5(v252, v253, v162) │
00:07:54 #26824 [verbose] > │ do! v228 │
00:07:54 #26825 [verbose] > │ let v254 : US0 = US0_1 │
00:07:54 #26826 [verbose] > │ let v255 : (unit -> string) = closure18() │
00:07:54 #26827 [verbose] > │ method5(v254, v255, v162) │
00:07:54 #26828 [verbose] > │ return v251 │
00:07:54 #26829 [verbose] > │ } │
00:07:54 #26830 [verbose] > │ |> fun x -> _v159 <- Some x │
00:07:54 #26831 [verbose] > │ let v256 : Async<int64> = _v159 |> Option.get │
00:07:54 #26832 [verbose] > │ v256 │
00:07:54 #26833 [verbose] > │ #endif │
00:07:54 #26834 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26835 [verbose] > │ let v257 : Async<int64> = null |> unbox<Async<int64>> │
00:07:54 #26836 [verbose] > │ v257 │
00:07:54 #26837 [verbose] > │ #endif │
00:07:54 #26838 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26839 [verbose] > │ let v258 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:54 #26840 [verbose] > │ v258 │
00:07:54 #26841 [verbose] > │ #endif │
00:07:54 #26842 [verbose] > │ |> fun x -> _v155 <- Some x │
00:07:54 #26843 [verbose] > │ let v259 : Async<int64> = _v155.Value │
00:07:54 #26844 [verbose] > │ let v260 : Async<US2> option = None │
00:07:54 #26845 [verbose] > │ let mutable _v260 = v260 │
00:07:54 #26846 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26847 [verbose] > │ let v261 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #26848 [verbose] > │ v261 │
00:07:54 #26849 [verbose] > │ #endif │
00:07:54 #26850 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26851 [verbose] > │ let v262 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #26852 [verbose] > │ v262 │
00:07:54 #26853 [verbose] > │ #endif │
00:07:54 #26854 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26855 [verbose] > │ let v263 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #26856 [verbose] > │ v263 │
00:07:54 #26857 [verbose] > │ #endif │
00:07:54 #26858 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26859 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26860 [verbose] > │ let v264 : Async<US2> option = None │
00:07:54 #26861 [verbose] > │ let mutable _v264 = v264 │
00:07:54 #26862 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26863 [verbose] > │ let v265 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #26864 [verbose] > │ v265 │
00:07:54 #26865 [verbose] > │ #endif │
00:07:54 #26866 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26867 [verbose] > │ let v266 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #26868 [verbose] > │ v266 │
00:07:54 #26869 [verbose] > │ #endif │
00:07:54 #26870 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26871 [verbose] > │ let v267 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #26872 [verbose] > │ v267 │
00:07:54 #26873 [verbose] > │ #endif │
00:07:54 #26874 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26875 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26876 [verbose] > │ let v268 : Async<US2> option = None │
00:07:54 #26877 [verbose] > │ let mutable _v268 = v268 │
00:07:54 #26878 [verbose] > │ async { │
00:07:54 #26879 [verbose] > │ let v269 : Async<Async<int64>> option = None │
00:07:54 #26880 [verbose] > │ let mutable _v269 = v269 │
00:07:54 #26881 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26882 [verbose] > │ let v270 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:07:54 #26883 [verbose] > │ v270 │
00:07:54 #26884 [verbose] > │ #endif │
00:07:54 #26885 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26886 [verbose] > │ let v271 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:07:54 #26887 [verbose] > │ v271 │
00:07:54 #26888 [verbose] > │ #endif │
00:07:54 #26889 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26890 [verbose] > │ let v272 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:07:54 #26891 [verbose] > │ v272 │
00:07:54 #26892 [verbose] > │ #endif │
00:07:54 #26893 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26894 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26895 [verbose] > │ let v273 : Async<Async<int64>> = Async.StartChild (v259, 3000) │
00:07:54 #26896 [verbose] > │ v273 │
00:07:54 #26897 [verbose] > │ #endif │
00:07:54 #26898 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26899 [verbose] > │ let v274 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:07:54 #26900 [verbose] > │ v274 │
00:07:54 #26901 [verbose] > │ #endif │
00:07:54 #26902 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26903 [verbose] > │ let v275 : Async<Async<int64>> = │
00:07:54 #26904 [verbose] > │ Unchecked.defaultof<Async<Async<int64>>> │
00:07:54 #26905 [verbose] > │ v275 │
00:07:54 #26906 [verbose] > │ #endif │
00:07:54 #26907 [verbose] > │ |> fun x -> _v269 <- Some x │
00:07:54 #26908 [verbose] > │ let v276 : Async<Async<int64>> = _v269.Value │
00:07:54 #26909 [verbose] > │ let! v276 = v276 │
00:07:54 #26910 [verbose] > │ let v277 : Async<int64> = v276 │
00:07:54 #26911 [verbose] > │ let v278 : Async<Choice<int64, exn>> option = None │
00:07:54 #26912 [verbose] > │ let mutable _v278 = v278 │
00:07:54 #26913 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26914 [verbose] > │ let v279 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:07:54 #26915 [verbose] > │ exn>>> │
00:07:54 #26916 [verbose] > │ v279 │
00:07:54 #26917 [verbose] > │ #endif │
00:07:54 #26918 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26919 [verbose] > │ let v280 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:07:54 #26920 [verbose] > │ exn>>> │
00:07:54 #26921 [verbose] > │ v280 │
00:07:54 #26922 [verbose] > │ #endif │
00:07:54 #26923 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26924 [verbose] > │ let v281 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:07:54 #26925 [verbose] > │ exn>>> │
00:07:54 #26926 [verbose] > │ v281 │
00:07:54 #26927 [verbose] > │ #endif │
00:07:54 #26928 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26929 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26930 [verbose] > │ let v282 : (Async<int64> -> Async<Choice<int64, exn>>) = Async.Catch │
00:07:54 #26931 [verbose] > │ let v283 : Async<Choice<int64, exn>> = v282 v277 │
00:07:54 #26932 [verbose] > │ v283 │
00:07:54 #26933 [verbose] > │ #endif │
00:07:54 #26934 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26935 [verbose] > │ let v284 : Async<Choice<int64, exn>> = null |> unbox<Async<Choice<int64, │
00:07:54 #26936 [verbose] > │ exn>>> │
00:07:54 #26937 [verbose] > │ v284 │
00:07:54 #26938 [verbose] > │ #endif │
00:07:54 #26939 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26940 [verbose] > │ let v285 : Async<Choice<int64, exn>> = │
00:07:54 #26941 [verbose] > │ Unchecked.defaultof<Async<Choice<int64, exn>>> │
00:07:54 #26942 [verbose] > │ v285 │
00:07:54 #26943 [verbose] > │ #endif │
00:07:54 #26944 [verbose] > │ |> fun x -> _v278 <- Some x │
00:07:54 #26945 [verbose] > │ let v286 : Async<Choice<int64, exn>> = _v278.Value │
00:07:54 #26946 [verbose] > │ let v287 : Async<US3> option = None │
00:07:54 #26947 [verbose] > │ let mutable _v287 = v287 │
00:07:54 #26948 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26949 [verbose] > │ let v288 : Async<US3> = null |> unbox<Async<US3>> │
00:07:54 #26950 [verbose] > │ v288 │
00:07:54 #26951 [verbose] > │ #endif │
00:07:54 #26952 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26953 [verbose] > │ let v289 : Async<US3> = null |> unbox<Async<US3>> │
00:07:54 #26954 [verbose] > │ v289 │
00:07:54 #26955 [verbose] > │ #endif │
00:07:54 #26956 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26957 [verbose] > │ let v290 : Async<US3> = null |> unbox<Async<US3>> │
00:07:54 #26958 [verbose] > │ v290 │
00:07:54 #26959 [verbose] > │ #endif │
00:07:54 #26960 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26961 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26962 [verbose] > │ let v291 : Async<US3> option = None │
00:07:54 #26963 [verbose] > │ let mutable _v291 = v291 │
00:07:54 #26964 [verbose] > │ async { │
00:07:54 #26965 [verbose] > │ let! v286 = v286 │
00:07:54 #26966 [verbose] > │ let v292 : Choice<int64, exn> = v286 │
00:07:54 #26967 [verbose] > │ let v293 : US3 option = None │
00:07:54 #26968 [verbose] > │ let mutable _v293 = v293 │
00:07:54 #26969 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #26970 [verbose] > │ let v294 : US3 = null |> unbox<US3> │
00:07:54 #26971 [verbose] > │ v294 │
00:07:54 #26972 [verbose] > │ #endif │
00:07:54 #26973 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #26974 [verbose] > │ let v295 : US3 = null |> unbox<US3> │
00:07:54 #26975 [verbose] > │ v295 │
00:07:54 #26976 [verbose] > │ #endif │
00:07:54 #26977 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #26978 [verbose] > │ let v296 : US3 = null |> unbox<US3> │
00:07:54 #26979 [verbose] > │ v296 │
00:07:54 #26980 [verbose] > │ #endif │
00:07:54 #26981 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #26982 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #26983 [verbose] > │ let v297 : (int64 -> US3) = closure19() │
00:07:54 #26984 [verbose] > │ let v298 : (exn -> US3) = closure20() │
00:07:54 #26985 [verbose] > │ let v299 : US3 = match v292 with Choice1Of2 x -> v297 x | Choice2Of2 x │
00:07:54 #26986 [verbose] > │ -> v298 x │
00:07:54 #26987 [verbose] > │ v299 │
00:07:54 #26988 [verbose] > │ #endif │
00:07:54 #26989 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #26990 [verbose] > │ let v300 : US3 = null |> unbox<US3> │
00:07:54 #26991 [verbose] > │ v300 │
00:07:54 #26992 [verbose] > │ #endif │
00:07:54 #26993 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #26994 [verbose] > │ let v301 : US3 = Unchecked.defaultof<US3> │
00:07:54 #26995 [verbose] > │ v301 │
00:07:54 #26996 [verbose] > │ #endif │
00:07:54 #26997 [verbose] > │ |> fun x -> _v293 <- Some x │
00:07:54 #26998 [verbose] > │ let v302 : US3 = _v293.Value │
00:07:54 #26999 [verbose] > │ return v302 │
00:07:54 #27000 [verbose] > │ } │
00:07:54 #27001 [verbose] > │ |> fun x -> _v291 <- Some x │
00:07:54 #27002 [verbose] > │ let v303 : Async<US3> = _v291 |> Option.get │
00:07:54 #27003 [verbose] > │ v303 │
00:07:54 #27004 [verbose] > │ #endif │
00:07:54 #27005 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #27006 [verbose] > │ let v304 : Async<US3> = null |> unbox<Async<US3>> │
00:07:54 #27007 [verbose] > │ v304 │
00:07:54 #27008 [verbose] > │ #endif │
00:07:54 #27009 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #27010 [verbose] > │ let v305 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:07:54 #27011 [verbose] > │ v305 │
00:07:54 #27012 [verbose] > │ #endif │
00:07:54 #27013 [verbose] > │ |> fun x -> _v287 <- Some x │
00:07:54 #27014 [verbose] > │ let v306 : Async<US3> = _v287.Value │
00:07:54 #27015 [verbose] > │ let v307 : Async<US4> option = None │
00:07:54 #27016 [verbose] > │ let mutable _v307 = v307 │
00:07:54 #27017 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #27018 [verbose] > │ let v308 : Async<US4> = null |> unbox<Async<US4>> │
00:07:54 #27019 [verbose] > │ v308 │
00:07:54 #27020 [verbose] > │ #endif │
00:07:54 #27021 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #27022 [verbose] > │ let v309 : Async<US4> = null |> unbox<Async<US4>> │
00:07:54 #27023 [verbose] > │ v309 │
00:07:54 #27024 [verbose] > │ #endif │
00:07:54 #27025 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #27026 [verbose] > │ let v310 : Async<US4> = null |> unbox<Async<US4>> │
00:07:54 #27027 [verbose] > │ v310 │
00:07:54 #27028 [verbose] > │ #endif │
00:07:54 #27029 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #27030 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #27031 [verbose] > │ let v311 : Async<US4> option = None │
00:07:54 #27032 [verbose] > │ let mutable _v311 = v311 │
00:07:54 #27033 [verbose] > │ async { │
00:07:54 #27034 [verbose] > │ let! v306 = v306 │
00:07:54 #27035 [verbose] > │ let v312 : US3 = v306 │
00:07:54 #27036 [verbose] > │ let v318 : US4 = │
00:07:54 #27037 [verbose] > │ match v312 with │
00:07:54 #27038 [verbose] > │ | US3_0(v313) -> (* Choice1Of2 *) │
00:07:54 #27039 [verbose] > │ US4_0(v313) │
00:07:54 #27040 [verbose] > │ | US3_1(v315) -> (* Choice2Of2 *) │
00:07:54 #27041 [verbose] > │ US4_1(v315) │
00:07:54 #27042 [verbose] > │ return v318 │
00:07:54 #27043 [verbose] > │ } │
00:07:54 #27044 [verbose] > │ |> fun x -> _v311 <- Some x │
00:07:54 #27045 [verbose] > │ let v319 : Async<US4> = _v311 |> Option.get │
00:07:54 #27046 [verbose] > │ v319 │
00:07:54 #27047 [verbose] > │ #endif │
00:07:54 #27048 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #27049 [verbose] > │ let v320 : Async<US4> = null |> unbox<Async<US4>> │
00:07:54 #27050 [verbose] > │ v320 │
00:07:54 #27051 [verbose] > │ #endif │
00:07:54 #27052 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #27053 [verbose] > │ let v321 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:07:54 #27054 [verbose] > │ v321 │
00:07:54 #27055 [verbose] > │ #endif │
00:07:54 #27056 [verbose] > │ |> fun x -> _v307 <- Some x │
00:07:54 #27057 [verbose] > │ let v322 : Async<US4> = _v307.Value │
00:07:54 #27058 [verbose] > │ let v323 : Async<US2> option = None │
00:07:54 #27059 [verbose] > │ let mutable _v323 = v323 │
00:07:54 #27060 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #27061 [verbose] > │ let v324 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #27062 [verbose] > │ v324 │
00:07:54 #27063 [verbose] > │ #endif │
00:07:54 #27064 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #27065 [verbose] > │ let v325 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #27066 [verbose] > │ v325 │
00:07:54 #27067 [verbose] > │ #endif │
00:07:54 #27068 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #27069 [verbose] > │ let v326 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #27070 [verbose] > │ v326 │
00:07:54 #27071 [verbose] > │ #endif │
00:07:54 #27072 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #27073 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #27074 [verbose] > │ let v327 : Async<US2> option = None │
00:07:54 #27075 [verbose] > │ let mutable _v327 = v327 │
00:07:54 #27076 [verbose] > │ async { │
00:07:54 #27077 [verbose] > │ let! v322 = v322 │
00:07:54 #27078 [verbose] > │ let v328 : US4 = v322 │
00:07:54 #27079 [verbose] > │ let v353 : US2 = │
00:07:54 #27080 [verbose] > │ match v328 with │
00:07:54 #27081 [verbose] > │ | US4_1(v331) -> (* Error *) │
00:07:54 #27082 [verbose] > │ let v332 : string = $"%A{v331}" │
00:07:54 #27083 [verbose] > │ let v333 : string = "System.TimeoutException" │
00:07:54 #27084 [verbose] > │ let v334 : bool = v332.Contains v333 │
00:07:54 #27085 [verbose] > │ if v334 then │
00:07:54 #27086 [verbose] > │ let v335 : US0 = US0_1 │
00:07:54 #27087 [verbose] > │ let v336 : (unit -> string) = closure21() │
00:07:54 #27088 [verbose] > │ let v337 : (unit -> string) = closure22() │
00:07:54 #27089 [verbose] > │ method5(v335, v336, v337) │
00:07:54 #27090 [verbose] > │ US2_1 │
00:07:54 #27091 [verbose] > │ else │
00:07:54 #27092 [verbose] > │ let v339 : string option = None │
00:07:54 #27093 [verbose] > │ let mutable _v339 = v339 │
00:07:54 #27094 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #27095 [verbose] > │ let v340 : string = $"%A{v331}" │
00:07:54 #27096 [verbose] > │ v340 │
00:07:54 #27097 [verbose] > │ #endif │
00:07:54 #27098 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #27099 [verbose] > │ let v341 : string = $"%A{v331}" │
00:07:54 #27100 [verbose] > │ v341 │
00:07:54 #27101 [verbose] > │ #endif │
00:07:54 #27102 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #27103 [verbose] > │ let v342 : string = $"%A{v331}" │
00:07:54 #27104 [verbose] > │ v342 │
00:07:54 #27105 [verbose] > │ #endif │
00:07:54 #27106 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #27107 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #27108 [verbose] > │ let v343 : string = $"{v331.GetType ()}: {v331.Message}" │
00:07:54 #27109 [verbose] > │ v343 │
00:07:54 #27110 [verbose] > │ #endif │
00:07:54 #27111 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #27112 [verbose] > │ let v344 : string = $"%A{v331}" │
00:07:54 #27113 [verbose] > │ v344 │
00:07:54 #27114 [verbose] > │ #endif │
00:07:54 #27115 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:54 #27116 [verbose] > │ FABLE_COMPILER_DART │
00:07:54 #27117 [verbose] > │ let v345 : string = Unchecked.defaultof<string> │
00:07:54 #27118 [verbose] > │ v345 │
00:07:54 #27119 [verbose] > │ #endif │
00:07:54 #27120 [verbose] > │ |> fun x -> _v339 <- Some x │
00:07:54 #27121 [verbose] > │ let v346 : string = _v339.Value │
00:07:54 #27122 [verbose] > │ let v347 : US0 = US0_4 │
00:07:54 #27123 [verbose] > │ let v348 : (unit -> string) = closure23(v346) │
00:07:54 #27124 [verbose] > │ let v349 : (unit -> string) = closure22() │
00:07:54 #27125 [verbose] > │ method5(v347, v348, v349) │
00:07:54 #27126 [verbose] > │ US2_1 │
00:07:54 #27127 [verbose] > │ | US4_0(v329) -> (* Ok *) │
00:07:54 #27128 [verbose] > │ US2_0(v329) │
00:07:54 #27129 [verbose] > │ return v353 │
00:07:54 #27130 [verbose] > │ } │
00:07:54 #27131 [verbose] > │ |> fun x -> _v327 <- Some x │
00:07:54 #27132 [verbose] > │ let v354 : Async<US2> = _v327 |> Option.get │
00:07:54 #27133 [verbose] > │ v354 │
00:07:54 #27134 [verbose] > │ #endif │
00:07:54 #27135 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #27136 [verbose] > │ let v355 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #27137 [verbose] > │ v355 │
00:07:54 #27138 [verbose] > │ #endif │
00:07:54 #27139 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #27140 [verbose] > │ let v356 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:07:54 #27141 [verbose] > │ v356 │
00:07:54 #27142 [verbose] > │ #endif │
00:07:54 #27143 [verbose] > │ |> fun x -> _v323 <- Some x │
00:07:54 #27144 [verbose] > │ let v357 : Async<US2> = _v323.Value │
00:07:54 #27145 [verbose] > │ return! v357 │
00:07:54 #27146 [verbose] > │ } │
00:07:54 #27147 [verbose] > │ |> fun x -> _v268 <- Some x │
00:07:54 #27148 [verbose] > │ let v358 : Async<US2> = _v268 |> Option.get │
00:07:54 #27149 [verbose] > │ v358 │
00:07:54 #27150 [verbose] > │ #endif │
00:07:54 #27151 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #27152 [verbose] > │ let v359 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #27153 [verbose] > │ v359 │
00:07:54 #27154 [verbose] > │ #endif │
00:07:54 #27155 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #27156 [verbose] > │ let v360 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:07:54 #27157 [verbose] > │ v360 │
00:07:54 #27158 [verbose] > │ #endif │
00:07:54 #27159 [verbose] > │ |> fun x -> _v264 <- Some x │
00:07:54 #27160 [verbose] > │ let v361 : Async<US2> = _v264.Value │
00:07:54 #27161 [verbose] > │ v361 │
00:07:54 #27162 [verbose] > │ #endif │
00:07:54 #27163 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #27164 [verbose] > │ let v362 : Async<US2> = null |> unbox<Async<US2>> │
00:07:54 #27165 [verbose] > │ v362 │
00:07:54 #27166 [verbose] > │ #endif │
00:07:54 #27167 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #27168 [verbose] > │ let v363 : Async<US2> = Unchecked.defaultof<Async<US2>> │
00:07:54 #27169 [verbose] > │ v363 │
00:07:54 #27170 [verbose] > │ #endif │
00:07:54 #27171 [verbose] > │ |> fun x -> _v260 <- Some x │
00:07:54 #27172 [verbose] > │ let v364 : Async<US2> = _v260.Value │
00:07:54 #27173 [verbose] > │ let v365 : US2 option = None │
00:07:54 #27174 [verbose] > │ let mutable _v365 = v365 │
00:07:54 #27175 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #27176 [verbose] > │ let v366 : US2 = null |> unbox<US2> │
00:07:54 #27177 [verbose] > │ v366 │
00:07:54 #27178 [verbose] > │ #endif │
00:07:54 #27179 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #27180 [verbose] > │ let v367 : US2 = null |> unbox<US2> │
00:07:54 #27181 [verbose] > │ v367 │
00:07:54 #27182 [verbose] > │ #endif │
00:07:54 #27183 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #27184 [verbose] > │ let v368 : US2 = null |> unbox<US2> │
00:07:54 #27185 [verbose] > │ v368 │
00:07:54 #27186 [verbose] > │ #endif │
00:07:54 #27187 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #27188 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #27189 [verbose] > │ let v369 : (Async<US2> -> US2) = Async.RunSynchronously │
00:07:54 #27190 [verbose] > │ let v370 : US2 = v369 v364 │
00:07:54 #27191 [verbose] > │ v370 │
00:07:54 #27192 [verbose] > │ #endif │
00:07:54 #27193 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #27194 [verbose] > │ let v371 : US2 = null |> unbox<US2> │
00:07:54 #27195 [verbose] > │ v371 │
00:07:54 #27196 [verbose] > │ #endif │
00:07:54 #27197 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:54 #27198 [verbose] > │ let v372 : US2 = Unchecked.defaultof<US2> │
00:07:54 #27199 [verbose] > │ v372 │
00:07:54 #27200 [verbose] > │ #endif │
00:07:54 #27201 [verbose] > │ |> fun x -> _v365 <- Some x │
00:07:54 #27202 [verbose] > │ let v373 : US2 = _v365.Value │
00:07:54 #27203 [verbose] > │ let v411 : bool = │
00:07:54 #27204 [verbose] > │ match v373 with │
00:07:54 #27205 [verbose] > │ | US2_0(v374) -> (* Some *) │
00:07:54 #27206 [verbose] > │ let v375 : bool option = None │
00:07:54 #27207 [verbose] > │ let mutable _v375 = v375 │
00:07:54 #27208 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #27209 [verbose] > │ let v376 : bool = null |> unbox<bool> │
00:07:54 #27210 [verbose] > │ v376 │
00:07:54 #27211 [verbose] > │ #endif │
00:07:54 #27212 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #27213 [verbose] > │ let v377 : bool = null |> unbox<bool> │
00:07:54 #27214 [verbose] > │ v377 │
00:07:54 #27215 [verbose] > │ #endif │
00:07:54 #27216 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #27217 [verbose] > │ let v378 : bool = null |> unbox<bool> │
00:07:54 #27218 [verbose] > │ v378 │
00:07:54 #27219 [verbose] > │ #endif │
00:07:54 #27220 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #27221 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #27222 [verbose] > │ let v379 : System.Runtime.InteropServices.OSPlatform = │
00:07:54 #27223 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:07:54 #27224 [verbose] > │ let v380 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:07:54 #27225 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:07:54 #27226 [verbose] > │ let v381 : bool = v380 v379 │
00:07:54 #27227 [verbose] > │ v381 │
00:07:54 #27228 [verbose] > │ #endif │
00:07:54 #27229 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #27230 [verbose] > │ let v382 : bool = null |> unbox<bool> │
00:07:54 #27231 [verbose] > │ v382 │
00:07:54 #27232 [verbose] > │ #endif │
00:07:54 #27233 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:54 #27234 [verbose] > │ FABLE_COMPILER_DART │
00:07:54 #27235 [verbose] > │ let v383 : bool = Unchecked.defaultof<bool> │
00:07:54 #27236 [verbose] > │ v383 │
00:07:54 #27237 [verbose] > │ #endif │
00:07:54 #27238 [verbose] > │ |> fun x -> _v375 <- Some x │
00:07:54 #27239 [verbose] > │ let v384 : bool = _v375.Value │
00:07:54 #27240 [verbose] > │ let v385 : int64 = │
00:07:54 #27241 [verbose] > │ if v384 then │
00:07:54 #27242 [verbose] > │ 50L │
00:07:54 #27243 [verbose] > │ else │
00:07:54 #27244 [verbose] > │ 0L │
00:07:54 #27245 [verbose] > │ let v386 : bool option = None │
00:07:54 #27246 [verbose] > │ let mutable _v386 = v386 │
00:07:54 #27247 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:54 #27248 [verbose] > │ let v387 : bool = null |> unbox<bool> │
00:07:54 #27249 [verbose] > │ v387 │
00:07:54 #27250 [verbose] > │ #endif │
00:07:54 #27251 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:54 #27252 [verbose] > │ let v388 : bool = null |> unbox<bool> │
00:07:54 #27253 [verbose] > │ v388 │
00:07:54 #27254 [verbose] > │ #endif │
00:07:54 #27255 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:54 #27256 [verbose] > │ let v389 : bool = null |> unbox<bool> │
00:07:54 #27257 [verbose] > │ v389 │
00:07:54 #27258 [verbose] > │ #endif │
00:07:54 #27259 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:54 #27260 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:54 #27261 [verbose] > │ let v390 : System.Runtime.InteropServices.OSPlatform = │
00:07:54 #27262 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:07:54 #27263 [verbose] > │ let v391 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:07:54 #27264 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:07:54 #27265 [verbose] > │ let v392 : bool = v391 v390 │
00:07:54 #27266 [verbose] > │ v392 │
00:07:54 #27267 [verbose] > │ #endif │
00:07:54 #27268 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:54 #27269 [verbose] > │ let v393 : bool = null |> unbox<bool> │
00:07:54 #27270 [verbose] > │ v393 │
00:07:54 #27271 [verbose] > │ #endif │
00:07:54 #27272 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:54 #27273 [verbose] > │ FABLE_COMPILER_DART │
00:07:54 #27274 [verbose] > │ let v394 : bool = Unchecked.defaultof<bool> │
00:07:54 #27275 [verbose] > │ v394 │
00:07:54 #27276 [verbose] > │ #endif │
00:07:54 #27277 [verbose] > │ |> fun x -> _v386 <- Some x │
00:07:54 #27278 [verbose] > │ let v395 : bool = _v386.Value │
00:07:54 #27279 [verbose] > │ let v396 : int64 = │
00:07:54 #27280 [verbose] > │ if v395 then │
00:07:54 #27281 [verbose] > │ 150L │
00:07:54 #27282 [verbose] > │ else │
00:07:54 #27283 [verbose] > │ 0L │
00:07:54 #27284 [verbose] > │ let v397 : string = $"%A{v374}" │
00:07:54 #27285 [verbose] > │ System.Console.WriteLine v397 │
00:07:54 #27286 [verbose] > │ let v398 : string = $"%A{v374}" │
00:07:54 #27287 [verbose] > │ System.Console.WriteLine v398 │
00:07:54 #27288 [verbose] > │ let v399 : bool = v374 >= v385 │
00:07:54 #27289 [verbose] > │ let v401 : bool = │
00:07:54 #27290 [verbose] > │ if v399 then │
00:07:54 #27291 [verbose] > │ true │
00:07:54 #27292 [verbose] > │ else │
00:07:54 #27293 [verbose] > │ method11(v399) │
00:07:54 #27294 [verbose] > │ let v402 : string = $"__expect / actual: %A{v374} / expected: │
00:07:54 #27295 [verbose] > │ %A{v385}" │
00:07:54 #27296 [verbose] > │ let v403 : bool = v401 = false │
00:07:54 #27297 [verbose] > │ if v403 then │
00:07:54 #27298 [verbose] > │ failwith<unit> v402 │
00:07:54 #27299 [verbose] > │ let v404 : string = $"%A{v374}" │
00:07:54 #27300 [verbose] > │ System.Console.WriteLine v404 │
00:07:54 #27301 [verbose] > │ let v405 : bool = v374 <= v396 │
00:07:54 #27302 [verbose] > │ let v407 : bool = │
00:07:54 #27303 [verbose] > │ if v405 then │
00:07:54 #27304 [verbose] > │ true │
00:07:54 #27305 [verbose] > │ else │
00:07:54 #27306 [verbose] > │ method11(v405) │
00:07:54 #27307 [verbose] > │ let v408 : string = $"__expect / actual: %A{v374} / expected: │
00:07:54 #27308 [verbose] > │ %A{v396}" │
00:07:54 #27309 [verbose] > │ let v409 : bool = v407 = false │
00:07:54 #27310 [verbose] > │ if v409 then │
00:07:54 #27311 [verbose] > │ failwith<unit> v408 │
00:07:54 #27312 [verbose] > │ let v410 : string = $"__expect / actual: %A{v374} / expected: │
00:07:54 #27313 [verbose] > │ %A{struct (v385, v396)}" │
00:07:54 #27314 [verbose] > │ true │
00:07:54 #27315 [verbose] > │ | _ -> │
00:07:54 #27316 [verbose] > │ false │
00:07:54 #27317 [verbose] > │ let v412 : string = $"%A{v411}" │
00:07:54 #27318 [verbose] > │ System.Console.WriteLine v412 │
00:07:54 #27319 [verbose] > │ let v414 : bool = │
00:07:54 #27320 [verbose] > │ if v411 then │
00:07:54 #27321 [verbose] > │ true │
00:07:54 #27322 [verbose] > │ else │
00:07:54 #27323 [verbose] > │ method11(v411) │
00:07:54 #27324 [verbose] > │ let v415 : string = $"__expect / actual: %A{v411} / expected: %A{true}" │
00:07:54 #27325 [verbose] > │ let v416 : bool = v414 = false │
00:07:54 #27326 [verbose] > │ if v416 then │
00:07:54 #27327 [verbose] > │ failwith<unit> v415 │
00:07:54 #27328 [verbose] > │ method0() │
00:07:54 #27329 [verbose] > │ │
00:07:54 #27330 [verbose] > │ 00:00:00 #1 [debug] 1 │
00:07:54 #27331 [verbose] > │ 00:00:00 #2 [debug] 2 │
00:07:54 #27332 [verbose] > │ 00:00:00 #3 [debug] 3 │
00:07:54 #27333 [verbose] > │ 00:00:00 #4 [debug] _1 │
00:07:54 #27334 [verbose] > │ 00:00:00 #5 [debug] _2 │
00:07:54 #27335 [verbose] > │ 00:00:00 #6 [debug] 4 │
00:07:54 #27336 [verbose] > │ 00:00:00 #7 [warning] delete_file_async │
00:07:54 #27337 [verbose] > │ 00:00:01 #8 [warning] delete_file_async │
00:07:54 #27338 [verbose] > │ 00:00:02 #9 [debug] _3 │
00:07:54 #27339 [verbose] > │ 00:00:02 #10 [debug] 5 │
00:07:54 #27340 [verbose] > │ 00:00:02 #11 [debug] 6 │
00:07:54 #27341 [verbose] > │ 128L │
00:07:54 #27342 [verbose] > │ 128L │
00:07:54 #27343 [verbose] > │ 128L │
00:07:54 #27344 [verbose] > │ true │
00:07:54 #27345 [verbose] > │ │
00:07:54 #27346 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:54 #27347 [verbose] >
00:07:54 #27348 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:54 #27349 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:54 #27350 [verbose] > │ ## move_file_async │
00:07:54 #27351 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:54 #27352 [verbose] >
00:07:54 #27353 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:54 #27354 [verbose] > inl move_file_async new_path old_path : _ i64 =
00:07:54 #27355 [verbose] > run_target function
00:07:54 #27356 [verbose] > | Fsharp (Native) => fun () =>
00:07:54 #27357 [verbose] > let rec loop (retry : i64) =
00:07:54 #27358 [verbose] > fun () =>
00:07:54 #27359 [verbose] > try_unit
00:07:54 #27360 [verbose] > fun () =>
00:07:54 #27361 [verbose] > file_move old_path new_path
00:07:54 #27362 [verbose] > return retry
00:07:54 #27363 [verbose] > fun ex =>
00:07:54 #27364 [verbose] > if retry % 100 = 0 then
00:07:54 #27365 [verbose] > let get_locals () =
00:07:54 #27366 [verbose] > inl ex = ex |> sm'.format_exception
00:07:54 #27367 [verbose] > $'$"old_path: {!old_path |> !get_file_name}
00:07:54 #27368 [verbose] > / new_path: {!new_path |> !get_file_name} / ex: {!ex} / {!get_locals ()}"' :
00:07:54 #27369 [verbose] > string
00:07:54 #27370 [verbose] > trace Warning (fun () => "move_file_async")
00:07:54 #27371 [verbose] > get_locals
00:07:54 #27372 [verbose] > async.sleep 10 |> async.do
00:07:54 #27373 [verbose] > loop (retry + 1) |> async.return_await
00:07:54 #27374 [verbose] > |> async.new_async_unit
00:07:54 #27375 [verbose] > loop 0
00:07:54 #27376 [verbose] > | _ => fun () => null ()
00:07:54 #27377 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\6bd99c73bf581c1cc952902c201913354fd4ed114bc51499734e65026d75088a\main.spi
00:07:54 #27378 [verbose] >
00:07:54 #27379 [verbose] > ╭─[ 298.61ms - stdout ]────────────────────────────────────────────────────────╮
00:07:54 #27380 [verbose] > │ () │
00:07:54 #27381 [verbose] > │ │
00:07:54 #27382 [verbose] > │ │
00:07:54 #27383 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:54 #27384 [verbose] >
00:07:54 #27385 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:54 #27386 [verbose] > // // test
00:07:54 #27387 [verbose] >
00:07:54 #27388 [verbose] > inl lock_file path =
00:07:54 #27389 [verbose] > fun () =>
00:07:54 #27390 [verbose] > trace Debug (fun () => "_1") get_locals
00:07:54 #27391 [verbose] > file_stream
00:07:54 #27392 [verbose] > path
00:07:54 #27393 [verbose] > ModeOpen
00:07:54 #27394 [verbose] > AccessReadWrite
00:07:54 #27395 [verbose] > ShareNone
00:07:54 #27396 [verbose] > |> use
00:07:54 #27397 [verbose] > |> ignore
00:07:54 #27398 [verbose] > trace Debug (fun () => "_2") get_locals
00:07:54 #27399 [verbose] > async.sleep 2000 |> async.do
00:07:54 #27400 [verbose] > trace Debug (fun () => "_3") get_locals
00:07:54 #27401 [verbose] > |> async.new_async
00:07:54 #27402 [verbose] >
00:07:54 #27403 [verbose] > inl temp_dir, disposable = create_temp_directory ()
00:07:54 #27404 [verbose] > disposable |> use |> ignore
00:07:54 #27405 [verbose] > let path = temp_dir </> "test.txt"
00:07:54 #27406 [verbose] > let new_path = temp_dir </> "test2.txt"
00:07:54 #27407 [verbose] >
00:07:54 #27408 [verbose] > fun () =>
00:07:54 #27409 [verbose] > trace Debug (fun () => "1") get_locals
00:07:54 #27410 [verbose] > "0" |> write_all_text_async path |> async.do
00:07:54 #27411 [verbose] > trace Debug (fun () => "2") get_locals
00:07:54 #27412 [verbose] > inl child = lock_file path |> async.start_child |> async.let'
00:07:54 #27413 [verbose] > trace Debug (fun () => "3") get_locals
00:07:54 #27414 [verbose] > async.sleep 1 |> async.do
00:07:54 #27415 [verbose] > trace Debug (fun () => "4") get_locals
00:07:54 #27416 [verbose] > inl retries1 = path |> move_file_async new_path |> async.let'
00:07:54 #27417 [verbose] > trace Debug (fun () => "5") get_locals
00:07:54 #27418 [verbose] > inl retries2 = new_path |> wait_for_file_access None |> async.let'
00:07:54 #27419 [verbose] > trace Debug (fun () => "6") get_locals
00:07:54 #27420 [verbose] > inl text = new_path |> read_all_text_async |> async.let'
00:07:54 #27421 [verbose] > trace Debug (fun () => "7") get_locals
00:07:54 #27422 [verbose] > child |> async.do
00:07:54 #27423 [verbose] > trace Debug (fun () => "8") get_locals
00:07:54 #27424 [verbose] > (retries1, retries2, text) |> return
00:07:54 #27425 [verbose] > |> async.new_async_unit
00:07:54 #27426 [verbose] > |> async.run_with_timeout 3000
00:07:54 #27427 [verbose] > |> function
00:07:54 #27428 [verbose] > | Some (retries1, retries2, text) =>
00:07:54 #27429 [verbose] > retries1
00:07:54 #27430 [verbose] > |> _assert_between
00:07:54 #27431 [verbose] > (if runtime.is_windows () then 50i64 else 0)
00:07:54 #27432 [verbose] > (if runtime.is_windows () then 150 else 0)
00:07:54 #27433 [verbose] >
00:07:54 #27434 [verbose] > retries2
00:07:54 #27435 [verbose] > |> _assert_between
00:07:54 #27436 [verbose] > (if runtime.is_windows () then 0i64 else 100)
00:07:54 #27437 [verbose] > (if runtime.is_windows () then 0 else 200)
00:07:54 #27438 [verbose] >
00:07:54 #27439 [verbose] > text |> _assert_eq (join "0")
00:07:54 #27440 [verbose] >
00:07:54 #27441 [verbose] > true
00:07:54 #27442 [verbose] > | _ => false
00:07:54 #27443 [verbose] > |> _assert_eq true
00:07:54 #27444 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\76b8deba2ac80a4c78206bb81d4b43ad2ecee0caf7e417db663ef40b72da7ef8\main.spi
00:07:57 #27445 [verbose] >
00:07:57 #27446 [verbose] > ╭─[ 3.04s - stdout ]───────────────────────────────────────────────────────────╮
00:07:57 #27447 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:07:57 #27448 [verbose] > │ string │
00:07:57 #27449 [verbose] > │ module State = let mutable trace_state = None │
00:07:57 #27450 [verbose] > │ type [<Struct>] US0 = │
00:07:57 #27451 [verbose] > │ | US0_0 │
00:07:57 #27452 [verbose] > │ | US0_1 │
00:07:57 #27453 [verbose] > │ | US0_2 │
00:07:57 #27454 [verbose] > │ | US0_3 │
00:07:57 #27455 [verbose] > │ | US0_4 │
00:07:57 #27456 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:07:57 #27457 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:07:57 #27458 [verbose] > │ and Mut2 = {mutable l0 : US0} │
00:07:57 #27459 [verbose] > │ and [<Struct>] US1 = │
00:07:57 #27460 [verbose] > │ | US1_0 of f0_0 : int64 │
00:07:57 #27461 [verbose] > │ | US1_1 │
00:07:57 #27462 [verbose] > │ and [<Struct>] US2 = │
00:07:57 #27463 [verbose] > │ | US2_0 of f0_0 : int64 │
00:07:57 #27464 [verbose] > │ | US2_1 │
00:07:57 #27465 [verbose] > │ and [<Struct>] US3 = │
00:07:57 #27466 [verbose] > │ | US3_0 of f0_0 : int64 * f0_1 : int64 * f0_2 : string │
00:07:57 #27467 [verbose] > │ | US3_1 │
00:07:57 #27468 [verbose] > │ and [<Struct>] US4 = │
00:07:57 #27469 [verbose] > │ | US4_0 of f0_0 : int64 * f0_1 : int64 * f0_2 : string │
00:07:57 #27470 [verbose] > │ | US4_1 of f1_0 : exn │
00:07:57 #27471 [verbose] > │ and [<Struct>] US5 = │
00:07:57 #27472 [verbose] > │ | US5_0 of f0_0 : int64 * f0_1 : int64 * f0_2 : string │
00:07:57 #27473 [verbose] > │ | US5_1 of f1_0 : exn │
00:07:57 #27474 [verbose] > │ let rec closure0 () () : string = │
00:07:57 #27475 [verbose] > │ let v0 : string option = None │
00:07:57 #27476 [verbose] > │ let mutable _v0 = v0 │
00:07:57 #27477 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #27478 [verbose] > │ let v1 : string = null |> unbox<string> │
00:07:57 #27479 [verbose] > │ v1 │
00:07:57 #27480 [verbose] > │ #endif │
00:07:57 #27481 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #27482 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:57 #27483 [verbose] > │ v2 │
00:07:57 #27484 [verbose] > │ #endif │
00:07:57 #27485 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #27486 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:57 #27487 [verbose] > │ v3 │
00:07:57 #27488 [verbose] > │ #endif │
00:07:57 #27489 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #27490 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #27491 [verbose] > │ let v4 : string = │
00:07:57 #27492 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:57 #27493 [verbose] > │ v4 │
00:07:57 #27494 [verbose] > │ #endif │
00:07:57 #27495 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #27496 [verbose] > │ let v5 : string = null |> unbox<string> │
00:07:57 #27497 [verbose] > │ v5 │
00:07:57 #27498 [verbose] > │ #endif │
00:07:57 #27499 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #27500 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:07:57 #27501 [verbose] > │ v6 │
00:07:57 #27502 [verbose] > │ #endif │
00:07:57 #27503 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:57 #27504 [verbose] > │ let v7 : string = _v0.Value │
00:07:57 #27505 [verbose] > │ v7 │
00:07:57 #27506 [verbose] > │ and method1 (v0 : string) : string = │
00:07:57 #27507 [verbose] > │ v0 │
00:07:57 #27508 [verbose] > │ and closure2 () () : string = │
00:07:57 #27509 [verbose] > │ let v0 : string = "" │
00:07:57 #27510 [verbose] > │ v0 │
00:07:57 #27511 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:07:57 #27512 [verbose] > │ let v2 : (unit -> string) = closure2() │
00:07:57 #27513 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:07:57 #27514 [verbose] > │ v3 │
00:07:57 #27515 [verbose] > │ and closure5 () (v0 : string) : string = │
00:07:57 #27516 [verbose] > │ let v1 : string option = None │
00:07:57 #27517 [verbose] > │ let mutable _v1 = v1 │
00:07:57 #27518 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #27519 [verbose] > │ let v2 : string = null |> unbox<string> │
00:07:57 #27520 [verbose] > │ v2 │
00:07:57 #27521 [verbose] > │ #endif │
00:07:57 #27522 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #27523 [verbose] > │ let v3 : string = null |> unbox<string> │
00:07:57 #27524 [verbose] > │ v3 │
00:07:57 #27525 [verbose] > │ #endif │
00:07:57 #27526 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #27527 [verbose] > │ let v4 : string = null |> unbox<string> │
00:07:57 #27528 [verbose] > │ v4 │
00:07:57 #27529 [verbose] > │ #endif │
00:07:57 #27530 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #27531 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #27532 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:07:57 #27533 [verbose] > │ let v6 : string = v5 v0 │
00:07:57 #27534 [verbose] > │ v6 │
00:07:57 #27535 [verbose] > │ #endif │
00:07:57 #27536 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #27537 [verbose] > │ let v7 : string = null |> unbox<string> │
00:07:57 #27538 [verbose] > │ v7 │
00:07:57 #27539 [verbose] > │ #endif │
00:07:57 #27540 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #27541 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:07:57 #27542 [verbose] > │ v8 │
00:07:57 #27543 [verbose] > │ #endif │
00:07:57 #27544 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:57 #27545 [verbose] > │ let v9 : string = _v1.Value │
00:07:57 #27546 [verbose] > │ v9 │
00:07:57 #27547 [verbose] > │ and method3 (v0 : string, v1 : string) : string = │
00:07:57 #27548 [verbose] > │ let v2 : (string -> string) = closure5() │
00:07:57 #27549 [verbose] > │ let v3 : (unit -> string) = closure2() │
00:07:57 #27550 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:07:57 #27551 [verbose] > │ v4 │
00:07:57 #27552 [verbose] > │ and closure4 (v0 : string, v1 : string) () : string = │
00:07:57 #27553 [verbose] > │ method3(v0, v1) │
00:07:57 #27554 [verbose] > │ and method2 (v0 : string, v1 : int64) : Async<int64> = │
00:07:57 #27555 [verbose] > │ let v2 : Async<int64> option = None │
00:07:57 #27556 [verbose] > │ let mutable _v2 = v2 │
00:07:57 #27557 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #27558 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:57 #27559 [verbose] > │ v3 │
00:07:57 #27560 [verbose] > │ #endif │
00:07:57 #27561 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #27562 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:57 #27563 [verbose] > │ v4 │
00:07:57 #27564 [verbose] > │ #endif │
00:07:57 #27565 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #27566 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:07:57 #27567 [verbose] > │ v5 │
00:07:57 #27568 [verbose] > │ #endif │
00:07:57 #27569 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #27570 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #27571 [verbose] > │ let v6 : Async<int64> option = None │
00:07:57 #27572 [verbose] > │ let mutable _v6 = v6 │
00:07:57 #27573 [verbose] > │ async { │
00:07:57 #27574 [verbose] > │ try │
00:07:57 #27575 [verbose] > │ let v7 : unit option = None │
00:07:57 #27576 [verbose] > │ let mutable _v7 = v7 │
00:07:57 #27577 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #27578 [verbose] > │ null |> unbox<unit> │
00:07:57 #27579 [verbose] > │ () │
00:07:57 #27580 [verbose] > │ #endif │
00:07:57 #27581 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #27582 [verbose] > │ null |> unbox<unit> │
00:07:57 #27583 [verbose] > │ () │
00:07:57 #27584 [verbose] > │ #endif │
00:07:57 #27585 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #27586 [verbose] > │ null |> unbox<unit> │
00:07:57 #27587 [verbose] > │ () │
00:07:57 #27588 [verbose] > │ #endif │
00:07:57 #27589 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #27590 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #27591 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:07:57 #27592 [verbose] > │ () │
00:07:57 #27593 [verbose] > │ #endif │
00:07:57 #27594 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #27595 [verbose] > │ null |> unbox<unit> │
00:07:57 #27596 [verbose] > │ () │
00:07:57 #27597 [verbose] > │ #endif │
00:07:57 #27598 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #27599 [verbose] > │ Unchecked.defaultof<unit> │
00:07:57 #27600 [verbose] > │ () │
00:07:57 #27601 [verbose] > │ #endif │
00:07:57 #27602 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:57 #27603 [verbose] > │ _v7.Value │
00:07:57 #27604 [verbose] > │ return v1 │
00:07:57 #27605 [verbose] > │ with ex -> │
00:07:57 #27606 [verbose] > │ let v8 : exn = ex │
00:07:57 #27607 [verbose] > │ let v9 : int64 = v1 % 100L │
00:07:57 #27608 [verbose] > │ let v10 : bool = v9 = 0L │
00:07:57 #27609 [verbose] > │ if v10 then │
00:07:57 #27610 [verbose] > │ let v11 : string option = None │
00:07:57 #27611 [verbose] > │ let mutable _v11 = v11 │
00:07:57 #27612 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #27613 [verbose] > │ let v12 : string = $"%A{v8}" │
00:07:57 #27614 [verbose] > │ v12 │
00:07:57 #27615 [verbose] > │ #endif │
00:07:57 #27616 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #27617 [verbose] > │ let v13 : string = $"%A{v8}" │
00:07:57 #27618 [verbose] > │ v13 │
00:07:57 #27619 [verbose] > │ #endif │
00:07:57 #27620 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #27621 [verbose] > │ let v14 : string = $"%A{v8}" │
00:07:57 #27622 [verbose] > │ v14 │
00:07:57 #27623 [verbose] > │ #endif │
00:07:57 #27624 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #27625 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #27626 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:07:57 #27627 [verbose] > │ v15 │
00:07:57 #27628 [verbose] > │ #endif │
00:07:57 #27629 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #27630 [verbose] > │ let v16 : string = $"%A{v8}" │
00:07:57 #27631 [verbose] > │ v16 │
00:07:57 #27632 [verbose] > │ #endif │
00:07:57 #27633 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:57 #27634 [verbose] > │ FABLE_COMPILER_DART │
00:07:57 #27635 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:07:57 #27636 [verbose] > │ v17 │
00:07:57 #27637 [verbose] > │ #endif │
00:07:57 #27638 [verbose] > │ |> fun x -> _v11 <- Some x │
00:07:57 #27639 [verbose] > │ let v18 : string = _v11.Value │
00:07:57 #27640 [verbose] > │ let v19 : (unit -> string) = closure4(v0, v18) │
00:07:57 #27641 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:07:57 #27642 [verbose] > │ System.Console.WriteLine v20 │
00:07:57 #27643 [verbose] > │ () │
00:07:57 #27644 [verbose] > │ let v21 : Async<unit> option = None │
00:07:57 #27645 [verbose] > │ let mutable _v21 = v21 │
00:07:57 #27646 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #27647 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #27648 [verbose] > │ v22 │
00:07:57 #27649 [verbose] > │ #endif │
00:07:57 #27650 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #27651 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #27652 [verbose] > │ v23 │
00:07:57 #27653 [verbose] > │ #endif │
00:07:57 #27654 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #27655 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #27656 [verbose] > │ v24 │
00:07:57 #27657 [verbose] > │ #endif │
00:07:57 #27658 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #27659 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #27660 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:07:57 #27661 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:07:57 #27662 [verbose] > │ v26 │
00:07:57 #27663 [verbose] > │ #endif │
00:07:57 #27664 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #27665 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #27666 [verbose] > │ v27 │
00:07:57 #27667 [verbose] > │ #endif │
00:07:57 #27668 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #27669 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:57 #27670 [verbose] > │ v28 │
00:07:57 #27671 [verbose] > │ #endif │
00:07:57 #27672 [verbose] > │ |> fun x -> _v21 <- Some x │
00:07:57 #27673 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:07:57 #27674 [verbose] > │ do! v29 │
00:07:57 #27675 [verbose] > │ let v30 : int64 = v1 + 1L │
00:07:57 #27676 [verbose] > │ let v31 : Async<int64> = method2(v0, v30) │
00:07:57 #27677 [verbose] > │ return! v31 │
00:07:57 #27678 [verbose] > │ (* │
00:07:57 #27679 [verbose] > │ let v32 : int64 = *) │
00:07:57 #27680 [verbose] > │ } │
00:07:57 #27681 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:57 #27682 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:07:57 #27683 [verbose] > │ v33 │
00:07:57 #27684 [verbose] > │ #endif │
00:07:57 #27685 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #27686 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:07:57 #27687 [verbose] > │ v34 │
00:07:57 #27688 [verbose] > │ #endif │
00:07:57 #27689 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #27690 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:57 #27691 [verbose] > │ v35 │
00:07:57 #27692 [verbose] > │ #endif │
00:07:57 #27693 [verbose] > │ |> fun x -> _v2 <- Some x │
00:07:57 #27694 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:07:57 #27695 [verbose] > │ v36 │
00:07:57 #27696 [verbose] > │ and closure3 (v0 : string) () : unit = │
00:07:57 #27697 [verbose] > │ let v1 : Async<int64> option = None │
00:07:57 #27698 [verbose] > │ let mutable _v1 = v1 │
00:07:57 #27699 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #27700 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:07:57 #27701 [verbose] > │ v2 │
00:07:57 #27702 [verbose] > │ #endif │
00:07:57 #27703 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #27704 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:57 #27705 [verbose] > │ v3 │
00:07:57 #27706 [verbose] > │ #endif │
00:07:57 #27707 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #27708 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:57 #27709 [verbose] > │ v4 │
00:07:57 #27710 [verbose] > │ #endif │
00:07:57 #27711 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #27712 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #27713 [verbose] > │ let v5 : int64 = 0L │
00:07:57 #27714 [verbose] > │ let v6 : Async<int64> = method2(v0, v5) │
00:07:57 #27715 [verbose] > │ v6 │
00:07:57 #27716 [verbose] > │ #endif │
00:07:57 #27717 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #27718 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:07:57 #27719 [verbose] > │ v7 │
00:07:57 #27720 [verbose] > │ #endif │
00:07:57 #27721 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #27722 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:57 #27723 [verbose] > │ v8 │
00:07:57 #27724 [verbose] > │ #endif │
00:07:57 #27725 [verbose] > │ |> fun x -> _v1 <- Some x │
00:07:57 #27726 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:07:57 #27727 [verbose] > │ let v10 : Async<unit> option = None │
00:07:57 #27728 [verbose] > │ let mutable _v10 = v10 │
00:07:57 #27729 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #27730 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #27731 [verbose] > │ v11 │
00:07:57 #27732 [verbose] > │ #endif │
00:07:57 #27733 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #27734 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #27735 [verbose] > │ v12 │
00:07:57 #27736 [verbose] > │ #endif │
00:07:57 #27737 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #27738 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #27739 [verbose] > │ v13 │
00:07:57 #27740 [verbose] > │ #endif │
00:07:57 #27741 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #27742 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #27743 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:07:57 #27744 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:07:57 #27745 [verbose] > │ v15 │
00:07:57 #27746 [verbose] > │ #endif │
00:07:57 #27747 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #27748 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #27749 [verbose] > │ v16 │
00:07:57 #27750 [verbose] > │ #endif │
00:07:57 #27751 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #27752 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:57 #27753 [verbose] > │ v17 │
00:07:57 #27754 [verbose] > │ #endif │
00:07:57 #27755 [verbose] > │ |> fun x -> _v10 <- Some x │
00:07:57 #27756 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:07:57 #27757 [verbose] > │ let v19 : unit option = None │
00:07:57 #27758 [verbose] > │ let mutable _v19 = v19 │
00:07:57 #27759 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #27760 [verbose] > │ null |> unbox<unit> │
00:07:57 #27761 [verbose] > │ () │
00:07:57 #27762 [verbose] > │ #endif │
00:07:57 #27763 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #27764 [verbose] > │ null |> unbox<unit> │
00:07:57 #27765 [verbose] > │ () │
00:07:57 #27766 [verbose] > │ #endif │
00:07:57 #27767 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #27768 [verbose] > │ null |> unbox<unit> │
00:07:57 #27769 [verbose] > │ () │
00:07:57 #27770 [verbose] > │ #endif │
00:07:57 #27771 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #27772 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #27773 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:07:57 #27774 [verbose] > │ v20 v18 │
00:07:57 #27775 [verbose] > │ () │
00:07:57 #27776 [verbose] > │ #endif │
00:07:57 #27777 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #27778 [verbose] > │ null |> unbox<unit> │
00:07:57 #27779 [verbose] > │ () │
00:07:57 #27780 [verbose] > │ #endif │
00:07:57 #27781 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #27782 [verbose] > │ Unchecked.defaultof<unit> │
00:07:57 #27783 [verbose] > │ () │
00:07:57 #27784 [verbose] > │ #endif │
00:07:57 #27785 [verbose] > │ |> fun x -> _v19 <- Some x │
00:07:57 #27786 [verbose] > │ _v19.Value │
00:07:57 #27787 [verbose] > │ () │
00:07:57 #27788 [verbose] > │ and method4 () : string = │
00:07:57 #27789 [verbose] > │ let v0 : string = "test.txt" │
00:07:57 #27790 [verbose] > │ v0 │
00:07:57 #27791 [verbose] > │ and method5 () : string = │
00:07:57 #27792 [verbose] > │ let v0 : string = "test2.txt" │
00:07:57 #27793 [verbose] > │ v0 │
00:07:57 #27794 [verbose] > │ and closure6 () () : string = │
00:07:57 #27795 [verbose] > │ let v0 : string = "1" │
00:07:57 #27796 [verbose] > │ v0 │
00:07:57 #27797 [verbose] > │ and method7 (v0 : int64 option) : int64 option = │
00:07:57 #27798 [verbose] > │ v0 │
00:07:57 #27799 [verbose] > │ and method8 (v0 : int64 option) : int64 option = │
00:07:57 #27800 [verbose] > │ v0 │
00:07:57 #27801 [verbose] > │ and closure7 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:07:57 #27802 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:07:57 #27803 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:07:57 #27804 [verbose] > │ let v2 : US0 = US0_0 │
00:07:57 #27805 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:07:57 #27806 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:07:57 #27807 [verbose] > │ let v5 : int64 option option = None │
00:07:57 #27808 [verbose] > │ let mutable _v5 = v5 │
00:07:57 #27809 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:07:57 #27810 [verbose] > │ let v6 : string option = None │
00:07:57 #27811 [verbose] > │ let mutable _v6 = v6 │
00:07:57 #27812 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #27813 [verbose] > │ let v7 : string = null |> unbox<string> │
00:07:57 #27814 [verbose] > │ v7 │
00:07:57 #27815 [verbose] > │ #endif │
00:07:57 #27816 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #27817 [verbose] > │ let v8 : string = null |> unbox<string> │
00:07:57 #27818 [verbose] > │ v8 │
00:07:57 #27819 [verbose] > │ #endif │
00:07:57 #27820 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #27821 [verbose] > │ let v9 : string = null |> unbox<string> │
00:07:57 #27822 [verbose] > │ v9 │
00:07:57 #27823 [verbose] > │ #endif │
00:07:57 #27824 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #27825 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #27826 [verbose] > │ let v10 : string = │
00:07:57 #27827 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:07:57 #27828 [verbose] > │ v10 │
00:07:57 #27829 [verbose] > │ #endif │
00:07:57 #27830 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #27831 [verbose] > │ let v11 : string = null |> unbox<string> │
00:07:57 #27832 [verbose] > │ v11 │
00:07:57 #27833 [verbose] > │ #endif │
00:07:57 #27834 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #27835 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:07:57 #27836 [verbose] > │ v12 │
00:07:57 #27837 [verbose] > │ #endif │
00:07:57 #27838 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:57 #27839 [verbose] > │ let v13 : string = _v6.Value │
00:07:57 #27840 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:07:57 #27841 [verbose] > │ let v16 : bool = v15 <> true │
00:07:57 #27842 [verbose] > │ let v22 : US1 = │
00:07:57 #27843 [verbose] > │ if v16 then │
00:07:57 #27844 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:07:57 #27845 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:07:57 #27846 [verbose] > │ let v19 : int64 = v18 v17 │
00:07:57 #27847 [verbose] > │ US1_0(v19) │
00:07:57 #27848 [verbose] > │ else │
00:07:57 #27849 [verbose] > │ US1_1 │
00:07:57 #27850 [verbose] > │ let v27 : int64 option = │
00:07:57 #27851 [verbose] > │ match v22 with │
00:07:57 #27852 [verbose] > │ | US1_1 -> (* None *) │
00:07:57 #27853 [verbose] > │ let v25 : int64 option = None │
00:07:57 #27854 [verbose] > │ v25 │
00:07:57 #27855 [verbose] > │ | US1_0(v23) -> (* Some *) │
00:07:57 #27856 [verbose] > │ let v24 : int64 option = Some v23 │
00:07:57 #27857 [verbose] > │ v24 │
00:07:57 #27858 [verbose] > │ let v28 : int64 option = method7(v27) │
00:07:57 #27859 [verbose] > │ v28 │
00:07:57 #27860 [verbose] > │ #else │
00:07:57 #27861 [verbose] > │ let v29 : int64 option = None │
00:07:57 #27862 [verbose] > │ let v30 : int64 option = method8(v29) │
00:07:57 #27863 [verbose] > │ v30 │
00:07:57 #27864 [verbose] > │ #endif │
00:07:57 #27865 [verbose] > │ |> fun x -> _v5 <- Some x │
00:07:57 #27866 [verbose] > │ let v31 : int64 option = _v5.Value │
00:07:57 #27867 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:07:57 #27868 [verbose] > │ and closure9 () (v0 : int64) : US2 = │
00:07:57 #27869 [verbose] > │ US2_0(v0) │
00:07:57 #27870 [verbose] > │ and method9 () : (int64 -> US2) = │
00:07:57 #27871 [verbose] > │ closure9() │
00:07:57 #27872 [verbose] > │ and method10 () : string = │
00:07:57 #27873 [verbose] > │ let v0 : string = "" │
00:07:57 #27874 [verbose] > │ v0 │
00:07:57 #27875 [verbose] > │ and closure8 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:07:57 #27876 [verbose] > │ string = │
00:07:57 #27877 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:07:57 #27878 [verbose] > │ closure7() │
00:07:57 #27879 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:57 #27880 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:07:57 #27881 [verbose] > │ option) = State.trace_state.Value │
00:07:57 #27882 [verbose] > │ let v9 : string option = None │
00:07:57 #27883 [verbose] > │ let mutable _v9 = v9 │
00:07:57 #27884 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #27885 [verbose] > │ let v10 : (int64 -> US2) = method9() │
00:07:57 #27886 [verbose] > │ let v11 : US2 = US2_1 │
00:07:57 #27887 [verbose] > │ let v12 : US2 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:07:57 #27888 [verbose] > │ let v30 : System.DateTime = │
00:07:57 #27889 [verbose] > │ match v12 with │
00:07:57 #27890 [verbose] > │ | US2_1 -> (* None *) │
00:07:57 #27891 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:07:57 #27892 [verbose] > │ v28 │
00:07:57 #27893 [verbose] > │ | US2_0(v13) -> (* Some *) │
00:07:57 #27894 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:07:57 #27895 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:07:57 #27896 [verbose] > │ let v16 : int64 = v15 v14 │
00:07:57 #27897 [verbose] > │ let v17 : int64 = v16 - v13 │
00:07:57 #27898 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:07:57 #27899 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:07:57 #27900 [verbose] > │ let v20 : int32 = v19 v18 │
00:07:57 #27901 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:07:57 #27902 [verbose] > │ let v22 : int32 = v21 v18 │
00:07:57 #27903 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:07:57 #27904 [verbose] > │ let v24 : int32 = v23 v18 │
00:07:57 #27905 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:07:57 #27906 [verbose] > │ let v26 : int32 = v25 v18 │
00:07:57 #27907 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:07:57 #27908 [verbose] > │ v24, v26) │
00:07:57 #27909 [verbose] > │ v27 │
00:07:57 #27910 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:07:57 #27911 [verbose] > │ let v32 : string = v30.ToString v31 │
00:07:57 #27912 [verbose] > │ v32 │
00:07:57 #27913 [verbose] > │ #endif │
00:07:57 #27914 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #27915 [verbose] > │ let v33 : string = method10() │
00:07:57 #27916 [verbose] > │ v33 │
00:07:57 #27917 [verbose] > │ #endif │
00:07:57 #27918 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #27919 [verbose] > │ let v34 : string = method10() │
00:07:57 #27920 [verbose] > │ v34 │
00:07:57 #27921 [verbose] > │ #endif │
00:07:57 #27922 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #27923 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #27924 [verbose] > │ let v35 : (int64 -> US2) = method9() │
00:07:57 #27925 [verbose] > │ let v36 : US2 = US2_1 │
00:07:57 #27926 [verbose] > │ let v37 : US2 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:07:57 #27927 [verbose] > │ let v55 : System.DateTime = │
00:07:57 #27928 [verbose] > │ match v37 with │
00:07:57 #27929 [verbose] > │ | US2_1 -> (* None *) │
00:07:57 #27930 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:07:57 #27931 [verbose] > │ v53 │
00:07:57 #27932 [verbose] > │ | US2_0(v38) -> (* Some *) │
00:07:57 #27933 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:07:57 #27934 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:07:57 #27935 [verbose] > │ let v41 : int64 = v40 v39 │
00:07:57 #27936 [verbose] > │ let v42 : int64 = v41 - v38 │
00:07:57 #27937 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:07:57 #27938 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:07:57 #27939 [verbose] > │ let v45 : int32 = v44 v43 │
00:07:57 #27940 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:07:57 #27941 [verbose] > │ let v47 : int32 = v46 v43 │
00:07:57 #27942 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:07:57 #27943 [verbose] > │ let v49 : int32 = v48 v43 │
00:07:57 #27944 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:07:57 #27945 [verbose] > │ let v51 : int32 = v50 v43 │
00:07:57 #27946 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:07:57 #27947 [verbose] > │ v49, v51) │
00:07:57 #27948 [verbose] > │ v52 │
00:07:57 #27949 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:07:57 #27950 [verbose] > │ let v57 : string = v55.ToString v56 │
00:07:57 #27951 [verbose] > │ v57 │
00:07:57 #27952 [verbose] > │ #endif │
00:07:57 #27953 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #27954 [verbose] > │ let v58 : string = method10() │
00:07:57 #27955 [verbose] > │ v58 │
00:07:57 #27956 [verbose] > │ #endif │
00:07:57 #27957 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #27958 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:07:57 #27959 [verbose] > │ v59 │
00:07:57 #27960 [verbose] > │ #endif │
00:07:57 #27961 [verbose] > │ |> fun x -> _v9 <- Some x │
00:07:57 #27962 [verbose] > │ let v60 : string = _v9.Value │
00:07:57 #27963 [verbose] > │ let v61 : int64 = v4.l0 │
00:07:57 #27964 [verbose] > │ let v71 : string = │
00:07:57 #27965 [verbose] > │ match v0 with │
00:07:57 #27966 [verbose] > │ | US0_4 -> (* Critical *) │
00:07:57 #27967 [verbose] > │ let v66 : string = "Critical" │
00:07:57 #27968 [verbose] > │ v66 │
00:07:57 #27969 [verbose] > │ | US0_1 -> (* Debug *) │
00:07:57 #27970 [verbose] > │ let v63 : string = "Debug" │
00:07:57 #27971 [verbose] > │ v63 │
00:07:57 #27972 [verbose] > │ | US0_2 -> (* Info *) │
00:07:57 #27973 [verbose] > │ let v64 : string = "Info" │
00:07:57 #27974 [verbose] > │ v64 │
00:07:57 #27975 [verbose] > │ | US0_0 -> (* Verbose *) │
00:07:57 #27976 [verbose] > │ let v62 : string = "Verbose" │
00:07:57 #27977 [verbose] > │ v62 │
00:07:57 #27978 [verbose] > │ | US0_3 -> (* Warning *) │
00:07:57 #27979 [verbose] > │ let v65 : string = "Warning" │
00:07:57 #27980 [verbose] > │ v65 │
00:07:57 #27981 [verbose] > │ let v72 : string = v71.ToLower () │
00:07:57 #27982 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:07:57 #27983 [verbose] > │ let v74 : (char []) = [||] │
00:07:57 #27984 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:07:57 #27985 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:07:57 #27986 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:07:57 #27987 [verbose] > │ v77 │
00:07:57 #27988 [verbose] > │ and method6 (v0 : US0, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:07:57 #27989 [verbose] > │ = │
00:07:57 #27990 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:07:57 #27991 [verbose] > │ closure7() │
00:07:57 #27992 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:57 #27993 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:07:57 #27994 [verbose] > │ option) = State.trace_state.Value │
00:07:57 #27995 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:07:57 #27996 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:07:57 #27997 [verbose] > │ option) = State.trace_state.Value │
00:07:57 #27998 [verbose] > │ let v14 : US0 = v12.l0 │
00:07:57 #27999 [verbose] > │ let v15 : bool = v11.l0 │
00:07:57 #28000 [verbose] > │ let v17 : bool = │
00:07:57 #28001 [verbose] > │ if v15 then │
00:07:57 #28002 [verbose] > │ let v16 : bool = v0 >= v14 │
00:07:57 #28003 [verbose] > │ v16 │
00:07:57 #28004 [verbose] > │ else │
00:07:57 #28005 [verbose] > │ false │
00:07:57 #28006 [verbose] > │ if v17 then │
00:07:57 #28007 [verbose] > │ let v18 : int64 = v4.l0 │
00:07:57 #28008 [verbose] > │ let v19 : int64 = v18 + 1L │
00:07:57 #28009 [verbose] > │ v4.l0 <- v19 │
00:07:57 #28010 [verbose] > │ let v20 : (unit -> string) = closure8(v0, v1, v2) │
00:07:57 #28011 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:07:57 #28012 [verbose] > │ let v22 : unit option = None │
00:07:57 #28013 [verbose] > │ let mutable _v22 = v22 │
00:07:57 #28014 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #28015 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:07:57 #28016 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:07:57 #28017 [verbose] > │ () │
00:07:57 #28018 [verbose] > │ #endif │
00:07:57 #28019 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #28020 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:07:57 #28021 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:07:57 #28022 [verbose] > │ () │
00:07:57 #28023 [verbose] > │ #endif │
00:07:57 #28024 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #28025 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:07:57 #28026 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:07:57 #28027 [verbose] > │ () │
00:07:57 #28028 [verbose] > │ #endif │
00:07:57 #28029 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #28030 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #28031 [verbose] > │ System.Console.WriteLine v21 │
00:07:57 #28032 [verbose] > │ () │
00:07:57 #28033 [verbose] > │ #endif │
00:07:57 #28034 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #28035 [verbose] > │ System.Console.WriteLine v21 │
00:07:57 #28036 [verbose] > │ () │
00:07:57 #28037 [verbose] > │ #endif │
00:07:57 #28038 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:57 #28039 [verbose] > │ FABLE_COMPILER_DART │
00:07:57 #28040 [verbose] > │ Unchecked.defaultof<unit> │
00:07:57 #28041 [verbose] > │ () │
00:07:57 #28042 [verbose] > │ #endif │
00:07:57 #28043 [verbose] > │ |> fun x -> _v22 <- Some x │
00:07:57 #28044 [verbose] > │ _v22.Value │
00:07:57 #28045 [verbose] > │ () │
00:07:57 #28046 [verbose] > │ and closure10 () () : string = │
00:07:57 #28047 [verbose] > │ let v0 : string = "2" │
00:07:57 #28048 [verbose] > │ v0 │
00:07:57 #28049 [verbose] > │ and closure11 () () : string = │
00:07:57 #28050 [verbose] > │ let v0 : string = "_1" │
00:07:57 #28051 [verbose] > │ v0 │
00:07:57 #28052 [verbose] > │ and closure12 () () : string = │
00:07:57 #28053 [verbose] > │ let v0 : string = "_2" │
00:07:57 #28054 [verbose] > │ v0 │
00:07:57 #28055 [verbose] > │ and closure13 () () : string = │
00:07:57 #28056 [verbose] > │ let v0 : string = "_3" │
00:07:57 #28057 [verbose] > │ v0 │
00:07:57 #28058 [verbose] > │ and closure14 () () : string = │
00:07:57 #28059 [verbose] > │ let v0 : string = "3" │
00:07:57 #28060 [verbose] > │ v0 │
00:07:57 #28061 [verbose] > │ and closure15 () () : string = │
00:07:57 #28062 [verbose] > │ let v0 : string = "4" │
00:07:57 #28063 [verbose] > │ v0 │
00:07:57 #28064 [verbose] > │ and closure16 () () : string = │
00:07:57 #28065 [verbose] > │ let v0 : string = "move_file_async" │
00:07:57 #28066 [verbose] > │ v0 │
00:07:57 #28067 [verbose] > │ and method12 (v0 : string, v1 : string, v2 : exn) : string = │
00:07:57 #28068 [verbose] > │ let v3 : string option = None │
00:07:57 #28069 [verbose] > │ let mutable _v3 = v3 │
00:07:57 #28070 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #28071 [verbose] > │ let v4 : string = $"%A{v2}" │
00:07:57 #28072 [verbose] > │ v4 │
00:07:57 #28073 [verbose] > │ #endif │
00:07:57 #28074 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #28075 [verbose] > │ let v5 : string = $"%A{v2}" │
00:07:57 #28076 [verbose] > │ v5 │
00:07:57 #28077 [verbose] > │ #endif │
00:07:57 #28078 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #28079 [verbose] > │ let v6 : string = $"%A{v2}" │
00:07:57 #28080 [verbose] > │ v6 │
00:07:57 #28081 [verbose] > │ #endif │
00:07:57 #28082 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #28083 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #28084 [verbose] > │ let v7 : string = $"{v2.GetType ()}: {v2.Message}" │
00:07:57 #28085 [verbose] > │ v7 │
00:07:57 #28086 [verbose] > │ #endif │
00:07:57 #28087 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #28088 [verbose] > │ let v8 : string = $"%A{v2}" │
00:07:57 #28089 [verbose] > │ v8 │
00:07:57 #28090 [verbose] > │ #endif │
00:07:57 #28091 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #28092 [verbose] > │ let v9 : string = Unchecked.defaultof<string> │
00:07:57 #28093 [verbose] > │ v9 │
00:07:57 #28094 [verbose] > │ #endif │
00:07:57 #28095 [verbose] > │ |> fun x -> _v3 <- Some x │
00:07:57 #28096 [verbose] > │ let v10 : string = _v3.Value │
00:07:57 #28097 [verbose] > │ let v11 : (string -> string) = closure5() │
00:07:57 #28098 [verbose] > │ let v12 : (unit -> string) = closure2() │
00:07:57 #28099 [verbose] > │ let v13 : string = $"old_path: {v1 |> v11} / new_path: {v0 |> v11} / ex: │
00:07:57 #28100 [verbose] > │ {v10} / {v12 ()}" │
00:07:57 #28101 [verbose] > │ v13 │
00:07:57 #28102 [verbose] > │ and closure17 (v0 : string, v1 : string, v2 : exn) () : string = │
00:07:57 #28103 [verbose] > │ method12(v0, v1, v2) │
00:07:57 #28104 [verbose] > │ and method11 (v0 : string, v1 : string, v2 : int64) : Async<int64> = │
00:07:57 #28105 [verbose] > │ let v3 : Async<int64> option = None │
00:07:57 #28106 [verbose] > │ let mutable _v3 = v3 │
00:07:57 #28107 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #28108 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:57 #28109 [verbose] > │ v4 │
00:07:57 #28110 [verbose] > │ #endif │
00:07:57 #28111 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #28112 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:07:57 #28113 [verbose] > │ v5 │
00:07:57 #28114 [verbose] > │ #endif │
00:07:57 #28115 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #28116 [verbose] > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:07:57 #28117 [verbose] > │ v6 │
00:07:57 #28118 [verbose] > │ #endif │
00:07:57 #28119 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #28120 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #28121 [verbose] > │ let v7 : Async<int64> option = None │
00:07:57 #28122 [verbose] > │ let mutable _v7 = v7 │
00:07:57 #28123 [verbose] > │ async { │
00:07:57 #28124 [verbose] > │ try │
00:07:57 #28125 [verbose] > │ let v8 : unit option = None │
00:07:57 #28126 [verbose] > │ let mutable _v8 = v8 │
00:07:57 #28127 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #28128 [verbose] > │ null |> unbox<unit> │
00:07:57 #28129 [verbose] > │ () │
00:07:57 #28130 [verbose] > │ #endif │
00:07:57 #28131 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #28132 [verbose] > │ null |> unbox<unit> │
00:07:57 #28133 [verbose] > │ () │
00:07:57 #28134 [verbose] > │ #endif │
00:07:57 #28135 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #28136 [verbose] > │ null |> unbox<unit> │
00:07:57 #28137 [verbose] > │ () │
00:07:57 #28138 [verbose] > │ #endif │
00:07:57 #28139 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #28140 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #28141 [verbose] > │ System.IO.File.Move (v1, v0) │
00:07:57 #28142 [verbose] > │ () │
00:07:57 #28143 [verbose] > │ #endif │
00:07:57 #28144 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #28145 [verbose] > │ null |> unbox<unit> │
00:07:57 #28146 [verbose] > │ () │
00:07:57 #28147 [verbose] > │ #endif │
00:07:57 #28148 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #28149 [verbose] > │ Unchecked.defaultof<unit> │
00:07:57 #28150 [verbose] > │ () │
00:07:57 #28151 [verbose] > │ #endif │
00:07:57 #28152 [verbose] > │ |> fun x -> _v8 <- Some x │
00:07:57 #28153 [verbose] > │ _v8.Value │
00:07:57 #28154 [verbose] > │ return v2 │
00:07:57 #28155 [verbose] > │ with ex -> │
00:07:57 #28156 [verbose] > │ let v9 : exn = ex │
00:07:57 #28157 [verbose] > │ let v10 : int64 = v2 % 100L │
00:07:57 #28158 [verbose] > │ let v11 : bool = v10 = 0L │
00:07:57 #28159 [verbose] > │ if v11 then │
00:07:57 #28160 [verbose] > │ let v12 : US0 = US0_3 │
00:07:57 #28161 [verbose] > │ let v13 : (unit -> string) = closure16() │
00:07:57 #28162 [verbose] > │ let v14 : (unit -> string) = closure17(v0, v1, v9) │
00:07:57 #28163 [verbose] > │ method6(v12, v13, v14) │
00:07:57 #28164 [verbose] > │ let v15 : Async<unit> option = None │
00:07:57 #28165 [verbose] > │ let mutable _v15 = v15 │
00:07:57 #28166 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:57 #28167 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #28168 [verbose] > │ v16 │
00:07:57 #28169 [verbose] > │ #endif │
00:07:57 #28170 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:57 #28171 [verbose] > │ let v17 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #28172 [verbose] > │ v17 │
00:07:57 #28173 [verbose] > │ #endif │
00:07:57 #28174 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:57 #28175 [verbose] > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #28176 [verbose] > │ v18 │
00:07:57 #28177 [verbose] > │ #endif │
00:07:57 #28178 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:57 #28179 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:57 #28180 [verbose] > │ let v19 : (int32 -> Async<unit>) = Async.Sleep │
00:07:57 #28181 [verbose] > │ let v20 : Async<unit> = v19 10 │
00:07:57 #28182 [verbose] > │ v20 │
00:07:57 #28183 [verbose] > │ #endif │
00:07:57 #28184 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:57 #28185 [verbose] > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:07:57 #28186 [verbose] > │ v21 │
00:07:57 #28187 [verbose] > │ #endif │
00:07:57 #28188 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:57 #28189 [verbose] > │ let v22 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:57 #28190 [verbose] > │ v22 │
00:07:57 #28191 [verbose] > │ #endif │
00:07:57 #28192 [verbose] > │ |> fun x -> _v15 <- Some x │
00:07:57 #28193 [verbose] > │ let v23 : Async<unit> = _v15.Value │
00:07:57 #28194 [verbose] > │ do! v23 │
00:07:57 #28195 [verbose] > │ let v24 : int64 = v2 + 1L │
00:07:57 #28196 [verbose] > │ let v25 : Async<int64> = method11(v0, v1, v24) │
00:07:57 #28197 [verbose] > │ return! v25 │
00:07:57 #28198 [verbose] > │ (* │
00:07:57 #28199 [verbose] > │ *) │
00:07:57 #28200 [verbose] > │ } │
00:07:57 #28201 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:57 #28202 [verbose] > │ let v26 : Async<int64> = _v7 |> Option.get │
00:07:57 #28203 [verbose] > │ v26 │
00:07:58 #28204 [verbose] > │ #endif │
00:07:58 #28205 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28206 [verbose] > │ let v27 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #28207 [verbose] > │ v27 │
00:07:58 #28208 [verbose] > │ #endif │
00:07:58 #28209 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28210 [verbose] > │ let v28 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:58 #28211 [verbose] > │ v28 │
00:07:58 #28212 [verbose] > │ #endif │
00:07:58 #28213 [verbose] > │ |> fun x -> _v3 <- Some x │
00:07:58 #28214 [verbose] > │ let v29 : Async<int64> = _v3.Value │
00:07:58 #28215 [verbose] > │ v29 │
00:07:58 #28216 [verbose] > │ and closure18 () () : string = │
00:07:58 #28217 [verbose] > │ let v0 : string = "5" │
00:07:58 #28218 [verbose] > │ v0 │
00:07:58 #28219 [verbose] > │ and method14 (v0 : string, v1 : int64, v2 : string) : string = │
00:07:58 #28220 [verbose] > │ let v3 : (string -> string) = closure5() │
00:07:58 #28221 [verbose] > │ let v4 : (unit -> string) = closure2() │
00:07:58 #28222 [verbose] > │ let v5 : string = $"path: {v0 |> v3} / retry: {v1} / ex: {v2} / {v4 ()}" │
00:07:58 #28223 [verbose] > │ v5 │
00:07:58 #28224 [verbose] > │ and closure19 (v0 : string, v1 : int64, v2 : string) () : string = │
00:07:58 #28225 [verbose] > │ method14(v0, v1, v2) │
00:07:58 #28226 [verbose] > │ and method13 (v0 : string, v1 : int64) : Async<int64> = │
00:07:58 #28227 [verbose] > │ let v2 : Async<int64> option = None │
00:07:58 #28228 [verbose] > │ let mutable _v2 = v2 │
00:07:58 #28229 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28230 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #28231 [verbose] > │ v3 │
00:07:58 #28232 [verbose] > │ #endif │
00:07:58 #28233 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28234 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #28235 [verbose] > │ v4 │
00:07:58 #28236 [verbose] > │ #endif │
00:07:58 #28237 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28238 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #28239 [verbose] > │ v5 │
00:07:58 #28240 [verbose] > │ #endif │
00:07:58 #28241 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28242 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28243 [verbose] > │ let v6 : Async<int64> option = None │
00:07:58 #28244 [verbose] > │ let mutable _v6 = v6 │
00:07:58 #28245 [verbose] > │ async { │
00:07:58 #28246 [verbose] > │ try │
00:07:58 #28247 [verbose] > │ let v7 : System.IO.FileStream option = None │
00:07:58 #28248 [verbose] > │ let mutable _v7 = v7 │
00:07:58 #28249 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28250 [verbose] > │ let v8 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:58 #28251 [verbose] > │ v8 │
00:07:58 #28252 [verbose] > │ #endif │
00:07:58 #28253 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28254 [verbose] > │ let v9 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:58 #28255 [verbose] > │ v9 │
00:07:58 #28256 [verbose] > │ #endif │
00:07:58 #28257 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28258 [verbose] > │ let v10 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:58 #28259 [verbose] > │ v10 │
00:07:58 #28260 [verbose] > │ #endif │
00:07:58 #28261 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28262 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28263 [verbose] > │ let v11 : System.IO.FileMode = System.IO.FileMode.Open │
00:07:58 #28264 [verbose] > │ let v12 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:07:58 #28265 [verbose] > │ let v13 : System.IO.FileShare = System.IO.FileShare.Read │
00:07:58 #28266 [verbose] > │ let v14 : System.IO.FileStream = new System.IO.FileStream (v0, v11, v12, │
00:07:58 #28267 [verbose] > │ v13) │
00:07:58 #28268 [verbose] > │ v14 │
00:07:58 #28269 [verbose] > │ #endif │
00:07:58 #28270 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28271 [verbose] > │ let v15 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:58 #28272 [verbose] > │ v15 │
00:07:58 #28273 [verbose] > │ #endif │
00:07:58 #28274 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28275 [verbose] > │ let v16 : System.IO.FileStream = │
00:07:58 #28276 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:07:58 #28277 [verbose] > │ v16 │
00:07:58 #28278 [verbose] > │ #endif │
00:07:58 #28279 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:58 #28280 [verbose] > │ let v17 : System.IO.FileStream = _v7.Value │
00:07:58 #28281 [verbose] > │ use v17 = v17 │
00:07:58 #28282 [verbose] > │ let v18 : System.IO.FileStream = v17 │
00:07:58 #28283 [verbose] > │ return v1 │
00:07:58 #28284 [verbose] > │ with ex -> │
00:07:58 #28285 [verbose] > │ let v19 : exn = ex │
00:07:58 #28286 [verbose] > │ let v20 : bool = v1 > 0L │
00:07:58 #28287 [verbose] > │ let v23 : bool = │
00:07:58 #28288 [verbose] > │ if v20 then │
00:07:58 #28289 [verbose] > │ let v21 : int64 = v1 % 100L │
00:07:58 #28290 [verbose] > │ let v22 : bool = v21 = 0L │
00:07:58 #28291 [verbose] > │ v22 │
00:07:58 #28292 [verbose] > │ else │
00:07:58 #28293 [verbose] > │ false │
00:07:58 #28294 [verbose] > │ if v23 then │
00:07:58 #28295 [verbose] > │ let v24 : string option = None │
00:07:58 #28296 [verbose] > │ let mutable _v24 = v24 │
00:07:58 #28297 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28298 [verbose] > │ let v25 : string = $"%A{v19}" │
00:07:58 #28299 [verbose] > │ v25 │
00:07:58 #28300 [verbose] > │ #endif │
00:07:58 #28301 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28302 [verbose] > │ let v26 : string = $"%A{v19}" │
00:07:58 #28303 [verbose] > │ v26 │
00:07:58 #28304 [verbose] > │ #endif │
00:07:58 #28305 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28306 [verbose] > │ let v27 : string = $"%A{v19}" │
00:07:58 #28307 [verbose] > │ v27 │
00:07:58 #28308 [verbose] > │ #endif │
00:07:58 #28309 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28310 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28311 [verbose] > │ let v28 : string = $"{v19.GetType ()}: {v19.Message}" │
00:07:58 #28312 [verbose] > │ v28 │
00:07:58 #28313 [verbose] > │ #endif │
00:07:58 #28314 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28315 [verbose] > │ let v29 : string = $"%A{v19}" │
00:07:58 #28316 [verbose] > │ v29 │
00:07:58 #28317 [verbose] > │ #endif │
00:07:58 #28318 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:58 #28319 [verbose] > │ FABLE_COMPILER_DART │
00:07:58 #28320 [verbose] > │ let v30 : string = Unchecked.defaultof<string> │
00:07:58 #28321 [verbose] > │ v30 │
00:07:58 #28322 [verbose] > │ #endif │
00:07:58 #28323 [verbose] > │ |> fun x -> _v24 <- Some x │
00:07:58 #28324 [verbose] > │ let v31 : string = _v24.Value │
00:07:58 #28325 [verbose] > │ let v32 : (unit -> string) = closure19(v0, v1, v31) │
00:07:58 #28326 [verbose] > │ let v33 : string = $"wait_for_file_access / {v32 ()}" │
00:07:58 #28327 [verbose] > │ System.Console.WriteLine v33 │
00:07:58 #28328 [verbose] > │ () │
00:07:58 #28329 [verbose] > │ let v34 : Async<unit> option = None │
00:07:58 #28330 [verbose] > │ let mutable _v34 = v34 │
00:07:58 #28331 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28332 [verbose] > │ let v35 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28333 [verbose] > │ v35 │
00:07:58 #28334 [verbose] > │ #endif │
00:07:58 #28335 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28336 [verbose] > │ let v36 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28337 [verbose] > │ v36 │
00:07:58 #28338 [verbose] > │ #endif │
00:07:58 #28339 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28340 [verbose] > │ let v37 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28341 [verbose] > │ v37 │
00:07:58 #28342 [verbose] > │ #endif │
00:07:58 #28343 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28344 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28345 [verbose] > │ let v38 : (int32 -> Async<unit>) = Async.Sleep │
00:07:58 #28346 [verbose] > │ let v39 : Async<unit> = v38 10 │
00:07:58 #28347 [verbose] > │ v39 │
00:07:58 #28348 [verbose] > │ #endif │
00:07:58 #28349 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28350 [verbose] > │ let v40 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28351 [verbose] > │ v40 │
00:07:58 #28352 [verbose] > │ #endif │
00:07:58 #28353 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28354 [verbose] > │ let v41 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:58 #28355 [verbose] > │ v41 │
00:07:58 #28356 [verbose] > │ #endif │
00:07:58 #28357 [verbose] > │ |> fun x -> _v34 <- Some x │
00:07:58 #28358 [verbose] > │ let v42 : Async<unit> = _v34.Value │
00:07:58 #28359 [verbose] > │ do! v42 │
00:07:58 #28360 [verbose] > │ let v43 : int64 = v1 + 1L │
00:07:58 #28361 [verbose] > │ let v44 : Async<int64> = method13(v0, v43) │
00:07:58 #28362 [verbose] > │ return! v44 │
00:07:58 #28363 [verbose] > │ (* │
00:07:58 #28364 [verbose] > │ let v45 : int64 = *) │
00:07:58 #28365 [verbose] > │ } │
00:07:58 #28366 [verbose] > │ |> fun x -> _v6 <- Some x │
00:07:58 #28367 [verbose] > │ let v46 : Async<int64> = _v6 |> Option.get │
00:07:58 #28368 [verbose] > │ v46 │
00:07:58 #28369 [verbose] > │ #endif │
00:07:58 #28370 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28371 [verbose] > │ let v47 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #28372 [verbose] > │ v47 │
00:07:58 #28373 [verbose] > │ #endif │
00:07:58 #28374 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28375 [verbose] > │ let v48 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:58 #28376 [verbose] > │ v48 │
00:07:58 #28377 [verbose] > │ #endif │
00:07:58 #28378 [verbose] > │ |> fun x -> _v2 <- Some x │
00:07:58 #28379 [verbose] > │ let v49 : Async<int64> = _v2.Value │
00:07:58 #28380 [verbose] > │ v49 │
00:07:58 #28381 [verbose] > │ and closure20 () () : string = │
00:07:58 #28382 [verbose] > │ let v0 : string = "6" │
00:07:58 #28383 [verbose] > │ v0 │
00:07:58 #28384 [verbose] > │ and closure21 () () : string = │
00:07:58 #28385 [verbose] > │ let v0 : string = "7" │
00:07:58 #28386 [verbose] > │ v0 │
00:07:58 #28387 [verbose] > │ and closure22 () () : string = │
00:07:58 #28388 [verbose] > │ let v0 : string = "8" │
00:07:58 #28389 [verbose] > │ v0 │
00:07:58 #28390 [verbose] > │ and closure23 () struct (v0 : int64, v1 : int64, v2 : string) : US4 = │
00:07:58 #28391 [verbose] > │ US4_0(v0, v1, v2) │
00:07:58 #28392 [verbose] > │ and closure24 () (v0 : exn) : US4 = │
00:07:58 #28393 [verbose] > │ US4_1(v0) │
00:07:58 #28394 [verbose] > │ and closure25 () () : string = │
00:07:58 #28395 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:07:58 #28396 [verbose] > │ v0 │
00:07:58 #28397 [verbose] > │ and closure26 () () : string = │
00:07:58 #28398 [verbose] > │ let v0 : (unit -> string) = closure2() │
00:07:58 #28399 [verbose] > │ let v1 : string = $"timeout: {3000} / {v0 ()}" │
00:07:58 #28400 [verbose] > │ v1 │
00:07:58 #28401 [verbose] > │ and closure27 (v0 : string) () : string = │
00:07:58 #28402 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:07:58 #28403 [verbose] > │ v1 │
00:07:58 #28404 [verbose] > │ and method15 (v0 : bool) : bool = │
00:07:58 #28405 [verbose] > │ v0 │
00:07:58 #28406 [verbose] > │ and method16 () : string = │
00:07:58 #28407 [verbose] > │ let v0 : string = "0" │
00:07:58 #28408 [verbose] > │ v0 │
00:07:58 #28409 [verbose] > │ and method0 () : unit = │
00:07:58 #28410 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:07:58 #28411 [verbose] > │ let mutable _v0 = v0 │
00:07:58 #28412 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28413 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:07:58 #28414 [verbose] > │ (string * System.IDisposable)> │
00:07:58 #28415 [verbose] > │ struct (v1, v2) │
00:07:58 #28416 [verbose] > │ #endif │
00:07:58 #28417 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28418 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:07:58 #28419 [verbose] > │ (string * System.IDisposable)> │
00:07:58 #28420 [verbose] > │ struct (v3, v4) │
00:07:58 #28421 [verbose] > │ #endif │
00:07:58 #28422 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28423 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:07:58 #28424 [verbose] > │ (string * System.IDisposable)> │
00:07:58 #28425 [verbose] > │ struct (v5, v6) │
00:07:58 #28426 [verbose] > │ #endif │
00:07:58 #28427 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28428 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28429 [verbose] > │ let v7 : string option = None │
00:07:58 #28430 [verbose] > │ let mutable _v7 = v7 │
00:07:58 #28431 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28432 [verbose] > │ let v8 : string = null |> unbox<string> │
00:07:58 #28433 [verbose] > │ v8 │
00:07:58 #28434 [verbose] > │ #endif │
00:07:58 #28435 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28436 [verbose] > │ let v9 : string = null |> unbox<string> │
00:07:58 #28437 [verbose] > │ v9 │
00:07:58 #28438 [verbose] > │ #endif │
00:07:58 #28439 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28440 [verbose] > │ let v10 : string = null |> unbox<string> │
00:07:58 #28441 [verbose] > │ v10 │
00:07:58 #28442 [verbose] > │ #endif │
00:07:58 #28443 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28444 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28445 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:07:58 #28446 [verbose] > │ let v12 : string = v11 () │
00:07:58 #28447 [verbose] > │ let v13 : (unit -> string) = closure0() │
00:07:58 #28448 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:07:58 #28449 [verbose] > │ let v15 : string option = None │
00:07:58 #28450 [verbose] > │ let mutable _v15 = v15 │
00:07:58 #28451 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28452 [verbose] > │ let v16 : string = method1(v12) │
00:07:58 #28453 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:58 #28454 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:07:58 #28455 [verbose] > │ let v19 : string = "String::from($0)" │
00:07:58 #28456 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:07:58 #28457 [verbose] > │ v19 │
00:07:58 #28458 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:07:58 #28459 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:07:58 #28460 [verbose] > │ let v23 : string = method1(v14) │
00:07:58 #28461 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:58 #28462 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:07:58 #28463 [verbose] > │ let v26 : string = "String::from($0)" │
00:07:58 #28464 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:07:58 #28465 [verbose] > │ v26 │
00:07:58 #28466 [verbose] > │ let v28 : string = "$0.join($1)" │
00:07:58 #28467 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:58 #28468 [verbose] > │ (v22, v27) v28 │
00:07:58 #28469 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:07:58 #28470 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:07:58 #28471 [verbose] > │ v30 │
00:07:58 #28472 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:07:58 #28473 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:07:58 #28474 [verbose] > │ v33 │
00:07:58 #28475 [verbose] > │ #endif │
00:07:58 #28476 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28477 [verbose] > │ let v34 : string = null |> unbox<string> │
00:07:58 #28478 [verbose] > │ v34 │
00:07:58 #28479 [verbose] > │ #endif │
00:07:58 #28480 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28481 [verbose] > │ let v35 : string = null |> unbox<string> │
00:07:58 #28482 [verbose] > │ v35 │
00:07:58 #28483 [verbose] > │ #endif │
00:07:58 #28484 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28485 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28486 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:07:58 #28487 [verbose] > │ v36 │
00:07:58 #28488 [verbose] > │ #endif │
00:07:58 #28489 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28490 [verbose] > │ let v37 : string = "path" │
00:07:58 #28491 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:58 #28492 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:07:58 #28493 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:07:58 #28494 [verbose] > │ v40 │
00:07:58 #28495 [verbose] > │ #endif │
00:07:58 #28496 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28497 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:07:58 #28498 [verbose] > │ v41 │
00:07:58 #28499 [verbose] > │ #endif │
00:07:58 #28500 [verbose] > │ |> fun x -> _v15 <- Some x │
00:07:58 #28501 [verbose] > │ let v42 : string = _v15.Value │
00:07:58 #28502 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:07:58 #28503 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:07:58 #28504 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:07:58 #28505 [verbose] > │ let v46 : string = v45 v44 │
00:07:58 #28506 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:07:58 #28507 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:07:58 #28508 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:07:58 #28509 [verbose] > │ let v50 : string = v49 v48 │
00:07:58 #28510 [verbose] > │ let v51 : string option = None │
00:07:58 #28511 [verbose] > │ let mutable _v51 = v51 │
00:07:58 #28512 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28513 [verbose] > │ let v52 : string = method1(v42) │
00:07:58 #28514 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:58 #28515 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:07:58 #28516 [verbose] > │ let v55 : string = "String::from($0)" │
00:07:58 #28517 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:07:58 #28518 [verbose] > │ v55 │
00:07:58 #28519 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:07:58 #28520 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:07:58 #28521 [verbose] > │ let v59 : string = method1(v50) │
00:07:58 #28522 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:58 #28523 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:07:58 #28524 [verbose] > │ let v62 : string = "String::from($0)" │
00:07:58 #28525 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:07:58 #28526 [verbose] > │ v62 │
00:07:58 #28527 [verbose] > │ let v64 : string = "$0.join($1)" │
00:07:58 #28528 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:58 #28529 [verbose] > │ (v58, v63) v64 │
00:07:58 #28530 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:07:58 #28531 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:07:58 #28532 [verbose] > │ v66 │
00:07:58 #28533 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:07:58 #28534 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:07:58 #28535 [verbose] > │ v69 │
00:07:58 #28536 [verbose] > │ #endif │
00:07:58 #28537 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28538 [verbose] > │ let v70 : string = null |> unbox<string> │
00:07:58 #28539 [verbose] > │ v70 │
00:07:58 #28540 [verbose] > │ #endif │
00:07:58 #28541 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28542 [verbose] > │ let v71 : string = null |> unbox<string> │
00:07:58 #28543 [verbose] > │ v71 │
00:07:58 #28544 [verbose] > │ #endif │
00:07:58 #28545 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28546 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28547 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:07:58 #28548 [verbose] > │ v72 │
00:07:58 #28549 [verbose] > │ #endif │
00:07:58 #28550 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28551 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:58 #28552 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:07:58 #28553 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:07:58 #28554 [verbose] > │ v75 │
00:07:58 #28555 [verbose] > │ #endif │
00:07:58 #28556 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28557 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:07:58 #28558 [verbose] > │ v76 │
00:07:58 #28559 [verbose] > │ #endif │
00:07:58 #28560 [verbose] > │ |> fun x -> _v51 <- Some x │
00:07:58 #28561 [verbose] > │ let v77 : string = _v51.Value │
00:07:58 #28562 [verbose] > │ v77 │
00:07:58 #28563 [verbose] > │ #endif │
00:07:58 #28564 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28565 [verbose] > │ let v78 : string = null |> unbox<string> │
00:07:58 #28566 [verbose] > │ v78 │
00:07:58 #28567 [verbose] > │ #endif │
00:07:58 #28568 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28569 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:07:58 #28570 [verbose] > │ v79 │
00:07:58 #28571 [verbose] > │ #endif │
00:07:58 #28572 [verbose] > │ |> fun x -> _v7 <- Some x │
00:07:58 #28573 [verbose] > │ let v80 : string = _v7.Value │
00:07:58 #28574 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:07:58 #28575 [verbose] > │ let mutable _v81 = v81 │
00:07:58 #28576 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28577 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:07:58 #28578 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:58 #28579 [verbose] > │ v82 │
00:07:58 #28580 [verbose] > │ #endif │
00:07:58 #28581 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28582 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:07:58 #28583 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:58 #28584 [verbose] > │ v83 │
00:07:58 #28585 [verbose] > │ #endif │
00:07:58 #28586 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28587 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:07:58 #28588 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:58 #28589 [verbose] > │ v84 │
00:07:58 #28590 [verbose] > │ #endif │
00:07:58 #28591 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28592 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28593 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:07:58 #28594 [verbose] > │ System.IO.Directory.CreateDirectory │
00:07:58 #28595 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:07:58 #28596 [verbose] > │ v86 │
00:07:58 #28597 [verbose] > │ #endif │
00:07:58 #28598 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28599 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:07:58 #28600 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:07:58 #28601 [verbose] > │ v87 │
00:07:58 #28602 [verbose] > │ #endif │
00:07:58 #28603 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28604 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:07:58 #28605 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:07:58 #28606 [verbose] > │ v88 │
00:07:58 #28607 [verbose] > │ #endif │
00:07:58 #28608 [verbose] > │ |> fun x -> _v81 <- Some x │
00:07:58 #28609 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:07:58 #28610 [verbose] > │ let v90 : bool option = None │
00:07:58 #28611 [verbose] > │ let mutable _v90 = v90 │
00:07:58 #28612 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28613 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:07:58 #28614 [verbose] > │ v91 │
00:07:58 #28615 [verbose] > │ #endif │
00:07:58 #28616 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28617 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:07:58 #28618 [verbose] > │ v92 │
00:07:58 #28619 [verbose] > │ #endif │
00:07:58 #28620 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28621 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:07:58 #28622 [verbose] > │ v93 │
00:07:58 #28623 [verbose] > │ #endif │
00:07:58 #28624 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28625 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28626 [verbose] > │ let v94 : bool = v89.Exists │
00:07:58 #28627 [verbose] > │ v94 │
00:07:58 #28628 [verbose] > │ #endif │
00:07:58 #28629 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28630 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:07:58 #28631 [verbose] > │ v95 │
00:07:58 #28632 [verbose] > │ #endif │
00:07:58 #28633 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28634 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:07:58 #28635 [verbose] > │ v96 │
00:07:58 #28636 [verbose] > │ #endif │
00:07:58 #28637 [verbose] > │ |> fun x -> _v90 <- Some x │
00:07:58 #28638 [verbose] > │ let v97 : bool = _v90.Value │
00:07:58 #28639 [verbose] > │ let v98 : bool = v97 = false │
00:07:58 #28640 [verbose] > │ if v98 then │
00:07:58 #28641 [verbose] > │ let v99 : System.DateTime option = None │
00:07:58 #28642 [verbose] > │ let mutable _v99 = v99 │
00:07:58 #28643 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28644 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:07:58 #28645 [verbose] > │ v100 │
00:07:58 #28646 [verbose] > │ #endif │
00:07:58 #28647 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28648 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:07:58 #28649 [verbose] > │ v101 │
00:07:58 #28650 [verbose] > │ #endif │
00:07:58 #28651 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28652 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:07:58 #28653 [verbose] > │ v102 │
00:07:58 #28654 [verbose] > │ #endif │
00:07:58 #28655 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28656 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28657 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:07:58 #28658 [verbose] > │ v103 │
00:07:58 #28659 [verbose] > │ #endif │
00:07:58 #28660 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28661 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:07:58 #28662 [verbose] > │ v104 │
00:07:58 #28663 [verbose] > │ #endif │
00:07:58 #28664 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:58 #28665 [verbose] > │ FABLE_COMPILER_DART │
00:07:58 #28666 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:07:58 #28667 [verbose] > │ v105 │
00:07:58 #28668 [verbose] > │ #endif │
00:07:58 #28669 [verbose] > │ |> fun x -> _v99 <- Some x │
00:07:58 #28670 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:07:58 #28671 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:07:58 #28672 [verbose] > │ let v108 : string = $"%A{v107}" │
00:07:58 #28673 [verbose] > │ let v109 : (unit -> string) = closure1(v80, v108) │
00:07:58 #28674 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:07:58 #28675 [verbose] > │ System.Console.WriteLine v110 │
00:07:58 #28676 [verbose] > │ () │
00:07:58 #28677 [verbose] > │ let v111 : System.IDisposable option = None │
00:07:58 #28678 [verbose] > │ let mutable _v111 = v111 │
00:07:58 #28679 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28680 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:58 #28681 [verbose] > │ v112 │
00:07:58 #28682 [verbose] > │ #endif │
00:07:58 #28683 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28684 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:58 #28685 [verbose] > │ v113 │
00:07:58 #28686 [verbose] > │ #endif │
00:07:58 #28687 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28688 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:58 #28689 [verbose] > │ v114 │
00:07:58 #28690 [verbose] > │ #endif │
00:07:58 #28691 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28692 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28693 [verbose] > │ let v115 : (unit -> unit) = closure3(v80) │
00:07:58 #28694 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:07:58 #28695 [verbose] > │ _.Dispose () = v115 () } │
00:07:58 #28696 [verbose] > │ v116 │
00:07:58 #28697 [verbose] > │ #endif │
00:07:58 #28698 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28699 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:07:58 #28700 [verbose] > │ v117 │
00:07:58 #28701 [verbose] > │ #endif │
00:07:58 #28702 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28703 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:07:58 #28704 [verbose] > │ v118 │
00:07:58 #28705 [verbose] > │ #endif │
00:07:58 #28706 [verbose] > │ |> fun x -> _v111 <- Some x │
00:07:58 #28707 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:07:58 #28708 [verbose] > │ struct (v80, v119) │
00:07:58 #28709 [verbose] > │ #endif │
00:07:58 #28710 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28711 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:07:58 #28712 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:07:58 #28713 [verbose] > │ struct (v120, v121) │
00:07:58 #28714 [verbose] > │ #endif │
00:07:58 #28715 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28716 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:07:58 #28717 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:07:58 #28718 [verbose] > │ struct (v122, v123) │
00:07:58 #28719 [verbose] > │ #endif │
00:07:58 #28720 [verbose] > │ |> fun x -> _v0 <- Some x │
00:07:58 #28721 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:07:58 #28722 [verbose] > │ use v125 = v125 │
00:07:58 #28723 [verbose] > │ let v126 : System.IDisposable = v125 │
00:07:58 #28724 [verbose] > │ let v127 : string option = None │
00:07:58 #28725 [verbose] > │ let mutable _v127 = v127 │
00:07:58 #28726 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28727 [verbose] > │ let v128 : string = method1(v124) │
00:07:58 #28728 [verbose] > │ let v129 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:58 #28729 [verbose] > │ let v130 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v128 v129 │
00:07:58 #28730 [verbose] > │ let v131 : string = "String::from($0)" │
00:07:58 #28731 [verbose] > │ let v132 : std_string_String = Fable.Core.RustInterop.emitRustExpr v130 │
00:07:58 #28732 [verbose] > │ v131 │
00:07:58 #28733 [verbose] > │ let v133 : string = "std::path::PathBuf::from($0)" │
00:07:58 #28734 [verbose] > │ let v134 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v132 │
00:07:58 #28735 [verbose] > │ v133 │
00:07:58 #28736 [verbose] > │ let v135 : string = method4() │
00:07:58 #28737 [verbose] > │ let v136 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:58 #28738 [verbose] > │ let v137 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v135 v136 │
00:07:58 #28739 [verbose] > │ let v138 : string = "String::from($0)" │
00:07:58 #28740 [verbose] > │ let v139 : std_string_String = Fable.Core.RustInterop.emitRustExpr v137 │
00:07:58 #28741 [verbose] > │ v138 │
00:07:58 #28742 [verbose] > │ let v140 : string = "$0.join($1)" │
00:07:58 #28743 [verbose] > │ let v141 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:58 #28744 [verbose] > │ (v134, v139) v140 │
00:07:58 #28745 [verbose] > │ let v142 : string = "$0.display().to_string()" │
00:07:58 #28746 [verbose] > │ let v143 : std_string_String = Fable.Core.RustInterop.emitRustExpr v141 │
00:07:58 #28747 [verbose] > │ v142 │
00:07:58 #28748 [verbose] > │ let v144 : string = "fable_library_rust::String_::fromString($0)" │
00:07:58 #28749 [verbose] > │ let v145 : string = Fable.Core.RustInterop.emitRustExpr v143 v144 │
00:07:58 #28750 [verbose] > │ v145 │
00:07:58 #28751 [verbose] > │ #endif │
00:07:58 #28752 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28753 [verbose] > │ let v146 : string = null |> unbox<string> │
00:07:58 #28754 [verbose] > │ v146 │
00:07:58 #28755 [verbose] > │ #endif │
00:07:58 #28756 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28757 [verbose] > │ let v147 : string = null |> unbox<string> │
00:07:58 #28758 [verbose] > │ v147 │
00:07:58 #28759 [verbose] > │ #endif │
00:07:58 #28760 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28761 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28762 [verbose] > │ let v148 : string = "test.txt" │
00:07:58 #28763 [verbose] > │ let v149 : string = System.IO.Path.Combine (v124, v148) │
00:07:58 #28764 [verbose] > │ v149 │
00:07:58 #28765 [verbose] > │ #endif │
00:07:58 #28766 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28767 [verbose] > │ let v150 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:58 #28768 [verbose] > │ let v151 : string = "v150.join($0, $1)" │
00:07:58 #28769 [verbose] > │ let v152 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v148) │
00:07:58 #28770 [verbose] > │ v151 │
00:07:58 #28771 [verbose] > │ v152 │
00:07:58 #28772 [verbose] > │ #endif │
00:07:58 #28773 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28774 [verbose] > │ let v153 : string = Unchecked.defaultof<string> │
00:07:58 #28775 [verbose] > │ v153 │
00:07:58 #28776 [verbose] > │ #endif │
00:07:58 #28777 [verbose] > │ |> fun x -> _v127 <- Some x │
00:07:58 #28778 [verbose] > │ let v154 : string = _v127.Value │
00:07:58 #28779 [verbose] > │ let v155 : string option = None │
00:07:58 #28780 [verbose] > │ let mutable _v155 = v155 │
00:07:58 #28781 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28782 [verbose] > │ let v156 : string = method1(v124) │
00:07:58 #28783 [verbose] > │ let v157 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:58 #28784 [verbose] > │ let v158 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v156 v157 │
00:07:58 #28785 [verbose] > │ let v159 : string = "String::from($0)" │
00:07:58 #28786 [verbose] > │ let v160 : std_string_String = Fable.Core.RustInterop.emitRustExpr v158 │
00:07:58 #28787 [verbose] > │ v159 │
00:07:58 #28788 [verbose] > │ let v161 : string = "std::path::PathBuf::from($0)" │
00:07:58 #28789 [verbose] > │ let v162 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v160 │
00:07:58 #28790 [verbose] > │ v161 │
00:07:58 #28791 [verbose] > │ let v163 : string = method5() │
00:07:58 #28792 [verbose] > │ let v164 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:07:58 #28793 [verbose] > │ let v165 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v163 v164 │
00:07:58 #28794 [verbose] > │ let v166 : string = "String::from($0)" │
00:07:58 #28795 [verbose] > │ let v167 : std_string_String = Fable.Core.RustInterop.emitRustExpr v165 │
00:07:58 #28796 [verbose] > │ v166 │
00:07:58 #28797 [verbose] > │ let v168 : string = "$0.join($1)" │
00:07:58 #28798 [verbose] > │ let v169 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:07:58 #28799 [verbose] > │ (v162, v167) v168 │
00:07:58 #28800 [verbose] > │ let v170 : string = "$0.display().to_string()" │
00:07:58 #28801 [verbose] > │ let v171 : std_string_String = Fable.Core.RustInterop.emitRustExpr v169 │
00:07:58 #28802 [verbose] > │ v170 │
00:07:58 #28803 [verbose] > │ let v172 : string = "fable_library_rust::String_::fromString($0)" │
00:07:58 #28804 [verbose] > │ let v173 : string = Fable.Core.RustInterop.emitRustExpr v171 v172 │
00:07:58 #28805 [verbose] > │ v173 │
00:07:58 #28806 [verbose] > │ #endif │
00:07:58 #28807 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28808 [verbose] > │ let v174 : string = null |> unbox<string> │
00:07:58 #28809 [verbose] > │ v174 │
00:07:58 #28810 [verbose] > │ #endif │
00:07:58 #28811 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28812 [verbose] > │ let v175 : string = null |> unbox<string> │
00:07:58 #28813 [verbose] > │ v175 │
00:07:58 #28814 [verbose] > │ #endif │
00:07:58 #28815 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28816 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28817 [verbose] > │ let v176 : string = "test2.txt" │
00:07:58 #28818 [verbose] > │ let v177 : string = System.IO.Path.Combine (v124, v176) │
00:07:58 #28819 [verbose] > │ v177 │
00:07:58 #28820 [verbose] > │ #endif │
00:07:58 #28821 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28822 [verbose] > │ let v178 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:07:58 #28823 [verbose] > │ let v179 : string = "v178.join($0, $1)" │
00:07:58 #28824 [verbose] > │ let v180 : string = Fable.Core.JsInterop.emitJsExpr struct (v124, v176) │
00:07:58 #28825 [verbose] > │ v179 │
00:07:58 #28826 [verbose] > │ v180 │
00:07:58 #28827 [verbose] > │ #endif │
00:07:58 #28828 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28829 [verbose] > │ let v181 : string = Unchecked.defaultof<string> │
00:07:58 #28830 [verbose] > │ v181 │
00:07:58 #28831 [verbose] > │ #endif │
00:07:58 #28832 [verbose] > │ |> fun x -> _v155 <- Some x │
00:07:58 #28833 [verbose] > │ let v182 : string = _v155.Value │
00:07:58 #28834 [verbose] > │ let v183 : Async<struct (int64 * int64 * string)> option = None │
00:07:58 #28835 [verbose] > │ let mutable _v183 = v183 │
00:07:58 #28836 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28837 [verbose] > │ let v184 : Async<struct (int64 * int64 * string)> = null |> │
00:07:58 #28838 [verbose] > │ unbox<Async<struct (int64 * int64 * string)>> │
00:07:58 #28839 [verbose] > │ v184 │
00:07:58 #28840 [verbose] > │ #endif │
00:07:58 #28841 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28842 [verbose] > │ let v185 : Async<struct (int64 * int64 * string)> = null |> │
00:07:58 #28843 [verbose] > │ unbox<Async<struct (int64 * int64 * string)>> │
00:07:58 #28844 [verbose] > │ v185 │
00:07:58 #28845 [verbose] > │ #endif │
00:07:58 #28846 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28847 [verbose] > │ let v186 : Async<struct (int64 * int64 * string)> = null |> │
00:07:58 #28848 [verbose] > │ unbox<Async<struct (int64 * int64 * string)>> │
00:07:58 #28849 [verbose] > │ v186 │
00:07:58 #28850 [verbose] > │ #endif │
00:07:58 #28851 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28852 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28853 [verbose] > │ let v187 : Async<struct (int64 * int64 * string)> option = None │
00:07:58 #28854 [verbose] > │ let mutable _v187 = v187 │
00:07:58 #28855 [verbose] > │ async { │
00:07:58 #28856 [verbose] > │ let v188 : US0 = US0_1 │
00:07:58 #28857 [verbose] > │ let v189 : (unit -> string) = closure6() │
00:07:58 #28858 [verbose] > │ let v190 : (unit -> string) = closure2() │
00:07:58 #28859 [verbose] > │ method6(v188, v189, v190) │
00:07:58 #28860 [verbose] > │ let v191 : Async<unit> option = None │
00:07:58 #28861 [verbose] > │ let mutable _v191 = v191 │
00:07:58 #28862 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28863 [verbose] > │ let v192 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28864 [verbose] > │ v192 │
00:07:58 #28865 [verbose] > │ #endif │
00:07:58 #28866 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28867 [verbose] > │ let v193 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28868 [verbose] > │ v193 │
00:07:58 #28869 [verbose] > │ #endif │
00:07:58 #28870 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28871 [verbose] > │ let v194 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28872 [verbose] > │ v194 │
00:07:58 #28873 [verbose] > │ #endif │
00:07:58 #28874 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28875 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28876 [verbose] > │ let v195 : string = "0" │
00:07:58 #28877 [verbose] > │ let v196 : System.Threading.Tasks.Task = │
00:07:58 #28878 [verbose] > │ System.IO.File.WriteAllTextAsync (v154, v195) │
00:07:58 #28879 [verbose] > │ let v197 : Async<unit> option = None │
00:07:58 #28880 [verbose] > │ let mutable _v197 = v197 │
00:07:58 #28881 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28882 [verbose] > │ let v198 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28883 [verbose] > │ v198 │
00:07:58 #28884 [verbose] > │ #endif │
00:07:58 #28885 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28886 [verbose] > │ let v199 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28887 [verbose] > │ v199 │
00:07:58 #28888 [verbose] > │ #endif │
00:07:58 #28889 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28890 [verbose] > │ let v200 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28891 [verbose] > │ v200 │
00:07:58 #28892 [verbose] > │ #endif │
00:07:58 #28893 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28894 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28895 [verbose] > │ let v201 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:07:58 #28896 [verbose] > │ Async.AwaitTask │
00:07:58 #28897 [verbose] > │ let v202 : Async<unit> = v201 v196 │
00:07:58 #28898 [verbose] > │ v202 │
00:07:58 #28899 [verbose] > │ #endif │
00:07:58 #28900 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28901 [verbose] > │ let v203 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28902 [verbose] > │ v203 │
00:07:58 #28903 [verbose] > │ #endif │
00:07:58 #28904 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28905 [verbose] > │ let v204 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:58 #28906 [verbose] > │ v204 │
00:07:58 #28907 [verbose] > │ #endif │
00:07:58 #28908 [verbose] > │ |> fun x -> _v197 <- Some x │
00:07:58 #28909 [verbose] > │ let v205 : Async<unit> = _v197.Value │
00:07:58 #28910 [verbose] > │ v205 │
00:07:58 #28911 [verbose] > │ #endif │
00:07:58 #28912 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28913 [verbose] > │ let v206 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28914 [verbose] > │ v206 │
00:07:58 #28915 [verbose] > │ #endif │
00:07:58 #28916 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28917 [verbose] > │ let v207 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:58 #28918 [verbose] > │ v207 │
00:07:58 #28919 [verbose] > │ #endif │
00:07:58 #28920 [verbose] > │ |> fun x -> _v191 <- Some x │
00:07:58 #28921 [verbose] > │ let v208 : Async<unit> = _v191.Value │
00:07:58 #28922 [verbose] > │ do! v208 │
00:07:58 #28923 [verbose] > │ let v209 : US0 = US0_1 │
00:07:58 #28924 [verbose] > │ let v210 : (unit -> string) = closure10() │
00:07:58 #28925 [verbose] > │ method6(v209, v210, v190) │
00:07:58 #28926 [verbose] > │ let v211 : Async<unit> option = None │
00:07:58 #28927 [verbose] > │ let mutable _v211 = v211 │
00:07:58 #28928 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28929 [verbose] > │ let v212 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28930 [verbose] > │ v212 │
00:07:58 #28931 [verbose] > │ #endif │
00:07:58 #28932 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28933 [verbose] > │ let v213 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28934 [verbose] > │ v213 │
00:07:58 #28935 [verbose] > │ #endif │
00:07:58 #28936 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28937 [verbose] > │ let v214 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28938 [verbose] > │ v214 │
00:07:58 #28939 [verbose] > │ #endif │
00:07:58 #28940 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28941 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28942 [verbose] > │ let v215 : Async<unit> option = None │
00:07:58 #28943 [verbose] > │ let mutable _v215 = v215 │
00:07:58 #28944 [verbose] > │ async { │
00:07:58 #28945 [verbose] > │ let v216 : US0 = US0_1 │
00:07:58 #28946 [verbose] > │ let v217 : (unit -> string) = closure11() │
00:07:58 #28947 [verbose] > │ method6(v216, v217, v190) │
00:07:58 #28948 [verbose] > │ let v218 : System.IO.FileStream option = None │
00:07:58 #28949 [verbose] > │ let mutable _v218 = v218 │
00:07:58 #28950 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28951 [verbose] > │ let v219 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:58 #28952 [verbose] > │ v219 │
00:07:58 #28953 [verbose] > │ #endif │
00:07:58 #28954 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28955 [verbose] > │ let v220 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:58 #28956 [verbose] > │ v220 │
00:07:58 #28957 [verbose] > │ #endif │
00:07:58 #28958 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28959 [verbose] > │ let v221 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:58 #28960 [verbose] > │ v221 │
00:07:58 #28961 [verbose] > │ #endif │
00:07:58 #28962 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #28963 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #28964 [verbose] > │ let v222 : System.IO.FileMode = System.IO.FileMode.Open │
00:07:58 #28965 [verbose] > │ let v223 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:07:58 #28966 [verbose] > │ let v224 : System.IO.FileShare = System.IO.FileShare.None │
00:07:58 #28967 [verbose] > │ let v225 : System.IO.FileStream = new System.IO.FileStream (v154, v222, │
00:07:58 #28968 [verbose] > │ v223, v224) │
00:07:58 #28969 [verbose] > │ v225 │
00:07:58 #28970 [verbose] > │ #endif │
00:07:58 #28971 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #28972 [verbose] > │ let v226 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:07:58 #28973 [verbose] > │ v226 │
00:07:58 #28974 [verbose] > │ #endif │
00:07:58 #28975 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #28976 [verbose] > │ let v227 : System.IO.FileStream = │
00:07:58 #28977 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:07:58 #28978 [verbose] > │ v227 │
00:07:58 #28979 [verbose] > │ #endif │
00:07:58 #28980 [verbose] > │ |> fun x -> _v218 <- Some x │
00:07:58 #28981 [verbose] > │ let v228 : System.IO.FileStream = _v218.Value │
00:07:58 #28982 [verbose] > │ use v228 = v228 │
00:07:58 #28983 [verbose] > │ let v229 : System.IO.FileStream = v228 │
00:07:58 #28984 [verbose] > │ let v230 : US0 = US0_1 │
00:07:58 #28985 [verbose] > │ let v231 : (unit -> string) = closure12() │
00:07:58 #28986 [verbose] > │ method6(v230, v231, v190) │
00:07:58 #28987 [verbose] > │ let v232 : Async<unit> option = None │
00:07:58 #28988 [verbose] > │ let mutable _v232 = v232 │
00:07:58 #28989 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #28990 [verbose] > │ let v233 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28991 [verbose] > │ v233 │
00:07:58 #28992 [verbose] > │ #endif │
00:07:58 #28993 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #28994 [verbose] > │ let v234 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28995 [verbose] > │ v234 │
00:07:58 #28996 [verbose] > │ #endif │
00:07:58 #28997 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #28998 [verbose] > │ let v235 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #28999 [verbose] > │ v235 │
00:07:58 #29000 [verbose] > │ #endif │
00:07:58 #29001 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29002 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29003 [verbose] > │ let v236 : (int32 -> Async<unit>) = Async.Sleep │
00:07:58 #29004 [verbose] > │ let v237 : Async<unit> = v236 2000 │
00:07:58 #29005 [verbose] > │ v237 │
00:07:58 #29006 [verbose] > │ #endif │
00:07:58 #29007 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29008 [verbose] > │ let v238 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #29009 [verbose] > │ v238 │
00:07:58 #29010 [verbose] > │ #endif │
00:07:58 #29011 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29012 [verbose] > │ let v239 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:58 #29013 [verbose] > │ v239 │
00:07:58 #29014 [verbose] > │ #endif │
00:07:58 #29015 [verbose] > │ |> fun x -> _v232 <- Some x │
00:07:58 #29016 [verbose] > │ let v240 : Async<unit> = _v232.Value │
00:07:58 #29017 [verbose] > │ do! v240 │
00:07:58 #29018 [verbose] > │ let v241 : US0 = US0_1 │
00:07:58 #29019 [verbose] > │ let v242 : (unit -> string) = closure13() │
00:07:58 #29020 [verbose] > │ method6(v241, v242, v190) │
00:07:58 #29021 [verbose] > │ } │
00:07:58 #29022 [verbose] > │ |> fun x -> _v215 <- Some x │
00:07:58 #29023 [verbose] > │ let v243 : Async<unit> = _v215 |> Option.get │
00:07:58 #29024 [verbose] > │ v243 │
00:07:58 #29025 [verbose] > │ #endif │
00:07:58 #29026 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29027 [verbose] > │ let v244 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #29028 [verbose] > │ v244 │
00:07:58 #29029 [verbose] > │ #endif │
00:07:58 #29030 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29031 [verbose] > │ let v245 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:58 #29032 [verbose] > │ v245 │
00:07:58 #29033 [verbose] > │ #endif │
00:07:58 #29034 [verbose] > │ |> fun x -> _v211 <- Some x │
00:07:58 #29035 [verbose] > │ let v246 : Async<unit> = _v211.Value │
00:07:58 #29036 [verbose] > │ let v247 : Async<Async<unit>> option = None │
00:07:58 #29037 [verbose] > │ let mutable _v247 = v247 │
00:07:58 #29038 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29039 [verbose] > │ let v248 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:58 #29040 [verbose] > │ v248 │
00:07:58 #29041 [verbose] > │ #endif │
00:07:58 #29042 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29043 [verbose] > │ let v249 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:58 #29044 [verbose] > │ v249 │
00:07:58 #29045 [verbose] > │ #endif │
00:07:58 #29046 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29047 [verbose] > │ let v250 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:58 #29048 [verbose] > │ v250 │
00:07:58 #29049 [verbose] > │ #endif │
00:07:58 #29050 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29051 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29052 [verbose] > │ let v251 : (Async<unit> -> Async<Async<unit>>) = Async.StartChild │
00:07:58 #29053 [verbose] > │ let v252 : Async<Async<unit>> = v251 v246 │
00:07:58 #29054 [verbose] > │ v252 │
00:07:58 #29055 [verbose] > │ #endif │
00:07:58 #29056 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29057 [verbose] > │ let v253 : Async<Async<unit>> = null |> unbox<Async<Async<unit>>> │
00:07:58 #29058 [verbose] > │ v253 │
00:07:58 #29059 [verbose] > │ #endif │
00:07:58 #29060 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29061 [verbose] > │ let v254 : Async<Async<unit>> = Unchecked.defaultof<Async<Async<unit>>> │
00:07:58 #29062 [verbose] > │ v254 │
00:07:58 #29063 [verbose] > │ #endif │
00:07:58 #29064 [verbose] > │ |> fun x -> _v247 <- Some x │
00:07:58 #29065 [verbose] > │ let v255 : Async<Async<unit>> = _v247.Value │
00:07:58 #29066 [verbose] > │ let! v255 = v255 │
00:07:58 #29067 [verbose] > │ let v256 : Async<unit> = v255 │
00:07:58 #29068 [verbose] > │ let v257 : US0 = US0_1 │
00:07:58 #29069 [verbose] > │ let v258 : (unit -> string) = closure14() │
00:07:58 #29070 [verbose] > │ method6(v257, v258, v190) │
00:07:58 #29071 [verbose] > │ let v259 : Async<unit> option = None │
00:07:58 #29072 [verbose] > │ let mutable _v259 = v259 │
00:07:58 #29073 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29074 [verbose] > │ let v260 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #29075 [verbose] > │ v260 │
00:07:58 #29076 [verbose] > │ #endif │
00:07:58 #29077 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29078 [verbose] > │ let v261 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #29079 [verbose] > │ v261 │
00:07:58 #29080 [verbose] > │ #endif │
00:07:58 #29081 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29082 [verbose] > │ let v262 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #29083 [verbose] > │ v262 │
00:07:58 #29084 [verbose] > │ #endif │
00:07:58 #29085 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29086 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29087 [verbose] > │ let v263 : (int32 -> Async<unit>) = Async.Sleep │
00:07:58 #29088 [verbose] > │ let v264 : Async<unit> = v263 1 │
00:07:58 #29089 [verbose] > │ v264 │
00:07:58 #29090 [verbose] > │ #endif │
00:07:58 #29091 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29092 [verbose] > │ let v265 : Async<unit> = null |> unbox<Async<unit>> │
00:07:58 #29093 [verbose] > │ v265 │
00:07:58 #29094 [verbose] > │ #endif │
00:07:58 #29095 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29096 [verbose] > │ let v266 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:07:58 #29097 [verbose] > │ v266 │
00:07:58 #29098 [verbose] > │ #endif │
00:07:58 #29099 [verbose] > │ |> fun x -> _v259 <- Some x │
00:07:58 #29100 [verbose] > │ let v267 : Async<unit> = _v259.Value │
00:07:58 #29101 [verbose] > │ do! v267 │
00:07:58 #29102 [verbose] > │ let v268 : US0 = US0_1 │
00:07:58 #29103 [verbose] > │ let v269 : (unit -> string) = closure15() │
00:07:58 #29104 [verbose] > │ method6(v268, v269, v190) │
00:07:58 #29105 [verbose] > │ let v270 : Async<int64> option = None │
00:07:58 #29106 [verbose] > │ let mutable _v270 = v270 │
00:07:58 #29107 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29108 [verbose] > │ let v271 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #29109 [verbose] > │ v271 │
00:07:58 #29110 [verbose] > │ #endif │
00:07:58 #29111 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29112 [verbose] > │ let v272 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #29113 [verbose] > │ v272 │
00:07:58 #29114 [verbose] > │ #endif │
00:07:58 #29115 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29116 [verbose] > │ let v273 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #29117 [verbose] > │ v273 │
00:07:58 #29118 [verbose] > │ #endif │
00:07:58 #29119 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29120 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29121 [verbose] > │ let v274 : int64 = 0L │
00:07:58 #29122 [verbose] > │ let v275 : Async<int64> = method11(v182, v154, v274) │
00:07:58 #29123 [verbose] > │ v275 │
00:07:58 #29124 [verbose] > │ #endif │
00:07:58 #29125 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29126 [verbose] > │ let v276 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #29127 [verbose] > │ v276 │
00:07:58 #29128 [verbose] > │ #endif │
00:07:58 #29129 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29130 [verbose] > │ let v277 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:58 #29131 [verbose] > │ v277 │
00:07:58 #29132 [verbose] > │ #endif │
00:07:58 #29133 [verbose] > │ |> fun x -> _v270 <- Some x │
00:07:58 #29134 [verbose] > │ let v278 : Async<int64> = _v270.Value │
00:07:58 #29135 [verbose] > │ let! v278 = v278 │
00:07:58 #29136 [verbose] > │ let v279 : int64 = v278 │
00:07:58 #29137 [verbose] > │ let v280 : US0 = US0_1 │
00:07:58 #29138 [verbose] > │ let v281 : (unit -> string) = closure18() │
00:07:58 #29139 [verbose] > │ method6(v280, v281, v190) │
00:07:58 #29140 [verbose] > │ let v282 : Async<int64> option = None │
00:07:58 #29141 [verbose] > │ let mutable _v282 = v282 │
00:07:58 #29142 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29143 [verbose] > │ let v283 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #29144 [verbose] > │ v283 │
00:07:58 #29145 [verbose] > │ #endif │
00:07:58 #29146 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29147 [verbose] > │ let v284 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #29148 [verbose] > │ v284 │
00:07:58 #29149 [verbose] > │ #endif │
00:07:58 #29150 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29151 [verbose] > │ let v285 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #29152 [verbose] > │ v285 │
00:07:58 #29153 [verbose] > │ #endif │
00:07:58 #29154 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29155 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29156 [verbose] > │ let v286 : int64 = 0L │
00:07:58 #29157 [verbose] > │ let v287 : Async<int64> = method13(v182, v286) │
00:07:58 #29158 [verbose] > │ v287 │
00:07:58 #29159 [verbose] > │ #endif │
00:07:58 #29160 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29161 [verbose] > │ let v288 : Async<int64> = null |> unbox<Async<int64>> │
00:07:58 #29162 [verbose] > │ v288 │
00:07:58 #29163 [verbose] > │ #endif │
00:07:58 #29164 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29165 [verbose] > │ let v289 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:07:58 #29166 [verbose] > │ v289 │
00:07:58 #29167 [verbose] > │ #endif │
00:07:58 #29168 [verbose] > │ |> fun x -> _v282 <- Some x │
00:07:58 #29169 [verbose] > │ let v290 : Async<int64> = _v282.Value │
00:07:58 #29170 [verbose] > │ let! v290 = v290 │
00:07:58 #29171 [verbose] > │ let v291 : int64 = v290 │
00:07:58 #29172 [verbose] > │ let v292 : US0 = US0_1 │
00:07:58 #29173 [verbose] > │ let v293 : (unit -> string) = closure20() │
00:07:58 #29174 [verbose] > │ method6(v292, v293, v190) │
00:07:58 #29175 [verbose] > │ let v294 : Async<string> option = None │
00:07:58 #29176 [verbose] > │ let mutable _v294 = v294 │
00:07:58 #29177 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29178 [verbose] > │ let v295 : Async<string> = null |> unbox<Async<string>> │
00:07:58 #29179 [verbose] > │ v295 │
00:07:58 #29180 [verbose] > │ #endif │
00:07:58 #29181 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29182 [verbose] > │ let v296 : Async<string> = null |> unbox<Async<string>> │
00:07:58 #29183 [verbose] > │ v296 │
00:07:58 #29184 [verbose] > │ #endif │
00:07:58 #29185 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29186 [verbose] > │ let v297 : Async<string> = null |> unbox<Async<string>> │
00:07:58 #29187 [verbose] > │ v297 │
00:07:58 #29188 [verbose] > │ #endif │
00:07:58 #29189 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29190 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29191 [verbose] > │ let v298 : (string -> System.Threading.Tasks.Task<string>) = │
00:07:58 #29192 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:07:58 #29193 [verbose] > │ let v299 : System.Threading.Tasks.Task<string> = v298 v182 │
00:07:58 #29194 [verbose] > │ let v300 : Async<string> option = None │
00:07:58 #29195 [verbose] > │ let mutable _v300 = v300 │
00:07:58 #29196 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29197 [verbose] > │ let v301 : Async<string> = null |> unbox<Async<string>> │
00:07:58 #29198 [verbose] > │ v301 │
00:07:58 #29199 [verbose] > │ #endif │
00:07:58 #29200 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29201 [verbose] > │ let v302 : Async<string> = null |> unbox<Async<string>> │
00:07:58 #29202 [verbose] > │ v302 │
00:07:58 #29203 [verbose] > │ #endif │
00:07:58 #29204 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29205 [verbose] > │ let v303 : Async<string> = null |> unbox<Async<string>> │
00:07:58 #29206 [verbose] > │ v303 │
00:07:58 #29207 [verbose] > │ #endif │
00:07:58 #29208 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29209 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29210 [verbose] > │ let v304 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:07:58 #29211 [verbose] > │ Async.AwaitTask │
00:07:58 #29212 [verbose] > │ let v305 : Async<string> = v304 v299 │
00:07:58 #29213 [verbose] > │ v305 │
00:07:58 #29214 [verbose] > │ #endif │
00:07:58 #29215 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29216 [verbose] > │ let v306 : Async<string> = null |> unbox<Async<string>> │
00:07:58 #29217 [verbose] > │ v306 │
00:07:58 #29218 [verbose] > │ #endif │
00:07:58 #29219 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29220 [verbose] > │ let v307 : Async<string> = Unchecked.defaultof<Async<string>> │
00:07:58 #29221 [verbose] > │ v307 │
00:07:58 #29222 [verbose] > │ #endif │
00:07:58 #29223 [verbose] > │ |> fun x -> _v300 <- Some x │
00:07:58 #29224 [verbose] > │ let v308 : Async<string> = _v300.Value │
00:07:58 #29225 [verbose] > │ v308 │
00:07:58 #29226 [verbose] > │ #endif │
00:07:58 #29227 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29228 [verbose] > │ let v309 : Async<string> = null |> unbox<Async<string>> │
00:07:58 #29229 [verbose] > │ v309 │
00:07:58 #29230 [verbose] > │ #endif │
00:07:58 #29231 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29232 [verbose] > │ let v310 : Async<string> = Unchecked.defaultof<Async<string>> │
00:07:58 #29233 [verbose] > │ v310 │
00:07:58 #29234 [verbose] > │ #endif │
00:07:58 #29235 [verbose] > │ |> fun x -> _v294 <- Some x │
00:07:58 #29236 [verbose] > │ let v311 : Async<string> = _v294.Value │
00:07:58 #29237 [verbose] > │ let! v311 = v311 │
00:07:58 #29238 [verbose] > │ let v312 : string = v311 │
00:07:58 #29239 [verbose] > │ let v313 : US0 = US0_1 │
00:07:58 #29240 [verbose] > │ let v314 : (unit -> string) = closure21() │
00:07:58 #29241 [verbose] > │ method6(v313, v314, v190) │
00:07:58 #29242 [verbose] > │ do! v256 │
00:07:58 #29243 [verbose] > │ let v315 : US0 = US0_1 │
00:07:58 #29244 [verbose] > │ let v316 : (unit -> string) = closure22() │
00:07:58 #29245 [verbose] > │ method6(v315, v316, v190) │
00:07:58 #29246 [verbose] > │ return struct (v279, v291, v312) │
00:07:58 #29247 [verbose] > │ } │
00:07:58 #29248 [verbose] > │ |> fun x -> _v187 <- Some x │
00:07:58 #29249 [verbose] > │ let v317 : Async<struct (int64 * int64 * string)> = _v187 |> Option.get │
00:07:58 #29250 [verbose] > │ v317 │
00:07:58 #29251 [verbose] > │ #endif │
00:07:58 #29252 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29253 [verbose] > │ let v318 : Async<struct (int64 * int64 * string)> = null |> │
00:07:58 #29254 [verbose] > │ unbox<Async<struct (int64 * int64 * string)>> │
00:07:58 #29255 [verbose] > │ v318 │
00:07:58 #29256 [verbose] > │ #endif │
00:07:58 #29257 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29258 [verbose] > │ let v319 : Async<struct (int64 * int64 * string)> = │
00:07:58 #29259 [verbose] > │ Unchecked.defaultof<Async<struct (int64 * int64 * string)>> │
00:07:58 #29260 [verbose] > │ v319 │
00:07:58 #29261 [verbose] > │ #endif │
00:07:58 #29262 [verbose] > │ |> fun x -> _v183 <- Some x │
00:07:58 #29263 [verbose] > │ let v320 : Async<struct (int64 * int64 * string)> = _v183.Value │
00:07:58 #29264 [verbose] > │ let v321 : Async<US3> option = None │
00:07:58 #29265 [verbose] > │ let mutable _v321 = v321 │
00:07:58 #29266 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29267 [verbose] > │ let v322 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29268 [verbose] > │ v322 │
00:07:58 #29269 [verbose] > │ #endif │
00:07:58 #29270 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29271 [verbose] > │ let v323 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29272 [verbose] > │ v323 │
00:07:58 #29273 [verbose] > │ #endif │
00:07:58 #29274 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29275 [verbose] > │ let v324 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29276 [verbose] > │ v324 │
00:07:58 #29277 [verbose] > │ #endif │
00:07:58 #29278 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29279 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29280 [verbose] > │ let v325 : Async<US3> option = None │
00:07:58 #29281 [verbose] > │ let mutable _v325 = v325 │
00:07:58 #29282 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29283 [verbose] > │ let v326 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29284 [verbose] > │ v326 │
00:07:58 #29285 [verbose] > │ #endif │
00:07:58 #29286 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29287 [verbose] > │ let v327 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29288 [verbose] > │ v327 │
00:07:58 #29289 [verbose] > │ #endif │
00:07:58 #29290 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29291 [verbose] > │ let v328 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29292 [verbose] > │ v328 │
00:07:58 #29293 [verbose] > │ #endif │
00:07:58 #29294 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29295 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29296 [verbose] > │ let v329 : Async<US3> option = None │
00:07:58 #29297 [verbose] > │ let mutable _v329 = v329 │
00:07:58 #29298 [verbose] > │ async { │
00:07:58 #29299 [verbose] > │ let v330 : Async<Async<struct (int64 * int64 * string)>> option = None │
00:07:58 #29300 [verbose] > │ let mutable _v330 = v330 │
00:07:58 #29301 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29302 [verbose] > │ let v331 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:07:58 #29303 [verbose] > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:07:58 #29304 [verbose] > │ v331 │
00:07:58 #29305 [verbose] > │ #endif │
00:07:58 #29306 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29307 [verbose] > │ let v332 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:07:58 #29308 [verbose] > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:07:58 #29309 [verbose] > │ v332 │
00:07:58 #29310 [verbose] > │ #endif │
00:07:58 #29311 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29312 [verbose] > │ let v333 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:07:58 #29313 [verbose] > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:07:58 #29314 [verbose] > │ v333 │
00:07:58 #29315 [verbose] > │ #endif │
00:07:58 #29316 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29317 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29318 [verbose] > │ let v334 : Async<Async<struct (int64 * int64 * string)>> = │
00:07:58 #29319 [verbose] > │ Async.StartChild (v320, 3000) │
00:07:58 #29320 [verbose] > │ v334 │
00:07:58 #29321 [verbose] > │ #endif │
00:07:58 #29322 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29323 [verbose] > │ let v335 : Async<Async<struct (int64 * int64 * string)>> = null |> │
00:07:58 #29324 [verbose] > │ unbox<Async<Async<struct (int64 * int64 * string)>>> │
00:07:58 #29325 [verbose] > │ v335 │
00:07:58 #29326 [verbose] > │ #endif │
00:07:58 #29327 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29328 [verbose] > │ let v336 : Async<Async<struct (int64 * int64 * string)>> = │
00:07:58 #29329 [verbose] > │ Unchecked.defaultof<Async<Async<struct (int64 * int64 * string)>>> │
00:07:58 #29330 [verbose] > │ v336 │
00:07:58 #29331 [verbose] > │ #endif │
00:07:58 #29332 [verbose] > │ |> fun x -> _v330 <- Some x │
00:07:58 #29333 [verbose] > │ let v337 : Async<Async<struct (int64 * int64 * string)>> = _v330.Value │
00:07:58 #29334 [verbose] > │ let! v337 = v337 │
00:07:58 #29335 [verbose] > │ let v338 : Async<struct (int64 * int64 * string)> = v337 │
00:07:58 #29336 [verbose] > │ let v339 : Async<Choice<struct (int64 * int64 * string), exn>> option = │
00:07:58 #29337 [verbose] > │ None │
00:07:58 #29338 [verbose] > │ let mutable _v339 = v339 │
00:07:58 #29339 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29340 [verbose] > │ let v340 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:07:58 #29341 [verbose] > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:07:58 #29342 [verbose] > │ v340 │
00:07:58 #29343 [verbose] > │ #endif │
00:07:58 #29344 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29345 [verbose] > │ let v341 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:07:58 #29346 [verbose] > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:07:58 #29347 [verbose] > │ v341 │
00:07:58 #29348 [verbose] > │ #endif │
00:07:58 #29349 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29350 [verbose] > │ let v342 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:07:58 #29351 [verbose] > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:07:58 #29352 [verbose] > │ v342 │
00:07:58 #29353 [verbose] > │ #endif │
00:07:58 #29354 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29355 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29356 [verbose] > │ let v343 : (Async<struct (int64 * int64 * string)> -> │
00:07:58 #29357 [verbose] > │ Async<Choice<struct (int64 * int64 * string), exn>>) = Async.Catch │
00:07:58 #29358 [verbose] > │ let v344 : Async<Choice<struct (int64 * int64 * string), exn>> = v343 │
00:07:58 #29359 [verbose] > │ v338 │
00:07:58 #29360 [verbose] > │ v344 │
00:07:58 #29361 [verbose] > │ #endif │
00:07:58 #29362 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29363 [verbose] > │ let v345 : Async<Choice<struct (int64 * int64 * string), exn>> = null |> │
00:07:58 #29364 [verbose] > │ unbox<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:07:58 #29365 [verbose] > │ v345 │
00:07:58 #29366 [verbose] > │ #endif │
00:07:58 #29367 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29368 [verbose] > │ let v346 : Async<Choice<struct (int64 * int64 * string), exn>> = │
00:07:58 #29369 [verbose] > │ Unchecked.defaultof<Async<Choice<struct (int64 * int64 * string), exn>>> │
00:07:58 #29370 [verbose] > │ v346 │
00:07:58 #29371 [verbose] > │ #endif │
00:07:58 #29372 [verbose] > │ |> fun x -> _v339 <- Some x │
00:07:58 #29373 [verbose] > │ let v347 : Async<Choice<struct (int64 * int64 * string), exn>> = │
00:07:58 #29374 [verbose] > │ _v339.Value │
00:07:58 #29375 [verbose] > │ let v348 : Async<US4> option = None │
00:07:58 #29376 [verbose] > │ let mutable _v348 = v348 │
00:07:58 #29377 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29378 [verbose] > │ let v349 : Async<US4> = null |> unbox<Async<US4>> │
00:07:58 #29379 [verbose] > │ v349 │
00:07:58 #29380 [verbose] > │ #endif │
00:07:58 #29381 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29382 [verbose] > │ let v350 : Async<US4> = null |> unbox<Async<US4>> │
00:07:58 #29383 [verbose] > │ v350 │
00:07:58 #29384 [verbose] > │ #endif │
00:07:58 #29385 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29386 [verbose] > │ let v351 : Async<US4> = null |> unbox<Async<US4>> │
00:07:58 #29387 [verbose] > │ v351 │
00:07:58 #29388 [verbose] > │ #endif │
00:07:58 #29389 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29390 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29391 [verbose] > │ let v352 : Async<US4> option = None │
00:07:58 #29392 [verbose] > │ let mutable _v352 = v352 │
00:07:58 #29393 [verbose] > │ async { │
00:07:58 #29394 [verbose] > │ let! v347 = v347 │
00:07:58 #29395 [verbose] > │ let v353 : Choice<struct (int64 * int64 * string), exn> = v347 │
00:07:58 #29396 [verbose] > │ let v354 : US4 option = None │
00:07:58 #29397 [verbose] > │ let mutable _v354 = v354 │
00:07:58 #29398 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29399 [verbose] > │ let v355 : US4 = null |> unbox<US4> │
00:07:58 #29400 [verbose] > │ v355 │
00:07:58 #29401 [verbose] > │ #endif │
00:07:58 #29402 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29403 [verbose] > │ let v356 : US4 = null |> unbox<US4> │
00:07:58 #29404 [verbose] > │ v356 │
00:07:58 #29405 [verbose] > │ #endif │
00:07:58 #29406 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29407 [verbose] > │ let v357 : US4 = null |> unbox<US4> │
00:07:58 #29408 [verbose] > │ v357 │
00:07:58 #29409 [verbose] > │ #endif │
00:07:58 #29410 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29411 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29412 [verbose] > │ let v358 : (struct (int64 * int64 * string) -> US4) = closure23() │
00:07:58 #29413 [verbose] > │ let v359 : (exn -> US4) = closure24() │
00:07:58 #29414 [verbose] > │ let v360 : US4 = match v353 with Choice1Of2 x -> v358 x | Choice2Of2 x │
00:07:58 #29415 [verbose] > │ -> v359 x │
00:07:58 #29416 [verbose] > │ v360 │
00:07:58 #29417 [verbose] > │ #endif │
00:07:58 #29418 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29419 [verbose] > │ let v361 : US4 = null |> unbox<US4> │
00:07:58 #29420 [verbose] > │ v361 │
00:07:58 #29421 [verbose] > │ #endif │
00:07:58 #29422 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29423 [verbose] > │ let v362 : US4 = Unchecked.defaultof<US4> │
00:07:58 #29424 [verbose] > │ v362 │
00:07:58 #29425 [verbose] > │ #endif │
00:07:58 #29426 [verbose] > │ |> fun x -> _v354 <- Some x │
00:07:58 #29427 [verbose] > │ let v363 : US4 = _v354.Value │
00:07:58 #29428 [verbose] > │ return v363 │
00:07:58 #29429 [verbose] > │ } │
00:07:58 #29430 [verbose] > │ |> fun x -> _v352 <- Some x │
00:07:58 #29431 [verbose] > │ let v364 : Async<US4> = _v352 |> Option.get │
00:07:58 #29432 [verbose] > │ v364 │
00:07:58 #29433 [verbose] > │ #endif │
00:07:58 #29434 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29435 [verbose] > │ let v365 : Async<US4> = null |> unbox<Async<US4>> │
00:07:58 #29436 [verbose] > │ v365 │
00:07:58 #29437 [verbose] > │ #endif │
00:07:58 #29438 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29439 [verbose] > │ let v366 : Async<US4> = Unchecked.defaultof<Async<US4>> │
00:07:58 #29440 [verbose] > │ v366 │
00:07:58 #29441 [verbose] > │ #endif │
00:07:58 #29442 [verbose] > │ |> fun x -> _v348 <- Some x │
00:07:58 #29443 [verbose] > │ let v367 : Async<US4> = _v348.Value │
00:07:58 #29444 [verbose] > │ let v368 : Async<US5> option = None │
00:07:58 #29445 [verbose] > │ let mutable _v368 = v368 │
00:07:58 #29446 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29447 [verbose] > │ let v369 : Async<US5> = null |> unbox<Async<US5>> │
00:07:58 #29448 [verbose] > │ v369 │
00:07:58 #29449 [verbose] > │ #endif │
00:07:58 #29450 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29451 [verbose] > │ let v370 : Async<US5> = null |> unbox<Async<US5>> │
00:07:58 #29452 [verbose] > │ v370 │
00:07:58 #29453 [verbose] > │ #endif │
00:07:58 #29454 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29455 [verbose] > │ let v371 : Async<US5> = null |> unbox<Async<US5>> │
00:07:58 #29456 [verbose] > │ v371 │
00:07:58 #29457 [verbose] > │ #endif │
00:07:58 #29458 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29459 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29460 [verbose] > │ let v372 : Async<US5> option = None │
00:07:58 #29461 [verbose] > │ let mutable _v372 = v372 │
00:07:58 #29462 [verbose] > │ async { │
00:07:58 #29463 [verbose] > │ let! v367 = v367 │
00:07:58 #29464 [verbose] > │ let v373 : US4 = v367 │
00:07:58 #29465 [verbose] > │ let v381 : US5 = │
00:07:58 #29466 [verbose] > │ match v373 with │
00:07:58 #29467 [verbose] > │ | US4_0(v374, v375, v376) -> (* Choice1Of2 *) │
00:07:58 #29468 [verbose] > │ US5_0(v374, v375, v376) │
00:07:58 #29469 [verbose] > │ | US4_1(v378) -> (* Choice2Of2 *) │
00:07:58 #29470 [verbose] > │ US5_1(v378) │
00:07:58 #29471 [verbose] > │ return v381 │
00:07:58 #29472 [verbose] > │ } │
00:07:58 #29473 [verbose] > │ |> fun x -> _v372 <- Some x │
00:07:58 #29474 [verbose] > │ let v382 : Async<US5> = _v372 |> Option.get │
00:07:58 #29475 [verbose] > │ v382 │
00:07:58 #29476 [verbose] > │ #endif │
00:07:58 #29477 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29478 [verbose] > │ let v383 : Async<US5> = null |> unbox<Async<US5>> │
00:07:58 #29479 [verbose] > │ v383 │
00:07:58 #29480 [verbose] > │ #endif │
00:07:58 #29481 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29482 [verbose] > │ let v384 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:07:58 #29483 [verbose] > │ v384 │
00:07:58 #29484 [verbose] > │ #endif │
00:07:58 #29485 [verbose] > │ |> fun x -> _v368 <- Some x │
00:07:58 #29486 [verbose] > │ let v385 : Async<US5> = _v368.Value │
00:07:58 #29487 [verbose] > │ let v386 : Async<US3> option = None │
00:07:58 #29488 [verbose] > │ let mutable _v386 = v386 │
00:07:58 #29489 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29490 [verbose] > │ let v387 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29491 [verbose] > │ v387 │
00:07:58 #29492 [verbose] > │ #endif │
00:07:58 #29493 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29494 [verbose] > │ let v388 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29495 [verbose] > │ v388 │
00:07:58 #29496 [verbose] > │ #endif │
00:07:58 #29497 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29498 [verbose] > │ let v389 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29499 [verbose] > │ v389 │
00:07:58 #29500 [verbose] > │ #endif │
00:07:58 #29501 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29502 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29503 [verbose] > │ let v390 : Async<US3> option = None │
00:07:58 #29504 [verbose] > │ let mutable _v390 = v390 │
00:07:58 #29505 [verbose] > │ async { │
00:07:58 #29506 [verbose] > │ let! v385 = v385 │
00:07:58 #29507 [verbose] > │ let v391 : US5 = v385 │
00:07:58 #29508 [verbose] > │ let v418 : US3 = │
00:07:58 #29509 [verbose] > │ match v391 with │
00:07:58 #29510 [verbose] > │ | US5_1(v396) -> (* Error *) │
00:07:58 #29511 [verbose] > │ let v397 : string = $"%A{v396}" │
00:07:58 #29512 [verbose] > │ let v398 : string = "System.TimeoutException" │
00:07:58 #29513 [verbose] > │ let v399 : bool = v397.Contains v398 │
00:07:58 #29514 [verbose] > │ if v399 then │
00:07:58 #29515 [verbose] > │ let v400 : US0 = US0_1 │
00:07:58 #29516 [verbose] > │ let v401 : (unit -> string) = closure25() │
00:07:58 #29517 [verbose] > │ let v402 : (unit -> string) = closure26() │
00:07:58 #29518 [verbose] > │ method6(v400, v401, v402) │
00:07:58 #29519 [verbose] > │ US3_1 │
00:07:58 #29520 [verbose] > │ else │
00:07:58 #29521 [verbose] > │ let v404 : string option = None │
00:07:58 #29522 [verbose] > │ let mutable _v404 = v404 │
00:07:58 #29523 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29524 [verbose] > │ let v405 : string = $"%A{v396}" │
00:07:58 #29525 [verbose] > │ v405 │
00:07:58 #29526 [verbose] > │ #endif │
00:07:58 #29527 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29528 [verbose] > │ let v406 : string = $"%A{v396}" │
00:07:58 #29529 [verbose] > │ v406 │
00:07:58 #29530 [verbose] > │ #endif │
00:07:58 #29531 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29532 [verbose] > │ let v407 : string = $"%A{v396}" │
00:07:58 #29533 [verbose] > │ v407 │
00:07:58 #29534 [verbose] > │ #endif │
00:07:58 #29535 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29536 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29537 [verbose] > │ let v408 : string = $"{v396.GetType ()}: {v396.Message}" │
00:07:58 #29538 [verbose] > │ v408 │
00:07:58 #29539 [verbose] > │ #endif │
00:07:58 #29540 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29541 [verbose] > │ let v409 : string = $"%A{v396}" │
00:07:58 #29542 [verbose] > │ v409 │
00:07:58 #29543 [verbose] > │ #endif │
00:07:58 #29544 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:58 #29545 [verbose] > │ FABLE_COMPILER_DART │
00:07:58 #29546 [verbose] > │ let v410 : string = Unchecked.defaultof<string> │
00:07:58 #29547 [verbose] > │ v410 │
00:07:58 #29548 [verbose] > │ #endif │
00:07:58 #29549 [verbose] > │ |> fun x -> _v404 <- Some x │
00:07:58 #29550 [verbose] > │ let v411 : string = _v404.Value │
00:07:58 #29551 [verbose] > │ let v412 : US0 = US0_4 │
00:07:58 #29552 [verbose] > │ let v413 : (unit -> string) = closure27(v411) │
00:07:58 #29553 [verbose] > │ let v414 : (unit -> string) = closure26() │
00:07:58 #29554 [verbose] > │ method6(v412, v413, v414) │
00:07:58 #29555 [verbose] > │ US3_1 │
00:07:58 #29556 [verbose] > │ | US5_0(v392, v393, v394) -> (* Ok *) │
00:07:58 #29557 [verbose] > │ US3_0(v392, v393, v394) │
00:07:58 #29558 [verbose] > │ return v418 │
00:07:58 #29559 [verbose] > │ } │
00:07:58 #29560 [verbose] > │ |> fun x -> _v390 <- Some x │
00:07:58 #29561 [verbose] > │ let v419 : Async<US3> = _v390 |> Option.get │
00:07:58 #29562 [verbose] > │ v419 │
00:07:58 #29563 [verbose] > │ #endif │
00:07:58 #29564 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29565 [verbose] > │ let v420 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29566 [verbose] > │ v420 │
00:07:58 #29567 [verbose] > │ #endif │
00:07:58 #29568 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29569 [verbose] > │ let v421 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:07:58 #29570 [verbose] > │ v421 │
00:07:58 #29571 [verbose] > │ #endif │
00:07:58 #29572 [verbose] > │ |> fun x -> _v386 <- Some x │
00:07:58 #29573 [verbose] > │ let v422 : Async<US3> = _v386.Value │
00:07:58 #29574 [verbose] > │ return! v422 │
00:07:58 #29575 [verbose] > │ } │
00:07:58 #29576 [verbose] > │ |> fun x -> _v329 <- Some x │
00:07:58 #29577 [verbose] > │ let v423 : Async<US3> = _v329 |> Option.get │
00:07:58 #29578 [verbose] > │ v423 │
00:07:58 #29579 [verbose] > │ #endif │
00:07:58 #29580 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29581 [verbose] > │ let v424 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29582 [verbose] > │ v424 │
00:07:58 #29583 [verbose] > │ #endif │
00:07:58 #29584 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29585 [verbose] > │ let v425 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:07:58 #29586 [verbose] > │ v425 │
00:07:58 #29587 [verbose] > │ #endif │
00:07:58 #29588 [verbose] > │ |> fun x -> _v325 <- Some x │
00:07:58 #29589 [verbose] > │ let v426 : Async<US3> = _v325.Value │
00:07:58 #29590 [verbose] > │ v426 │
00:07:58 #29591 [verbose] > │ #endif │
00:07:58 #29592 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29593 [verbose] > │ let v427 : Async<US3> = null |> unbox<Async<US3>> │
00:07:58 #29594 [verbose] > │ v427 │
00:07:58 #29595 [verbose] > │ #endif │
00:07:58 #29596 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29597 [verbose] > │ let v428 : Async<US3> = Unchecked.defaultof<Async<US3>> │
00:07:58 #29598 [verbose] > │ v428 │
00:07:58 #29599 [verbose] > │ #endif │
00:07:58 #29600 [verbose] > │ |> fun x -> _v321 <- Some x │
00:07:58 #29601 [verbose] > │ let v429 : Async<US3> = _v321.Value │
00:07:58 #29602 [verbose] > │ let v430 : US3 option = None │
00:07:58 #29603 [verbose] > │ let mutable _v430 = v430 │
00:07:58 #29604 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29605 [verbose] > │ let v431 : US3 = null |> unbox<US3> │
00:07:58 #29606 [verbose] > │ v431 │
00:07:58 #29607 [verbose] > │ #endif │
00:07:58 #29608 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29609 [verbose] > │ let v432 : US3 = null |> unbox<US3> │
00:07:58 #29610 [verbose] > │ v432 │
00:07:58 #29611 [verbose] > │ #endif │
00:07:58 #29612 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29613 [verbose] > │ let v433 : US3 = null |> unbox<US3> │
00:07:58 #29614 [verbose] > │ v433 │
00:07:58 #29615 [verbose] > │ #endif │
00:07:58 #29616 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29617 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29618 [verbose] > │ let v434 : (Async<US3> -> US3) = Async.RunSynchronously │
00:07:58 #29619 [verbose] > │ let v435 : US3 = v434 v429 │
00:07:58 #29620 [verbose] > │ v435 │
00:07:58 #29621 [verbose] > │ #endif │
00:07:58 #29622 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29623 [verbose] > │ let v436 : US3 = null |> unbox<US3> │
00:07:58 #29624 [verbose] > │ v436 │
00:07:58 #29625 [verbose] > │ #endif │
00:07:58 #29626 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:07:58 #29627 [verbose] > │ let v437 : US3 = Unchecked.defaultof<US3> │
00:07:58 #29628 [verbose] > │ v437 │
00:07:58 #29629 [verbose] > │ #endif │
00:07:58 #29630 [verbose] > │ |> fun x -> _v430 <- Some x │
00:07:58 #29631 [verbose] > │ let v438 : US3 = _v430.Value │
00:07:58 #29632 [verbose] > │ let v521 : bool = │
00:07:58 #29633 [verbose] > │ match v438 with │
00:07:58 #29634 [verbose] > │ | US3_0(v439, v440, v441) -> (* Some *) │
00:07:58 #29635 [verbose] > │ let v442 : bool option = None │
00:07:58 #29636 [verbose] > │ let mutable _v442 = v442 │
00:07:58 #29637 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29638 [verbose] > │ let v443 : bool = null |> unbox<bool> │
00:07:58 #29639 [verbose] > │ v443 │
00:07:58 #29640 [verbose] > │ #endif │
00:07:58 #29641 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29642 [verbose] > │ let v444 : bool = null |> unbox<bool> │
00:07:58 #29643 [verbose] > │ v444 │
00:07:58 #29644 [verbose] > │ #endif │
00:07:58 #29645 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29646 [verbose] > │ let v445 : bool = null |> unbox<bool> │
00:07:58 #29647 [verbose] > │ v445 │
00:07:58 #29648 [verbose] > │ #endif │
00:07:58 #29649 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29650 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29651 [verbose] > │ let v446 : System.Runtime.InteropServices.OSPlatform = │
00:07:58 #29652 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:07:58 #29653 [verbose] > │ let v447 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:07:58 #29654 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:07:58 #29655 [verbose] > │ let v448 : bool = v447 v446 │
00:07:58 #29656 [verbose] > │ v448 │
00:07:58 #29657 [verbose] > │ #endif │
00:07:58 #29658 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29659 [verbose] > │ let v449 : bool = null |> unbox<bool> │
00:07:58 #29660 [verbose] > │ v449 │
00:07:58 #29661 [verbose] > │ #endif │
00:07:58 #29662 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:58 #29663 [verbose] > │ FABLE_COMPILER_DART │
00:07:58 #29664 [verbose] > │ let v450 : bool = Unchecked.defaultof<bool> │
00:07:58 #29665 [verbose] > │ v450 │
00:07:58 #29666 [verbose] > │ #endif │
00:07:58 #29667 [verbose] > │ |> fun x -> _v442 <- Some x │
00:07:58 #29668 [verbose] > │ let v451 : bool = _v442.Value │
00:07:58 #29669 [verbose] > │ let v452 : int64 = │
00:07:58 #29670 [verbose] > │ if v451 then │
00:07:58 #29671 [verbose] > │ 50L │
00:07:58 #29672 [verbose] > │ else │
00:07:58 #29673 [verbose] > │ 0L │
00:07:58 #29674 [verbose] > │ let v453 : bool option = None │
00:07:58 #29675 [verbose] > │ let mutable _v453 = v453 │
00:07:58 #29676 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29677 [verbose] > │ let v454 : bool = null |> unbox<bool> │
00:07:58 #29678 [verbose] > │ v454 │
00:07:58 #29679 [verbose] > │ #endif │
00:07:58 #29680 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29681 [verbose] > │ let v455 : bool = null |> unbox<bool> │
00:07:58 #29682 [verbose] > │ v455 │
00:07:58 #29683 [verbose] > │ #endif │
00:07:58 #29684 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29685 [verbose] > │ let v456 : bool = null |> unbox<bool> │
00:07:58 #29686 [verbose] > │ v456 │
00:07:58 #29687 [verbose] > │ #endif │
00:07:58 #29688 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29689 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29690 [verbose] > │ let v457 : System.Runtime.InteropServices.OSPlatform = │
00:07:58 #29691 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:07:58 #29692 [verbose] > │ let v458 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:07:58 #29693 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:07:58 #29694 [verbose] > │ let v459 : bool = v458 v457 │
00:07:58 #29695 [verbose] > │ v459 │
00:07:58 #29696 [verbose] > │ #endif │
00:07:58 #29697 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29698 [verbose] > │ let v460 : bool = null |> unbox<bool> │
00:07:58 #29699 [verbose] > │ v460 │
00:07:58 #29700 [verbose] > │ #endif │
00:07:58 #29701 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:58 #29702 [verbose] > │ FABLE_COMPILER_DART │
00:07:58 #29703 [verbose] > │ let v461 : bool = Unchecked.defaultof<bool> │
00:07:58 #29704 [verbose] > │ v461 │
00:07:58 #29705 [verbose] > │ #endif │
00:07:58 #29706 [verbose] > │ |> fun x -> _v453 <- Some x │
00:07:58 #29707 [verbose] > │ let v462 : bool = _v453.Value │
00:07:58 #29708 [verbose] > │ let v463 : int64 = │
00:07:58 #29709 [verbose] > │ if v462 then │
00:07:58 #29710 [verbose] > │ 150L │
00:07:58 #29711 [verbose] > │ else │
00:07:58 #29712 [verbose] > │ 0L │
00:07:58 #29713 [verbose] > │ let v464 : string = $"%A{v439}" │
00:07:58 #29714 [verbose] > │ System.Console.WriteLine v464 │
00:07:58 #29715 [verbose] > │ let v465 : string = $"%A{v439}" │
00:07:58 #29716 [verbose] > │ System.Console.WriteLine v465 │
00:07:58 #29717 [verbose] > │ let v466 : bool = v439 >= v452 │
00:07:58 #29718 [verbose] > │ let v468 : bool = │
00:07:58 #29719 [verbose] > │ if v466 then │
00:07:58 #29720 [verbose] > │ true │
00:07:58 #29721 [verbose] > │ else │
00:07:58 #29722 [verbose] > │ method15(v466) │
00:07:58 #29723 [verbose] > │ let v469 : string = $"__expect / actual: %A{v439} / expected: │
00:07:58 #29724 [verbose] > │ %A{v452}" │
00:07:58 #29725 [verbose] > │ let v470 : bool = v468 = false │
00:07:58 #29726 [verbose] > │ if v470 then │
00:07:58 #29727 [verbose] > │ failwith<unit> v469 │
00:07:58 #29728 [verbose] > │ let v471 : string = $"%A{v439}" │
00:07:58 #29729 [verbose] > │ System.Console.WriteLine v471 │
00:07:58 #29730 [verbose] > │ let v472 : bool = v439 <= v463 │
00:07:58 #29731 [verbose] > │ let v474 : bool = │
00:07:58 #29732 [verbose] > │ if v472 then │
00:07:58 #29733 [verbose] > │ true │
00:07:58 #29734 [verbose] > │ else │
00:07:58 #29735 [verbose] > │ method15(v472) │
00:07:58 #29736 [verbose] > │ let v475 : string = $"__expect / actual: %A{v439} / expected: │
00:07:58 #29737 [verbose] > │ %A{v463}" │
00:07:58 #29738 [verbose] > │ let v476 : bool = v474 = false │
00:07:58 #29739 [verbose] > │ if v476 then │
00:07:58 #29740 [verbose] > │ failwith<unit> v475 │
00:07:58 #29741 [verbose] > │ let v477 : string = $"__expect / actual: %A{v439} / expected: │
00:07:58 #29742 [verbose] > │ %A{struct (v452, v463)}" │
00:07:58 #29743 [verbose] > │ let v478 : bool option = None │
00:07:58 #29744 [verbose] > │ let mutable _v478 = v478 │
00:07:58 #29745 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29746 [verbose] > │ let v479 : bool = null |> unbox<bool> │
00:07:58 #29747 [verbose] > │ v479 │
00:07:58 #29748 [verbose] > │ #endif │
00:07:58 #29749 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29750 [verbose] > │ let v480 : bool = null |> unbox<bool> │
00:07:58 #29751 [verbose] > │ v480 │
00:07:58 #29752 [verbose] > │ #endif │
00:07:58 #29753 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29754 [verbose] > │ let v481 : bool = null |> unbox<bool> │
00:07:58 #29755 [verbose] > │ v481 │
00:07:58 #29756 [verbose] > │ #endif │
00:07:58 #29757 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29758 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29759 [verbose] > │ let v482 : System.Runtime.InteropServices.OSPlatform = │
00:07:58 #29760 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:07:58 #29761 [verbose] > │ let v483 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:07:58 #29762 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:07:58 #29763 [verbose] > │ let v484 : bool = v483 v482 │
00:07:58 #29764 [verbose] > │ v484 │
00:07:58 #29765 [verbose] > │ #endif │
00:07:58 #29766 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29767 [verbose] > │ let v485 : bool = null |> unbox<bool> │
00:07:58 #29768 [verbose] > │ v485 │
00:07:58 #29769 [verbose] > │ #endif │
00:07:58 #29770 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:58 #29771 [verbose] > │ FABLE_COMPILER_DART │
00:07:58 #29772 [verbose] > │ let v486 : bool = Unchecked.defaultof<bool> │
00:07:58 #29773 [verbose] > │ v486 │
00:07:58 #29774 [verbose] > │ #endif │
00:07:58 #29775 [verbose] > │ |> fun x -> _v478 <- Some x │
00:07:58 #29776 [verbose] > │ let v487 : bool = _v478.Value │
00:07:58 #29777 [verbose] > │ let v488 : int64 = │
00:07:58 #29778 [verbose] > │ if v487 then │
00:07:58 #29779 [verbose] > │ 0L │
00:07:58 #29780 [verbose] > │ else │
00:07:58 #29781 [verbose] > │ 100L │
00:07:58 #29782 [verbose] > │ let v489 : bool option = None │
00:07:58 #29783 [verbose] > │ let mutable _v489 = v489 │
00:07:58 #29784 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:07:58 #29785 [verbose] > │ let v490 : bool = null |> unbox<bool> │
00:07:58 #29786 [verbose] > │ v490 │
00:07:58 #29787 [verbose] > │ #endif │
00:07:58 #29788 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:07:58 #29789 [verbose] > │ let v491 : bool = null |> unbox<bool> │
00:07:58 #29790 [verbose] > │ v491 │
00:07:58 #29791 [verbose] > │ #endif │
00:07:58 #29792 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:07:58 #29793 [verbose] > │ let v492 : bool = null |> unbox<bool> │
00:07:58 #29794 [verbose] > │ v492 │
00:07:58 #29795 [verbose] > │ #endif │
00:07:58 #29796 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:07:58 #29797 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:07:58 #29798 [verbose] > │ let v493 : System.Runtime.InteropServices.OSPlatform = │
00:07:58 #29799 [verbose] > │ System.Runtime.InteropServices.OSPlatform.Windows │
00:07:58 #29800 [verbose] > │ let v494 : (System.Runtime.InteropServices.OSPlatform -> bool) = │
00:07:58 #29801 [verbose] > │ System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform │
00:07:58 #29802 [verbose] > │ let v495 : bool = v494 v493 │
00:07:58 #29803 [verbose] > │ v495 │
00:07:58 #29804 [verbose] > │ #endif │
00:07:58 #29805 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:07:58 #29806 [verbose] > │ let v496 : bool = null |> unbox<bool> │
00:07:58 #29807 [verbose] > │ v496 │
00:07:58 #29808 [verbose] > │ #endif │
00:07:58 #29809 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:07:58 #29810 [verbose] > │ FABLE_COMPILER_DART │
00:07:58 #29811 [verbose] > │ let v497 : bool = Unchecked.defaultof<bool> │
00:07:58 #29812 [verbose] > │ v497 │
00:07:58 #29813 [verbose] > │ #endif │
00:07:58 #29814 [verbose] > │ |> fun x -> _v489 <- Some x │
00:07:58 #29815 [verbose] > │ let v498 : bool = _v489.Value │
00:07:58 #29816 [verbose] > │ let v499 : int64 = │
00:07:58 #29817 [verbose] > │ if v498 then │
00:07:58 #29818 [verbose] > │ 0L │
00:07:58 #29819 [verbose] > │ else │
00:07:58 #29820 [verbose] > │ 200L │
00:07:58 #29821 [verbose] > │ let v500 : string = $"%A{v440}" │
00:07:58 #29822 [verbose] > │ System.Console.WriteLine v500 │
00:07:58 #29823 [verbose] > │ let v501 : string = $"%A{v440}" │
00:07:58 #29824 [verbose] > │ System.Console.WriteLine v501 │
00:07:58 #29825 [verbose] > │ let v502 : bool = v440 >= v488 │
00:07:58 #29826 [verbose] > │ let v504 : bool = │
00:07:58 #29827 [verbose] > │ if v502 then │
00:07:58 #29828 [verbose] > │ true │
00:07:58 #29829 [verbose] > │ else │
00:07:58 #29830 [verbose] > │ method15(v502) │
00:07:58 #29831 [verbose] > │ let v505 : string = $"__expect / actual: %A{v440} / expected: │
00:07:58 #29832 [verbose] > │ %A{v488}" │
00:07:58 #29833 [verbose] > │ let v506 : bool = v504 = false │
00:07:58 #29834 [verbose] > │ if v506 then │
00:07:58 #29835 [verbose] > │ failwith<unit> v505 │
00:07:58 #29836 [verbose] > │ let v507 : string = $"%A{v440}" │
00:07:58 #29837 [verbose] > │ System.Console.WriteLine v507 │
00:07:58 #29838 [verbose] > │ let v508 : bool = v440 <= v499 │
00:07:58 #29839 [verbose] > │ let v510 : bool = │
00:07:58 #29840 [verbose] > │ if v508 then │
00:07:58 #29841 [verbose] > │ true │
00:07:58 #29842 [verbose] > │ else │
00:07:58 #29843 [verbose] > │ method15(v508) │
00:07:58 #29844 [verbose] > │ let v511 : string = $"__expect / actual: %A{v440} / expected: │
00:07:58 #29845 [verbose] > │ %A{v499}" │
00:07:58 #29846 [verbose] > │ let v512 : bool = v510 = false │
00:07:58 #29847 [verbose] > │ if v512 then │
00:07:58 #29848 [verbose] > │ failwith<unit> v511 │
00:07:58 #29849 [verbose] > │ let v513 : string = $"__expect / actual: %A{v440} / expected: │
00:07:58 #29850 [verbose] > │ %A{struct (v488, v499)}" │
00:07:58 #29851 [verbose] > │ let v514 : string = method16() │
00:07:58 #29852 [verbose] > │ let v515 : string = $"%A{v441}" │
00:07:58 #29853 [verbose] > │ System.Console.WriteLine v515 │
00:07:58 #29854 [verbose] > │ let v516 : bool = v441 = v514 │
00:07:58 #29855 [verbose] > │ let v518 : bool = │
00:07:58 #29856 [verbose] > │ if v516 then │
00:07:58 #29857 [verbose] > │ true │
00:07:58 #29858 [verbose] > │ else │
00:07:58 #29859 [verbose] > │ method15(v516) │
00:07:58 #29860 [verbose] > │ let v519 : string = $"__expect / actual: %A{v441} / expected: │
00:07:58 #29861 [verbose] > │ %A{v514}" │
00:07:58 #29862 [verbose] > │ let v520 : bool = v518 = false │
00:07:58 #29863 [verbose] > │ if v520 then │
00:07:58 #29864 [verbose] > │ failwith<unit> v519 │
00:07:58 #29865 [verbose] > │ true │
00:07:58 #29866 [verbose] > │ | _ -> │
00:07:58 #29867 [verbose] > │ false │
00:07:58 #29868 [verbose] > │ let v522 : string = $"%A{v521}" │
00:07:58 #29869 [verbose] > │ System.Console.WriteLine v522 │
00:07:58 #29870 [verbose] > │ let v524 : bool = │
00:07:58 #29871 [verbose] > │ if v521 then │
00:07:58 #29872 [verbose] > │ true │
00:07:58 #29873 [verbose] > │ else │
00:07:58 #29874 [verbose] > │ method15(v521) │
00:07:58 #29875 [verbose] > │ let v525 : string = $"__expect / actual: %A{v521} / expected: %A{true}" │
00:07:58 #29876 [verbose] > │ let v526 : bool = v524 = false │
00:07:58 #29877 [verbose] > │ if v526 then │
00:07:58 #29878 [verbose] > │ failwith<unit> v525 │
00:07:58 #29879 [verbose] > │ method0() │
00:07:58 #29880 [verbose] > │ │
00:07:58 #29881 [verbose] > │ 00:00:00 #1 [debug] 1 │
00:07:58 #29882 [verbose] > │ 00:00:00 #2 [debug] 2 │
00:07:58 #29883 [verbose] > │ 00:00:00 #3 [debug] 3 │
00:07:58 #29884 [verbose] > │ 00:00:00 #4 [debug] _1 │
00:07:58 #29885 [verbose] > │ 00:00:00 #5 [debug] _2 │
00:07:58 #29886 [verbose] > │ 00:00:00 #6 [debug] 4 │
00:07:58 #29887 [verbose] > │ 00:00:00 #7 [warning] move_file_async / old_path: test.txt / new_path: │
00:07:58 #29888 [verbose] > │ test2.txt / ex: System.IO.IOException: The process cannot access the file │
00:07:58 #29889 [verbose] > │ because it is being used by another process. │
00:07:58 #29890 [verbose] > │ 00:00:01 #8 [warning] move_file_async / old_path: test.txt / new_path: │
00:07:58 #29891 [verbose] > │ test2.txt / ex: System.IO.IOException: The process cannot access the file │
00:07:58 #29892 [verbose] > │ because it is being used by another process. │
00:07:58 #29893 [verbose] > │ 00:00:01 #9 [debug] _3 │
00:07:58 #29894 [verbose] > │ 00:00:02 #10 [debug] 5 │
00:07:58 #29895 [verbose] > │ 00:00:02 #11 [debug] 6 │
00:07:58 #29896 [verbose] > │ 00:00:02 #12 [debug] 7 │
00:07:58 #29897 [verbose] > │ 00:00:02 #13 [debug] 8 │
00:07:58 #29898 [verbose] > │ 127L │
00:07:58 #29899 [verbose] > │ 127L │
00:07:58 #29900 [verbose] > │ 127L │
00:07:58 #29901 [verbose] > │ 0L │
00:07:58 #29902 [verbose] > │ 0L │
00:07:58 #29903 [verbose] > │ 0L │
00:07:58 #29904 [verbose] > │ "0" │
00:07:58 #29905 [verbose] > │ true │
00:07:58 #29906 [verbose] > │ │
00:07:58 #29907 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 #29908 [verbose] >
00:07:58 #29909 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:07:58 #29910 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:07:58 #29911 [verbose] > │ ## find_parent │
00:07:58 #29912 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 #29913 [verbose] >
00:07:58 #29914 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:58 #29915 [verbose] > inl find_parent name is_file root_dir =
00:07:58 #29916 [verbose] > let rec loop dir =
00:07:58 #29917 [verbose] > if dir </> name |> (if is_file then file_exists else directory_exists)
00:07:58 #29918 [verbose] > then dir
00:07:58 #29919 [verbose] > else
00:07:58 #29920 [verbose] > inl result = dir |> (join directory_get_parent)
00:07:58 #29921 [verbose] > match result |> optionm'.unbox with
00:07:58 #29922 [verbose] > | Some parent => parent |> loop
00:07:58 #29923 [verbose] > | None => failwith $'$"""No parent for {if !is_file then "file" else
00:07:58 #29924 [verbose] > "dir"} \'{!name}\' at \'{!root_dir}\' (until \'{!dir}\')"""'
00:07:58 #29925 [verbose] > loop root_dir
00:07:58 #29926 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\42b15424d59d588f76decdc860c01bf649f766d756d890cd8c85fbacbe9876f2\main.spi
00:07:58 #29927 [verbose] >
00:07:58 #29928 [verbose] > ╭─[ 274.50ms - stdout ]────────────────────────────────────────────────────────╮
00:07:58 #29929 [verbose] > │ () │
00:07:58 #29930 [verbose] > │ │
00:07:58 #29931 [verbose] > │ │
00:07:58 #29932 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:58 #29933 [verbose] >
00:07:58 #29934 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:58 #29935 [verbose] > // // test
00:07:58 #29936 [verbose] > // // print_code=false
00:07:58 #29937 [verbose] >
00:07:58 #29938 [verbose] > a ;[[ ".paket", false; "paket.dependencies", true ]]
00:07:58 #29939 [verbose] > |> am.map fun (file, is_file) =>
00:07:58 #29940 [verbose] > get_source_directory ()
00:07:58 #29941 [verbose] > |> find_parent file is_file
00:07:58 #29942 [verbose] > |> directory_info
00:07:58 #29943 [verbose] > |> directory_info_name
00:07:58 #29944 [verbose] > |> am'.distinct
00:07:58 #29945 [verbose] > |> _assert_eq (a ;[[ "polyglot" ]] : _ i32 _)
00:07:59 #29946 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\af24989bed67ef8846c560812801c04daa0c71a787fcb7dd96923c42a5dfa196\main.spi
00:07:59 #29947 [verbose] >
00:07:59 #29948 [verbose] > ╭─[ 413.13ms - stdout ]────────────────────────────────────────────────────────╮
00:07:59 #29949 [verbose] > │ [|"polyglot"|] │
00:07:59 #29950 [verbose] > │ │
00:07:59 #29951 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:07:59 #29952 [verbose] >
00:07:59 #29953 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:07:59 #29954 [verbose] > // // test
00:07:59 #29955 [verbose] > // // rust=
00:07:59 #29956 [verbose] > // // print_code=false
00:07:59 #29957 [verbose] >
00:07:59 #29958 [verbose] > types ()
00:07:59 #29959 [verbose] > a ;[[ ".paket", false; "paket.dependencies", true ]]
00:07:59 #29960 [verbose] > |> am.map fun (file, is_file) =>
00:07:59 #29961 [verbose] > fun () =>
00:07:59 #29962 [verbose] > join
00:07:59 #29963 [verbose] > get_source_directory ()
00:07:59 #29964 [verbose] > |> find_parent file is_file
00:07:59 #29965 [verbose] > |> new_path_buf
00:07:59 #29966 [verbose] > |> path_buf_file_name
00:07:59 #29967 [verbose] > |> optionm'.try'
00:07:59 #29968 [verbose] > |> sm'.to_os_string
00:07:59 #29969 [verbose] > |> sm'.os_to_str
00:07:59 #29970 [verbose] > |> optionm'.try'
00:07:59 #29971 [verbose] > |> sm'.ref_to_std_string
00:07:59 #29972 [verbose] > |> sm'.from_std_string
00:07:59 #29973 [verbose] > |> Some
00:07:59 #29974 [verbose] > |> optionm'.box
00:07:59 #29975 [verbose] > |> fun x => x () |> optionm'.unbox
00:07:59 #29976 [verbose] > |> optionm'.default_value ""
00:07:59 #29977 [verbose] > |> am'.distinct
00:07:59 #29978 [verbose] > |> fun result =>
00:07:59 #29979 [verbose] > result |> am'.length |> _assert_eq 1i32
00:07:59 #29980 [verbose] > index result 0i32 |> _assert_eq "polyglot"
00:07:59 #29981 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2ab744a27c3a56c4c5120faf46d3536c4f54bb44f2343e49096012d0926d2e69\main.spi
00:08:11 #29982 [verbose] >
00:08:11 #29983 [verbose] > ╭─[ 12.01s - return value ]────────────────────────────────────────────────────╮
00:08:11 #29984 [verbose] > │ 1 │
00:08:11 #29985 [verbose] > │ "polyglot" │
00:08:11 #29986 [verbose] > │ │
00:08:11 #29987 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:11 #29988 [verbose] >
00:08:11 #29989 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:11 #29990 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:11 #29991 [verbose] > │ ## main │
00:08:11 #29992 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:11 #29993 [verbose] >
00:08:11 #29994 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:11 #29995 [verbose] > inl main () =
00:08:11 #29996 [verbose] > types ()
00:08:11 #29997 [verbose] > run_target function
00:08:11 #29998 [verbose] > | Fsharp (Native) => fun () =>
00:08:11 #29999 [verbose] > $"let delete_directory_async x = !delete_directory_async x" : ()
00:08:11 #30000 [verbose] > $"let wait_for_file_access x = !wait_for_file_access x" : ()
00:08:11 #30001 [verbose] > $"let wait_for_file_access_read x = !wait_for_file_access_read x" :
00:08:11 #30002 [verbose] > ()
00:08:11 #30003 [verbose] > $"let read_all_text_async x = !read_all_text_async x" : ()
00:08:11 #30004 [verbose] > $"let file_exists_content x = !file_exists_content x" : ()
00:08:11 #30005 [verbose] > $"let write_all_text_async x = !write_all_text_async x" : ()
00:08:11 #30006 [verbose] > $"let write_all_text_exists x = !write_all_text_exists x" : ()
00:08:11 #30007 [verbose] > $"let delete_file_async x = !delete_file_async x" : ()
00:08:11 #30008 [verbose] > $"let move_file_async x = !move_file_async x" : ()
00:08:11 #30009 [verbose] > $"let read_all_text_retry_async x = !read_all_text_retry_async x" :
00:08:11 #30010 [verbose] > ()
00:08:11 #30011 [verbose] > | _ => fun () => ()
00:08:11 #30012 [verbose] > $"let create_temp_directory_name () = !create_temp_directory_name ()" : ()
00:08:11 #30013 [verbose] > $"let create_temp_directory () = !create_temp_directory ()" : ()
00:08:11 #30014 [verbose] > $"let get_source_directory () = !get_source_directory ()" : ()
00:08:11 #30015 [verbose] > $"let find_parent x = !find_parent x" : ()
00:08:11 #30016 [verbose] > inl combine x = (</>) x
00:08:11 #30017 [verbose] > $"let (</>) x = !combine x" : ()
00:08:11 #30018 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\64f310846b531f312f55f9a3a7d985e1b45d089b2cd4a76681959e33b65f2960\main.spi
00:08:13 #30019 [verbose] >
00:08:13 #30020 [verbose] > ╭─[ 1.75s - stdout ]───────────────────────────────────────────────────────────╮
00:08:13 #30021 [verbose] > │ #if FABLE_COMPILER // file_system.types │
00:08:13 #30022 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:08:13 #30023 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type │
00:08:13 #30024 [verbose] > │ base64_DecodeError = class end │
00:08:13 #30025 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type │
00:08:13 #30026 [verbose] > │ borsh_io_Error = class end │
00:08:13 #30027 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type │
00:08:13 #30028 [verbose] > │ js_sys_JsString = class end │
00:08:13 #30029 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type │
00:08:13 #30030 [verbose] > │ serde_json_Error = class end │
00:08:13 #30031 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type │
00:08:13 #30032 [verbose] > │ serde_json_Value = class end │
00:08:13 #30033 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type │
00:08:13 #30034 [verbose] > │ serde_wasm_bindgen_Error = class end │
00:08:13 #30035 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_OsStr │
00:08:13 #30036 [verbose] > │ = class end │
00:08:13 #30037 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsString")>] type │
00:08:13 #30038 [verbose] > │ std_ffi_OsString = class end │
00:08:13 #30039 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::str::Utf8Error")>] type │
00:08:13 #30040 [verbose] > │ std_str_Utf8Error = class end │
00:08:13 #30041 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:08:13 #30042 [verbose] > │ std_string_String = class end │
00:08:13 #30043 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func0<$0>")>] type Func0<'T> = class │
00:08:13 #30044 [verbose] > │ end │
00:08:13 #30045 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Func1<$0, $1>")>] type Func0<'T, 'U> = │
00:08:13 #30046 [verbose] > │ class end │
00:08:13 #30047 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Box<$0>")>] type Box<'T> = class end │
00:08:13 #30048 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("dyn $0")>] type Dyn<'T> = class end │
00:08:13 #30049 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn() -> $0")>] type Fn<'T> = class end │
00:08:13 #30050 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn()")>] type FnUnit = class end │
00:08:13 #30051 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("FnOnce() -> $0")>] type FnOnce<'T> = │
00:08:13 #30052 [verbose] > │ class end │
00:08:13 #30053 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("Fn($0, $1)")>] type ActionFn2<'T, 'U> = │
00:08:13 #30054 [verbose] > │ class end │
00:08:13 #30055 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("impl $0")>] type Impl<'T> = class end │
00:08:13 #30056 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("mut $0")>] type Mut<'T> = class end │
00:08:13 #30057 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:08:13 #30058 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&'static $0")>] type StaticRef<'T> = │
00:08:13 #30059 [verbose] > │ class end │
00:08:13 #30060 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("MutCell<$0>")>] type MutCell<'T> = │
00:08:13 #30061 [verbose] > │ class end │
00:08:13 #30062 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::any::Any")>] type std_any_Any = │
00:08:13 #30063 [verbose] > │ class end │
00:08:13 #30064 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::cell::RefCell<$0>")>] type │
00:08:13 #30065 [verbose] > │ std_cell_RefCell<'T> = class end │
00:08:13 #30066 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::pin::Pin<$0>")>] type │
00:08:13 #30067 [verbose] > │ std_pin_Pin<'T> = class end │
00:08:13 #30068 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Rc<$0>")>] type std_rc_Rc<'T> │
00:08:13 #30069 [verbose] > │ = class end │
00:08:13 #30070 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::rc::Weak<$0>")>] type │
00:08:13 #30071 [verbose] > │ std_rc_Weak<'T> = class end │
00:08:13 #30072 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::sync::Arc<$0>")>] type │
00:08:13 #30073 [verbose] > │ std_sync_Arc<'T> = class end │
00:08:13 #30074 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::path::Path")>] type std_path_Path │
00:08:13 #30075 [verbose] > │ = class end │
00:08:13 #30076 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::path::PathBuf")>] type │
00:08:13 #30077 [verbose] > │ std_path_PathBuf = class end │
00:08:13 #30078 [verbose] > │ #endif // file_system.types │
00:08:13 #30079 [verbose] > │ type IFsExistsSync = abstract existsSync: path: string -> bool │
00:08:13 #30080 [verbose] > │ module State = let mutable trace_state = None │
00:08:13 #30081 [verbose] > │ type IPathJoin = abstract join: [<System.ParamArray>] paths: string[] -> │
00:08:13 #30082 [verbose] > │ string │
00:08:13 #30083 [verbose] > │ type IPathDirname = abstract dirname: path: string -> string │
00:08:13 #30084 [verbose] > │ type [<Struct>] US1 = │
00:08:13 #30085 [verbose] > │ | US1_0 │
00:08:13 #30086 [verbose] > │ | US1_1 │
00:08:13 #30087 [verbose] > │ | US1_2 │
00:08:13 #30088 [verbose] > │ and [<Struct>] US2 = │
00:08:13 #30089 [verbose] > │ | US2_0 │
00:08:13 #30090 [verbose] > │ | US2_1 │
00:08:13 #30091 [verbose] > │ | US2_2 │
00:08:13 #30092 [verbose] > │ | US2_3 │
00:08:13 #30093 [verbose] > │ | US2_4 │
00:08:13 #30094 [verbose] > │ and [<Struct>] US0 = │
00:08:13 #30095 [verbose] > │ | US0_0 of f0_0 : US1 * f0_1 : US2 │
00:08:13 #30096 [verbose] > │ | US0_1 │
00:08:13 #30097 [verbose] > │ and [<Struct>] US3 = │
00:08:13 #30098 [verbose] > │ | US3_0 │
00:08:13 #30099 [verbose] > │ | US3_1 │
00:08:13 #30100 [verbose] > │ | US3_2 │
00:08:13 #30101 [verbose] > │ | US3_3 │
00:08:13 #30102 [verbose] > │ | US3_4 │
00:08:13 #30103 [verbose] > │ and Mut0 = {mutable l0 : int64} │
00:08:13 #30104 [verbose] > │ and Mut1 = {mutable l0 : bool} │
00:08:13 #30105 [verbose] > │ and Mut2 = {mutable l0 : US3} │
00:08:13 #30106 [verbose] > │ and [<Struct>] US4 = │
00:08:13 #30107 [verbose] > │ | US4_0 of f0_0 : int64 │
00:08:13 #30108 [verbose] > │ | US4_1 │
00:08:13 #30109 [verbose] > │ and [<Struct>] US5 = │
00:08:13 #30110 [verbose] > │ | US5_0 of f0_0 : int64 │
00:08:13 #30111 [verbose] > │ | US5_1 │
00:08:13 #30112 [verbose] > │ and [<Struct>] US6 = │
00:08:13 #30113 [verbose] > │ | US6_0 of f0_0 : int64 │
00:08:13 #30114 [verbose] > │ | US6_1 of f1_0 : exn │
00:08:13 #30115 [verbose] > │ and [<Struct>] US7 = │
00:08:13 #30116 [verbose] > │ | US7_0 of f0_0 : int64 │
00:08:13 #30117 [verbose] > │ | US7_1 of f1_0 : exn │
00:08:13 #30118 [verbose] > │ and [<Struct>] US8 = │
00:08:13 #30119 [verbose] > │ | US8_0 of f0_0 : string │
00:08:13 #30120 [verbose] > │ | US8_1 │
00:08:13 #30121 [verbose] > │ let rec closure2 () (v0 : string) : string = │
00:08:13 #30122 [verbose] > │ let v1 : string option = None │
00:08:13 #30123 [verbose] > │ let mutable _v1 = v1 │
00:08:13 #30124 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30125 [verbose] > │ let v2 : string = null |> unbox<string> │
00:08:13 #30126 [verbose] > │ v2 │
00:08:13 #30127 [verbose] > │ #endif │
00:08:13 #30128 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30129 [verbose] > │ let v3 : string = null |> unbox<string> │
00:08:13 #30130 [verbose] > │ v3 │
00:08:13 #30131 [verbose] > │ #endif │
00:08:13 #30132 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30133 [verbose] > │ let v4 : string = null |> unbox<string> │
00:08:13 #30134 [verbose] > │ v4 │
00:08:13 #30135 [verbose] > │ #endif │
00:08:13 #30136 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30137 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30138 [verbose] > │ let v5 : (string -> string) = System.IO.Path.GetFileName │
00:08:13 #30139 [verbose] > │ let v6 : string = v5 v0 │
00:08:13 #30140 [verbose] > │ v6 │
00:08:13 #30141 [verbose] > │ #endif │
00:08:13 #30142 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30143 [verbose] > │ let v7 : string = null |> unbox<string> │
00:08:13 #30144 [verbose] > │ v7 │
00:08:13 #30145 [verbose] > │ #endif │
00:08:13 #30146 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30147 [verbose] > │ let v8 : string = Unchecked.defaultof<string> │
00:08:13 #30148 [verbose] > │ v8 │
00:08:13 #30149 [verbose] > │ #endif │
00:08:13 #30150 [verbose] > │ |> fun x -> _v1 <- Some x │
00:08:13 #30151 [verbose] > │ let v9 : string = _v1.Value │
00:08:13 #30152 [verbose] > │ v9 │
00:08:13 #30153 [verbose] > │ and closure3 () () : string = │
00:08:13 #30154 [verbose] > │ let v0 : string = "" │
00:08:13 #30155 [verbose] > │ v0 │
00:08:13 #30156 [verbose] > │ and method1 (v0 : string, v1 : string) : string = │
00:08:13 #30157 [verbose] > │ let v2 : (string -> string) = closure2() │
00:08:13 #30158 [verbose] > │ let v3 : (unit -> string) = closure3() │
00:08:13 #30159 [verbose] > │ let v4 : string = $"path: {v0 |> v2} / ex: {v1} / {v3 ()}" │
00:08:13 #30160 [verbose] > │ v4 │
00:08:13 #30161 [verbose] > │ and closure1 (v0 : string, v1 : string) () : string = │
00:08:13 #30162 [verbose] > │ method1(v0, v1) │
00:08:13 #30163 [verbose] > │ and method0 (v0 : string, v1 : int64) : Async<int64> = │
00:08:13 #30164 [verbose] > │ let v2 : Async<int64> option = None │
00:08:13 #30165 [verbose] > │ let mutable _v2 = v2 │
00:08:13 #30166 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30167 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30168 [verbose] > │ v3 │
00:08:13 #30169 [verbose] > │ #endif │
00:08:13 #30170 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30171 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30172 [verbose] > │ v4 │
00:08:13 #30173 [verbose] > │ #endif │
00:08:13 #30174 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30175 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30176 [verbose] > │ v5 │
00:08:13 #30177 [verbose] > │ #endif │
00:08:13 #30178 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30179 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30180 [verbose] > │ let v6 : Async<int64> option = None │
00:08:13 #30181 [verbose] > │ let mutable _v6 = v6 │
00:08:13 #30182 [verbose] > │ async { │
00:08:13 #30183 [verbose] > │ try │
00:08:13 #30184 [verbose] > │ let v7 : unit option = None │
00:08:13 #30185 [verbose] > │ let mutable _v7 = v7 │
00:08:13 #30186 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30187 [verbose] > │ null |> unbox<unit> │
00:08:13 #30188 [verbose] > │ () │
00:08:13 #30189 [verbose] > │ #endif │
00:08:13 #30190 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30191 [verbose] > │ null |> unbox<unit> │
00:08:13 #30192 [verbose] > │ () │
00:08:13 #30193 [verbose] > │ #endif │
00:08:13 #30194 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30195 [verbose] > │ null |> unbox<unit> │
00:08:13 #30196 [verbose] > │ () │
00:08:13 #30197 [verbose] > │ #endif │
00:08:13 #30198 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30199 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30200 [verbose] > │ System.IO.Directory.Delete (v0, true) │
00:08:13 #30201 [verbose] > │ () │
00:08:13 #30202 [verbose] > │ #endif │
00:08:13 #30203 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30204 [verbose] > │ null |> unbox<unit> │
00:08:13 #30205 [verbose] > │ () │
00:08:13 #30206 [verbose] > │ #endif │
00:08:13 #30207 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30208 [verbose] > │ Unchecked.defaultof<unit> │
00:08:13 #30209 [verbose] > │ () │
00:08:13 #30210 [verbose] > │ #endif │
00:08:13 #30211 [verbose] > │ |> fun x -> _v7 <- Some x │
00:08:13 #30212 [verbose] > │ _v7.Value │
00:08:13 #30213 [verbose] > │ return v1 │
00:08:13 #30214 [verbose] > │ with ex -> │
00:08:13 #30215 [verbose] > │ let v8 : exn = ex │
00:08:13 #30216 [verbose] > │ let v9 : int64 = v1 % 100L │
00:08:13 #30217 [verbose] > │ let v10 : bool = v9 = 0L │
00:08:13 #30218 [verbose] > │ if v10 then │
00:08:13 #30219 [verbose] > │ let v11 : string option = None │
00:08:13 #30220 [verbose] > │ let mutable _v11 = v11 │
00:08:13 #30221 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30222 [verbose] > │ let v12 : string = $"%A{v8}" │
00:08:13 #30223 [verbose] > │ v12 │
00:08:13 #30224 [verbose] > │ #endif │
00:08:13 #30225 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30226 [verbose] > │ let v13 : string = $"%A{v8}" │
00:08:13 #30227 [verbose] > │ v13 │
00:08:13 #30228 [verbose] > │ #endif │
00:08:13 #30229 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30230 [verbose] > │ let v14 : string = $"%A{v8}" │
00:08:13 #30231 [verbose] > │ v14 │
00:08:13 #30232 [verbose] > │ #endif │
00:08:13 #30233 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30234 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30235 [verbose] > │ let v15 : string = $"{v8.GetType ()}: {v8.Message}" │
00:08:13 #30236 [verbose] > │ v15 │
00:08:13 #30237 [verbose] > │ #endif │
00:08:13 #30238 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30239 [verbose] > │ let v16 : string = $"%A{v8}" │
00:08:13 #30240 [verbose] > │ v16 │
00:08:13 #30241 [verbose] > │ #endif │
00:08:13 #30242 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:13 #30243 [verbose] > │ FABLE_COMPILER_DART │
00:08:13 #30244 [verbose] > │ let v17 : string = Unchecked.defaultof<string> │
00:08:13 #30245 [verbose] > │ v17 │
00:08:13 #30246 [verbose] > │ #endif │
00:08:13 #30247 [verbose] > │ |> fun x -> _v11 <- Some x │
00:08:13 #30248 [verbose] > │ let v18 : string = _v11.Value │
00:08:13 #30249 [verbose] > │ let v19 : (unit -> string) = closure1(v0, v18) │
00:08:13 #30250 [verbose] > │ let v20 : string = $"delete_directory_async / {v19 ()}" │
00:08:13 #30251 [verbose] > │ System.Console.WriteLine v20 │
00:08:13 #30252 [verbose] > │ () │
00:08:13 #30253 [verbose] > │ let v21 : Async<unit> option = None │
00:08:13 #30254 [verbose] > │ let mutable _v21 = v21 │
00:08:13 #30255 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30256 [verbose] > │ let v22 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30257 [verbose] > │ v22 │
00:08:13 #30258 [verbose] > │ #endif │
00:08:13 #30259 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30260 [verbose] > │ let v23 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30261 [verbose] > │ v23 │
00:08:13 #30262 [verbose] > │ #endif │
00:08:13 #30263 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30264 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30265 [verbose] > │ v24 │
00:08:13 #30266 [verbose] > │ #endif │
00:08:13 #30267 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30268 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30269 [verbose] > │ let v25 : (int32 -> Async<unit>) = Async.Sleep │
00:08:13 #30270 [verbose] > │ let v26 : Async<unit> = v25 10 │
00:08:13 #30271 [verbose] > │ v26 │
00:08:13 #30272 [verbose] > │ #endif │
00:08:13 #30273 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30274 [verbose] > │ let v27 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30275 [verbose] > │ v27 │
00:08:13 #30276 [verbose] > │ #endif │
00:08:13 #30277 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30278 [verbose] > │ let v28 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:13 #30279 [verbose] > │ v28 │
00:08:13 #30280 [verbose] > │ #endif │
00:08:13 #30281 [verbose] > │ |> fun x -> _v21 <- Some x │
00:08:13 #30282 [verbose] > │ let v29 : Async<unit> = _v21.Value │
00:08:13 #30283 [verbose] > │ do! v29 │
00:08:13 #30284 [verbose] > │ let v30 : int64 = v1 + 1L │
00:08:13 #30285 [verbose] > │ let v31 : Async<int64> = method0(v0, v30) │
00:08:13 #30286 [verbose] > │ return! v31 │
00:08:13 #30287 [verbose] > │ (* │
00:08:13 #30288 [verbose] > │ let v32 : int64 = *) │
00:08:13 #30289 [verbose] > │ } │
00:08:13 #30290 [verbose] > │ |> fun x -> _v6 <- Some x │
00:08:13 #30291 [verbose] > │ let v33 : Async<int64> = _v6 |> Option.get │
00:08:13 #30292 [verbose] > │ v33 │
00:08:13 #30293 [verbose] > │ #endif │
00:08:13 #30294 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30295 [verbose] > │ let v34 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30296 [verbose] > │ v34 │
00:08:13 #30297 [verbose] > │ #endif │
00:08:13 #30298 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30299 [verbose] > │ let v35 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:13 #30300 [verbose] > │ v35 │
00:08:13 #30301 [verbose] > │ #endif │
00:08:13 #30302 [verbose] > │ |> fun x -> _v2 <- Some x │
00:08:13 #30303 [verbose] > │ let v36 : Async<int64> = _v2.Value │
00:08:13 #30304 [verbose] > │ v36 │
00:08:13 #30305 [verbose] > │ and closure0 () (v0 : string) : Async<int64> = │
00:08:13 #30306 [verbose] > │ let v1 : Async<int64> option = None │
00:08:13 #30307 [verbose] > │ let mutable _v1 = v1 │
00:08:13 #30308 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30309 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30310 [verbose] > │ v2 │
00:08:13 #30311 [verbose] > │ #endif │
00:08:13 #30312 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30313 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30314 [verbose] > │ v3 │
00:08:13 #30315 [verbose] > │ #endif │
00:08:13 #30316 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30317 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30318 [verbose] > │ v4 │
00:08:13 #30319 [verbose] > │ #endif │
00:08:13 #30320 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30321 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30322 [verbose] > │ let v5 : int64 = 0L │
00:08:13 #30323 [verbose] > │ let v6 : Async<int64> = method0(v0, v5) │
00:08:13 #30324 [verbose] > │ v6 │
00:08:13 #30325 [verbose] > │ #endif │
00:08:13 #30326 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30327 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30328 [verbose] > │ v7 │
00:08:13 #30329 [verbose] > │ #endif │
00:08:13 #30330 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30331 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:13 #30332 [verbose] > │ v8 │
00:08:13 #30333 [verbose] > │ #endif │
00:08:13 #30334 [verbose] > │ |> fun x -> _v1 <- Some x │
00:08:13 #30335 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:08:13 #30336 [verbose] > │ v9 │
00:08:13 #30337 [verbose] > │ and method3 (v0 : string, v1 : int64, v2 : string) : string = │
00:08:13 #30338 [verbose] > │ let v3 : (string -> string) = closure2() │
00:08:13 #30339 [verbose] > │ let v4 : (unit -> string) = closure3() │
00:08:13 #30340 [verbose] > │ let v5 : string = $"path: {v0 |> v3} / retry: {v1} / ex: {v2} / {v4 ()}" │
00:08:13 #30341 [verbose] > │ v5 │
00:08:13 #30342 [verbose] > │ and closure6 (v0 : string, v1 : int64, v2 : string) () : string = │
00:08:13 #30343 [verbose] > │ method3(v0, v1, v2) │
00:08:13 #30344 [verbose] > │ and method2 (v0 : string, v1 : US2, v2 : US1, v3 : int64) : Async<int64> = │
00:08:13 #30345 [verbose] > │ let v4 : Async<int64> option = None │
00:08:13 #30346 [verbose] > │ let mutable _v4 = v4 │
00:08:13 #30347 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30348 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30349 [verbose] > │ v5 │
00:08:13 #30350 [verbose] > │ #endif │
00:08:13 #30351 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30352 [verbose] > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30353 [verbose] > │ v6 │
00:08:13 #30354 [verbose] > │ #endif │
00:08:13 #30355 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30356 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30357 [verbose] > │ v7 │
00:08:13 #30358 [verbose] > │ #endif │
00:08:13 #30359 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30360 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30361 [verbose] > │ let v8 : Async<int64> option = None │
00:08:13 #30362 [verbose] > │ let mutable _v8 = v8 │
00:08:13 #30363 [verbose] > │ async { │
00:08:13 #30364 [verbose] > │ try │
00:08:13 #30365 [verbose] > │ let v9 : System.IO.FileStream option = None │
00:08:13 #30366 [verbose] > │ let mutable _v9 = v9 │
00:08:13 #30367 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30368 [verbose] > │ let v10 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:13 #30369 [verbose] > │ v10 │
00:08:13 #30370 [verbose] > │ #endif │
00:08:13 #30371 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30372 [verbose] > │ let v11 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:13 #30373 [verbose] > │ v11 │
00:08:13 #30374 [verbose] > │ #endif │
00:08:13 #30375 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30376 [verbose] > │ let v12 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:13 #30377 [verbose] > │ v12 │
00:08:13 #30378 [verbose] > │ #endif │
00:08:13 #30379 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30380 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30381 [verbose] > │ let v13 : System.IO.FileMode = System.IO.FileMode.Open │
00:08:13 #30382 [verbose] > │ let v19 : System.IO.FileAccess = │
00:08:13 #30383 [verbose] > │ match v2 with │
00:08:13 #30384 [verbose] > │ | US1_0 -> (* AccessRead *) │
00:08:13 #30385 [verbose] > │ let v14 : System.IO.FileAccess = System.IO.FileAccess.Read │
00:08:13 #30386 [verbose] > │ v14 │
00:08:13 #30387 [verbose] > │ | US1_2 -> (* AccessReadWrite *) │
00:08:13 #30388 [verbose] > │ let v16 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:08:13 #30389 [verbose] > │ v16 │
00:08:13 #30390 [verbose] > │ | US1_1 -> (* AccessWrite *) │
00:08:13 #30391 [verbose] > │ let v15 : System.IO.FileAccess = System.IO.FileAccess.ReadWrite │
00:08:13 #30392 [verbose] > │ v15 │
00:08:13 #30393 [verbose] > │ let v29 : System.IO.FileShare = │
00:08:13 #30394 [verbose] > │ match v1 with │
00:08:13 #30395 [verbose] > │ | US2_4 -> (* ShareDelete *) │
00:08:13 #30396 [verbose] > │ let v24 : System.IO.FileShare = System.IO.FileShare.Delete │
00:08:13 #30397 [verbose] > │ v24 │
00:08:13 #30398 [verbose] > │ | US2_0 -> (* ShareNone *) │
00:08:13 #30399 [verbose] > │ let v20 : System.IO.FileShare = System.IO.FileShare.None │
00:08:13 #30400 [verbose] > │ v20 │
00:08:13 #30401 [verbose] > │ | US2_1 -> (* ShareRead *) │
00:08:13 #30402 [verbose] > │ let v21 : System.IO.FileShare = System.IO.FileShare.Read │
00:08:13 #30403 [verbose] > │ v21 │
00:08:13 #30404 [verbose] > │ | US2_3 -> (* ShareReadWrite *) │
00:08:13 #30405 [verbose] > │ let v23 : System.IO.FileShare = System.IO.FileShare.ReadWrite │
00:08:13 #30406 [verbose] > │ v23 │
00:08:13 #30407 [verbose] > │ | US2_2 -> (* ShareWrite *) │
00:08:13 #30408 [verbose] > │ let v22 : System.IO.FileShare = System.IO.FileShare.Write │
00:08:13 #30409 [verbose] > │ v22 │
00:08:13 #30410 [verbose] > │ let v30 : System.IO.FileStream = new System.IO.FileStream (v0, v13, v19, │
00:08:13 #30411 [verbose] > │ v29) │
00:08:13 #30412 [verbose] > │ v30 │
00:08:13 #30413 [verbose] > │ #endif │
00:08:13 #30414 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30415 [verbose] > │ let v31 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:13 #30416 [verbose] > │ v31 │
00:08:13 #30417 [verbose] > │ #endif │
00:08:13 #30418 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30419 [verbose] > │ let v32 : System.IO.FileStream = │
00:08:13 #30420 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:08:13 #30421 [verbose] > │ v32 │
00:08:13 #30422 [verbose] > │ #endif │
00:08:13 #30423 [verbose] > │ |> fun x -> _v9 <- Some x │
00:08:13 #30424 [verbose] > │ let v33 : System.IO.FileStream = _v9.Value │
00:08:13 #30425 [verbose] > │ use v33 = v33 │
00:08:13 #30426 [verbose] > │ let v34 : System.IO.FileStream = v33 │
00:08:13 #30427 [verbose] > │ return v3 │
00:08:13 #30428 [verbose] > │ with ex -> │
00:08:13 #30429 [verbose] > │ let v35 : exn = ex │
00:08:13 #30430 [verbose] > │ let v36 : bool = v3 > 0L │
00:08:13 #30431 [verbose] > │ let v39 : bool = │
00:08:13 #30432 [verbose] > │ if v36 then │
00:08:13 #30433 [verbose] > │ let v37 : int64 = v3 % 100L │
00:08:13 #30434 [verbose] > │ let v38 : bool = v37 = 0L │
00:08:13 #30435 [verbose] > │ v38 │
00:08:13 #30436 [verbose] > │ else │
00:08:13 #30437 [verbose] > │ false │
00:08:13 #30438 [verbose] > │ if v39 then │
00:08:13 #30439 [verbose] > │ let v40 : string option = None │
00:08:13 #30440 [verbose] > │ let mutable _v40 = v40 │
00:08:13 #30441 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30442 [verbose] > │ let v41 : string = $"%A{v35}" │
00:08:13 #30443 [verbose] > │ v41 │
00:08:13 #30444 [verbose] > │ #endif │
00:08:13 #30445 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30446 [verbose] > │ let v42 : string = $"%A{v35}" │
00:08:13 #30447 [verbose] > │ v42 │
00:08:13 #30448 [verbose] > │ #endif │
00:08:13 #30449 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30450 [verbose] > │ let v43 : string = $"%A{v35}" │
00:08:13 #30451 [verbose] > │ v43 │
00:08:13 #30452 [verbose] > │ #endif │
00:08:13 #30453 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30454 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30455 [verbose] > │ let v44 : string = $"{v35.GetType ()}: {v35.Message}" │
00:08:13 #30456 [verbose] > │ v44 │
00:08:13 #30457 [verbose] > │ #endif │
00:08:13 #30458 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30459 [verbose] > │ let v45 : string = $"%A{v35}" │
00:08:13 #30460 [verbose] > │ v45 │
00:08:13 #30461 [verbose] > │ #endif │
00:08:13 #30462 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:13 #30463 [verbose] > │ FABLE_COMPILER_DART │
00:08:13 #30464 [verbose] > │ let v46 : string = Unchecked.defaultof<string> │
00:08:13 #30465 [verbose] > │ v46 │
00:08:13 #30466 [verbose] > │ #endif │
00:08:13 #30467 [verbose] > │ |> fun x -> _v40 <- Some x │
00:08:13 #30468 [verbose] > │ let v47 : string = _v40.Value │
00:08:13 #30469 [verbose] > │ let v48 : (unit -> string) = closure6(v0, v3, v47) │
00:08:13 #30470 [verbose] > │ let v49 : string = $"wait_for_file_access / {v48 ()}" │
00:08:13 #30471 [verbose] > │ System.Console.WriteLine v49 │
00:08:13 #30472 [verbose] > │ () │
00:08:13 #30473 [verbose] > │ let v50 : Async<unit> option = None │
00:08:13 #30474 [verbose] > │ let mutable _v50 = v50 │
00:08:13 #30475 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30476 [verbose] > │ let v51 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30477 [verbose] > │ v51 │
00:08:13 #30478 [verbose] > │ #endif │
00:08:13 #30479 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30480 [verbose] > │ let v52 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30481 [verbose] > │ v52 │
00:08:13 #30482 [verbose] > │ #endif │
00:08:13 #30483 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30484 [verbose] > │ let v53 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30485 [verbose] > │ v53 │
00:08:13 #30486 [verbose] > │ #endif │
00:08:13 #30487 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30488 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30489 [verbose] > │ let v54 : (int32 -> Async<unit>) = Async.Sleep │
00:08:13 #30490 [verbose] > │ let v55 : Async<unit> = v54 10 │
00:08:13 #30491 [verbose] > │ v55 │
00:08:13 #30492 [verbose] > │ #endif │
00:08:13 #30493 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30494 [verbose] > │ let v56 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30495 [verbose] > │ v56 │
00:08:13 #30496 [verbose] > │ #endif │
00:08:13 #30497 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30498 [verbose] > │ let v57 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:13 #30499 [verbose] > │ v57 │
00:08:13 #30500 [verbose] > │ #endif │
00:08:13 #30501 [verbose] > │ |> fun x -> _v50 <- Some x │
00:08:13 #30502 [verbose] > │ let v58 : Async<unit> = _v50.Value │
00:08:13 #30503 [verbose] > │ do! v58 │
00:08:13 #30504 [verbose] > │ let v59 : int64 = v3 + 1L │
00:08:13 #30505 [verbose] > │ let v60 : Async<int64> = method2(v0, v1, v2, v59) │
00:08:13 #30506 [verbose] > │ return! v60 │
00:08:13 #30507 [verbose] > │ (* │
00:08:13 #30508 [verbose] > │ let v61 : int64 = *) │
00:08:13 #30509 [verbose] > │ } │
00:08:13 #30510 [verbose] > │ |> fun x -> _v8 <- Some x │
00:08:13 #30511 [verbose] > │ let v62 : Async<int64> = _v8 |> Option.get │
00:08:13 #30512 [verbose] > │ v62 │
00:08:13 #30513 [verbose] > │ #endif │
00:08:13 #30514 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30515 [verbose] > │ let v63 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30516 [verbose] > │ v63 │
00:08:13 #30517 [verbose] > │ #endif │
00:08:13 #30518 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30519 [verbose] > │ let v64 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:13 #30520 [verbose] > │ v64 │
00:08:13 #30521 [verbose] > │ #endif │
00:08:13 #30522 [verbose] > │ |> fun x -> _v4 <- Some x │
00:08:13 #30523 [verbose] > │ let v65 : Async<int64> = _v4.Value │
00:08:13 #30524 [verbose] > │ v65 │
00:08:13 #30525 [verbose] > │ and closure5 (v0 : US0) (v1 : string) : Async<int64> = │
00:08:13 #30526 [verbose] > │ let v2 : Async<int64> option = None │
00:08:13 #30527 [verbose] > │ let mutable _v2 = v2 │
00:08:13 #30528 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30529 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30530 [verbose] > │ v3 │
00:08:13 #30531 [verbose] > │ #endif │
00:08:13 #30532 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30533 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30534 [verbose] > │ v4 │
00:08:13 #30535 [verbose] > │ #endif │
00:08:13 #30536 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30537 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30538 [verbose] > │ v5 │
00:08:13 #30539 [verbose] > │ #endif │
00:08:13 #30540 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30541 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30542 [verbose] > │ let struct (v12 : US1, v13 : US2) = │
00:08:13 #30543 [verbose] > │ match v0 with │
00:08:13 #30544 [verbose] > │ | US0_1 -> (* None *) │
00:08:13 #30545 [verbose] > │ let v8 : US1 = US1_2 │
00:08:13 #30546 [verbose] > │ let v9 : US2 = US2_1 │
00:08:13 #30547 [verbose] > │ struct (v8, v9) │
00:08:13 #30548 [verbose] > │ | US0_0(v6, v7) -> (* Some *) │
00:08:13 #30549 [verbose] > │ struct (v6, v7) │
00:08:13 #30550 [verbose] > │ let v14 : int64 = 0L │
00:08:13 #30551 [verbose] > │ let v15 : Async<int64> = method2(v1, v13, v12, v14) │
00:08:13 #30552 [verbose] > │ v15 │
00:08:13 #30553 [verbose] > │ #endif │
00:08:13 #30554 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30555 [verbose] > │ let v16 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30556 [verbose] > │ v16 │
00:08:13 #30557 [verbose] > │ #endif │
00:08:13 #30558 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30559 [verbose] > │ let v17 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:13 #30560 [verbose] > │ v17 │
00:08:13 #30561 [verbose] > │ #endif │
00:08:13 #30562 [verbose] > │ |> fun x -> _v2 <- Some x │
00:08:13 #30563 [verbose] > │ let v18 : Async<int64> = _v2.Value │
00:08:13 #30564 [verbose] > │ v18 │
00:08:13 #30565 [verbose] > │ and closure4 () (v0 : US0) : (string -> Async<int64>) = │
00:08:13 #30566 [verbose] > │ closure5(v0) │
00:08:13 #30567 [verbose] > │ and method4 (v0 : string, v1 : int64) : Async<int64> = │
00:08:13 #30568 [verbose] > │ let v2 : Async<int64> option = None │
00:08:13 #30569 [verbose] > │ let mutable _v2 = v2 │
00:08:13 #30570 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30571 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30572 [verbose] > │ v3 │
00:08:13 #30573 [verbose] > │ #endif │
00:08:13 #30574 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30575 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30576 [verbose] > │ v4 │
00:08:13 #30577 [verbose] > │ #endif │
00:08:13 #30578 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30579 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30580 [verbose] > │ v5 │
00:08:13 #30581 [verbose] > │ #endif │
00:08:13 #30582 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30583 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30584 [verbose] > │ let v6 : Async<int64> option = None │
00:08:13 #30585 [verbose] > │ let mutable _v6 = v6 │
00:08:13 #30586 [verbose] > │ async { │
00:08:13 #30587 [verbose] > │ try │
00:08:13 #30588 [verbose] > │ let v7 : System.IO.FileStream option = None │
00:08:13 #30589 [verbose] > │ let mutable _v7 = v7 │
00:08:13 #30590 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30591 [verbose] > │ let v8 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:13 #30592 [verbose] > │ v8 │
00:08:13 #30593 [verbose] > │ #endif │
00:08:13 #30594 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30595 [verbose] > │ let v9 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:13 #30596 [verbose] > │ v9 │
00:08:13 #30597 [verbose] > │ #endif │
00:08:13 #30598 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30599 [verbose] > │ let v10 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:13 #30600 [verbose] > │ v10 │
00:08:13 #30601 [verbose] > │ #endif │
00:08:13 #30602 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30603 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30604 [verbose] > │ let v11 : System.IO.FileMode = System.IO.FileMode.Open │
00:08:13 #30605 [verbose] > │ let v12 : System.IO.FileAccess = System.IO.FileAccess.Read │
00:08:13 #30606 [verbose] > │ let v13 : System.IO.FileShare = System.IO.FileShare.Read │
00:08:13 #30607 [verbose] > │ let v14 : System.IO.FileStream = new System.IO.FileStream (v0, v11, v12, │
00:08:13 #30608 [verbose] > │ v13) │
00:08:13 #30609 [verbose] > │ v14 │
00:08:13 #30610 [verbose] > │ #endif │
00:08:13 #30611 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30612 [verbose] > │ let v15 : System.IO.FileStream = null |> unbox<System.IO.FileStream> │
00:08:13 #30613 [verbose] > │ v15 │
00:08:13 #30614 [verbose] > │ #endif │
00:08:13 #30615 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30616 [verbose] > │ let v16 : System.IO.FileStream = │
00:08:13 #30617 [verbose] > │ Unchecked.defaultof<System.IO.FileStream> │
00:08:13 #30618 [verbose] > │ v16 │
00:08:13 #30619 [verbose] > │ #endif │
00:08:13 #30620 [verbose] > │ |> fun x -> _v7 <- Some x │
00:08:13 #30621 [verbose] > │ let v17 : System.IO.FileStream = _v7.Value │
00:08:13 #30622 [verbose] > │ use v17 = v17 │
00:08:13 #30623 [verbose] > │ let v18 : System.IO.FileStream = v17 │
00:08:13 #30624 [verbose] > │ return v1 │
00:08:13 #30625 [verbose] > │ with ex -> │
00:08:13 #30626 [verbose] > │ let v19 : exn = ex │
00:08:13 #30627 [verbose] > │ let v20 : bool = v1 > 0L │
00:08:13 #30628 [verbose] > │ let v23 : bool = │
00:08:13 #30629 [verbose] > │ if v20 then │
00:08:13 #30630 [verbose] > │ let v21 : int64 = v1 % 100L │
00:08:13 #30631 [verbose] > │ let v22 : bool = v21 = 0L │
00:08:13 #30632 [verbose] > │ v22 │
00:08:13 #30633 [verbose] > │ else │
00:08:13 #30634 [verbose] > │ false │
00:08:13 #30635 [verbose] > │ if v23 then │
00:08:13 #30636 [verbose] > │ let v24 : string option = None │
00:08:13 #30637 [verbose] > │ let mutable _v24 = v24 │
00:08:13 #30638 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30639 [verbose] > │ let v25 : string = $"%A{v19}" │
00:08:13 #30640 [verbose] > │ v25 │
00:08:13 #30641 [verbose] > │ #endif │
00:08:13 #30642 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30643 [verbose] > │ let v26 : string = $"%A{v19}" │
00:08:13 #30644 [verbose] > │ v26 │
00:08:13 #30645 [verbose] > │ #endif │
00:08:13 #30646 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30647 [verbose] > │ let v27 : string = $"%A{v19}" │
00:08:13 #30648 [verbose] > │ v27 │
00:08:13 #30649 [verbose] > │ #endif │
00:08:13 #30650 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30651 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30652 [verbose] > │ let v28 : string = $"{v19.GetType ()}: {v19.Message}" │
00:08:13 #30653 [verbose] > │ v28 │
00:08:13 #30654 [verbose] > │ #endif │
00:08:13 #30655 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30656 [verbose] > │ let v29 : string = $"%A{v19}" │
00:08:13 #30657 [verbose] > │ v29 │
00:08:13 #30658 [verbose] > │ #endif │
00:08:13 #30659 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:13 #30660 [verbose] > │ FABLE_COMPILER_DART │
00:08:13 #30661 [verbose] > │ let v30 : string = Unchecked.defaultof<string> │
00:08:13 #30662 [verbose] > │ v30 │
00:08:13 #30663 [verbose] > │ #endif │
00:08:13 #30664 [verbose] > │ |> fun x -> _v24 <- Some x │
00:08:13 #30665 [verbose] > │ let v31 : string = _v24.Value │
00:08:13 #30666 [verbose] > │ let v32 : (unit -> string) = closure6(v0, v1, v31) │
00:08:13 #30667 [verbose] > │ let v33 : string = $"wait_for_file_access / {v32 ()}" │
00:08:13 #30668 [verbose] > │ System.Console.WriteLine v33 │
00:08:13 #30669 [verbose] > │ () │
00:08:13 #30670 [verbose] > │ let v34 : Async<unit> option = None │
00:08:13 #30671 [verbose] > │ let mutable _v34 = v34 │
00:08:13 #30672 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30673 [verbose] > │ let v35 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30674 [verbose] > │ v35 │
00:08:13 #30675 [verbose] > │ #endif │
00:08:13 #30676 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30677 [verbose] > │ let v36 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30678 [verbose] > │ v36 │
00:08:13 #30679 [verbose] > │ #endif │
00:08:13 #30680 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30681 [verbose] > │ let v37 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30682 [verbose] > │ v37 │
00:08:13 #30683 [verbose] > │ #endif │
00:08:13 #30684 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30685 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30686 [verbose] > │ let v38 : (int32 -> Async<unit>) = Async.Sleep │
00:08:13 #30687 [verbose] > │ let v39 : Async<unit> = v38 10 │
00:08:13 #30688 [verbose] > │ v39 │
00:08:13 #30689 [verbose] > │ #endif │
00:08:13 #30690 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30691 [verbose] > │ let v40 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #30692 [verbose] > │ v40 │
00:08:13 #30693 [verbose] > │ #endif │
00:08:13 #30694 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30695 [verbose] > │ let v41 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:13 #30696 [verbose] > │ v41 │
00:08:13 #30697 [verbose] > │ #endif │
00:08:13 #30698 [verbose] > │ |> fun x -> _v34 <- Some x │
00:08:13 #30699 [verbose] > │ let v42 : Async<unit> = _v34.Value │
00:08:13 #30700 [verbose] > │ do! v42 │
00:08:13 #30701 [verbose] > │ let v43 : int64 = v1 + 1L │
00:08:13 #30702 [verbose] > │ let v44 : Async<int64> = method4(v0, v43) │
00:08:13 #30703 [verbose] > │ return! v44 │
00:08:13 #30704 [verbose] > │ (* │
00:08:13 #30705 [verbose] > │ let v45 : int64 = *) │
00:08:13 #30706 [verbose] > │ } │
00:08:13 #30707 [verbose] > │ |> fun x -> _v6 <- Some x │
00:08:13 #30708 [verbose] > │ let v46 : Async<int64> = _v6 |> Option.get │
00:08:13 #30709 [verbose] > │ v46 │
00:08:13 #30710 [verbose] > │ #endif │
00:08:13 #30711 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30712 [verbose] > │ let v47 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30713 [verbose] > │ v47 │
00:08:13 #30714 [verbose] > │ #endif │
00:08:13 #30715 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30716 [verbose] > │ let v48 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:13 #30717 [verbose] > │ v48 │
00:08:13 #30718 [verbose] > │ #endif │
00:08:13 #30719 [verbose] > │ |> fun x -> _v2 <- Some x │
00:08:13 #30720 [verbose] > │ let v49 : Async<int64> = _v2.Value │
00:08:13 #30721 [verbose] > │ v49 │
00:08:13 #30722 [verbose] > │ and closure7 () (v0 : string) : Async<int64> = │
00:08:13 #30723 [verbose] > │ let v1 : Async<int64> option = None │
00:08:13 #30724 [verbose] > │ let mutable _v1 = v1 │
00:08:13 #30725 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30726 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30727 [verbose] > │ v2 │
00:08:13 #30728 [verbose] > │ #endif │
00:08:13 #30729 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30730 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30731 [verbose] > │ v3 │
00:08:13 #30732 [verbose] > │ #endif │
00:08:13 #30733 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30734 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30735 [verbose] > │ v4 │
00:08:13 #30736 [verbose] > │ #endif │
00:08:13 #30737 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30738 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30739 [verbose] > │ let v5 : int64 = 0L │
00:08:13 #30740 [verbose] > │ let v6 : Async<int64> = method4(v0, v5) │
00:08:13 #30741 [verbose] > │ v6 │
00:08:13 #30742 [verbose] > │ #endif │
00:08:13 #30743 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30744 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:08:13 #30745 [verbose] > │ v7 │
00:08:13 #30746 [verbose] > │ #endif │
00:08:13 #30747 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30748 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:13 #30749 [verbose] > │ v8 │
00:08:13 #30750 [verbose] > │ #endif │
00:08:13 #30751 [verbose] > │ |> fun x -> _v1 <- Some x │
00:08:13 #30752 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:08:13 #30753 [verbose] > │ v9 │
00:08:13 #30754 [verbose] > │ and closure8 () (v0 : string) : Async<string> = │
00:08:13 #30755 [verbose] > │ let v1 : Async<string> option = None │
00:08:13 #30756 [verbose] > │ let mutable _v1 = v1 │
00:08:13 #30757 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30758 [verbose] > │ let v2 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30759 [verbose] > │ v2 │
00:08:13 #30760 [verbose] > │ #endif │
00:08:13 #30761 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30762 [verbose] > │ let v3 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30763 [verbose] > │ v3 │
00:08:13 #30764 [verbose] > │ #endif │
00:08:13 #30765 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30766 [verbose] > │ let v4 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30767 [verbose] > │ v4 │
00:08:13 #30768 [verbose] > │ #endif │
00:08:13 #30769 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30770 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30771 [verbose] > │ let v5 : (string -> System.Threading.Tasks.Task<string>) = │
00:08:13 #30772 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:08:13 #30773 [verbose] > │ let v6 : System.Threading.Tasks.Task<string> = v5 v0 │
00:08:13 #30774 [verbose] > │ let v7 : Async<string> option = None │
00:08:13 #30775 [verbose] > │ let mutable _v7 = v7 │
00:08:13 #30776 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30777 [verbose] > │ let v8 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30778 [verbose] > │ v8 │
00:08:13 #30779 [verbose] > │ #endif │
00:08:13 #30780 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30781 [verbose] > │ let v9 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30782 [verbose] > │ v9 │
00:08:13 #30783 [verbose] > │ #endif │
00:08:13 #30784 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30785 [verbose] > │ let v10 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30786 [verbose] > │ v10 │
00:08:13 #30787 [verbose] > │ #endif │
00:08:13 #30788 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30789 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30790 [verbose] > │ let v11 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:08:13 #30791 [verbose] > │ Async.AwaitTask │
00:08:13 #30792 [verbose] > │ let v12 : Async<string> = v11 v6 │
00:08:13 #30793 [verbose] > │ v12 │
00:08:13 #30794 [verbose] > │ #endif │
00:08:13 #30795 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30796 [verbose] > │ let v13 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30797 [verbose] > │ v13 │
00:08:13 #30798 [verbose] > │ #endif │
00:08:13 #30799 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30800 [verbose] > │ let v14 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:13 #30801 [verbose] > │ v14 │
00:08:13 #30802 [verbose] > │ #endif │
00:08:13 #30803 [verbose] > │ |> fun x -> _v7 <- Some x │
00:08:13 #30804 [verbose] > │ let v15 : Async<string> = _v7.Value │
00:08:13 #30805 [verbose] > │ v15 │
00:08:13 #30806 [verbose] > │ #endif │
00:08:13 #30807 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30808 [verbose] > │ let v16 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30809 [verbose] > │ v16 │
00:08:13 #30810 [verbose] > │ #endif │
00:08:13 #30811 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30812 [verbose] > │ let v17 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:13 #30813 [verbose] > │ v17 │
00:08:13 #30814 [verbose] > │ #endif │
00:08:13 #30815 [verbose] > │ |> fun x -> _v1 <- Some x │
00:08:13 #30816 [verbose] > │ let v18 : Async<string> = _v1.Value │
00:08:13 #30817 [verbose] > │ v18 │
00:08:13 #30818 [verbose] > │ and method5 (v0 : string) : string = │
00:08:13 #30819 [verbose] > │ v0 │
00:08:13 #30820 [verbose] > │ and closure10 (v0 : string) (v1 : string) : Async<bool> = │
00:08:13 #30821 [verbose] > │ let v2 : Async<bool> option = None │
00:08:13 #30822 [verbose] > │ let mutable _v2 = v2 │
00:08:13 #30823 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30824 [verbose] > │ let v3 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #30825 [verbose] > │ v3 │
00:08:13 #30826 [verbose] > │ #endif │
00:08:13 #30827 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30828 [verbose] > │ let v4 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #30829 [verbose] > │ v4 │
00:08:13 #30830 [verbose] > │ #endif │
00:08:13 #30831 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30832 [verbose] > │ let v5 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #30833 [verbose] > │ v5 │
00:08:13 #30834 [verbose] > │ #endif │
00:08:13 #30835 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30836 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30837 [verbose] > │ let v6 : Async<bool> option = None │
00:08:13 #30838 [verbose] > │ let mutable _v6 = v6 │
00:08:13 #30839 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30840 [verbose] > │ let v7 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #30841 [verbose] > │ v7 │
00:08:13 #30842 [verbose] > │ #endif │
00:08:13 #30843 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30844 [verbose] > │ let v8 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #30845 [verbose] > │ v8 │
00:08:13 #30846 [verbose] > │ #endif │
00:08:13 #30847 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30848 [verbose] > │ let v9 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #30849 [verbose] > │ v9 │
00:08:13 #30850 [verbose] > │ #endif │
00:08:13 #30851 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30852 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30853 [verbose] > │ let v10 : Async<bool> option = None │
00:08:13 #30854 [verbose] > │ let mutable _v10 = v10 │
00:08:13 #30855 [verbose] > │ async { │
00:08:13 #30856 [verbose] > │ let v11 : bool option = None │
00:08:13 #30857 [verbose] > │ let mutable _v11 = v11 │
00:08:13 #30858 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30859 [verbose] > │ let v12 : string = method5(v0) │
00:08:13 #30860 [verbose] > │ let v13 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:13 #30861 [verbose] > │ let v14 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v12 v13 │
00:08:13 #30862 [verbose] > │ let v15 : string = "String::from($0)" │
00:08:13 #30863 [verbose] > │ let v16 : std_string_String = Fable.Core.RustInterop.emitRustExpr v14 │
00:08:13 #30864 [verbose] > │ v15 │
00:08:13 #30865 [verbose] > │ let v17 : string = "std::path::PathBuf::from($0)" │
00:08:13 #30866 [verbose] > │ let v18 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:08:13 #30867 [verbose] > │ let v19 : string = "$0.exists()" │
00:08:13 #30868 [verbose] > │ let v20 : bool = Fable.Core.RustInterop.emitRustExpr v18 v19 │
00:08:13 #30869 [verbose] > │ let v23 : bool = │
00:08:13 #30870 [verbose] > │ if v20 then │
00:08:13 #30871 [verbose] > │ let v21 : string = "$0.is_file()" │
00:08:13 #30872 [verbose] > │ let v22 : bool = Fable.Core.RustInterop.emitRustExpr v18 v21 │
00:08:13 #30873 [verbose] > │ v22 │
00:08:13 #30874 [verbose] > │ else │
00:08:13 #30875 [verbose] > │ false │
00:08:13 #30876 [verbose] > │ v23 │
00:08:13 #30877 [verbose] > │ #endif │
00:08:13 #30878 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30879 [verbose] > │ let v24 : bool = null |> unbox<bool> │
00:08:13 #30880 [verbose] > │ v24 │
00:08:13 #30881 [verbose] > │ #endif │
00:08:13 #30882 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30883 [verbose] > │ let v25 : bool = null |> unbox<bool> │
00:08:13 #30884 [verbose] > │ v25 │
00:08:13 #30885 [verbose] > │ #endif │
00:08:13 #30886 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30887 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30888 [verbose] > │ let v26 : (string -> bool) = System.IO.File.Exists │
00:08:13 #30889 [verbose] > │ let v27 : bool = v26 v0 │
00:08:13 #30890 [verbose] > │ v27 │
00:08:13 #30891 [verbose] > │ #endif │
00:08:13 #30892 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30893 [verbose] > │ let v28 : string = "fs" │
00:08:13 #30894 [verbose] > │ let v29 : IFsExistsSync = Fable.Core.JsInterop.importAll v28 │
00:08:13 #30895 [verbose] > │ let v30 : string = "v29.existsSync($0)" │
00:08:13 #30896 [verbose] > │ let v31 : bool = Fable.Core.JsInterop.emitJsExpr v0 v30 │
00:08:13 #30897 [verbose] > │ v31 │
00:08:13 #30898 [verbose] > │ #endif │
00:08:13 #30899 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30900 [verbose] > │ let v32 : bool = Unchecked.defaultof<bool> │
00:08:13 #30901 [verbose] > │ v32 │
00:08:13 #30902 [verbose] > │ #endif │
00:08:13 #30903 [verbose] > │ |> fun x -> _v11 <- Some x │
00:08:13 #30904 [verbose] > │ let v33 : bool = _v11.Value │
00:08:13 #30905 [verbose] > │ let v34 : bool = v33 = false │
00:08:13 #30906 [verbose] > │ if v34 then │
00:08:13 #30907 [verbose] > │ return false │
00:08:13 #30908 [verbose] > │ (* │
00:08:13 #30909 [verbose] > │ () │
00:08:13 #30910 [verbose] > │ else │
00:08:13 #30911 [verbose] > │ *) else │
00:08:13 #30912 [verbose] > │ let v35 : Async<string> option = None │
00:08:13 #30913 [verbose] > │ let mutable _v35 = v35 │
00:08:13 #30914 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30915 [verbose] > │ let v36 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30916 [verbose] > │ v36 │
00:08:13 #30917 [verbose] > │ #endif │
00:08:13 #30918 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30919 [verbose] > │ let v37 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30920 [verbose] > │ v37 │
00:08:13 #30921 [verbose] > │ #endif │
00:08:13 #30922 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30923 [verbose] > │ let v38 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30924 [verbose] > │ v38 │
00:08:13 #30925 [verbose] > │ #endif │
00:08:13 #30926 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30927 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30928 [verbose] > │ let v39 : (string -> System.Threading.Tasks.Task<string>) = │
00:08:13 #30929 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:08:13 #30930 [verbose] > │ let v40 : System.Threading.Tasks.Task<string> = v39 v0 │
00:08:13 #30931 [verbose] > │ let v41 : Async<string> option = None │
00:08:13 #30932 [verbose] > │ let mutable _v41 = v41 │
00:08:13 #30933 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #30934 [verbose] > │ let v42 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30935 [verbose] > │ v42 │
00:08:13 #30936 [verbose] > │ #endif │
00:08:13 #30937 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #30938 [verbose] > │ let v43 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30939 [verbose] > │ v43 │
00:08:13 #30940 [verbose] > │ #endif │
00:08:13 #30941 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #30942 [verbose] > │ let v44 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30943 [verbose] > │ v44 │
00:08:13 #30944 [verbose] > │ #endif │
00:08:13 #30945 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #30946 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #30947 [verbose] > │ let v45 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:08:13 #30948 [verbose] > │ Async.AwaitTask │
00:08:13 #30949 [verbose] > │ let v46 : Async<string> = v45 v40 │
00:08:13 #30950 [verbose] > │ v46 │
00:08:13 #30951 [verbose] > │ #endif │
00:08:13 #30952 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30953 [verbose] > │ let v47 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30954 [verbose] > │ v47 │
00:08:13 #30955 [verbose] > │ #endif │
00:08:13 #30956 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:13 #30957 [verbose] > │ FABLE_COMPILER_DART │
00:08:13 #30958 [verbose] > │ let v48 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:13 #30959 [verbose] > │ v48 │
00:08:13 #30960 [verbose] > │ #endif │
00:08:13 #30961 [verbose] > │ |> fun x -> _v41 <- Some x │
00:08:13 #30962 [verbose] > │ let v49 : Async<string> = _v41.Value │
00:08:13 #30963 [verbose] > │ v49 │
00:08:13 #30964 [verbose] > │ #endif │
00:08:13 #30965 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30966 [verbose] > │ let v50 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #30967 [verbose] > │ v50 │
00:08:13 #30968 [verbose] > │ #endif │
00:08:13 #30969 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:13 #30970 [verbose] > │ FABLE_COMPILER_DART │
00:08:13 #30971 [verbose] > │ let v51 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:13 #30972 [verbose] > │ v51 │
00:08:13 #30973 [verbose] > │ #endif │
00:08:13 #30974 [verbose] > │ |> fun x -> _v35 <- Some x │
00:08:13 #30975 [verbose] > │ let v52 : Async<string> = _v35.Value │
00:08:13 #30976 [verbose] > │ let! v52 = v52 │
00:08:13 #30977 [verbose] > │ let v53 : string = v52 │
00:08:13 #30978 [verbose] > │ let v54 : bool = v1 = v53 │
00:08:13 #30979 [verbose] > │ return v54 │
00:08:13 #30980 [verbose] > │ (* │
00:08:13 #30981 [verbose] > │ () │
00:08:13 #30982 [verbose] > │ *) │
00:08:13 #30983 [verbose] > │ } │
00:08:13 #30984 [verbose] > │ |> fun x -> _v10 <- Some x │
00:08:13 #30985 [verbose] > │ let v55 : Async<bool> = _v10 |> Option.get │
00:08:13 #30986 [verbose] > │ v55 │
00:08:13 #30987 [verbose] > │ #endif │
00:08:13 #30988 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #30989 [verbose] > │ let v56 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #30990 [verbose] > │ v56 │
00:08:13 #30991 [verbose] > │ #endif │
00:08:13 #30992 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #30993 [verbose] > │ let v57 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:08:13 #30994 [verbose] > │ v57 │
00:08:13 #30995 [verbose] > │ #endif │
00:08:13 #30996 [verbose] > │ |> fun x -> _v6 <- Some x │
00:08:13 #30997 [verbose] > │ let v58 : Async<bool> = _v6.Value │
00:08:13 #30998 [verbose] > │ v58 │
00:08:13 #30999 [verbose] > │ #endif │
00:08:13 #31000 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31001 [verbose] > │ let v59 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #31002 [verbose] > │ v59 │
00:08:13 #31003 [verbose] > │ #endif │
00:08:13 #31004 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #31005 [verbose] > │ let v60 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:08:13 #31006 [verbose] > │ v60 │
00:08:13 #31007 [verbose] > │ #endif │
00:08:13 #31008 [verbose] > │ |> fun x -> _v2 <- Some x │
00:08:13 #31009 [verbose] > │ let v61 : Async<bool> = _v2.Value │
00:08:13 #31010 [verbose] > │ v61 │
00:08:13 #31011 [verbose] > │ and closure9 () (v0 : string) : (string -> Async<bool>) = │
00:08:13 #31012 [verbose] > │ closure10(v0) │
00:08:13 #31013 [verbose] > │ and closure12 (v0 : string) (v1 : string) : Async<unit> = │
00:08:13 #31014 [verbose] > │ let v2 : Async<unit> option = None │
00:08:13 #31015 [verbose] > │ let mutable _v2 = v2 │
00:08:13 #31016 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31017 [verbose] > │ let v3 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31018 [verbose] > │ v3 │
00:08:13 #31019 [verbose] > │ #endif │
00:08:13 #31020 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #31021 [verbose] > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31022 [verbose] > │ v4 │
00:08:13 #31023 [verbose] > │ #endif │
00:08:13 #31024 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #31025 [verbose] > │ let v5 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31026 [verbose] > │ v5 │
00:08:13 #31027 [verbose] > │ #endif │
00:08:13 #31028 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #31029 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #31030 [verbose] > │ let v6 : System.Threading.Tasks.Task = System.IO.File.WriteAllTextAsync │
00:08:13 #31031 [verbose] > │ (v0, v1) │
00:08:13 #31032 [verbose] > │ let v7 : Async<unit> option = None │
00:08:13 #31033 [verbose] > │ let mutable _v7 = v7 │
00:08:13 #31034 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31035 [verbose] > │ let v8 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31036 [verbose] > │ v8 │
00:08:13 #31037 [verbose] > │ #endif │
00:08:13 #31038 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #31039 [verbose] > │ let v9 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31040 [verbose] > │ v9 │
00:08:13 #31041 [verbose] > │ #endif │
00:08:13 #31042 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #31043 [verbose] > │ let v10 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31044 [verbose] > │ v10 │
00:08:13 #31045 [verbose] > │ #endif │
00:08:13 #31046 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #31047 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #31048 [verbose] > │ let v11 : (System.Threading.Tasks.Task -> Async<unit>) = Async.AwaitTask │
00:08:13 #31049 [verbose] > │ let v12 : Async<unit> = v11 v6 │
00:08:13 #31050 [verbose] > │ v12 │
00:08:13 #31051 [verbose] > │ #endif │
00:08:13 #31052 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31053 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31054 [verbose] > │ v13 │
00:08:13 #31055 [verbose] > │ #endif │
00:08:13 #31056 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #31057 [verbose] > │ let v14 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:13 #31058 [verbose] > │ v14 │
00:08:13 #31059 [verbose] > │ #endif │
00:08:13 #31060 [verbose] > │ |> fun x -> _v7 <- Some x │
00:08:13 #31061 [verbose] > │ let v15 : Async<unit> = _v7.Value │
00:08:13 #31062 [verbose] > │ v15 │
00:08:13 #31063 [verbose] > │ #endif │
00:08:13 #31064 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31065 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31066 [verbose] > │ v16 │
00:08:13 #31067 [verbose] > │ #endif │
00:08:13 #31068 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #31069 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:13 #31070 [verbose] > │ v17 │
00:08:13 #31071 [verbose] > │ #endif │
00:08:13 #31072 [verbose] > │ |> fun x -> _v2 <- Some x │
00:08:13 #31073 [verbose] > │ let v18 : Async<unit> = _v2.Value │
00:08:13 #31074 [verbose] > │ v18 │
00:08:13 #31075 [verbose] > │ and closure11 () (v0 : string) : (string -> Async<unit>) = │
00:08:13 #31076 [verbose] > │ closure12(v0) │
00:08:13 #31077 [verbose] > │ and closure14 (v0 : string) (v1 : string) : Async<unit> = │
00:08:13 #31078 [verbose] > │ let v2 : Async<unit> option = None │
00:08:13 #31079 [verbose] > │ let mutable _v2 = v2 │
00:08:13 #31080 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31081 [verbose] > │ let v3 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31082 [verbose] > │ v3 │
00:08:13 #31083 [verbose] > │ #endif │
00:08:13 #31084 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #31085 [verbose] > │ let v4 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31086 [verbose] > │ v4 │
00:08:13 #31087 [verbose] > │ #endif │
00:08:13 #31088 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #31089 [verbose] > │ let v5 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31090 [verbose] > │ v5 │
00:08:13 #31091 [verbose] > │ #endif │
00:08:13 #31092 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #31093 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #31094 [verbose] > │ let v6 : Async<unit> option = None │
00:08:13 #31095 [verbose] > │ let mutable _v6 = v6 │
00:08:13 #31096 [verbose] > │ async { │
00:08:13 #31097 [verbose] > │ let v7 : Async<bool> option = None │
00:08:13 #31098 [verbose] > │ let mutable _v7 = v7 │
00:08:13 #31099 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31100 [verbose] > │ let v8 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #31101 [verbose] > │ v8 │
00:08:13 #31102 [verbose] > │ #endif │
00:08:13 #31103 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #31104 [verbose] > │ let v9 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #31105 [verbose] > │ v9 │
00:08:13 #31106 [verbose] > │ #endif │
00:08:13 #31107 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #31108 [verbose] > │ let v10 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #31109 [verbose] > │ v10 │
00:08:13 #31110 [verbose] > │ #endif │
00:08:13 #31111 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #31112 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #31113 [verbose] > │ let v11 : Async<bool> option = None │
00:08:13 #31114 [verbose] > │ let mutable _v11 = v11 │
00:08:13 #31115 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31116 [verbose] > │ let v12 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #31117 [verbose] > │ v12 │
00:08:13 #31118 [verbose] > │ #endif │
00:08:13 #31119 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #31120 [verbose] > │ let v13 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #31121 [verbose] > │ v13 │
00:08:13 #31122 [verbose] > │ #endif │
00:08:13 #31123 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #31124 [verbose] > │ let v14 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #31125 [verbose] > │ v14 │
00:08:13 #31126 [verbose] > │ #endif │
00:08:13 #31127 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #31128 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #31129 [verbose] > │ let v15 : Async<bool> option = None │
00:08:13 #31130 [verbose] > │ let mutable _v15 = v15 │
00:08:13 #31131 [verbose] > │ async { │
00:08:13 #31132 [verbose] > │ let v16 : bool option = None │
00:08:13 #31133 [verbose] > │ let mutable _v16 = v16 │
00:08:13 #31134 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31135 [verbose] > │ let v17 : string = method5(v0) │
00:08:13 #31136 [verbose] > │ let v18 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:13 #31137 [verbose] > │ let v19 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v17 v18 │
00:08:13 #31138 [verbose] > │ let v20 : string = "String::from($0)" │
00:08:13 #31139 [verbose] > │ let v21 : std_string_String = Fable.Core.RustInterop.emitRustExpr v19 │
00:08:13 #31140 [verbose] > │ v20 │
00:08:13 #31141 [verbose] > │ let v22 : string = "std::path::PathBuf::from($0)" │
00:08:13 #31142 [verbose] > │ let v23 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v21 v22 │
00:08:13 #31143 [verbose] > │ let v24 : string = "$0.exists()" │
00:08:13 #31144 [verbose] > │ let v25 : bool = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:08:13 #31145 [verbose] > │ let v28 : bool = │
00:08:13 #31146 [verbose] > │ if v25 then │
00:08:13 #31147 [verbose] > │ let v26 : string = "$0.is_file()" │
00:08:13 #31148 [verbose] > │ let v27 : bool = Fable.Core.RustInterop.emitRustExpr v23 v26 │
00:08:13 #31149 [verbose] > │ v27 │
00:08:13 #31150 [verbose] > │ else │
00:08:13 #31151 [verbose] > │ false │
00:08:13 #31152 [verbose] > │ v28 │
00:08:13 #31153 [verbose] > │ #endif │
00:08:13 #31154 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #31155 [verbose] > │ let v29 : bool = null |> unbox<bool> │
00:08:13 #31156 [verbose] > │ v29 │
00:08:13 #31157 [verbose] > │ #endif │
00:08:13 #31158 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #31159 [verbose] > │ let v30 : bool = null |> unbox<bool> │
00:08:13 #31160 [verbose] > │ v30 │
00:08:13 #31161 [verbose] > │ #endif │
00:08:13 #31162 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #31163 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #31164 [verbose] > │ let v31 : (string -> bool) = System.IO.File.Exists │
00:08:13 #31165 [verbose] > │ let v32 : bool = v31 v0 │
00:08:13 #31166 [verbose] > │ v32 │
00:08:13 #31167 [verbose] > │ #endif │
00:08:13 #31168 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31169 [verbose] > │ let v33 : string = "fs" │
00:08:13 #31170 [verbose] > │ let v34 : IFsExistsSync = Fable.Core.JsInterop.importAll v33 │
00:08:13 #31171 [verbose] > │ let v35 : string = "v34.existsSync($0)" │
00:08:13 #31172 [verbose] > │ let v36 : bool = Fable.Core.JsInterop.emitJsExpr v0 v35 │
00:08:13 #31173 [verbose] > │ v36 │
00:08:13 #31174 [verbose] > │ #endif │
00:08:13 #31175 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #31176 [verbose] > │ let v37 : bool = Unchecked.defaultof<bool> │
00:08:13 #31177 [verbose] > │ v37 │
00:08:13 #31178 [verbose] > │ #endif │
00:08:13 #31179 [verbose] > │ |> fun x -> _v16 <- Some x │
00:08:13 #31180 [verbose] > │ let v38 : bool = _v16.Value │
00:08:13 #31181 [verbose] > │ let v39 : bool = v38 = false │
00:08:13 #31182 [verbose] > │ if v39 then │
00:08:13 #31183 [verbose] > │ return false │
00:08:13 #31184 [verbose] > │ (* │
00:08:13 #31185 [verbose] > │ () │
00:08:13 #31186 [verbose] > │ else │
00:08:13 #31187 [verbose] > │ *) else │
00:08:13 #31188 [verbose] > │ let v40 : Async<string> option = None │
00:08:13 #31189 [verbose] > │ let mutable _v40 = v40 │
00:08:13 #31190 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31191 [verbose] > │ let v41 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #31192 [verbose] > │ v41 │
00:08:13 #31193 [verbose] > │ #endif │
00:08:13 #31194 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #31195 [verbose] > │ let v42 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #31196 [verbose] > │ v42 │
00:08:13 #31197 [verbose] > │ #endif │
00:08:13 #31198 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #31199 [verbose] > │ let v43 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #31200 [verbose] > │ v43 │
00:08:13 #31201 [verbose] > │ #endif │
00:08:13 #31202 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #31203 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #31204 [verbose] > │ let v44 : (string -> System.Threading.Tasks.Task<string>) = │
00:08:13 #31205 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:08:13 #31206 [verbose] > │ let v45 : System.Threading.Tasks.Task<string> = v44 v0 │
00:08:13 #31207 [verbose] > │ let v46 : Async<string> option = None │
00:08:13 #31208 [verbose] > │ let mutable _v46 = v46 │
00:08:13 #31209 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31210 [verbose] > │ let v47 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #31211 [verbose] > │ v47 │
00:08:13 #31212 [verbose] > │ #endif │
00:08:13 #31213 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #31214 [verbose] > │ let v48 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #31215 [verbose] > │ v48 │
00:08:13 #31216 [verbose] > │ #endif │
00:08:13 #31217 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #31218 [verbose] > │ let v49 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #31219 [verbose] > │ v49 │
00:08:13 #31220 [verbose] > │ #endif │
00:08:13 #31221 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #31222 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #31223 [verbose] > │ let v50 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:08:13 #31224 [verbose] > │ Async.AwaitTask │
00:08:13 #31225 [verbose] > │ let v51 : Async<string> = v50 v45 │
00:08:13 #31226 [verbose] > │ v51 │
00:08:13 #31227 [verbose] > │ #endif │
00:08:13 #31228 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31229 [verbose] > │ let v52 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #31230 [verbose] > │ v52 │
00:08:13 #31231 [verbose] > │ #endif │
00:08:13 #31232 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:13 #31233 [verbose] > │ FABLE_COMPILER_DART │
00:08:13 #31234 [verbose] > │ let v53 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:13 #31235 [verbose] > │ v53 │
00:08:13 #31236 [verbose] > │ #endif │
00:08:13 #31237 [verbose] > │ |> fun x -> _v46 <- Some x │
00:08:13 #31238 [verbose] > │ let v54 : Async<string> = _v46.Value │
00:08:13 #31239 [verbose] > │ v54 │
00:08:13 #31240 [verbose] > │ #endif │
00:08:13 #31241 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31242 [verbose] > │ let v55 : Async<string> = null |> unbox<Async<string>> │
00:08:13 #31243 [verbose] > │ v55 │
00:08:13 #31244 [verbose] > │ #endif │
00:08:13 #31245 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:13 #31246 [verbose] > │ FABLE_COMPILER_DART │
00:08:13 #31247 [verbose] > │ let v56 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:13 #31248 [verbose] > │ v56 │
00:08:13 #31249 [verbose] > │ #endif │
00:08:13 #31250 [verbose] > │ |> fun x -> _v40 <- Some x │
00:08:13 #31251 [verbose] > │ let v57 : Async<string> = _v40.Value │
00:08:13 #31252 [verbose] > │ let! v57 = v57 │
00:08:13 #31253 [verbose] > │ let v58 : string = v57 │
00:08:13 #31254 [verbose] > │ let v59 : bool = v1 = v58 │
00:08:13 #31255 [verbose] > │ return v59 │
00:08:13 #31256 [verbose] > │ (* │
00:08:13 #31257 [verbose] > │ () │
00:08:13 #31258 [verbose] > │ *) │
00:08:13 #31259 [verbose] > │ } │
00:08:13 #31260 [verbose] > │ |> fun x -> _v15 <- Some x │
00:08:13 #31261 [verbose] > │ let v60 : Async<bool> = _v15 |> Option.get │
00:08:13 #31262 [verbose] > │ v60 │
00:08:13 #31263 [verbose] > │ #endif │
00:08:13 #31264 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31265 [verbose] > │ let v61 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #31266 [verbose] > │ v61 │
00:08:13 #31267 [verbose] > │ #endif │
00:08:13 #31268 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #31269 [verbose] > │ let v62 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:08:13 #31270 [verbose] > │ v62 │
00:08:13 #31271 [verbose] > │ #endif │
00:08:13 #31272 [verbose] > │ |> fun x -> _v11 <- Some x │
00:08:13 #31273 [verbose] > │ let v63 : Async<bool> = _v11.Value │
00:08:13 #31274 [verbose] > │ v63 │
00:08:13 #31275 [verbose] > │ #endif │
00:08:13 #31276 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31277 [verbose] > │ let v64 : Async<bool> = null |> unbox<Async<bool>> │
00:08:13 #31278 [verbose] > │ v64 │
00:08:13 #31279 [verbose] > │ #endif │
00:08:13 #31280 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #31281 [verbose] > │ let v65 : Async<bool> = Unchecked.defaultof<Async<bool>> │
00:08:13 #31282 [verbose] > │ v65 │
00:08:13 #31283 [verbose] > │ #endif │
00:08:13 #31284 [verbose] > │ |> fun x -> _v7 <- Some x │
00:08:13 #31285 [verbose] > │ let v66 : Async<bool> = _v7.Value │
00:08:13 #31286 [verbose] > │ let! v66 = v66 │
00:08:13 #31287 [verbose] > │ let v67 : bool = v66 │
00:08:13 #31288 [verbose] > │ let v68 : bool = v67 = false │
00:08:13 #31289 [verbose] > │ if v68 then │
00:08:13 #31290 [verbose] > │ let v69 : Async<unit> option = None │
00:08:13 #31291 [verbose] > │ let mutable _v69 = v69 │
00:08:13 #31292 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31293 [verbose] > │ let v70 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31294 [verbose] > │ v70 │
00:08:13 #31295 [verbose] > │ #endif │
00:08:13 #31296 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #31297 [verbose] > │ let v71 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31298 [verbose] > │ v71 │
00:08:13 #31299 [verbose] > │ #endif │
00:08:13 #31300 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #31301 [verbose] > │ let v72 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31302 [verbose] > │ v72 │
00:08:13 #31303 [verbose] > │ #endif │
00:08:13 #31304 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #31305 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #31306 [verbose] > │ let v73 : System.Threading.Tasks.Task = │
00:08:13 #31307 [verbose] > │ System.IO.File.WriteAllTextAsync (v0, v1) │
00:08:13 #31308 [verbose] > │ let v74 : Async<unit> option = None │
00:08:13 #31309 [verbose] > │ let mutable _v74 = v74 │
00:08:13 #31310 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31311 [verbose] > │ let v75 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31312 [verbose] > │ v75 │
00:08:13 #31313 [verbose] > │ #endif │
00:08:13 #31314 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #31315 [verbose] > │ let v76 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31316 [verbose] > │ v76 │
00:08:13 #31317 [verbose] > │ #endif │
00:08:13 #31318 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #31319 [verbose] > │ let v77 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31320 [verbose] > │ v77 │
00:08:13 #31321 [verbose] > │ #endif │
00:08:13 #31322 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #31323 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #31324 [verbose] > │ let v78 : (System.Threading.Tasks.Task -> Async<unit>) = │
00:08:13 #31325 [verbose] > │ Async.AwaitTask │
00:08:13 #31326 [verbose] > │ let v79 : Async<unit> = v78 v73 │
00:08:13 #31327 [verbose] > │ v79 │
00:08:13 #31328 [verbose] > │ #endif │
00:08:13 #31329 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31330 [verbose] > │ let v80 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31331 [verbose] > │ v80 │
00:08:13 #31332 [verbose] > │ #endif │
00:08:13 #31333 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:13 #31334 [verbose] > │ FABLE_COMPILER_DART │
00:08:13 #31335 [verbose] > │ let v81 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:13 #31336 [verbose] > │ v81 │
00:08:13 #31337 [verbose] > │ #endif │
00:08:13 #31338 [verbose] > │ |> fun x -> _v74 <- Some x │
00:08:13 #31339 [verbose] > │ let v82 : Async<unit> = _v74.Value │
00:08:13 #31340 [verbose] > │ v82 │
00:08:13 #31341 [verbose] > │ #endif │
00:08:13 #31342 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31343 [verbose] > │ let v83 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31344 [verbose] > │ v83 │
00:08:13 #31345 [verbose] > │ #endif │
00:08:13 #31346 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:13 #31347 [verbose] > │ FABLE_COMPILER_DART │
00:08:13 #31348 [verbose] > │ let v84 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:13 #31349 [verbose] > │ v84 │
00:08:13 #31350 [verbose] > │ #endif │
00:08:13 #31351 [verbose] > │ |> fun x -> _v69 <- Some x │
00:08:13 #31352 [verbose] > │ let v85 : Async<unit> = _v69.Value │
00:08:13 #31353 [verbose] > │ do! v85 │
00:08:13 #31354 [verbose] > │ () │
00:08:13 #31355 [verbose] > │ } │
00:08:13 #31356 [verbose] > │ |> fun x -> _v6 <- Some x │
00:08:13 #31357 [verbose] > │ let v86 : Async<unit> = _v6 |> Option.get │
00:08:13 #31358 [verbose] > │ v86 │
00:08:13 #31359 [verbose] > │ #endif │
00:08:13 #31360 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31361 [verbose] > │ let v87 : Async<unit> = null |> unbox<Async<unit>> │
00:08:13 #31362 [verbose] > │ v87 │
00:08:13 #31363 [verbose] > │ #endif │
00:08:13 #31364 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #31365 [verbose] > │ let v88 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:13 #31366 [verbose] > │ v88 │
00:08:13 #31367 [verbose] > │ #endif │
00:08:13 #31368 [verbose] > │ |> fun x -> _v2 <- Some x │
00:08:13 #31369 [verbose] > │ let v89 : Async<unit> = _v2.Value │
00:08:13 #31370 [verbose] > │ v89 │
00:08:13 #31371 [verbose] > │ and closure13 () (v0 : string) : (string -> Async<unit>) = │
00:08:13 #31372 [verbose] > │ closure14(v0) │
00:08:13 #31373 [verbose] > │ and closure16 () () : string = │
00:08:13 #31374 [verbose] > │ let v0 : string = "delete_file_async" │
00:08:13 #31375 [verbose] > │ v0 │
00:08:13 #31376 [verbose] > │ and method8 (v0 : int64 option) : int64 option = │
00:08:13 #31377 [verbose] > │ v0 │
00:08:13 #31378 [verbose] > │ and method9 (v0 : int64 option) : int64 option = │
00:08:13 #31379 [verbose] > │ v0 │
00:08:13 #31380 [verbose] > │ and closure17 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) = │
00:08:13 #31381 [verbose] > │ let v0 : Mut1 = {l0 = true} : Mut1 │
00:08:13 #31382 [verbose] > │ let v1 : Mut0 = {l0 = 0L} : Mut0 │
00:08:13 #31383 [verbose] > │ let v2 : US3 = US3_0 │
00:08:13 #31384 [verbose] > │ let v3 : Mut2 = {l0 = v2} : Mut2 │
00:08:13 #31385 [verbose] > │ let v4 : Mut1 = {l0 = false} : Mut1 │
00:08:13 #31386 [verbose] > │ let v5 : int64 option option = None │
00:08:13 #31387 [verbose] > │ let mutable _v5 = v5 │
00:08:13 #31388 [verbose] > │ #if INTERACTIVE || !FABLE_COMPILER │
00:08:13 #31389 [verbose] > │ let v6 : string option = None │
00:08:13 #31390 [verbose] > │ let mutable _v6 = v6 │
00:08:13 #31391 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31392 [verbose] > │ let v7 : string = null |> unbox<string> │
00:08:13 #31393 [verbose] > │ v7 │
00:08:13 #31394 [verbose] > │ #endif │
00:08:13 #31395 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:13 #31396 [verbose] > │ let v8 : string = null |> unbox<string> │
00:08:13 #31397 [verbose] > │ v8 │
00:08:13 #31398 [verbose] > │ #endif │
00:08:13 #31399 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:13 #31400 [verbose] > │ let v9 : string = null |> unbox<string> │
00:08:13 #31401 [verbose] > │ v9 │
00:08:13 #31402 [verbose] > │ #endif │
00:08:13 #31403 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:13 #31404 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:13 #31405 [verbose] > │ let v10 : string = │
00:08:13 #31406 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:13 #31407 [verbose] > │ v10 │
00:08:13 #31408 [verbose] > │ #endif │
00:08:13 #31409 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:13 #31410 [verbose] > │ let v11 : string = null |> unbox<string> │
00:08:13 #31411 [verbose] > │ v11 │
00:08:13 #31412 [verbose] > │ #endif │
00:08:13 #31413 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:13 #31414 [verbose] > │ let v12 : string = Unchecked.defaultof<string> │
00:08:13 #31415 [verbose] > │ v12 │
00:08:13 #31416 [verbose] > │ #endif │
00:08:13 #31417 [verbose] > │ |> fun x -> _v6 <- Some x │
00:08:13 #31418 [verbose] > │ let v13 : string = _v6.Value │
00:08:13 #31419 [verbose] > │ let v15 : bool = v13 = "Microsoft.DotNet.Interactive.App" │
00:08:13 #31420 [verbose] > │ let v16 : bool = v15 <> true │
00:08:13 #31421 [verbose] > │ let v22 : US4 = │
00:08:13 #31422 [verbose] > │ if v16 then │
00:08:13 #31423 [verbose] > │ let v17 : System.DateTime = System.DateTime.Now │
00:08:13 #31424 [verbose] > │ let v18 : (System.DateTime -> int64) = _.Ticks │
00:08:13 #31425 [verbose] > │ let v19 : int64 = v18 v17 │
00:08:13 #31426 [verbose] > │ US4_0(v19) │
00:08:13 #31427 [verbose] > │ else │
00:08:13 #31428 [verbose] > │ US4_1 │
00:08:13 #31429 [verbose] > │ let v27 : int64 option = │
00:08:13 #31430 [verbose] > │ match v22 with │
00:08:13 #31431 [verbose] > │ | US4_1 -> (* None *) │
00:08:13 #31432 [verbose] > │ let v25 : int64 option = None │
00:08:13 #31433 [verbose] > │ v25 │
00:08:13 #31434 [verbose] > │ | US4_0(v23) -> (* Some *) │
00:08:13 #31435 [verbose] > │ let v24 : int64 option = Some v23 │
00:08:13 #31436 [verbose] > │ v24 │
00:08:13 #31437 [verbose] > │ let v28 : int64 option = method8(v27) │
00:08:13 #31438 [verbose] > │ v28 │
00:08:13 #31439 [verbose] > │ #else │
00:08:13 #31440 [verbose] > │ let v29 : int64 option = None │
00:08:13 #31441 [verbose] > │ let v30 : int64 option = method9(v29) │
00:08:13 #31442 [verbose] > │ v30 │
00:08:13 #31443 [verbose] > │ #endif │
00:08:13 #31444 [verbose] > │ |> fun x -> _v5 <- Some x │
00:08:13 #31445 [verbose] > │ let v31 : int64 option = _v5.Value │
00:08:13 #31446 [verbose] > │ struct (v1, v4, v0, v3, v31) │
00:08:13 #31447 [verbose] > │ and closure19 () (v0 : int64) : US5 = │
00:08:13 #31448 [verbose] > │ US5_0(v0) │
00:08:13 #31449 [verbose] > │ and method10 () : (int64 -> US5) = │
00:08:13 #31450 [verbose] > │ closure19() │
00:08:13 #31451 [verbose] > │ and method11 () : string = │
00:08:13 #31452 [verbose] > │ let v0 : string = "" │
00:08:13 #31453 [verbose] > │ v0 │
00:08:13 #31454 [verbose] > │ and closure18 (v0 : US3, v1 : (unit -> string), v2 : (unit -> string)) () : │
00:08:13 #31455 [verbose] > │ string = │
00:08:13 #31456 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:08:13 #31457 [verbose] > │ closure17() │
00:08:13 #31458 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:08:13 #31459 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:08:13 #31460 [verbose] > │ option) = State.trace_state.Value │
00:08:13 #31461 [verbose] > │ let v9 : string option = None │
00:08:13 #31462 [verbose] > │ let mutable _v9 = v9 │
00:08:13 #31463 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:13 #31464 [verbose] > │ let v10 : (int64 -> US5) = method10() │
00:08:13 #31465 [verbose] > │ let v11 : US5 = US5_1 │
00:08:13 #31466 [verbose] > │ let v12 : US5 = v8 |> Option.map v10 |> Option.defaultValue v11 │
00:08:13 #31467 [verbose] > │ let v30 : System.DateTime = │
00:08:13 #31468 [verbose] > │ match v12 with │
00:08:13 #31469 [verbose] > │ | US5_1 -> (* None *) │
00:08:13 #31470 [verbose] > │ let v28 : System.DateTime = System.DateTime.Now │
00:08:13 #31471 [verbose] > │ v28 │
00:08:13 #31472 [verbose] > │ | US5_0(v13) -> (* Some *) │
00:08:13 #31473 [verbose] > │ let v14 : System.DateTime = System.DateTime.Now │
00:08:13 #31474 [verbose] > │ let v15 : (System.DateTime -> int64) = _.Ticks │
00:08:13 #31475 [verbose] > │ let v16 : int64 = v15 v14 │
00:08:13 #31476 [verbose] > │ let v17 : int64 = v16 - v13 │
00:08:13 #31477 [verbose] > │ let v18 : System.TimeSpan = System.TimeSpan v17 │
00:08:13 #31478 [verbose] > │ let v19 : (System.TimeSpan -> int32) = _.Hours │
00:08:13 #31479 [verbose] > │ let v20 : int32 = v19 v18 │
00:08:13 #31480 [verbose] > │ let v21 : (System.TimeSpan -> int32) = _.Minutes │
00:08:13 #31481 [verbose] > │ let v22 : int32 = v21 v18 │
00:08:13 #31482 [verbose] > │ let v23 : (System.TimeSpan -> int32) = _.Seconds │
00:08:13 #31483 [verbose] > │ let v24 : int32 = v23 v18 │
00:08:13 #31484 [verbose] > │ let v25 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:13 #31485 [verbose] > │ let v26 : int32 = v25 v18 │
00:08:13 #31486 [verbose] > │ let v27 : System.DateTime = System.DateTime (1, 1, 1, v20, v22, │
00:08:13 #31487 [verbose] > │ v24, v26) │
00:08:13 #31488 [verbose] > │ v27 │
00:08:13 #31489 [verbose] > │ let v31 : string = "hh:mm:ss" │
00:08:13 #31490 [verbose] > │ let v32 : string = v30.ToString v31 │
00:08:13 #31491 [verbose] > │ v32 │
00:08:13 #31492 [verbose] > │ #endif │
00:08:14 #31493 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31494 [verbose] > │ let v33 : string = method11() │
00:08:14 #31495 [verbose] > │ v33 │
00:08:14 #31496 [verbose] > │ #endif │
00:08:14 #31497 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31498 [verbose] > │ let v34 : string = method11() │
00:08:14 #31499 [verbose] > │ v34 │
00:08:14 #31500 [verbose] > │ #endif │
00:08:14 #31501 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31502 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31503 [verbose] > │ let v35 : (int64 -> US5) = method10() │
00:08:14 #31504 [verbose] > │ let v36 : US5 = US5_1 │
00:08:14 #31505 [verbose] > │ let v37 : US5 = v8 |> Option.map v35 |> Option.defaultValue v36 │
00:08:14 #31506 [verbose] > │ let v55 : System.DateTime = │
00:08:14 #31507 [verbose] > │ match v37 with │
00:08:14 #31508 [verbose] > │ | US5_1 -> (* None *) │
00:08:14 #31509 [verbose] > │ let v53 : System.DateTime = System.DateTime.Now │
00:08:14 #31510 [verbose] > │ v53 │
00:08:14 #31511 [verbose] > │ | US5_0(v38) -> (* Some *) │
00:08:14 #31512 [verbose] > │ let v39 : System.DateTime = System.DateTime.Now │
00:08:14 #31513 [verbose] > │ let v40 : (System.DateTime -> int64) = _.Ticks │
00:08:14 #31514 [verbose] > │ let v41 : int64 = v40 v39 │
00:08:14 #31515 [verbose] > │ let v42 : int64 = v41 - v38 │
00:08:14 #31516 [verbose] > │ let v43 : System.TimeSpan = System.TimeSpan v42 │
00:08:14 #31517 [verbose] > │ let v44 : (System.TimeSpan -> int32) = _.Hours │
00:08:14 #31518 [verbose] > │ let v45 : int32 = v44 v43 │
00:08:14 #31519 [verbose] > │ let v46 : (System.TimeSpan -> int32) = _.Minutes │
00:08:14 #31520 [verbose] > │ let v47 : int32 = v46 v43 │
00:08:14 #31521 [verbose] > │ let v48 : (System.TimeSpan -> int32) = _.Seconds │
00:08:14 #31522 [verbose] > │ let v49 : int32 = v48 v43 │
00:08:14 #31523 [verbose] > │ let v50 : (System.TimeSpan -> int32) = _.Milliseconds │
00:08:14 #31524 [verbose] > │ let v51 : int32 = v50 v43 │
00:08:14 #31525 [verbose] > │ let v52 : System.DateTime = System.DateTime (1, 1, 1, v45, v47, │
00:08:14 #31526 [verbose] > │ v49, v51) │
00:08:14 #31527 [verbose] > │ v52 │
00:08:14 #31528 [verbose] > │ let v56 : string = "HH:mm:ss" │
00:08:14 #31529 [verbose] > │ let v57 : string = v55.ToString v56 │
00:08:14 #31530 [verbose] > │ v57 │
00:08:14 #31531 [verbose] > │ #endif │
00:08:14 #31532 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31533 [verbose] > │ let v58 : string = method11() │
00:08:14 #31534 [verbose] > │ v58 │
00:08:14 #31535 [verbose] > │ #endif │
00:08:14 #31536 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #31537 [verbose] > │ let v59 : string = Unchecked.defaultof<string> │
00:08:14 #31538 [verbose] > │ v59 │
00:08:14 #31539 [verbose] > │ #endif │
00:08:14 #31540 [verbose] > │ |> fun x -> _v9 <- Some x │
00:08:14 #31541 [verbose] > │ let v60 : string = _v9.Value │
00:08:14 #31542 [verbose] > │ let v61 : int64 = v4.l0 │
00:08:14 #31543 [verbose] > │ let v71 : string = │
00:08:14 #31544 [verbose] > │ match v0 with │
00:08:14 #31545 [verbose] > │ | US3_4 -> (* Critical *) │
00:08:14 #31546 [verbose] > │ let v66 : string = "Critical" │
00:08:14 #31547 [verbose] > │ v66 │
00:08:14 #31548 [verbose] > │ | US3_1 -> (* Debug *) │
00:08:14 #31549 [verbose] > │ let v63 : string = "Debug" │
00:08:14 #31550 [verbose] > │ v63 │
00:08:14 #31551 [verbose] > │ | US3_2 -> (* Info *) │
00:08:14 #31552 [verbose] > │ let v64 : string = "Info" │
00:08:14 #31553 [verbose] > │ v64 │
00:08:14 #31554 [verbose] > │ | US3_0 -> (* Verbose *) │
00:08:14 #31555 [verbose] > │ let v62 : string = "Verbose" │
00:08:14 #31556 [verbose] > │ v62 │
00:08:14 #31557 [verbose] > │ | US3_3 -> (* Warning *) │
00:08:14 #31558 [verbose] > │ let v65 : string = "Warning" │
00:08:14 #31559 [verbose] > │ v65 │
00:08:14 #31560 [verbose] > │ let v72 : string = v71.ToLower () │
00:08:14 #31561 [verbose] > │ let v73 : string = $"{v60} #{v61} [{v72}] %s{v1 ()} / %s{v2 ()}" │
00:08:14 #31562 [verbose] > │ let v74 : (char []) = [||] │
00:08:14 #31563 [verbose] > │ let v75 : string = v73.TrimStart v74 │
00:08:14 #31564 [verbose] > │ let v76 : (char []) = [|' '; '/'|] │
00:08:14 #31565 [verbose] > │ let v77 : string = v75.TrimEnd v76 │
00:08:14 #31566 [verbose] > │ v77 │
00:08:14 #31567 [verbose] > │ and method7 (v0 : US3, v1 : (unit -> string), v2 : (unit -> string)) : unit │
00:08:14 #31568 [verbose] > │ = │
00:08:14 #31569 [verbose] > │ let v3 : (unit -> struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option)) = │
00:08:14 #31570 [verbose] > │ closure17() │
00:08:14 #31571 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:08:14 #31572 [verbose] > │ let struct (v4 : Mut0, v5 : Mut1, v6 : Mut1, v7 : Mut2, v8 : int64 │
00:08:14 #31573 [verbose] > │ option) = State.trace_state.Value │
00:08:14 #31574 [verbose] > │ if State.trace_state = None then State.trace_state <- v3 () |> Some │
00:08:14 #31575 [verbose] > │ let struct (v9 : Mut0, v10 : Mut1, v11 : Mut1, v12 : Mut2, v13 : int64 │
00:08:14 #31576 [verbose] > │ option) = State.trace_state.Value │
00:08:14 #31577 [verbose] > │ let v14 : US3 = v12.l0 │
00:08:14 #31578 [verbose] > │ let v15 : bool = v11.l0 │
00:08:14 #31579 [verbose] > │ let v17 : bool = │
00:08:14 #31580 [verbose] > │ if v15 then │
00:08:14 #31581 [verbose] > │ let v16 : bool = v0 >= v14 │
00:08:14 #31582 [verbose] > │ v16 │
00:08:14 #31583 [verbose] > │ else │
00:08:14 #31584 [verbose] > │ false │
00:08:14 #31585 [verbose] > │ if v17 then │
00:08:14 #31586 [verbose] > │ let v18 : int64 = v4.l0 │
00:08:14 #31587 [verbose] > │ let v19 : int64 = v18 + 1L │
00:08:14 #31588 [verbose] > │ v4.l0 <- v19 │
00:08:14 #31589 [verbose] > │ let v20 : (unit -> string) = closure18(v0, v1, v2) │
00:08:14 #31590 [verbose] > │ let v21 : string = $"%s{v20 ()}" │
00:08:14 #31591 [verbose] > │ let v22 : unit option = None │
00:08:14 #31592 [verbose] > │ let mutable _v22 = v22 │
00:08:14 #31593 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #31594 [verbose] > │ let v23 : string = @"println!(""{}"", $0)" │
00:08:14 #31595 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v23 │
00:08:14 #31596 [verbose] > │ () │
00:08:14 #31597 [verbose] > │ #endif │
00:08:14 #31598 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31599 [verbose] > │ let v24 : string = @"println!(""{}"", $0)" │
00:08:14 #31600 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v24 │
00:08:14 #31601 [verbose] > │ () │
00:08:14 #31602 [verbose] > │ #endif │
00:08:14 #31603 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31604 [verbose] > │ let v25 : string = @"println!(""{}"", $0)" │
00:08:14 #31605 [verbose] > │ Fable.Core.RustInterop.emitRustExpr v21 v25 │
00:08:14 #31606 [verbose] > │ () │
00:08:14 #31607 [verbose] > │ #endif │
00:08:14 #31608 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31609 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31610 [verbose] > │ System.Console.WriteLine v21 │
00:08:14 #31611 [verbose] > │ () │
00:08:14 #31612 [verbose] > │ #endif │
00:08:14 #31613 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31614 [verbose] > │ System.Console.WriteLine v21 │
00:08:14 #31615 [verbose] > │ () │
00:08:14 #31616 [verbose] > │ #endif │
00:08:14 #31617 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #31618 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #31619 [verbose] > │ Unchecked.defaultof<unit> │
00:08:14 #31620 [verbose] > │ () │
00:08:14 #31621 [verbose] > │ #endif │
00:08:14 #31622 [verbose] > │ |> fun x -> _v22 <- Some x │
00:08:14 #31623 [verbose] > │ _v22.Value │
00:08:14 #31624 [verbose] > │ () │
00:08:14 #31625 [verbose] > │ and method6 (v0 : string, v1 : int64) : Async<int64> = │
00:08:14 #31626 [verbose] > │ let v2 : Async<int64> option = None │
00:08:14 #31627 [verbose] > │ let mutable _v2 = v2 │
00:08:14 #31628 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #31629 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31630 [verbose] > │ v3 │
00:08:14 #31631 [verbose] > │ #endif │
00:08:14 #31632 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31633 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31634 [verbose] > │ v4 │
00:08:14 #31635 [verbose] > │ #endif │
00:08:14 #31636 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31637 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31638 [verbose] > │ v5 │
00:08:14 #31639 [verbose] > │ #endif │
00:08:14 #31640 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31641 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31642 [verbose] > │ let v6 : Async<int64> option = None │
00:08:14 #31643 [verbose] > │ let mutable _v6 = v6 │
00:08:14 #31644 [verbose] > │ async { │
00:08:14 #31645 [verbose] > │ try │
00:08:14 #31646 [verbose] > │ let v7 : unit option = None │
00:08:14 #31647 [verbose] > │ let mutable _v7 = v7 │
00:08:14 #31648 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #31649 [verbose] > │ null |> unbox<unit> │
00:08:14 #31650 [verbose] > │ () │
00:08:14 #31651 [verbose] > │ #endif │
00:08:14 #31652 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31653 [verbose] > │ null |> unbox<unit> │
00:08:14 #31654 [verbose] > │ () │
00:08:14 #31655 [verbose] > │ #endif │
00:08:14 #31656 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31657 [verbose] > │ null |> unbox<unit> │
00:08:14 #31658 [verbose] > │ () │
00:08:14 #31659 [verbose] > │ #endif │
00:08:14 #31660 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31661 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31662 [verbose] > │ let v8 : (string -> unit) = System.IO.File.Delete │
00:08:14 #31663 [verbose] > │ v8 v0 │
00:08:14 #31664 [verbose] > │ () │
00:08:14 #31665 [verbose] > │ #endif │
00:08:14 #31666 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31667 [verbose] > │ null |> unbox<unit> │
00:08:14 #31668 [verbose] > │ () │
00:08:14 #31669 [verbose] > │ #endif │
00:08:14 #31670 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #31671 [verbose] > │ Unchecked.defaultof<unit> │
00:08:14 #31672 [verbose] > │ () │
00:08:14 #31673 [verbose] > │ #endif │
00:08:14 #31674 [verbose] > │ |> fun x -> _v7 <- Some x │
00:08:14 #31675 [verbose] > │ _v7.Value │
00:08:14 #31676 [verbose] > │ return v1 │
00:08:14 #31677 [verbose] > │ with ex -> │
00:08:14 #31678 [verbose] > │ let v9 : exn = ex │
00:08:14 #31679 [verbose] > │ let v10 : int64 = v1 % 100L │
00:08:14 #31680 [verbose] > │ let v11 : bool = v10 = 0L │
00:08:14 #31681 [verbose] > │ if v11 then │
00:08:14 #31682 [verbose] > │ let v12 : string option = None │
00:08:14 #31683 [verbose] > │ let mutable _v12 = v12 │
00:08:14 #31684 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #31685 [verbose] > │ let v13 : string = $"%A{v9}" │
00:08:14 #31686 [verbose] > │ v13 │
00:08:14 #31687 [verbose] > │ #endif │
00:08:14 #31688 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31689 [verbose] > │ let v14 : string = $"%A{v9}" │
00:08:14 #31690 [verbose] > │ v14 │
00:08:14 #31691 [verbose] > │ #endif │
00:08:14 #31692 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31693 [verbose] > │ let v15 : string = $"%A{v9}" │
00:08:14 #31694 [verbose] > │ v15 │
00:08:14 #31695 [verbose] > │ #endif │
00:08:14 #31696 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31697 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31698 [verbose] > │ let v16 : string = $"{v9.GetType ()}: {v9.Message}" │
00:08:14 #31699 [verbose] > │ v16 │
00:08:14 #31700 [verbose] > │ #endif │
00:08:14 #31701 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31702 [verbose] > │ let v17 : string = $"%A{v9}" │
00:08:14 #31703 [verbose] > │ v17 │
00:08:14 #31704 [verbose] > │ #endif │
00:08:14 #31705 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #31706 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #31707 [verbose] > │ let v18 : string = Unchecked.defaultof<string> │
00:08:14 #31708 [verbose] > │ v18 │
00:08:14 #31709 [verbose] > │ #endif │
00:08:14 #31710 [verbose] > │ |> fun x -> _v12 <- Some x │
00:08:14 #31711 [verbose] > │ let v19 : string = _v12.Value │
00:08:14 #31712 [verbose] > │ let v20 : US3 = US3_3 │
00:08:14 #31713 [verbose] > │ let v21 : (unit -> string) = closure16() │
00:08:14 #31714 [verbose] > │ let v22 : (unit -> string) = closure3() │
00:08:14 #31715 [verbose] > │ method7(v20, v21, v22) │
00:08:14 #31716 [verbose] > │ let v23 : Async<unit> option = None │
00:08:14 #31717 [verbose] > │ let mutable _v23 = v23 │
00:08:14 #31718 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #31719 [verbose] > │ let v24 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #31720 [verbose] > │ v24 │
00:08:14 #31721 [verbose] > │ #endif │
00:08:14 #31722 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31723 [verbose] > │ let v25 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #31724 [verbose] > │ v25 │
00:08:14 #31725 [verbose] > │ #endif │
00:08:14 #31726 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31727 [verbose] > │ let v26 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #31728 [verbose] > │ v26 │
00:08:14 #31729 [verbose] > │ #endif │
00:08:14 #31730 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31731 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31732 [verbose] > │ let v27 : (int32 -> Async<unit>) = Async.Sleep │
00:08:14 #31733 [verbose] > │ let v28 : Async<unit> = v27 10 │
00:08:14 #31734 [verbose] > │ v28 │
00:08:14 #31735 [verbose] > │ #endif │
00:08:14 #31736 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31737 [verbose] > │ let v29 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #31738 [verbose] > │ v29 │
00:08:14 #31739 [verbose] > │ #endif │
00:08:14 #31740 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #31741 [verbose] > │ let v30 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 #31742 [verbose] > │ v30 │
00:08:14 #31743 [verbose] > │ #endif │
00:08:14 #31744 [verbose] > │ |> fun x -> _v23 <- Some x │
00:08:14 #31745 [verbose] > │ let v31 : Async<unit> = _v23.Value │
00:08:14 #31746 [verbose] > │ do! v31 │
00:08:14 #31747 [verbose] > │ let v32 : int64 = v1 + 1L │
00:08:14 #31748 [verbose] > │ let v33 : Async<int64> = method6(v0, v32) │
00:08:14 #31749 [verbose] > │ return! v33 │
00:08:14 #31750 [verbose] > │ (* │
00:08:14 #31751 [verbose] > │ let v34 : int64 = *) │
00:08:14 #31752 [verbose] > │ } │
00:08:14 #31753 [verbose] > │ |> fun x -> _v6 <- Some x │
00:08:14 #31754 [verbose] > │ let v35 : Async<int64> = _v6 |> Option.get │
00:08:14 #31755 [verbose] > │ v35 │
00:08:14 #31756 [verbose] > │ #endif │
00:08:14 #31757 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31758 [verbose] > │ let v36 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31759 [verbose] > │ v36 │
00:08:14 #31760 [verbose] > │ #endif │
00:08:14 #31761 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #31762 [verbose] > │ let v37 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:14 #31763 [verbose] > │ v37 │
00:08:14 #31764 [verbose] > │ #endif │
00:08:14 #31765 [verbose] > │ |> fun x -> _v2 <- Some x │
00:08:14 #31766 [verbose] > │ let v38 : Async<int64> = _v2.Value │
00:08:14 #31767 [verbose] > │ v38 │
00:08:14 #31768 [verbose] > │ and closure15 () (v0 : string) : Async<int64> = │
00:08:14 #31769 [verbose] > │ let v1 : Async<int64> option = None │
00:08:14 #31770 [verbose] > │ let mutable _v1 = v1 │
00:08:14 #31771 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #31772 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31773 [verbose] > │ v2 │
00:08:14 #31774 [verbose] > │ #endif │
00:08:14 #31775 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31776 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31777 [verbose] > │ v3 │
00:08:14 #31778 [verbose] > │ #endif │
00:08:14 #31779 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31780 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31781 [verbose] > │ v4 │
00:08:14 #31782 [verbose] > │ #endif │
00:08:14 #31783 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31784 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31785 [verbose] > │ let v5 : int64 = 0L │
00:08:14 #31786 [verbose] > │ let v6 : Async<int64> = method6(v0, v5) │
00:08:14 #31787 [verbose] > │ v6 │
00:08:14 #31788 [verbose] > │ #endif │
00:08:14 #31789 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31790 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31791 [verbose] > │ v7 │
00:08:14 #31792 [verbose] > │ #endif │
00:08:14 #31793 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #31794 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:14 #31795 [verbose] > │ v8 │
00:08:14 #31796 [verbose] > │ #endif │
00:08:14 #31797 [verbose] > │ |> fun x -> _v1 <- Some x │
00:08:14 #31798 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:08:14 #31799 [verbose] > │ v9 │
00:08:14 #31800 [verbose] > │ and closure22 () () : string = │
00:08:14 #31801 [verbose] > │ let v0 : string = "move_file_async" │
00:08:14 #31802 [verbose] > │ v0 │
00:08:14 #31803 [verbose] > │ and method13 (v0 : string, v1 : string, v2 : exn) : string = │
00:08:14 #31804 [verbose] > │ let v3 : string option = None │
00:08:14 #31805 [verbose] > │ let mutable _v3 = v3 │
00:08:14 #31806 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #31807 [verbose] > │ let v4 : string = $"%A{v2}" │
00:08:14 #31808 [verbose] > │ v4 │
00:08:14 #31809 [verbose] > │ #endif │
00:08:14 #31810 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31811 [verbose] > │ let v5 : string = $"%A{v2}" │
00:08:14 #31812 [verbose] > │ v5 │
00:08:14 #31813 [verbose] > │ #endif │
00:08:14 #31814 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31815 [verbose] > │ let v6 : string = $"%A{v2}" │
00:08:14 #31816 [verbose] > │ v6 │
00:08:14 #31817 [verbose] > │ #endif │
00:08:14 #31818 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31819 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31820 [verbose] > │ let v7 : string = $"{v2.GetType ()}: {v2.Message}" │
00:08:14 #31821 [verbose] > │ v7 │
00:08:14 #31822 [verbose] > │ #endif │
00:08:14 #31823 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31824 [verbose] > │ let v8 : string = $"%A{v2}" │
00:08:14 #31825 [verbose] > │ v8 │
00:08:14 #31826 [verbose] > │ #endif │
00:08:14 #31827 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #31828 [verbose] > │ let v9 : string = Unchecked.defaultof<string> │
00:08:14 #31829 [verbose] > │ v9 │
00:08:14 #31830 [verbose] > │ #endif │
00:08:14 #31831 [verbose] > │ |> fun x -> _v3 <- Some x │
00:08:14 #31832 [verbose] > │ let v10 : string = _v3.Value │
00:08:14 #31833 [verbose] > │ let v11 : (string -> string) = closure2() │
00:08:14 #31834 [verbose] > │ let v12 : (unit -> string) = closure3() │
00:08:14 #31835 [verbose] > │ let v13 : string = $"old_path: {v1 |> v11} / new_path: {v0 |> v11} / ex: │
00:08:14 #31836 [verbose] > │ {v10} / {v12 ()}" │
00:08:14 #31837 [verbose] > │ v13 │
00:08:14 #31838 [verbose] > │ and closure23 (v0 : string, v1 : string, v2 : exn) () : string = │
00:08:14 #31839 [verbose] > │ method13(v0, v1, v2) │
00:08:14 #31840 [verbose] > │ and method12 (v0 : string, v1 : string, v2 : int64) : Async<int64> = │
00:08:14 #31841 [verbose] > │ let v3 : Async<int64> option = None │
00:08:14 #31842 [verbose] > │ let mutable _v3 = v3 │
00:08:14 #31843 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #31844 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31845 [verbose] > │ v4 │
00:08:14 #31846 [verbose] > │ #endif │
00:08:14 #31847 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31848 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31849 [verbose] > │ v5 │
00:08:14 #31850 [verbose] > │ #endif │
00:08:14 #31851 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31852 [verbose] > │ let v6 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31853 [verbose] > │ v6 │
00:08:14 #31854 [verbose] > │ #endif │
00:08:14 #31855 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31856 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31857 [verbose] > │ let v7 : Async<int64> option = None │
00:08:14 #31858 [verbose] > │ let mutable _v7 = v7 │
00:08:14 #31859 [verbose] > │ async { │
00:08:14 #31860 [verbose] > │ try │
00:08:14 #31861 [verbose] > │ let v8 : unit option = None │
00:08:14 #31862 [verbose] > │ let mutable _v8 = v8 │
00:08:14 #31863 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #31864 [verbose] > │ null |> unbox<unit> │
00:08:14 #31865 [verbose] > │ () │
00:08:14 #31866 [verbose] > │ #endif │
00:08:14 #31867 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31868 [verbose] > │ null |> unbox<unit> │
00:08:14 #31869 [verbose] > │ () │
00:08:14 #31870 [verbose] > │ #endif │
00:08:14 #31871 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31872 [verbose] > │ null |> unbox<unit> │
00:08:14 #31873 [verbose] > │ () │
00:08:14 #31874 [verbose] > │ #endif │
00:08:14 #31875 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31876 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31877 [verbose] > │ System.IO.File.Move (v1, v0) │
00:08:14 #31878 [verbose] > │ () │
00:08:14 #31879 [verbose] > │ #endif │
00:08:14 #31880 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31881 [verbose] > │ null |> unbox<unit> │
00:08:14 #31882 [verbose] > │ () │
00:08:14 #31883 [verbose] > │ #endif │
00:08:14 #31884 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #31885 [verbose] > │ Unchecked.defaultof<unit> │
00:08:14 #31886 [verbose] > │ () │
00:08:14 #31887 [verbose] > │ #endif │
00:08:14 #31888 [verbose] > │ |> fun x -> _v8 <- Some x │
00:08:14 #31889 [verbose] > │ _v8.Value │
00:08:14 #31890 [verbose] > │ return v2 │
00:08:14 #31891 [verbose] > │ with ex -> │
00:08:14 #31892 [verbose] > │ let v9 : exn = ex │
00:08:14 #31893 [verbose] > │ let v10 : int64 = v2 % 100L │
00:08:14 #31894 [verbose] > │ let v11 : bool = v10 = 0L │
00:08:14 #31895 [verbose] > │ if v11 then │
00:08:14 #31896 [verbose] > │ let v12 : US3 = US3_3 │
00:08:14 #31897 [verbose] > │ let v13 : (unit -> string) = closure22() │
00:08:14 #31898 [verbose] > │ let v14 : (unit -> string) = closure23(v0, v1, v9) │
00:08:14 #31899 [verbose] > │ method7(v12, v13, v14) │
00:08:14 #31900 [verbose] > │ let v15 : Async<unit> option = None │
00:08:14 #31901 [verbose] > │ let mutable _v15 = v15 │
00:08:14 #31902 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #31903 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #31904 [verbose] > │ v16 │
00:08:14 #31905 [verbose] > │ #endif │
00:08:14 #31906 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31907 [verbose] > │ let v17 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #31908 [verbose] > │ v17 │
00:08:14 #31909 [verbose] > │ #endif │
00:08:14 #31910 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31911 [verbose] > │ let v18 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #31912 [verbose] > │ v18 │
00:08:14 #31913 [verbose] > │ #endif │
00:08:14 #31914 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31915 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31916 [verbose] > │ let v19 : (int32 -> Async<unit>) = Async.Sleep │
00:08:14 #31917 [verbose] > │ let v20 : Async<unit> = v19 10 │
00:08:14 #31918 [verbose] > │ v20 │
00:08:14 #31919 [verbose] > │ #endif │
00:08:14 #31920 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31921 [verbose] > │ let v21 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #31922 [verbose] > │ v21 │
00:08:14 #31923 [verbose] > │ #endif │
00:08:14 #31924 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #31925 [verbose] > │ let v22 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 #31926 [verbose] > │ v22 │
00:08:14 #31927 [verbose] > │ #endif │
00:08:14 #31928 [verbose] > │ |> fun x -> _v15 <- Some x │
00:08:14 #31929 [verbose] > │ let v23 : Async<unit> = _v15.Value │
00:08:14 #31930 [verbose] > │ do! v23 │
00:08:14 #31931 [verbose] > │ let v24 : int64 = v2 + 1L │
00:08:14 #31932 [verbose] > │ let v25 : Async<int64> = method12(v0, v1, v24) │
00:08:14 #31933 [verbose] > │ return! v25 │
00:08:14 #31934 [verbose] > │ (* │
00:08:14 #31935 [verbose] > │ *) │
00:08:14 #31936 [verbose] > │ } │
00:08:14 #31937 [verbose] > │ |> fun x -> _v7 <- Some x │
00:08:14 #31938 [verbose] > │ let v26 : Async<int64> = _v7 |> Option.get │
00:08:14 #31939 [verbose] > │ v26 │
00:08:14 #31940 [verbose] > │ #endif │
00:08:14 #31941 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31942 [verbose] > │ let v27 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31943 [verbose] > │ v27 │
00:08:14 #31944 [verbose] > │ #endif │
00:08:14 #31945 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #31946 [verbose] > │ let v28 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:14 #31947 [verbose] > │ v28 │
00:08:14 #31948 [verbose] > │ #endif │
00:08:14 #31949 [verbose] > │ |> fun x -> _v3 <- Some x │
00:08:14 #31950 [verbose] > │ let v29 : Async<int64> = _v3.Value │
00:08:14 #31951 [verbose] > │ v29 │
00:08:14 #31952 [verbose] > │ and closure21 (v0 : string) (v1 : string) : Async<int64> = │
00:08:14 #31953 [verbose] > │ let v2 : Async<int64> option = None │
00:08:14 #31954 [verbose] > │ let mutable _v2 = v2 │
00:08:14 #31955 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #31956 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31957 [verbose] > │ v3 │
00:08:14 #31958 [verbose] > │ #endif │
00:08:14 #31959 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #31960 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31961 [verbose] > │ v4 │
00:08:14 #31962 [verbose] > │ #endif │
00:08:14 #31963 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #31964 [verbose] > │ let v5 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31965 [verbose] > │ v5 │
00:08:14 #31966 [verbose] > │ #endif │
00:08:14 #31967 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #31968 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #31969 [verbose] > │ let v6 : int64 = 0L │
00:08:14 #31970 [verbose] > │ let v7 : Async<int64> = method12(v0, v1, v6) │
00:08:14 #31971 [verbose] > │ v7 │
00:08:14 #31972 [verbose] > │ #endif │
00:08:14 #31973 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #31974 [verbose] > │ let v8 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #31975 [verbose] > │ v8 │
00:08:14 #31976 [verbose] > │ #endif │
00:08:14 #31977 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #31978 [verbose] > │ let v9 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:14 #31979 [verbose] > │ v9 │
00:08:14 #31980 [verbose] > │ #endif │
00:08:14 #31981 [verbose] > │ |> fun x -> _v2 <- Some x │
00:08:14 #31982 [verbose] > │ let v10 : Async<int64> = _v2.Value │
00:08:14 #31983 [verbose] > │ v10 │
00:08:14 #31984 [verbose] > │ and closure20 () (v0 : string) : (string -> Async<int64>) = │
00:08:14 #31985 [verbose] > │ closure21(v0) │
00:08:14 #31986 [verbose] > │ and closure25 () (v0 : int64) : US6 = │
00:08:14 #31987 [verbose] > │ US6_0(v0) │
00:08:14 #31988 [verbose] > │ and closure26 () (v0 : exn) : US6 = │
00:08:14 #31989 [verbose] > │ US6_1(v0) │
00:08:14 #31990 [verbose] > │ and closure27 () () : string = │
00:08:14 #31991 [verbose] > │ let v0 : string = "run_with_timeout_async" │
00:08:14 #31992 [verbose] > │ v0 │
00:08:14 #31993 [verbose] > │ and closure28 () () : string = │
00:08:14 #31994 [verbose] > │ let v0 : (unit -> string) = closure3() │
00:08:14 #31995 [verbose] > │ let v1 : string = $"timeout: {1000} / {v0 ()}" │
00:08:14 #31996 [verbose] > │ v1 │
00:08:14 #31997 [verbose] > │ and closure29 (v0 : string) () : string = │
00:08:14 #31998 [verbose] > │ let v1 : string = $"run_with_timeout_async** / ex: {v0}" │
00:08:14 #31999 [verbose] > │ v1 │
00:08:14 #32000 [verbose] > │ and closure30 () () : string = │
00:08:14 #32001 [verbose] > │ let v0 : string = "read_all_text_retry_async" │
00:08:14 #32002 [verbose] > │ v0 │
00:08:14 #32003 [verbose] > │ and method15 (v0 : int64, v1 : string) : string = │
00:08:14 #32004 [verbose] > │ let v2 : (unit -> string) = closure3() │
00:08:14 #32005 [verbose] > │ let v3 : string = $"retry: {v0} / ex: {v1} / {v2 ()}" │
00:08:14 #32006 [verbose] > │ v3 │
00:08:14 #32007 [verbose] > │ and closure31 (v0 : int64, v1 : string) () : string = │
00:08:14 #32008 [verbose] > │ method15(v0, v1) │
00:08:14 #32009 [verbose] > │ and method14 (v0 : string, v1 : int64) : Async<string option> = │
00:08:14 #32010 [verbose] > │ let v2 : Async<string option> option = None │
00:08:14 #32011 [verbose] > │ let mutable _v2 = v2 │
00:08:14 #32012 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32013 [verbose] > │ let v3 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32014 [verbose] > │ v3 │
00:08:14 #32015 [verbose] > │ #endif │
00:08:14 #32016 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32017 [verbose] > │ let v4 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32018 [verbose] > │ v4 │
00:08:14 #32019 [verbose] > │ #endif │
00:08:14 #32020 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32021 [verbose] > │ let v5 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32022 [verbose] > │ v5 │
00:08:14 #32023 [verbose] > │ #endif │
00:08:14 #32024 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32025 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32026 [verbose] > │ let v6 : Async<string option> option = None │
00:08:14 #32027 [verbose] > │ let mutable _v6 = v6 │
00:08:14 #32028 [verbose] > │ async { │
00:08:14 #32029 [verbose] > │ try │
00:08:14 #32030 [verbose] > │ let v7 : bool = v1 > 0L │
00:08:14 #32031 [verbose] > │ if v7 then │
00:08:14 #32032 [verbose] > │ let v8 : Async<int64> option = None │
00:08:14 #32033 [verbose] > │ let mutable _v8 = v8 │
00:08:14 #32034 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32035 [verbose] > │ let v9 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #32036 [verbose] > │ v9 │
00:08:14 #32037 [verbose] > │ #endif │
00:08:14 #32038 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32039 [verbose] > │ let v10 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #32040 [verbose] > │ v10 │
00:08:14 #32041 [verbose] > │ #endif │
00:08:14 #32042 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32043 [verbose] > │ let v11 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #32044 [verbose] > │ v11 │
00:08:14 #32045 [verbose] > │ #endif │
00:08:14 #32046 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32047 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32048 [verbose] > │ let v12 : int64 = 0L │
00:08:14 #32049 [verbose] > │ let v13 : Async<int64> = method4(v0, v12) │
00:08:14 #32050 [verbose] > │ v13 │
00:08:14 #32051 [verbose] > │ #endif │
00:08:14 #32052 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32053 [verbose] > │ let v14 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #32054 [verbose] > │ v14 │
00:08:14 #32055 [verbose] > │ #endif │
00:08:14 #32056 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32057 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32058 [verbose] > │ let v15 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:14 #32059 [verbose] > │ v15 │
00:08:14 #32060 [verbose] > │ #endif │
00:08:14 #32061 [verbose] > │ |> fun x -> _v8 <- Some x │
00:08:14 #32062 [verbose] > │ let v16 : Async<int64> = _v8.Value │
00:08:14 #32063 [verbose] > │ let v17 : Async<US5> option = None │
00:08:14 #32064 [verbose] > │ let mutable _v17 = v17 │
00:08:14 #32065 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32066 [verbose] > │ let v18 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32067 [verbose] > │ v18 │
00:08:14 #32068 [verbose] > │ #endif │
00:08:14 #32069 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32070 [verbose] > │ let v19 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32071 [verbose] > │ v19 │
00:08:14 #32072 [verbose] > │ #endif │
00:08:14 #32073 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32074 [verbose] > │ let v20 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32075 [verbose] > │ v20 │
00:08:14 #32076 [verbose] > │ #endif │
00:08:14 #32077 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32078 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32079 [verbose] > │ let v21 : Async<US5> option = None │
00:08:14 #32080 [verbose] > │ let mutable _v21 = v21 │
00:08:14 #32081 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32082 [verbose] > │ let v22 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32083 [verbose] > │ v22 │
00:08:14 #32084 [verbose] > │ #endif │
00:08:14 #32085 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32086 [verbose] > │ let v23 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32087 [verbose] > │ v23 │
00:08:14 #32088 [verbose] > │ #endif │
00:08:14 #32089 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32090 [verbose] > │ let v24 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32091 [verbose] > │ v24 │
00:08:14 #32092 [verbose] > │ #endif │
00:08:14 #32093 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32094 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32095 [verbose] > │ let v25 : Async<US5> option = None │
00:08:14 #32096 [verbose] > │ let mutable _v25 = v25 │
00:08:14 #32097 [verbose] > │ async { │
00:08:14 #32098 [verbose] > │ let v26 : Async<Async<int64>> option = None │
00:08:14 #32099 [verbose] > │ let mutable _v26 = v26 │
00:08:14 #32100 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32101 [verbose] > │ let v27 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:14 #32102 [verbose] > │ v27 │
00:08:14 #32103 [verbose] > │ #endif │
00:08:14 #32104 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32105 [verbose] > │ let v28 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:14 #32106 [verbose] > │ v28 │
00:08:14 #32107 [verbose] > │ #endif │
00:08:14 #32108 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32109 [verbose] > │ let v29 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:14 #32110 [verbose] > │ v29 │
00:08:14 #32111 [verbose] > │ #endif │
00:08:14 #32112 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32113 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32114 [verbose] > │ let v30 : Async<Async<int64>> = Async.StartChild (v16, 1000) │
00:08:14 #32115 [verbose] > │ v30 │
00:08:14 #32116 [verbose] > │ #endif │
00:08:14 #32117 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32118 [verbose] > │ let v31 : Async<Async<int64>> = null |> unbox<Async<Async<int64>>> │
00:08:14 #32119 [verbose] > │ v31 │
00:08:14 #32120 [verbose] > │ #endif │
00:08:14 #32121 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32122 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32123 [verbose] > │ let v32 : Async<Async<int64>> = │
00:08:14 #32124 [verbose] > │ Unchecked.defaultof<Async<Async<int64>>> │
00:08:14 #32125 [verbose] > │ v32 │
00:08:14 #32126 [verbose] > │ #endif │
00:08:14 #32127 [verbose] > │ |> fun x -> _v26 <- Some x │
00:08:14 #32128 [verbose] > │ let v33 : Async<Async<int64>> = _v26.Value │
00:08:14 #32129 [verbose] > │ let! v33 = v33 │
00:08:14 #32130 [verbose] > │ let v34 : Async<int64> = v33 │
00:08:14 #32131 [verbose] > │ let v35 : Async<Choice<int64, exn>> option = None │
00:08:14 #32132 [verbose] > │ let mutable _v35 = v35 │
00:08:14 #32133 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32134 [verbose] > │ let v36 : Async<Choice<int64, exn>> = null |> │
00:08:14 #32135 [verbose] > │ unbox<Async<Choice<int64, exn>>> │
00:08:14 #32136 [verbose] > │ v36 │
00:08:14 #32137 [verbose] > │ #endif │
00:08:14 #32138 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32139 [verbose] > │ let v37 : Async<Choice<int64, exn>> = null |> │
00:08:14 #32140 [verbose] > │ unbox<Async<Choice<int64, exn>>> │
00:08:14 #32141 [verbose] > │ v37 │
00:08:14 #32142 [verbose] > │ #endif │
00:08:14 #32143 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32144 [verbose] > │ let v38 : Async<Choice<int64, exn>> = null |> │
00:08:14 #32145 [verbose] > │ unbox<Async<Choice<int64, exn>>> │
00:08:14 #32146 [verbose] > │ v38 │
00:08:14 #32147 [verbose] > │ #endif │
00:08:14 #32148 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32149 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32150 [verbose] > │ let v39 : (Async<int64> -> Async<Choice<int64, exn>>) = Async.Catch │
00:08:14 #32151 [verbose] > │ let v40 : Async<Choice<int64, exn>> = v39 v34 │
00:08:14 #32152 [verbose] > │ v40 │
00:08:14 #32153 [verbose] > │ #endif │
00:08:14 #32154 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32155 [verbose] > │ let v41 : Async<Choice<int64, exn>> = null |> │
00:08:14 #32156 [verbose] > │ unbox<Async<Choice<int64, exn>>> │
00:08:14 #32157 [verbose] > │ v41 │
00:08:14 #32158 [verbose] > │ #endif │
00:08:14 #32159 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32160 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32161 [verbose] > │ let v42 : Async<Choice<int64, exn>> = │
00:08:14 #32162 [verbose] > │ Unchecked.defaultof<Async<Choice<int64, exn>>> │
00:08:14 #32163 [verbose] > │ v42 │
00:08:14 #32164 [verbose] > │ #endif │
00:08:14 #32165 [verbose] > │ |> fun x -> _v35 <- Some x │
00:08:14 #32166 [verbose] > │ let v43 : Async<Choice<int64, exn>> = _v35.Value │
00:08:14 #32167 [verbose] > │ let v44 : Async<US6> option = None │
00:08:14 #32168 [verbose] > │ let mutable _v44 = v44 │
00:08:14 #32169 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32170 [verbose] > │ let v45 : Async<US6> = null |> unbox<Async<US6>> │
00:08:14 #32171 [verbose] > │ v45 │
00:08:14 #32172 [verbose] > │ #endif │
00:08:14 #32173 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32174 [verbose] > │ let v46 : Async<US6> = null |> unbox<Async<US6>> │
00:08:14 #32175 [verbose] > │ v46 │
00:08:14 #32176 [verbose] > │ #endif │
00:08:14 #32177 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32178 [verbose] > │ let v47 : Async<US6> = null |> unbox<Async<US6>> │
00:08:14 #32179 [verbose] > │ v47 │
00:08:14 #32180 [verbose] > │ #endif │
00:08:14 #32181 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32182 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32183 [verbose] > │ let v48 : Async<US6> option = None │
00:08:14 #32184 [verbose] > │ let mutable _v48 = v48 │
00:08:14 #32185 [verbose] > │ async { │
00:08:14 #32186 [verbose] > │ let! v43 = v43 │
00:08:14 #32187 [verbose] > │ let v49 : Choice<int64, exn> = v43 │
00:08:14 #32188 [verbose] > │ let v50 : US6 option = None │
00:08:14 #32189 [verbose] > │ let mutable _v50 = v50 │
00:08:14 #32190 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32191 [verbose] > │ let v51 : US6 = null |> unbox<US6> │
00:08:14 #32192 [verbose] > │ v51 │
00:08:14 #32193 [verbose] > │ #endif │
00:08:14 #32194 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32195 [verbose] > │ let v52 : US6 = null |> unbox<US6> │
00:08:14 #32196 [verbose] > │ v52 │
00:08:14 #32197 [verbose] > │ #endif │
00:08:14 #32198 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32199 [verbose] > │ let v53 : US6 = null |> unbox<US6> │
00:08:14 #32200 [verbose] > │ v53 │
00:08:14 #32201 [verbose] > │ #endif │
00:08:14 #32202 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32203 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32204 [verbose] > │ let v54 : (int64 -> US6) = closure25() │
00:08:14 #32205 [verbose] > │ let v55 : (exn -> US6) = closure26() │
00:08:14 #32206 [verbose] > │ let v56 : US6 = match v49 with Choice1Of2 x -> v54 x | Choice2Of2 x │
00:08:14 #32207 [verbose] > │ -> v55 x │
00:08:14 #32208 [verbose] > │ v56 │
00:08:14 #32209 [verbose] > │ #endif │
00:08:14 #32210 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32211 [verbose] > │ let v57 : US6 = null |> unbox<US6> │
00:08:14 #32212 [verbose] > │ v57 │
00:08:14 #32213 [verbose] > │ #endif │
00:08:14 #32214 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32215 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32216 [verbose] > │ let v58 : US6 = Unchecked.defaultof<US6> │
00:08:14 #32217 [verbose] > │ v58 │
00:08:14 #32218 [verbose] > │ #endif │
00:08:14 #32219 [verbose] > │ |> fun x -> _v50 <- Some x │
00:08:14 #32220 [verbose] > │ let v59 : US6 = _v50.Value │
00:08:14 #32221 [verbose] > │ return v59 │
00:08:14 #32222 [verbose] > │ } │
00:08:14 #32223 [verbose] > │ |> fun x -> _v48 <- Some x │
00:08:14 #32224 [verbose] > │ let v60 : Async<US6> = _v48 |> Option.get │
00:08:14 #32225 [verbose] > │ v60 │
00:08:14 #32226 [verbose] > │ #endif │
00:08:14 #32227 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32228 [verbose] > │ let v61 : Async<US6> = null |> unbox<Async<US6>> │
00:08:14 #32229 [verbose] > │ v61 │
00:08:14 #32230 [verbose] > │ #endif │
00:08:14 #32231 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32232 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32233 [verbose] > │ let v62 : Async<US6> = Unchecked.defaultof<Async<US6>> │
00:08:14 #32234 [verbose] > │ v62 │
00:08:14 #32235 [verbose] > │ #endif │
00:08:14 #32236 [verbose] > │ |> fun x -> _v44 <- Some x │
00:08:14 #32237 [verbose] > │ let v63 : Async<US6> = _v44.Value │
00:08:14 #32238 [verbose] > │ let v64 : Async<US7> option = None │
00:08:14 #32239 [verbose] > │ let mutable _v64 = v64 │
00:08:14 #32240 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32241 [verbose] > │ let v65 : Async<US7> = null |> unbox<Async<US7>> │
00:08:14 #32242 [verbose] > │ v65 │
00:08:14 #32243 [verbose] > │ #endif │
00:08:14 #32244 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32245 [verbose] > │ let v66 : Async<US7> = null |> unbox<Async<US7>> │
00:08:14 #32246 [verbose] > │ v66 │
00:08:14 #32247 [verbose] > │ #endif │
00:08:14 #32248 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32249 [verbose] > │ let v67 : Async<US7> = null |> unbox<Async<US7>> │
00:08:14 #32250 [verbose] > │ v67 │
00:08:14 #32251 [verbose] > │ #endif │
00:08:14 #32252 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32253 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32254 [verbose] > │ let v68 : Async<US7> option = None │
00:08:14 #32255 [verbose] > │ let mutable _v68 = v68 │
00:08:14 #32256 [verbose] > │ async { │
00:08:14 #32257 [verbose] > │ let! v63 = v63 │
00:08:14 #32258 [verbose] > │ let v69 : US6 = v63 │
00:08:14 #32259 [verbose] > │ let v75 : US7 = │
00:08:14 #32260 [verbose] > │ match v69 with │
00:08:14 #32261 [verbose] > │ | US6_0(v70) -> (* Choice1Of2 *) │
00:08:14 #32262 [verbose] > │ US7_0(v70) │
00:08:14 #32263 [verbose] > │ | US6_1(v72) -> (* Choice2Of2 *) │
00:08:14 #32264 [verbose] > │ US7_1(v72) │
00:08:14 #32265 [verbose] > │ return v75 │
00:08:14 #32266 [verbose] > │ } │
00:08:14 #32267 [verbose] > │ |> fun x -> _v68 <- Some x │
00:08:14 #32268 [verbose] > │ let v76 : Async<US7> = _v68 |> Option.get │
00:08:14 #32269 [verbose] > │ v76 │
00:08:14 #32270 [verbose] > │ #endif │
00:08:14 #32271 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32272 [verbose] > │ let v77 : Async<US7> = null |> unbox<Async<US7>> │
00:08:14 #32273 [verbose] > │ v77 │
00:08:14 #32274 [verbose] > │ #endif │
00:08:14 #32275 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32276 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32277 [verbose] > │ let v78 : Async<US7> = Unchecked.defaultof<Async<US7>> │
00:08:14 #32278 [verbose] > │ v78 │
00:08:14 #32279 [verbose] > │ #endif │
00:08:14 #32280 [verbose] > │ |> fun x -> _v64 <- Some x │
00:08:14 #32281 [verbose] > │ let v79 : Async<US7> = _v64.Value │
00:08:14 #32282 [verbose] > │ let v80 : Async<US5> option = None │
00:08:14 #32283 [verbose] > │ let mutable _v80 = v80 │
00:08:14 #32284 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32285 [verbose] > │ let v81 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32286 [verbose] > │ v81 │
00:08:14 #32287 [verbose] > │ #endif │
00:08:14 #32288 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32289 [verbose] > │ let v82 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32290 [verbose] > │ v82 │
00:08:14 #32291 [verbose] > │ #endif │
00:08:14 #32292 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32293 [verbose] > │ let v83 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32294 [verbose] > │ v83 │
00:08:14 #32295 [verbose] > │ #endif │
00:08:14 #32296 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32297 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32298 [verbose] > │ let v84 : Async<US5> option = None │
00:08:14 #32299 [verbose] > │ let mutable _v84 = v84 │
00:08:14 #32300 [verbose] > │ async { │
00:08:14 #32301 [verbose] > │ let! v79 = v79 │
00:08:14 #32302 [verbose] > │ let v85 : US7 = v79 │
00:08:14 #32303 [verbose] > │ let v110 : US5 = │
00:08:14 #32304 [verbose] > │ match v85 with │
00:08:14 #32305 [verbose] > │ | US7_1(v88) -> (* Error *) │
00:08:14 #32306 [verbose] > │ let v89 : string = $"%A{v88}" │
00:08:14 #32307 [verbose] > │ let v90 : string = "System.TimeoutException" │
00:08:14 #32308 [verbose] > │ let v91 : bool = v89.Contains v90 │
00:08:14 #32309 [verbose] > │ if v91 then │
00:08:14 #32310 [verbose] > │ let v92 : US3 = US3_1 │
00:08:14 #32311 [verbose] > │ let v93 : (unit -> string) = closure27() │
00:08:14 #32312 [verbose] > │ let v94 : (unit -> string) = closure28() │
00:08:14 #32313 [verbose] > │ method7(v92, v93, v94) │
00:08:14 #32314 [verbose] > │ US5_1 │
00:08:14 #32315 [verbose] > │ else │
00:08:14 #32316 [verbose] > │ let v96 : string option = None │
00:08:14 #32317 [verbose] > │ let mutable _v96 = v96 │
00:08:14 #32318 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32319 [verbose] > │ let v97 : string = $"%A{v88}" │
00:08:14 #32320 [verbose] > │ v97 │
00:08:14 #32321 [verbose] > │ #endif │
00:08:14 #32322 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32323 [verbose] > │ let v98 : string = $"%A{v88}" │
00:08:14 #32324 [verbose] > │ v98 │
00:08:14 #32325 [verbose] > │ #endif │
00:08:14 #32326 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32327 [verbose] > │ let v99 : string = $"%A{v88}" │
00:08:14 #32328 [verbose] > │ v99 │
00:08:14 #32329 [verbose] > │ #endif │
00:08:14 #32330 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32331 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32332 [verbose] > │ let v100 : string = $"{v88.GetType ()}: {v88.Message}" │
00:08:14 #32333 [verbose] > │ v100 │
00:08:14 #32334 [verbose] > │ #endif │
00:08:14 #32335 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32336 [verbose] > │ let v101 : string = $"%A{v88}" │
00:08:14 #32337 [verbose] > │ v101 │
00:08:14 #32338 [verbose] > │ #endif │
00:08:14 #32339 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32340 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32341 [verbose] > │ let v102 : string = Unchecked.defaultof<string> │
00:08:14 #32342 [verbose] > │ v102 │
00:08:14 #32343 [verbose] > │ #endif │
00:08:14 #32344 [verbose] > │ |> fun x -> _v96 <- Some x │
00:08:14 #32345 [verbose] > │ let v103 : string = _v96.Value │
00:08:14 #32346 [verbose] > │ let v104 : US3 = US3_4 │
00:08:14 #32347 [verbose] > │ let v105 : (unit -> string) = closure29(v103) │
00:08:14 #32348 [verbose] > │ let v106 : (unit -> string) = closure28() │
00:08:14 #32349 [verbose] > │ method7(v104, v105, v106) │
00:08:14 #32350 [verbose] > │ US5_1 │
00:08:14 #32351 [verbose] > │ | US7_0(v86) -> (* Ok *) │
00:08:14 #32352 [verbose] > │ US5_0(v86) │
00:08:14 #32353 [verbose] > │ return v110 │
00:08:14 #32354 [verbose] > │ } │
00:08:14 #32355 [verbose] > │ |> fun x -> _v84 <- Some x │
00:08:14 #32356 [verbose] > │ let v111 : Async<US5> = _v84 |> Option.get │
00:08:14 #32357 [verbose] > │ v111 │
00:08:14 #32358 [verbose] > │ #endif │
00:08:14 #32359 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32360 [verbose] > │ let v112 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32361 [verbose] > │ v112 │
00:08:14 #32362 [verbose] > │ #endif │
00:08:14 #32363 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32364 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32365 [verbose] > │ let v113 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:08:14 #32366 [verbose] > │ v113 │
00:08:14 #32367 [verbose] > │ #endif │
00:08:14 #32368 [verbose] > │ |> fun x -> _v80 <- Some x │
00:08:14 #32369 [verbose] > │ let v114 : Async<US5> = _v80.Value │
00:08:14 #32370 [verbose] > │ return! v114 │
00:08:14 #32371 [verbose] > │ } │
00:08:14 #32372 [verbose] > │ |> fun x -> _v25 <- Some x │
00:08:14 #32373 [verbose] > │ let v115 : Async<US5> = _v25 |> Option.get │
00:08:14 #32374 [verbose] > │ v115 │
00:08:14 #32375 [verbose] > │ #endif │
00:08:14 #32376 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32377 [verbose] > │ let v116 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32378 [verbose] > │ v116 │
00:08:14 #32379 [verbose] > │ #endif │
00:08:14 #32380 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32381 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32382 [verbose] > │ let v117 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:08:14 #32383 [verbose] > │ v117 │
00:08:14 #32384 [verbose] > │ #endif │
00:08:14 #32385 [verbose] > │ |> fun x -> _v21 <- Some x │
00:08:14 #32386 [verbose] > │ let v118 : Async<US5> = _v21.Value │
00:08:14 #32387 [verbose] > │ v118 │
00:08:14 #32388 [verbose] > │ #endif │
00:08:14 #32389 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32390 [verbose] > │ let v119 : Async<US5> = null |> unbox<Async<US5>> │
00:08:14 #32391 [verbose] > │ v119 │
00:08:14 #32392 [verbose] > │ #endif │
00:08:14 #32393 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32394 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32395 [verbose] > │ let v120 : Async<US5> = Unchecked.defaultof<Async<US5>> │
00:08:14 #32396 [verbose] > │ v120 │
00:08:14 #32397 [verbose] > │ #endif │
00:08:14 #32398 [verbose] > │ |> fun x -> _v17 <- Some x │
00:08:14 #32399 [verbose] > │ let v121 : Async<US5> = _v17.Value │
00:08:14 #32400 [verbose] > │ let v122 : Async<unit> option = None │
00:08:14 #32401 [verbose] > │ let mutable _v122 = v122 │
00:08:14 #32402 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32403 [verbose] > │ let v123 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #32404 [verbose] > │ v123 │
00:08:14 #32405 [verbose] > │ #endif │
00:08:14 #32406 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32407 [verbose] > │ let v124 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #32408 [verbose] > │ v124 │
00:08:14 #32409 [verbose] > │ #endif │
00:08:14 #32410 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32411 [verbose] > │ let v125 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #32412 [verbose] > │ v125 │
00:08:14 #32413 [verbose] > │ #endif │
00:08:14 #32414 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32415 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32416 [verbose] > │ let v126 : (Async<US5> -> Async<unit>) = Async.Ignore │
00:08:14 #32417 [verbose] > │ let v127 : Async<unit> = v126 v121 │
00:08:14 #32418 [verbose] > │ v127 │
00:08:14 #32419 [verbose] > │ #endif │
00:08:14 #32420 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32421 [verbose] > │ let v128 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #32422 [verbose] > │ v128 │
00:08:14 #32423 [verbose] > │ #endif │
00:08:14 #32424 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32425 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32426 [verbose] > │ let v129 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 #32427 [verbose] > │ v129 │
00:08:14 #32428 [verbose] > │ #endif │
00:08:14 #32429 [verbose] > │ |> fun x -> _v122 <- Some x │
00:08:14 #32430 [verbose] > │ let v130 : Async<unit> = _v122.Value │
00:08:14 #32431 [verbose] > │ do! v130 │
00:08:14 #32432 [verbose] > │ () │
00:08:14 #32433 [verbose] > │ let v131 : Async<string> option = None │
00:08:14 #32434 [verbose] > │ let mutable _v131 = v131 │
00:08:14 #32435 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32436 [verbose] > │ let v132 : Async<string> = null |> unbox<Async<string>> │
00:08:14 #32437 [verbose] > │ v132 │
00:08:14 #32438 [verbose] > │ #endif │
00:08:14 #32439 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32440 [verbose] > │ let v133 : Async<string> = null |> unbox<Async<string>> │
00:08:14 #32441 [verbose] > │ v133 │
00:08:14 #32442 [verbose] > │ #endif │
00:08:14 #32443 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32444 [verbose] > │ let v134 : Async<string> = null |> unbox<Async<string>> │
00:08:14 #32445 [verbose] > │ v134 │
00:08:14 #32446 [verbose] > │ #endif │
00:08:14 #32447 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32448 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32449 [verbose] > │ let v135 : (string -> System.Threading.Tasks.Task<string>) = │
00:08:14 #32450 [verbose] > │ System.IO.File.ReadAllTextAsync │
00:08:14 #32451 [verbose] > │ let v136 : System.Threading.Tasks.Task<string> = v135 v0 │
00:08:14 #32452 [verbose] > │ let v137 : Async<string> option = None │
00:08:14 #32453 [verbose] > │ let mutable _v137 = v137 │
00:08:14 #32454 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32455 [verbose] > │ let v138 : Async<string> = null |> unbox<Async<string>> │
00:08:14 #32456 [verbose] > │ v138 │
00:08:14 #32457 [verbose] > │ #endif │
00:08:14 #32458 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32459 [verbose] > │ let v139 : Async<string> = null |> unbox<Async<string>> │
00:08:14 #32460 [verbose] > │ v139 │
00:08:14 #32461 [verbose] > │ #endif │
00:08:14 #32462 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32463 [verbose] > │ let v140 : Async<string> = null |> unbox<Async<string>> │
00:08:14 #32464 [verbose] > │ v140 │
00:08:14 #32465 [verbose] > │ #endif │
00:08:14 #32466 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32467 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32468 [verbose] > │ let v141 : (System.Threading.Tasks.Task<string> -> Async<string>) = │
00:08:14 #32469 [verbose] > │ Async.AwaitTask │
00:08:14 #32470 [verbose] > │ let v142 : Async<string> = v141 v136 │
00:08:14 #32471 [verbose] > │ v142 │
00:08:14 #32472 [verbose] > │ #endif │
00:08:14 #32473 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32474 [verbose] > │ let v143 : Async<string> = null |> unbox<Async<string>> │
00:08:14 #32475 [verbose] > │ v143 │
00:08:14 #32476 [verbose] > │ #endif │
00:08:14 #32477 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32478 [verbose] > │ let v144 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:14 #32479 [verbose] > │ v144 │
00:08:14 #32480 [verbose] > │ #endif │
00:08:14 #32481 [verbose] > │ |> fun x -> _v137 <- Some x │
00:08:14 #32482 [verbose] > │ let v145 : Async<string> = _v137.Value │
00:08:14 #32483 [verbose] > │ v145 │
00:08:14 #32484 [verbose] > │ #endif │
00:08:14 #32485 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32486 [verbose] > │ let v146 : Async<string> = null |> unbox<Async<string>> │
00:08:14 #32487 [verbose] > │ v146 │
00:08:14 #32488 [verbose] > │ #endif │
00:08:14 #32489 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32490 [verbose] > │ let v147 : Async<string> = Unchecked.defaultof<Async<string>> │
00:08:14 #32491 [verbose] > │ v147 │
00:08:14 #32492 [verbose] > │ #endif │
00:08:14 #32493 [verbose] > │ |> fun x -> _v131 <- Some x │
00:08:14 #32494 [verbose] > │ let v148 : Async<string> = _v131.Value │
00:08:14 #32495 [verbose] > │ let v149 : Async<string option> option = None │
00:08:14 #32496 [verbose] > │ let mutable _v149 = v149 │
00:08:14 #32497 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32498 [verbose] > │ let v150 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32499 [verbose] > │ v150 │
00:08:14 #32500 [verbose] > │ #endif │
00:08:14 #32501 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32502 [verbose] > │ let v151 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32503 [verbose] > │ v151 │
00:08:14 #32504 [verbose] > │ #endif │
00:08:14 #32505 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32506 [verbose] > │ let v152 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32507 [verbose] > │ v152 │
00:08:14 #32508 [verbose] > │ #endif │
00:08:14 #32509 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32510 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32511 [verbose] > │ let v153 : Async<string option> option = None │
00:08:14 #32512 [verbose] > │ let mutable _v153 = v153 │
00:08:14 #32513 [verbose] > │ async { │
00:08:14 #32514 [verbose] > │ let! v148 = v148 │
00:08:14 #32515 [verbose] > │ let v154 : string = v148 │
00:08:14 #32516 [verbose] > │ let v155 : string option = Some v154 │
00:08:14 #32517 [verbose] > │ return v155 │
00:08:14 #32518 [verbose] > │ } │
00:08:14 #32519 [verbose] > │ |> fun x -> _v153 <- Some x │
00:08:14 #32520 [verbose] > │ let v156 : Async<string option> = _v153 |> Option.get │
00:08:14 #32521 [verbose] > │ v156 │
00:08:14 #32522 [verbose] > │ #endif │
00:08:14 #32523 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32524 [verbose] > │ let v157 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32525 [verbose] > │ v157 │
00:08:14 #32526 [verbose] > │ #endif │
00:08:14 #32527 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32528 [verbose] > │ let v158 : Async<string option> = Unchecked.defaultof<Async<string │
00:08:14 #32529 [verbose] > │ option>> │
00:08:14 #32530 [verbose] > │ v158 │
00:08:14 #32531 [verbose] > │ #endif │
00:08:14 #32532 [verbose] > │ |> fun x -> _v149 <- Some x │
00:08:14 #32533 [verbose] > │ let v159 : Async<string option> = _v149.Value │
00:08:14 #32534 [verbose] > │ return! v159 │
00:08:14 #32535 [verbose] > │ with ex -> │
00:08:14 #32536 [verbose] > │ let v160 : exn = ex │
00:08:14 #32537 [verbose] > │ let v161 : bool = v1 = 0L │
00:08:14 #32538 [verbose] > │ let v162 : bool = v161 <> true │
00:08:14 #32539 [verbose] > │ if v162 then │
00:08:14 #32540 [verbose] > │ let v163 : string option = None │
00:08:14 #32541 [verbose] > │ let mutable _v163 = v163 │
00:08:14 #32542 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32543 [verbose] > │ let v164 : string = $"%A{v160}" │
00:08:14 #32544 [verbose] > │ v164 │
00:08:14 #32545 [verbose] > │ #endif │
00:08:14 #32546 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32547 [verbose] > │ let v165 : string = $"%A{v160}" │
00:08:14 #32548 [verbose] > │ v165 │
00:08:14 #32549 [verbose] > │ #endif │
00:08:14 #32550 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32551 [verbose] > │ let v166 : string = $"%A{v160}" │
00:08:14 #32552 [verbose] > │ v166 │
00:08:14 #32553 [verbose] > │ #endif │
00:08:14 #32554 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32555 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32556 [verbose] > │ let v167 : string = $"{v160.GetType ()}: {v160.Message}" │
00:08:14 #32557 [verbose] > │ v167 │
00:08:14 #32558 [verbose] > │ #endif │
00:08:14 #32559 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32560 [verbose] > │ let v168 : string = $"%A{v160}" │
00:08:14 #32561 [verbose] > │ v168 │
00:08:14 #32562 [verbose] > │ #endif │
00:08:14 #32563 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #32564 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #32565 [verbose] > │ let v169 : string = Unchecked.defaultof<string> │
00:08:14 #32566 [verbose] > │ v169 │
00:08:14 #32567 [verbose] > │ #endif │
00:08:14 #32568 [verbose] > │ |> fun x -> _v163 <- Some x │
00:08:14 #32569 [verbose] > │ let v170 : string = _v163.Value │
00:08:14 #32570 [verbose] > │ let v171 : US3 = US3_1 │
00:08:14 #32571 [verbose] > │ let v172 : (unit -> string) = closure30() │
00:08:14 #32572 [verbose] > │ let v173 : (unit -> string) = closure31(v1, v170) │
00:08:14 #32573 [verbose] > │ method7(v171, v172, v173) │
00:08:14 #32574 [verbose] > │ let v174 : string option = None │
00:08:14 #32575 [verbose] > │ return v174 │
00:08:14 #32576 [verbose] > │ (* │
00:08:14 #32577 [verbose] > │ () │
00:08:14 #32578 [verbose] > │ else │
00:08:14 #32579 [verbose] > │ *) else │
00:08:14 #32580 [verbose] > │ let v175 : int64 = v1 + 1L │
00:08:14 #32581 [verbose] > │ let v176 : Async<string option> = method14(v0, v175) │
00:08:14 #32582 [verbose] > │ return! v176 │
00:08:14 #32583 [verbose] > │ (* │
00:08:14 #32584 [verbose] > │ () │
00:08:14 #32585 [verbose] > │ *) │
00:08:14 #32586 [verbose] > │ (* │
00:08:14 #32587 [verbose] > │ let v177 : string option = *) │
00:08:14 #32588 [verbose] > │ } │
00:08:14 #32589 [verbose] > │ |> fun x -> _v6 <- Some x │
00:08:14 #32590 [verbose] > │ let v178 : Async<string option> = _v6 |> Option.get │
00:08:14 #32591 [verbose] > │ v178 │
00:08:14 #32592 [verbose] > │ #endif │
00:08:14 #32593 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32594 [verbose] > │ let v179 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32595 [verbose] > │ v179 │
00:08:14 #32596 [verbose] > │ #endif │
00:08:14 #32597 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32598 [verbose] > │ let v180 : Async<string option> = Unchecked.defaultof<Async<string │
00:08:14 #32599 [verbose] > │ option>> │
00:08:14 #32600 [verbose] > │ v180 │
00:08:14 #32601 [verbose] > │ #endif │
00:08:14 #32602 [verbose] > │ |> fun x -> _v2 <- Some x │
00:08:14 #32603 [verbose] > │ let v181 : Async<string option> = _v2.Value │
00:08:14 #32604 [verbose] > │ v181 │
00:08:14 #32605 [verbose] > │ and closure24 () (v0 : string) : Async<string option> = │
00:08:14 #32606 [verbose] > │ let v1 : Async<string option> option = None │
00:08:14 #32607 [verbose] > │ let mutable _v1 = v1 │
00:08:14 #32608 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32609 [verbose] > │ let v2 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32610 [verbose] > │ v2 │
00:08:14 #32611 [verbose] > │ #endif │
00:08:14 #32612 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32613 [verbose] > │ let v3 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32614 [verbose] > │ v3 │
00:08:14 #32615 [verbose] > │ #endif │
00:08:14 #32616 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32617 [verbose] > │ let v4 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32618 [verbose] > │ v4 │
00:08:14 #32619 [verbose] > │ #endif │
00:08:14 #32620 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32621 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32622 [verbose] > │ let v5 : int64 = 0L │
00:08:14 #32623 [verbose] > │ let v6 : Async<string option> = method14(v0, v5) │
00:08:14 #32624 [verbose] > │ v6 │
00:08:14 #32625 [verbose] > │ #endif │
00:08:14 #32626 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32627 [verbose] > │ let v7 : Async<string option> = null |> unbox<Async<string option>> │
00:08:14 #32628 [verbose] > │ v7 │
00:08:14 #32629 [verbose] > │ #endif │
00:08:14 #32630 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32631 [verbose] > │ let v8 : Async<string option> = Unchecked.defaultof<Async<string │
00:08:14 #32632 [verbose] > │ option>> │
00:08:14 #32633 [verbose] > │ v8 │
00:08:14 #32634 [verbose] > │ #endif │
00:08:14 #32635 [verbose] > │ |> fun x -> _v1 <- Some x │
00:08:14 #32636 [verbose] > │ let v9 : Async<string option> = _v1.Value │
00:08:14 #32637 [verbose] > │ v9 │
00:08:14 #32638 [verbose] > │ and closure33 () () : string = │
00:08:14 #32639 [verbose] > │ let v0 : string option = None │
00:08:14 #32640 [verbose] > │ let mutable _v0 = v0 │
00:08:14 #32641 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32642 [verbose] > │ let v1 : string = null |> unbox<string> │
00:08:14 #32643 [verbose] > │ v1 │
00:08:14 #32644 [verbose] > │ #endif │
00:08:14 #32645 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32646 [verbose] > │ let v2 : string = null |> unbox<string> │
00:08:14 #32647 [verbose] > │ v2 │
00:08:14 #32648 [verbose] > │ #endif │
00:08:14 #32649 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32650 [verbose] > │ let v3 : string = null |> unbox<string> │
00:08:14 #32651 [verbose] > │ v3 │
00:08:14 #32652 [verbose] > │ #endif │
00:08:14 #32653 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32654 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32655 [verbose] > │ let v4 : string = │
00:08:14 #32656 [verbose] > │ System.Reflection.Assembly.GetEntryAssembly().GetName().Name │
00:08:14 #32657 [verbose] > │ v4 │
00:08:14 #32658 [verbose] > │ #endif │
00:08:14 #32659 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32660 [verbose] > │ let v5 : string = null |> unbox<string> │
00:08:14 #32661 [verbose] > │ v5 │
00:08:14 #32662 [verbose] > │ #endif │
00:08:14 #32663 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32664 [verbose] > │ let v6 : string = Unchecked.defaultof<string> │
00:08:14 #32665 [verbose] > │ v6 │
00:08:14 #32666 [verbose] > │ #endif │
00:08:14 #32667 [verbose] > │ |> fun x -> _v0 <- Some x │
00:08:14 #32668 [verbose] > │ let v7 : string = _v0.Value │
00:08:14 #32669 [verbose] > │ v7 │
00:08:14 #32670 [verbose] > │ and closure32 () () : string = │
00:08:14 #32671 [verbose] > │ let v0 : string option = None │
00:08:14 #32672 [verbose] > │ let mutable _v0 = v0 │
00:08:14 #32673 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32674 [verbose] > │ let v1 : string = null |> unbox<string> │
00:08:14 #32675 [verbose] > │ v1 │
00:08:14 #32676 [verbose] > │ #endif │
00:08:14 #32677 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32678 [verbose] > │ let v2 : string = null |> unbox<string> │
00:08:14 #32679 [verbose] > │ v2 │
00:08:14 #32680 [verbose] > │ #endif │
00:08:14 #32681 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32682 [verbose] > │ let v3 : string = null |> unbox<string> │
00:08:14 #32683 [verbose] > │ v3 │
00:08:14 #32684 [verbose] > │ #endif │
00:08:14 #32685 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32686 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32687 [verbose] > │ let v4 : (unit -> string) = System.IO.Path.GetTempPath │
00:08:14 #32688 [verbose] > │ let v5 : string = v4 () │
00:08:14 #32689 [verbose] > │ let v6 : (unit -> string) = closure33() │
00:08:14 #32690 [verbose] > │ let v7 : string = $"!{v6 ()}" │
00:08:14 #32691 [verbose] > │ let v8 : string option = None │
00:08:14 #32692 [verbose] > │ let mutable _v8 = v8 │
00:08:14 #32693 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32694 [verbose] > │ let v9 : string = method5(v5) │
00:08:14 #32695 [verbose] > │ let v10 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #32696 [verbose] > │ let v11 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:08:14 #32697 [verbose] > │ let v12 : string = "String::from($0)" │
00:08:14 #32698 [verbose] > │ let v13 : std_string_String = Fable.Core.RustInterop.emitRustExpr v11 │
00:08:14 #32699 [verbose] > │ v12 │
00:08:14 #32700 [verbose] > │ let v14 : string = "std::path::PathBuf::from($0)" │
00:08:14 #32701 [verbose] > │ let v15 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v13 v14 │
00:08:14 #32702 [verbose] > │ let v16 : string = method5(v7) │
00:08:14 #32703 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #32704 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:08:14 #32705 [verbose] > │ let v19 : string = "String::from($0)" │
00:08:14 #32706 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:08:14 #32707 [verbose] > │ v19 │
00:08:14 #32708 [verbose] > │ let v21 : string = "$0.join($1)" │
00:08:14 #32709 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:14 #32710 [verbose] > │ (v15, v20) v21 │
00:08:14 #32711 [verbose] > │ let v23 : string = "$0.display().to_string()" │
00:08:14 #32712 [verbose] > │ let v24 : std_string_String = Fable.Core.RustInterop.emitRustExpr v22 │
00:08:14 #32713 [verbose] > │ v23 │
00:08:14 #32714 [verbose] > │ let v25 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 #32715 [verbose] > │ let v26 : string = Fable.Core.RustInterop.emitRustExpr v24 v25 │
00:08:14 #32716 [verbose] > │ v26 │
00:08:14 #32717 [verbose] > │ #endif │
00:08:14 #32718 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32719 [verbose] > │ let v27 : string = null |> unbox<string> │
00:08:14 #32720 [verbose] > │ v27 │
00:08:14 #32721 [verbose] > │ #endif │
00:08:14 #32722 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32723 [verbose] > │ let v28 : string = null |> unbox<string> │
00:08:14 #32724 [verbose] > │ v28 │
00:08:14 #32725 [verbose] > │ #endif │
00:08:14 #32726 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32727 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32728 [verbose] > │ let v29 : string = System.IO.Path.Combine (v5, v7) │
00:08:14 #32729 [verbose] > │ v29 │
00:08:14 #32730 [verbose] > │ #endif │
00:08:14 #32731 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32732 [verbose] > │ let v30 : string = "path" │
00:08:14 #32733 [verbose] > │ let v31 : IPathJoin = Fable.Core.JsInterop.importAll v30 │
00:08:14 #32734 [verbose] > │ let v32 : string = "v31.join($0, $1)" │
00:08:14 #32735 [verbose] > │ let v33 : string = Fable.Core.JsInterop.emitJsExpr struct (v5, v7) v32 │
00:08:14 #32736 [verbose] > │ v33 │
00:08:14 #32737 [verbose] > │ #endif │
00:08:14 #32738 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32739 [verbose] > │ let v34 : string = Unchecked.defaultof<string> │
00:08:14 #32740 [verbose] > │ v34 │
00:08:14 #32741 [verbose] > │ #endif │
00:08:14 #32742 [verbose] > │ |> fun x -> _v8 <- Some x │
00:08:14 #32743 [verbose] > │ let v35 : string = _v8.Value │
00:08:14 #32744 [verbose] > │ let v36 : System.DateTime = System.DateTime.Now │
00:08:14 #32745 [verbose] > │ let v37 : System.Guid = System.Guid.NewGuid () │
00:08:14 #32746 [verbose] > │ let v38 : (System.Guid -> string) = _.ToString() │
00:08:14 #32747 [verbose] > │ let v39 : string = v38 v37 │
00:08:14 #32748 [verbose] > │ let v40 : string = v36.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:08:14 #32749 [verbose] > │ let v41 : System.Guid = System.Guid $"{v40}{v39.[v40.Length..]}" │
00:08:14 #32750 [verbose] > │ let v42 : (System.Guid -> string) = _.ToString() │
00:08:14 #32751 [verbose] > │ let v43 : string = v42 v41 │
00:08:14 #32752 [verbose] > │ let v44 : string option = None │
00:08:14 #32753 [verbose] > │ let mutable _v44 = v44 │
00:08:14 #32754 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32755 [verbose] > │ let v45 : string = method5(v35) │
00:08:14 #32756 [verbose] > │ let v46 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #32757 [verbose] > │ let v47 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v45 v46 │
00:08:14 #32758 [verbose] > │ let v48 : string = "String::from($0)" │
00:08:14 #32759 [verbose] > │ let v49 : std_string_String = Fable.Core.RustInterop.emitRustExpr v47 │
00:08:14 #32760 [verbose] > │ v48 │
00:08:14 #32761 [verbose] > │ let v50 : string = "std::path::PathBuf::from($0)" │
00:08:14 #32762 [verbose] > │ let v51 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v49 v50 │
00:08:14 #32763 [verbose] > │ let v52 : string = method5(v43) │
00:08:14 #32764 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #32765 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:08:14 #32766 [verbose] > │ let v55 : string = "String::from($0)" │
00:08:14 #32767 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:08:14 #32768 [verbose] > │ v55 │
00:08:14 #32769 [verbose] > │ let v57 : string = "$0.join($1)" │
00:08:14 #32770 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:14 #32771 [verbose] > │ (v51, v56) v57 │
00:08:14 #32772 [verbose] > │ let v59 : string = "$0.display().to_string()" │
00:08:14 #32773 [verbose] > │ let v60 : std_string_String = Fable.Core.RustInterop.emitRustExpr v58 │
00:08:14 #32774 [verbose] > │ v59 │
00:08:14 #32775 [verbose] > │ let v61 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 #32776 [verbose] > │ let v62 : string = Fable.Core.RustInterop.emitRustExpr v60 v61 │
00:08:14 #32777 [verbose] > │ v62 │
00:08:14 #32778 [verbose] > │ #endif │
00:08:14 #32779 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32780 [verbose] > │ let v63 : string = null |> unbox<string> │
00:08:14 #32781 [verbose] > │ v63 │
00:08:14 #32782 [verbose] > │ #endif │
00:08:14 #32783 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32784 [verbose] > │ let v64 : string = null |> unbox<string> │
00:08:14 #32785 [verbose] > │ v64 │
00:08:14 #32786 [verbose] > │ #endif │
00:08:14 #32787 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32788 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32789 [verbose] > │ let v65 : string = System.IO.Path.Combine (v35, v43) │
00:08:14 #32790 [verbose] > │ v65 │
00:08:14 #32791 [verbose] > │ #endif │
00:08:14 #32792 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32793 [verbose] > │ let v66 : IPathJoin = Fable.Core.JsInterop.importAll v30 │
00:08:14 #32794 [verbose] > │ let v67 : string = "v66.join($0, $1)" │
00:08:14 #32795 [verbose] > │ let v68 : string = Fable.Core.JsInterop.emitJsExpr struct (v35, v43) v67 │
00:08:14 #32796 [verbose] > │ v68 │
00:08:14 #32797 [verbose] > │ #endif │
00:08:14 #32798 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32799 [verbose] > │ let v69 : string = Unchecked.defaultof<string> │
00:08:14 #32800 [verbose] > │ v69 │
00:08:14 #32801 [verbose] > │ #endif │
00:08:14 #32802 [verbose] > │ |> fun x -> _v44 <- Some x │
00:08:14 #32803 [verbose] > │ let v70 : string = _v44.Value │
00:08:14 #32804 [verbose] > │ v70 │
00:08:14 #32805 [verbose] > │ #endif │
00:08:14 #32806 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32807 [verbose] > │ let v71 : string = null |> unbox<string> │
00:08:14 #32808 [verbose] > │ v71 │
00:08:14 #32809 [verbose] > │ #endif │
00:08:14 #32810 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32811 [verbose] > │ let v72 : string = Unchecked.defaultof<string> │
00:08:14 #32812 [verbose] > │ v72 │
00:08:14 #32813 [verbose] > │ #endif │
00:08:14 #32814 [verbose] > │ |> fun x -> _v0 <- Some x │
00:08:14 #32815 [verbose] > │ let v73 : string = _v0.Value │
00:08:14 #32816 [verbose] > │ v73 │
00:08:14 #32817 [verbose] > │ and closure35 (v0 : string, v1 : string) () : string = │
00:08:14 #32818 [verbose] > │ let v2 : (unit -> string) = closure3() │
00:08:14 #32819 [verbose] > │ let v3 : string = $"temp_folder: {v0} / result: {v1} {v2 ()}" │
00:08:14 #32820 [verbose] > │ v3 │
00:08:14 #32821 [verbose] > │ and closure36 (v0 : string) () : unit = │
00:08:14 #32822 [verbose] > │ let v1 : Async<int64> option = None │
00:08:14 #32823 [verbose] > │ let mutable _v1 = v1 │
00:08:14 #32824 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32825 [verbose] > │ let v2 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #32826 [verbose] > │ v2 │
00:08:14 #32827 [verbose] > │ #endif │
00:08:14 #32828 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32829 [verbose] > │ let v3 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #32830 [verbose] > │ v3 │
00:08:14 #32831 [verbose] > │ #endif │
00:08:14 #32832 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32833 [verbose] > │ let v4 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #32834 [verbose] > │ v4 │
00:08:14 #32835 [verbose] > │ #endif │
00:08:14 #32836 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32837 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32838 [verbose] > │ let v5 : int64 = 0L │
00:08:14 #32839 [verbose] > │ let v6 : Async<int64> = method0(v0, v5) │
00:08:14 #32840 [verbose] > │ v6 │
00:08:14 #32841 [verbose] > │ #endif │
00:08:14 #32842 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32843 [verbose] > │ let v7 : Async<int64> = null |> unbox<Async<int64>> │
00:08:14 #32844 [verbose] > │ v7 │
00:08:14 #32845 [verbose] > │ #endif │
00:08:14 #32846 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32847 [verbose] > │ let v8 : Async<int64> = Unchecked.defaultof<Async<int64>> │
00:08:14 #32848 [verbose] > │ v8 │
00:08:14 #32849 [verbose] > │ #endif │
00:08:14 #32850 [verbose] > │ |> fun x -> _v1 <- Some x │
00:08:14 #32851 [verbose] > │ let v9 : Async<int64> = _v1.Value │
00:08:14 #32852 [verbose] > │ let v10 : Async<unit> option = None │
00:08:14 #32853 [verbose] > │ let mutable _v10 = v10 │
00:08:14 #32854 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32855 [verbose] > │ let v11 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #32856 [verbose] > │ v11 │
00:08:14 #32857 [verbose] > │ #endif │
00:08:14 #32858 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32859 [verbose] > │ let v12 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #32860 [verbose] > │ v12 │
00:08:14 #32861 [verbose] > │ #endif │
00:08:14 #32862 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32863 [verbose] > │ let v13 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #32864 [verbose] > │ v13 │
00:08:14 #32865 [verbose] > │ #endif │
00:08:14 #32866 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32867 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32868 [verbose] > │ let v14 : (Async<int64> -> Async<unit>) = Async.Ignore │
00:08:14 #32869 [verbose] > │ let v15 : Async<unit> = v14 v9 │
00:08:14 #32870 [verbose] > │ v15 │
00:08:14 #32871 [verbose] > │ #endif │
00:08:14 #32872 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32873 [verbose] > │ let v16 : Async<unit> = null |> unbox<Async<unit>> │
00:08:14 #32874 [verbose] > │ v16 │
00:08:14 #32875 [verbose] > │ #endif │
00:08:14 #32876 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32877 [verbose] > │ let v17 : Async<unit> = Unchecked.defaultof<Async<unit>> │
00:08:14 #32878 [verbose] > │ v17 │
00:08:14 #32879 [verbose] > │ #endif │
00:08:14 #32880 [verbose] > │ |> fun x -> _v10 <- Some x │
00:08:14 #32881 [verbose] > │ let v18 : Async<unit> = _v10.Value │
00:08:14 #32882 [verbose] > │ let v19 : unit option = None │
00:08:14 #32883 [verbose] > │ let mutable _v19 = v19 │
00:08:14 #32884 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32885 [verbose] > │ null |> unbox<unit> │
00:08:14 #32886 [verbose] > │ () │
00:08:14 #32887 [verbose] > │ #endif │
00:08:14 #32888 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32889 [verbose] > │ null |> unbox<unit> │
00:08:14 #32890 [verbose] > │ () │
00:08:14 #32891 [verbose] > │ #endif │
00:08:14 #32892 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32893 [verbose] > │ null |> unbox<unit> │
00:08:14 #32894 [verbose] > │ () │
00:08:14 #32895 [verbose] > │ #endif │
00:08:14 #32896 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32897 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32898 [verbose] > │ let v20 : (Async<unit> -> unit) = Async.RunSynchronously │
00:08:14 #32899 [verbose] > │ v20 v18 │
00:08:14 #32900 [verbose] > │ () │
00:08:14 #32901 [verbose] > │ #endif │
00:08:14 #32902 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32903 [verbose] > │ null |> unbox<unit> │
00:08:14 #32904 [verbose] > │ () │
00:08:14 #32905 [verbose] > │ #endif │
00:08:14 #32906 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #32907 [verbose] > │ Unchecked.defaultof<unit> │
00:08:14 #32908 [verbose] > │ () │
00:08:14 #32909 [verbose] > │ #endif │
00:08:14 #32910 [verbose] > │ |> fun x -> _v19 <- Some x │
00:08:14 #32911 [verbose] > │ _v19.Value │
00:08:14 #32912 [verbose] > │ () │
00:08:14 #32913 [verbose] > │ and closure34 () () : struct (string * System.IDisposable) = │
00:08:14 #32914 [verbose] > │ let v0 : struct (string * System.IDisposable) option = None │
00:08:14 #32915 [verbose] > │ let mutable _v0 = v0 │
00:08:14 #32916 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32917 [verbose] > │ let struct (v1 : string, v2 : System.IDisposable) = null |> unbox<struct │
00:08:14 #32918 [verbose] > │ (string * System.IDisposable)> │
00:08:14 #32919 [verbose] > │ struct (v1, v2) │
00:08:14 #32920 [verbose] > │ #endif │
00:08:14 #32921 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32922 [verbose] > │ let struct (v3 : string, v4 : System.IDisposable) = null |> unbox<struct │
00:08:14 #32923 [verbose] > │ (string * System.IDisposable)> │
00:08:14 #32924 [verbose] > │ struct (v3, v4) │
00:08:14 #32925 [verbose] > │ #endif │
00:08:14 #32926 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32927 [verbose] > │ let struct (v5 : string, v6 : System.IDisposable) = null |> unbox<struct │
00:08:14 #32928 [verbose] > │ (string * System.IDisposable)> │
00:08:14 #32929 [verbose] > │ struct (v5, v6) │
00:08:14 #32930 [verbose] > │ #endif │
00:08:14 #32931 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32932 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32933 [verbose] > │ let v7 : string option = None │
00:08:14 #32934 [verbose] > │ let mutable _v7 = v7 │
00:08:14 #32935 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32936 [verbose] > │ let v8 : string = null |> unbox<string> │
00:08:14 #32937 [verbose] > │ v8 │
00:08:14 #32938 [verbose] > │ #endif │
00:08:14 #32939 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32940 [verbose] > │ let v9 : string = null |> unbox<string> │
00:08:14 #32941 [verbose] > │ v9 │
00:08:14 #32942 [verbose] > │ #endif │
00:08:14 #32943 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32944 [verbose] > │ let v10 : string = null |> unbox<string> │
00:08:14 #32945 [verbose] > │ v10 │
00:08:14 #32946 [verbose] > │ #endif │
00:08:14 #32947 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32948 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32949 [verbose] > │ let v11 : (unit -> string) = System.IO.Path.GetTempPath │
00:08:14 #32950 [verbose] > │ let v12 : string = v11 () │
00:08:14 #32951 [verbose] > │ let v13 : (unit -> string) = closure33() │
00:08:14 #32952 [verbose] > │ let v14 : string = $"!{v13 ()}" │
00:08:14 #32953 [verbose] > │ let v15 : string option = None │
00:08:14 #32954 [verbose] > │ let mutable _v15 = v15 │
00:08:14 #32955 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #32956 [verbose] > │ let v16 : string = method5(v12) │
00:08:14 #32957 [verbose] > │ let v17 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #32958 [verbose] > │ let v18 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v16 v17 │
00:08:14 #32959 [verbose] > │ let v19 : string = "String::from($0)" │
00:08:14 #32960 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:08:14 #32961 [verbose] > │ v19 │
00:08:14 #32962 [verbose] > │ let v21 : string = "std::path::PathBuf::from($0)" │
00:08:14 #32963 [verbose] > │ let v22 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:08:14 #32964 [verbose] > │ let v23 : string = method5(v14) │
00:08:14 #32965 [verbose] > │ let v24 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #32966 [verbose] > │ let v25 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v23 v24 │
00:08:14 #32967 [verbose] > │ let v26 : string = "String::from($0)" │
00:08:14 #32968 [verbose] > │ let v27 : std_string_String = Fable.Core.RustInterop.emitRustExpr v25 │
00:08:14 #32969 [verbose] > │ v26 │
00:08:14 #32970 [verbose] > │ let v28 : string = "$0.join($1)" │
00:08:14 #32971 [verbose] > │ let v29 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:14 #32972 [verbose] > │ (v22, v27) v28 │
00:08:14 #32973 [verbose] > │ let v30 : string = "$0.display().to_string()" │
00:08:14 #32974 [verbose] > │ let v31 : std_string_String = Fable.Core.RustInterop.emitRustExpr v29 │
00:08:14 #32975 [verbose] > │ v30 │
00:08:14 #32976 [verbose] > │ let v32 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 #32977 [verbose] > │ let v33 : string = Fable.Core.RustInterop.emitRustExpr v31 v32 │
00:08:14 #32978 [verbose] > │ v33 │
00:08:14 #32979 [verbose] > │ #endif │
00:08:14 #32980 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #32981 [verbose] > │ let v34 : string = null |> unbox<string> │
00:08:14 #32982 [verbose] > │ v34 │
00:08:14 #32983 [verbose] > │ #endif │
00:08:14 #32984 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #32985 [verbose] > │ let v35 : string = null |> unbox<string> │
00:08:14 #32986 [verbose] > │ v35 │
00:08:14 #32987 [verbose] > │ #endif │
00:08:14 #32988 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #32989 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #32990 [verbose] > │ let v36 : string = System.IO.Path.Combine (v12, v14) │
00:08:14 #32991 [verbose] > │ v36 │
00:08:14 #32992 [verbose] > │ #endif │
00:08:14 #32993 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #32994 [verbose] > │ let v37 : string = "path" │
00:08:14 #32995 [verbose] > │ let v38 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:08:14 #32996 [verbose] > │ let v39 : string = "v38.join($0, $1)" │
00:08:14 #32997 [verbose] > │ let v40 : string = Fable.Core.JsInterop.emitJsExpr struct (v12, v14) v39 │
00:08:14 #32998 [verbose] > │ v40 │
00:08:14 #32999 [verbose] > │ #endif │
00:08:14 #33000 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33001 [verbose] > │ let v41 : string = Unchecked.defaultof<string> │
00:08:14 #33002 [verbose] > │ v41 │
00:08:14 #33003 [verbose] > │ #endif │
00:08:14 #33004 [verbose] > │ |> fun x -> _v15 <- Some x │
00:08:14 #33005 [verbose] > │ let v42 : string = _v15.Value │
00:08:14 #33006 [verbose] > │ let v43 : System.DateTime = System.DateTime.Now │
00:08:14 #33007 [verbose] > │ let v44 : System.Guid = System.Guid.NewGuid () │
00:08:14 #33008 [verbose] > │ let v45 : (System.Guid -> string) = _.ToString() │
00:08:14 #33009 [verbose] > │ let v46 : string = v45 v44 │
00:08:14 #33010 [verbose] > │ let v47 : string = v43.ToString "yyyyMMdd-HHmm-ssff-ffff-f" │
00:08:14 #33011 [verbose] > │ let v48 : System.Guid = System.Guid $"{v47}{v46.[v47.Length..]}" │
00:08:14 #33012 [verbose] > │ let v49 : (System.Guid -> string) = _.ToString() │
00:08:14 #33013 [verbose] > │ let v50 : string = v49 v48 │
00:08:14 #33014 [verbose] > │ let v51 : string option = None │
00:08:14 #33015 [verbose] > │ let mutable _v51 = v51 │
00:08:14 #33016 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33017 [verbose] > │ let v52 : string = method5(v42) │
00:08:14 #33018 [verbose] > │ let v53 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #33019 [verbose] > │ let v54 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v52 v53 │
00:08:14 #33020 [verbose] > │ let v55 : string = "String::from($0)" │
00:08:14 #33021 [verbose] > │ let v56 : std_string_String = Fable.Core.RustInterop.emitRustExpr v54 │
00:08:14 #33022 [verbose] > │ v55 │
00:08:14 #33023 [verbose] > │ let v57 : string = "std::path::PathBuf::from($0)" │
00:08:14 #33024 [verbose] > │ let v58 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v56 v57 │
00:08:14 #33025 [verbose] > │ let v59 : string = method5(v50) │
00:08:14 #33026 [verbose] > │ let v60 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #33027 [verbose] > │ let v61 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v59 v60 │
00:08:14 #33028 [verbose] > │ let v62 : string = "String::from($0)" │
00:08:14 #33029 [verbose] > │ let v63 : std_string_String = Fable.Core.RustInterop.emitRustExpr v61 │
00:08:14 #33030 [verbose] > │ v62 │
00:08:14 #33031 [verbose] > │ let v64 : string = "$0.join($1)" │
00:08:14 #33032 [verbose] > │ let v65 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:14 #33033 [verbose] > │ (v58, v63) v64 │
00:08:14 #33034 [verbose] > │ let v66 : string = "$0.display().to_string()" │
00:08:14 #33035 [verbose] > │ let v67 : std_string_String = Fable.Core.RustInterop.emitRustExpr v65 │
00:08:14 #33036 [verbose] > │ v66 │
00:08:14 #33037 [verbose] > │ let v68 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 #33038 [verbose] > │ let v69 : string = Fable.Core.RustInterop.emitRustExpr v67 v68 │
00:08:14 #33039 [verbose] > │ v69 │
00:08:14 #33040 [verbose] > │ #endif │
00:08:14 #33041 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33042 [verbose] > │ let v70 : string = null |> unbox<string> │
00:08:14 #33043 [verbose] > │ v70 │
00:08:14 #33044 [verbose] > │ #endif │
00:08:14 #33045 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33046 [verbose] > │ let v71 : string = null |> unbox<string> │
00:08:14 #33047 [verbose] > │ v71 │
00:08:14 #33048 [verbose] > │ #endif │
00:08:14 #33049 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33050 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33051 [verbose] > │ let v72 : string = System.IO.Path.Combine (v42, v50) │
00:08:14 #33052 [verbose] > │ v72 │
00:08:14 #33053 [verbose] > │ #endif │
00:08:14 #33054 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33055 [verbose] > │ let v73 : IPathJoin = Fable.Core.JsInterop.importAll v37 │
00:08:14 #33056 [verbose] > │ let v74 : string = "v73.join($0, $1)" │
00:08:14 #33057 [verbose] > │ let v75 : string = Fable.Core.JsInterop.emitJsExpr struct (v42, v50) v74 │
00:08:14 #33058 [verbose] > │ v75 │
00:08:14 #33059 [verbose] > │ #endif │
00:08:14 #33060 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33061 [verbose] > │ let v76 : string = Unchecked.defaultof<string> │
00:08:14 #33062 [verbose] > │ v76 │
00:08:14 #33063 [verbose] > │ #endif │
00:08:14 #33064 [verbose] > │ |> fun x -> _v51 <- Some x │
00:08:14 #33065 [verbose] > │ let v77 : string = _v51.Value │
00:08:14 #33066 [verbose] > │ v77 │
00:08:14 #33067 [verbose] > │ #endif │
00:08:14 #33068 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33069 [verbose] > │ let v78 : string = null |> unbox<string> │
00:08:14 #33070 [verbose] > │ v78 │
00:08:14 #33071 [verbose] > │ #endif │
00:08:14 #33072 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33073 [verbose] > │ let v79 : string = Unchecked.defaultof<string> │
00:08:14 #33074 [verbose] > │ v79 │
00:08:14 #33075 [verbose] > │ #endif │
00:08:14 #33076 [verbose] > │ |> fun x -> _v7 <- Some x │
00:08:14 #33077 [verbose] > │ let v80 : string = _v7.Value │
00:08:14 #33078 [verbose] > │ let v81 : System.IO.DirectoryInfo option = None │
00:08:14 #33079 [verbose] > │ let mutable _v81 = v81 │
00:08:14 #33080 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33081 [verbose] > │ let v82 : System.IO.DirectoryInfo = null |> │
00:08:14 #33082 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:08:14 #33083 [verbose] > │ v82 │
00:08:14 #33084 [verbose] > │ #endif │
00:08:14 #33085 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33086 [verbose] > │ let v83 : System.IO.DirectoryInfo = null |> │
00:08:14 #33087 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:08:14 #33088 [verbose] > │ v83 │
00:08:14 #33089 [verbose] > │ #endif │
00:08:14 #33090 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33091 [verbose] > │ let v84 : System.IO.DirectoryInfo = null |> │
00:08:14 #33092 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:08:14 #33093 [verbose] > │ v84 │
00:08:14 #33094 [verbose] > │ #endif │
00:08:14 #33095 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33096 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33097 [verbose] > │ let v85 : (string -> System.IO.DirectoryInfo) = │
00:08:14 #33098 [verbose] > │ System.IO.Directory.CreateDirectory │
00:08:14 #33099 [verbose] > │ let v86 : System.IO.DirectoryInfo = v85 v80 │
00:08:14 #33100 [verbose] > │ v86 │
00:08:14 #33101 [verbose] > │ #endif │
00:08:14 #33102 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33103 [verbose] > │ let v87 : System.IO.DirectoryInfo = null |> │
00:08:14 #33104 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:08:14 #33105 [verbose] > │ v87 │
00:08:14 #33106 [verbose] > │ #endif │
00:08:14 #33107 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33108 [verbose] > │ let v88 : System.IO.DirectoryInfo = │
00:08:14 #33109 [verbose] > │ Unchecked.defaultof<System.IO.DirectoryInfo> │
00:08:14 #33110 [verbose] > │ v88 │
00:08:14 #33111 [verbose] > │ #endif │
00:08:14 #33112 [verbose] > │ |> fun x -> _v81 <- Some x │
00:08:14 #33113 [verbose] > │ let v89 : System.IO.DirectoryInfo = _v81.Value │
00:08:14 #33114 [verbose] > │ let v90 : bool option = None │
00:08:14 #33115 [verbose] > │ let mutable _v90 = v90 │
00:08:14 #33116 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33117 [verbose] > │ let v91 : bool = null |> unbox<bool> │
00:08:14 #33118 [verbose] > │ v91 │
00:08:14 #33119 [verbose] > │ #endif │
00:08:14 #33120 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33121 [verbose] > │ let v92 : bool = null |> unbox<bool> │
00:08:14 #33122 [verbose] > │ v92 │
00:08:14 #33123 [verbose] > │ #endif │
00:08:14 #33124 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33125 [verbose] > │ let v93 : bool = null |> unbox<bool> │
00:08:14 #33126 [verbose] > │ v93 │
00:08:14 #33127 [verbose] > │ #endif │
00:08:14 #33128 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33129 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33130 [verbose] > │ let v94 : bool = v89.Exists │
00:08:14 #33131 [verbose] > │ v94 │
00:08:14 #33132 [verbose] > │ #endif │
00:08:14 #33133 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33134 [verbose] > │ let v95 : bool = null |> unbox<bool> │
00:08:14 #33135 [verbose] > │ v95 │
00:08:14 #33136 [verbose] > │ #endif │
00:08:14 #33137 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33138 [verbose] > │ let v96 : bool = Unchecked.defaultof<bool> │
00:08:14 #33139 [verbose] > │ v96 │
00:08:14 #33140 [verbose] > │ #endif │
00:08:14 #33141 [verbose] > │ |> fun x -> _v90 <- Some x │
00:08:14 #33142 [verbose] > │ let v97 : bool = _v90.Value │
00:08:14 #33143 [verbose] > │ let v98 : bool = v97 = false │
00:08:14 #33144 [verbose] > │ if v98 then │
00:08:14 #33145 [verbose] > │ let v99 : System.DateTime option = None │
00:08:14 #33146 [verbose] > │ let mutable _v99 = v99 │
00:08:14 #33147 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33148 [verbose] > │ let v100 : System.DateTime = null |> unbox<System.DateTime> │
00:08:14 #33149 [verbose] > │ v100 │
00:08:14 #33150 [verbose] > │ #endif │
00:08:14 #33151 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33152 [verbose] > │ let v101 : System.DateTime = null |> unbox<System.DateTime> │
00:08:14 #33153 [verbose] > │ v101 │
00:08:14 #33154 [verbose] > │ #endif │
00:08:14 #33155 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33156 [verbose] > │ let v102 : System.DateTime = null |> unbox<System.DateTime> │
00:08:14 #33157 [verbose] > │ v102 │
00:08:14 #33158 [verbose] > │ #endif │
00:08:14 #33159 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33160 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33161 [verbose] > │ let v103 : System.DateTime = v89.CreationTime │
00:08:14 #33162 [verbose] > │ v103 │
00:08:14 #33163 [verbose] > │ #endif │
00:08:14 #33164 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33165 [verbose] > │ let v104 : System.DateTime = null |> unbox<System.DateTime> │
00:08:14 #33166 [verbose] > │ v104 │
00:08:14 #33167 [verbose] > │ #endif │
00:08:14 #33168 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #33169 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #33170 [verbose] > │ let v105 : System.DateTime = Unchecked.defaultof<System.DateTime> │
00:08:14 #33171 [verbose] > │ v105 │
00:08:14 #33172 [verbose] > │ #endif │
00:08:14 #33173 [verbose] > │ |> fun x -> _v99 <- Some x │
00:08:14 #33174 [verbose] > │ let v106 : System.DateTime = _v99.Value │
00:08:14 #33175 [verbose] > │ let v107 : obj = {| Exists = v97; CreationTime = v106 |} │
00:08:14 #33176 [verbose] > │ let v108 : string = $"%A{v107}" │
00:08:14 #33177 [verbose] > │ let v109 : (unit -> string) = closure35(v80, v108) │
00:08:14 #33178 [verbose] > │ let v110 : string = $"create_temp_directory / {v109 ()}" │
00:08:14 #33179 [verbose] > │ System.Console.WriteLine v110 │
00:08:14 #33180 [verbose] > │ () │
00:08:14 #33181 [verbose] > │ let v111 : System.IDisposable option = None │
00:08:14 #33182 [verbose] > │ let mutable _v111 = v111 │
00:08:14 #33183 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33184 [verbose] > │ let v112 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:14 #33185 [verbose] > │ v112 │
00:08:14 #33186 [verbose] > │ #endif │
00:08:14 #33187 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33188 [verbose] > │ let v113 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:14 #33189 [verbose] > │ v113 │
00:08:14 #33190 [verbose] > │ #endif │
00:08:14 #33191 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33192 [verbose] > │ let v114 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:14 #33193 [verbose] > │ v114 │
00:08:14 #33194 [verbose] > │ #endif │
00:08:14 #33195 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33196 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33197 [verbose] > │ let v115 : (unit -> unit) = closure36(v80) │
00:08:14 #33198 [verbose] > │ let v116 : System.IDisposable = { new System.IDisposable with member │
00:08:14 #33199 [verbose] > │ _.Dispose () = v115 () } │
00:08:14 #33200 [verbose] > │ v116 │
00:08:14 #33201 [verbose] > │ #endif │
00:08:14 #33202 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33203 [verbose] > │ let v117 : System.IDisposable = null |> unbox<System.IDisposable> │
00:08:14 #33204 [verbose] > │ v117 │
00:08:14 #33205 [verbose] > │ #endif │
00:08:14 #33206 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33207 [verbose] > │ let v118 : System.IDisposable = Unchecked.defaultof<System.IDisposable> │
00:08:14 #33208 [verbose] > │ v118 │
00:08:14 #33209 [verbose] > │ #endif │
00:08:14 #33210 [verbose] > │ |> fun x -> _v111 <- Some x │
00:08:14 #33211 [verbose] > │ let v119 : System.IDisposable = _v111.Value │
00:08:14 #33212 [verbose] > │ struct (v80, v119) │
00:08:14 #33213 [verbose] > │ #endif │
00:08:14 #33214 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33215 [verbose] > │ let struct (v120 : string, v121 : System.IDisposable) = null |> │
00:08:14 #33216 [verbose] > │ unbox<struct (string * System.IDisposable)> │
00:08:14 #33217 [verbose] > │ struct (v120, v121) │
00:08:14 #33218 [verbose] > │ #endif │
00:08:14 #33219 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33220 [verbose] > │ let struct (v122 : string, v123 : System.IDisposable) = │
00:08:14 #33221 [verbose] > │ Unchecked.defaultof<struct (string * System.IDisposable)> │
00:08:14 #33222 [verbose] > │ struct (v122, v123) │
00:08:14 #33223 [verbose] > │ #endif │
00:08:14 #33224 [verbose] > │ |> fun x -> _v0 <- Some x │
00:08:14 #33225 [verbose] > │ let struct (v124 : string, v125 : System.IDisposable) = _v0.Value │
00:08:14 #33226 [verbose] > │ struct (v124, v125) │
00:08:14 #33227 [verbose] > │ and closure37 () () : string = │
00:08:14 #33228 [verbose] > │ let v0 : string = __SOURCE_DIRECTORY__ │
00:08:14 #33229 [verbose] > │ v0 │
00:08:14 #33230 [verbose] > │ and closure41 () (v0 : string) : bool = │
00:08:14 #33231 [verbose] > │ let v1 : bool option = None │
00:08:14 #33232 [verbose] > │ let mutable _v1 = v1 │
00:08:14 #33233 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33234 [verbose] > │ let v2 : string = method5(v0) │
00:08:14 #33235 [verbose] > │ let v3 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #33236 [verbose] > │ let v4 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v2 v3 │
00:08:14 #33237 [verbose] > │ let v5 : string = "String::from($0)" │
00:08:14 #33238 [verbose] > │ let v6 : std_string_String = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:08:14 #33239 [verbose] > │ let v7 : string = "std::path::PathBuf::from($0)" │
00:08:14 #33240 [verbose] > │ let v8 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:08:14 #33241 [verbose] > │ let v9 : string = "$0.exists()" │
00:08:14 #33242 [verbose] > │ let v10 : bool = Fable.Core.RustInterop.emitRustExpr v8 v9 │
00:08:14 #33243 [verbose] > │ let v13 : bool = │
00:08:14 #33244 [verbose] > │ if v10 then │
00:08:14 #33245 [verbose] > │ let v11 : string = "$0.is_file()" │
00:08:14 #33246 [verbose] > │ let v12 : bool = Fable.Core.RustInterop.emitRustExpr v8 v11 │
00:08:14 #33247 [verbose] > │ v12 │
00:08:14 #33248 [verbose] > │ else │
00:08:14 #33249 [verbose] > │ false │
00:08:14 #33250 [verbose] > │ v13 │
00:08:14 #33251 [verbose] > │ #endif │
00:08:14 #33252 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33253 [verbose] > │ let v14 : bool = null |> unbox<bool> │
00:08:14 #33254 [verbose] > │ v14 │
00:08:14 #33255 [verbose] > │ #endif │
00:08:14 #33256 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33257 [verbose] > │ let v15 : bool = null |> unbox<bool> │
00:08:14 #33258 [verbose] > │ v15 │
00:08:14 #33259 [verbose] > │ #endif │
00:08:14 #33260 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33261 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33262 [verbose] > │ let v16 : (string -> bool) = System.IO.File.Exists │
00:08:14 #33263 [verbose] > │ let v17 : bool = v16 v0 │
00:08:14 #33264 [verbose] > │ v17 │
00:08:14 #33265 [verbose] > │ #endif │
00:08:14 #33266 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33267 [verbose] > │ let v18 : string = "fs" │
00:08:14 #33268 [verbose] > │ let v19 : IFsExistsSync = Fable.Core.JsInterop.importAll v18 │
00:08:14 #33269 [verbose] > │ let v20 : string = "v19.existsSync($0)" │
00:08:14 #33270 [verbose] > │ let v21 : bool = Fable.Core.JsInterop.emitJsExpr v0 v20 │
00:08:14 #33271 [verbose] > │ v21 │
00:08:14 #33272 [verbose] > │ #endif │
00:08:14 #33273 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33274 [verbose] > │ let v22 : bool = Unchecked.defaultof<bool> │
00:08:14 #33275 [verbose] > │ v22 │
00:08:14 #33276 [verbose] > │ #endif │
00:08:14 #33277 [verbose] > │ |> fun x -> _v1 <- Some x │
00:08:14 #33278 [verbose] > │ let v23 : bool = _v1.Value │
00:08:14 #33279 [verbose] > │ v23 │
00:08:14 #33280 [verbose] > │ and closure42 () (v0 : string) : bool = │
00:08:14 #33281 [verbose] > │ let v1 : bool option = None │
00:08:14 #33282 [verbose] > │ let mutable _v1 = v1 │
00:08:14 #33283 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33284 [verbose] > │ let v2 : string = method5(v0) │
00:08:14 #33285 [verbose] > │ let v3 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #33286 [verbose] > │ let v4 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v2 v3 │
00:08:14 #33287 [verbose] > │ let v5 : string = "String::from($0)" │
00:08:14 #33288 [verbose] > │ let v6 : std_string_String = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:08:14 #33289 [verbose] > │ let v7 : string = "std::path::PathBuf::from($0)" │
00:08:14 #33290 [verbose] > │ let v8 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:08:14 #33291 [verbose] > │ let v9 : string = "$0.exists()" │
00:08:14 #33292 [verbose] > │ let v10 : bool = Fable.Core.RustInterop.emitRustExpr v8 v9 │
00:08:14 #33293 [verbose] > │ let v13 : bool = │
00:08:14 #33294 [verbose] > │ if v10 then │
00:08:14 #33295 [verbose] > │ let v11 : string = "$0.is_dir()" │
00:08:14 #33296 [verbose] > │ let v12 : bool = Fable.Core.RustInterop.emitRustExpr v8 v11 │
00:08:14 #33297 [verbose] > │ v12 │
00:08:14 #33298 [verbose] > │ else │
00:08:14 #33299 [verbose] > │ false │
00:08:14 #33300 [verbose] > │ v13 │
00:08:14 #33301 [verbose] > │ #endif │
00:08:14 #33302 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33303 [verbose] > │ let v14 : bool = null |> unbox<bool> │
00:08:14 #33304 [verbose] > │ v14 │
00:08:14 #33305 [verbose] > │ #endif │
00:08:14 #33306 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33307 [verbose] > │ let v15 : bool = null |> unbox<bool> │
00:08:14 #33308 [verbose] > │ v15 │
00:08:14 #33309 [verbose] > │ #endif │
00:08:14 #33310 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33311 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33312 [verbose] > │ let v16 : (string -> bool) = System.IO.Directory.Exists │
00:08:14 #33313 [verbose] > │ let v17 : bool = v16 v0 │
00:08:14 #33314 [verbose] > │ v17 │
00:08:14 #33315 [verbose] > │ #endif │
00:08:14 #33316 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33317 [verbose] > │ let v18 : string = "fs" │
00:08:14 #33318 [verbose] > │ let v19 : IFsExistsSync = Fable.Core.JsInterop.importAll v18 │
00:08:14 #33319 [verbose] > │ let v20 : string = "v19.existsSync($0)" │
00:08:14 #33320 [verbose] > │ let v21 : bool = Fable.Core.JsInterop.emitJsExpr v0 v20 │
00:08:14 #33321 [verbose] > │ v21 │
00:08:14 #33322 [verbose] > │ #endif │
00:08:14 #33323 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33324 [verbose] > │ let v22 : bool = Unchecked.defaultof<bool> │
00:08:14 #33325 [verbose] > │ v22 │
00:08:14 #33326 [verbose] > │ #endif │
00:08:14 #33327 [verbose] > │ |> fun x -> _v1 <- Some x │
00:08:14 #33328 [verbose] > │ let v23 : bool = _v1.Value │
00:08:14 #33329 [verbose] > │ v23 │
00:08:14 #33330 [verbose] > │ and closure43 () (v0 : string) : string option = │
00:08:14 #33331 [verbose] > │ let v1 : US8 option = None │
00:08:14 #33332 [verbose] > │ let mutable _v1 = v1 │
00:08:14 #33333 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33334 [verbose] > │ let v2 : string = method5(v0) │
00:08:14 #33335 [verbose] > │ let v3 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #33336 [verbose] > │ let v4 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v2 v3 │
00:08:14 #33337 [verbose] > │ let v5 : string = "String::from($0)" │
00:08:14 #33338 [verbose] > │ let v6 : std_string_String = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:08:14 #33339 [verbose] > │ let v7 : string = "std::path::PathBuf::from($0)" │
00:08:14 #33340 [verbose] > │ let v8 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:08:14 #33341 [verbose] > │ let v9 : string = "$0.parent().map(std::path::PathBuf::from)" │
00:08:14 #33342 [verbose] > │ let v10 : std_path_PathBuf option = Fable.Core.RustInterop.emitRustExpr │
00:08:14 #33343 [verbose] > │ v8 v9 │
00:08:14 #33344 [verbose] > │ let v11 : string = "$0?" │
00:08:14 #33345 [verbose] > │ let v12 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v10 v11 │
00:08:14 #33346 [verbose] > │ let v13 : string = "$0.display().to_string()" │
00:08:14 #33347 [verbose] > │ let v14 : std_string_String = Fable.Core.RustInterop.emitRustExpr v12 │
00:08:14 #33348 [verbose] > │ v13 │
00:08:14 #33349 [verbose] > │ let v15 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 #33350 [verbose] > │ let v16 : string = Fable.Core.RustInterop.emitRustExpr v14 v15 │
00:08:14 #33351 [verbose] > │ let v17 : US8 = US8_0(v16) │
00:08:14 #33352 [verbose] > │ v17 │
00:08:14 #33353 [verbose] > │ #endif │
00:08:14 #33354 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33355 [verbose] > │ let v18 : US8 = null |> unbox<US8> │
00:08:14 #33356 [verbose] > │ v18 │
00:08:14 #33357 [verbose] > │ #endif │
00:08:14 #33358 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33359 [verbose] > │ let v19 : US8 = null |> unbox<US8> │
00:08:14 #33360 [verbose] > │ v19 │
00:08:14 #33361 [verbose] > │ #endif │
00:08:14 #33362 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33363 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33364 [verbose] > │ let v20 : (string -> System.IO.DirectoryInfo) = │
00:08:14 #33365 [verbose] > │ System.IO.Directory.GetParent │
00:08:14 #33366 [verbose] > │ let v21 : System.IO.DirectoryInfo = v20 v0 │
00:08:14 #33367 [verbose] > │ let v22 : System.IO.DirectoryInfo = null |> │
00:08:14 #33368 [verbose] > │ unbox<System.IO.DirectoryInfo> │
00:08:14 #33369 [verbose] > │ let v23 : bool = v21 = v22 │
00:08:14 #33370 [verbose] > │ let v34 : US8 = │
00:08:14 #33371 [verbose] > │ if v23 then │
00:08:14 #33372 [verbose] > │ US8_1 │
00:08:14 #33373 [verbose] > │ else │
00:08:14 #33374 [verbose] > │ let v25 : string option = None │
00:08:14 #33375 [verbose] > │ let mutable _v25 = v25 │
00:08:14 #33376 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33377 [verbose] > │ let v26 : string = null |> unbox<string> │
00:08:14 #33378 [verbose] > │ v26 │
00:08:14 #33379 [verbose] > │ #endif │
00:08:14 #33380 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33381 [verbose] > │ let v27 : string = null |> unbox<string> │
00:08:14 #33382 [verbose] > │ v27 │
00:08:14 #33383 [verbose] > │ #endif │
00:08:14 #33384 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33385 [verbose] > │ let v28 : string = null |> unbox<string> │
00:08:14 #33386 [verbose] > │ v28 │
00:08:14 #33387 [verbose] > │ #endif │
00:08:14 #33388 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33389 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33390 [verbose] > │ let v29 : string = v21.FullName │
00:08:14 #33391 [verbose] > │ v29 │
00:08:14 #33392 [verbose] > │ #endif │
00:08:14 #33393 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33394 [verbose] > │ let v30 : string = null |> unbox<string> │
00:08:14 #33395 [verbose] > │ v30 │
00:08:14 #33396 [verbose] > │ #endif │
00:08:14 #33397 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:08:14 #33398 [verbose] > │ FABLE_COMPILER_DART │
00:08:14 #33399 [verbose] > │ let v31 : string = Unchecked.defaultof<string> │
00:08:14 #33400 [verbose] > │ v31 │
00:08:14 #33401 [verbose] > │ #endif │
00:08:14 #33402 [verbose] > │ |> fun x -> _v25 <- Some x │
00:08:14 #33403 [verbose] > │ let v32 : string = _v25.Value │
00:08:14 #33404 [verbose] > │ US8_0(v32) │
00:08:14 #33405 [verbose] > │ v34 │
00:08:14 #33406 [verbose] > │ #endif │
00:08:14 #33407 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33408 [verbose] > │ let v35 : string = "path" │
00:08:14 #33409 [verbose] > │ let v36 : IPathDirname = Fable.Core.JsInterop.importAll v35 │
00:08:14 #33410 [verbose] > │ let v37 : string = "v36.dirname($0)" │
00:08:14 #33411 [verbose] > │ let v38 : string = Fable.Core.JsInterop.emitJsExpr v0 v37 │
00:08:14 #33412 [verbose] > │ let v39 : US8 = US8_0(v38) │
00:08:14 #33413 [verbose] > │ v39 │
00:08:14 #33414 [verbose] > │ #endif │
00:08:14 #33415 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33416 [verbose] > │ let v40 : US8 = Unchecked.defaultof<US8> │
00:08:14 #33417 [verbose] > │ v40 │
00:08:14 #33418 [verbose] > │ #endif │
00:08:14 #33419 [verbose] > │ |> fun x -> _v1 <- Some x │
00:08:14 #33420 [verbose] > │ let v41 : US8 = _v1.Value │
00:08:14 #33421 [verbose] > │ match v41 with │
00:08:14 #33422 [verbose] > │ | US8_1 -> (* None *) │
00:08:14 #33423 [verbose] > │ let v44 : string option = None │
00:08:14 #33424 [verbose] > │ v44 │
00:08:14 #33425 [verbose] > │ | US8_0(v42) -> (* Some *) │
00:08:14 #33426 [verbose] > │ let v43 : string option = Some v42 │
00:08:14 #33427 [verbose] > │ v43 │
00:08:14 #33428 [verbose] > │ and method17 () : (string -> string option) = │
00:08:14 #33429 [verbose] > │ closure43() │
00:08:14 #33430 [verbose] > │ and closure44 () (v0 : string) : US8 = │
00:08:14 #33431 [verbose] > │ US8_0(v0) │
00:08:14 #33432 [verbose] > │ and method18 () : (string -> US8) = │
00:08:14 #33433 [verbose] > │ closure44() │
00:08:14 #33434 [verbose] > │ and method19 (v0 : string, v1 : bool, v2 : string, v3 : string) : string = │
00:08:14 #33435 [verbose] > │ let v4 : string option = None │
00:08:14 #33436 [verbose] > │ let mutable _v4 = v4 │
00:08:14 #33437 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33438 [verbose] > │ let v5 : string = method5(v3) │
00:08:14 #33439 [verbose] > │ let v6 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #33440 [verbose] > │ let v7 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:08:14 #33441 [verbose] > │ let v8 : string = "String::from($0)" │
00:08:14 #33442 [verbose] > │ let v9 : std_string_String = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:08:14 #33443 [verbose] > │ let v10 : string = "std::path::PathBuf::from($0)" │
00:08:14 #33444 [verbose] > │ let v11 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v9 v10 │
00:08:14 #33445 [verbose] > │ let v12 : string = method5(v0) │
00:08:14 #33446 [verbose] > │ let v13 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #33447 [verbose] > │ let v14 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v12 v13 │
00:08:14 #33448 [verbose] > │ let v15 : string = "String::from($0)" │
00:08:14 #33449 [verbose] > │ let v16 : std_string_String = Fable.Core.RustInterop.emitRustExpr v14 │
00:08:14 #33450 [verbose] > │ v15 │
00:08:14 #33451 [verbose] > │ let v17 : string = "$0.join($1)" │
00:08:14 #33452 [verbose] > │ let v18 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:14 #33453 [verbose] > │ (v11, v16) v17 │
00:08:14 #33454 [verbose] > │ let v19 : string = "$0.display().to_string()" │
00:08:14 #33455 [verbose] > │ let v20 : std_string_String = Fable.Core.RustInterop.emitRustExpr v18 │
00:08:14 #33456 [verbose] > │ v19 │
00:08:14 #33457 [verbose] > │ let v21 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 #33458 [verbose] > │ let v22 : string = Fable.Core.RustInterop.emitRustExpr v20 v21 │
00:08:14 #33459 [verbose] > │ v22 │
00:08:14 #33460 [verbose] > │ #endif │
00:08:14 #33461 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33462 [verbose] > │ let v23 : string = null |> unbox<string> │
00:08:14 #33463 [verbose] > │ v23 │
00:08:14 #33464 [verbose] > │ #endif │
00:08:14 #33465 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33466 [verbose] > │ let v24 : string = null |> unbox<string> │
00:08:14 #33467 [verbose] > │ v24 │
00:08:14 #33468 [verbose] > │ #endif │
00:08:14 #33469 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33470 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33471 [verbose] > │ let v25 : string = System.IO.Path.Combine (v3, v0) │
00:08:14 #33472 [verbose] > │ v25 │
00:08:14 #33473 [verbose] > │ #endif │
00:08:14 #33474 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33475 [verbose] > │ let v26 : string = "path" │
00:08:14 #33476 [verbose] > │ let v27 : IPathJoin = Fable.Core.JsInterop.importAll v26 │
00:08:14 #33477 [verbose] > │ let v28 : string = "v27.join($0, $1)" │
00:08:14 #33478 [verbose] > │ let v29 : string = Fable.Core.JsInterop.emitJsExpr struct (v3, v0) v28 │
00:08:14 #33479 [verbose] > │ v29 │
00:08:14 #33480 [verbose] > │ #endif │
00:08:14 #33481 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33482 [verbose] > │ let v30 : string = Unchecked.defaultof<string> │
00:08:14 #33483 [verbose] > │ v30 │
00:08:14 #33484 [verbose] > │ #endif │
00:08:14 #33485 [verbose] > │ |> fun x -> _v4 <- Some x │
00:08:14 #33486 [verbose] > │ let v31 : string = _v4.Value │
00:08:14 #33487 [verbose] > │ let v34 : (string -> bool) = │
00:08:14 #33488 [verbose] > │ if v1 then │
00:08:14 #33489 [verbose] > │ closure41() │
00:08:14 #33490 [verbose] > │ else │
00:08:14 #33491 [verbose] > │ closure42() │
00:08:14 #33492 [verbose] > │ let v35 : bool = v34 v31 │
00:08:14 #33493 [verbose] > │ if v35 then │
00:08:14 #33494 [verbose] > │ v3 │
00:08:14 #33495 [verbose] > │ else │
00:08:14 #33496 [verbose] > │ let v36 : (string -> string option) = method17() │
00:08:14 #33497 [verbose] > │ let v37 : string option = v36 v3 │
00:08:14 #33498 [verbose] > │ let v38 : (string -> US8) = method18() │
00:08:14 #33499 [verbose] > │ let v39 : US8 = US8_1 │
00:08:14 #33500 [verbose] > │ let v40 : US8 = v37 |> Option.map v38 |> Option.defaultValue v39 │
00:08:14 #33501 [verbose] > │ match v40 with │
00:08:14 #33502 [verbose] > │ | US8_1 -> (* None *) │
00:08:14 #33503 [verbose] > │ let v43 : string = $"""No parent for {if v1 then "file" else │
00:08:14 #33504 [verbose] > │ "dir"} '{v0}' at '{v2}' (until '{v3}')""" │
00:08:14 #33505 [verbose] > │ failwith<string> v43 │
00:08:14 #33506 [verbose] > │ | US8_0(v41) -> (* Some *) │
00:08:14 #33507 [verbose] > │ method19(v0, v1, v2, v41) │
00:08:14 #33508 [verbose] > │ and method16 (v0 : string, v1 : bool, v2 : string) : string = │
00:08:14 #33509 [verbose] > │ let v3 : string option = None │
00:08:14 #33510 [verbose] > │ let mutable _v3 = v3 │
00:08:14 #33511 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33512 [verbose] > │ let v4 : string = method5(v2) │
00:08:14 #33513 [verbose] > │ let v5 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #33514 [verbose] > │ let v6 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v4 v5 │
00:08:14 #33515 [verbose] > │ let v7 : string = "String::from($0)" │
00:08:14 #33516 [verbose] > │ let v8 : std_string_String = Fable.Core.RustInterop.emitRustExpr v6 v7 │
00:08:14 #33517 [verbose] > │ let v9 : string = "std::path::PathBuf::from($0)" │
00:08:14 #33518 [verbose] > │ let v10 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v8 v9 │
00:08:14 #33519 [verbose] > │ let v11 : string = method5(v0) │
00:08:14 #33520 [verbose] > │ let v12 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #33521 [verbose] > │ let v13 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v11 v12 │
00:08:14 #33522 [verbose] > │ let v14 : string = "String::from($0)" │
00:08:14 #33523 [verbose] > │ let v15 : std_string_String = Fable.Core.RustInterop.emitRustExpr v13 │
00:08:14 #33524 [verbose] > │ v14 │
00:08:14 #33525 [verbose] > │ let v16 : string = "$0.join($1)" │
00:08:14 #33526 [verbose] > │ let v17 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:14 #33527 [verbose] > │ (v10, v15) v16 │
00:08:14 #33528 [verbose] > │ let v18 : string = "$0.display().to_string()" │
00:08:14 #33529 [verbose] > │ let v19 : std_string_String = Fable.Core.RustInterop.emitRustExpr v17 │
00:08:14 #33530 [verbose] > │ v18 │
00:08:14 #33531 [verbose] > │ let v20 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 #33532 [verbose] > │ let v21 : string = Fable.Core.RustInterop.emitRustExpr v19 v20 │
00:08:14 #33533 [verbose] > │ v21 │
00:08:14 #33534 [verbose] > │ #endif │
00:08:14 #33535 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33536 [verbose] > │ let v22 : string = null |> unbox<string> │
00:08:14 #33537 [verbose] > │ v22 │
00:08:14 #33538 [verbose] > │ #endif │
00:08:14 #33539 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33540 [verbose] > │ let v23 : string = null |> unbox<string> │
00:08:14 #33541 [verbose] > │ v23 │
00:08:14 #33542 [verbose] > │ #endif │
00:08:14 #33543 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33544 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33545 [verbose] > │ let v24 : string = System.IO.Path.Combine (v2, v0) │
00:08:14 #33546 [verbose] > │ v24 │
00:08:14 #33547 [verbose] > │ #endif │
00:08:14 #33548 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33549 [verbose] > │ let v25 : string = "path" │
00:08:14 #33550 [verbose] > │ let v26 : IPathJoin = Fable.Core.JsInterop.importAll v25 │
00:08:14 #33551 [verbose] > │ let v27 : string = "v26.join($0, $1)" │
00:08:14 #33552 [verbose] > │ let v28 : string = Fable.Core.JsInterop.emitJsExpr struct (v2, v0) v27 │
00:08:14 #33553 [verbose] > │ v28 │
00:08:14 #33554 [verbose] > │ #endif │
00:08:14 #33555 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33556 [verbose] > │ let v29 : string = Unchecked.defaultof<string> │
00:08:14 #33557 [verbose] > │ v29 │
00:08:14 #33558 [verbose] > │ #endif │
00:08:14 #33559 [verbose] > │ |> fun x -> _v3 <- Some x │
00:08:14 #33560 [verbose] > │ let v30 : string = _v3.Value │
00:08:14 #33561 [verbose] > │ let v33 : (string -> bool) = │
00:08:14 #33562 [verbose] > │ if v1 then │
00:08:14 #33563 [verbose] > │ closure41() │
00:08:14 #33564 [verbose] > │ else │
00:08:14 #33565 [verbose] > │ closure42() │
00:08:14 #33566 [verbose] > │ let v34 : bool = v33 v30 │
00:08:14 #33567 [verbose] > │ if v34 then │
00:08:14 #33568 [verbose] > │ v2 │
00:08:14 #33569 [verbose] > │ else │
00:08:14 #33570 [verbose] > │ let v35 : (string -> string option) = method17() │
00:08:14 #33571 [verbose] > │ let v36 : string option = v35 v2 │
00:08:14 #33572 [verbose] > │ let v37 : (string -> US8) = method18() │
00:08:14 #33573 [verbose] > │ let v38 : US8 = US8_1 │
00:08:14 #33574 [verbose] > │ let v39 : US8 = v36 |> Option.map v37 |> Option.defaultValue v38 │
00:08:14 #33575 [verbose] > │ match v39 with │
00:08:14 #33576 [verbose] > │ | US8_1 -> (* None *) │
00:08:14 #33577 [verbose] > │ let v42 : string = $"""No parent for {if v1 then "file" else │
00:08:14 #33578 [verbose] > │ "dir"} '{v0}' at '{v2}' (until '{v2}')""" │
00:08:14 #33579 [verbose] > │ failwith<string> v42 │
00:08:14 #33580 [verbose] > │ | US8_0(v40) -> (* Some *) │
00:08:14 #33581 [verbose] > │ method19(v0, v1, v2, v40) │
00:08:14 #33582 [verbose] > │ and closure40 (v0 : string, v1 : bool) (v2 : string) : string = │
00:08:14 #33583 [verbose] > │ method16(v0, v1, v2) │
00:08:14 #33584 [verbose] > │ and closure39 (v0 : string) (v1 : bool) : (string -> string) = │
00:08:14 #33585 [verbose] > │ closure40(v0, v1) │
00:08:14 #33586 [verbose] > │ and closure38 () (v0 : string) : (bool -> (string -> string)) = │
00:08:14 #33587 [verbose] > │ closure39(v0) │
00:08:14 #33588 [verbose] > │ and closure46 (v0 : string) (v1 : string) : string = │
00:08:14 #33589 [verbose] > │ let v2 : string option = None │
00:08:14 #33590 [verbose] > │ let mutable _v2 = v2 │
00:08:14 #33591 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33592 [verbose] > │ let v3 : string = method5(v0) │
00:08:14 #33593 [verbose] > │ let v4 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #33594 [verbose] > │ let v5 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v3 v4 │
00:08:14 #33595 [verbose] > │ let v6 : string = "String::from($0)" │
00:08:14 #33596 [verbose] > │ let v7 : std_string_String = Fable.Core.RustInterop.emitRustExpr v5 v6 │
00:08:14 #33597 [verbose] > │ let v8 : string = "std::path::PathBuf::from($0)" │
00:08:14 #33598 [verbose] > │ let v9 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr v7 v8 │
00:08:14 #33599 [verbose] > │ let v10 : string = method5(v1) │
00:08:14 #33600 [verbose] > │ let v11 : string = "fable_library_rust::String_::LrcStr::as_str(&$0)" │
00:08:14 #33601 [verbose] > │ let v12 : Ref<Str> = Fable.Core.RustInterop.emitRustExpr v10 v11 │
00:08:14 #33602 [verbose] > │ let v13 : string = "String::from($0)" │
00:08:14 #33603 [verbose] > │ let v14 : std_string_String = Fable.Core.RustInterop.emitRustExpr v12 │
00:08:14 #33604 [verbose] > │ v13 │
00:08:14 #33605 [verbose] > │ let v15 : string = "$0.join($1)" │
00:08:14 #33606 [verbose] > │ let v16 : std_path_PathBuf = Fable.Core.RustInterop.emitRustExpr struct │
00:08:14 #33607 [verbose] > │ (v9, v14) v15 │
00:08:14 #33608 [verbose] > │ let v17 : string = "$0.display().to_string()" │
00:08:14 #33609 [verbose] > │ let v18 : std_string_String = Fable.Core.RustInterop.emitRustExpr v16 │
00:08:14 #33610 [verbose] > │ v17 │
00:08:14 #33611 [verbose] > │ let v19 : string = "fable_library_rust::String_::fromString($0)" │
00:08:14 #33612 [verbose] > │ let v20 : string = Fable.Core.RustInterop.emitRustExpr v18 v19 │
00:08:14 #33613 [verbose] > │ v20 │
00:08:14 #33614 [verbose] > │ #endif │
00:08:14 #33615 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33616 [verbose] > │ let v21 : string = null |> unbox<string> │
00:08:14 #33617 [verbose] > │ v21 │
00:08:14 #33618 [verbose] > │ #endif │
00:08:14 #33619 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33620 [verbose] > │ let v22 : string = null |> unbox<string> │
00:08:14 #33621 [verbose] > │ v22 │
00:08:14 #33622 [verbose] > │ #endif │
00:08:14 #33623 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:08:14 #33624 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:08:14 #33625 [verbose] > │ let v23 : string = System.IO.Path.Combine (v0, v1) │
00:08:14 #33626 [verbose] > │ v23 │
00:08:14 #33627 [verbose] > │ #endif │
00:08:14 #33628 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33629 [verbose] > │ let v24 : string = "path" │
00:08:14 #33630 [verbose] > │ let v25 : IPathJoin = Fable.Core.JsInterop.importAll v24 │
00:08:14 #33631 [verbose] > │ let v26 : string = "v25.join($0, $1)" │
00:08:14 #33632 [verbose] > │ let v27 : string = Fable.Core.JsInterop.emitJsExpr struct (v0, v1) v26 │
00:08:14 #33633 [verbose] > │ v27 │
00:08:14 #33634 [verbose] > │ #endif │
00:08:14 #33635 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33636 [verbose] > │ let v28 : string = Unchecked.defaultof<string> │
00:08:14 #33637 [verbose] > │ v28 │
00:08:14 #33638 [verbose] > │ #endif │
00:08:14 #33639 [verbose] > │ |> fun x -> _v2 <- Some x │
00:08:14 #33640 [verbose] > │ let v29 : string = _v2.Value │
00:08:14 #33641 [verbose] > │ v29 │
00:08:14 #33642 [verbose] > │ and closure45 () (v0 : string) : (string -> string) = │
00:08:14 #33643 [verbose] > │ closure46(v0) │
00:08:14 #33644 [verbose] > │ let v0 : unit option = None │
00:08:14 #33645 [verbose] > │ let mutable _v0 = v0 │
00:08:14 #33646 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:08:14 #33647 [verbose] > │ () │
00:08:14 #33648 [verbose] > │ #endif │
00:08:14 #33649 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:08:14 #33650 [verbose] > │ () │
00:08:14 #33651 [verbose] > │ #endif │
00:08:14 #33652 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:08:14 #33653 [verbose] > │ () │
00:08:14 #33654 [verbose] > │ #endif │
00:08:14 #33655 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT && │
00:08:14 #33656 [verbose] > │ !WASM && !CONTRACT │
00:08:14 #33657 [verbose] > │ let v1 : (string -> Async<int64>) = closure0() │
00:08:14 #33658 [verbose] > │ let delete_directory_async x = v1 x │
00:08:14 #33659 [verbose] > │ let v2 : (US0 -> (string -> Async<int64>)) = closure4() │
00:08:14 #33660 [verbose] > │ let wait_for_file_access x = v2 x │
00:08:14 #33661 [verbose] > │ let v3 : (string -> Async<int64>) = closure7() │
00:08:14 #33662 [verbose] > │ let wait_for_file_access_read x = v3 x │
00:08:14 #33663 [verbose] > │ let v4 : (string -> Async<string>) = closure8() │
00:08:14 #33664 [verbose] > │ let read_all_text_async x = v4 x │
00:08:14 #33665 [verbose] > │ let v5 : (string -> (string -> Async<bool>)) = closure9() │
00:08:14 #33666 [verbose] > │ let file_exists_content x = v5 x │
00:08:14 #33667 [verbose] > │ let v6 : (string -> (string -> Async<unit>)) = closure11() │
00:08:14 #33668 [verbose] > │ let write_all_text_async x = v6 x │
00:08:14 #33669 [verbose] > │ let v7 : (string -> (string -> Async<unit>)) = closure13() │
00:08:14 #33670 [verbose] > │ let write_all_text_exists x = v7 x │
00:08:14 #33671 [verbose] > │ let v8 : (string -> Async<int64>) = closure15() │
00:08:14 #33672 [verbose] > │ let delete_file_async x = v8 x │
00:08:14 #33673 [verbose] > │ let v9 : (string -> (string -> Async<int64>)) = closure20() │
00:08:14 #33674 [verbose] > │ let move_file_async x = v9 x │
00:08:14 #33675 [verbose] > │ let v10 : (string -> Async<string option>) = closure24() │
00:08:14 #33676 [verbose] > │ let read_all_text_retry_async x = v10 x │
00:08:14 #33677 [verbose] > │ () │
00:08:14 #33678 [verbose] > │ #endif │
00:08:14 #33679 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:08:14 #33680 [verbose] > │ () │
00:08:14 #33681 [verbose] > │ #endif │
00:08:14 #33682 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || FABLE_COMPILER_DART │
00:08:14 #33683 [verbose] > │ Unchecked.defaultof<unit> │
00:08:14 #33684 [verbose] > │ () │
00:08:14 #33685 [verbose] > │ #endif │
00:08:14 #33686 [verbose] > │ |> fun x -> _v0 <- Some x │
00:08:14 #33687 [verbose] > │ _v0.Value │
00:08:14 #33688 [verbose] > │ let v11 : (unit -> string) = closure32() │
00:08:14 #33689 [verbose] > │ let create_temp_directory_name () = v11 () │
00:08:14 #33690 [verbose] > │ let v12 : (unit -> struct (string * System.IDisposable)) = closure34() │
00:08:14 #33691 [verbose] > │ let create_temp_directory () = v12 () │
00:08:14 #33692 [verbose] > │ let v13 : (unit -> string) = closure37() │
00:08:14 #33693 [verbose] > │ let get_source_directory () = v13 () │
00:08:14 #33694 [verbose] > │ let v14 : (string -> (bool -> (string -> string))) = closure38() │
00:08:14 #33695 [verbose] > │ let find_parent x = v14 x │
00:08:14 #33696 [verbose] > │ let v15 : (string -> (string -> string)) = closure45() │
00:08:14 #33697 [verbose] > │ let (</>) x = v15 x │
00:08:14 #33698 [verbose] > │ () │
00:08:14 #33699 [verbose] > │ │
00:08:14 #33700 [verbose] > │ │
00:08:14 #33701 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:16 #33702 [verbose] > [NbConvertApp] Converting notebook file_system.dib.ipynb to html
00:08:16 #33703 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:08:16 #33704 [verbose] > validate(nb)
00:08:17 #33705 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:08:17 #33706 [verbose] > return _pygments_highlight(
00:08:18 #33707 [verbose] > [NbConvertApp] Writing 952854 bytes to file_system.dib.html
00:08:19 #33708 [debug] executeAsync / exitCode: 0 / output.Length: 1138454
00:08:19 #33709 [debug] main / executeCommand / exitCode: 0
00:08:19 #33710 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 rust.dib" -Retries 3"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:08:22 #33711 [verbose] >
00:08:22 #33712 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:22 #33713 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:22 #33714 [verbose] > │ # rust │
00:08:22 #33715 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:22 #33716 [verbose] >
00:08:22 #33717 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:22 #33718 [verbose] > // // test
00:08:22 #33719 [verbose] >
00:08:22 #33720 [verbose] > open testing
00:08:25 #33721 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:08:26 #33722 [verbose] >
00:08:26 #33723 [verbose] > ╭─[ 4.06s - stdout ]───────────────────────────────────────────────────────────╮
00:08:26 #33724 [verbose] > │ () │
00:08:26 #33725 [verbose] > │ │
00:08:26 #33726 [verbose] > │ │
00:08:26 #33727 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:26 #33728 [verbose] >
00:08:26 #33729 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:26 #33730 [verbose] > inl types () =
00:08:26 #33731 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Func0<$0>\")>]] type
00:08:26 #33732 [verbose] > Func0<'T> = class end"
00:08:26 #33733 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Func1<$0, $1>\")>]] type
00:08:26 #33734 [verbose] > Func0<'T, 'U> = class end"
00:08:26 #33735 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Box<$0>\")>]] type Box<'T> =
00:08:26 #33736 [verbose] > class end"
00:08:26 #33737 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"dyn $0\")>]] type Dyn<'T> =
00:08:26 #33738 [verbose] > class end"
00:08:26 #33739 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn() -> $0\")>]] type Fn<'T>
00:08:26 #33740 [verbose] > = class end"
00:08:26 #33741 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn()\")>]] type FnUnit =
00:08:26 #33742 [verbose] > class end"
00:08:26 #33743 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"FnOnce() -> $0\")>]] type
00:08:26 #33744 [verbose] > FnOnce<'T> = class end"
00:08:26 #33745 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"Fn($0, $1)\")>]] type
00:08:26 #33746 [verbose] > ActionFn2<'T, 'U> = class end"
00:08:26 #33747 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"impl $0\")>]] type Impl<'T> =
00:08:26 #33748 [verbose] > class end"
00:08:26 #33749 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"mut $0\")>]] type Mut<'T> =
00:08:26 #33750 [verbose] > class end"
00:08:26 #33751 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"&$0\")>]] type Ref<'T> =
00:08:26 #33752 [verbose] > class end"
00:08:26 #33753 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"&'static $0\")>]] type
00:08:26 #33754 [verbose] > StaticRef<'T> = class end"
00:08:26 #33755 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"MutCell<$0>\")>]] type
00:08:26 #33756 [verbose] > MutCell<'T> = class end"
00:08:26 #33757 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::any::Any\")>]] type
00:08:26 #33758 [verbose] > std_any_Any = class end"
00:08:26 #33759 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::cell::RefCell<$0>\")>]]
00:08:26 #33760 [verbose] > type std_cell_RefCell<'T> = class end"
00:08:26 #33761 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::pin::Pin<$0>\")>]] type
00:08:26 #33762 [verbose] > std_pin_Pin<'T> = class end"
00:08:26 #33763 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::rc::Rc<$0>\")>]] type
00:08:26 #33764 [verbose] > std_rc_Rc<'T> = class end"
00:08:26 #33765 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::rc::Weak<$0>\")>]] type
00:08:26 #33766 [verbose] > std_rc_Weak<'T> = class end"
00:08:26 #33767 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::sync::Arc<$0>\")>]] type
00:08:26 #33768 [verbose] > std_sync_Arc<'T> = class end"
00:08:26 #33769 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3e20d3e3caeadf90605cf83818836a8b0dcdcf1b00a032a9e93bfb17b605aefb\main.spi
00:08:26 #33770 [verbose] >
00:08:26 #33771 [verbose] > ╭─[ 232.25ms - stdout ]────────────────────────────────────────────────────────╮
00:08:26 #33772 [verbose] > │ () │
00:08:26 #33773 [verbose] > │ │
00:08:26 #33774 [verbose] > │ │
00:08:26 #33775 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:26 #33776 [verbose] >
00:08:26 #33777 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:26 #33778 [verbose] > nominal ref_cell t = $"std_cell_RefCell<`t>"
00:08:26 #33779 [verbose] > nominal rc t = $"std_rc_Rc<`t>"
00:08:26 #33780 [verbose] > nominal weak_rc t = $"std_rc_Weak<`t>"
00:08:26 #33781 [verbose] > nominal box t = $"Box<`t>"
00:08:26 #33782 [verbose] > nominal mut_cell t = $"MutCell<`t>"
00:08:26 #33783 [verbose] > nominal pin t = $"std_pin_Pin<`t>"
00:08:26 #33784 [verbose] > nominal arc t = $"std_sync_Arc<`t>"
00:08:26 #33785 [verbose] > nominal dyn' t = $"Dyn<`t>"
00:08:26 #33786 [verbose] > nominal fn' t = $"Fn<`t>"
00:08:26 #33787 [verbose] > nominal action_fn2 t u = $"ActionFn2<`t, `u>"
00:08:26 #33788 [verbose] > nominal fn_once t = $"FnOnce<`t>"
00:08:26 #33789 [verbose] > nominal fn_unit = $"FnUnit"
00:08:26 #33790 [verbose] > nominal func0 t = $"Func0<`t>"
00:08:26 #33791 [verbose] > nominal func1 t u = $"Func0<`t, `u>"
00:08:26 #33792 [verbose] > nominal impl t = $"Impl<`t>"
00:08:26 #33793 [verbose] > nominal mut' t = $"Mut<`t>"
00:08:26 #33794 [verbose] > nominal ref' t = $"Ref<`t>"
00:08:26 #33795 [verbose] > nominal static_ref' t = $"StaticRef<`t>"
00:08:26 #33796 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\df9de4a83d249a050dd047d71fcda7af056c90e88daebc86b809bc739c47e9fd\main.spi
00:08:26 #33797 [verbose] >
00:08:26 #33798 [verbose] > ╭─[ 283.18ms - stdout ]────────────────────────────────────────────────────────╮
00:08:26 #33799 [verbose] > │ () │
00:08:26 #33800 [verbose] > │ │
00:08:26 #33801 [verbose] > │ │
00:08:26 #33802 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:26 #33803 [verbose] >
00:08:26 #33804 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:26 #33805 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:26 #33806 [verbose] > │ ## emit_expr │
00:08:26 #33807 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:26 #33808 [verbose] >
00:08:26 #33809 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:26 #33810 [verbose] > inl emit_expr forall a t. (args : a) (code : string) : t =
00:08:26 #33811 [verbose] > real
00:08:26 #33812 [verbose] > $"Fable.Core.RustInterop.emitRustExpr !args !code" : t
00:08:26 #33813 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\713ea7ed29648ee169800dcb141af81be3a4cbf4a6b811a1ede2bf02689796a0\main.spi
00:08:26 #33814 [verbose] >
00:08:26 #33815 [verbose] > ╭─[ 238.27ms - stdout ]────────────────────────────────────────────────────────╮
00:08:26 #33816 [verbose] > │ () │
00:08:26 #33817 [verbose] > │ │
00:08:26 #33818 [verbose] > │ │
00:08:26 #33819 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:26 #33820 [verbose] >
00:08:26 #33821 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:26 #33822 [verbose] > inl (~!\) forall t. (code : string) : t =
00:08:26 #33823 [verbose] > emit_expr () code
00:08:26 #33824 [verbose] >
00:08:26 #33825 [verbose] > inl (~!\\) forall t u. ((args : t), (code : string)) : u =
00:08:26 #33826 [verbose] > emit_expr args code
00:08:26 #33827 [verbose] >
00:08:26 #33828 [verbose] > inl emit forall t. (x : t) : t =
00:08:26 #33829 [verbose] > !\\(x, $'"$0"')
00:08:26 #33830 [verbose] >
00:08:26 #33831 [verbose] > inl emit' forall t. (x : t) : t =
00:08:26 #33832 [verbose] > !\\(x, $'"let !x = $0"')
00:08:26 #33833 [verbose] > x
00:08:26 #33834 [verbose] >
00:08:26 #33835 [verbose] > inl new_box forall t. (x : t) : box t =
00:08:26 #33836 [verbose] > inl x = join x
00:08:26 #33837 [verbose] > !\($'"Box::new(!x)"')
00:08:26 #33838 [verbose] >
00:08:26 #33839 [verbose] > inl new_rc forall t. (x : t) : rc t =
00:08:26 #33840 [verbose] > inl x = join x
00:08:26 #33841 [verbose] > !\($'"std::rc::Rc::new(!x)"')
00:08:26 #33842 [verbose] >
00:08:26 #33843 [verbose] > inl rc_clone forall t. (x : rc t) : rc t =
00:08:26 #33844 [verbose] > inl x = join x
00:08:26 #33845 [verbose] > !\($'"std::rc::Rc::clone(&!x)"')
00:08:26 #33846 [verbose] >
00:08:26 #33847 [verbose] > inl rc_downgrade forall t. (x : rc t) : weak_rc t =
00:08:26 #33848 [verbose] > inl x = join x
00:08:26 #33849 [verbose] > !\($'"std::rc::Rc::downgrade(&!x)"')
00:08:26 #33850 [verbose] >
00:08:26 #33851 [verbose] > inl new_ref_cell forall t. (x : t) : ref_cell t =
00:08:26 #33852 [verbose] > inl x = join x
00:08:26 #33853 [verbose] > !\($'"std::cell::RefCell::new(!x)"')
00:08:26 #33854 [verbose] >
00:08:26 #33855 [verbose] > inl ref_cell_borrow forall t. (x : rc (ref_cell t)) : t =
00:08:26 #33856 [verbose] > inl x = join x
00:08:26 #33857 [verbose] > !\($'"*std::cell::RefCell::borrow(&std::rc::Rc::clone(&!x))"')
00:08:26 #33858 [verbose] >
00:08:26 #33859 [verbose] > inl ref_cell_borrow_mut forall t. (x : rc (ref_cell t)) : mut' t =
00:08:26 #33860 [verbose] > inl x = join x
00:08:26 #33861 [verbose] > !\($'"*std::cell::RefCell::borrow_mut(&std::rc::Rc::clone(&!x))"')
00:08:26 #33862 [verbose] >
00:08:26 #33863 [verbose] > inl to_mut forall t. (x : t) : mut' t =
00:08:26 #33864 [verbose] > // !\($'"let mut !x = !x"')
00:08:26 #33865 [verbose] > // !\($'"!x"')
00:08:26 #33866 [verbose] > emit_expr () $"\"let mut !x = !x\""
00:08:26 #33867 [verbose] > emit_expr () $"\"!x\""
00:08:26 #33868 [verbose] >
00:08:26 #33869 [verbose] > inl ref_map forall t u. (fn : t -> u) (x : ref' t) : ref' u =
00:08:26 #33870 [verbose] > !\($'"!fn(!x)"')
00:08:26 #33871 [verbose] >
00:08:26 #33872 [verbose] > inl from_mut forall t. (x : mut' t) : t =
00:08:26 #33873 [verbose] > !\($'"!x"')
00:08:26 #33874 [verbose] >
00:08:26 #33875 [verbose] > inl new_arc forall t. (x : t) : arc t =
00:08:26 #33876 [verbose] > inl x = join x
00:08:26 #33877 [verbose] > !\($'"std::sync::Arc::new(!x)"')
00:08:26 #33878 [verbose] >
00:08:26 #33879 [verbose] > inl box_fn forall t. (x : () -> ()) : box t =
00:08:26 #33880 [verbose] > inl x = join x
00:08:26 #33881 [verbose] > !\($'"Box::new(move || !x())"')
00:08:26 #33882 [verbose] >
00:08:26 #33883 [verbose] > inl new_pin forall t. (x : t) : pin (box t) =
00:08:26 #33884 [verbose] > inl x = join x
00:08:26 #33885 [verbose] > !\($'"Box::pin(!x)"')
00:08:26 #33886 [verbose] >
00:08:26 #33887 [verbose] > inl deref forall t. (ref : ref' t) : t =
00:08:26 #33888 [verbose] > inl ref = join ref
00:08:26 #33889 [verbose] > !\($'"*!ref"')
00:08:26 #33890 [verbose] >
00:08:26 #33891 [verbose] > inl ops_deref forall t. (ref : t) : t =
00:08:26 #33892 [verbose] > inl ref = join ref
00:08:26 #33893 [verbose] > !\($'"core::ops::Deref::deref(&!ref)"')
00:08:26 #33894 [verbose] >
00:08:26 #33895 [verbose] > inl func0_get forall t. (x : func0 t) : t =
00:08:26 #33896 [verbose] > inl x = join x
00:08:26 #33897 [verbose] > !\($'"!x()"')
00:08:26 #33898 [verbose] >
00:08:26 #33899 [verbose] > inl func0_move forall t. (fn : func0 t) : t =
00:08:26 #33900 [verbose] > inl fn = join fn
00:08:26 #33901 [verbose] > !\($'"(move || !fn())()"')
00:08:26 #33902 [verbose] >
00:08:26 #33903 [verbose] > inl move forall t. (fn : () -> t) : func0 t =
00:08:26 #33904 [verbose] > !\\(fn, $'"Func0::new(move || $0())"')
00:08:26 #33905 [verbose] >
00:08:26 #33906 [verbose] > inl to_static_ref_unbox forall t. (x : ref' t) : static_ref' t =
00:08:26 #33907 [verbose] > $"!x |> unbox"
00:08:26 #33908 [verbose] >
00:08:26 #33909 [verbose] > inl from_static_ref_unbox forall t. (x : static_ref' t) : ref' t =
00:08:26 #33910 [verbose] > $"!x |> unbox"
00:08:26 #33911 [verbose] >
00:08:26 #33912 [verbose] > inl box_leak forall t. (x : box t) : static_ref' (mut' t) =
00:08:26 #33913 [verbose] > emit_expr () $"\"Box::leak(!x)\""
00:08:26 #33914 [verbose] >
00:08:26 #33915 [verbose] >
00:08:26 #33916 [verbose] > inl fix_closure depth' x' =
00:08:26 #33917 [verbose] > inl depth = depth' |> fst
00:08:26 #33918 [verbose] > if depth = 1
00:08:26 #33919 [verbose] > then !\($'"!x' })"')
00:08:26 #33920 [verbose] > elif depth = 2
00:08:26 #33921 [verbose] > then !\($'"!x' }})"')
00:08:26 #33922 [verbose] > elif depth = 3
00:08:26 #33923 [verbose] > then !\($'"!x' }}})"')
00:08:26 #33924 [verbose] > elif depth = 4
00:08:26 #33925 [verbose] > then !\($'"!x' }}}})"')
00:08:26 #33926 [verbose] > elif depth = 5
00:08:26 #33927 [verbose] > then !\($'"!x' }}}}})"')
00:08:26 #33928 [verbose] > elif depth = 6 // , 4) // ?
00:08:26 #33929 [verbose] > then !\($'"!x' }}}}}})"')
00:08:26 #33930 [verbose] > elif depth = 7 // , 5) // 7
00:08:26 #33931 [verbose] > then !\($'"!x' }}}}}}})"')
00:08:26 #33932 [verbose] > elif depth = 8 // , 5) // 7
00:08:26 #33933 [verbose] > then !\($'"!x' }}}}}}}})"')
00:08:26 #33934 [verbose] >
00:08:26 #33935 [verbose] > inl depth = depth' |> snd
00:08:26 #33936 [verbose] > if depth = 1
00:08:26 #33937 [verbose] > then !\($'"{ //"')
00:08:26 #33938 [verbose] > elif depth = 2
00:08:26 #33939 [verbose] > then !\($'"{{ //"')
00:08:26 #33940 [verbose] > elif depth = 3
00:08:26 #33941 [verbose] > then !\($'"{{{ //"')
00:08:26 #33942 [verbose] > elif depth = 4
00:08:26 #33943 [verbose] > then !\($'"{{{{ //"')
00:08:26 #33944 [verbose] > elif depth = 5
00:08:26 #33945 [verbose] > then !\($'"{{{{{ //"')
00:08:26 #33946 [verbose] > elif depth = 6
00:08:26 #33947 [verbose] > then !\($'"{{{{{{ //"')
00:08:26 #33948 [verbose] > elif depth = 7
00:08:26 #33949 [verbose] > then !\($'"{{{{{{{ //"')
00:08:26 #33950 [verbose] > elif depth = 8
00:08:26 #33951 [verbose] > then !\($'"{{{{{{{{ //"')
00:08:27 #33952 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b75c03298c9ae011648653395674b57e5031fdbafcb6cddff0b0eeb5b7431661\main.spi
00:08:27 #33953 [verbose] >
00:08:27 #33954 [verbose] > ╭─[ 265.76ms - stdout ]────────────────────────────────────────────────────────╮
00:08:27 #33955 [verbose] > │ () │
00:08:27 #33956 [verbose] > │ │
00:08:27 #33957 [verbose] > │ │
00:08:27 #33958 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:28 #33959 [verbose] > [NbConvertApp] Converting notebook rust.dib.ipynb to html
00:08:28 #33960 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:08:28 #33961 [verbose] > validate(nb)
00:08:29 #33962 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:08:29 #33963 [verbose] > return _pygments_highlight(
00:08:29 #33964 [verbose] > [NbConvertApp] Writing 305573 bytes to rust.dib.html
00:08:30 #33965 [debug] executeAsync / exitCode: 0 / output.Length: 9782
00:08:30 #33966 [debug] main / executeCommand / exitCode: 0
00:08:30 #33967 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 physics.dib" -Retries 3"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:08:33 #33968 [verbose] >
00:08:33 #33969 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:33 #33970 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:33 #33971 [verbose] > │ # physics │
00:08:33 #33972 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:33 #33973 [verbose] >
00:08:33 #33974 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:08:33 #33975 [verbose] > #!import ../../lib/fsharp/Plotting.dib
00:08:33 #33976 [verbose] >
00:08:33 #33977 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:33 #33978 [verbose] > #r
00:08:33 #33979 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:08:33 #33980 [verbose] > spNetCore.Html.Abstractions.dll"
00:08:33 #33981 [verbose] > #r
00:08:33 #33982 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:08:33 #33983 [verbose] > otNet.Interactive.dll"
00:08:33 #33984 [verbose] > #r
00:08:33 #33985 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:08:33 #33986 [verbose] > otNet.Interactive.FSharp.dll"
00:08:33 #33987 [verbose] > #r
00:08:33 #33988 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:08:33 #33989 [verbose] > otNet.Interactive.Formatting.dll"
00:08:33 #33990 [verbose] > open System
00:08:33 #33991 [verbose] > open System.IO
00:08:33 #33992 [verbose] > open System.Text
00:08:33 #33993 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:08:37 #33994 [verbose] >
00:08:37 #33995 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:37 #33996 [verbose] > #r
00:08:37 #33997 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:08:37 #33998 [verbose] > otNet.Interactive.FSharp.dll"
00:08:37 #33999 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:08:37 #34000 [verbose] > #r
00:08:37 #34001 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:08:37 #34002 [verbose] > otNet.Interactive.dll"
00:08:37 #34003 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:08:37 #34004 [verbose] >
00:08:37 #34005 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:37 #34006 [verbose] > //// test
00:08:37 #34007 [verbose] >
00:08:37 #34008 [verbose] > Formatter.ListExpansionLimit <- 100
00:08:37 #34009 [verbose] >
00:08:37 #34010 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:37 #34011 [verbose] > type [[<Struct>]] US0 =
00:08:37 #34012 [verbose] > | US0_0
00:08:37 #34013 [verbose] > | US0_1
00:08:37 #34014 [verbose] > and [[<Struct>]] US1 =
00:08:37 #34015 [verbose] > | US1_0 of f0_0 : US0
00:08:37 #34016 [verbose] > | US1_1
00:08:37 #34017 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:08:37 #34018 [verbose] > let v1 : System.IDisposable option = None
00:08:37 #34019 [verbose] > let mutable _v1 = v1
00:08:37 #34020 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:08:37 #34021 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:08:37 #34022 [verbose] > v2
00:08:37 #34023 [verbose] > #endif
00:08:37 #34024 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:08:37 #34025 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:08:37 #34026 [verbose] > v3
00:08:37 #34027 [verbose] > #endif
00:08:37 #34028 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:08:37 #34029 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:08:37 #34030 [verbose] > v4
00:08:37 #34031 [verbose] > #endif
00:08:37 #34032 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:08:37 #34033 [verbose] > !WASM && !CONTRACT
00:08:37 #34034 [verbose] > let v5 : System.ID...
00:08:38 #34035 [verbose] >
00:08:38 #34036 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:38 #34037 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:08:38 #34038 [verbose] > and Mut1 = {mutable l0 : int32}
00:08:38 #34039 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:08:38 #34040 [verbose] > let v2 : bool = v1.Contains v0
00:08:38 #34041 [verbose] > v2
00:08:38 #34042 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:08:38 #34043 [verbose] > closure1(v0)
00:08:38 #34044 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:08:38 #34045 [verbose] > let v2 : bool = v1.EndsWith v0
00:08:38 #34046 [verbose] > v2
00:08:38 #34047 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:08:38 #34048 [verbose] > closure3(v0)
00:08:38 #34049 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:08:38 #34050 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:08:38 #34051 [verbose] > v3
00:08:38 #34052 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:08:38 #34053 [verbose] > closure6(v0, v1)
00:08:38 #34054 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:08:38 #34055 [verbose] > closure5(v0)
00:08:38 #34056 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:08:38 #34057 [verbose] > let v2 : stri...
00:08:39 #34058 [verbose] >
00:08:39 #34059 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:39 #34060 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:08:39 #34061 [verbose] > type Mut0 = {mutable l0 : int32}
00:08:39 #34062 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:08:39 #34063 [verbose] > let v2 : int32 = v1.l0
00:08:39 #34064 [verbose] > let v3 : bool = v2 < v0
00:08:39 #34065 [verbose] > v3
00:08:39 #34066 [verbose] > and closure0 () (v0 : string) : string =
00:08:39 #34067 [verbose] > let v1 : string option = None
00:08:39 #34068 [verbose] > let mutable _v1 = v1
00:08:39 #34069 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:08:39 #34070 [verbose] > let v2 : string = null |> unbox<string>
00:08:39 #34071 [verbose] > v2
00:08:39 #34072 [verbose] > #endif
00:08:39 #34073 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:08:39 #34074 [verbose] > let v3 : string = null |> unbox<string>
00:08:39 #34075 [verbose] > v3
00:08:39 #34076 [verbose] > #endif
00:08:39 #34077 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:08:39 #34078 [verbose] > let v4 : string = null |> unbox<string>
00:08:39 #34079 [verbose] > v4
00:08:39 #34080 [verbose] > #endif
00:08:39 #34081 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:08:39 #34082 [verbose] > !WASM && !CONTRACT
00:08:39 #34083 [verbose] > let v5 : (unit -> System...
00:08:39 #34084 [verbose] >
00:08:39 #34085 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:39 #34086 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:08:39 #34087 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:08:39 #34088 [verbose] > let v3 : string = v2 v0
00:08:39 #34089 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:08:39 #34090 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:08:39 #34091 [verbose] > v5
00:08:39 #34092 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:08:39 #34093 [verbose] > closure1(v0)
00:08:39 #34094 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:08:39 #34095 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:08:39 #34096 [verbose] > v3
00:08:39 #34097 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:08:39 #34098 [verbose] > closure5(v0, v1)
00:08:39 #34099 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:08:39 #34100 [verbose] > closure4(v0)
00:08:39 #34101 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:08:39 #34102 [verbose] > closure3()
00:08:39 #34103 [verbose] > and closure2 (...
00:08:39 #34104 [verbose] >
00:08:39 #34105 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:39 #34106 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:08:39 #34107 [verbose] > Async<System.Threading.CancellationToken> =
00:08:39 #34108 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:08:39 #34109 [verbose] > let mutable _v1 = v1
00:08:39 #34110 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:08:39 #34111 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:08:39 #34112 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:08:39 #34113 [verbose] > v2
00:08:39 #34114 [verbose] > #endif
00:08:39 #34115 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:08:39 #34116 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:08:39 #34117 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:08:39 #34118 [verbose] > v3
00:08:39 #34119 [verbose] > #endif
00:08:39 #34120 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:08:39 #34121 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:08:39 #34122 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:08:39 #34123 [verbose] > v4
00:08:39 #34124 [verbose] > #endif
00:08:39 #34125 [verbose] > #if !FABLE_COMPILER...
00:08:39 #34126 [verbose] >
00:08:39 #34127 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:39 #34128 [verbose] > let rec closure0 () () : bool =
00:08:39 #34129 [verbose] > let v0 : bool option = None
00:08:39 #34130 [verbose] > let mutable _v0 = v0
00:08:39 #34131 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:08:39 #34132 [verbose] > let v1 : bool = null |> unbox<bool>
00:08:39 #34133 [verbose] > v1
00:08:39 #34134 [verbose] > #endif
00:08:39 #34135 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:08:39 #34136 [verbose] > let v2 : bool = null |> unbox<bool>
00:08:39 #34137 [verbose] > v2
00:08:39 #34138 [verbose] > #endif
00:08:39 #34139 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:08:39 #34140 [verbose] > let v3 : bool = null |> unbox<bool>
00:08:39 #34141 [verbose] > v3
00:08:39 #34142 [verbose] > #endif
00:08:39 #34143 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:08:39 #34144 [verbose] > !WASM && !CONTRACT
00:08:39 #34145 [verbose] > let v4 : System.Runtime.InteropServices.OSPlatform =
00:08:39 #34146 [verbose] > System.Runtime.InteropServices.OSPlatform.Windows
00:08:39 #34147 [verbose] > let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:08:39 #34148 [verbose] > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:08:39 #34149 [verbose] > let v6 : bool = v...
00:08:39 #34150 [verbose] >
00:08:39 #34151 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:39 #34152 [verbose] > #if FABLE_COMPILER // file_system.types
00:08:39 #34153 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:08:39 #34154 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:08:39 #34155 [verbose] > base64_DecodeError = class end
00:08:39 #34156 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:08:39 #34157 [verbose] > = class end
00:08:39 #34158 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:08:39 #34159 [verbose] > = class end
00:08:39 #34160 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:08:39 #34161 [verbose] > serde_json_Error = class end
00:08:39 #34162 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:08:39 #34163 [verbose] > serde_json_Value = class end
00:08:39 #34164 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:08:39 #34165 [verbose] > serde_wasm_bindgen_Error = class end
00:08:39 #34166 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:08:41 #34167 [verbose] >
00:08:41 #34168 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:41 #34169 [verbose] > module State = let mutable trace_state = None
00:08:41 #34170 [verbose] > type [[<Struct>]] US0 =
00:08:41 #34171 [verbose] > | US0_0
00:08:41 #34172 [verbose] > | US0_1
00:08:41 #34173 [verbose] > | US0_2
00:08:41 #34174 [verbose] > | US0_3
00:08:41 #34175 [verbose] > | US0_4
00:08:41 #34176 [verbose] > and Mut0 = {mutable l0 : int64}
00:08:41 #34177 [verbose] > and Mut1 = {mutable l0 : bool}
00:08:41 #34178 [verbose] > and Mut2 = {mutable l0 : US0}
00:08:41 #34179 [verbose] > and [[<Struct>]] US1 =
00:08:41 #34180 [verbose] > | US1_0 of f0_0 : int64
00:08:41 #34181 [verbose] > | US1_1
00:08:41 #34182 [verbose] > and [[<Struct>]] US2 =
00:08:41 #34183 [verbose] > | US2_0 of f0_0 : int64
00:08:41 #34184 [verbose] > | US2_1
00:08:41 #34185 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:08:41 #34186 [verbose] > v0
00:08:41 #34187 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:08:41 #34188 [verbose] > v0
00:08:41 #34189 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:08:41 #34190 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:08:41 #34191 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:08:41 #34192 [verbose] > let v2 : US0 = US0_0
00:08:41 #34193 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:08:41 #34194 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:08:41 #34195 [verbose] > let v5 : int64 option option = None
00:08:41 #34196 [verbose] > ...
00:08:41 #34197 [verbose] >
00:08:41 #34198 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:41 #34199 [verbose] > module SpiralTrace =
00:08:41 #34200 [verbose] > let get_trace_state () =
00:08:41 #34201 [verbose] > #if !INTERACTIVE
00:08:41 #34202 [verbose] > Trace.get_trace_state ()
00:08:41 #34203 [verbose] > #else
00:08:41 #34204 [verbose] > get_trace_state ()
00:08:41 #34205 [verbose] > #endif
00:08:41 #34206 [verbose] > let trace x =
00:08:41 #34207 [verbose] > #if !INTERACTIVE
00:08:41 #34208 [verbose] > Trace.trace x
00:08:41 #34209 [verbose] > #else
00:08:41 #34210 [verbose] > trace x
00:08:41 #34211 [verbose] > #endif
00:08:41 #34212 [verbose] >
00:08:41 #34213 [verbose] > let US0_0 =
00:08:41 #34214 [verbose] > #if !INTERACTIVE
00:08:41 #34215 [verbose] > Trace.US0_0
00:08:41 #34216 [verbose] > #else
00:08:41 #34217 [verbose] > US0_0
00:08:41 #34218 [verbose] > #endif
00:08:41 #34219 [verbose] >
00:08:41 #34220 [verbose] > let US0_1 =
00:08:41 #34221 [verbose] > #if !INTERACTIVE
00:08:41 #34222 [verbose] > Trace.US0_1
00:08:41 #34223 [verbose] > #else
00:08:41 #34224 [verbose] > US0_1
00:08:41 #34225 [verbose] > #endif
00:08:41 #34226 [verbose] >
00:08:41 #34227 [verbose] > let US0_2 =
00:08:41 #34228 [verbose] > #if !INTERACTIVE
00:08:41 #34229 [verbose] > Trace.US0_2
00:08:41 #34230 [verbose] > #else
00:08:41 #34231 [verbose] > US0_2
00:08:41 #34232 [verbose] > #endif
00:08:41 #34233 [verbose] >
00:08:41 #34234 [verbose] > let US0_3 =
00:08:41 #34235 [verbose] > #if !INTERACTIVE
00:08:41 #34236 [verbose] > Trace.US0_3
00:08:41 #34237 [verbose] > #else
00:08:41 #34238 [verbose] > US0_3
00:08:41 #34239 [verbose] > #endif
00:08:41 #34240 [verbose] >
00:08:41 #34241 [verbose] > let US0_4 =
00:08:41 #34242 [verbose] > #if !INTERACTIVE
00:08:41 #34243 [verbose] > Trace.US0_4
00:08:41 #34244 [verbose] > #else
00:08:41 #34245 [verbose] > US0_4
00:08:41 #34246 [verbose] > #endif
00:08:41 #34247 [verbose] >
00:08:41 #34248 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:08:41 #34249 [verbose] >
00:08:41 #34250 [verbose] > module SpiralAsync =
00:08:41 #34251 [verbose] > let merge_cancellation_token_with_default_async x ...
00:08:41 #34252 [verbose] >
00:08:41 #34253 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:41 #34254 [verbose] > #r
00:08:41 #34255 [verbose] > @"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
00:08:41 #34256 [verbose] > dard2.1/FSharp.Control.AsyncSeq.dll"
00:08:41 #34257 [verbose] > #r
00:08:41 #34258 [verbose] > @"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
00:08:41 #34259 [verbose] > 0/System.Reactive.dll"
00:08:41 #34260 [verbose] > #r
00:08:41 #34261 [verbose] > @"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib
00:08:41 #34262 [verbose] > netstandard2.0/System.Reactive.Linq.dll"
00:08:41 #34263 [verbose] > #r
00:08:41 #34264 [verbose] > @"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
00:08:41 #34265 [verbose] > #r
00:08:41 #34266 [verbose] > @"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
00:08:41 #34267 [verbose] > b/net6.0/System.CommandLine.dll"
00:08:41 #34268 [verbose] > #r
00:08:41 #34269 [verbose] > @"../../../../../../../.nuget/packages/fsharp.json/0.4.1/lib/netstandard2.0/FSha
00:08:41 #34270 [verbose] > rp.Json.dll"
00:08:41 #34271 [verbose] >
00:08:41 #34272 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:41 #34273 [verbose] > #if !INTERACTIVE
00:08:41 #34274 [verbose] > namespace Polyglot
00:08:41 #34275 [verbose] > #endif
00:08:41 #34276 [verbose] >
00:08:41 #34277 [verbose] > module Common =
00:08:41 #34278 [verbose] >
00:08:41 #34279 [verbose] > #if !INTERACTIVE
00:08:41 #34280 [verbose] > open Lib
00:08:41 #34281 [verbose] > #endif
00:08:41 #34282 [verbose] >
00:08:41 #34283 [verbose] > let nl = System.Environment.NewLine
00:08:41 #34284 [verbose] > let q = @""""
00:08:41 #34285 [verbose] >
00:08:41 #34286 [verbose] > let inline cons head tail = head :: tail
00:08:41 #34287 [verbose] >
00:08:41 #34288 [verbose] > /// ## memoize
00:08:41 #34289 [verbose] >
00:08:41 #34290 [verbose] > let inline memoize fn =
00:08:41 #34291 [verbose] > let result = lazy fn ()
00:08:41 #34292 [verbose] > fun () -> result.Value
00:08:41 #34293 [verbose] >
00:08:41 #34294 [verbose] > /// ## TraceLevel
00:08:41 #34295 [verbose] >
00:08:41 #34296 [verbose] > type TraceLevel =
00:08:41 #34297 [verbose] > | Verbose
00:08:41 #34298 [verbose] > | Debug
00:08:41 #34299 [verbose] > | Info
00:08:41 #34300 [verbose] > | Warning
00:08:41 #34301 [verbose] > | Critical
00:08:41 #34302 [verbose] >
00:08:41 #34303 [verbose] > let inline getLocals () = ""
00:08:41 #34304 [verbose] >
00:08:41 #34305 [verbose] > /// ## trace
00:08:41 #34306 [verbose] >
00:08:41 #34307 [verbose] > let to_trace_level = function
00:08:41 #34308 [verbose] > | Verbose -> SpiralTrace.US0_0
00:08:41 #34309 [verbose] > | Debug -> SpiralTrace.US0_1
00:08:41 #34310 [verbose] > | Info -> SpiralTrace.US0_2
00:08:41 #34311 [verbose] > | Warning -> SpiralTrace.US0_3
00:08:41 #34312 [verbose] > | Critical -> SpiralTrace.US0_4
00:08:41 #34313 [verbose] >
00:08:41 #34314 [verbose] > let trace level fn g...
00:08:42 #34315 [verbose] >
00:08:42 #34316 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:42 #34317 [verbose] > #if !INTERACTIVE
00:08:42 #34318 [verbose] > namespace Polyglot
00:08:42 #34319 [verbose] > #endif
00:08:42 #34320 [verbose] >
00:08:42 #34321 [verbose] > module CommonFSharp =
00:08:42 #34322 [verbose] >
00:08:42 #34323 [verbose] > open Common
00:08:42 #34324 [verbose] >
00:08:42 #34325 [verbose] > /// ## getUnionCaseName
00:08:42 #34326 [verbose] >
00:08:42 #34327 [verbose] > let inline getUnionCaseName<'T> (x: 'T) =
00:08:42 #34328 [verbose] > match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
00:08:42 #34329 [verbose] > | case, _ -> case.Name
00:08:42 #34330 [verbose] >
00:08:42 #34331 [verbose] >
00:08:42 #34332 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:42 #34333 [verbose] > #if !INTERACTIVE
00:08:42 #34334 [verbose] > namespace Polyglot
00:08:42 #34335 [verbose] > #endif
00:08:42 #34336 [verbose] >
00:08:42 #34337 [verbose] > module Async =
00:08:42 #34338 [verbose] >
00:08:42 #34339 [verbose] > #if !INTERACTIVE
00:08:42 #34340 [verbose] > open Lib
00:08:42 #34341 [verbose] > #endif
00:08:42 #34342 [verbose] >
00:08:42 #34343 [verbose] > open Common
00:08:42 #34344 [verbose] >
00:08:42 #34345 [verbose] > /// ## choice
00:08:42 #34346 [verbose] >
00:08:42 #34347 [verbose] > let inline choice asyncs = async {
00:08:42 #34348 [verbose] > let e = Event<_> ()
00:08:42 #34349 [verbose] > use cts = new System.Threading.CancellationTokenSource ()
00:08:42 #34350 [verbose] > let fn =
00:08:42 #34351 [verbose] > asyncs
00:08:42 #34352 [verbose] > |> Seq.map (fun a -> async {
00:08:42 #34353 [verbose] > let! x = a
00:08:42 #34354 [verbose] > e.Trigger x
00:08:42 #34355 [verbose] > })
00:08:42 #34356 [verbose] > |> Async.Parallel
00:08:42 #34357 [verbose] > |> Async.Ignore
00:08:42 #34358 [verbose] > Async.Start (fn, cts.Token)
00:08:42 #34359 [verbose] > let! result = Async.AwaitEvent e.Publish
00:08:42 #34360 [verbose] > cts.Cancel ()
00:08:42 #34361 [verbose] > return result
00:08:42 #34362 [verbose] > }
00:08:42 #34363 [verbose] >
00:08:42 #34364 [verbose] > /// ## map
00:08:42 #34365 [verbose] >
00:08:42 #34366 [verbose] > let inline map fn a = async {
00:08:42 #34367 [verbose] > let! x = a
00:08:42 #34368 [verbose] > return fn x
00:08:42 #34369 [verbose] > }
00:08:42 #34370 [verbose] >
00:08:42 #34371 [verbose] > /// ## catch
00:08:42 #34372 [verbose] >
00:08:42 #34373 [verbose] > let inline catch a =
00:08:42 #34374 [verbose] > ...
00:08:42 #34375 [verbose] >
00:08:42 #34376 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:42 #34377 [verbose] > #if !INTERACTIVE
00:08:42 #34378 [verbose] > namespace Polyglot
00:08:42 #34379 [verbose] > #endif
00:08:42 #34380 [verbose] >
00:08:42 #34381 [verbose] > module AsyncSeq =
00:08:42 #34382 [verbose] >
00:08:42 #34383 [verbose] > #if !INTERACTIVE
00:08:42 #34384 [verbose] > open Lib
00:08:42 #34385 [verbose] > #endif
00:08:42 #34386 [verbose] >
00:08:42 #34387 [verbose] > open Common
00:08:42 #34388 [verbose] >
00:08:42 #34389 [verbose] > /// ## subscribeEvent
00:08:42 #34390 [verbose] >
00:08:42 #34391 [verbose] > let inline subscribeEvent (event: IEvent<'H, 'A>) map =
00:08:42 #34392 [verbose] > let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
00:08:42 #34393 [verbose] > 'A>(event.AddHandler, event.RemoveHandler)
00:08:42 #34394 [verbose] > System.Reactive.Linq.Observable.Select (observable, fun event -> map
00:08:42 #34395 [verbose] > event.EventArgs)
00:08:42 #34396 [verbose] > |> FSharp.Control.AsyncSeq.ofObservableBuffered
00:08:42 #34397 [verbose] >
00:08:42 #34398 [verbose] > let subscribeToken (token : System.Threading.CancellationToken) =
00:08:42 #34399 [verbose] > let tcs = new System.Threading.Tasks.TaskCompletionSource ()
00:08:42 #34400 [verbose] > System.Action tcs.SetResult |> token.Register |> ignore
00:08:42 #34401 [verbose] > let start = System.DateTime.Now.Ticks
00:08:42 #34402 [verbose] > FSharp.Control.A...
00:08:43 #34403 [verbose] >
00:08:43 #34404 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:43 #34405 [verbose] > #if !INTERACTIVE
00:08:43 #34406 [verbose] > namespace Polyglot
00:08:43 #34407 [verbose] > #endif
00:08:43 #34408 [verbose] >
00:08:43 #34409 [verbose] > module Networking =
00:08:43 #34410 [verbose] >
00:08:43 #34411 [verbose] > #if !INTERACTIVE
00:08:43 #34412 [verbose] > open Lib
00:08:43 #34413 [verbose] > #endif
00:08:43 #34414 [verbose] >
00:08:43 #34415 [verbose] > open Common
00:08:43 #34416 [verbose] >
00:08:43 #34417 [verbose] > /// ## testPortOpen
00:08:43 #34418 [verbose] >
00:08:43 #34419 [verbose] > let inline testPortOpen port = async {
00:08:43 #34420 [verbose] > let! ct = Async.CancellationToken
00:08:43 #34421 [verbose] > use client = new System.Net.Sockets.TcpClient ()
00:08:43 #34422 [verbose] > try
00:08:43 #34423 [verbose] > do! client.ConnectAsync ("127.0.0.1", port, ct) |>
00:08:43 #34424 [verbose] > Async.awaitValueTaskUnit
00:08:43 #34425 [verbose] > return true
00:08:43 #34426 [verbose] > with ex ->
00:08:43 #34427 [verbose] > trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
00:08:43 #34428 [verbose] > SpiralSm.format_exception}") getLocals
00:08:43 #34429 [verbose] > return false
00:08:43 #34430 [verbose] > }
00:08:43 #34431 [verbose] >
00:08:43 #34432 [verbose] > let inline testPortOpenTimeout timeout port = async {
00:08:43 #34433 [verbose] > let! result =
00:08:43 #34434 [verbose] > testPortOpen port
00:08:43 #34435 [verbose] > |> Async.runWithTimeoutAsync timeout
00:08:43 #34436 [verbose] > return
00:08:43 #34437 [verbose] > ...
00:08:43 #34438 [verbose] >
00:08:43 #34439 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:43 #34440 [verbose] > #if !INTERACTIVE
00:08:43 #34441 [verbose] > namespace Polyglot
00:08:43 #34442 [verbose] > #endif
00:08:43 #34443 [verbose] >
00:08:43 #34444 [verbose] > module Runtime =
00:08:43 #34445 [verbose] >
00:08:43 #34446 [verbose] > #if !INTERACTIVE
00:08:43 #34447 [verbose] > open Lib
00:08:43 #34448 [verbose] > #endif
00:08:43 #34449 [verbose] >
00:08:43 #34450 [verbose] > open Common
00:08:43 #34451 [verbose] >
00:08:43 #34452 [verbose] > /// ## splitCommand
00:08:43 #34453 [verbose] >
00:08:43 #34454 [verbose] > type private CommandParseStep =
00:08:43 #34455 [verbose] > | Start
00:08:43 #34456 [verbose] > | Path of quoted: bool
00:08:43 #34457 [verbose] > | Arguments
00:08:43 #34458 [verbose] >
00:08:43 #34459 [verbose] > let splitCommand (command: string) =
00:08:43 #34460 [verbose] > let rec loop (path, args) chars step =
00:08:43 #34461 [verbose] > match chars, step with
00:08:43 #34462 [verbose] > | ('"' | '\'') :: tail, _ when path = "" -> loop (path, args) tail
00:08:43 #34463 [verbose] > (Path true)
00:08:43 #34464 [verbose] > | ('"' | '\'') :: tail, Path true -> loop (path, args) tail (Path
00:08:43 #34465 [verbose] > false)
00:08:43 #34466 [verbose] > | ' ' :: tail, Path true -> loop ($"{path} ", args) tail (Path true)
00:08:43 #34467 [verbose] > | ' ' :: tail, (Start | Path _) -> loop (path, args) tail Arguments
00:08:43 #34468 [verbose] > | char :: tail, Arguments -> loo...
00:08:44 #34469 [verbose] >
00:08:44 #34470 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:44 #34471 [verbose] > #if !INTERACTIVE
00:08:44 #34472 [verbose] > namespace Polyglot
00:08:44 #34473 [verbose] > #endif
00:08:44 #34474 [verbose] >
00:08:44 #34475 [verbose] > module FileSystem =
00:08:44 #34476 [verbose] >
00:08:44 #34477 [verbose] > #if !INTERACTIVE
00:08:44 #34478 [verbose] > open Lib
00:08:44 #34479 [verbose] > #endif
00:08:44 #34480 [verbose] >
00:08:44 #34481 [verbose] > open Common
00:08:44 #34482 [verbose] > open SpiralFileSystem.Operators
00:08:44 #34483 [verbose] >
00:08:44 #34484 [verbose] > /// ## watchDirectory
00:08:44 #34485 [verbose] >
00:08:44 #34486 [verbose] > [[<RequireQualifiedAccess>]]
00:08:44 #34487 [verbose] > type FileSystemChangeType =
00:08:44 #34488 [verbose] > | Failure
00:08:44 #34489 [verbose] > | Changed
00:08:44 #34490 [verbose] > | Created
00:08:44 #34491 [verbose] > | Deleted
00:08:44 #34492 [verbose] > | Renamed
00:08:44 #34493 [verbose] >
00:08:44 #34494 [verbose] > [[<RequireQualifiedAccess>]]
00:08:44 #34495 [verbose] > type FileSystemChange =
00:08:44 #34496 [verbose] > | Failure of exn: exn
00:08:44 #34497 [verbose] > | Changed of path: string * content: string option
00:08:44 #34498 [verbose] > | Created of path: string * content: string option
00:08:44 #34499 [verbose] > | Deleted of path: string
00:08:44 #34500 [verbose] > | Renamed of oldPath: string * (string * string option)
00:08:44 #34501 [verbose] >
00:08:44 #34502 [verbose] >
00:08:44 #34503 [verbose] > let inline watchDirectoryWithFilter filter shouldReadContent path =
00:08:44 #34504 [verbose] > let fullPath = path |> Sys...
00:08:44 #34505 [verbose] >
00:08:44 #34506 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:44 #34507 [verbose] > #if !INTERACTIVE
00:08:44 #34508 [verbose] > open Lib
00:08:44 #34509 [verbose] > #endif
00:08:44 #34510 [verbose] >
00:08:44 #34511 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:44 #34512 [verbose] > open Common
00:08:44 #34513 [verbose] > open SpiralFileSystem.Operators
00:08:44 #34514 [verbose] >
00:08:44 #34515 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:08:44 #34516 [verbose] > let repositoryRoot = SpiralFileSystem.get_source_directory () |>
00:08:44 #34517 [verbose] > SpiralFileSystem.find_parent ".paket" false
00:08:44 #34518 [verbose] > let tmpSpiralPath = repositoryRoot </> "target/polyglot/plotting"
00:08:44 #34519 [verbose] > let linePlotsDataPath = tmpSpiralPath </> "line-data"
00:08:44 #34520 [verbose] > let linePlotsSvgPath = tmpSpiralPath </> "line-svg"
00:08:44 #34521 [verbose] >
00:08:44 #34522 [verbose] > [[ tmpSpiralPath; linePlotsDataPath; linePlotsSvgPath ]]
00:08:44 #34523 [verbose] > |> List.iter (fun dir -> if Directory.Exists dir |> not then
00:08:44 #34524 [verbose] > Directory.CreateDirectory dir |> ignore)
00:08:44 #34525 [verbose] >
00:08:44 #34526 [verbose] > Formatter.Register<struct (string * string * string * struct (string * float
00:08:44 #34527 [verbose] > array * float array) array)> (
00:08:44 #34528 [verbose] > (fun struct (caption, x_desc, y_desc, ys) ->
00:08:44 #34529 [verbose] > let json = (caption, x_desc, y_desc, ys) |> FSharp.Json.Json.serialize
00:08:44 #34530 [verbose] > async {
00:08:44 #34531 [verbose] > let hashHex = json |> SpiralCrypto.hash_text
00:08:44 #34532 [verbose] > ...
00:08:45 #34533 [verbose] >
00:08:45 #34534 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:45 #34535 [verbose] > // // test
00:08:45 #34536 [verbose] >
00:08:45 #34537 [verbose] > open testing
00:08:46 #34538 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:08:46 #34539 [verbose] >
00:08:46 #34540 [verbose] > ╭─[ 1.26s - stdout ]───────────────────────────────────────────────────────────╮
00:08:46 #34541 [verbose] > │ () │
00:08:46 #34542 [verbose] > │ │
00:08:46 #34543 [verbose] > │ │
00:08:46 #34544 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:46 #34545 [verbose] >
00:08:46 #34546 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:46 #34547 [verbose] > open listm'_operators
00:08:46 #34548 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\57b3e233f8078b43cef5d98551cf98bae9dc3b21df53bed25f284d199ff708dd\main.spi
00:08:46 #34549 [verbose] >
00:08:46 #34550 [verbose] > ╭─[ 288.57ms - stdout ]────────────────────────────────────────────────────────╮
00:08:46 #34551 [verbose] > │ () │
00:08:46 #34552 [verbose] > │ │
00:08:46 #34553 [verbose] > │ │
00:08:46 #34554 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:46 #34555 [verbose] >
00:08:46 #34556 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:46 #34557 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:46 #34558 [verbose] > │ ## init_series │
00:08:46 #34559 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:46 #34560 [verbose] >
00:08:46 #34561 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:46 #34562 [verbose] > // // test
00:08:46 #34563 [verbose] >
00:08:46 #34564 [verbose] > inl x : a _ f64 = am'.init_series -3 3 0.01
00:08:46 #34565 [verbose] > inl y = x |> am.map math.square
00:08:46 #34566 [verbose] > "square", "x", "y", ;[[ "square", x, y ]]
00:08:46 #34567 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0449c0f87005948ff44a52881eaf559cb5510130812aa8fa45a5c226ff0d315b\main.spi
00:08:47 #34568 [verbose] >
00:08:47 #34569 [verbose] > ╭─[ 421.25ms - return value ]──────────────────────────────────────────────────╮
00:08:47 #34570 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:08:47 #34571 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:08:47 #34572 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:08:47 #34573 [verbose] > │ stroke="none"/> │
00:08:47 #34574 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:08:47 #34575 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:08:47 #34576 [verbose] > │ fill="#FFFFFF"> │
00:08:47 #34577 [verbose] > │ square │
00:08:47 #34578 [verbose] > │ </text> │
00:08:47 #34579 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:08:47 #34580 [verbose] > │ y2="75"/> │
00:08:47 #34581 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:08:47 #34582 [verbose] > │ y2="75"/> │
00:08:47 #34583 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:08:47 #34584 [verbose] > │ y2="75"/> │
00:08:47 #34585 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:08:47 #34586 [verbose] > │ y2="75"/> │
00:08:47 #34587 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:08:47 #34588 [verbose] > │ ... │
00:08:47 #34589 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 #34590 [verbose] >
00:08:47 #34591 [verbose] > ╭─[ 439.93ms - stdout ]────────────────────────────────────────────────────────╮
00:08:47 #34592 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:08:47 #34593 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:08:47 #34594 [verbose] > │ let v1 : int32 = v0.l0 │
00:08:47 #34595 [verbose] > │ let v2 : bool = v1 < 601 │
00:08:47 #34596 [verbose] > │ v2 │
00:08:47 #34597 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:08:47 #34598 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:47 #34599 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:47 #34600 [verbose] > │ v3 │
00:08:47 #34601 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:08:47 #34602 [verbose] > │ []) * (float [])) [])) = │
00:08:47 #34603 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (601) │
00:08:47 #34604 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:08:47 #34605 [verbose] > │ while method1(v1) do │
00:08:47 #34606 [verbose] > │ let v3 : int32 = v1.l0 │
00:08:47 #34607 [verbose] > │ let v4 : float = float v3 │
00:08:47 #34608 [verbose] > │ let v5 : float = 0.01 * v4 │
00:08:47 #34609 [verbose] > │ let v6 : float = -3.0 + v5 │
00:08:47 #34610 [verbose] > │ v0.[int v3] <- v6 │
00:08:47 #34611 [verbose] > │ let v7 : int32 = v3 + 1 │
00:08:47 #34612 [verbose] > │ v1.l0 <- v7 │
00:08:47 #34613 [verbose] > │ () │
00:08:47 #34614 [verbose] > │ let v8 : int32 = v0.Length │
00:08:47 #34615 [verbose] > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:08:47 #34616 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:08:47 #34617 [verbose] > │ while method2(v8, v10) do │
00:08:47 #34618 [verbose] > │ let v12 : int32 = v10.l0 │
00:08:47 #34619 [verbose] > │ let v13 : float = v0.[int v12] │
00:08:47 #34620 [verbose] > │ let v14 : float = v13 ** 2.0 │
00:08:47 #34621 [verbose] > │ v9.[int v12] <- v14 │
00:08:47 #34622 [verbose] > │ let v15 : int32 = v12 + 1 │
00:08:47 #34623 [verbose] > │ v10.l0 <- v15 │
00:08:47 #34624 [verbose] > │ () │
00:08:47 #34625 [verbose] > │ let v16 : string = "square" │
00:08:47 #34626 [verbose] > │ let v17 : (struct (string * (float []) * (float [])) []) = [|struct │
00:08:47 #34627 [verbose] > │ (v16, v0, v9)|] │
00:08:47 #34628 [verbose] > │ let v18 : string = "x" │
00:08:47 #34629 [verbose] > │ let v19 : string = "y" │
00:08:47 #34630 [verbose] > │ struct (v16, v18, v19, v17) │
00:08:47 #34631 [verbose] > │ method0() │
00:08:47 #34632 [verbose] > │ │
00:08:47 #34633 [verbose] > │ │
00:08:47 #34634 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 #34635 [verbose] >
00:08:47 #34636 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:47 #34637 [verbose] > // // test
00:08:47 #34638 [verbose] >
00:08:47 #34639 [verbose] > inl x : a _ f64 = am'.init_series -10 10 0.1
00:08:47 #34640 [verbose] > inl y_sin = x |> am.map sin
00:08:47 #34641 [verbose] > inl y_cos = x |> am.map cos
00:08:47 #34642 [verbose] > "sin cos", "x", "y", ;[[ "sin", x, y_sin; "cos", x, y_cos ]]
00:08:47 #34643 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\31935fcb7a36c7d27e2a6736430fd8585c36b2dd921469c03f41118dbacd488c\main.spi
00:08:47 #34644 [verbose] >
00:08:47 #34645 [verbose] > ╭─[ 381.39ms - return value ]──────────────────────────────────────────────────╮
00:08:47 #34646 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:08:47 #34647 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:08:47 #34648 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:08:47 #34649 [verbose] > │ stroke="none"/> │
00:08:47 #34650 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:08:47 #34651 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:08:47 #34652 [verbose] > │ fill="#FFFFFF"> │
00:08:47 #34653 [verbose] > │ sin cos │
00:08:47 #34654 [verbose] > │ </text> │
00:08:47 #34655 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="57" y1="424" x2="57" │
00:08:47 #34656 [verbose] > │ y2="75"/> │
00:08:47 #34657 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:08:47 #34658 [verbose] > │ y2="75"/> │
00:08:47 #34659 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="82" y1="424" x2="82" │
00:08:47 #34660 [verbose] > │ y2="75"/> │
00:08:47 #34661 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:08:47 #34662 [verbose] > │ y2="75"/> │
00:08:47 #34663 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="107" y1="424" │
00:08:47 #34664 [verbose] > │ x2="10... │
00:08:47 #34665 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 #34666 [verbose] >
00:08:47 #34667 [verbose] > ╭─[ 391.97ms - stdout ]────────────────────────────────────────────────────────╮
00:08:47 #34668 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:08:47 #34669 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:08:47 #34670 [verbose] > │ let v1 : int32 = v0.l0 │
00:08:47 #34671 [verbose] > │ let v2 : bool = v1 < 201 │
00:08:47 #34672 [verbose] > │ v2 │
00:08:47 #34673 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:08:47 #34674 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:47 #34675 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:47 #34676 [verbose] > │ v3 │
00:08:47 #34677 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:08:47 #34678 [verbose] > │ []) * (float [])) [])) = │
00:08:47 #34679 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (201) │
00:08:47 #34680 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:08:47 #34681 [verbose] > │ while method1(v1) do │
00:08:47 #34682 [verbose] > │ let v3 : int32 = v1.l0 │
00:08:47 #34683 [verbose] > │ let v4 : float = float v3 │
00:08:47 #34684 [verbose] > │ let v5 : float = 0.1 * v4 │
00:08:47 #34685 [verbose] > │ let v6 : float = -10.0 + v5 │
00:08:47 #34686 [verbose] > │ v0.[int v3] <- v6 │
00:08:47 #34687 [verbose] > │ let v7 : int32 = v3 + 1 │
00:08:47 #34688 [verbose] > │ v1.l0 <- v7 │
00:08:47 #34689 [verbose] > │ () │
00:08:47 #34690 [verbose] > │ let v8 : int32 = v0.Length │
00:08:47 #34691 [verbose] > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:08:47 #34692 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:08:47 #34693 [verbose] > │ while method2(v8, v10) do │
00:08:47 #34694 [verbose] > │ let v12 : int32 = v10.l0 │
00:08:47 #34695 [verbose] > │ let v13 : float = v0.[int v12] │
00:08:47 #34696 [verbose] > │ let v14 : float = sin v13 │
00:08:47 #34697 [verbose] > │ v9.[int v12] <- v14 │
00:08:47 #34698 [verbose] > │ let v15 : int32 = v12 + 1 │
00:08:47 #34699 [verbose] > │ v10.l0 <- v15 │
00:08:47 #34700 [verbose] > │ () │
00:08:47 #34701 [verbose] > │ let v16 : (float []) = Array.zeroCreate<float> (v8) │
00:08:47 #34702 [verbose] > │ let v17 : Mut0 = {l0 = 0} : Mut0 │
00:08:47 #34703 [verbose] > │ while method2(v8, v17) do │
00:08:47 #34704 [verbose] > │ let v19 : int32 = v17.l0 │
00:08:47 #34705 [verbose] > │ let v20 : float = v0.[int v19] │
00:08:47 #34706 [verbose] > │ let v21 : float = cos v20 │
00:08:47 #34707 [verbose] > │ v16.[int v19] <- v21 │
00:08:47 #34708 [verbose] > │ let v22 : int32 = v19 + 1 │
00:08:47 #34709 [verbose] > │ v17.l0 <- v22 │
00:08:47 #34710 [verbose] > │ () │
00:08:47 #34711 [verbose] > │ let v23 : string = "sin" │
00:08:47 #34712 [verbose] > │ let v24 : string = "cos" │
00:08:47 #34713 [verbose] > │ let v25 : (struct (string * (float []) * (float [])) []) = [|struct │
00:08:47 #34714 [verbose] > │ (v23, v0, v9); struct (v24, v0, v16)|] │
00:08:47 #34715 [verbose] > │ let v26 : string = "sin cos" │
00:08:47 #34716 [verbose] > │ let v27 : string = "x" │
00:08:47 #34717 [verbose] > │ let v28 : string = "y" │
00:08:47 #34718 [verbose] > │ struct (v26, v27, v28, v25) │
00:08:47 #34719 [verbose] > │ method0() │
00:08:47 #34720 [verbose] > │ │
00:08:47 #34721 [verbose] > │ │
00:08:47 #34722 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 #34723 [verbose] >
00:08:47 #34724 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:47 #34725 [verbose] > // // test
00:08:47 #34726 [verbose] >
00:08:47 #34727 [verbose] > inl y_pos y0 vy0 ay t =
00:08:47 #34728 [verbose] > y0 + vy0 * t + ay * (t |> math.square) / 2
00:08:47 #34729 [verbose] >
00:08:47 #34730 [verbose] > inl x : a _ f64 = am'.init_series 0 5 0.01
00:08:47 #34731 [verbose] > inl y = x |> am.map (y_pos 0 20 -9.8)
00:08:47 #34732 [verbose] > "projectile motion", "time (s)", "", ;[[ "height of projectile (m)", x, y ]]
00:08:47 #34733 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\10da5a316a98dd9c8e1fdbf98aea21ef7dfc06e1d55ef490be6c36784f69a323\main.spi
00:08:47 #34734 [verbose] >
00:08:47 #34735 [verbose] > ╭─[ 345.46ms - return value ]──────────────────────────────────────────────────╮
00:08:47 #34736 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:08:47 #34737 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:08:47 #34738 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:08:47 #34739 [verbose] > │ stroke="none"/> │
00:08:47 #34740 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:08:47 #34741 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:08:47 #34742 [verbose] > │ fill="#FFFFFF"> │
00:08:47 #34743 [verbose] > │ projectile motion │
00:08:47 #34744 [verbose] > │ </text> │
00:08:47 #34745 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:08:47 #34746 [verbose] > │ y2="75"/> │
00:08:47 #34747 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:08:47 #34748 [verbose] > │ y2="75"/> │
00:08:47 #34749 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:08:47 #34750 [verbose] > │ y2="75"/> │
00:08:47 #34751 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:08:47 #34752 [verbose] > │ y2="75"/> │
00:08:47 #34753 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="99" y1="42... │
00:08:47 #34754 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 #34755 [verbose] >
00:08:47 #34756 [verbose] > ╭─[ 354.77ms - stdout ]────────────────────────────────────────────────────────╮
00:08:47 #34757 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:08:47 #34758 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:08:47 #34759 [verbose] > │ let v1 : int32 = v0.l0 │
00:08:47 #34760 [verbose] > │ let v2 : bool = v1 < 501 │
00:08:47 #34761 [verbose] > │ v2 │
00:08:47 #34762 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:08:47 #34763 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:47 #34764 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:47 #34765 [verbose] > │ v3 │
00:08:47 #34766 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:08:47 #34767 [verbose] > │ []) * (float [])) [])) = │
00:08:47 #34768 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (501) │
00:08:47 #34769 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:08:47 #34770 [verbose] > │ while method1(v1) do │
00:08:47 #34771 [verbose] > │ let v3 : int32 = v1.l0 │
00:08:47 #34772 [verbose] > │ let v4 : float = float v3 │
00:08:47 #34773 [verbose] > │ let v5 : float = 0.01 * v4 │
00:08:47 #34774 [verbose] > │ v0.[int v3] <- v5 │
00:08:47 #34775 [verbose] > │ let v6 : int32 = v3 + 1 │
00:08:47 #34776 [verbose] > │ v1.l0 <- v6 │
00:08:47 #34777 [verbose] > │ () │
00:08:47 #34778 [verbose] > │ let v7 : int32 = v0.Length │
00:08:47 #34779 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:08:47 #34780 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:08:47 #34781 [verbose] > │ while method2(v7, v9) do │
00:08:47 #34782 [verbose] > │ let v11 : int32 = v9.l0 │
00:08:47 #34783 [verbose] > │ let v12 : float = v0.[int v11] │
00:08:47 #34784 [verbose] > │ let v13 : float = 20.0 * v12 │
00:08:47 #34785 [verbose] > │ let v14 : float = v12 ** 2.0 │
00:08:47 #34786 [verbose] > │ let v15 : float = -9.8 * v14 │
00:08:47 #34787 [verbose] > │ let v16 : float = v15 / 2.0 │
00:08:47 #34788 [verbose] > │ let v17 : float = v13 + v16 │
00:08:47 #34789 [verbose] > │ v8.[int v11] <- v17 │
00:08:47 #34790 [verbose] > │ let v18 : int32 = v11 + 1 │
00:08:47 #34791 [verbose] > │ v9.l0 <- v18 │
00:08:47 #34792 [verbose] > │ () │
00:08:47 #34793 [verbose] > │ let v19 : string = "height of projectile (m)" │
00:08:47 #34794 [verbose] > │ let v20 : (struct (string * (float []) * (float [])) []) = [|struct │
00:08:47 #34795 [verbose] > │ (v19, v0, v8)|] │
00:08:47 #34796 [verbose] > │ let v21 : string = "projectile motion" │
00:08:47 #34797 [verbose] > │ let v22 : string = "time (s)" │
00:08:47 #34798 [verbose] > │ let v23 : string = "" │
00:08:47 #34799 [verbose] > │ struct (v21, v22, v23, v20) │
00:08:47 #34800 [verbose] > │ method0() │
00:08:47 #34801 [verbose] > │ │
00:08:47 #34802 [verbose] > │ │
00:08:47 #34803 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 #34804 [verbose] >
00:08:47 #34805 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:47 #34806 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:47 #34807 [verbose] > │ ## velocity_cf │
00:08:47 #34808 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:47 #34809 [verbose] >
00:08:47 #34810 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:47 #34811 [verbose] > type mass = f64
00:08:47 #34812 [verbose] > type time = f64
00:08:47 #34813 [verbose] > type position = f64
00:08:47 #34814 [verbose] > type velocity = f64
00:08:47 #34815 [verbose] > type force = f64
00:08:47 #34816 [verbose] >
00:08:47 #34817 [verbose] > type velocity_cf = mass -> velocity -> list force -> (time -> velocity)
00:08:47 #34818 [verbose] >
00:08:47 #34819 [verbose] > inl velocity_cf m v0 fs =
00:08:47 #34820 [verbose] > inl f_net = fs |> listm'.sum
00:08:47 #34821 [verbose] > inl a0 = f_net / m
00:08:47 #34822 [verbose] > inl v t = v0 + a0 * t
00:08:47 #34823 [verbose] > v
00:08:48 #34824 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\09c46f40acfcb898ae8e6b8843d59ab5917f50368e1d383a0c2270178c7e7b6c\main.spi
00:08:48 #34825 [verbose] >
00:08:48 #34826 [verbose] > ╭─[ 258.76ms - stdout ]────────────────────────────────────────────────────────╮
00:08:48 #34827 [verbose] > │ () │
00:08:48 #34828 [verbose] > │ │
00:08:48 #34829 [verbose] > │ │
00:08:48 #34830 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 #34831 [verbose] >
00:08:48 #34832 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:48 #34833 [verbose] > // // test
00:08:48 #34834 [verbose] >
00:08:48 #34835 [verbose] > velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]] 0
00:08:48 #34836 [verbose] > |> _assert_eq 0.6
00:08:48 #34837 [verbose] >
00:08:48 #34838 [verbose] > velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]] 1
00:08:48 #34839 [verbose] > |> _assert_eq 0.2
00:08:48 #34840 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\14c86fb6f214ea352e7ce11a5862e32020c1068108dab1e39900e0cf320dc2f8\main.spi
00:08:48 #34841 [verbose] >
00:08:48 #34842 [verbose] > ╭─[ 279.19ms - stdout ]────────────────────────────────────────────────────────╮
00:08:48 #34843 [verbose] > │ let rec method0 () : unit = │
00:08:48 #34844 [verbose] > │ let v0 : string = $"%A{0.6}" │
00:08:48 #34845 [verbose] > │ System.Console.WriteLine v0 │
00:08:48 #34846 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.6} / expected: %A{0.6}" │
00:08:48 #34847 [verbose] > │ let v2 : string = $"%A{0.2}" │
00:08:48 #34848 [verbose] > │ System.Console.WriteLine v2 │
00:08:48 #34849 [verbose] > │ let v3 : string = $"__expect / actual: %A{0.2} / expected: %A{0.2}" │
00:08:48 #34850 [verbose] > │ () │
00:08:48 #34851 [verbose] > │ method0() │
00:08:48 #34852 [verbose] > │ │
00:08:48 #34853 [verbose] > │ 0.6 │
00:08:48 #34854 [verbose] > │ 0.2 │
00:08:48 #34855 [verbose] > │ │
00:08:48 #34856 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 #34857 [verbose] >
00:08:48 #34858 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:48 #34859 [verbose] > // // test
00:08:48 #34860 [verbose] >
00:08:48 #34861 [verbose] > inl x = am'.init_series 0 4 0.1
00:08:48 #34862 [verbose] > inl y = x |> am.map (velocity_cf 0.1f64 0.6 [[ 0.04; -0.08 ]])
00:08:48 #34863 [verbose] > "car on an air track", "time (s)", "", ;[[ "velocity of car (m/s)", x, y ]]
00:08:48 #34864 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3a87803d3d74cd12d200b974dc0c5a09f3dbbe67ab571f44f693ca5185327052\main.spi
00:08:48 #34865 [verbose] >
00:08:48 #34866 [verbose] > ╭─[ 290.01ms - return value ]──────────────────────────────────────────────────╮
00:08:48 #34867 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:08:48 #34868 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:08:48 #34869 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:08:48 #34870 [verbose] > │ stroke="none"/> │
00:08:48 #34871 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:08:48 #34872 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:08:48 #34873 [verbose] > │ fill="#FFFFFF"> │
00:08:48 #34874 [verbose] > │ car on an air track │
00:08:48 #34875 [verbose] > │ </text> │
00:08:48 #34876 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="57" y1="424" x2="57" │
00:08:48 #34877 [verbose] > │ y2="75"/> │
00:08:48 #34878 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:08:48 #34879 [verbose] > │ y2="75"/> │
00:08:48 #34880 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="82" y1="424" x2="82" │
00:08:48 #34881 [verbose] > │ y2="75"/> │
00:08:48 #34882 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x2="94" │
00:08:48 #34883 [verbose] > │ y2="75"/> │
00:08:48 #34884 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="107" y1=... │
00:08:48 #34885 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 #34886 [verbose] >
00:08:48 #34887 [verbose] > ╭─[ 299.99ms - stdout ]────────────────────────────────────────────────────────╮
00:08:48 #34888 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:08:48 #34889 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:08:48 #34890 [verbose] > │ let v1 : int32 = v0.l0 │
00:08:48 #34891 [verbose] > │ let v2 : bool = v1 < 41 │
00:08:48 #34892 [verbose] > │ v2 │
00:08:48 #34893 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:08:48 #34894 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:48 #34895 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:48 #34896 [verbose] > │ v3 │
00:08:48 #34897 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:08:48 #34898 [verbose] > │ []) * (float [])) [])) = │
00:08:48 #34899 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (41) │
00:08:48 #34900 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:08:48 #34901 [verbose] > │ while method1(v1) do │
00:08:48 #34902 [verbose] > │ let v3 : int32 = v1.l0 │
00:08:48 #34903 [verbose] > │ let v4 : float = float v3 │
00:08:48 #34904 [verbose] > │ let v5 : float = 0.1 * v4 │
00:08:48 #34905 [verbose] > │ v0.[int v3] <- v5 │
00:08:48 #34906 [verbose] > │ let v6 : int32 = v3 + 1 │
00:08:48 #34907 [verbose] > │ v1.l0 <- v6 │
00:08:48 #34908 [verbose] > │ () │
00:08:48 #34909 [verbose] > │ let v7 : int32 = v0.Length │
00:08:48 #34910 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:08:48 #34911 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:08:48 #34912 [verbose] > │ while method2(v7, v9) do │
00:08:48 #34913 [verbose] > │ let v11 : int32 = v9.l0 │
00:08:48 #34914 [verbose] > │ let v12 : float = v0.[int v11] │
00:08:48 #34915 [verbose] > │ let v13 : float = -0.39999999999999997 * v12 │
00:08:48 #34916 [verbose] > │ let v14 : float = 0.6 + v13 │
00:08:48 #34917 [verbose] > │ v8.[int v11] <- v14 │
00:08:48 #34918 [verbose] > │ let v15 : int32 = v11 + 1 │
00:08:48 #34919 [verbose] > │ v9.l0 <- v15 │
00:08:48 #34920 [verbose] > │ () │
00:08:48 #34921 [verbose] > │ let v16 : string = "velocity of car (m/s)" │
00:08:48 #34922 [verbose] > │ let v17 : (struct (string * (float []) * (float [])) []) = [|struct │
00:08:48 #34923 [verbose] > │ (v16, v0, v8)|] │
00:08:48 #34924 [verbose] > │ let v18 : string = "car on an air track" │
00:08:48 #34925 [verbose] > │ let v19 : string = "time (s)" │
00:08:48 #34926 [verbose] > │ let v20 : string = "" │
00:08:48 #34927 [verbose] > │ struct (v18, v19, v20, v17) │
00:08:48 #34928 [verbose] > │ method0() │
00:08:48 #34929 [verbose] > │ │
00:08:48 #34930 [verbose] > │ │
00:08:48 #34931 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 #34932 [verbose] >
00:08:48 #34933 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:48 #34934 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:48 #34935 [verbose] > │ ## derivative │
00:08:48 #34936 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:48 #34937 [verbose] >
00:08:48 #34938 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:48 #34939 [verbose] > type derivative = (f64 -> f64) -> f64 -> f64
00:08:48 #34940 [verbose] >
00:08:48 #34941 [verbose] > inl derivative dt : derivative =
00:08:48 #34942 [verbose] > fun x t =>
00:08:48 #34943 [verbose] > (x (t + dt / 2) - x (t - dt / 2)) / dt
00:08:48 #34944 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f62fa942fd54a23fb7d2a7760f27a8763e2ec5d1b3de90d76f0fad52176c6146\main.spi
00:08:49 #34945 [verbose] >
00:08:49 #34946 [verbose] > ╭─[ 264.41ms - stdout ]────────────────────────────────────────────────────────╮
00:08:49 #34947 [verbose] > │ () │
00:08:49 #34948 [verbose] > │ │
00:08:49 #34949 [verbose] > │ │
00:08:49 #34950 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:49 #34951 [verbose] >
00:08:49 #34952 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:49 #34953 [verbose] > // // test
00:08:49 #34954 [verbose] >
00:08:49 #34955 [verbose] > derivative 1 (fun x => x ** 4 / 4) 1 - 1
00:08:49 #34956 [verbose] > |> _assert_approx_eq None 0.25
00:08:49 #34957 [verbose] >
00:08:49 #34958 [verbose] > derivative 0.001 (fun x => x ** 4 / 4) 1 - 1
00:08:49 #34959 [verbose] > |> _assert_approx_eq None 0.0000002499998827953931
00:08:49 #34960 [verbose] >
00:08:49 #34961 [verbose] > derivative 0.000001 (fun x => x ** 4 / 4) 1 - 1
00:08:49 #34962 [verbose] > |> _assert_approx_eq None 0.000000000001000088900582341
00:08:49 #34963 [verbose] >
00:08:49 #34964 [verbose] > derivative 0.000000001 (fun x => x ** 4 / 4) 1 - 1
00:08:49 #34965 [verbose] > |> _assert_approx_eq None 0.00000008274037099909037
00:08:49 #34966 [verbose] >
00:08:49 #34967 [verbose] > derivative 0.000000000001 (fun x => x ** 4 / 4) 1 - 1
00:08:49 #34968 [verbose] > |> _assert_approx_eq None 0.00008890058234101161
00:08:49 #34969 [verbose] >
00:08:49 #34970 [verbose] > derivative 0.000000000000001 (fun x => x ** 4 / 4) 1 - 1
00:08:49 #34971 [verbose] > |> _assert_approx_eq None -0.0007992778373592246
00:08:49 #34972 [verbose] >
00:08:49 #34973 [verbose] > derivative 0.000000000000000001 (fun x => x ** 4 / 4) 1 - 1
00:08:49 #34974 [verbose] > |> _assert_approx_eq None -1
00:08:49 #34975 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ac36a4f469df9844cbf6dbfe2fa3f4dde2f8c4db9f26b779c87fde0ee50f0795\main.spi
00:08:49 #34976 [verbose] >
00:08:49 #34977 [verbose] > ╭─[ 311.40ms - stdout ]────────────────────────────────────────────────────────╮
00:08:49 #34978 [verbose] > │ let rec method0 () : unit = │
00:08:49 #34979 [verbose] > │ let v0 : string = $"%A{0.25}" │
00:08:49 #34980 [verbose] > │ System.Console.WriteLine v0 │
00:08:49 #34981 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.25} / expected: %A{0.25}" │
00:08:49 #34982 [verbose] > │ let v2 : string = $"%A{2.499998827953931E-07}" │
00:08:49 #34983 [verbose] > │ System.Console.WriteLine v2 │
00:08:49 #34984 [verbose] > │ let v3 : string = $"__expect / actual: %A{2.499998827953931E-07} / │
00:08:49 #34985 [verbose] > │ expected: %A{2.499998827953931E-07}" │
00:08:49 #34986 [verbose] > │ let v4 : string = $"%A{1.000088900582341E-12}" │
00:08:49 #34987 [verbose] > │ System.Console.WriteLine v4 │
00:08:49 #34988 [verbose] > │ let v5 : string = $"__expect / actual: %A{1.000088900582341E-12} / │
00:08:49 #34989 [verbose] > │ expected: %A{1.000088900582341E-12}" │
00:08:49 #34990 [verbose] > │ let v6 : string = $"%A{8.274037099909037E-08}" │
00:08:49 #34991 [verbose] > │ System.Console.WriteLine v6 │
00:08:49 #34992 [verbose] > │ let v7 : string = $"__expect / actual: %A{8.274037099909037E-08} / │
00:08:49 #34993 [verbose] > │ expected: %A{8.274037099909037E-08}" │
00:08:49 #34994 [verbose] > │ let v8 : string = $"%A{8.890058234101161E-05}" │
00:08:49 #34995 [verbose] > │ System.Console.WriteLine v8 │
00:08:49 #34996 [verbose] > │ let v9 : string = $"__expect / actual: %A{8.890058234101161E-05} / │
00:08:49 #34997 [verbose] > │ expected: %A{8.890058234101161E-05}" │
00:08:49 #34998 [verbose] > │ let v10 : string = $"%A{-0.0007992778373592246}" │
00:08:49 #34999 [verbose] > │ System.Console.WriteLine v10 │
00:08:49 #35000 [verbose] > │ let v11 : string = $"__expect / actual: %A{-0.0007992778373592246} / │
00:08:49 #35001 [verbose] > │ expected: %A{-0.0007992778373592246}" │
00:08:49 #35002 [verbose] > │ let v12 : string = $"%A{-1.0}" │
00:08:49 #35003 [verbose] > │ System.Console.WriteLine v12 │
00:08:49 #35004 [verbose] > │ let v13 : string = $"__expect / actual: %A{-1.0} / expected: %A{-1.0}" │
00:08:49 #35005 [verbose] > │ () │
00:08:49 #35006 [verbose] > │ method0() │
00:08:49 #35007 [verbose] > │ │
00:08:49 #35008 [verbose] > │ 0.25 │
00:08:49 #35009 [verbose] > │ 2.499998828e-07 │
00:08:49 #35010 [verbose] > │ 1.000088901e-12 │
00:08:49 #35011 [verbose] > │ 8.2740371e-08 │
00:08:49 #35012 [verbose] > │ 8.890058234e-05 │
00:08:49 #35013 [verbose] > │ -0.0007992778374 │
00:08:49 #35014 [verbose] > │ -1.0 │
00:08:49 #35015 [verbose] > │ │
00:08:49 #35016 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:49 #35017 [verbose] >
00:08:49 #35018 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:49 #35019 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:49 #35020 [verbose] > │ ## integration │
00:08:49 #35021 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:49 #35022 [verbose] >
00:08:49 #35023 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:49 #35024 [verbose] > type integration = (f64 -> f64) -> f64 -> f64 -> f64
00:08:49 #35025 [verbose] >
00:08:49 #35026 [verbose] > inl integral dt : integration =
00:08:49 #35027 [verbose] > fun f a b =>
00:08:49 #35028 [verbose] > inl rec loop t y =
00:08:49 #35029 [verbose] > if t < b
00:08:49 #35030 [verbose] > then loop (t + dt) (y + f t * dt)
00:08:49 #35031 [verbose] > else t, y
00:08:49 #35032 [verbose] > loop (a + dt / 2) 0
00:08:49 #35033 [verbose] > |> snd
00:08:49 #35034 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a59da5f2a573ab66d523c994153baf17bdc48fb399ba5dde006aef94787f9f06\main.spi
00:08:49 #35035 [verbose] >
00:08:49 #35036 [verbose] > ╭─[ 231.43ms - stdout ]────────────────────────────────────────────────────────╮
00:08:49 #35037 [verbose] > │ () │
00:08:49 #35038 [verbose] > │ │
00:08:49 #35039 [verbose] > │ │
00:08:49 #35040 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:49 #35041 [verbose] >
00:08:49 #35042 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:49 #35043 [verbose] > // // test
00:08:49 #35044 [verbose] >
00:08:49 #35045 [verbose] > integral 0.01 math.square 0 1
00:08:49 #35046 [verbose] > |> _assert_approx_eq None 0.33332500000000004
00:08:49 #35047 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\17fd69da1bc84f350e91e67dc11421a58185fcd5b1d9ce173535944c4e9f36c1\main.spi
00:08:49 #35048 [verbose] >
00:08:49 #35049 [verbose] > ╭─[ 286.52ms - stdout ]────────────────────────────────────────────────────────╮
00:08:49 #35050 [verbose] > │ let rec method0 () : unit = │
00:08:49 #35051 [verbose] > │ let v0 : string = $"%A{0.3333250000000004}" │
00:08:49 #35052 [verbose] > │ System.Console.WriteLine v0 │
00:08:49 #35053 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.3333250000000004} / │
00:08:49 #35054 [verbose] > │ expected: %A{0.33332500000000004}" │
00:08:49 #35055 [verbose] > │ () │
00:08:49 #35056 [verbose] > │ method0() │
00:08:49 #35057 [verbose] > │ │
00:08:49 #35058 [verbose] > │ 0.333325 │
00:08:49 #35059 [verbose] > │ │
00:08:49 #35060 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:49 #35061 [verbose] >
00:08:49 #35062 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:49 #35063 [verbose] > inl integral' dt : integration =
00:08:49 #35064 [verbose] > fun f a b =>
00:08:49 #35065 [verbose] > listm'.init_series (a + dt / 2) (b - dt / 2) dt
00:08:49 #35066 [verbose] > |> listm.map (f >> (*) dt)
00:08:49 #35067 [verbose] > |> listm'.sum
00:08:50 #35068 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4f971dd297fd5181766262311dfee64da39d5f78e2272647a3dec805c5bb3e6d\main.spi
00:08:50 #35069 [verbose] >
00:08:50 #35070 [verbose] > ╭─[ 213.23ms - stdout ]────────────────────────────────────────────────────────╮
00:08:50 #35071 [verbose] > │ () │
00:08:50 #35072 [verbose] > │ │
00:08:50 #35073 [verbose] > │ │
00:08:50 #35074 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 #35075 [verbose] >
00:08:50 #35076 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:50 #35077 [verbose] > // // test
00:08:50 #35078 [verbose] >
00:08:50 #35079 [verbose] > integral' 0.1 math.square 0 1
00:08:50 #35080 [verbose] > |> _assert_approx_eq None (integral 0.1 math.square 0 1)
00:08:50 #35081 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8698d12c80dec9294f9bd43001744dfc2d6c60269ed9ab48cd04dc2cf29b6dcf\main.spi
00:08:50 #35082 [verbose] >
00:08:50 #35083 [verbose] > ╭─[ 291.02ms - stdout ]────────────────────────────────────────────────────────╮
00:08:50 #35084 [verbose] > │ let rec method0 () : unit = │
00:08:50 #35085 [verbose] > │ let v0 : string = $"%A{0.3325000000000001}" │
00:08:50 #35086 [verbose] > │ System.Console.WriteLine v0 │
00:08:50 #35087 [verbose] > │ let v1 : string = $"__expect / actual: %A{0.3325000000000001} / │
00:08:50 #35088 [verbose] > │ expected: %A{0.33249999999999996}" │
00:08:50 #35089 [verbose] > │ () │
00:08:50 #35090 [verbose] > │ method0() │
00:08:50 #35091 [verbose] > │ │
00:08:50 #35092 [verbose] > │ 0.3325 │
00:08:50 #35093 [verbose] > │ │
00:08:50 #35094 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 #35095 [verbose] >
00:08:50 #35096 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:50 #35097 [verbose] > inl integral'' dt : integration =
00:08:50 #35098 [verbose] > fun f a b =>
00:08:50 #35099 [verbose] > am'.init_series (a + dt / 2) (b - dt / 2) dt
00:08:50 #35100 [verbose] > |> am.map (f >> (*) dt)
00:08:50 #35101 [verbose] > |> am'.sum
00:08:50 #35102 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\78707b950bbad05cafdb65ad98fb71b35b8ba53cb718406bdb5db88f6a7acfd4\main.spi
00:08:50 #35103 [verbose] >
00:08:50 #35104 [verbose] > ╭─[ 248.66ms - stdout ]────────────────────────────────────────────────────────╮
00:08:50 #35105 [verbose] > │ () │
00:08:50 #35106 [verbose] > │ │
00:08:50 #35107 [verbose] > │ │
00:08:50 #35108 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:50 #35109 [verbose] >
00:08:50 #35110 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:50 #35111 [verbose] > // // test
00:08:50 #35112 [verbose] >
00:08:50 #35113 [verbose] > integral'' 0.01 math.square 0 1
00:08:50 #35114 [verbose] > |> _assert_approx_eq None (integral 0.01 math.square 0 1)
00:08:50 #35115 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d410ee738c976ed4f88dc813ca9600392b0cef7251c96047f666c78e5457fa1e\main.spi
00:08:51 #35116 [verbose] >
00:08:51 #35117 [verbose] > ╭─[ 353.18ms - stdout ]────────────────────────────────────────────────────────╮
00:08:51 #35118 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:08:51 #35119 [verbose] > │ and Mut1 = {mutable l0 : int32; mutable l1 : float} │
00:08:51 #35120 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:08:51 #35121 [verbose] > │ let v1 : int32 = v0.l0 │
00:08:51 #35122 [verbose] > │ let v2 : bool = v1 < 100 │
00:08:51 #35123 [verbose] > │ v2 │
00:08:51 #35124 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:08:51 #35125 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:51 #35126 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:51 #35127 [verbose] > │ v3 │
00:08:51 #35128 [verbose] > │ and method3 (v0 : int32, v1 : Mut1) : bool = │
00:08:51 #35129 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:51 #35130 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:51 #35131 [verbose] > │ v3 │
00:08:51 #35132 [verbose] > │ and method4 (v0 : bool) : bool = │
00:08:51 #35133 [verbose] > │ v0 │
00:08:51 #35134 [verbose] > │ and method0 () : unit = │
00:08:51 #35135 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (100) │
00:08:51 #35136 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:08:51 #35137 [verbose] > │ while method1(v1) do │
00:08:51 #35138 [verbose] > │ let v3 : int32 = v1.l0 │
00:08:51 #35139 [verbose] > │ let v4 : float = float v3 │
00:08:51 #35140 [verbose] > │ let v5 : float = 0.01 * v4 │
00:08:51 #35141 [verbose] > │ let v6 : float = 0.005 + v5 │
00:08:51 #35142 [verbose] > │ v0.[int v3] <- v6 │
00:08:51 #35143 [verbose] > │ let v7 : int32 = v3 + 1 │
00:08:51 #35144 [verbose] > │ v1.l0 <- v7 │
00:08:51 #35145 [verbose] > │ () │
00:08:51 #35146 [verbose] > │ let v8 : int32 = v0.Length │
00:08:51 #35147 [verbose] > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:08:51 #35148 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:08:51 #35149 [verbose] > │ while method2(v8, v10) do │
00:08:51 #35150 [verbose] > │ let v12 : int32 = v10.l0 │
00:08:51 #35151 [verbose] > │ let v13 : float = v0.[int v12] │
00:08:51 #35152 [verbose] > │ let v14 : float = v13 ** 2.0 │
00:08:51 #35153 [verbose] > │ let v15 : float = 0.01 * v14 │
00:08:51 #35154 [verbose] > │ v9.[int v12] <- v15 │
00:08:51 #35155 [verbose] > │ let v16 : int32 = v12 + 1 │
00:08:51 #35156 [verbose] > │ v10.l0 <- v16 │
00:08:51 #35157 [verbose] > │ () │
00:08:51 #35158 [verbose] > │ let v17 : int32 = v9.Length │
00:08:51 #35159 [verbose] > │ let v18 : Mut1 = {l0 = 0; l1 = 0.0} : Mut1 │
00:08:51 #35160 [verbose] > │ while method3(v17, v18) do │
00:08:51 #35161 [verbose] > │ let v20 : int32 = v18.l0 │
00:08:51 #35162 [verbose] > │ let v21 : float = v18.l1 │
00:08:51 #35163 [verbose] > │ let v22 : float = v9.[int v20] │
00:08:51 #35164 [verbose] > │ let v23 : float = v21 + v22 │
00:08:51 #35165 [verbose] > │ let v24 : int32 = v20 + 1 │
00:08:51 #35166 [verbose] > │ v18.l0 <- v24 │
00:08:51 #35167 [verbose] > │ v18.l1 <- v23 │
00:08:51 #35168 [verbose] > │ () │
00:08:51 #35169 [verbose] > │ let v25 : float = v18.l1 │
00:08:51 #35170 [verbose] > │ let v26 : string = $"%A{v25}" │
00:08:51 #35171 [verbose] > │ System.Console.WriteLine v26 │
00:08:51 #35172 [verbose] > │ let v27 : float = 0.3333250000000004 - v25 │
00:08:51 #35173 [verbose] > │ let v28 : float = -v27 │
00:08:51 #35174 [verbose] > │ let v29 : bool = v27 >= v28 │
00:08:51 #35175 [verbose] > │ let v30 : float = │
00:08:51 #35176 [verbose] > │ if v29 then │
00:08:51 #35177 [verbose] > │ v27 │
00:08:51 #35178 [verbose] > │ else │
00:08:51 #35179 [verbose] > │ v28 │
00:08:51 #35180 [verbose] > │ let v31 : bool = v30 < 1E-08 │
00:08:51 #35181 [verbose] > │ let v33 : bool = │
00:08:51 #35182 [verbose] > │ if v31 then │
00:08:51 #35183 [verbose] > │ true │
00:08:51 #35184 [verbose] > │ else │
00:08:51 #35185 [verbose] > │ method4(v31) │
00:08:51 #35186 [verbose] > │ let v34 : string = $"__expect / actual: %A{v25} / expected: │
00:08:51 #35187 [verbose] > │ %A{0.3333250000000004}" │
00:08:51 #35188 [verbose] > │ let v35 : bool = v33 = false │
00:08:51 #35189 [verbose] > │ if v35 then │
00:08:51 #35190 [verbose] > │ failwith<unit> v34 │
00:08:51 #35191 [verbose] > │ method0() │
00:08:51 #35192 [verbose] > │ │
00:08:51 #35193 [verbose] > │ 0.333325 │
00:08:51 #35194 [verbose] > │ │
00:08:51 #35195 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 #35196 [verbose] >
00:08:51 #35197 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:51 #35198 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:51 #35199 [verbose] > │ ## anti_derivative │
00:08:51 #35200 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 #35201 [verbose] >
00:08:51 #35202 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:51 #35203 [verbose] > inl anti_derivative dt v0 a t =
00:08:51 #35204 [verbose] > v0 + integral' dt a 0 t
00:08:51 #35205 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\55e768cb3a9e9622467eb06370e2a988eb6f88de1e0623b55822a55aebe17f09\main.spi
00:08:51 #35206 [verbose] >
00:08:51 #35207 [verbose] > ╭─[ 271.33ms - stdout ]────────────────────────────────────────────────────────╮
00:08:51 #35208 [verbose] > │ () │
00:08:51 #35209 [verbose] > │ │
00:08:51 #35210 [verbose] > │ │
00:08:51 #35211 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 #35212 [verbose] >
00:08:51 #35213 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:51 #35214 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:51 #35215 [verbose] > │ ## velocity_ft │
00:08:51 #35216 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 #35217 [verbose] >
00:08:51 #35218 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:51 #35219 [verbose] > type velocity_ft = mass -> velocity -> list (time -> force) -> (time ->
00:08:51 #35220 [verbose] > velocity)
00:08:51 #35221 [verbose] >
00:08:51 #35222 [verbose] > inl velocity_ft dt : velocity_ft =
00:08:51 #35223 [verbose] > fun m v0 fs =>
00:08:51 #35224 [verbose] > inl f_net t = fs |> listm.map (fun f => f t) |> listm'.sum
00:08:51 #35225 [verbose] > inl a t = f_net t / m
00:08:51 #35226 [verbose] > anti_derivative dt v0 a
00:08:51 #35227 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3778ebf84e63226cba964518afaeeaf9c0dea5902f03fcab5cc183aa7d93ebc0\main.spi
00:08:51 #35228 [verbose] >
00:08:51 #35229 [verbose] > ╭─[ 238.78ms - stdout ]────────────────────────────────────────────────────────╮
00:08:51 #35230 [verbose] > │ () │
00:08:51 #35231 [verbose] > │ │
00:08:51 #35232 [verbose] > │ │
00:08:51 #35233 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 #35234 [verbose] >
00:08:51 #35235 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:51 #35236 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:51 #35237 [verbose] > │ ## position_ft │
00:08:51 #35238 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 #35239 [verbose] >
00:08:51 #35240 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:51 #35241 [verbose] > type position_ft = mass -> position -> velocity -> list (time -> force) -> (time
00:08:51 #35242 [verbose] > -> position)
00:08:51 #35243 [verbose] >
00:08:51 #35244 [verbose] > inl position_ft dt : position_ft =
00:08:51 #35245 [verbose] > fun m x0 v0 fs =>
00:08:51 #35246 [verbose] > velocity_ft dt m v0 fs
00:08:51 #35247 [verbose] > |> anti_derivative dt x0
00:08:51 #35248 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c6dd1555aa293e3b17fa82d3fdf5cb5c6e3ff484cae2ac22d894e6ffb410d9b9\main.spi
00:08:51 #35249 [verbose] >
00:08:51 #35250 [verbose] > ╭─[ 250.16ms - stdout ]────────────────────────────────────────────────────────╮
00:08:51 #35251 [verbose] > │ () │
00:08:51 #35252 [verbose] > │ │
00:08:51 #35253 [verbose] > │ │
00:08:51 #35254 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:51 #35255 [verbose] >
00:08:51 #35256 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:51 #35257 [verbose] > // // test
00:08:51 #35258 [verbose] >
00:08:51 #35259 [verbose] > inl pedal_coast (t : time) : force =
00:08:51 #35260 [verbose] > inl t_cycle = 20
00:08:51 #35261 [verbose] > inl n_complete : i32 = t / t_cycle |> conv
00:08:51 #35262 [verbose] > inl remainder = t - conv n_complete * t_cycle
00:08:51 #35263 [verbose] > if remainder > 0 && remainder < 10
00:08:51 #35264 [verbose] > then 10
00:08:51 #35265 [verbose] > else 0
00:08:51 #35266 [verbose] >
00:08:51 #35267 [verbose] > inl x = am'.init_series -5 45 0.1
00:08:51 #35268 [verbose] > inl y = x |> am.map pedal_coast
00:08:51 #35269 [verbose] > "child pedaling then coasting", "time (s)", "", ;[[ "force on bike (N)", x, y ]]
00:08:52 #35270 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5371a37e5edc073d918011924a497dd6345f2e1e9be452adf722e365e8875f80\main.spi
00:08:52 #35271 [verbose] >
00:08:52 #35272 [verbose] > ╭─[ 351.21ms - return value ]──────────────────────────────────────────────────╮
00:08:52 #35273 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:08:52 #35274 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:08:52 #35275 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:08:52 #35276 [verbose] > │ stroke="none"/> │
00:08:52 #35277 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:08:52 #35278 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:08:52 #35279 [verbose] > │ fill="#FFFFFF"> │
00:08:52 #35280 [verbose] > │ child pedaling then coasting │
00:08:52 #35281 [verbose] > │ </text> │
00:08:52 #35282 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:08:52 #35283 [verbose] > │ y2="75"/> │
00:08:52 #35284 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:08:52 #35285 [verbose] > │ y2="75"/> │
00:08:52 #35286 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:08:52 #35287 [verbose] > │ y2="75"/> │
00:08:52 #35288 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:08:52 #35289 [verbose] > │ y2="75"/> │
00:08:52 #35290 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1=... │
00:08:52 #35291 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:52 #35292 [verbose] >
00:08:52 #35293 [verbose] > ╭─[ 365.08ms - stdout ]────────────────────────────────────────────────────────╮
00:08:52 #35294 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:08:52 #35295 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:08:52 #35296 [verbose] > │ let v1 : int32 = v0.l0 │
00:08:52 #35297 [verbose] > │ let v2 : bool = v1 < 501 │
00:08:52 #35298 [verbose] > │ v2 │
00:08:52 #35299 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:08:52 #35300 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:52 #35301 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:52 #35302 [verbose] > │ v3 │
00:08:52 #35303 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:08:52 #35304 [verbose] > │ []) * (float [])) [])) = │
00:08:52 #35305 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (501) │
00:08:52 #35306 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:08:52 #35307 [verbose] > │ while method1(v1) do │
00:08:52 #35308 [verbose] > │ let v3 : int32 = v1.l0 │
00:08:52 #35309 [verbose] > │ let v4 : float = float v3 │
00:08:52 #35310 [verbose] > │ let v5 : float = 0.1 * v4 │
00:08:52 #35311 [verbose] > │ let v6 : float = -5.0 + v5 │
00:08:52 #35312 [verbose] > │ v0.[int v3] <- v6 │
00:08:52 #35313 [verbose] > │ let v7 : int32 = v3 + 1 │
00:08:52 #35314 [verbose] > │ v1.l0 <- v7 │
00:08:52 #35315 [verbose] > │ () │
00:08:52 #35316 [verbose] > │ let v8 : int32 = v0.Length │
00:08:52 #35317 [verbose] > │ let v9 : (float []) = Array.zeroCreate<float> (v8) │
00:08:52 #35318 [verbose] > │ let v10 : Mut0 = {l0 = 0} : Mut0 │
00:08:52 #35319 [verbose] > │ while method2(v8, v10) do │
00:08:52 #35320 [verbose] > │ let v12 : int32 = v10.l0 │
00:08:52 #35321 [verbose] > │ let v13 : float = v0.[int v12] │
00:08:52 #35322 [verbose] > │ let v14 : float = v13 / 20.0 │
00:08:52 #35323 [verbose] > │ let v15 : int32 = int32 v14 │
00:08:52 #35324 [verbose] > │ let v16 : float = float v15 │
00:08:52 #35325 [verbose] > │ let v17 : float = v16 * 20.0 │
00:08:52 #35326 [verbose] > │ let v18 : float = v13 - v17 │
00:08:52 #35327 [verbose] > │ let v19 : bool = v18 > 0.0 │
00:08:52 #35328 [verbose] > │ let v21 : bool = │
00:08:52 #35329 [verbose] > │ if v19 then │
00:08:52 #35330 [verbose] > │ let v20 : bool = v18 < 10.0 │
00:08:52 #35331 [verbose] > │ v20 │
00:08:52 #35332 [verbose] > │ else │
00:08:52 #35333 [verbose] > │ false │
00:08:52 #35334 [verbose] > │ let v22 : float = │
00:08:52 #35335 [verbose] > │ if v21 then │
00:08:52 #35336 [verbose] > │ 10.0 │
00:08:52 #35337 [verbose] > │ else │
00:08:52 #35338 [verbose] > │ 0.0 │
00:08:52 #35339 [verbose] > │ v9.[int v12] <- v22 │
00:08:52 #35340 [verbose] > │ let v23 : int32 = v12 + 1 │
00:08:52 #35341 [verbose] > │ v10.l0 <- v23 │
00:08:52 #35342 [verbose] > │ () │
00:08:52 #35343 [verbose] > │ let v24 : string = "force on bike (N)" │
00:08:52 #35344 [verbose] > │ let v25 : (struct (string * (float []) * (float [])) []) = [|struct │
00:08:52 #35345 [verbose] > │ (v24, v0, v9)|] │
00:08:52 #35346 [verbose] > │ let v26 : string = "child pedaling then coasting" │
00:08:52 #35347 [verbose] > │ let v27 : string = "time (s)" │
00:08:52 #35348 [verbose] > │ let v28 : string = "" │
00:08:52 #35349 [verbose] > │ struct (v26, v27, v28, v25) │
00:08:52 #35350 [verbose] > │ method0() │
00:08:52 #35351 [verbose] > │ │
00:08:52 #35352 [verbose] > │ │
00:08:52 #35353 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:52 #35354 [verbose] >
00:08:52 #35355 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:52 #35356 [verbose] > // // test
00:08:52 #35357 [verbose] >
00:08:52 #35358 [verbose] > inl x = am'.init_series -5 45 1
00:08:52 #35359 [verbose] > inl y = x |> am.map (position_ft 0.1f64 20 0 0 [[ pedal_coast ]])
00:08:52 #35360 [verbose] > "child pedaling then coasting", "time (s)", "", ;[[ "position of bike (m)", x, y
00:08:52 #35361 [verbose] > ]]
00:08:52 #35362 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\03f64dd3cbcf9e74d342a8ffe7ca7f380a3f867a6db38b20d2965c1bcdc5a1d1\main.spi
00:08:52 #35363 [verbose] >
00:08:52 #35364 [verbose] > ╭─[ 646.70ms - return value ]──────────────────────────────────────────────────╮
00:08:52 #35365 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:08:52 #35366 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:08:52 #35367 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:08:52 #35368 [verbose] > │ stroke="none"/> │
00:08:52 #35369 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:08:52 #35370 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:08:52 #35371 [verbose] > │ fill="#FFFFFF"> │
00:08:52 #35372 [verbose] > │ child pedaling then coasting │
00:08:52 #35373 [verbose] > │ </text> │
00:08:52 #35374 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:08:52 #35375 [verbose] > │ y2="75"/> │
00:08:52 #35376 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:08:52 #35377 [verbose] > │ y2="75"/> │
00:08:52 #35378 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:08:52 #35379 [verbose] > │ y2="75"/> │
00:08:52 #35380 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:08:52 #35381 [verbose] > │ y2="75"/> │
00:08:52 #35382 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1=... │
00:08:52 #35383 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:52 #35384 [verbose] >
00:08:52 #35385 [verbose] > ╭─[ 664.88ms - stdout ]────────────────────────────────────────────────────────╮
00:08:52 #35386 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:08:52 #35387 [verbose] > │ and UH0 = │
00:08:52 #35388 [verbose] > │ | UH0_0 │
00:08:52 #35389 [verbose] > │ | UH0_1 of float * UH0 │
00:08:52 #35390 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:08:52 #35391 [verbose] > │ let v1 : int32 = v0.l0 │
00:08:52 #35392 [verbose] > │ let v2 : bool = v1 < 51 │
00:08:52 #35393 [verbose] > │ v2 │
00:08:52 #35394 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:08:52 #35395 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:52 #35396 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:52 #35397 [verbose] > │ v3 │
00:08:52 #35398 [verbose] > │ and method3 (v0 : float, v1 : float) : UH0 = │
00:08:52 #35399 [verbose] > │ let v2 : bool = v1 < v0 │
00:08:52 #35400 [verbose] > │ if v2 then │
00:08:52 #35401 [verbose] > │ let v3 : float = 0.1 * v1 │
00:08:52 #35402 [verbose] > │ let v4 : float = 0.05 + v3 │
00:08:52 #35403 [verbose] > │ let v5 : float = v1 + 1.0 │
00:08:52 #35404 [verbose] > │ let v6 : UH0 = method3(v0, v5) │
00:08:52 #35405 [verbose] > │ UH0_1(v4, v6) │
00:08:52 #35406 [verbose] > │ else │
00:08:52 #35407 [verbose] > │ UH0_0 │
00:08:52 #35408 [verbose] > │ and method5 (v0 : UH0, v1 : UH0) : UH0 = │
00:08:52 #35409 [verbose] > │ match v0 with │
00:08:52 #35410 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:08:52 #35411 [verbose] > │ let v4 : UH0 = method5(v3, v1) │
00:08:52 #35412 [verbose] > │ let v5 : float = v2 / 20.0 │
00:08:52 #35413 [verbose] > │ let v6 : int32 = int32 v5 │
00:08:52 #35414 [verbose] > │ let v7 : float = float v6 │
00:08:52 #35415 [verbose] > │ let v8 : float = v7 * 20.0 │
00:08:52 #35416 [verbose] > │ let v9 : float = v2 - v8 │
00:08:52 #35417 [verbose] > │ let v10 : bool = v9 > 0.0 │
00:08:52 #35418 [verbose] > │ let v12 : bool = │
00:08:52 #35419 [verbose] > │ if v10 then │
00:08:52 #35420 [verbose] > │ let v11 : bool = v9 < 10.0 │
00:08:52 #35421 [verbose] > │ v11 │
00:08:52 #35422 [verbose] > │ else │
00:08:52 #35423 [verbose] > │ false │
00:08:52 #35424 [verbose] > │ let v13 : float = │
00:08:52 #35425 [verbose] > │ if v12 then │
00:08:52 #35426 [verbose] > │ 10.0 │
00:08:52 #35427 [verbose] > │ else │
00:08:52 #35428 [verbose] > │ 0.0 │
00:08:52 #35429 [verbose] > │ let v14 : float = v13 / 20.0 │
00:08:52 #35430 [verbose] > │ let v15 : float = 0.1 * v14 │
00:08:52 #35431 [verbose] > │ UH0_1(v15, v4) │
00:08:52 #35432 [verbose] > │ | UH0_0 -> (* Nil *) │
00:08:52 #35433 [verbose] > │ v1 │
00:08:52 #35434 [verbose] > │ and method6 (v0 : UH0, v1 : float) : float = │
00:08:52 #35435 [verbose] > │ match v0 with │
00:08:52 #35436 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:08:52 #35437 [verbose] > │ let v4 : float = v1 + v2 │
00:08:52 #35438 [verbose] > │ method6(v3, v4) │
00:08:52 #35439 [verbose] > │ | UH0_0 -> (* Nil *) │
00:08:52 #35440 [verbose] > │ v1 │
00:08:52 #35441 [verbose] > │ and method4 (v0 : UH0, v1 : UH0) : UH0 = │
00:08:52 #35442 [verbose] > │ match v0 with │
00:08:52 #35443 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:08:52 #35444 [verbose] > │ let v4 : UH0 = method4(v3, v1) │
00:08:52 #35445 [verbose] > │ let v5 : float = v2 - 0.05 │
00:08:52 #35446 [verbose] > │ let v6 : float = v5 - 0.05 │
00:08:52 #35447 [verbose] > │ let v7 : float = v6 / 0.1 │
00:08:52 #35448 [verbose] > │ let v8 : float = v7 + 1.0 │
00:08:52 #35449 [verbose] > │ let v9 : float = 0.0 │
00:08:52 #35450 [verbose] > │ let v10 : UH0 = method3(v8, v9) │
00:08:52 #35451 [verbose] > │ let v11 : UH0 = UH0_0 │
00:08:52 #35452 [verbose] > │ let v12 : UH0 = method5(v10, v11) │
00:08:52 #35453 [verbose] > │ let v13 : float = 0.0 │
00:08:52 #35454 [verbose] > │ let v14 : float = method6(v12, v13) │
00:08:52 #35455 [verbose] > │ let v15 : float = 0.1 * v14 │
00:08:52 #35456 [verbose] > │ UH0_1(v15, v4) │
00:08:52 #35457 [verbose] > │ | UH0_0 -> (* Nil *) │
00:08:52 #35458 [verbose] > │ v1 │
00:08:52 #35459 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:08:52 #35460 [verbose] > │ []) * (float [])) [])) = │
00:08:52 #35461 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (51) │
00:08:52 #35462 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:08:52 #35463 [verbose] > │ while method1(v1) do │
00:08:52 #35464 [verbose] > │ let v3 : int32 = v1.l0 │
00:08:52 #35465 [verbose] > │ let v4 : float = float v3 │
00:08:52 #35466 [verbose] > │ let v5 : float = -5.0 + v4 │
00:08:52 #35467 [verbose] > │ v0.[int v3] <- v5 │
00:08:52 #35468 [verbose] > │ let v6 : int32 = v3 + 1 │
00:08:52 #35469 [verbose] > │ v1.l0 <- v6 │
00:08:52 #35470 [verbose] > │ () │
00:08:52 #35471 [verbose] > │ let v7 : int32 = v0.Length │
00:08:52 #35472 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:08:52 #35473 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:08:52 #35474 [verbose] > │ while method2(v7, v9) do │
00:08:52 #35475 [verbose] > │ let v11 : int32 = v9.l0 │
00:08:53 #35476 [verbose] > │ let v12 : float = v0.[int v11] │
00:08:53 #35477 [verbose] > │ let v13 : float = v12 - 0.05 │
00:08:53 #35478 [verbose] > │ let v14 : float = v13 - 0.05 │
00:08:53 #35479 [verbose] > │ let v15 : float = v14 / 0.1 │
00:08:53 #35480 [verbose] > │ let v16 : float = v15 + 1.0 │
00:08:53 #35481 [verbose] > │ let v17 : float = 0.0 │
00:08:53 #35482 [verbose] > │ let v18 : UH0 = method3(v16, v17) │
00:08:53 #35483 [verbose] > │ let v19 : UH0 = UH0_0 │
00:08:53 #35484 [verbose] > │ let v20 : UH0 = method4(v18, v19) │
00:08:53 #35485 [verbose] > │ let v21 : float = 0.0 │
00:08:53 #35486 [verbose] > │ let v22 : float = method6(v20, v21) │
00:08:53 #35487 [verbose] > │ v8.[int v11] <- v22 │
00:08:53 #35488 [verbose] > │ let v23 : int32 = v11 + 1 │
00:08:53 #35489 [verbose] > │ v9.l0 <- v23 │
00:08:53 #35490 [verbose] > │ () │
00:08:53 #35491 [verbose] > │ let v24 : string = "position of bike (m)" │
00:08:53 #35492 [verbose] > │ let v25 : (struct (string * (float []) * (float [])) []) = [|struct │
00:08:53 #35493 [verbose] > │ (v24, v0, v8)|] │
00:08:53 #35494 [verbose] > │ let v26 : string = "child pedaling then coasting" │
00:08:53 #35495 [verbose] > │ let v27 : string = "time (s)" │
00:08:53 #35496 [verbose] > │ let v28 : string = "" │
00:08:53 #35497 [verbose] > │ struct (v26, v27, v28, v25) │
00:08:53 #35498 [verbose] > │ method0() │
00:08:53 #35499 [verbose] > │ │
00:08:53 #35500 [verbose] > │ │
00:08:53 #35501 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:53 #35502 [verbose] >
00:08:53 #35503 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:53 #35504 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:53 #35505 [verbose] > │ ## velocity_fv │
00:08:53 #35506 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:53 #35507 [verbose] >
00:08:53 #35508 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:53 #35509 [verbose] > inl newton_second_v m fs v0 =
00:08:53 #35510 [verbose] > fs |> listm.map (fun f => f v0) |> listm'.sum |> fun x => x / m
00:08:53 #35511 [verbose] >
00:08:53 #35512 [verbose] > inl update_velocity dt m fs v0 =
00:08:53 #35513 [verbose] > v0 + newton_second_v m fs v0 * dt
00:08:53 #35514 [verbose] >
00:08:53 #35515 [verbose] > inl velocity_fv dt m v0 fs t =
00:08:53 #35516 [verbose] > stream.iterate (update_velocity dt m fs) v0
00:08:53 #35517 [verbose] > |> stream.try_item (t / dt |> math.round |> abs)
00:08:53 #35518 [verbose] > |> optionm'.default_value 0
00:08:53 #35519 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8cadf054706247d4ee5bf28641c441c60f932a80e14a9250eb6865364a77c574\main.spi
00:08:53 #35520 [verbose] >
00:08:53 #35521 [verbose] > ╭─[ 272.03ms - stdout ]────────────────────────────────────────────────────────╮
00:08:53 #35522 [verbose] > │ () │
00:08:53 #35523 [verbose] > │ │
00:08:53 #35524 [verbose] > │ │
00:08:53 #35525 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:53 #35526 [verbose] >
00:08:53 #35527 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:53 #35528 [verbose] > inl f_air drag rho area v =
00:08:53 #35529 [verbose] > -drag * rho * area * abs v * v / 2
00:08:53 #35530 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cc5a41ae5dcbb87ee1a4b829dcfa9e0c12560e76c647f8ce967cddfdcaaf2f66\main.spi
00:08:53 #35531 [verbose] >
00:08:53 #35532 [verbose] > ╭─[ 311.35ms - stdout ]────────────────────────────────────────────────────────╮
00:08:53 #35533 [verbose] > │ () │
00:08:53 #35534 [verbose] > │ │
00:08:53 #35535 [verbose] > │ │
00:08:53 #35536 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:53 #35537 [verbose] >
00:08:53 #35538 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:53 #35539 [verbose] > // // test
00:08:53 #35540 [verbose] >
00:08:53 #35541 [verbose] > inl x = am'.init_series 0 60 0.5
00:08:53 #35542 [verbose] > inl y = x |> am.map (velocity_fv 1 70 0f64 [[ fun _ => 100; f_air 2 1.225 0.6
00:08:53 #35543 [verbose] > ]])
00:08:53 #35544 [verbose] > "bike velocity", "time (s)", "", ;[[ "velocity of bike (m/s)", x, y ]]
00:08:53 #35545 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\df5ae175ebd026d4f654fd4d886465d5ad9c6418a4000cd04bbc9a134409e037\main.spi
00:08:54 #35546 [verbose] >
00:08:54 #35547 [verbose] > ╭─[ 634.95ms - return value ]──────────────────────────────────────────────────╮
00:08:54 #35548 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:08:54 #35549 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:08:54 #35550 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:08:54 #35551 [verbose] > │ stroke="none"/> │
00:08:54 #35552 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:08:54 #35553 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:08:54 #35554 [verbose] > │ fill="#FFFFFF"> │
00:08:54 #35555 [verbose] > │ bike velocity │
00:08:54 #35556 [verbose] > │ </text> │
00:08:54 #35557 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:08:54 #35558 [verbose] > │ y2="75"/> │
00:08:54 #35559 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:08:54 #35560 [verbose] > │ y2="75"/> │
00:08:54 #35561 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:08:54 #35562 [verbose] > │ y2="75"/> │
00:08:54 #35563 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:08:54 #35564 [verbose] > │ y2="75"/> │
00:08:54 #35565 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="94" y1="424" x... │
00:08:54 #35566 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:54 #35567 [verbose] >
00:08:54 #35568 [verbose] > ╭─[ 661.99ms - stdout ]────────────────────────────────────────────────────────╮
00:08:54 #35569 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:08:54 #35570 [verbose] > │ and UH0 = │
00:08:54 #35571 [verbose] > │ | UH0_0 of float * (unit -> UH0) │
00:08:54 #35572 [verbose] > │ | UH0_1 │
00:08:54 #35573 [verbose] > │ and [<Struct>] US0 = │
00:08:54 #35574 [verbose] > │ | US0_0 of f0_0 : float │
00:08:54 #35575 [verbose] > │ | US0_1 │
00:08:54 #35576 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:08:54 #35577 [verbose] > │ let v1 : int32 = v0.l0 │
00:08:54 #35578 [verbose] > │ let v2 : bool = v1 < 121 │
00:08:54 #35579 [verbose] > │ v2 │
00:08:54 #35580 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:08:54 #35581 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:54 #35582 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:54 #35583 [verbose] > │ v3 │
00:08:54 #35584 [verbose] > │ and closure129 () () : UH0 = │
00:08:54 #35585 [verbose] > │ let v0 : (unit -> UH0) = closure129() │
00:08:54 #35586 [verbose] > │ UH0_0(11.664236870396083, v0) │
00:08:54 #35587 [verbose] > │ and closure128 () () : UH0 = │
00:08:54 #35588 [verbose] > │ let v0 : (unit -> UH0) = closure129() │
00:08:54 #35589 [verbose] > │ UH0_0(11.664236870396081, v0) │
00:08:54 #35590 [verbose] > │ and closure127 () () : UH0 = │
00:08:54 #35591 [verbose] > │ let v0 : (unit -> UH0) = closure128() │
00:08:54 #35592 [verbose] > │ UH0_0(11.66423687039608, v0) │
00:08:54 #35593 [verbose] > │ and closure126 () () : UH0 = │
00:08:54 #35594 [verbose] > │ let v0 : (unit -> UH0) = closure127() │
00:08:54 #35595 [verbose] > │ UH0_0(11.664236870396078, v0) │
00:08:54 #35596 [verbose] > │ and closure125 () () : UH0 = │
00:08:54 #35597 [verbose] > │ let v0 : (unit -> UH0) = closure126() │
00:08:54 #35598 [verbose] > │ UH0_0(11.664236870396074, v0) │
00:08:54 #35599 [verbose] > │ and closure124 () () : UH0 = │
00:08:54 #35600 [verbose] > │ let v0 : (unit -> UH0) = closure125() │
00:08:54 #35601 [verbose] > │ UH0_0(11.66423687039607, v0) │
00:08:54 #35602 [verbose] > │ and closure123 () () : UH0 = │
00:08:54 #35603 [verbose] > │ let v0 : (unit -> UH0) = closure124() │
00:08:54 #35604 [verbose] > │ UH0_0(11.664236870396065, v0) │
00:08:54 #35605 [verbose] > │ and closure122 () () : UH0 = │
00:08:54 #35606 [verbose] > │ let v0 : (unit -> UH0) = closure123() │
00:08:54 #35607 [verbose] > │ UH0_0(11.664236870396058, v0) │
00:08:54 #35608 [verbose] > │ and closure121 () () : UH0 = │
00:08:54 #35609 [verbose] > │ let v0 : (unit -> UH0) = closure122() │
00:08:54 #35610 [verbose] > │ UH0_0(11.66423687039605, v0) │
00:08:54 #35611 [verbose] > │ and closure120 () () : UH0 = │
00:08:54 #35612 [verbose] > │ let v0 : (unit -> UH0) = closure121() │
00:08:54 #35613 [verbose] > │ UH0_0(11.664236870396037, v0) │
00:08:54 #35614 [verbose] > │ and closure119 () () : UH0 = │
00:08:54 #35615 [verbose] > │ let v0 : (unit -> UH0) = closure120() │
00:08:54 #35616 [verbose] > │ UH0_0(11.66423687039602, v0) │
00:08:54 #35617 [verbose] > │ and closure118 () () : UH0 = │
00:08:54 #35618 [verbose] > │ let v0 : (unit -> UH0) = closure119() │
00:08:54 #35619 [verbose] > │ UH0_0(11.664236870396, v0) │
00:08:54 #35620 [verbose] > │ and closure117 () () : UH0 = │
00:08:54 #35621 [verbose] > │ let v0 : (unit -> UH0) = closure118() │
00:08:54 #35622 [verbose] > │ UH0_0(11.664236870395971, v0) │
00:08:54 #35623 [verbose] > │ and closure116 () () : UH0 = │
00:08:54 #35624 [verbose] > │ let v0 : (unit -> UH0) = closure117() │
00:08:54 #35625 [verbose] > │ UH0_0(11.664236870395934, v0) │
00:08:54 #35626 [verbose] > │ and closure115 () () : UH0 = │
00:08:54 #35627 [verbose] > │ let v0 : (unit -> UH0) = closure116() │
00:08:54 #35628 [verbose] > │ UH0_0(11.664236870395884, v0) │
00:08:54 #35629 [verbose] > │ and closure114 () () : UH0 = │
00:08:54 #35630 [verbose] > │ let v0 : (unit -> UH0) = closure115() │
00:08:54 #35631 [verbose] > │ UH0_0(11.664236870395818, v0) │
00:08:54 #35632 [verbose] > │ and closure113 () () : UH0 = │
00:08:54 #35633 [verbose] > │ let v0 : (unit -> UH0) = closure114() │
00:08:54 #35634 [verbose] > │ UH0_0(11.664236870395731, v0) │
00:08:54 #35635 [verbose] > │ and closure112 () () : UH0 = │
00:08:54 #35636 [verbose] > │ let v0 : (unit -> UH0) = closure113() │
00:08:54 #35637 [verbose] > │ UH0_0(11.664236870395616, v0) │
00:08:54 #35638 [verbose] > │ and closure111 () () : UH0 = │
00:08:54 #35639 [verbose] > │ let v0 : (unit -> UH0) = closure112() │
00:08:54 #35640 [verbose] > │ UH0_0(11.664236870395463, v0) │
00:08:54 #35641 [verbose] > │ and closure110 () () : UH0 = │
00:08:54 #35642 [verbose] > │ let v0 : (unit -> UH0) = closure111() │
00:08:54 #35643 [verbose] > │ UH0_0(11.66423687039526, v0) │
00:08:54 #35644 [verbose] > │ and closure109 () () : UH0 = │
00:08:54 #35645 [verbose] > │ let v0 : (unit -> UH0) = closure110() │
00:08:54 #35646 [verbose] > │ UH0_0(11.664236870394992, v0) │
00:08:54 #35647 [verbose] > │ and closure108 () () : UH0 = │
00:08:54 #35648 [verbose] > │ let v0 : (unit -> UH0) = closure109() │
00:08:54 #35649 [verbose] > │ UH0_0(11.664236870394637, v0) │
00:08:54 #35650 [verbose] > │ and closure107 () () : UH0 = │
00:08:54 #35651 [verbose] > │ let v0 : (unit -> UH0) = closure108() │
00:08:54 #35652 [verbose] > │ UH0_0(11.664236870394168, v0) │
00:08:54 #35653 [verbose] > │ and closure106 () () : UH0 = │
00:08:54 #35654 [verbose] > │ let v0 : (unit -> UH0) = closure107() │
00:08:54 #35655 [verbose] > │ UH0_0(11.664236870393546, v0) │
00:08:54 #35656 [verbose] > │ and closure105 () () : UH0 = │
00:08:54 #35657 [verbose] > │ let v0 : (unit -> UH0) = closure106() │
00:08:54 #35658 [verbose] > │ UH0_0(11.664236870392722, v0) │
00:08:54 #35659 [verbose] > │ and closure104 () () : UH0 = │
00:08:54 #35660 [verbose] > │ let v0 : (unit -> UH0) = closure105() │
00:08:54 #35661 [verbose] > │ UH0_0(11.664236870391631, v0) │
00:08:54 #35662 [verbose] > │ and closure103 () () : UH0 = │
00:08:54 #35663 [verbose] > │ let v0 : (unit -> UH0) = closure104() │
00:08:54 #35664 [verbose] > │ UH0_0(11.664236870390187, v0) │
00:08:54 #35665 [verbose] > │ and closure102 () () : UH0 = │
00:08:54 #35666 [verbose] > │ let v0 : (unit -> UH0) = closure103() │
00:08:54 #35667 [verbose] > │ UH0_0(11.664236870388274, v0) │
00:08:54 #35668 [verbose] > │ and closure101 () () : UH0 = │
00:08:54 #35669 [verbose] > │ let v0 : (unit -> UH0) = closure102() │
00:08:54 #35670 [verbose] > │ UH0_0(11.66423687038574, v0) │
00:08:54 #35671 [verbose] > │ and closure100 () () : UH0 = │
00:08:54 #35672 [verbose] > │ let v0 : (unit -> UH0) = closure101() │
00:08:54 #35673 [verbose] > │ UH0_0(11.664236870382384, v0) │
00:08:54 #35674 [verbose] > │ and closure99 () () : UH0 = │
00:08:54 #35675 [verbose] > │ let v0 : (unit -> UH0) = closure100() │
00:08:54 #35676 [verbose] > │ UH0_0(11.664236870377938, v0) │
00:08:54 #35677 [verbose] > │ and closure98 () () : UH0 = │
00:08:54 #35678 [verbose] > │ let v0 : (unit -> UH0) = closure99() │
00:08:54 #35679 [verbose] > │ UH0_0(11.66423687037205, v0) │
00:08:54 #35680 [verbose] > │ and closure97 () () : UH0 = │
00:08:54 #35681 [verbose] > │ let v0 : (unit -> UH0) = closure98() │
00:08:54 #35682 [verbose] > │ UH0_0(11.664236870364254, v0) │
00:08:54 #35683 [verbose] > │ and closure96 () () : UH0 = │
00:08:54 #35684 [verbose] > │ let v0 : (unit -> UH0) = closure97() │
00:08:54 #35685 [verbose] > │ UH0_0(11.664236870353927, v0) │
00:08:54 #35686 [verbose] > │ and closure95 () () : UH0 = │
00:08:54 #35687 [verbose] > │ let v0 : (unit -> UH0) = closure96() │
00:08:54 #35688 [verbose] > │ UH0_0(11.664236870340249, v0) │
00:08:54 #35689 [verbose] > │ and closure94 () () : UH0 = │
00:08:54 #35690 [verbose] > │ let v0 : (unit -> UH0) = closure95() │
00:08:54 #35691 [verbose] > │ UH0_0(11.664236870322135, v0) │
00:08:54 #35692 [verbose] > │ and closure93 () () : UH0 = │
00:08:54 #35693 [verbose] > │ let v0 : (unit -> UH0) = closure94() │
00:08:54 #35694 [verbose] > │ UH0_0(11.664236870298145, v0) │
00:08:54 #35695 [verbose] > │ and closure92 () () : UH0 = │
00:08:54 #35696 [verbose] > │ let v0 : (unit -> UH0) = closure93() │
00:08:54 #35697 [verbose] > │ UH0_0(11.664236870266372, v0) │
00:08:54 #35698 [verbose] > │ and closure91 () () : UH0 = │
00:08:54 #35699 [verbose] > │ let v0 : (unit -> UH0) = closure92() │
00:08:54 #35700 [verbose] > │ UH0_0(11.664236870224292, v0) │
00:08:54 #35701 [verbose] > │ and closure90 () () : UH0 = │
00:08:54 #35702 [verbose] > │ let v0 : (unit -> UH0) = closure91() │
00:08:54 #35703 [verbose] > │ UH0_0(11.66423687016856, v0) │
00:08:54 #35704 [verbose] > │ and closure89 () () : UH0 = │
00:08:54 #35705 [verbose] > │ let v0 : (unit -> UH0) = closure90() │
00:08:54 #35706 [verbose] > │ UH0_0(11.664236870094747, v0) │
00:08:54 #35707 [verbose] > │ and closure88 () () : UH0 = │
00:08:54 #35708 [verbose] > │ let v0 : (unit -> UH0) = closure89() │
00:08:54 #35709 [verbose] > │ UH0_0(11.664236869996989, v0) │
00:08:54 #35710 [verbose] > │ and closure87 () () : UH0 = │
00:08:54 #35711 [verbose] > │ let v0 : (unit -> UH0) = closure88() │
00:08:54 #35712 [verbose] > │ UH0_0(11.664236869867516, v0) │
00:08:54 #35713 [verbose] > │ and closure86 () () : UH0 = │
00:08:54 #35714 [verbose] > │ let v0 : (unit -> UH0) = closure87() │
00:08:54 #35715 [verbose] > │ UH0_0(11.66423686969604, v0) │
00:08:54 #35716 [verbose] > │ and closure85 () () : UH0 = │
00:08:54 #35717 [verbose] > │ let v0 : (unit -> UH0) = closure86() │
00:08:54 #35718 [verbose] > │ UH0_0(11.664236869468937, v0) │
00:08:54 #35719 [verbose] > │ and closure84 () () : UH0 = │
00:08:54 #35720 [verbose] > │ let v0 : (unit -> UH0) = closure85() │
00:08:54 #35721 [verbose] > │ UH0_0(11.664236869168157, v0) │
00:08:54 #35722 [verbose] > │ and closure83 () () : UH0 = │
00:08:54 #35723 [verbose] > │ let v0 : (unit -> UH0) = closure84() │
00:08:54 #35724 [verbose] > │ UH0_0(11.6642368687698, v0) │
00:08:54 #35725 [verbose] > │ and closure82 () () : UH0 = │
00:08:54 #35726 [verbose] > │ let v0 : (unit -> UH0) = closure83() │
00:08:54 #35727 [verbose] > │ UH0_0(11.664236868242211, v0) │
00:08:54 #35728 [verbose] > │ and closure81 () () : UH0 = │
00:08:54 #35729 [verbose] > │ let v0 : (unit -> UH0) = closure82() │
00:08:54 #35730 [verbose] > │ UH0_0(11.664236867543465, v0) │
00:08:54 #35731 [verbose] > │ and closure80 () () : UH0 = │
00:08:54 #35732 [verbose] > │ let v0 : (unit -> UH0) = closure81() │
00:08:54 #35733 [verbose] > │ UH0_0(11.664236866618037, v0) │
00:08:54 #35734 [verbose] > │ and closure79 () () : UH0 = │
00:08:54 #35735 [verbose] > │ let v0 : (unit -> UH0) = closure80() │
00:08:54 #35736 [verbose] > │ UH0_0(11.664236865392386, v0) │
00:08:54 #35737 [verbose] > │ and closure78 () () : UH0 = │
00:08:54 #35738 [verbose] > │ let v0 : (unit -> UH0) = closure79() │
00:08:54 #35739 [verbose] > │ UH0_0(11.664236863769117, v0) │
00:08:54 #35740 [verbose] > │ and closure77 () () : UH0 = │
00:08:54 #35741 [verbose] > │ let v0 : (unit -> UH0) = closure78() │
00:08:54 #35742 [verbose] > │ UH0_0(11.664236861619237, v0) │
00:08:54 #35743 [verbose] > │ and closure76 () () : UH0 = │
00:08:54 #35744 [verbose] > │ let v0 : (unit -> UH0) = closure77() │
00:08:54 #35745 [verbose] > │ UH0_0(11.664236858771906, v0) │
00:08:54 #35746 [verbose] > │ and closure75 () () : UH0 = │
00:08:54 #35747 [verbose] > │ let v0 : (unit -> UH0) = closure76() │
00:08:54 #35748 [verbose] > │ UH0_0(11.66423685500086, v0) │
00:08:54 #35749 [verbose] > │ and closure74 () () : UH0 = │
00:08:54 #35750 [verbose] > │ let v0 : (unit -> UH0) = closure75() │
00:08:54 #35751 [verbose] > │ UH0_0(11.664236850006436, v0) │
00:08:54 #35752 [verbose] > │ and closure73 () () : UH0 = │
00:08:54 #35753 [verbose] > │ let v0 : (unit -> UH0) = closure74() │
00:08:54 #35754 [verbose] > │ UH0_0(11.664236843391752, v0) │
00:08:54 #35755 [verbose] > │ and closure72 () () : UH0 = │
00:08:54 #35756 [verbose] > │ let v0 : (unit -> UH0) = closure73() │
00:08:54 #35757 [verbose] > │ UH0_0(11.664236834631172, v0) │
00:08:54 #35758 [verbose] > │ and closure71 () () : UH0 = │
00:08:54 #35759 [verbose] > │ let v0 : (unit -> UH0) = closure72() │
00:08:54 #35760 [verbose] > │ UH0_0(11.66423682302854, v0) │
00:08:54 #35761 [verbose] > │ and closure70 () () : UH0 = │
00:08:54 #35762 [verbose] > │ let v0 : (unit -> UH0) = closure71() │
00:08:54 #35763 [verbose] > │ UH0_0(11.664236807661855, v0) │
00:08:54 #35764 [verbose] > │ and closure69 () () : UH0 = │
00:08:54 #35765 [verbose] > │ let v0 : (unit -> UH0) = closure70() │
00:08:54 #35766 [verbose] > │ UH0_0(11.664236787310005, v0) │
00:08:54 #35767 [verbose] > │ and closure68 () () : UH0 = │
00:08:54 #35768 [verbose] > │ let v0 : (unit -> UH0) = closure69() │
00:08:54 #35769 [verbose] > │ UH0_0(11.664236760355733, v0) │
00:08:54 #35770 [verbose] > │ and closure67 () () : UH0 = │
00:08:54 #35771 [verbose] > │ let v0 : (unit -> UH0) = closure68() │
00:08:54 #35772 [verbose] > │ UH0_0(11.664236724657123, v0) │
00:08:54 #35773 [verbose] > │ and closure66 () () : UH0 = │
00:08:54 #35774 [verbose] > │ let v0 : (unit -> UH0) = closure67() │
00:08:54 #35775 [verbose] > │ UH0_0(11.66423667737739, v0) │
00:08:54 #35776 [verbose] > │ and closure65 () () : UH0 = │
00:08:54 #35777 [verbose] > │ let v0 : (unit -> UH0) = closure66() │
00:08:54 #35778 [verbose] > │ UH0_0(11.664236614759462, v0) │
00:08:54 #35779 [verbose] > │ and closure64 () () : UH0 = │
00:08:54 #35780 [verbose] > │ let v0 : (unit -> UH0) = closure65() │
00:08:54 #35781 [verbose] > │ UH0_0(11.664236531827415, v0) │
00:08:54 #35782 [verbose] > │ and closure63 () () : UH0 = │
00:08:54 #35783 [verbose] > │ let v0 : (unit -> UH0) = closure64() │
00:08:54 #35784 [verbose] > │ UH0_0(11.664236421991067, v0) │
00:08:54 #35785 [verbose] > │ and closure62 () () : UH0 = │
00:08:54 #35786 [verbose] > │ let v0 : (unit -> UH0) = closure63() │
00:08:54 #35787 [verbose] > │ UH0_0(11.664236276522294, v0) │
00:08:54 #35788 [verbose] > │ and closure61 () () : UH0 = │
00:08:54 #35789 [verbose] > │ let v0 : (unit -> UH0) = closure62() │
00:08:54 #35790 [verbose] > │ UH0_0(11.664236083861448, v0) │
00:08:54 #35791 [verbose] > │ and closure60 () () : UH0 = │
00:08:54 #35792 [verbose] > │ let v0 : (unit -> UH0) = closure61() │
00:08:54 #35793 [verbose] > │ UH0_0(11.664235828698772, v0) │
00:08:54 #35794 [verbose] > │ and closure59 () () : UH0 = │
00:08:54 #35795 [verbose] > │ let v0 : (unit -> UH0) = closure60() │
00:08:54 #35796 [verbose] > │ UH0_0(11.664235490757811, v0) │
00:08:54 #35797 [verbose] > │ and closure58 () () : UH0 = │
00:08:54 #35798 [verbose] > │ let v0 : (unit -> UH0) = closure59() │
00:08:54 #35799 [verbose] > │ UH0_0(11.664235043184158, v0) │
00:08:54 #35800 [verbose] > │ and closure57 () () : UH0 = │
00:08:54 #35801 [verbose] > │ let v0 : (unit -> UH0) = closure58() │
00:08:54 #35802 [verbose] > │ UH0_0(11.66423445041147, v0) │
00:08:54 #35803 [verbose] > │ and closure56 () () : UH0 = │
00:08:54 #35804 [verbose] > │ let v0 : (unit -> UH0) = closure57() │
00:08:54 #35805 [verbose] > │ UH0_0(11.664233665335203, v0) │
00:08:54 #35806 [verbose] > │ and closure55 () () : UH0 = │
00:08:54 #35807 [verbose] > │ let v0 : (unit -> UH0) = closure56() │
00:08:54 #35808 [verbose] > │ UH0_0(11.664232625569467, v0) │
00:08:54 #35809 [verbose] > │ and closure54 () () : UH0 = │
00:08:54 #35810 [verbose] > │ let v0 : (unit -> UH0) = closure55() │
00:08:54 #35811 [verbose] > │ UH0_0(11.664231248489562, v0) │
00:08:54 #35812 [verbose] > │ and closure53 () () : UH0 = │
00:08:54 #35813 [verbose] > │ let v0 : (unit -> UH0) = closure54() │
00:08:54 #35814 [verbose] > │ UH0_0(11.664229424666262, v0) │
00:08:54 #35815 [verbose] > │ and closure52 () () : UH0 = │
00:08:54 #35816 [verbose] > │ let v0 : (unit -> UH0) = closure53() │
00:08:54 #35817 [verbose] > │ UH0_0(11.66422700917009, v0) │
00:08:54 #35818 [verbose] > │ and closure51 () () : UH0 = │
00:08:54 #35819 [verbose] > │ let v0 : (unit -> UH0) = closure52() │
00:08:54 #35820 [verbose] > │ UH0_0(11.664223810054642, v0) │
00:08:54 #35821 [verbose] > │ and closure50 () () : UH0 = │
00:08:54 #35822 [verbose] > │ let v0 : (unit -> UH0) = closure51() │
00:08:54 #35823 [verbose] > │ UH0_0(11.664219573103773, v0) │
00:08:54 #35824 [verbose] > │ and closure49 () () : UH0 = │
00:08:54 #35825 [verbose] > │ let v0 : (unit -> UH0) = closure50() │
00:08:54 #35826 [verbose] > │ UH0_0(11.6642139616307, v0) │
00:08:54 #35827 [verbose] > │ and closure48 () () : UH0 = │
00:08:54 #35828 [verbose] > │ let v0 : (unit -> UH0) = closure49() │
00:08:54 #35829 [verbose] > │ UH0_0(11.664206529723813, v0) │
00:08:54 #35830 [verbose] > │ and closure47 () () : UH0 = │
00:08:54 #35831 [verbose] > │ let v0 : (unit -> UH0) = closure48() │
00:08:54 #35832 [verbose] > │ UH0_0(11.664196686813408, v0) │
00:08:54 #35833 [verbose] > │ and closure46 () () : UH0 = │
00:08:54 #35834 [verbose] > │ let v0 : (unit -> UH0) = closure47() │
00:08:54 #35835 [verbose] > │ UH0_0(11.664183650743945, v0) │
00:08:54 #35836 [verbose] > │ and closure45 () () : UH0 = │
00:08:54 #35837 [verbose] > │ let v0 : (unit -> UH0) = closure46() │
00:08:54 #35838 [verbose] > │ UH0_0(11.664166385623318, v0) │
00:08:54 #35839 [verbose] > │ and closure44 () () : UH0 = │
00:08:54 #35840 [verbose] > │ let v0 : (unit -> UH0) = closure45() │
00:08:54 #35841 [verbose] > │ UH0_0(11.664143519511356, v0) │
00:08:54 #35842 [verbose] > │ and closure43 () () : UH0 = │
00:08:54 #35843 [verbose] > │ let v0 : (unit -> UH0) = closure44() │
00:08:54 #35844 [verbose] > │ UH0_0(11.664113235408447, v0) │
00:08:54 #35845 [verbose] > │ and closure42 () () : UH0 = │
00:08:54 #35846 [verbose] > │ let v0 : (unit -> UH0) = closure43() │
00:08:54 #35847 [verbose] > │ UH0_0(11.66407312688485, v0) │
00:08:54 #35848 [verbose] > │ and closure41 () () : UH0 = │
00:08:54 #35849 [verbose] > │ let v0 : (unit -> UH0) = closure42() │
00:08:54 #35850 [verbose] > │ UH0_0(11.664020006883758, v0) │
00:08:54 #35851 [verbose] > │ and closure40 () () : UH0 = │
00:08:54 #35852 [verbose] > │ let v0 : (unit -> UH0) = closure41() │
00:08:54 #35853 [verbose] > │ UH0_0(11.663949654514292, v0) │
00:08:54 #35854 [verbose] > │ and closure39 () () : UH0 = │
00:08:54 #35855 [verbose] > │ let v0 : (unit -> UH0) = closure40() │
00:08:54 #35856 [verbose] > │ UH0_0(11.663856479730171, v0) │
00:08:54 #35857 [verbose] > │ and closure38 () () : UH0 = │
00:08:54 #35858 [verbose] > │ let v0 : (unit -> UH0) = closure39() │
00:08:54 #35859 [verbose] > │ UH0_0(11.663733079277343, v0) │
00:08:54 #35860 [verbose] > │ and closure37 () () : UH0 = │
00:08:54 #35861 [verbose] > │ let v0 : (unit -> UH0) = closure38() │
00:08:54 #35862 [verbose] > │ UH0_0(11.663569648675777, v0) │
00:08:54 #35863 [verbose] > │ and closure36 () () : UH0 = │
00:08:54 #35864 [verbose] > │ let v0 : (unit -> UH0) = closure37() │
00:08:54 #35865 [verbose] > │ UH0_0(11.663353203599439, v0) │
00:08:54 #35866 [verbose] > │ and closure35 () () : UH0 = │
00:08:54 #35867 [verbose] > │ let v0 : (unit -> UH0) = closure36() │
00:08:54 #35868 [verbose] > │ UH0_0(11.663066548940721, v0) │
00:08:54 #35869 [verbose] > │ and closure34 () () : UH0 = │
00:08:54 #35870 [verbose] > │ let v0 : (unit -> UH0) = closure35() │
00:08:54 #35871 [verbose] > │ UH0_0(11.662686913915445, v0) │
00:08:54 #35872 [verbose] > │ and closure33 () () : UH0 = │
00:08:54 #35873 [verbose] > │ let v0 : (unit -> UH0) = closure34() │
00:08:54 #35874 [verbose] > │ UH0_0(11.662184145236864, v0) │
00:08:54 #35875 [verbose] > │ and closure32 () () : UH0 = │
00:08:54 #35876 [verbose] > │ let v0 : (unit -> UH0) = closure33() │
00:08:54 #35877 [verbose] > │ UH0_0(11.661518315638029, v0) │
00:08:54 #35878 [verbose] > │ and closure31 () () : UH0 = │
00:08:54 #35879 [verbose] > │ let v0 : (unit -> UH0) = closure32() │
00:08:54 #35880 [verbose] > │ UH0_0(11.66063655920926, v0) │
00:08:54 #35881 [verbose] > │ and closure30 () () : UH0 = │
00:08:54 #35882 [verbose] > │ let v0 : (unit -> UH0) = closure31() │
00:08:54 #35883 [verbose] > │ UH0_0(11.659468884709733, v0) │
00:08:54 #35884 [verbose] > │ and closure29 () () : UH0 = │
00:08:54 #35885 [verbose] > │ let v0 : (unit -> UH0) = closure30() │
00:08:54 #35886 [verbose] > │ UH0_0(11.657922638782631, v0) │
00:08:54 #35887 [verbose] > │ and closure28 () () : UH0 = │
00:08:54 #35888 [verbose] > │ let v0 : (unit -> UH0) = closure29() │
00:08:54 #35889 [verbose] > │ UH0_0(11.655875187195818, v0) │
00:08:54 #35890 [verbose] > │ and closure27 () () : UH0 = │
00:08:54 #35891 [verbose] > │ let v0 : (unit -> UH0) = closure28() │
00:08:54 #35892 [verbose] > │ UH0_0(11.653164246713697, v0) │
00:08:54 #35893 [verbose] > │ and closure26 () () : UH0 = │
00:08:54 #35894 [verbose] > │ let v0 : (unit -> UH0) = closure27() │
00:08:54 #35895 [verbose] > │ UH0_0(11.64957512416459, v0) │
00:08:54 #35896 [verbose] > │ and closure25 () () : UH0 = │
00:08:54 #35897 [verbose] > │ let v0 : (unit -> UH0) = closure26() │
00:08:54 #35898 [verbose] > │ UH0_0(11.644823892116417, v0) │
00:08:54 #35899 [verbose] > │ and closure24 () () : UH0 = │
00:08:54 #35900 [verbose] > │ let v0 : (unit -> UH0) = closure25() │
00:08:54 #35901 [verbose] > │ UH0_0(11.63853524018339, v0) │
00:08:54 #35902 [verbose] > │ and closure23 () () : UH0 = │
00:08:54 #35903 [verbose] > │ let v0 : (unit -> UH0) = closure24() │
00:08:54 #35904 [verbose] > │ UH0_0(11.630213374558416, v0) │
00:08:54 #35905 [verbose] > │ and closure22 () () : UH0 = │
00:08:54 #35906 [verbose] > │ let v0 : (unit -> UH0) = closure23() │
00:08:54 #35907 [verbose] > │ UH0_0(11.619203884549703, v0) │
00:08:54 #35908 [verbose] > │ and closure21 () () : UH0 = │
00:08:54 #35909 [verbose] > │ let v0 : (unit -> UH0) = closure22() │
00:08:54 #35910 [verbose] > │ UH0_0(11.604643948207235, v0) │
00:08:54 #35911 [verbose] > │ and closure20 () () : UH0 = │
00:08:54 #35912 [verbose] > │ let v0 : (unit -> UH0) = closure21() │
00:08:54 #35913 [verbose] > │ UH0_0(11.585397618384544, v0) │
00:08:54 #35914 [verbose] > │ and closure19 () () : UH0 = │
00:08:54 #35915 [verbose] > │ let v0 : (unit -> UH0) = closure20() │
00:08:54 #35916 [verbose] > │ UH0_0(11.559972254267073, v0) │
00:08:54 #35917 [verbose] > │ and closure18 () () : UH0 = │
00:08:54 #35918 [verbose] > │ let v0 : (unit -> UH0) = closure19() │
00:08:54 #35919 [verbose] > │ UH0_0(11.526411536153837, v0) │
00:08:54 #35920 [verbose] > │ and closure17 () () : UH0 = │
00:08:54 #35921 [verbose] > │ let v0 : (unit -> UH0) = closure18() │
00:08:54 #35922 [verbose] > │ UH0_0(11.48216011776808, v0) │
00:08:54 #35923 [verbose] > │ and closure16 () () : UH0 = │
00:08:54 #35924 [verbose] > │ let v0 : (unit -> UH0) = closure17() │
00:08:54 #35925 [verbose] > │ UH0_0(11.42389519391233, v0) │
00:08:54 #35926 [verbose] > │ and closure15 () () : UH0 = │
00:08:54 #35927 [verbose] > │ let v0 : (unit -> UH0) = closure16() │
00:08:54 #35928 [verbose] > │ UH0_0(11.347321723441393, v0) │
00:08:54 #35929 [verbose] > │ and closure14 () () : UH0 = │
00:08:54 #35930 [verbose] > │ let v0 : (unit -> UH0) = closure15() │
00:08:54 #35931 [verbose] > │ UH0_0(11.246931775734161, v0) │
00:08:54 #35932 [verbose] > │ and closure13 () () : UH0 = │
00:08:54 #35933 [verbose] > │ let v0 : (unit -> UH0) = closure14() │
00:08:54 #35934 [verbose] > │ UH0_0(11.115736011467376, v0) │
00:08:54 #35935 [verbose] > │ and closure12 () () : UH0 = │
00:08:54 #35936 [verbose] > │ let v0 : (unit -> UH0) = closure13() │
00:08:54 #35937 [verbose] > │ UH0_0(10.94498876251829, v0) │
00:08:54 #35938 [verbose] > │ and closure11 () () : UH0 = │
00:08:54 #35939 [verbose] > │ let v0 : (unit -> UH0) = closure12() │
00:08:54 #35940 [verbose] > │ UH0_0(10.72394989903564, v0) │
00:08:54 #35941 [verbose] > │ and closure10 () () : UH0 = │
00:08:54 #35942 [verbose] > │ let v0 : (unit -> UH0) = closure11() │
00:08:54 #35943 [verbose] > │ UH0_0(10.439758275369812, v0) │
00:08:54 #35944 [verbose] > │ and closure9 () () : UH0 = │
00:08:54 #35945 [verbose] > │ let v0 : (unit -> UH0) = closure10() │
00:08:54 #35946 [verbose] > │ UH0_0(10.077531599826058, v0) │
00:08:54 #35947 [verbose] > │ and closure8 () () : UH0 = │
00:08:54 #35948 [verbose] > │ let v0 : (unit -> UH0) = closure9() │
00:08:54 #35949 [verbose] > │ UH0_0(9.62084761372258, v0) │
00:08:54 #35950 [verbose] > │ and closure7 () () : UH0 = │
00:08:54 #35951 [verbose] > │ let v0 : (unit -> UH0) = closure8() │
00:08:54 #35952 [verbose] > │ UH0_0(9.052781056066443, v0) │
00:08:54 #35953 [verbose] > │ and closure6 () () : UH0 = │
00:08:54 #35954 [verbose] > │ let v0 : (unit -> UH0) = closure7() │
00:08:54 #35955 [verbose] > │ UH0_0(8.357635347880503, v0) │
00:08:54 #35956 [verbose] > │ and closure5 () () : UH0 = │
00:08:54 #35957 [verbose] > │ let v0 : (unit -> UH0) = closure6() │
00:08:54 #35958 [verbose] > │ UH0_0(7.523376447621674, v0) │
00:08:54 #35959 [verbose] > │ and closure4 () () : UH0 = │
00:08:54 #35960 [verbose] > │ let v0 : (unit -> UH0) = closure5() │
00:08:54 #35961 [verbose] > │ UH0_0(6.544529054818572, v0) │
00:08:54 #35962 [verbose] > │ and closure3 () () : UH0 = │
00:08:54 #35963 [verbose] > │ let v0 : (unit -> UH0) = closure4() │
00:08:54 #35964 [verbose] > │ UH0_0(5.424976512996006, v0) │
00:08:54 #35965 [verbose] > │ and closure2 () () : UH0 = │
00:08:54 #35966 [verbose] > │ let v0 : (unit -> UH0) = closure3() │
00:08:54 #35967 [verbose] > │ UH0_0(4.179852321428571, v0) │
00:08:54 #35968 [verbose] > │ and closure1 () () : UH0 = │
00:08:54 #35969 [verbose] > │ let v0 : (unit -> UH0) = closure2() │
00:08:54 #35970 [verbose] > │ UH0_0(2.835714285714286, v0) │
00:08:54 #35971 [verbose] > │ and closure0 () () : UH0 = │
00:08:54 #35972 [verbose] > │ let v0 : (unit -> UH0) = closure1() │
00:08:54 #35973 [verbose] > │ UH0_0(1.4285714285714286, v0) │
00:08:54 #35974 [verbose] > │ and method3 (v0 : float, v1 : UH0) : US0 = │
00:08:54 #35975 [verbose] > │ match v1 with │
00:08:54 #35976 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:08:54 #35977 [verbose] > │ let v4 : bool = v0 <= 0.0 │
00:08:54 #35978 [verbose] > │ if v4 then │
00:08:54 #35979 [verbose] > │ US0_0(v2) │
00:08:54 #35980 [verbose] > │ else │
00:08:54 #35981 [verbose] > │ let v6 : float = v0 - 1.0 │
00:08:54 #35982 [verbose] > │ let v7 : UH0 = v3 () │
00:08:54 #35983 [verbose] > │ method3(v6, v7) │
00:08:54 #35984 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:08:54 #35985 [verbose] > │ US0_1 │
00:08:54 #35986 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:08:54 #35987 [verbose] > │ []) * (float [])) [])) = │
00:08:54 #35988 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (121) │
00:08:54 #35989 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:08:54 #35990 [verbose] > │ while method1(v1) do │
00:08:54 #35991 [verbose] > │ let v3 : int32 = v1.l0 │
00:08:54 #35992 [verbose] > │ let v4 : float = float v3 │
00:08:54 #35993 [verbose] > │ let v5 : float = 0.5 * v4 │
00:08:54 #35994 [verbose] > │ v0.[int v3] <- v5 │
00:08:54 #35995 [verbose] > │ let v6 : int32 = v3 + 1 │
00:08:54 #35996 [verbose] > │ v1.l0 <- v6 │
00:08:54 #35997 [verbose] > │ () │
00:08:54 #35998 [verbose] > │ let v7 : int32 = v0.Length │
00:08:54 #35999 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:08:54 #36000 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:08:54 #36001 [verbose] > │ while method2(v7, v9) do │
00:08:54 #36002 [verbose] > │ let v11 : int32 = v9.l0 │
00:08:54 #36003 [verbose] > │ let v12 : float = v0.[int v11] │
00:08:54 #36004 [verbose] > │ let v13 : float = round v12 │
00:08:54 #36005 [verbose] > │ let v14 : float = -v13 │
00:08:54 #36006 [verbose] > │ let v15 : bool = v13 >= v14 │
00:08:54 #36007 [verbose] > │ let v16 : float = │
00:08:54 #36008 [verbose] > │ if v15 then │
00:08:54 #36009 [verbose] > │ v13 │
00:08:54 #36010 [verbose] > │ else │
00:08:54 #36011 [verbose] > │ v14 │
00:08:54 #36012 [verbose] > │ let v17 : float = 0.0 │
00:08:54 #36013 [verbose] > │ let v18 : (unit -> UH0) = closure0() │
00:08:54 #36014 [verbose] > │ let v19 : UH0 = UH0_0(v17, v18) │
00:08:54 #36015 [verbose] > │ let v20 : US0 = method3(v16, v19) │
00:08:54 #36016 [verbose] > │ let v23 : float = │
00:08:54 #36017 [verbose] > │ match v20 with │
00:08:54 #36018 [verbose] > │ | US0_1 -> (* None *) │
00:08:54 #36019 [verbose] > │ 0.0 │
00:08:54 #36020 [verbose] > │ | US0_0(v21) -> (* Some *) │
00:08:54 #36021 [verbose] > │ v21 │
00:08:54 #36022 [verbose] > │ v8.[int v11] <- v23 │
00:08:54 #36023 [verbose] > │ let v24 : int32 = v11 + 1 │
00:08:54 #36024 [verbose] > │ v9.l0 <- v24 │
00:08:54 #36025 [verbose] > │ () │
00:08:54 #36026 [verbose] > │ let v25 : string = "velocity of bike (m/s)" │
00:08:54 #36027 [verbose] > │ let v26 : (struct (string * (float []) * (float [])) []) = [|struct │
00:08:54 #36028 [verbose] > │ (v25, v0, v8)|] │
00:08:54 #36029 [verbose] > │ let v27 : string = "bike velocity" │
00:08:54 #36030 [verbose] > │ let v28 : string = "time (s)" │
00:08:54 #36031 [verbose] > │ let v29 : string = "" │
00:08:54 #36032 [verbose] > │ struct (v27, v28, v29, v26) │
00:08:54 #36033 [verbose] > │ method0() │
00:08:54 #36034 [verbose] > │ │
00:08:54 #36035 [verbose] > │ │
00:08:54 #36036 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:54 #36037 [verbose] >
00:08:54 #36038 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:54 #36039 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:54 #36040 [verbose] > │ ## velocity_ftv │
00:08:54 #36041 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:54 #36042 [verbose] >
00:08:54 #36043 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:54 #36044 [verbose] > inl newton_second_tv m fs (t, v0) =
00:08:54 #36045 [verbose] > inl f_net = fs |> listm.map (fun f => f (t, v0)) |> listm'.sum
00:08:54 #36046 [verbose] > inl acc = f_net / m
00:08:54 #36047 [verbose] > 1, acc
00:08:54 #36048 [verbose] >
00:08:54 #36049 [verbose] > inl update_tv dt m fs (t, v0) =
00:08:54 #36050 [verbose] > inl dtdt, dvdt = newton_second_tv m fs (t, v0)
00:08:54 #36051 [verbose] > t + dtdt * dt, v0 + dvdt * dt
00:08:54 #36052 [verbose] >
00:08:54 #36053 [verbose] > inl velocity_ftv dt m tv0 fs t =
00:08:54 #36054 [verbose] > stream.iterate (join update_tv dt m fs) tv0
00:08:54 #36055 [verbose] > |> stream.try_item (t / dt |> math.round |> abs)
00:08:54 #36056 [verbose] > |> optionm.map snd
00:08:54 #36057 [verbose] > |> optionm'.default_value 0
00:08:54 #36058 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d218a9f0d4f71edfddf9edaab957f8fab2b166eece9ba73b5e32b4571d892197\main.spi
00:08:54 #36059 [verbose] >
00:08:54 #36060 [verbose] > ╭─[ 237.21ms - stdout ]────────────────────────────────────────────────────────╮
00:08:54 #36061 [verbose] > │ () │
00:08:54 #36062 [verbose] > │ │
00:08:54 #36063 [verbose] > │ │
00:08:54 #36064 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:54 #36065 [verbose] >
00:08:54 #36066 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:54 #36067 [verbose] > // // test
00:08:54 #36068 [verbose] >
00:08:54 #36069 [verbose] > inl x = am'.init_series 0 100 0.1
00:08:54 #36070 [verbose] > inl y =
00:08:54 #36071 [verbose] > x
00:08:54 #36072 [verbose] > |> am.map (
00:08:54 #36073 [verbose] > velocity_ftv 0.1 20 (dyn (0, 0)) [[ fun (t, _) => pedal_coast t; fun (_,
00:08:54 #36074 [verbose] > v) => f_air 2 1.225 0.5 v ]]
00:08:54 #36075 [verbose] > )
00:08:54 #36076 [verbose] > "pedaling and coasting with air", "time (s)", "", ;[[ "velocity of bike (m/s)",
00:08:54 #36077 [verbose] > x, y ]]
00:08:54 #36078 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\11d81127bc5df6c3de0208718f589d1a44b95a9738be9b46afa4314ff75080c3\main.spi
00:08:55 #36079 [verbose] >
00:08:55 #36080 [verbose] > ╭─[ 542.54ms - return value ]──────────────────────────────────────────────────╮
00:08:55 #36081 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:08:55 #36082 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:08:55 #36083 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:08:55 #36084 [verbose] > │ stroke="none"/> │
00:08:55 #36085 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:08:55 #36086 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:08:55 #36087 [verbose] > │ fill="#FFFFFF"> │
00:08:55 #36088 [verbose] > │ pedaling and coasting with air │
00:08:55 #36089 [verbose] > │ </text> │
00:08:55 #36090 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:08:55 #36091 [verbose] > │ y2="75"/> │
00:08:55 #36092 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:08:55 #36093 [verbose] > │ y2="75"/> │
00:08:55 #36094 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:08:55 #36095 [verbose] > │ y2="75"/> │
00:08:55 #36096 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:08:55 #36097 [verbose] > │ y2="75"/> │
00:08:55 #36098 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x... │
00:08:55 #36099 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:55 #36100 [verbose] >
00:08:55 #36101 [verbose] > ╭─[ 553.23ms - stdout ]────────────────────────────────────────────────────────╮
00:08:55 #36102 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:08:55 #36103 [verbose] > │ and UH0 = │
00:08:55 #36104 [verbose] > │ | UH0_0 of float * float * (unit -> UH0) │
00:08:55 #36105 [verbose] > │ | UH0_1 │
00:08:55 #36106 [verbose] > │ and [<Struct>] US0 = │
00:08:55 #36107 [verbose] > │ | US0_0 of f0_0 : float * f0_1 : float │
00:08:55 #36108 [verbose] > │ | US0_1 │
00:08:55 #36109 [verbose] > │ and [<Struct>] US1 = │
00:08:55 #36110 [verbose] > │ | US1_0 of f0_0 : float │
00:08:55 #36111 [verbose] > │ | US1_1 │
00:08:55 #36112 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:08:55 #36113 [verbose] > │ let v1 : int32 = v0.l0 │
00:08:55 #36114 [verbose] > │ let v2 : bool = v1 < 1001 │
00:08:55 #36115 [verbose] > │ v2 │
00:08:55 #36116 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:08:55 #36117 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:55 #36118 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:55 #36119 [verbose] > │ v3 │
00:08:55 #36120 [verbose] > │ and closure0 () struct (v0 : float, v1 : float) : struct (float * float) = │
00:08:55 #36121 [verbose] > │ let v2 : float = -v1 │
00:08:55 #36122 [verbose] > │ let v3 : bool = v1 >= v2 │
00:08:55 #36123 [verbose] > │ let v4 : float = │
00:08:55 #36124 [verbose] > │ if v3 then │
00:08:55 #36125 [verbose] > │ v1 │
00:08:55 #36126 [verbose] > │ else │
00:08:55 #36127 [verbose] > │ v2 │
00:08:55 #36128 [verbose] > │ let v5 : float = -1.225 * v4 │
00:08:55 #36129 [verbose] > │ let v6 : float = v5 * v1 │
00:08:55 #36130 [verbose] > │ let v7 : float = v6 / 2.0 │
00:08:55 #36131 [verbose] > │ let v8 : float = v0 / 20.0 │
00:08:55 #36132 [verbose] > │ let v9 : int32 = int32 v8 │
00:08:55 #36133 [verbose] > │ let v10 : float = float v9 │
00:08:55 #36134 [verbose] > │ let v11 : float = v10 * 20.0 │
00:08:55 #36135 [verbose] > │ let v12 : float = v0 - v11 │
00:08:55 #36136 [verbose] > │ let v13 : bool = v12 > 0.0 │
00:08:55 #36137 [verbose] > │ let v15 : bool = │
00:08:55 #36138 [verbose] > │ if v13 then │
00:08:55 #36139 [verbose] > │ let v14 : bool = v12 < 10.0 │
00:08:55 #36140 [verbose] > │ v14 │
00:08:55 #36141 [verbose] > │ else │
00:08:55 #36142 [verbose] > │ false │
00:08:55 #36143 [verbose] > │ let v16 : float = │
00:08:55 #36144 [verbose] > │ if v15 then │
00:08:55 #36145 [verbose] > │ 10.0 │
00:08:55 #36146 [verbose] > │ else │
00:08:55 #36147 [verbose] > │ 0.0 │
00:08:55 #36148 [verbose] > │ let v17 : float = v16 + v7 │
00:08:55 #36149 [verbose] > │ let v18 : float = v17 / 20.0 │
00:08:55 #36150 [verbose] > │ let v19 : float = v0 + 0.1 │
00:08:55 #36151 [verbose] > │ let v20 : float = v18 * 0.1 │
00:08:55 #36152 [verbose] > │ let v21 : float = v1 + v20 │
00:08:55 #36153 [verbose] > │ struct (v19, v21) │
00:08:55 #36154 [verbose] > │ and method3 () : (struct (float * float) -> struct (float * float)) = │
00:08:55 #36155 [verbose] > │ closure0() │
00:08:55 #36156 [verbose] > │ and closure1 (v0 : (struct (float * float) -> struct (float * float)), v1 : │
00:08:55 #36157 [verbose] > │ float, v2 : float, v3 : float, v4 : float) () : UH0 = │
00:08:55 #36158 [verbose] > │ let struct (v5 : float, v6 : float) = v0 struct (v3, v4) │
00:08:55 #36159 [verbose] > │ let v7 : (unit -> UH0) = closure1(v0, v1, v2, v5, v6) │
00:08:55 #36160 [verbose] > │ UH0_0(v3, v4, v7) │
00:08:55 #36161 [verbose] > │ and method4 (v0 : float, v1 : UH0) : US0 = │
00:08:55 #36162 [verbose] > │ match v1 with │
00:08:55 #36163 [verbose] > │ | UH0_0(v2, v3, v4) -> (* StreamCons *) │
00:08:55 #36164 [verbose] > │ let v5 : bool = v0 <= 0.0 │
00:08:55 #36165 [verbose] > │ if v5 then │
00:08:55 #36166 [verbose] > │ US0_0(v2, v3) │
00:08:55 #36167 [verbose] > │ else │
00:08:55 #36168 [verbose] > │ let v7 : float = v0 - 1.0 │
00:08:55 #36169 [verbose] > │ let v8 : UH0 = v4 () │
00:08:55 #36170 [verbose] > │ method4(v7, v8) │
00:08:55 #36171 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:08:55 #36172 [verbose] > │ US0_1 │
00:08:55 #36173 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:08:55 #36174 [verbose] > │ []) * (float [])) [])) = │
00:08:55 #36175 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (1001) │
00:08:55 #36176 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:08:55 #36177 [verbose] > │ while method1(v1) do │
00:08:55 #36178 [verbose] > │ let v3 : int32 = v1.l0 │
00:08:55 #36179 [verbose] > │ let v4 : float = float v3 │
00:08:55 #36180 [verbose] > │ let v5 : float = 0.1 * v4 │
00:08:55 #36181 [verbose] > │ v0.[int v3] <- v5 │
00:08:55 #36182 [verbose] > │ let v6 : int32 = v3 + 1 │
00:08:55 #36183 [verbose] > │ v1.l0 <- v6 │
00:08:55 #36184 [verbose] > │ () │
00:08:55 #36185 [verbose] > │ let v7 : float = 0.0 │
00:08:55 #36186 [verbose] > │ let v8 : float = 0.0 │
00:08:55 #36187 [verbose] > │ let v9 : int32 = v0.Length │
00:08:55 #36188 [verbose] > │ let v10 : (float []) = Array.zeroCreate<float> (v9) │
00:08:55 #36189 [verbose] > │ let v11 : Mut0 = {l0 = 0} : Mut0 │
00:08:55 #36190 [verbose] > │ while method2(v9, v11) do │
00:08:55 #36191 [verbose] > │ let v13 : int32 = v11.l0 │
00:08:55 #36192 [verbose] > │ let v14 : float = v0.[int v13] │
00:08:55 #36193 [verbose] > │ let v15 : (struct (float * float) -> struct (float * float)) = │
00:08:55 #36194 [verbose] > │ method3() │
00:08:55 #36195 [verbose] > │ let struct (v16 : float, v17 : float) = v15 struct (v7, v8) │
00:08:55 #36196 [verbose] > │ let v18 : float = v14 / 0.1 │
00:08:55 #36197 [verbose] > │ let v19 : float = round v18 │
00:08:55 #36198 [verbose] > │ let v20 : float = -v19 │
00:08:55 #36199 [verbose] > │ let v21 : bool = v19 >= v20 │
00:08:55 #36200 [verbose] > │ let v22 : float = │
00:08:55 #36201 [verbose] > │ if v21 then │
00:08:55 #36202 [verbose] > │ v19 │
00:08:55 #36203 [verbose] > │ else │
00:08:55 #36204 [verbose] > │ v20 │
00:08:55 #36205 [verbose] > │ let v23 : (unit -> UH0) = closure1(v15, v7, v8, v16, v17) │
00:08:55 #36206 [verbose] > │ let v24 : UH0 = UH0_0(v7, v8, v23) │
00:08:55 #36207 [verbose] > │ let v25 : US0 = method4(v22, v24) │
00:08:55 #36208 [verbose] > │ let v31 : US1 = │
00:08:55 #36209 [verbose] > │ match v25 with │
00:08:55 #36210 [verbose] > │ | US0_1 -> (* None *) │
00:08:55 #36211 [verbose] > │ US1_1 │
00:08:55 #36212 [verbose] > │ | US0_0(v26, v27) -> (* Some *) │
00:08:55 #36213 [verbose] > │ US1_0(v27) │
00:08:55 #36214 [verbose] > │ let v34 : float = │
00:08:55 #36215 [verbose] > │ match v31 with │
00:08:55 #36216 [verbose] > │ | US1_1 -> (* None *) │
00:08:55 #36217 [verbose] > │ 0.0 │
00:08:55 #36218 [verbose] > │ | US1_0(v32) -> (* Some *) │
00:08:55 #36219 [verbose] > │ v32 │
00:08:55 #36220 [verbose] > │ v10.[int v13] <- v34 │
00:08:55 #36221 [verbose] > │ let v35 : int32 = v13 + 1 │
00:08:55 #36222 [verbose] > │ v11.l0 <- v35 │
00:08:55 #36223 [verbose] > │ () │
00:08:55 #36224 [verbose] > │ let v36 : string = "velocity of bike (m/s)" │
00:08:55 #36225 [verbose] > │ let v37 : (struct (string * (float []) * (float [])) []) = [|struct │
00:08:55 #36226 [verbose] > │ (v36, v0, v10)|] │
00:08:55 #36227 [verbose] > │ let v38 : string = "pedaling and coasting with air" │
00:08:55 #36228 [verbose] > │ let v39 : string = "time (s)" │
00:08:55 #36229 [verbose] > │ let v40 : string = "" │
00:08:55 #36230 [verbose] > │ struct (v38, v39, v40, v37) │
00:08:55 #36231 [verbose] > │ method0() │
00:08:55 #36232 [verbose] > │ │
00:08:55 #36233 [verbose] > │ │
00:08:55 #36234 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:55 #36235 [verbose] >
00:08:55 #36236 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:55 #36237 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:55 #36238 [verbose] > │ ## velocity_ftxv │
00:08:55 #36239 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:55 #36240 [verbose] >
00:08:55 #36241 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:55 #36242 [verbose] > nominal state_1d = time * position * velocity
00:08:55 #36243 [verbose] > nominal rrr = f64 * f64 * f64
00:08:55 #36244 [verbose] >
00:08:55 #36245 [verbose] > inl newton_second_1d m fs (state_1d (t, x0, v0)) =
00:08:55 #36246 [verbose] > inl f_net = fs |> listm.map (fun f => f (state_1d (t, x0, v0))) |>
00:08:55 #36247 [verbose] > listm'.sum
00:08:55 #36248 [verbose] > inl acc = f_net / m
00:08:55 #36249 [verbose] > rrr (1f64, v0, acc)
00:08:55 #36250 [verbose] >
00:08:55 #36251 [verbose] > inl euler_1d dt deriv (state_1d (t0, x0, v0) as t) =
00:08:55 #36252 [verbose] > inl (rrr (_, _, dvdt)) = deriv t
00:08:55 #36253 [verbose] > inl t1 = t0 + dt
00:08:55 #36254 [verbose] > inl x1 = x0 + v0 * dt
00:08:55 #36255 [verbose] > inl v1 = v0 + dvdt * dt
00:08:55 #36256 [verbose] > state_1d (t1, x1, v1)
00:08:55 #36257 [verbose] >
00:08:55 #36258 [verbose] > inl update_txv dt m fs =
00:08:55 #36259 [verbose] > newton_second_1d m fs |> euler_1d dt
00:08:55 #36260 [verbose] >
00:08:55 #36261 [verbose] > inl states_txv dt m txv0 fs =
00:08:55 #36262 [verbose] > seq.iterate_ (update_txv dt m fs) txv0
00:08:55 #36263 [verbose] >
00:08:55 #36264 [verbose] > inl velocity_1d sts t =
00:08:55 #36265 [verbose] > inl (state_1d (t0, _, _)) = sts 0
00:08:55 #36266 [verbose] > inl (state_1d (t1, _, _)) = sts 1
00:08:55 #36267 [verbose] > inl dt = t1 - t0
00:08:55 #36268 [verbose] > inl num_steps = t / dt |> math.round |> abs
00:08:55 #36269 [verbose] > inl (state_1d (_, _, v0)) = sts num_steps
00:08:55 #36270 [verbose] > v0
00:08:55 #36271 [verbose] >
00:08:55 #36272 [verbose] > inl velocity_ftxv dt m txv0 fs =
00:08:55 #36273 [verbose] > states_txv dt m txv0 fs |> velocity_1d
00:08:55 #36274 [verbose] >
00:08:55 #36275 [verbose] > inl position_1d sts t =
00:08:55 #36276 [verbose] > inl (state_1d (t0, _, _)) = sts 0
00:08:55 #36277 [verbose] > inl (state_1d (t1, _, _)) = sts 1
00:08:55 #36278 [verbose] > inl dt = t1 - t0
00:08:55 #36279 [verbose] > inl num_steps = t / dt |> math.round |> abs
00:08:55 #36280 [verbose] > inl (state_1d (_, x0, _)) = sts num_steps
00:08:55 #36281 [verbose] > x0
00:08:55 #36282 [verbose] >
00:08:55 #36283 [verbose] > inl position_ftxv dt m txv0 fs =
00:08:55 #36284 [verbose] > states_txv dt m txv0 fs |> position_1d
00:08:55 #36285 [verbose] >
00:08:55 #36286 [verbose] > inl spring_force k (state_1d (_, x0, _)) =
00:08:55 #36287 [verbose] > -k * x0
00:08:55 #36288 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\89b3a4095c013cc6473d1bc2bf94e7ef989921c44e204dd9594201600f91ec7a\main.spi
00:08:55 #36289 [verbose] >
00:08:55 #36290 [verbose] > ╭─[ 210.77ms - stdout ]────────────────────────────────────────────────────────╮
00:08:55 #36291 [verbose] > │ () │
00:08:55 #36292 [verbose] > │ │
00:08:55 #36293 [verbose] > │ │
00:08:55 #36294 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:55 #36295 [verbose] >
00:08:55 #36296 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:55 #36297 [verbose] > // // test
00:08:55 #36298 [verbose] >
00:08:55 #36299 [verbose] > inl damped_ho_forces () =
00:08:55 #36300 [verbose] > [[
00:08:55 #36301 [verbose] > spring_force 0.8
00:08:55 #36302 [verbose] > fun (state_1d (_, _, v0)) => f_air 2 1.225 (pi * math.square 0.02) v0
00:08:55 #36303 [verbose] > fun _ => -0.0027 * 9.80665
00:08:55 #36304 [verbose] > ]]
00:08:55 #36305 [verbose] >
00:08:55 #36306 [verbose] > inl damped_ho_states () =
00:08:55 #36307 [verbose] > states_txv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ())
00:08:55 #36308 [verbose] >
00:08:55 #36309 [verbose] > inl pingpong_position t =
00:08:55 #36310 [verbose] > position_ftxv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ()) t
00:08:55 #36311 [verbose] >
00:08:55 #36312 [verbose] > inl x : a _ f64 = am'.init_series 0 3 0.01
00:08:55 #36313 [verbose] > inl y = x |> am.map pingpong_position
00:08:55 #36314 [verbose] > "ping pong ball on a slinky", "time (s)", "", ;[[ "position (m)", x, y ]]
00:08:55 #36315 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\42e95dd9ca916012d6e31809c95132abe5b9eb77f49dcdee3fa5bf715799e35a\main.spi
00:08:55 #36316 [verbose] >
00:08:55 #36317 [verbose] > ╭─[ 346.41ms - return value ]──────────────────────────────────────────────────╮
00:08:55 #36318 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:08:55 #36319 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:08:55 #36320 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:08:55 #36321 [verbose] > │ stroke="none"/> │
00:08:55 #36322 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:08:55 #36323 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:08:55 #36324 [verbose] > │ fill="#FFFFFF"> │
00:08:55 #36325 [verbose] > │ ping pong ball on a slinky │
00:08:55 #36326 [verbose] > │ </text> │
00:08:55 #36327 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:08:55 #36328 [verbose] > │ y2="75"/> │
00:08:55 #36329 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:08:55 #36330 [verbose] > │ y2="75"/> │
00:08:55 #36331 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:08:55 #36332 [verbose] > │ y2="75"/> │
00:08:55 #36333 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:08:55 #36334 [verbose] > │ y2="75"/> │
00:08:55 #36335 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="9... │
00:08:55 #36336 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:55 #36337 [verbose] >
00:08:55 #36338 [verbose] > ╭─[ 357.56ms - stdout ]────────────────────────────────────────────────────────╮
00:08:55 #36339 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:08:55 #36340 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:08:55 #36341 [verbose] > │ let v1 : int32 = v0.l0 │
00:08:55 #36342 [verbose] > │ let v2 : bool = v1 < 301 │
00:08:55 #36343 [verbose] > │ v2 │
00:08:55 #36344 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:08:55 #36345 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:55 #36346 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:55 #36347 [verbose] > │ v3 │
00:08:55 #36348 [verbose] > │ and method3 (v0 : float, v1 : float, v2 : float, v3 : float) : struct (float │
00:08:55 #36349 [verbose] > │ * float * float) = │
00:08:55 #36350 [verbose] > │ let v4 : bool = v3 <= 0.0 │
00:08:55 #36351 [verbose] > │ if v4 then │
00:08:55 #36352 [verbose] > │ struct (v0, v1, v2) │
00:08:55 #36353 [verbose] > │ else │
00:08:55 #36354 [verbose] > │ let v5 : float = -v2 │
00:08:55 #36355 [verbose] > │ let v6 : bool = v2 >= v5 │
00:08:55 #36356 [verbose] > │ let v7 : float = │
00:08:55 #36357 [verbose] > │ if v6 then │
00:08:55 #36358 [verbose] > │ v2 │
00:08:55 #36359 [verbose] > │ else │
00:08:55 #36360 [verbose] > │ v5 │
00:08:55 #36361 [verbose] > │ let v8 : float = -0.0030787608005179976 * v7 │
00:08:55 #36362 [verbose] > │ let v9 : float = v8 * v2 │
00:08:55 #36363 [verbose] > │ let v10 : float = v9 / 2.0 │
00:08:55 #36364 [verbose] > │ let v11 : float = -0.8 * v1 │
00:08:55 #36365 [verbose] > │ let v12 : float = v11 + v10 │
00:08:55 #36366 [verbose] > │ let v13 : float = v12 + -0.026477955 │
00:08:55 #36367 [verbose] > │ let v14 : float = v13 / 0.0027 │
00:08:55 #36368 [verbose] > │ let v15 : float = v0 + 0.001 │
00:08:55 #36369 [verbose] > │ let v16 : float = v2 * 0.001 │
00:08:55 #36370 [verbose] > │ let v17 : float = v1 + v16 │
00:08:55 #36371 [verbose] > │ let v18 : float = v14 * 0.001 │
00:08:55 #36372 [verbose] > │ let v19 : float = v2 + v18 │
00:08:55 #36373 [verbose] > │ let v20 : float = v3 - 1.0 │
00:08:55 #36374 [verbose] > │ method3(v15, v17, v19, v20) │
00:08:55 #36375 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:08:55 #36376 [verbose] > │ []) * (float [])) [])) = │
00:08:55 #36377 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (301) │
00:08:55 #36378 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:08:55 #36379 [verbose] > │ while method1(v1) do │
00:08:55 #36380 [verbose] > │ let v3 : int32 = v1.l0 │
00:08:55 #36381 [verbose] > │ let v4 : float = float v3 │
00:08:55 #36382 [verbose] > │ let v5 : float = 0.01 * v4 │
00:08:55 #36383 [verbose] > │ v0.[int v3] <- v5 │
00:08:55 #36384 [verbose] > │ let v6 : int32 = v3 + 1 │
00:08:55 #36385 [verbose] > │ v1.l0 <- v6 │
00:08:55 #36386 [verbose] > │ () │
00:08:55 #36387 [verbose] > │ let v7 : int32 = v0.Length │
00:08:55 #36388 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:08:55 #36389 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:08:55 #36390 [verbose] > │ while method2(v7, v9) do │
00:08:55 #36391 [verbose] > │ let v11 : int32 = v9.l0 │
00:08:55 #36392 [verbose] > │ let v12 : float = v0.[int v11] │
00:08:55 #36393 [verbose] > │ let v13 : float = 0.0 │
00:08:55 #36394 [verbose] > │ let v14 : float = 0.1 │
00:08:55 #36395 [verbose] > │ let v15 : float = 0.0 │
00:08:55 #36396 [verbose] > │ let v16 : float = 0.0 │
00:08:55 #36397 [verbose] > │ let struct (v17 : float, v18 : float, v19 : float) = method3(v13, │
00:08:55 #36398 [verbose] > │ v14, v15, v16) │
00:08:55 #36399 [verbose] > │ let v20 : float = 0.0 │
00:08:55 #36400 [verbose] > │ let v21 : float = 0.1 │
00:08:55 #36401 [verbose] > │ let v22 : float = 0.0 │
00:08:55 #36402 [verbose] > │ let v23 : float = 1.0 │
00:08:55 #36403 [verbose] > │ let struct (v24 : float, v25 : float, v26 : float) = method3(v20, │
00:08:55 #36404 [verbose] > │ v21, v22, v23) │
00:08:55 #36405 [verbose] > │ let v27 : float = v24 - v17 │
00:08:55 #36406 [verbose] > │ let v28 : float = v12 / v27 │
00:08:55 #36407 [verbose] > │ let v29 : float = round v28 │
00:08:55 #36408 [verbose] > │ let v30 : float = -v29 │
00:08:55 #36409 [verbose] > │ let v31 : bool = v29 >= v30 │
00:08:55 #36410 [verbose] > │ let v32 : float = │
00:08:55 #36411 [verbose] > │ if v31 then │
00:08:55 #36412 [verbose] > │ v29 │
00:08:55 #36413 [verbose] > │ else │
00:08:55 #36414 [verbose] > │ v30 │
00:08:55 #36415 [verbose] > │ let v33 : float = 0.0 │
00:08:55 #36416 [verbose] > │ let v34 : float = 0.1 │
00:08:55 #36417 [verbose] > │ let v35 : float = 0.0 │
00:08:55 #36418 [verbose] > │ let struct (v36 : float, v37 : float, v38 : float) = method3(v33, │
00:08:55 #36419 [verbose] > │ v34, v35, v32) │
00:08:55 #36420 [verbose] > │ v8.[int v11] <- v37 │
00:08:55 #36421 [verbose] > │ let v39 : int32 = v11 + 1 │
00:08:55 #36422 [verbose] > │ v9.l0 <- v39 │
00:08:55 #36423 [verbose] > │ () │
00:08:55 #36424 [verbose] > │ let v40 : string = "position (m)" │
00:08:55 #36425 [verbose] > │ let v41 : (struct (string * (float []) * (float [])) []) = [|struct │
00:08:55 #36426 [verbose] > │ (v40, v0, v8)|] │
00:08:55 #36427 [verbose] > │ let v42 : string = "ping pong ball on a slinky" │
00:08:55 #36428 [verbose] > │ let v43 : string = "time (s)" │
00:08:55 #36429 [verbose] > │ let v44 : string = "" │
00:08:55 #36430 [verbose] > │ struct (v42, v43, v44, v41) │
00:08:55 #36431 [verbose] > │ method0() │
00:08:55 #36432 [verbose] > │ │
00:08:55 #36433 [verbose] > │ │
00:08:55 #36434 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:55 #36435 [verbose] >
00:08:55 #36436 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:55 #36437 [verbose] > // // test
00:08:55 #36438 [verbose] >
00:08:55 #36439 [verbose] > inl pingpong_velocity t =
00:08:55 #36440 [verbose] > velocity_ftxv 0.001 0.0027 (state_1d (0, 0.1, 0)) (damped_ho_forces ()) t
00:08:55 #36441 [verbose] >
00:08:55 #36442 [verbose] > inl x = am'.init_series 0 3 0.01
00:08:55 #36443 [verbose] > inl y = x |> am.map pingpong_velocity
00:08:55 #36444 [verbose] > "ping pong ball on a slinky", "time (s)", "", ;[[ "velocity (m/s)", x, y ]]
00:08:56 #36445 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d2704dacd1f8e675502c0f69600095f04f86eaf392d42da2be925171e1c02caf\main.spi
00:08:56 #36446 [verbose] >
00:08:56 #36447 [verbose] > ╭─[ 334.38ms - return value ]──────────────────────────────────────────────────╮
00:08:56 #36448 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:08:56 #36449 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:08:56 #36450 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:08:56 #36451 [verbose] > │ stroke="none"/> │
00:08:56 #36452 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:08:56 #36453 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:08:56 #36454 [verbose] > │ fill="#FFFFFF"> │
00:08:56 #36455 [verbose] > │ ping pong ball on a slinky │
00:08:56 #36456 [verbose] > │ </text> │
00:08:56 #36457 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="61" y1="424" x2="61" │
00:08:56 #36458 [verbose] > │ y2="75"/> │
00:08:56 #36459 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:08:56 #36460 [verbose] > │ y2="75"/> │
00:08:56 #36461 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="78" y1="424" x2="78" │
00:08:56 #36462 [verbose] > │ y2="75"/> │
00:08:56 #36463 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="86" y1="424" x2="86" │
00:08:56 #36464 [verbose] > │ y2="75"/> │
00:08:56 #36465 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="9... │
00:08:56 #36466 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:56 #36467 [verbose] >
00:08:56 #36468 [verbose] > ╭─[ 343.20ms - stdout ]────────────────────────────────────────────────────────╮
00:08:56 #36469 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:08:56 #36470 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:08:56 #36471 [verbose] > │ let v1 : int32 = v0.l0 │
00:08:56 #36472 [verbose] > │ let v2 : bool = v1 < 301 │
00:08:56 #36473 [verbose] > │ v2 │
00:08:56 #36474 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:08:56 #36475 [verbose] > │ let v2 : int32 = v1.l0 │
00:08:56 #36476 [verbose] > │ let v3 : bool = v2 < v0 │
00:08:56 #36477 [verbose] > │ v3 │
00:08:56 #36478 [verbose] > │ and method3 (v0 : float, v1 : float, v2 : float, v3 : float) : struct (float │
00:08:56 #36479 [verbose] > │ * float * float) = │
00:08:56 #36480 [verbose] > │ let v4 : bool = v3 <= 0.0 │
00:08:56 #36481 [verbose] > │ if v4 then │
00:08:56 #36482 [verbose] > │ struct (v0, v1, v2) │
00:08:56 #36483 [verbose] > │ else │
00:08:56 #36484 [verbose] > │ let v5 : float = -v2 │
00:08:56 #36485 [verbose] > │ let v6 : bool = v2 >= v5 │
00:08:56 #36486 [verbose] > │ let v7 : float = │
00:08:56 #36487 [verbose] > │ if v6 then │
00:08:56 #36488 [verbose] > │ v2 │
00:08:56 #36489 [verbose] > │ else │
00:08:56 #36490 [verbose] > │ v5 │
00:08:56 #36491 [verbose] > │ let v8 : float = -0.0030787608005179976 * v7 │
00:08:56 #36492 [verbose] > │ let v9 : float = v8 * v2 │
00:08:56 #36493 [verbose] > │ let v10 : float = v9 / 2.0 │
00:08:56 #36494 [verbose] > │ let v11 : float = -0.8 * v1 │
00:08:56 #36495 [verbose] > │ let v12 : float = v11 + v10 │
00:08:56 #36496 [verbose] > │ let v13 : float = v12 + -0.026477955 │
00:08:56 #36497 [verbose] > │ let v14 : float = v13 / 0.0027 │
00:08:56 #36498 [verbose] > │ let v15 : float = v0 + 0.001 │
00:08:56 #36499 [verbose] > │ let v16 : float = v2 * 0.001 │
00:08:56 #36500 [verbose] > │ let v17 : float = v1 + v16 │
00:08:56 #36501 [verbose] > │ let v18 : float = v14 * 0.001 │
00:08:56 #36502 [verbose] > │ let v19 : float = v2 + v18 │
00:08:56 #36503 [verbose] > │ let v20 : float = v3 - 1.0 │
00:08:56 #36504 [verbose] > │ method3(v15, v17, v19, v20) │
00:08:56 #36505 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:08:56 #36506 [verbose] > │ []) * (float [])) [])) = │
00:08:56 #36507 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (301) │
00:08:56 #36508 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:08:56 #36509 [verbose] > │ while method1(v1) do │
00:08:56 #36510 [verbose] > │ let v3 : int32 = v1.l0 │
00:08:56 #36511 [verbose] > │ let v4 : float = float v3 │
00:08:56 #36512 [verbose] > │ let v5 : float = 0.01 * v4 │
00:08:56 #36513 [verbose] > │ v0.[int v3] <- v5 │
00:08:56 #36514 [verbose] > │ let v6 : int32 = v3 + 1 │
00:08:56 #36515 [verbose] > │ v1.l0 <- v6 │
00:08:56 #36516 [verbose] > │ () │
00:08:56 #36517 [verbose] > │ let v7 : int32 = v0.Length │
00:08:56 #36518 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:08:56 #36519 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:08:56 #36520 [verbose] > │ while method2(v7, v9) do │
00:08:56 #36521 [verbose] > │ let v11 : int32 = v9.l0 │
00:08:56 #36522 [verbose] > │ let v12 : float = v0.[int v11] │
00:08:56 #36523 [verbose] > │ let v13 : float = 0.0 │
00:08:56 #36524 [verbose] > │ let v14 : float = 0.1 │
00:08:56 #36525 [verbose] > │ let v15 : float = 0.0 │
00:08:56 #36526 [verbose] > │ let v16 : float = 0.0 │
00:08:56 #36527 [verbose] > │ let struct (v17 : float, v18 : float, v19 : float) = method3(v13, │
00:08:56 #36528 [verbose] > │ v14, v15, v16) │
00:08:56 #36529 [verbose] > │ let v20 : float = 0.0 │
00:08:56 #36530 [verbose] > │ let v21 : float = 0.1 │
00:08:56 #36531 [verbose] > │ let v22 : float = 0.0 │
00:08:56 #36532 [verbose] > │ let v23 : float = 1.0 │
00:08:56 #36533 [verbose] > │ let struct (v24 : float, v25 : float, v26 : float) = method3(v20, │
00:08:56 #36534 [verbose] > │ v21, v22, v23) │
00:08:56 #36535 [verbose] > │ let v27 : float = v24 - v17 │
00:08:56 #36536 [verbose] > │ let v28 : float = v12 / v27 │
00:08:56 #36537 [verbose] > │ let v29 : float = round v28 │
00:08:56 #36538 [verbose] > │ let v30 : float = -v29 │
00:08:56 #36539 [verbose] > │ let v31 : bool = v29 >= v30 │
00:08:56 #36540 [verbose] > │ let v32 : float = │
00:08:56 #36541 [verbose] > │ if v31 then │
00:08:56 #36542 [verbose] > │ v29 │
00:08:56 #36543 [verbose] > │ else │
00:08:56 #36544 [verbose] > │ v30 │
00:08:56 #36545 [verbose] > │ let v33 : float = 0.0 │
00:08:56 #36546 [verbose] > │ let v34 : float = 0.1 │
00:08:56 #36547 [verbose] > │ let v35 : float = 0.0 │
00:08:56 #36548 [verbose] > │ let struct (v36 : float, v37 : float, v38 : float) = method3(v33, │
00:08:56 #36549 [verbose] > │ v34, v35, v32) │
00:08:56 #36550 [verbose] > │ v8.[int v11] <- v38 │
00:08:56 #36551 [verbose] > │ let v39 : int32 = v11 + 1 │
00:08:56 #36552 [verbose] > │ v9.l0 <- v39 │
00:08:56 #36553 [verbose] > │ () │
00:08:56 #36554 [verbose] > │ let v40 : string = "velocity (m/s)" │
00:08:56 #36555 [verbose] > │ let v41 : (struct (string * (float []) * (float [])) []) = [|struct │
00:08:56 #36556 [verbose] > │ (v40, v0, v8)|] │
00:08:56 #36557 [verbose] > │ let v42 : string = "ping pong ball on a slinky" │
00:08:56 #36558 [verbose] > │ let v43 : string = "time (s)" │
00:08:56 #36559 [verbose] > │ let v44 : string = "" │
00:08:56 #36560 [verbose] > │ struct (v42, v43, v44, v41) │
00:08:56 #36561 [verbose] > │ method0() │
00:08:56 #36562 [verbose] > │ │
00:08:56 #36563 [verbose] > │ │
00:08:56 #36564 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:56 #36565 [verbose] >
00:08:56 #36566 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:56 #36567 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:56 #36568 [verbose] > │ ## shift │
00:08:56 #36569 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:56 #36570 [verbose] >
00:08:56 #36571 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:56 #36572 [verbose] > type update_function s = s -> s
00:08:56 #36573 [verbose] >
00:08:56 #36574 [verbose] > type differential_equation s ds = s -> ds
00:08:56 #36575 [verbose] >
00:08:56 #36576 [verbose] > type numerical_method s ds = differential_equation s ds -> update_function s
00:08:56 #36577 [verbose] >
00:08:56 #36578 [verbose] >
00:08:56 #36579 [verbose] > inl solver method =
00:08:56 #36580 [verbose] > method >> seq.iterate
00:08:56 #36581 [verbose] > inl solver' method =
00:08:56 #36582 [verbose] > method >> seq.iterate'
00:08:56 #36583 [verbose] > inl solver_ method =
00:08:56 #36584 [verbose] > method >> seq.iterate_
00:08:56 #36585 [verbose] >
00:08:56 #36586 [verbose] >
00:08:56 #36587 [verbose] > inl euler_cromer_1d dt deriv (state_1d (t0, x0, v0) as t) =
00:08:56 #36588 [verbose] > inl (rrr (_, _, dvdt)) = deriv t
00:08:56 #36589 [verbose] > inl t1 = t0 + dt
00:08:56 #36590 [verbose] > inl v1 = v0 + dvdt * dt
00:08:56 #36591 [verbose] > inl x1 = x0 + v1 * dt
00:08:56 #36592 [verbose] > state_1d (t1, x1, v1)
00:08:56 #36593 [verbose] >
00:08:56 #36594 [verbose] > inl update_txv_ec dt m fs =
00:08:56 #36595 [verbose] > euler_cromer_1d dt (newton_second_1d m fs)
00:08:56 #36596 [verbose] >
00:08:56 #36597 [verbose] > prototype (+++) ds : ds -> ds -> ds
00:08:56 #36598 [verbose] > prototype scale ds : f64 -> ds -> ds
00:08:56 #36599 [verbose] >
00:08:56 #36600 [verbose] > instance (+++) rrr = fun (rrr (dtdt0, dxdt0, dvdt0)) (rrr (dtdt1, dxdt1, dvdt1))
00:08:56 #36601 [verbose] > =>
00:08:56 #36602 [verbose] > rrr (dtdt0 + dtdt1, dxdt0 + dxdt1, dvdt0 + dvdt1)
00:08:56 #36603 [verbose] >
00:08:56 #36604 [verbose] > instance scale rrr = fun w (rrr (dtdt0, dxdt0, dvdt0)) =>
00:08:56 #36605 [verbose] > rrr (w * dtdt0, w * dxdt0, w * dvdt0)
00:08:56 #36606 [verbose] >
00:08:56 #36607 [verbose] > prototype shift s : forall ds. f64 -> ds -> s -> s
00:08:56 #36608 [verbose] >
00:08:56 #36609 [verbose] > instance shift state_1d = fun dt ds (state_1d (t, x, v)) =>
00:08:56 #36610 [verbose] > inl dtdt, dxdt, dvdt =
00:08:56 #36611 [verbose] > real
00:08:56 #36612 [verbose] > match ds with
00:08:56 #36613 [verbose] > | rrr x => x
00:08:56 #36614 [verbose] > | state_1d x => x
00:08:56 #36615 [verbose] > state_1d (t + dtdt * dt, x + dxdt * dt, v + dvdt * dt)
00:08:56 #36616 [verbose] >
00:08:56 #36617 [verbose] > inl euler dt deriv st0 =
00:08:56 #36618 [verbose] > shift dt (deriv st0) st0
00:08:56 #36619 [verbose] >
00:08:56 #36620 [verbose] > inl runge_kutta_4 dt deriv st0 =
00:08:56 #36621 [verbose] > inl m0 = deriv st0
00:08:56 #36622 [verbose] > inl m1 = deriv (shift (dt / 2) m0 st0)
00:08:56 #36623 [verbose] > inl m2 = deriv (shift (dt / 2) m1 st0)
00:08:56 #36624 [verbose] > inl m3 = deriv (shift dt m2 st0)
00:08:56 #36625 [verbose] > shift (dt / 6) (m0 +++ m1 +++ m1 +++ m2 +++ m2 +++ m3) st0
00:08:56 #36626 [verbose] >
00:08:56 #36627 [verbose] > inl exponential (_, x0, v0) =
00:08:56 #36628 [verbose] > 1f64, v0, x0
00:08:56 #36629 [verbose] >
00:08:56 #36630 [verbose] > inl of_state_1d (state_1d (t, x, v)) =
00:08:56 #36631 [verbose] > t, x, v
00:08:56 #36632 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4d9b7e5bd2fd17f3c205d926efce1b4f74cfa12c66e517a2ee4ef38bd223be23\main.spi
00:08:56 #36633 [verbose] >
00:08:56 #36634 [verbose] > ╭─[ 220.80ms - stdout ]────────────────────────────────────────────────────────╮
00:08:56 #36635 [verbose] > │ () │
00:08:56 #36636 [verbose] > │ │
00:08:56 #36637 [verbose] > │ │
00:08:56 #36638 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:56 #36639 [verbose] >
00:08:56 #36640 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:56 #36641 [verbose] > // // test
00:08:56 #36642 [verbose] >
00:08:56 #36643 [verbose] > solver (euler 0.01) (of_state_1d >> exponential >> state_1d) (state_1d (0, 1,
00:08:56 #36644 [verbose] > 1)) 800i32
00:08:56 #36645 [verbose] > |> _assert_eq (state_1d (7.999999999999874, 2864.8311229272326,
00:08:56 #36646 [verbose] > 2864.8311229272326))
00:08:56 #36647 [verbose] >
00:08:56 #36648 [verbose] > solver (euler_cromer_1d 0.1) (of_state_1d >> exponential >> rrr) (state_1d (0,
00:08:56 #36649 [verbose] > 1, 1)) 80i32
00:08:56 #36650 [verbose] > |> _assert_eq (state_1d (7.999999999999988, 3043.379244966009,
00:08:56 #36651 [verbose] > 2895.0121485099035))
00:08:56 #36652 [verbose] >
00:08:56 #36653 [verbose] > solver (runge_kutta_4 1) (of_state_1d >> exponential >> rrr) (state_1d (0, 1,
00:08:56 #36654 [verbose] > 1)) 8i32
00:08:56 #36655 [verbose] > |> _assert_eq (state_1d (8.0, 2894.789038540849, 2894.789038540849))
00:08:56 #36656 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cf687232b760467ad6c5cabe4dd1ba6eb21d6ef972b08c2da6bfbb5b154df643\main.spi
00:08:56 #36657 [verbose] >
00:08:56 #36658 [verbose] > ╭─[ 393.29ms - stdout ]────────────────────────────────────────────────────────╮
00:08:56 #36659 [verbose] > │ let rec method0 () : unit = │
00:08:56 #36660 [verbose] > │ let v0 : string = $"%A{struct (7.999999999999874, 2864.8311229272326, │
00:08:56 #36661 [verbose] > │ 2864.8311229272326)}" │
00:08:56 #36662 [verbose] > │ System.Console.WriteLine v0 │
00:08:56 #36663 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (7.999999999999874, │
00:08:56 #36664 [verbose] > │ 2864.8311229272326, 2864.8311229272326)} / expected: %A{struct │
00:08:56 #36665 [verbose] > │ (7.999999999999874, 2864.8311229272326, 2864.8311229272326)}" │
00:08:56 #36666 [verbose] > │ let v2 : string = $"%A{struct (7.999999999999988, 3043.379244966009, │
00:08:56 #36667 [verbose] > │ 2895.0121485099035)}" │
00:08:56 #36668 [verbose] > │ System.Console.WriteLine v2 │
00:08:56 #36669 [verbose] > │ let v3 : string = $"__expect / actual: %A{struct (7.999999999999988, │
00:08:56 #36670 [verbose] > │ 3043.379244966009, 2895.0121485099035)} / expected: %A{struct │
00:08:56 #36671 [verbose] > │ (7.999999999999988, 3043.379244966009, 2895.0121485099035)}" │
00:08:56 #36672 [verbose] > │ let v4 : string = $"%A{struct (8.0, 2894.789038540849, │
00:08:56 #36673 [verbose] > │ 2894.789038540849)}" │
00:08:56 #36674 [verbose] > │ System.Console.WriteLine v4 │
00:08:56 #36675 [verbose] > │ let v5 : string = $"__expect / actual: %A{struct (8.0, │
00:08:56 #36676 [verbose] > │ 2894.789038540849, 2894.789038540849)} / expected: %A{struct (8.0, │
00:08:56 #36677 [verbose] > │ 2894.789038540849, 2894.789038540849)}" │
00:08:56 #36678 [verbose] > │ () │
00:08:56 #36679 [verbose] > │ method0() │
00:08:56 #36680 [verbose] > │ │
00:08:56 #36681 [verbose] > │ struct (8.0, 2864.831123, 2864.831123) │
00:08:56 #36682 [verbose] > │ struct (8.0, 3043.379245, 2895.012149) │
00:08:56 #36683 [verbose] > │ struct (8.0, 2894.789039, 2894.789039) │
00:08:56 #36684 [verbose] > │ │
00:08:56 #36685 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:56 #36686 [verbose] >
00:08:56 #36687 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:56 #36688 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:56 #36689 [verbose] > │ ## vec │
00:08:56 #36690 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:56 #36691 [verbose] >
00:08:56 #36692 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:56 #36693 [verbose] > type vec =
00:08:56 #36694 [verbose] > {
00:08:56 #36695 [verbose] > x : f64
00:08:56 #36696 [verbose] > y : f64
00:08:56 #36697 [verbose] > z : f64
00:08:56 #36698 [verbose] > }
00:08:56 #36699 [verbose] >
00:08:56 #36700 [verbose] > inl vec x y z : vec =
00:08:56 #36701 [verbose] > { x y z }
00:08:57 #36702 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\113688ea39e922be1f2cbea8f3ab1c64a3502d5756c5e284f9b54107aa74b3cd\main.spi
00:08:57 #36703 [verbose] >
00:08:57 #36704 [verbose] > ╭─[ 245.50ms - stdout ]────────────────────────────────────────────────────────╮
00:08:57 #36705 [verbose] > │ () │
00:08:57 #36706 [verbose] > │ │
00:08:57 #36707 [verbose] > │ │
00:08:57 #36708 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:57 #36709 [verbose] >
00:08:57 #36710 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:57 #36711 [verbose] > // // test
00:08:57 #36712 [verbose] >
00:08:57 #36713 [verbose] > vec 1 2 3 .z
00:08:57 #36714 [verbose] > |> _assert_eq 3
00:08:57 #36715 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8f370e817a347ceb072e3c0fd906893fafc06de25036652b8696960f2f41ba49\main.spi
00:08:57 #36716 [verbose] >
00:08:57 #36717 [verbose] > ╭─[ 279.54ms - stdout ]────────────────────────────────────────────────────────╮
00:08:57 #36718 [verbose] > │ let rec method0 () : unit = │
00:08:57 #36719 [verbose] > │ let v0 : string = $"%A{3.0}" │
00:08:57 #36720 [verbose] > │ System.Console.WriteLine v0 │
00:08:57 #36721 [verbose] > │ let v1 : string = $"__expect / actual: %A{3.0} / expected: %A{3.0}" │
00:08:57 #36722 [verbose] > │ () │
00:08:57 #36723 [verbose] > │ method0() │
00:08:57 #36724 [verbose] > │ │
00:08:57 #36725 [verbose] > │ 3.0 │
00:08:57 #36726 [verbose] > │ │
00:08:57 #36727 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:57 #36728 [verbose] >
00:08:57 #36729 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:57 #36730 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:57 #36731 [verbose] > │ ### consts │
00:08:57 #36732 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:57 #36733 [verbose] >
00:08:57 #36734 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:57 #36735 [verbose] > inl i_hat () = vec 1 0 0
00:08:57 #36736 [verbose] > inl j_hat () = vec 0 1 0
00:08:57 #36737 [verbose] > inl k_hat () = vec 0 0 1
00:08:57 #36738 [verbose] > inl zero_vec () = vec 0 0 0
00:08:57 #36739 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\806bc6556579b8801c2e7f1a5838f4b19530f2318364f9e0bb45103e18688304\main.spi
00:08:57 #36740 [verbose] >
00:08:57 #36741 [verbose] > ╭─[ 275.01ms - stdout ]────────────────────────────────────────────────────────╮
00:08:57 #36742 [verbose] > │ () │
00:08:57 #36743 [verbose] > │ │
00:08:57 #36744 [verbose] > │ │
00:08:57 #36745 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:57 #36746 [verbose] >
00:08:57 #36747 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:57 #36748 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:57 #36749 [verbose] > │ ### ^+^ │
00:08:57 #36750 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:57 #36751 [verbose] >
00:08:57 #36752 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:57 #36753 [verbose] > inl (^+^) (a : vec) (b : vec) =
00:08:57 #36754 [verbose] > vec (a.x + b.x) (a.y + b.y) (a.z + b.z)
00:08:57 #36755 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8f5114f16e22a4b014986489a471908e0697a847154a7ad65c6a04ea22876d13\main.spi
00:08:57 #36756 [verbose] >
00:08:57 #36757 [verbose] > ╭─[ 236.55ms - stdout ]────────────────────────────────────────────────────────╮
00:08:57 #36758 [verbose] > │ () │
00:08:57 #36759 [verbose] > │ │
00:08:57 #36760 [verbose] > │ │
00:08:57 #36761 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:57 #36762 [verbose] >
00:08:57 #36763 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:57 #36764 [verbose] > // // test
00:08:57 #36765 [verbose] >
00:08:57 #36766 [verbose] > vec 1 2 3 ^+^ vec 4 5 6
00:08:57 #36767 [verbose] > |> _assert_eq (vec 5 7 9)
00:08:58 #36768 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\01b0a038126e8a0653a8196f201a6326f4f962458948c0ff5d420011df60fa66\main.spi
00:08:58 #36769 [verbose] >
00:08:58 #36770 [verbose] > ╭─[ 270.48ms - stdout ]────────────────────────────────────────────────────────╮
00:08:58 #36771 [verbose] > │ let rec method0 () : unit = │
00:08:58 #36772 [verbose] > │ let v0 : string = $"%A{struct (5.0, 7.0, 9.0)}" │
00:08:58 #36773 [verbose] > │ System.Console.WriteLine v0 │
00:08:58 #36774 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 7.0, 9.0)} / │
00:08:58 #36775 [verbose] > │ expected: %A{struct (5.0, 7.0, 9.0)}" │
00:08:58 #36776 [verbose] > │ () │
00:08:58 #36777 [verbose] > │ method0() │
00:08:58 #36778 [verbose] > │ │
00:08:58 #36779 [verbose] > │ struct (5.0, 7.0, 9.0) │
00:08:58 #36780 [verbose] > │ │
00:08:58 #36781 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:58 #36782 [verbose] >
00:08:58 #36783 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:58 #36784 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:58 #36785 [verbose] > │ ### sum_vec │
00:08:58 #36786 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:58 #36787 [verbose] >
00:08:58 #36788 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:58 #36789 [verbose] > inl sum_vec vs =
00:08:58 #36790 [verbose] > vs |> listm.fold (^+^) (zero_vec ())
00:08:58 #36791 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\9261787301f9705e537bdaf77fbc2b02d9d82ac521fc4a65af671d38806a6a18\main.spi
00:08:58 #36792 [verbose] >
00:08:58 #36793 [verbose] > ╭─[ 222.48ms - stdout ]────────────────────────────────────────────────────────╮
00:08:58 #36794 [verbose] > │ () │
00:08:58 #36795 [verbose] > │ │
00:08:58 #36796 [verbose] > │ │
00:08:58 #36797 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:58 #36798 [verbose] >
00:08:58 #36799 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:58 #36800 [verbose] > // // test
00:08:58 #36801 [verbose] >
00:08:58 #36802 [verbose] > [[ vec 1 2 3; vec 4 5 6 ]]
00:08:58 #36803 [verbose] > |> sum_vec
00:08:58 #36804 [verbose] > |> _assert_eq (vec 5 7 9)
00:08:58 #36805 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\d9c699d72c3b1f17d43c509e750577475066860e1565027adcd8ec665cd2cde3\main.spi
00:08:58 #36806 [verbose] >
00:08:58 #36807 [verbose] > ╭─[ 279.74ms - stdout ]────────────────────────────────────────────────────────╮
00:08:58 #36808 [verbose] > │ let rec method0 () : unit = │
00:08:58 #36809 [verbose] > │ let v0 : string = $"%A{struct (5.0, 7.0, 9.0)}" │
00:08:58 #36810 [verbose] > │ System.Console.WriteLine v0 │
00:08:58 #36811 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 7.0, 9.0)} / │
00:08:58 #36812 [verbose] > │ expected: %A{struct (5.0, 7.0, 9.0)}" │
00:08:58 #36813 [verbose] > │ () │
00:08:58 #36814 [verbose] > │ method0() │
00:08:58 #36815 [verbose] > │ │
00:08:58 #36816 [verbose] > │ struct (5.0, 7.0, 9.0) │
00:08:58 #36817 [verbose] > │ │
00:08:58 #36818 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:58 #36819 [verbose] >
00:08:58 #36820 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:58 #36821 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:58 #36822 [verbose] > │ ### *^ │
00:08:58 #36823 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:58 #36824 [verbose] >
00:08:58 #36825 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:58 #36826 [verbose] > inl (*^) c { x y z } =
00:08:58 #36827 [verbose] > vec (c * x) (c * y) (c * z)
00:08:58 #36828 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\abaae8700f9854712d7db58058ea59c5e646178315ec74d0a4bef2c54b3ba99f\main.spi
00:08:59 #36829 [verbose] >
00:08:59 #36830 [verbose] > ╭─[ 257.91ms - stdout ]────────────────────────────────────────────────────────╮
00:08:59 #36831 [verbose] > │ () │
00:08:59 #36832 [verbose] > │ │
00:08:59 #36833 [verbose] > │ │
00:08:59 #36834 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:59 #36835 [verbose] >
00:08:59 #36836 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:59 #36837 [verbose] > // // test
00:08:59 #36838 [verbose] >
00:08:59 #36839 [verbose] > 5 *^ vec 1 2 3
00:08:59 #36840 [verbose] > |> _assert_eq (vec 5 10 15)
00:08:59 #36841 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\0f1ae917a76bbe7f5135a7e2bbdb054e2bd9d550fd80e75345653d63dbbc2ec2\main.spi
00:08:59 #36842 [verbose] >
00:08:59 #36843 [verbose] > ╭─[ 267.88ms - stdout ]────────────────────────────────────────────────────────╮
00:08:59 #36844 [verbose] > │ let rec method0 () : unit = │
00:08:59 #36845 [verbose] > │ let v0 : string = $"%A{struct (5.0, 10.0, 15.0)}" │
00:08:59 #36846 [verbose] > │ System.Console.WriteLine v0 │
00:08:59 #36847 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 10.0, 15.0)} / │
00:08:59 #36848 [verbose] > │ expected: %A{struct (5.0, 10.0, 15.0)}" │
00:08:59 #36849 [verbose] > │ () │
00:08:59 #36850 [verbose] > │ method0() │
00:08:59 #36851 [verbose] > │ │
00:08:59 #36852 [verbose] > │ struct (5.0, 10.0, 15.0) │
00:08:59 #36853 [verbose] > │ │
00:08:59 #36854 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:59 #36855 [verbose] >
00:08:59 #36856 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:59 #36857 [verbose] > // // test
00:08:59 #36858 [verbose] >
00:08:59 #36859 [verbose] > 3 *^ i_hat () ^+^ 4 *^ k_hat ()
00:08:59 #36860 [verbose] > |> _assert_eq (vec 3 0 4)
00:08:59 #36861 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\548493a74b752b6677b0d1a3ab7fad656548d2c02f7629e9db61399e9bc12278\main.spi
00:08:59 #36862 [verbose] >
00:08:59 #36863 [verbose] > ╭─[ 279.83ms - stdout ]────────────────────────────────────────────────────────╮
00:08:59 #36864 [verbose] > │ let rec method0 () : unit = │
00:08:59 #36865 [verbose] > │ let v0 : string = $"%A{struct (3.0, 0.0, 4.0)}" │
00:08:59 #36866 [verbose] > │ System.Console.WriteLine v0 │
00:08:59 #36867 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (3.0, 0.0, 4.0)} / │
00:08:59 #36868 [verbose] > │ expected: %A{struct (3.0, 0.0, 4.0)}" │
00:08:59 #36869 [verbose] > │ () │
00:08:59 #36870 [verbose] > │ method0() │
00:08:59 #36871 [verbose] > │ │
00:08:59 #36872 [verbose] > │ struct (3.0, 0.0, 4.0) │
00:08:59 #36873 [verbose] > │ │
00:08:59 #36874 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:59 #36875 [verbose] >
00:08:59 #36876 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:08:59 #36877 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:08:59 #36878 [verbose] > │ ### ^* │
00:08:59 #36879 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:59 #36880 [verbose] >
00:08:59 #36881 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:59 #36882 [verbose] > inl (^*) v c =
00:08:59 #36883 [verbose] > (*^) c v
00:08:59 #36884 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f2705282a9dd8b0bb6b80c5d6c33563ec802f205ccfcea53e6fcecc892eb3632\main.spi
00:08:59 #36885 [verbose] >
00:08:59 #36886 [verbose] > ╭─[ 207.26ms - stdout ]────────────────────────────────────────────────────────╮
00:08:59 #36887 [verbose] > │ () │
00:08:59 #36888 [verbose] > │ │
00:08:59 #36889 [verbose] > │ │
00:08:59 #36890 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:08:59 #36891 [verbose] >
00:08:59 #36892 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:08:59 #36893 [verbose] > // // test
00:08:59 #36894 [verbose] >
00:08:59 #36895 [verbose] > vec 1 2 3 ^* 5
00:08:59 #36896 [verbose] > |> _assert_eq (vec 5 10 15)
00:08:59 #36897 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\966fe99f28aa701402adc0fbc0196bdc3de9cd51bad12cb0af9326b9c5003bff\main.spi
00:09:00 #36898 [verbose] >
00:09:00 #36899 [verbose] > ╭─[ 293.03ms - stdout ]────────────────────────────────────────────────────────╮
00:09:00 #36900 [verbose] > │ let rec method0 () : unit = │
00:09:00 #36901 [verbose] > │ let v0 : string = $"%A{struct (5.0, 10.0, 15.0)}" │
00:09:00 #36902 [verbose] > │ System.Console.WriteLine v0 │
00:09:00 #36903 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (5.0, 10.0, 15.0)} / │
00:09:00 #36904 [verbose] > │ expected: %A{struct (5.0, 10.0, 15.0)}" │
00:09:00 #36905 [verbose] > │ () │
00:09:00 #36906 [verbose] > │ method0() │
00:09:00 #36907 [verbose] > │ │
00:09:00 #36908 [verbose] > │ struct (5.0, 10.0, 15.0) │
00:09:00 #36909 [verbose] > │ │
00:09:00 #36910 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:00 #36911 [verbose] >
00:09:00 #36912 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:00 #36913 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:00 #36914 [verbose] > │ ### ^/ │
00:09:00 #36915 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:00 #36916 [verbose] >
00:09:00 #36917 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:00 #36918 [verbose] > inl (^/) { x y z } c =
00:09:00 #36919 [verbose] > vec (x / c) (y / c) (z / c)
00:09:00 #36920 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\50afd38d2e8556266a8ca846b008c929b0b71b9e987a04ac44f1d078a5c41ac0\main.spi
00:09:00 #36921 [verbose] >
00:09:00 #36922 [verbose] > ╭─[ 255.09ms - stdout ]────────────────────────────────────────────────────────╮
00:09:00 #36923 [verbose] > │ () │
00:09:00 #36924 [verbose] > │ │
00:09:00 #36925 [verbose] > │ │
00:09:00 #36926 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:00 #36927 [verbose] >
00:09:00 #36928 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:00 #36929 [verbose] > // // test
00:09:00 #36930 [verbose] >
00:09:00 #36931 [verbose] > vec 1 2 3 ^/ 5
00:09:00 #36932 [verbose] > |> _assert_eq (vec 0.2 0.4 0.6)
00:09:00 #36933 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4bc6f7b7165a783a415091e011b173e9124d123f4e7565ca071fac3a344ceee6\main.spi
00:09:00 #36934 [verbose] >
00:09:00 #36935 [verbose] > ╭─[ 279.33ms - stdout ]────────────────────────────────────────────────────────╮
00:09:00 #36936 [verbose] > │ let rec method0 () : unit = │
00:09:00 #36937 [verbose] > │ let v0 : string = $"%A{struct (0.2, 0.4, 0.6)}" │
00:09:00 #36938 [verbose] > │ System.Console.WriteLine v0 │
00:09:00 #36939 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (0.2, 0.4, 0.6)} / │
00:09:00 #36940 [verbose] > │ expected: %A{struct (0.2, 0.4, 0.6)}" │
00:09:00 #36941 [verbose] > │ () │
00:09:00 #36942 [verbose] > │ method0() │
00:09:00 #36943 [verbose] > │ │
00:09:00 #36944 [verbose] > │ struct (0.2, 0.4, 0.6) │
00:09:00 #36945 [verbose] > │ │
00:09:00 #36946 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:00 #36947 [verbose] >
00:09:00 #36948 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:00 #36949 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:00 #36950 [verbose] > │ ### negate_vec │
00:09:00 #36951 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:00 #36952 [verbose] >
00:09:00 #36953 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:00 #36954 [verbose] > inl negate_vec v =
00:09:00 #36955 [verbose] > v ^* -1
00:09:00 #36956 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8ba7ec44ade356759d3c7a8edd8377be35532483606275bee83bce44536efeb0\main.spi
00:09:00 #36957 [verbose] >
00:09:00 #36958 [verbose] > ╭─[ 245.68ms - stdout ]────────────────────────────────────────────────────────╮
00:09:00 #36959 [verbose] > │ () │
00:09:00 #36960 [verbose] > │ │
00:09:00 #36961 [verbose] > │ │
00:09:00 #36962 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:00 #36963 [verbose] >
00:09:00 #36964 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:00 #36965 [verbose] > // // test
00:09:00 #36966 [verbose] >
00:09:00 #36967 [verbose] > vec 1 2 3
00:09:00 #36968 [verbose] > |> negate_vec
00:09:00 #36969 [verbose] > |> _assert_eq (vec -1 -2 -3)
00:09:01 #36970 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8a0f1545b0f83a1009fdc0a035cecccb7d8ab02298120bc116e3e139a8f25a39\main.spi
00:09:01 #36971 [verbose] >
00:09:01 #36972 [verbose] > ╭─[ 262.32ms - stdout ]────────────────────────────────────────────────────────╮
00:09:01 #36973 [verbose] > │ let rec method0 () : unit = │
00:09:01 #36974 [verbose] > │ let v0 : string = $"%A{struct (-1.0, -2.0, -3.0)}" │
00:09:01 #36975 [verbose] > │ System.Console.WriteLine v0 │
00:09:01 #36976 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (-1.0, -2.0, -3.0)} / │
00:09:01 #36977 [verbose] > │ expected: %A{struct (-1.0, -2.0, -3.0)}" │
00:09:01 #36978 [verbose] > │ () │
00:09:01 #36979 [verbose] > │ method0() │
00:09:01 #36980 [verbose] > │ │
00:09:01 #36981 [verbose] > │ struct (-1.0, -2.0, -3.0) │
00:09:01 #36982 [verbose] > │ │
00:09:01 #36983 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:01 #36984 [verbose] >
00:09:01 #36985 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:01 #36986 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:01 #36987 [verbose] > │ ### ^-^ │
00:09:01 #36988 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:01 #36989 [verbose] >
00:09:01 #36990 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:01 #36991 [verbose] > inl (^-^) a b =
00:09:01 #36992 [verbose] > a ^+^ (negate_vec b)
00:09:01 #36993 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c732722ed06670a422c02a30556874a9cdf85330159398870e8dcb00058ba2f4\main.spi
00:09:01 #36994 [verbose] >
00:09:01 #36995 [verbose] > ╭─[ 264.91ms - stdout ]────────────────────────────────────────────────────────╮
00:09:01 #36996 [verbose] > │ () │
00:09:01 #36997 [verbose] > │ │
00:09:01 #36998 [verbose] > │ │
00:09:01 #36999 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:01 #37000 [verbose] >
00:09:01 #37001 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:01 #37002 [verbose] > // // test
00:09:01 #37003 [verbose] >
00:09:01 #37004 [verbose] > vec 1 2 3 ^-^ vec 4 5 6
00:09:01 #37005 [verbose] > |> _assert_eq (vec -3 -3 -3)
00:09:01 #37006 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3446c2b52f31454aa5ae7bdbbf29aa5dc6e7c1db0cd5b1d703ac3ec918635b14\main.spi
00:09:01 #37007 [verbose] >
00:09:01 #37008 [verbose] > ╭─[ 263.70ms - stdout ]────────────────────────────────────────────────────────╮
00:09:01 #37009 [verbose] > │ let rec method0 () : unit = │
00:09:01 #37010 [verbose] > │ let v0 : string = $"%A{struct (-3.0, -3.0, -3.0)}" │
00:09:01 #37011 [verbose] > │ System.Console.WriteLine v0 │
00:09:01 #37012 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (-3.0, -3.0, -3.0)} / │
00:09:01 #37013 [verbose] > │ expected: %A{struct (-3.0, -3.0, -3.0)}" │
00:09:01 #37014 [verbose] > │ () │
00:09:01 #37015 [verbose] > │ method0() │
00:09:01 #37016 [verbose] > │ │
00:09:01 #37017 [verbose] > │ struct (-3.0, -3.0, -3.0) │
00:09:01 #37018 [verbose] > │ │
00:09:01 #37019 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:01 #37020 [verbose] >
00:09:01 #37021 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:01 #37022 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:01 #37023 [verbose] > │ ### <.> │
00:09:01 #37024 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:01 #37025 [verbose] >
00:09:01 #37026 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:01 #37027 [verbose] > inl (<.>) { x = ax y = ay z = az } { x = bx y = by z = bz } =
00:09:01 #37028 [verbose] > ax * bx + ay * by + az * bz
00:09:01 #37029 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\52d772a3260e827ea2d68325b288a9119bd96d8bfe6e93cd48fb0f3b15350208\main.spi
00:09:01 #37030 [verbose] >
00:09:01 #37031 [verbose] > ╭─[ 198.05ms - stdout ]────────────────────────────────────────────────────────╮
00:09:01 #37032 [verbose] > │ () │
00:09:01 #37033 [verbose] > │ │
00:09:01 #37034 [verbose] > │ │
00:09:01 #37035 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:01 #37036 [verbose] >
00:09:01 #37037 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:01 #37038 [verbose] > // // test
00:09:01 #37039 [verbose] >
00:09:01 #37040 [verbose] > vec 1 2 3 <.> vec 4 5 6
00:09:01 #37041 [verbose] > |> _assert_eq 32
00:09:02 #37042 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\5cb5f9a53ee45f8d45db785c1281c4f9be7f30c954be991ebd61613e2fc9c8e1\main.spi
00:09:02 #37043 [verbose] >
00:09:02 #37044 [verbose] > ╭─[ 320.31ms - stdout ]────────────────────────────────────────────────────────╮
00:09:02 #37045 [verbose] > │ let rec method0 () : unit = │
00:09:02 #37046 [verbose] > │ let v0 : string = $"%A{32.0}" │
00:09:02 #37047 [verbose] > │ System.Console.WriteLine v0 │
00:09:02 #37048 [verbose] > │ let v1 : string = $"__expect / actual: %A{32.0} / expected: %A{32.0}" │
00:09:02 #37049 [verbose] > │ () │
00:09:02 #37050 [verbose] > │ method0() │
00:09:02 #37051 [verbose] > │ │
00:09:02 #37052 [verbose] > │ 32.0 │
00:09:02 #37053 [verbose] > │ │
00:09:02 #37054 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 #37055 [verbose] >
00:09:02 #37056 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:02 #37057 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:02 #37058 [verbose] > │ ### \>\< │
00:09:02 #37059 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 #37060 [verbose] >
00:09:02 #37061 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:02 #37062 [verbose] > inl (><) (a : vec) (b : vec) =
00:09:02 #37063 [verbose] > vec
00:09:02 #37064 [verbose] > (a.y * b.z - a.z * b.y)
00:09:02 #37065 [verbose] > (a.z * b.x - a.x * b.z)
00:09:02 #37066 [verbose] > (a.x * b.y - a.y * b.x)
00:09:02 #37067 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a5e61f90699377c6cd439c6f459ff614a7fc7601412a7063fb78b30a625d6641\main.spi
00:09:02 #37068 [verbose] >
00:09:02 #37069 [verbose] > ╭─[ 280.55ms - stdout ]────────────────────────────────────────────────────────╮
00:09:02 #37070 [verbose] > │ () │
00:09:02 #37071 [verbose] > │ │
00:09:02 #37072 [verbose] > │ │
00:09:02 #37073 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 #37074 [verbose] >
00:09:02 #37075 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:02 #37076 [verbose] > // // test
00:09:02 #37077 [verbose] >
00:09:02 #37078 [verbose] > vec 1 2 3 >< vec 4 5 6
00:09:02 #37079 [verbose] > |> _assert_eq (vec -3 6 -3)
00:09:02 #37080 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4faf695f8fa6a82d45f6adfbbfd0604aa0584b0579fa2ecf0f80b2f941af9012\main.spi
00:09:02 #37081 [verbose] >
00:09:02 #37082 [verbose] > ╭─[ 249.43ms - stdout ]────────────────────────────────────────────────────────╮
00:09:02 #37083 [verbose] > │ let rec method0 () : unit = │
00:09:02 #37084 [verbose] > │ let v0 : string = $"%A{struct (-3.0, 6.0, -3.0)}" │
00:09:02 #37085 [verbose] > │ System.Console.WriteLine v0 │
00:09:02 #37086 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (-3.0, 6.0, -3.0)} / │
00:09:02 #37087 [verbose] > │ expected: %A{struct (-3.0, 6.0, -3.0)}" │
00:09:02 #37088 [verbose] > │ () │
00:09:02 #37089 [verbose] > │ method0() │
00:09:02 #37090 [verbose] > │ │
00:09:02 #37091 [verbose] > │ struct (-3.0, 6.0, -3.0) │
00:09:02 #37092 [verbose] > │ │
00:09:02 #37093 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 #37094 [verbose] >
00:09:02 #37095 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:02 #37096 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:02 #37097 [verbose] > │ ### magnitude │
00:09:02 #37098 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:02 #37099 [verbose] >
00:09:02 #37100 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:02 #37101 [verbose] > inl magnitude v =
00:09:02 #37102 [verbose] > v <.> v |> sqrt
00:09:02 #37103 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a5ee51bd3b4825ba93a1b077ff4961438142d9da048abaa8d69e3a61c2d23059\main.spi
00:09:03 #37104 [verbose] >
00:09:03 #37105 [verbose] > ╭─[ 277.05ms - stdout ]────────────────────────────────────────────────────────╮
00:09:03 #37106 [verbose] > │ () │
00:09:03 #37107 [verbose] > │ │
00:09:03 #37108 [verbose] > │ │
00:09:03 #37109 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 #37110 [verbose] >
00:09:03 #37111 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:03 #37112 [verbose] > // // test
00:09:03 #37113 [verbose] >
00:09:03 #37114 [verbose] > vec 1 2 3
00:09:03 #37115 [verbose] > |> magnitude
00:09:03 #37116 [verbose] > |> _assert_approx_eq None 3.7416573867739413
00:09:03 #37117 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bc77b9c16c9aae76697855c1206917244bbd3df26f410e836c5f50e5cffac095\main.spi
00:09:03 #37118 [verbose] >
00:09:03 #37119 [verbose] > ╭─[ 272.32ms - stdout ]────────────────────────────────────────────────────────╮
00:09:03 #37120 [verbose] > │ let rec method0 () : unit = │
00:09:03 #37121 [verbose] > │ let v0 : string = $"%A{3.7416573867739413}" │
00:09:03 #37122 [verbose] > │ System.Console.WriteLine v0 │
00:09:03 #37123 [verbose] > │ let v1 : string = $"__expect / actual: %A{3.7416573867739413} / │
00:09:03 #37124 [verbose] > │ expected: %A{3.7416573867739413}" │
00:09:03 #37125 [verbose] > │ () │
00:09:03 #37126 [verbose] > │ method0() │
00:09:03 #37127 [verbose] > │ │
00:09:03 #37128 [verbose] > │ 3.741657387 │
00:09:03 #37129 [verbose] > │ │
00:09:03 #37130 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 #37131 [verbose] >
00:09:03 #37132 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:03 #37133 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:03 #37134 [verbose] > │ ### v1 │
00:09:03 #37135 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 #37136 [verbose] >
00:09:03 #37137 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:03 #37138 [verbose] > inl v1 t =
00:09:03 #37139 [verbose] > 2 *^ (t ** 2 *^ i_hat () ^+^ 3 *^ (t ** 3 *^ j_hat () ^+^ t ** 4 *^ k_hat
00:09:03 #37140 [verbose] > ()))
00:09:03 #37141 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\3bdcea2559adc47304c47571116ccb8e71c6e145cb79eecdab28e093462dc5a1\main.spi
00:09:03 #37142 [verbose] >
00:09:03 #37143 [verbose] > ╭─[ 432.38ms - stdout ]────────────────────────────────────────────────────────╮
00:09:03 #37144 [verbose] > │ () │
00:09:03 #37145 [verbose] > │ │
00:09:03 #37146 [verbose] > │ │
00:09:03 #37147 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:03 #37148 [verbose] >
00:09:03 #37149 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:03 #37150 [verbose] > // // test
00:09:03 #37151 [verbose] >
00:09:03 #37152 [verbose] > v1 1
00:09:03 #37153 [verbose] > |> _assert_eq (vec 2 6 6)
00:09:03 #37154 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a6269b466164e66b00544a5d424106d727e9daf61440c349ec8a9627b5c648b5\main.spi
00:09:04 #37155 [verbose] >
00:09:04 #37156 [verbose] > ╭─[ 251.94ms - stdout ]────────────────────────────────────────────────────────╮
00:09:04 #37157 [verbose] > │ let rec method0 () : unit = │
00:09:04 #37158 [verbose] > │ let v0 : string = $"%A{struct (2.0, 6.0, 6.0)}" │
00:09:04 #37159 [verbose] > │ System.Console.WriteLine v0 │
00:09:04 #37160 [verbose] > │ let v1 : string = $"__expect / actual: %A{struct (2.0, 6.0, 6.0)} / │
00:09:04 #37161 [verbose] > │ expected: %A{struct (2.0, 6.0, 6.0)}" │
00:09:04 #37162 [verbose] > │ () │
00:09:04 #37163 [verbose] > │ method0() │
00:09:04 #37164 [verbose] > │ │
00:09:04 #37165 [verbose] > │ struct (2.0, 6.0, 6.0) │
00:09:04 #37166 [verbose] > │ │
00:09:04 #37167 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 #37168 [verbose] >
00:09:04 #37169 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:04 #37170 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:04 #37171 [verbose] > │ ### vec_derivative │
00:09:04 #37172 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 #37173 [verbose] >
00:09:04 #37174 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:04 #37175 [verbose] > type vec_derivative = (f64 -> vec) -> f64 -> vec
00:09:04 #37176 [verbose] >
00:09:04 #37177 [verbose] > inl vec_derivative dt : vec_derivative =
00:09:04 #37178 [verbose] > fun v t =>
00:09:04 #37179 [verbose] > (v (t + dt / 2) ^-^ v (t - dt / 2)) ^/ dt
00:09:04 #37180 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b6600abb173c8827e778123471b70245424004725195db0a3d939ab500d5eddf\main.spi
00:09:04 #37181 [verbose] >
00:09:04 #37182 [verbose] > ╭─[ 255.97ms - stdout ]────────────────────────────────────────────────────────╮
00:09:04 #37183 [verbose] > │ () │
00:09:04 #37184 [verbose] > │ │
00:09:04 #37185 [verbose] > │ │
00:09:04 #37186 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 #37187 [verbose] >
00:09:04 #37188 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:04 #37189 [verbose] > // // test
00:09:04 #37190 [verbose] >
00:09:04 #37191 [verbose] > vec_derivative 0.01 v1 3 .x
00:09:04 #37192 [verbose] > |> _assert_approx_eq None (derivative 0.01 (v1 >> fun v => v.x) 3)
00:09:04 #37193 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\4b40c81929f4b19c0a206e9734354f645ae343f882b132d49c98dfc26981b41b\main.spi
00:09:04 #37194 [verbose] >
00:09:04 #37195 [verbose] > ╭─[ 233.85ms - stdout ]────────────────────────────────────────────────────────╮
00:09:04 #37196 [verbose] > │ let rec method0 () : unit = │
00:09:04 #37197 [verbose] > │ let v0 : string = $"%A{11.999999999999744}" │
00:09:04 #37198 [verbose] > │ System.Console.WriteLine v0 │
00:09:04 #37199 [verbose] > │ let v1 : string = $"__expect / actual: %A{11.999999999999744} / │
00:09:04 #37200 [verbose] > │ expected: %A{11.999999999999744}" │
00:09:04 #37201 [verbose] > │ () │
00:09:04 #37202 [verbose] > │ method0() │
00:09:04 #37203 [verbose] > │ │
00:09:04 #37204 [verbose] > │ 12.0 │
00:09:04 #37205 [verbose] > │ │
00:09:04 #37206 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 #37207 [verbose] >
00:09:04 #37208 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:04 #37209 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:04 #37210 [verbose] > │ ## states_ps │
00:09:04 #37211 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 #37212 [verbose] >
00:09:04 #37213 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:04 #37214 [verbose] > nominal particle_state =
00:09:04 #37215 [verbose] > {
00:09:04 #37216 [verbose] > mass : f64
00:09:04 #37217 [verbose] > charge : f64
00:09:04 #37218 [verbose] > time : f64
00:09:04 #37219 [verbose] > pos_vec : vec
00:09:04 #37220 [verbose] > velocity : vec
00:09:04 #37221 [verbose] > }
00:09:04 #37222 [verbose] >
00:09:04 #37223 [verbose] > inl default_particle_state () : particle_state =
00:09:04 #37224 [verbose] > particle_state {
00:09:04 #37225 [verbose] > mass = 1
00:09:04 #37226 [verbose] > charge = 0
00:09:04 #37227 [verbose] > time = 0
00:09:04 #37228 [verbose] > pos_vec = zero_vec ()
00:09:04 #37229 [verbose] > velocity = zero_vec ()
00:09:04 #37230 [verbose] > }
00:09:04 #37231 [verbose] >
00:09:04 #37232 [verbose] > type one_body_force = particle_state -> vec
00:09:04 #37233 [verbose] >
00:09:04 #37234 [verbose] > nominal d_particle_state =
00:09:04 #37235 [verbose] > {
00:09:04 #37236 [verbose] > dmdt : f64
00:09:04 #37237 [verbose] > dqdt : f64
00:09:04 #37238 [verbose] > dtdt : f64
00:09:04 #37239 [verbose] > drdt : vec
00:09:04 #37240 [verbose] > dvdt : vec
00:09:04 #37241 [verbose] > }
00:09:04 #37242 [verbose] >
00:09:04 #37243 [verbose] > inl newton_second_ps (fs : list one_body_force) (st : particle_state) :
00:09:04 #37244 [verbose] > d_particle_state =
00:09:04 #37245 [verbose] > inl f_net = fs |> listm.map (fun f => f st) |> sum_vec
00:09:04 #37246 [verbose] > d_particle_state {
00:09:04 #37247 [verbose] > dmdt = 0
00:09:04 #37248 [verbose] > dqdt = 0
00:09:04 #37249 [verbose] > dtdt = 1
00:09:04 #37250 [verbose] > drdt = st.velocity
00:09:04 #37251 [verbose] > dvdt = f_net ^/ st.mass
00:09:04 #37252 [verbose] > }
00:09:04 #37253 [verbose] >
00:09:04 #37254 [verbose] > inl earth_surface_gravity (st : particle_state) =
00:09:04 #37255 [verbose] > inl g = 9.80665
00:09:04 #37256 [verbose] > -st.mass * g *^ k_hat ()
00:09:04 #37257 [verbose] >
00:09:04 #37258 [verbose] > inl air_resistance drag rho area (st : particle_state) =
00:09:04 #37259 [verbose] > -0.5 * drag * rho * area * magnitude st.velocity *^ st.velocity
00:09:04 #37260 [verbose] >
00:09:04 #37261 [verbose] > inl euler_cromer_ps dt (deriv : particle_state -> d_particle_state)
00:09:04 #37262 [verbose] > (particle_state st) =
00:09:04 #37263 [verbose] > inl dst : d_particle_state = deriv (particle_state st)
00:09:04 #37264 [verbose] > inl v' = st.velocity ^+^ dst.dvdt ^* dt
00:09:04 #37265 [verbose] > particle_state { st with
00:09:04 #37266 [verbose] > time = st.time + dt
00:09:04 #37267 [verbose] > pos_vec = st.pos_vec ^+^ v' ^* dt
00:09:04 #37268 [verbose] > velocity = st.velocity ^+^ dst.dvdt ^* dt
00:09:04 #37269 [verbose] > }
00:09:04 #37270 [verbose] >
00:09:04 #37271 [verbose] > instance (+++) d_particle_state = fun (dps : d_particle_state) (dps' :
00:09:04 #37272 [verbose] > d_particle_state) =>
00:09:04 #37273 [verbose] > d_particle_state {
00:09:04 #37274 [verbose] > dmdt = dps.dmdt + dps'.dmdt
00:09:04 #37275 [verbose] > dqdt = dps.dqdt + dps'.dqdt
00:09:04 #37276 [verbose] > dtdt = dps.dtdt + dps'.dtdt
00:09:04 #37277 [verbose] > drdt = dps.drdt ^+^ dps'.drdt
00:09:04 #37278 [verbose] > dvdt = dps.dvdt ^+^ dps'.dvdt
00:09:04 #37279 [verbose] > }
00:09:04 #37280 [verbose] >
00:09:04 #37281 [verbose] > instance scale d_particle_state = fun w (dps : d_particle_state) =>
00:09:04 #37282 [verbose] > d_particle_state {
00:09:04 #37283 [verbose] > dmdt = w * dps.dmdt
00:09:04 #37284 [verbose] > dqdt = w * dps.dqdt
00:09:04 #37285 [verbose] > dtdt = w * dps.dtdt
00:09:04 #37286 [verbose] > drdt = w *^ dps.drdt
00:09:04 #37287 [verbose] > dvdt = w *^ dps.dvdt
00:09:04 #37288 [verbose] > }
00:09:04 #37289 [verbose] >
00:09:04 #37290 [verbose] > instance shift particle_state = fun dt dps (particle_state st) =>
00:09:04 #37291 [verbose] > inl (d_particle_state dps) =
00:09:04 #37292 [verbose] > real
00:09:04 #37293 [verbose] > match dps with
00:09:04 #37294 [verbose] > | d_particle_state _ => dps
00:09:04 #37295 [verbose] > particle_state { st with
00:09:04 #37296 [verbose] > time = st.time + dps.dtdt * dt
00:09:04 #37297 [verbose] > pos_vec = st.pos_vec ^+^ dps.drdt ^* dt
00:09:04 #37298 [verbose] > velocity = st.velocity ^+^ dps.dvdt ^* dt
00:09:04 #37299 [verbose] > }
00:09:04 #37300 [verbose] >
00:09:04 #37301 [verbose] > inl states_ps (method : numerical_method particle_state d_particle_state) : _ ->
00:09:04 #37302 [verbose] > _ -> i32 -> particle_state =
00:09:04 #37303 [verbose] > newton_second_ps >> method >> seq.iterate_
00:09:04 #37304 [verbose] >
00:09:04 #37305 [verbose] > inl z_ge0 sts =
00:09:04 #37306 [verbose] > sts
00:09:04 #37307 [verbose] > |> seq.take_while_ (fun (particle_state st) _ => st.pos_vec.z >= 0)
00:09:04 #37308 [verbose] >
00:09:04 #37309 [verbose] > inl trajectory sts =
00:09:04 #37310 [verbose] > sts |> listm.map (fun (particle_state st) => st.pos_vec.y, st.pos_vec.z)
00:09:04 #37311 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cf19d0076e60db8574ef2fba498a50eabd9d0754b19e7398362265e7955877fd\main.spi
00:09:04 #37312 [verbose] >
00:09:04 #37313 [verbose] > ╭─[ 219.91ms - stdout ]────────────────────────────────────────────────────────╮
00:09:04 #37314 [verbose] > │ () │
00:09:04 #37315 [verbose] > │ │
00:09:04 #37316 [verbose] > │ │
00:09:04 #37317 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:04 #37318 [verbose] >
00:09:04 #37319 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:04 #37320 [verbose] > // // test
00:09:04 #37321 [verbose] >
00:09:04 #37322 [verbose] > inl update_ps (method : numerical_method particle_state d_particle_state) =
00:09:04 #37323 [verbose] > newton_second_ps >> method
00:09:04 #37324 [verbose] >
00:09:04 #37325 [verbose] > inl position_ps (method : numerical_method particle_state d_particle_state) fs
00:09:04 #37326 [verbose] > st t =
00:09:04 #37327 [verbose] > inl states : i32 -> particle_state = states_ps method fs st
00:09:04 #37328 [verbose] > inl dt = (states 1).time - (states 0).time
00:09:04 #37329 [verbose] > inl num_steps = t / dt |> math.round |> abs
00:09:04 #37330 [verbose] > inl st1 = solver' method (newton_second_ps fs) st num_steps
00:09:04 #37331 [verbose] > st1.pos_vec
00:09:04 #37332 [verbose] >
00:09:04 #37333 [verbose] > inl sun_gravity (st : particle_state) : vec =
00:09:04 #37334 [verbose] > inl big_g = 0.0000000000667408
00:09:04 #37335 [verbose] > inl sun_mass = 1988480000000000000000000000000
00:09:04 #37336 [verbose] > -big_g * sun_mass * st.mass *^ st.pos_vec ^/ magnitude st.pos_vec ** 3
00:09:04 #37337 [verbose] >
00:09:04 #37338 [verbose] > inl wind_force v_wind drag rho area (st : particle_state) =
00:09:04 #37339 [verbose] > inl v_rel = st.velocity ^-^ v_wind
00:09:04 #37340 [verbose] > -0.5 * drag * rho * area * magnitude v_rel *^ v_rel
00:09:04 #37341 [verbose] >
00:09:04 #37342 [verbose] > inl rock_state () =
00:09:04 #37343 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:09:04 #37344 [verbose] > particle_state { default_particle_state' with
00:09:04 #37345 [verbose] > mass = 2
00:09:04 #37346 [verbose] > velocity = vec 3 0 4
00:09:04 #37347 [verbose] > }
00:09:04 #37348 [verbose] >
00:09:04 #37349 [verbose] > inl halley_update dt =
00:09:04 #37350 [verbose] > update_ps (euler_cromer_ps dt) [[ sun_gravity ]]
00:09:04 #37351 [verbose] >
00:09:04 #37352 [verbose] > inl halley_initial () =
00:09:04 #37353 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:09:04 #37354 [verbose] > particle_state { default_particle_state' with
00:09:04 #37355 [verbose] > mass = 220000000000000
00:09:04 #37356 [verbose] > pos_vec = 87660000000 *^ i_hat ()
00:09:04 #37357 [verbose] > velocity = 54569 *^ j_hat ()
00:09:04 #37358 [verbose] > }
00:09:04 #37359 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2592fde8250f260a3c89ded60b67224644460a61f32f59fd0cc6387aef87af7c\main.spi
00:09:05 #37360 [verbose] >
00:09:05 #37361 [verbose] > ╭─[ 466.59ms - stdout ]────────────────────────────────────────────────────────╮
00:09:05 #37362 [verbose] > │ () │
00:09:05 #37363 [verbose] > │ │
00:09:05 #37364 [verbose] > │ │
00:09:05 #37365 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:05 #37366 [verbose] >
00:09:05 #37367 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:05 #37368 [verbose] > // // test
00:09:05 #37369 [verbose] >
00:09:05 #37370 [verbose] > inl baseball_forces () =
00:09:05 #37371 [verbose] > inl area = pi * (0.074 / 2) ** 2
00:09:05 #37372 [verbose] > [[
00:09:05 #37373 [verbose] > earth_surface_gravity
00:09:05 #37374 [verbose] > air_resistance 0.3 1.225 area
00:09:05 #37375 [verbose] > ]]
00:09:05 #37376 [verbose] >
00:09:05 #37377 [verbose] > inl baseball_trajectory dt v0 theta_deg =
00:09:05 #37378 [verbose] > inl theta_rad = theta_deg * pi / 180
00:09:05 #37379 [verbose] > inl vy0 = v0 * cos theta_rad
00:09:05 #37380 [verbose] > inl vz0 = v0 * sin theta_rad
00:09:05 #37381 [verbose] > inl initial_state =
00:09:05 #37382 [verbose] > particle_state {
00:09:05 #37383 [verbose] > mass = 0.145
00:09:05 #37384 [verbose] > charge = 0
00:09:05 #37385 [verbose] > time = 0
00:09:05 #37386 [verbose] > pos_vec = zero_vec ()
00:09:05 #37387 [verbose] > velocity = vec 0 vy0 vz0
00:09:05 #37388 [verbose] > }
00:09:05 #37389 [verbose] > states_ps (euler_cromer_ps dt) (baseball_forces ()) initial_state
00:09:05 #37390 [verbose] > >> Some
00:09:05 #37391 [verbose] > |> z_ge0
00:09:05 #37392 [verbose] > |> trajectory
00:09:05 #37393 [verbose] >
00:09:05 #37394 [verbose] > inl baseball_range dt v0 theta_deg =
00:09:05 #37395 [verbose] > baseball_trajectory dt v0 theta_deg
00:09:05 #37396 [verbose] > |> listm.fold (fun _ (y, _) => y) 0
00:09:05 #37397 [verbose] >
00:09:05 #37398 [verbose] > inl x : a _ f64 = am'.init_series 10 80 1
00:09:05 #37399 [verbose] > inl y = x |> am.map (baseball_range 0.01 45)
00:09:05 #37400 [verbose] > "range for a baseball hit at 45 m/s",
00:09:05 #37401 [verbose] > "angle above horizontal (degrees)",
00:09:05 #37402 [verbose] > "",
00:09:05 #37403 [verbose] > ;[[ "horizontal range (m)", x, y ]]
00:09:05 #37404 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8d07a968f72d011a6ea3536d1c85fd8ae878efce3c92f1e2a9d85ba80bc560a0\main.spi
00:09:06 #37405 [verbose] >
00:09:06 #37406 [verbose] > ╭─[ 971.84ms - return value ]──────────────────────────────────────────────────╮
00:09:06 #37407 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:09:06 #37408 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:09:06 #37409 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:09:06 #37410 [verbose] > │ stroke="none"/> │
00:09:06 #37411 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:09:06 #37412 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:09:06 #37413 [verbose] > │ fill="#FFFFFF"> │
00:09:06 #37414 [verbose] > │ range for a baseball hit at 45 m/s │
00:09:06 #37415 [verbose] > │ </text> │
00:09:06 #37416 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="55" y1="424" x2="55" │
00:09:06 #37417 [verbose] > │ y2="75"/> │
00:09:06 #37418 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:09:06 #37419 [verbose] > │ y2="75"/> │
00:09:06 #37420 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:09:06 #37421 [verbose] > │ y2="75"/> │
00:09:06 #37422 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:09:06 #37423 [verbose] > │ y2="75"/> │
00:09:06 #37424 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="... │
00:09:06 #37425 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:06 #37426 [verbose] >
00:09:06 #37427 [verbose] > ╭─[ 986.43ms - stdout ]────────────────────────────────────────────────────────╮
00:09:06 #37428 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:09:06 #37429 [verbose] > │ and UH0 = │
00:09:06 #37430 [verbose] > │ | UH0_0 │
00:09:06 #37431 [verbose] > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:09:06 #37432 [verbose] > │ * float * UH0 │
00:09:06 #37433 [verbose] > │ and UH1 = │
00:09:06 #37434 [verbose] > │ | UH1_0 │
00:09:06 #37435 [verbose] > │ | UH1_1 of float * float * UH1 │
00:09:06 #37436 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:09:06 #37437 [verbose] > │ let v1 : int32 = v0.l0 │
00:09:06 #37438 [verbose] > │ let v2 : bool = v1 < 71 │
00:09:06 #37439 [verbose] > │ v2 │
00:09:06 #37440 [verbose] > │ and method2 (v0 : int32, v1 : Mut0) : bool = │
00:09:06 #37441 [verbose] > │ let v2 : int32 = v1.l0 │
00:09:06 #37442 [verbose] > │ let v3 : bool = v2 < v0 │
00:09:06 #37443 [verbose] > │ v3 │
00:09:06 #37444 [verbose] > │ and method4 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, v5 │
00:09:06 #37445 [verbose] > │ : float, v6 : float, v7 : float, v8 : float, v9 : int32) : struct (float * │
00:09:06 #37446 [verbose] > │ float * float * float * float * float * float * float * float) = │
00:09:06 #37447 [verbose] > │ let v10 : bool = v9 <= 0 │
00:09:06 #37448 [verbose] > │ if v10 then │
00:09:06 #37449 [verbose] > │ struct (v0, v1, v2, v3, v4, v5, v6, v7, v8) │
00:09:06 #37450 [verbose] > │ else │
00:09:06 #37451 [verbose] > │ let v11 : float = v6 * v6 │
00:09:06 #37452 [verbose] > │ let v12 : float = v7 * v7 │
00:09:06 #37453 [verbose] > │ let v13 : float = v11 + v12 │
00:09:06 #37454 [verbose] > │ let v14 : float = v8 * v8 │
00:09:06 #37455 [verbose] > │ let v15 : float = v13 + v14 │
00:09:06 #37456 [verbose] > │ let v16 : float = sqrt v15 │
00:09:06 #37457 [verbose] > │ let v17 : float = -0.0007902794129829633 * v16 │
00:09:06 #37458 [verbose] > │ let v18 : float = v17 * v6 │
00:09:06 #37459 [verbose] > │ let v19 : float = v17 * v7 │
00:09:06 #37460 [verbose] > │ let v20 : float = v17 * v8 │
00:09:06 #37461 [verbose] > │ let v21 : float = -v1 │
00:09:06 #37462 [verbose] > │ let v22 : float = v21 * 9.80665 │
00:09:06 #37463 [verbose] > │ let v23 : float = v22 * 0.0 │
00:09:06 #37464 [verbose] > │ let v24 : float = v23 + v18 │
00:09:06 #37465 [verbose] > │ let v25 : float = v23 + v19 │
00:09:06 #37466 [verbose] > │ let v26 : float = v22 + v20 │
00:09:06 #37467 [verbose] > │ let v27 : float = v24 / v1 │
00:09:06 #37468 [verbose] > │ let v28 : float = v25 / v1 │
00:09:06 #37469 [verbose] > │ let v29 : float = v26 / v1 │
00:09:06 #37470 [verbose] > │ let v30 : float = 0.01 * v27 │
00:09:06 #37471 [verbose] > │ let v31 : float = 0.01 * v28 │
00:09:06 #37472 [verbose] > │ let v32 : float = 0.01 * v29 │
00:09:06 #37473 [verbose] > │ let v33 : float = v6 + v30 │
00:09:06 #37474 [verbose] > │ let v34 : float = v7 + v31 │
00:09:06 #37475 [verbose] > │ let v35 : float = v8 + v32 │
00:09:06 #37476 [verbose] > │ let v36 : float = v5 + 0.01 │
00:09:06 #37477 [verbose] > │ let v37 : float = 0.01 * v33 │
00:09:06 #37478 [verbose] > │ let v38 : float = 0.01 * v34 │
00:09:06 #37479 [verbose] > │ let v39 : float = 0.01 * v35 │
00:09:06 #37480 [verbose] > │ let v40 : float = v2 + v37 │
00:09:06 #37481 [verbose] > │ let v41 : float = v3 + v38 │
00:09:06 #37482 [verbose] > │ let v42 : float = v4 + v39 │
00:09:06 #37483 [verbose] > │ let v43 : int32 = v9 - 1 │
00:09:06 #37484 [verbose] > │ method4(v0, v1, v40, v41, v42, v36, v33, v34, v35, v43) │
00:09:06 #37485 [verbose] > │ and method5 (v0 : UH0, v1 : UH0) : UH0 = │
00:09:06 #37486 [verbose] > │ match v0 with │
00:09:06 #37487 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:06 #37488 [verbose] > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:09:06 #37489 [verbose] > │ method5(v11, v12) │
00:09:06 #37490 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:06 #37491 [verbose] > │ v1 │
00:09:06 #37492 [verbose] > │ and method3 (v0 : float, v1 : float, v2 : UH0, v3 : int32) : UH0 = │
00:09:06 #37493 [verbose] > │ let v4 : float = 0.0 │
00:09:06 #37494 [verbose] > │ let v5 : float = 0.145 │
00:09:06 #37495 [verbose] > │ let v6 : float = 0.0 │
00:09:06 #37496 [verbose] > │ let v7 : float = 0.0 │
00:09:06 #37497 [verbose] > │ let v8 : float = 0.0 │
00:09:06 #37498 [verbose] > │ let v9 : float = 0.0 │
00:09:06 #37499 [verbose] > │ let v10 : float = 0.0 │
00:09:06 #37500 [verbose] > │ let struct (v11 : float, v12 : float, v13 : float, v14 : float, v15 : │
00:09:06 #37501 [verbose] > │ float, v16 : float, v17 : float, v18 : float, v19 : float) = method4(v4, v5, │
00:09:06 #37502 [verbose] > │ v6, v7, v8, v9, v10, v0, v1, v3) │
00:09:06 #37503 [verbose] > │ let v20 : bool = v15 >= 0.0 │
00:09:06 #37504 [verbose] > │ if v20 then │
00:09:06 #37505 [verbose] > │ let v21 : UH0 = UH0_1(v11, v12, v13, v14, v15, v16, v17, v18, v19, │
00:09:06 #37506 [verbose] > │ v2) │
00:09:06 #37507 [verbose] > │ let v22 : int32 = v3 + 1 │
00:09:06 #37508 [verbose] > │ method3(v0, v1, v21, v22) │
00:09:06 #37509 [verbose] > │ else │
00:09:06 #37510 [verbose] > │ let v24 : UH0 = UH0_0 │
00:09:06 #37511 [verbose] > │ method5(v2, v24) │
00:09:06 #37512 [verbose] > │ and method6 (v0 : UH0, v1 : UH1) : UH1 = │
00:09:06 #37513 [verbose] > │ match v0 with │
00:09:06 #37514 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:06 #37515 [verbose] > │ let v12 : UH1 = method6(v11, v1) │
00:09:06 #37516 [verbose] > │ UH1_1(v5, v6, v12) │
00:09:06 #37517 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:06 #37518 [verbose] > │ v1 │
00:09:06 #37519 [verbose] > │ and method7 (v0 : UH1, v1 : float) : float = │
00:09:06 #37520 [verbose] > │ match v0 with │
00:09:06 #37521 [verbose] > │ | UH1_1(v2, v3, v4) -> (* Cons *) │
00:09:06 #37522 [verbose] > │ method7(v4, v2) │
00:09:06 #37523 [verbose] > │ | UH1_0 -> (* Nil *) │
00:09:06 #37524 [verbose] > │ v1 │
00:09:06 #37525 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:09:06 #37526 [verbose] > │ []) * (float [])) [])) = │
00:09:06 #37527 [verbose] > │ let v0 : (float []) = Array.zeroCreate<float> (71) │
00:09:06 #37528 [verbose] > │ let v1 : Mut0 = {l0 = 0} : Mut0 │
00:09:06 #37529 [verbose] > │ while method1(v1) do │
00:09:06 #37530 [verbose] > │ let v3 : int32 = v1.l0 │
00:09:06 #37531 [verbose] > │ let v4 : float = float v3 │
00:09:06 #37532 [verbose] > │ let v5 : float = 10.0 + v4 │
00:09:06 #37533 [verbose] > │ v0.[int v3] <- v5 │
00:09:06 #37534 [verbose] > │ let v6 : int32 = v3 + 1 │
00:09:06 #37535 [verbose] > │ v1.l0 <- v6 │
00:09:06 #37536 [verbose] > │ () │
00:09:06 #37537 [verbose] > │ let v7 : int32 = v0.Length │
00:09:06 #37538 [verbose] > │ let v8 : (float []) = Array.zeroCreate<float> (v7) │
00:09:06 #37539 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:09:06 #37540 [verbose] > │ while method2(v7, v9) do │
00:09:06 #37541 [verbose] > │ let v11 : int32 = v9.l0 │
00:09:06 #37542 [verbose] > │ let v12 : float = v0.[int v11] │
00:09:06 #37543 [verbose] > │ let v13 : float = v12 * 3.141592653589793 │
00:09:06 #37544 [verbose] > │ let v14 : float = v13 / 180.0 │
00:09:06 #37545 [verbose] > │ let v15 : float = cos v14 │
00:09:06 #37546 [verbose] > │ let v16 : float = 45.0 * v15 │
00:09:06 #37547 [verbose] > │ let v17 : float = sin v14 │
00:09:06 #37548 [verbose] > │ let v18 : float = 45.0 * v17 │
00:09:06 #37549 [verbose] > │ let v19 : UH0 = UH0_0 │
00:09:06 #37550 [verbose] > │ let v20 : int32 = 0 │
00:09:06 #37551 [verbose] > │ let v21 : UH0 = method3(v16, v18, v19, v20) │
00:09:06 #37552 [verbose] > │ let v22 : UH1 = UH1_0 │
00:09:06 #37553 [verbose] > │ let v23 : UH1 = method6(v21, v22) │
00:09:06 #37554 [verbose] > │ let v24 : float = 0.0 │
00:09:06 #37555 [verbose] > │ let v25 : float = method7(v23, v24) │
00:09:06 #37556 [verbose] > │ v8.[int v11] <- v25 │
00:09:06 #37557 [verbose] > │ let v26 : int32 = v11 + 1 │
00:09:06 #37558 [verbose] > │ v9.l0 <- v26 │
00:09:06 #37559 [verbose] > │ () │
00:09:06 #37560 [verbose] > │ let v27 : string = "horizontal range (m)" │
00:09:06 #37561 [verbose] > │ let v28 : (struct (string * (float []) * (float [])) []) = [|struct │
00:09:06 #37562 [verbose] > │ (v27, v0, v8)|] │
00:09:06 #37563 [verbose] > │ let v29 : string = "range for a baseball hit at 45 m/s" │
00:09:06 #37564 [verbose] > │ let v30 : string = "angle above horizontal (degrees)" │
00:09:06 #37565 [verbose] > │ let v31 : string = "" │
00:09:06 #37566 [verbose] > │ struct (v29, v30, v31, v28) │
00:09:06 #37567 [verbose] > │ method0() │
00:09:06 #37568 [verbose] > │ │
00:09:06 #37569 [verbose] > │ │
00:09:06 #37570 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:06 #37571 [verbose] >
00:09:06 #37572 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:06 #37573 [verbose] > // // test
00:09:06 #37574 [verbose] >
00:09:06 #37575 [verbose] > inl best_angle (min, max) =
00:09:06 #37576 [verbose] > let rec loop theta_deg (best_range, best_theta_deg) =
00:09:06 #37577 [verbose] > if theta_deg > max
00:09:06 #37578 [verbose] > then best_range, best_theta_deg
00:09:06 #37579 [verbose] > else
00:09:06 #37580 [verbose] > inl range = baseball_range 0.01 45 theta_deg
00:09:06 #37581 [verbose] > loop
00:09:06 #37582 [verbose] > (theta_deg + 1)
00:09:06 #37583 [verbose] > (if range > best_range
00:09:06 #37584 [verbose] > then range, theta_deg
00:09:06 #37585 [verbose] > else best_range, best_theta_deg)
00:09:06 #37586 [verbose] > loop min (0f64, min)
00:09:06 #37587 [verbose] >
00:09:06 #37588 [verbose] > best_angle (30f64, 60f64)
00:09:06 #37589 [verbose] > |> _assert_eq (116.77499158246208, 41)
00:09:06 #37590 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\bc68087efbfbb05400079955b8bb0609cbb864bbb87e8869387561adf0b942cc\main.spi
00:09:06 #37591 [verbose] >
00:09:06 #37592 [verbose] > ╭─[ 581.82ms - stdout ]────────────────────────────────────────────────────────╮
00:09:06 #37593 [verbose] > │ type UH0 = │
00:09:06 #37594 [verbose] > │ | UH0_0 │
00:09:06 #37595 [verbose] > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:09:06 #37596 [verbose] > │ * float * UH0 │
00:09:06 #37597 [verbose] > │ and UH1 = │
00:09:06 #37598 [verbose] > │ | UH1_0 │
00:09:06 #37599 [verbose] > │ | UH1_1 of float * float * UH1 │
00:09:06 #37600 [verbose] > │ let rec method3 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, │
00:09:06 #37601 [verbose] > │ v5 : float, v6 : float, v7 : float, v8 : float, v9 : int32) : struct (float │
00:09:06 #37602 [verbose] > │ * float * float * float * float * float * float * float * float) = │
00:09:06 #37603 [verbose] > │ let v10 : bool = v9 <= 0 │
00:09:06 #37604 [verbose] > │ if v10 then │
00:09:06 #37605 [verbose] > │ struct (v0, v1, v2, v3, v4, v5, v6, v7, v8) │
00:09:06 #37606 [verbose] > │ else │
00:09:06 #37607 [verbose] > │ let v11 : float = v6 * v6 │
00:09:06 #37608 [verbose] > │ let v12 : float = v7 * v7 │
00:09:06 #37609 [verbose] > │ let v13 : float = v11 + v12 │
00:09:06 #37610 [verbose] > │ let v14 : float = v8 * v8 │
00:09:06 #37611 [verbose] > │ let v15 : float = v13 + v14 │
00:09:06 #37612 [verbose] > │ let v16 : float = sqrt v15 │
00:09:06 #37613 [verbose] > │ let v17 : float = -0.0007902794129829633 * v16 │
00:09:06 #37614 [verbose] > │ let v18 : float = v17 * v6 │
00:09:06 #37615 [verbose] > │ let v19 : float = v17 * v7 │
00:09:06 #37616 [verbose] > │ let v20 : float = v17 * v8 │
00:09:06 #37617 [verbose] > │ let v21 : float = -v1 │
00:09:06 #37618 [verbose] > │ let v22 : float = v21 * 9.80665 │
00:09:06 #37619 [verbose] > │ let v23 : float = v22 * 0.0 │
00:09:06 #37620 [verbose] > │ let v24 : float = v23 + v18 │
00:09:06 #37621 [verbose] > │ let v25 : float = v23 + v19 │
00:09:06 #37622 [verbose] > │ let v26 : float = v22 + v20 │
00:09:06 #37623 [verbose] > │ let v27 : float = v24 / v1 │
00:09:06 #37624 [verbose] > │ let v28 : float = v25 / v1 │
00:09:06 #37625 [verbose] > │ let v29 : float = v26 / v1 │
00:09:06 #37626 [verbose] > │ let v30 : float = 0.01 * v27 │
00:09:06 #37627 [verbose] > │ let v31 : float = 0.01 * v28 │
00:09:06 #37628 [verbose] > │ let v32 : float = 0.01 * v29 │
00:09:06 #37629 [verbose] > │ let v33 : float = v6 + v30 │
00:09:06 #37630 [verbose] > │ let v34 : float = v7 + v31 │
00:09:06 #37631 [verbose] > │ let v35 : float = v8 + v32 │
00:09:06 #37632 [verbose] > │ let v36 : float = v5 + 0.01 │
00:09:06 #37633 [verbose] > │ let v37 : float = 0.01 * v33 │
00:09:06 #37634 [verbose] > │ let v38 : float = 0.01 * v34 │
00:09:06 #37635 [verbose] > │ let v39 : float = 0.01 * v35 │
00:09:06 #37636 [verbose] > │ let v40 : float = v2 + v37 │
00:09:06 #37637 [verbose] > │ let v41 : float = v3 + v38 │
00:09:06 #37638 [verbose] > │ let v42 : float = v4 + v39 │
00:09:06 #37639 [verbose] > │ let v43 : int32 = v9 - 1 │
00:09:06 #37640 [verbose] > │ method3(v0, v1, v40, v41, v42, v36, v33, v34, v35, v43) │
00:09:06 #37641 [verbose] > │ and method4 (v0 : UH0, v1 : UH0) : UH0 = │
00:09:06 #37642 [verbose] > │ match v0 with │
00:09:06 #37643 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:06 #37644 [verbose] > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:09:06 #37645 [verbose] > │ method4(v11, v12) │
00:09:06 #37646 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:06 #37647 [verbose] > │ v1 │
00:09:06 #37648 [verbose] > │ and method2 (v0 : float, v1 : float, v2 : UH0, v3 : int32) : UH0 = │
00:09:06 #37649 [verbose] > │ let v4 : float = 0.0 │
00:09:06 #37650 [verbose] > │ let v5 : float = 0.145 │
00:09:06 #37651 [verbose] > │ let v6 : float = 0.0 │
00:09:06 #37652 [verbose] > │ let v7 : float = 0.0 │
00:09:06 #37653 [verbose] > │ let v8 : float = 0.0 │
00:09:06 #37654 [verbose] > │ let v9 : float = 0.0 │
00:09:06 #37655 [verbose] > │ let v10 : float = 0.0 │
00:09:06 #37656 [verbose] > │ let struct (v11 : float, v12 : float, v13 : float, v14 : float, v15 : │
00:09:06 #37657 [verbose] > │ float, v16 : float, v17 : float, v18 : float, v19 : float) = method3(v4, v5, │
00:09:06 #37658 [verbose] > │ v6, v7, v8, v9, v10, v0, v1, v3) │
00:09:06 #37659 [verbose] > │ let v20 : bool = v15 >= 0.0 │
00:09:06 #37660 [verbose] > │ if v20 then │
00:09:06 #37661 [verbose] > │ let v21 : UH0 = UH0_1(v11, v12, v13, v14, v15, v16, v17, v18, v19, │
00:09:06 #37662 [verbose] > │ v2) │
00:09:06 #37663 [verbose] > │ let v22 : int32 = v3 + 1 │
00:09:06 #37664 [verbose] > │ method2(v0, v1, v21, v22) │
00:09:06 #37665 [verbose] > │ else │
00:09:06 #37666 [verbose] > │ let v24 : UH0 = UH0_0 │
00:09:06 #37667 [verbose] > │ method4(v2, v24) │
00:09:06 #37668 [verbose] > │ and method5 (v0 : UH0, v1 : UH1) : UH1 = │
00:09:06 #37669 [verbose] > │ match v0 with │
00:09:06 #37670 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:06 #37671 [verbose] > │ let v12 : UH1 = method5(v11, v1) │
00:09:06 #37672 [verbose] > │ UH1_1(v5, v6, v12) │
00:09:06 #37673 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:06 #37674 [verbose] > │ v1 │
00:09:06 #37675 [verbose] > │ and method6 (v0 : UH1, v1 : float) : float = │
00:09:06 #37676 [verbose] > │ match v0 with │
00:09:06 #37677 [verbose] > │ | UH1_1(v2, v3, v4) -> (* Cons *) │
00:09:06 #37678 [verbose] > │ method6(v4, v2) │
00:09:06 #37679 [verbose] > │ | UH1_0 -> (* Nil *) │
00:09:06 #37680 [verbose] > │ v1 │
00:09:06 #37681 [verbose] > │ and method1 (v0 : float, v1 : float, v2 : float) : struct (float * float) = │
00:09:06 #37682 [verbose] > │ let v3 : bool = v0 > 60.0 │
00:09:06 #37683 [verbose] > │ if v3 then │
00:09:06 #37684 [verbose] > │ struct (v2, v1) │
00:09:06 #37685 [verbose] > │ else │
00:09:06 #37686 [verbose] > │ let v4 : float = v0 * 3.141592653589793 │
00:09:06 #37687 [verbose] > │ let v5 : float = v4 / 180.0 │
00:09:06 #37688 [verbose] > │ let v6 : float = cos v5 │
00:09:06 #37689 [verbose] > │ let v7 : float = 45.0 * v6 │
00:09:06 #37690 [verbose] > │ let v8 : float = sin v5 │
00:09:06 #37691 [verbose] > │ let v9 : float = 45.0 * v8 │
00:09:06 #37692 [verbose] > │ let v10 : UH0 = UH0_0 │
00:09:06 #37693 [verbose] > │ let v11 : int32 = 0 │
00:09:06 #37694 [verbose] > │ let v12 : UH0 = method2(v7, v9, v10, v11) │
00:09:06 #37695 [verbose] > │ let v13 : UH1 = UH1_0 │
00:09:06 #37696 [verbose] > │ let v14 : UH1 = method5(v12, v13) │
00:09:06 #37697 [verbose] > │ let v15 : float = 0.0 │
00:09:06 #37698 [verbose] > │ let v16 : float = method6(v14, v15) │
00:09:06 #37699 [verbose] > │ let v17 : float = v0 + 1.0 │
00:09:06 #37700 [verbose] > │ let v18 : bool = v16 > v2 │
00:09:06 #37701 [verbose] > │ let struct (v19 : float, v20 : float) = │
00:09:06 #37702 [verbose] > │ if v18 then │
00:09:06 #37703 [verbose] > │ struct (v16, v0) │
00:09:06 #37704 [verbose] > │ else │
00:09:06 #37705 [verbose] > │ struct (v2, v1) │
00:09:06 #37706 [verbose] > │ method1(v17, v20, v19) │
00:09:06 #37707 [verbose] > │ and method7 (v0 : bool) : bool = │
00:09:06 #37708 [verbose] > │ v0 │
00:09:06 #37709 [verbose] > │ and method0 () : unit = │
00:09:06 #37710 [verbose] > │ let v0 : float = 30.0 │
00:09:06 #37711 [verbose] > │ let v1 : float = 0.0 │
00:09:06 #37712 [verbose] > │ let v2 : float = 30.0 │
00:09:06 #37713 [verbose] > │ let struct (v3 : float, v4 : float) = method1(v0, v2, v1) │
00:09:06 #37714 [verbose] > │ let v5 : string = $"%A{struct (v3, v4)}" │
00:09:06 #37715 [verbose] > │ System.Console.WriteLine v5 │
00:09:06 #37716 [verbose] > │ let v6 : bool = v3 = 116.77499158246208 │
00:09:06 #37717 [verbose] > │ let v8 : bool = │
00:09:06 #37718 [verbose] > │ if v6 then │
00:09:06 #37719 [verbose] > │ let v7 : bool = v4 = 41.0 │
00:09:06 #37720 [verbose] > │ v7 │
00:09:06 #37721 [verbose] > │ else │
00:09:06 #37722 [verbose] > │ false │
00:09:06 #37723 [verbose] > │ let v10 : bool = │
00:09:06 #37724 [verbose] > │ if v8 then │
00:09:06 #37725 [verbose] > │ true │
00:09:06 #37726 [verbose] > │ else │
00:09:06 #37727 [verbose] > │ method7(v8) │
00:09:06 #37728 [verbose] > │ let v11 : string = $"__expect / actual: %A{struct (v3, v4)} / expected: │
00:09:06 #37729 [verbose] > │ %A{struct (116.77499158246208, 41.0)}" │
00:09:06 #37730 [verbose] > │ let v12 : bool = v10 = false │
00:09:06 #37731 [verbose] > │ if v12 then │
00:09:06 #37732 [verbose] > │ failwith<unit> v11 │
00:09:06 #37733 [verbose] > │ method0() │
00:09:06 #37734 [verbose] > │ │
00:09:06 #37735 [verbose] > │ struct (116.7749916, 41.0) │
00:09:06 #37736 [verbose] > │ │
00:09:06 #37737 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:06 #37738 [verbose] >
00:09:06 #37739 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:06 #37740 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:06 #37741 [verbose] > │ ## relativity_ps │
00:09:06 #37742 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:06 #37743 [verbose] >
00:09:06 #37744 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:06 #37745 [verbose] > inl relativity_ps fs (st : particle_state) =
00:09:06 #37746 [verbose] > inl f_net = fs |> listm.map (fun f => f st) |> sum_vec
00:09:06 #37747 [verbose] > inl c = 299792458
00:09:06 #37748 [verbose] > inl u = st.velocity ^/ c
00:09:06 #37749 [verbose] > inl acc = sqrt (1 - (u <.> u)) *^ (f_net ^-^ (f_net <.> u) *^ u) ^/ st.mass
00:09:06 #37750 [verbose] > d_particle_state {
00:09:06 #37751 [verbose] > dmdt = 0
00:09:06 #37752 [verbose] > dqdt = 0
00:09:06 #37753 [verbose] > dtdt = 1
00:09:06 #37754 [verbose] > drdt = st.velocity
00:09:06 #37755 [verbose] > dvdt = acc
00:09:06 #37756 [verbose] > }
00:09:07 #37757 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\ac244dbd4ff973d6a44954edcca731f6939816112d576db1b56a64c2e8a65b91\main.spi
00:09:07 #37758 [verbose] >
00:09:07 #37759 [verbose] > ╭─[ 247.58ms - stdout ]────────────────────────────────────────────────────────╮
00:09:07 #37760 [verbose] > │ () │
00:09:07 #37761 [verbose] > │ │
00:09:07 #37762 [verbose] > │ │
00:09:07 #37763 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:07 #37764 [verbose] >
00:09:07 #37765 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:07 #37766 [verbose] > // // test
00:09:07 #37767 [verbose] >
00:09:07 #37768 [verbose] > inl year = 365.25 * 24 * 60 * 60
00:09:07 #37769 [verbose] > inl c = 299792458
00:09:07 #37770 [verbose] > inl ~method = runge_kutta_4 100000
00:09:07 #37771 [verbose] > inl forces = [[ fun _ => 10 *^ i_hat () ]]
00:09:07 #37772 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:09:07 #37773 [verbose] > inl initial_state =
00:09:07 #37774 [verbose] > particle_state { default_particle_state' with
00:09:07 #37775 [verbose] > mass = 1
00:09:07 #37776 [verbose] > }
00:09:07 #37777 [verbose] >
00:09:07 #37778 [verbose] > inl newton_states = solver_ method (newton_second_ps forces) initial_state
00:09:07 #37779 [verbose] > inl relativity_states = solver_ method (relativity_ps forces) initial_state
00:09:07 #37780 [verbose] >
00:09:07 #37781 [verbose] > inl newton_x, newton_y =
00:09:07 #37782 [verbose] > newton_states
00:09:07 #37783 [verbose] > >> Some
00:09:07 #37784 [verbose] > |> seq.take_while_ (fun (particle_state st) (_ : i32) => st.time <= year)
00:09:07 #37785 [verbose] > |> listm.map (fun (particle_state st) => st.time / year, st.velocity.x / c)
00:09:07 #37786 [verbose] > |> listm'.unzip
00:09:07 #37787 [verbose] >
00:09:07 #37788 [verbose] > inl _, relativity_y =
00:09:07 #37789 [verbose] > relativity_states
00:09:07 #37790 [verbose] > >> Some
00:09:07 #37791 [verbose] > |> seq.take_while_ (fun (particle_state st) (_ : i32) => st.time <= year)
00:09:07 #37792 [verbose] > |> listm.map (fun (particle_state st) => st.time / year, st.velocity.x / c)
00:09:07 #37793 [verbose] > |> listm'.unzip
00:09:07 #37794 [verbose] >
00:09:07 #37795 [verbose] > inl newton_x : a i32 _ = newton_x |> listm.toArray
00:09:07 #37796 [verbose] > inl newton_y : a i32 _ = newton_y |> listm.toArray
00:09:07 #37797 [verbose] > inl relativity_y : a i32 _ = relativity_y |> listm.toArray
00:09:07 #37798 [verbose] >
00:09:07 #37799 [verbose] > "response to a constant force",
00:09:07 #37800 [verbose] > "time (years)",
00:09:07 #37801 [verbose] > "velocity (multiples of c)",
00:09:07 #37802 [verbose] > ;[[
00:09:07 #37803 [verbose] > "newtonian", newton_x, newton_y
00:09:07 #37804 [verbose] > "relativistic", newton_x, relativity_y
00:09:07 #37805 [verbose] > ]]
00:09:07 #37806 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\198d6a33edeff181fd7ef534b520bdb91f070ee9b4f26766999a2aeea6940869\main.spi
00:09:07 #37807 [verbose] >
00:09:07 #37808 [verbose] > ╭─[ 619.33ms - return value ]──────────────────────────────────────────────────╮
00:09:07 #37809 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:09:07 #37810 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:09:07 #37811 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:09:07 #37812 [verbose] > │ stroke="none"/> │
00:09:07 #37813 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:09:07 #37814 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:09:07 #37815 [verbose] > │ fill="#FFFFFF"> │
00:09:07 #37816 [verbose] > │ response to a constant force │
00:09:07 #37817 [verbose] > │ </text> │
00:09:07 #37818 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:09:07 #37819 [verbose] > │ y2="75"/> │
00:09:07 #37820 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:09:07 #37821 [verbose] > │ y2="75"/> │
00:09:07 #37822 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:09:07 #37823 [verbose] > │ y2="75"/> │
00:09:07 #37824 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:09:07 #37825 [verbose] > │ y2="75"/> │
00:09:07 #37826 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1=... │
00:09:07 #37827 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:07 #37828 [verbose] >
00:09:07 #37829 [verbose] > ╭─[ 635.37ms - stdout ]────────────────────────────────────────────────────────╮
00:09:07 #37830 [verbose] > │ type UH0 = │
00:09:07 #37831 [verbose] > │ | UH0_0 │
00:09:07 #37832 [verbose] > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:09:07 #37833 [verbose] > │ * float * UH0 │
00:09:07 #37834 [verbose] > │ and UH1 = │
00:09:07 #37835 [verbose] > │ | UH1_0 │
00:09:07 #37836 [verbose] > │ | UH1_1 of float * float * UH1 │
00:09:07 #37837 [verbose] > │ and UH2 = │
00:09:07 #37838 [verbose] > │ | UH2_0 │
00:09:07 #37839 [verbose] > │ | UH2_1 of float * UH2 │
00:09:07 #37840 [verbose] > │ let rec closure1 (v0 : (struct (float * float * float * float * float * │
00:09:07 #37841 [verbose] > │ float * float * float * float) -> struct (float * float * float * float * │
00:09:07 #37842 [verbose] > │ float * float * float * float * float))) struct (v1 : float, v2 : float, v3 │
00:09:07 #37843 [verbose] > │ : float, v4 : float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : │
00:09:07 #37844 [verbose] > │ float) : struct (float * float * float * float * float * float * float * │
00:09:07 #37845 [verbose] > │ float * float) = │
00:09:07 #37846 [verbose] > │ let struct (v10 : float, v11 : float, v12 : float, v13 : float, v14 : │
00:09:07 #37847 [verbose] > │ float, v15 : float, v16 : float, v17 : float, v18 : float) = v0 struct (v1, │
00:09:07 #37848 [verbose] > │ v2, v3, v4, v5, v6, v7, v8, v9) │
00:09:07 #37849 [verbose] > │ let v19 : float = v15 * 50000.0 │
00:09:07 #37850 [verbose] > │ let v20 : float = v6 + v19 │
00:09:07 #37851 [verbose] > │ let v21 : float = 50000.0 * v12 │
00:09:07 #37852 [verbose] > │ let v22 : float = 50000.0 * v13 │
00:09:07 #37853 [verbose] > │ let v23 : float = 50000.0 * v14 │
00:09:07 #37854 [verbose] > │ let v24 : float = v3 + v21 │
00:09:07 #37855 [verbose] > │ let v25 : float = v4 + v22 │
00:09:07 #37856 [verbose] > │ let v26 : float = v5 + v23 │
00:09:07 #37857 [verbose] > │ let v27 : float = 50000.0 * v16 │
00:09:07 #37858 [verbose] > │ let v28 : float = 50000.0 * v17 │
00:09:07 #37859 [verbose] > │ let v29 : float = 50000.0 * v18 │
00:09:07 #37860 [verbose] > │ let v30 : float = v7 + v27 │
00:09:07 #37861 [verbose] > │ let v31 : float = v8 + v28 │
00:09:07 #37862 [verbose] > │ let v32 : float = v9 + v29 │
00:09:07 #37863 [verbose] > │ let struct (v33 : float, v34 : float, v35 : float, v36 : float, v37 : │
00:09:07 #37864 [verbose] > │ float, v38 : float, v39 : float, v40 : float, v41 : float) = v0 struct (v1, │
00:09:07 #37865 [verbose] > │ v2, v24, v25, v26, v20, v30, v31, v32) │
00:09:07 #37866 [verbose] > │ let v42 : float = v38 * 50000.0 │
00:09:07 #37867 [verbose] > │ let v43 : float = v6 + v42 │
00:09:07 #37868 [verbose] > │ let v44 : float = 50000.0 * v35 │
00:09:07 #37869 [verbose] > │ let v45 : float = 50000.0 * v36 │
00:09:07 #37870 [verbose] > │ let v46 : float = 50000.0 * v37 │
00:09:07 #37871 [verbose] > │ let v47 : float = v3 + v44 │
00:09:07 #37872 [verbose] > │ let v48 : float = v4 + v45 │
00:09:07 #37873 [verbose] > │ let v49 : float = v5 + v46 │
00:09:07 #37874 [verbose] > │ let v50 : float = 50000.0 * v39 │
00:09:07 #37875 [verbose] > │ let v51 : float = 50000.0 * v40 │
00:09:07 #37876 [verbose] > │ let v52 : float = 50000.0 * v41 │
00:09:07 #37877 [verbose] > │ let v53 : float = v7 + v50 │
00:09:07 #37878 [verbose] > │ let v54 : float = v8 + v51 │
00:09:07 #37879 [verbose] > │ let v55 : float = v9 + v52 │
00:09:07 #37880 [verbose] > │ let struct (v56 : float, v57 : float, v58 : float, v59 : float, v60 : │
00:09:07 #37881 [verbose] > │ float, v61 : float, v62 : float, v63 : float, v64 : float) = v0 struct (v1, │
00:09:07 #37882 [verbose] > │ v2, v47, v48, v49, v43, v53, v54, v55) │
00:09:07 #37883 [verbose] > │ let v65 : float = v61 * 100000.0 │
00:09:07 #37884 [verbose] > │ let v66 : float = v6 + v65 │
00:09:07 #37885 [verbose] > │ let v67 : float = 100000.0 * v58 │
00:09:07 #37886 [verbose] > │ let v68 : float = 100000.0 * v59 │
00:09:07 #37887 [verbose] > │ let v69 : float = 100000.0 * v60 │
00:09:07 #37888 [verbose] > │ let v70 : float = v3 + v67 │
00:09:07 #37889 [verbose] > │ let v71 : float = v4 + v68 │
00:09:07 #37890 [verbose] > │ let v72 : float = v5 + v69 │
00:09:07 #37891 [verbose] > │ let v73 : float = 100000.0 * v62 │
00:09:07 #37892 [verbose] > │ let v74 : float = 100000.0 * v63 │
00:09:07 #37893 [verbose] > │ let v75 : float = 100000.0 * v64 │
00:09:07 #37894 [verbose] > │ let v76 : float = v7 + v73 │
00:09:07 #37895 [verbose] > │ let v77 : float = v8 + v74 │
00:09:07 #37896 [verbose] > │ let v78 : float = v9 + v75 │
00:09:07 #37897 [verbose] > │ let struct (v79 : float, v80 : float, v81 : float, v82 : float, v83 : │
00:09:07 #37898 [verbose] > │ float, v84 : float, v85 : float, v86 : float, v87 : float) = v0 struct (v1, │
00:09:07 #37899 [verbose] > │ v2, v70, v71, v72, v66, v76, v77, v78) │
00:09:07 #37900 [verbose] > │ let v88 : float = v10 + v33 │
00:09:07 #37901 [verbose] > │ let v89 : float = v11 + v34 │
00:09:07 #37902 [verbose] > │ let v90 : float = v15 + v38 │
00:09:07 #37903 [verbose] > │ let v91 : float = v12 + v35 │
00:09:07 #37904 [verbose] > │ let v92 : float = v13 + v36 │
00:09:07 #37905 [verbose] > │ let v93 : float = v14 + v37 │
00:09:07 #37906 [verbose] > │ let v94 : float = v16 + v39 │
00:09:07 #37907 [verbose] > │ let v95 : float = v17 + v40 │
00:09:07 #37908 [verbose] > │ let v96 : float = v18 + v41 │
00:09:07 #37909 [verbose] > │ let v97 : float = v88 + v33 │
00:09:07 #37910 [verbose] > │ let v98 : float = v89 + v34 │
00:09:07 #37911 [verbose] > │ let v99 : float = v90 + v38 │
00:09:07 #37912 [verbose] > │ let v100 : float = v91 + v35 │
00:09:07 #37913 [verbose] > │ let v101 : float = v92 + v36 │
00:09:07 #37914 [verbose] > │ let v102 : float = v93 + v37 │
00:09:07 #37915 [verbose] > │ let v103 : float = v94 + v39 │
00:09:07 #37916 [verbose] > │ let v104 : float = v95 + v40 │
00:09:07 #37917 [verbose] > │ let v105 : float = v96 + v41 │
00:09:07 #37918 [verbose] > │ let v106 : float = v97 + v56 │
00:09:07 #37919 [verbose] > │ let v107 : float = v98 + v57 │
00:09:07 #37920 [verbose] > │ let v108 : float = v99 + v61 │
00:09:07 #37921 [verbose] > │ let v109 : float = v100 + v58 │
00:09:07 #37922 [verbose] > │ let v110 : float = v101 + v59 │
00:09:07 #37923 [verbose] > │ let v111 : float = v102 + v60 │
00:09:07 #37924 [verbose] > │ let v112 : float = v103 + v62 │
00:09:07 #37925 [verbose] > │ let v113 : float = v104 + v63 │
00:09:07 #37926 [verbose] > │ let v114 : float = v105 + v64 │
00:09:07 #37927 [verbose] > │ let v115 : float = v106 + v56 │
00:09:07 #37928 [verbose] > │ let v116 : float = v107 + v57 │
00:09:07 #37929 [verbose] > │ let v117 : float = v108 + v61 │
00:09:07 #37930 [verbose] > │ let v118 : float = v109 + v58 │
00:09:07 #37931 [verbose] > │ let v119 : float = v110 + v59 │
00:09:07 #37932 [verbose] > │ let v120 : float = v111 + v60 │
00:09:07 #37933 [verbose] > │ let v121 : float = v112 + v62 │
00:09:07 #37934 [verbose] > │ let v122 : float = v113 + v63 │
00:09:07 #37935 [verbose] > │ let v123 : float = v114 + v64 │
00:09:07 #37936 [verbose] > │ let v124 : float = v115 + v79 │
00:09:07 #37937 [verbose] > │ let v125 : float = v116 + v80 │
00:09:07 #37938 [verbose] > │ let v126 : float = v117 + v84 │
00:09:07 #37939 [verbose] > │ let v127 : float = v118 + v81 │
00:09:07 #37940 [verbose] > │ let v128 : float = v119 + v82 │
00:09:07 #37941 [verbose] > │ let v129 : float = v120 + v83 │
00:09:07 #37942 [verbose] > │ let v130 : float = v121 + v85 │
00:09:07 #37943 [verbose] > │ let v131 : float = v122 + v86 │
00:09:07 #37944 [verbose] > │ let v132 : float = v123 + v87 │
00:09:07 #37945 [verbose] > │ let v133 : float = v126 * 16666.666666666668 │
00:09:07 #37946 [verbose] > │ let v134 : float = v6 + v133 │
00:09:07 #37947 [verbose] > │ let v135 : float = 16666.666666666668 * v127 │
00:09:07 #37948 [verbose] > │ let v136 : float = 16666.666666666668 * v128 │
00:09:07 #37949 [verbose] > │ let v137 : float = 16666.666666666668 * v129 │
00:09:07 #37950 [verbose] > │ let v138 : float = v3 + v135 │
00:09:07 #37951 [verbose] > │ let v139 : float = v4 + v136 │
00:09:07 #37952 [verbose] > │ let v140 : float = v5 + v137 │
00:09:07 #37953 [verbose] > │ let v141 : float = 16666.666666666668 * v130 │
00:09:07 #37954 [verbose] > │ let v142 : float = 16666.666666666668 * v131 │
00:09:07 #37955 [verbose] > │ let v143 : float = 16666.666666666668 * v132 │
00:09:07 #37956 [verbose] > │ let v144 : float = v7 + v141 │
00:09:07 #37957 [verbose] > │ let v145 : float = v8 + v142 │
00:09:07 #37958 [verbose] > │ let v146 : float = v9 + v143 │
00:09:07 #37959 [verbose] > │ struct (v1, v2, v138, v139, v140, v134, v144, v145, v146) │
00:09:07 #37960 [verbose] > │ and closure0 () (v0 : (struct (float * float * float * float * float * float │
00:09:07 #37961 [verbose] > │ * float * float * float) -> struct (float * float * float * float * float * │
00:09:07 #37962 [verbose] > │ float * float * float * float))) : (struct (float * float * float * float * │
00:09:07 #37963 [verbose] > │ float * float * float * float * float) -> struct (float * float * float * │
00:09:07 #37964 [verbose] > │ float * float * float * float * float * float)) = │
00:09:07 #37965 [verbose] > │ closure1(v0) │
00:09:07 #37966 [verbose] > │ and closure2 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:09:07 #37967 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:09:07 #37968 [verbose] > │ float * float * float * float * float * float * float * float) = │
00:09:07 #37969 [verbose] > │ let v9 : float = 10.0 / v1 │
00:09:07 #37970 [verbose] > │ let v10 : float = 0.0 / v1 │
00:09:07 #37971 [verbose] > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v9, v10, v10) │
00:09:07 #37972 [verbose] > │ and closure3 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:09:07 #37973 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:09:07 #37974 [verbose] > │ float * float * float * float * float * float * float * float) = │
00:09:07 #37975 [verbose] > │ let v9 : float = v6 / 299792458.0 │
00:09:07 #37976 [verbose] > │ let v10 : float = v7 / 299792458.0 │
00:09:07 #37977 [verbose] > │ let v11 : float = v8 / 299792458.0 │
00:09:07 #37978 [verbose] > │ let v12 : float = v9 * v9 │
00:09:07 #37979 [verbose] > │ let v13 : float = v10 * v10 │
00:09:07 #37980 [verbose] > │ let v14 : float = v12 + v13 │
00:09:07 #37981 [verbose] > │ let v15 : float = v11 * v11 │
00:09:07 #37982 [verbose] > │ let v16 : float = v14 + v15 │
00:09:07 #37983 [verbose] > │ let v17 : float = 1.0 - v16 │
00:09:07 #37984 [verbose] > │ let v18 : float = sqrt v17 │
00:09:07 #37985 [verbose] > │ let v19 : float = 10.0 * v9 │
00:09:07 #37986 [verbose] > │ let v20 : float = 0.0 * v10 │
00:09:07 #37987 [verbose] > │ let v21 : float = v19 + v20 │
00:09:07 #37988 [verbose] > │ let v22 : float = 0.0 * v11 │
00:09:07 #37989 [verbose] > │ let v23 : float = v21 + v22 │
00:09:07 #37990 [verbose] > │ let v24 : float = v23 * v9 │
00:09:07 #37991 [verbose] > │ let v25 : float = v23 * v10 │
00:09:07 #37992 [verbose] > │ let v26 : float = v23 * v11 │
00:09:07 #37993 [verbose] > │ let v27 : float = -1.0 * v24 │
00:09:07 #37994 [verbose] > │ let v28 : float = -1.0 * v25 │
00:09:07 #37995 [verbose] > │ let v29 : float = -1.0 * v26 │
00:09:07 #37996 [verbose] > │ let v30 : float = 10.0 + v27 │
00:09:07 #37997 [verbose] > │ let v31 : float = v18 * v30 │
00:09:07 #37998 [verbose] > │ let v32 : float = v18 * v28 │
00:09:07 #37999 [verbose] > │ let v33 : float = v18 * v29 │
00:09:07 #38000 [verbose] > │ let v34 : float = v31 / v1 │
00:09:07 #38001 [verbose] > │ let v35 : float = v32 / v1 │
00:09:07 #38002 [verbose] > │ let v36 : float = v33 / v1 │
00:09:07 #38003 [verbose] > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v34, v35, v36) │
00:09:07 #38004 [verbose] > │ and method2 (v0 : (struct (float * float * float * float * float * float * │
00:09:07 #38005 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:09:07 #38006 [verbose] > │ float * float * float * float)), v1 : float, v2 : float, v3 : float, v4 : │
00:09:07 #38007 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : float, v10 : │
00:09:07 #38008 [verbose] > │ int32) : struct (float * float * float * float * float * float * float * │
00:09:07 #38009 [verbose] > │ float * float) = │
00:09:07 #38010 [verbose] > │ let v11 : bool = v10 <= 0 │
00:09:07 #38011 [verbose] > │ if v11 then │
00:09:07 #38012 [verbose] > │ struct (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:09:07 #38013 [verbose] > │ else │
00:09:07 #38014 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:09:07 #38015 [verbose] > │ : float, v17 : float, v18 : float, v19 : float, v20 : float) = v0 struct │
00:09:07 #38016 [verbose] > │ (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:09:07 #38017 [verbose] > │ let v21 : int32 = v10 - 1 │
00:09:07 #38018 [verbose] > │ method2(v0, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21) │
00:09:07 #38019 [verbose] > │ and method3 (v0 : UH0, v1 : UH0) : UH0 = │
00:09:07 #38020 [verbose] > │ match v0 with │
00:09:07 #38021 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:07 #38022 [verbose] > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:09:07 #38023 [verbose] > │ method3(v11, v12) │
00:09:07 #38024 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:07 #38025 [verbose] > │ v1 │
00:09:07 #38026 [verbose] > │ and method1 (v0 : (struct (float * float * float * float * float * float * │
00:09:07 #38027 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:09:07 #38028 [verbose] > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:09:07 #38029 [verbose] > │ let v3 : float = 0.0 │
00:09:07 #38030 [verbose] > │ let v4 : float = 1.0 │
00:09:07 #38031 [verbose] > │ let v5 : float = 0.0 │
00:09:07 #38032 [verbose] > │ let v6 : float = 0.0 │
00:09:07 #38033 [verbose] > │ let v7 : float = 0.0 │
00:09:07 #38034 [verbose] > │ let v8 : float = 0.0 │
00:09:07 #38035 [verbose] > │ let v9 : float = 0.0 │
00:09:07 #38036 [verbose] > │ let v10 : float = 0.0 │
00:09:07 #38037 [verbose] > │ let v11 : float = 0.0 │
00:09:07 #38038 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:09:07 #38039 [verbose] > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:09:07 #38040 [verbose] > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:09:07 #38041 [verbose] > │ let v21 : bool = v17 <= 31557600.0 │
00:09:07 #38042 [verbose] > │ if v21 then │
00:09:07 #38043 [verbose] > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:09:07 #38044 [verbose] > │ v1) │
00:09:07 #38045 [verbose] > │ let v23 : int32 = v2 + 1 │
00:09:07 #38046 [verbose] > │ method1(v0, v22, v23) │
00:09:07 #38047 [verbose] > │ else │
00:09:07 #38048 [verbose] > │ let v25 : UH0 = UH0_0 │
00:09:07 #38049 [verbose] > │ method3(v1, v25) │
00:09:07 #38050 [verbose] > │ and method4 (v0 : UH0, v1 : UH1) : UH1 = │
00:09:07 #38051 [verbose] > │ match v0 with │
00:09:07 #38052 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:07 #38053 [verbose] > │ let v12 : UH1 = method4(v11, v1) │
00:09:07 #38054 [verbose] > │ let v13 : float = v7 / 31557600.0 │
00:09:07 #38055 [verbose] > │ let v14 : float = v8 / 299792458.0 │
00:09:07 #38056 [verbose] > │ UH1_1(v13, v14, v12) │
00:09:07 #38057 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:07 #38058 [verbose] > │ v1 │
00:09:07 #38059 [verbose] > │ and method5 (v0 : UH1, v1 : UH2, v2 : UH2) : struct (UH2 * UH2) = │
00:09:07 #38060 [verbose] > │ match v0 with │
00:09:07 #38061 [verbose] > │ | UH1_1(v3, v4, v5) -> (* Cons *) │
00:09:07 #38062 [verbose] > │ let v6 : UH2 = UH2_1(v3, v1) │
00:09:07 #38063 [verbose] > │ let v7 : UH2 = UH2_1(v4, v2) │
00:09:07 #38064 [verbose] > │ method5(v5, v6, v7) │
00:09:07 #38065 [verbose] > │ | UH1_0 -> (* Nil *) │
00:09:07 #38066 [verbose] > │ struct (v1, v2) │
00:09:07 #38067 [verbose] > │ and method6 (v0 : UH2, v1 : UH2) : UH2 = │
00:09:07 #38068 [verbose] > │ match v0 with │
00:09:07 #38069 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:09:07 #38070 [verbose] > │ let v4 : UH2 = UH2_1(v2, v1) │
00:09:07 #38071 [verbose] > │ method6(v3, v4) │
00:09:07 #38072 [verbose] > │ | UH2_0 -> (* Nil *) │
00:09:07 #38073 [verbose] > │ v1 │
00:09:07 #38074 [verbose] > │ and method7 (v0 : (struct (float * float * float * float * float * float * │
00:09:07 #38075 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:09:07 #38076 [verbose] > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:09:07 #38077 [verbose] > │ let v3 : float = 0.0 │
00:09:07 #38078 [verbose] > │ let v4 : float = 1.0 │
00:09:07 #38079 [verbose] > │ let v5 : float = 0.0 │
00:09:07 #38080 [verbose] > │ let v6 : float = 0.0 │
00:09:07 #38081 [verbose] > │ let v7 : float = 0.0 │
00:09:07 #38082 [verbose] > │ let v8 : float = 0.0 │
00:09:07 #38083 [verbose] > │ let v9 : float = 0.0 │
00:09:07 #38084 [verbose] > │ let v10 : float = 0.0 │
00:09:07 #38085 [verbose] > │ let v11 : float = 0.0 │
00:09:07 #38086 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:09:07 #38087 [verbose] > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:09:07 #38088 [verbose] > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:09:07 #38089 [verbose] > │ let v21 : bool = v17 <= 31557600.0 │
00:09:07 #38090 [verbose] > │ if v21 then │
00:09:07 #38091 [verbose] > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:09:07 #38092 [verbose] > │ v1) │
00:09:07 #38093 [verbose] > │ let v23 : int32 = v2 + 1 │
00:09:07 #38094 [verbose] > │ method7(v0, v22, v23) │
00:09:07 #38095 [verbose] > │ else │
00:09:07 #38096 [verbose] > │ let v25 : UH0 = UH0_0 │
00:09:07 #38097 [verbose] > │ method3(v1, v25) │
00:09:07 #38098 [verbose] > │ and method8 (v0 : UH0, v1 : UH1) : UH1 = │
00:09:07 #38099 [verbose] > │ match v0 with │
00:09:07 #38100 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:07 #38101 [verbose] > │ let v12 : UH1 = method8(v11, v1) │
00:09:07 #38102 [verbose] > │ let v13 : float = v7 / 31557600.0 │
00:09:07 #38103 [verbose] > │ let v14 : float = v8 / 299792458.0 │
00:09:07 #38104 [verbose] > │ UH1_1(v13, v14, v12) │
00:09:07 #38105 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:07 #38106 [verbose] > │ v1 │
00:09:07 #38107 [verbose] > │ and method10 (v0 : UH2, v1 : int32) : int32 = │
00:09:07 #38108 [verbose] > │ match v0 with │
00:09:07 #38109 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:09:07 #38110 [verbose] > │ let v4 : int32 = v1 + 1 │
00:09:07 #38111 [verbose] > │ method10(v3, v4) │
00:09:07 #38112 [verbose] > │ | UH2_0 -> (* Nil *) │
00:09:07 #38113 [verbose] > │ v1 │
00:09:07 #38114 [verbose] > │ and method11 (v0 : (float []), v1 : UH2, v2 : int32) : int32 = │
00:09:07 #38115 [verbose] > │ match v1 with │
00:09:07 #38116 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:09:07 #38117 [verbose] > │ v0.[int v2] <- v3 │
00:09:07 #38118 [verbose] > │ let v5 : int32 = v2 + 1 │
00:09:07 #38119 [verbose] > │ method11(v0, v4, v5) │
00:09:07 #38120 [verbose] > │ | UH2_0 -> (* Nil *) │
00:09:07 #38121 [verbose] > │ v2 │
00:09:07 #38122 [verbose] > │ and method9 (v0 : UH2) : (float []) = │
00:09:07 #38123 [verbose] > │ let v1 : int32 = 0 │
00:09:07 #38124 [verbose] > │ let v2 : int32 = method10(v0, v1) │
00:09:07 #38125 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:09:07 #38126 [verbose] > │ let v4 : int32 = 0 │
00:09:07 #38127 [verbose] > │ let v5 : int32 = method11(v3, v0, v4) │
00:09:07 #38128 [verbose] > │ v3 │
00:09:07 #38129 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:09:07 #38130 [verbose] > │ []) * (float [])) [])) = │
00:09:07 #38131 [verbose] > │ let v0 : ((struct (float * float * float * float * float * float * float │
00:09:07 #38132 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:09:07 #38133 [verbose] > │ float * float * float)) -> (struct (float * float * float * float * float * │
00:09:07 #38134 [verbose] > │ float * float * float * float) -> struct (float * float * float * float * │
00:09:07 #38135 [verbose] > │ float * float * float * float * float))) = closure0() │
00:09:07 #38136 [verbose] > │ let v1 : (struct (float * float * float * float * float * float * float │
00:09:07 #38137 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:09:07 #38138 [verbose] > │ float * float * float)) = closure2() │
00:09:07 #38139 [verbose] > │ let v2 : (struct (float * float * float * float * float * float * float │
00:09:07 #38140 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:09:07 #38141 [verbose] > │ float * float * float)) = v0 v1 │
00:09:07 #38142 [verbose] > │ let v3 : (struct (float * float * float * float * float * float * float │
00:09:07 #38143 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:09:07 #38144 [verbose] > │ float * float * float)) = closure3() │
00:09:07 #38145 [verbose] > │ let v4 : (struct (float * float * float * float * float * float * float │
00:09:07 #38146 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:09:07 #38147 [verbose] > │ float * float * float)) = v0 v3 │
00:09:07 #38148 [verbose] > │ let v5 : UH0 = UH0_0 │
00:09:07 #38149 [verbose] > │ let v6 : int32 = 0 │
00:09:07 #38150 [verbose] > │ let v7 : UH0 = method1(v2, v5, v6) │
00:09:07 #38151 [verbose] > │ let v8 : UH1 = UH1_0 │
00:09:07 #38152 [verbose] > │ let v9 : UH1 = method4(v7, v8) │
00:09:07 #38153 [verbose] > │ let v10 : UH2 = UH2_0 │
00:09:07 #38154 [verbose] > │ let v11 : UH2 = UH2_0 │
00:09:07 #38155 [verbose] > │ let struct (v12 : UH2, v13 : UH2) = method5(v9, v10, v11) │
00:09:07 #38156 [verbose] > │ let v14 : UH2 = UH2_0 │
00:09:07 #38157 [verbose] > │ let v15 : UH2 = method6(v12, v14) │
00:09:07 #38158 [verbose] > │ let v16 : UH2 = UH2_0 │
00:09:07 #38159 [verbose] > │ let v17 : UH2 = method6(v13, v16) │
00:09:07 #38160 [verbose] > │ let v18 : UH0 = UH0_0 │
00:09:07 #38161 [verbose] > │ let v19 : int32 = 0 │
00:09:07 #38162 [verbose] > │ let v20 : UH0 = method7(v4, v18, v19) │
00:09:07 #38163 [verbose] > │ let v21 : UH1 = UH1_0 │
00:09:07 #38164 [verbose] > │ let v22 : UH1 = method8(v20, v21) │
00:09:07 #38165 [verbose] > │ let v23 : UH2 = UH2_0 │
00:09:07 #38166 [verbose] > │ let v24 : UH2 = UH2_0 │
00:09:07 #38167 [verbose] > │ let struct (v25 : UH2, v26 : UH2) = method5(v22, v23, v24) │
00:09:07 #38168 [verbose] > │ let v27 : UH2 = UH2_0 │
00:09:07 #38169 [verbose] > │ let v28 : UH2 = method6(v25, v27) │
00:09:07 #38170 [verbose] > │ let v29 : UH2 = UH2_0 │
00:09:07 #38171 [verbose] > │ let v30 : UH2 = method6(v26, v29) │
00:09:07 #38172 [verbose] > │ let v31 : (float []) = method9(v15) │
00:09:07 #38173 [verbose] > │ let v32 : (float []) = method9(v17) │
00:09:07 #38174 [verbose] > │ let v33 : (float []) = method9(v30) │
00:09:07 #38175 [verbose] > │ let v34 : string = "newtonian" │
00:09:07 #38176 [verbose] > │ let v35 : string = "relativistic" │
00:09:07 #38177 [verbose] > │ let v36 : (struct (string * (float []) * (float [])) []) = [|struct │
00:09:07 #38178 [verbose] > │ (v34, v31, v32); struct (v35, v31, v33)|] │
00:09:07 #38179 [verbose] > │ let v37 : string = "response to a constant force" │
00:09:07 #38180 [verbose] > │ let v38 : string = "time (years)" │
00:09:07 #38181 [verbose] > │ let v39 : string = "velocity (multiples of c)" │
00:09:07 #38182 [verbose] > │ struct (v37, v38, v39, v36) │
00:09:07 #38183 [verbose] > │ method0() │
00:09:07 #38184 [verbose] > │ │
00:09:07 #38185 [verbose] > │ │
00:09:07 #38186 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:07 #38187 [verbose] >
00:09:07 #38188 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:07 #38189 [verbose] > inl uniform_lorentz_force v_e v_b (st : particle_state) =
00:09:07 #38190 [verbose] > st.charge *^ (v_e ^+^ st.velocity >< v_b)
00:09:08 #38191 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\cbb2f705c8bba093264248c964704bb6a2b26b3936dbd010b7061f32030b7a6d\main.spi
00:09:08 #38192 [verbose] >
00:09:08 #38193 [verbose] > ╭─[ 345.72ms - stdout ]────────────────────────────────────────────────────────╮
00:09:08 #38194 [verbose] > │ () │
00:09:08 #38195 [verbose] > │ │
00:09:08 #38196 [verbose] > │ │
00:09:08 #38197 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:08 #38198 [verbose] >
00:09:08 #38199 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:08 #38200 [verbose] > // // test
00:09:08 #38201 [verbose] >
00:09:08 #38202 [verbose] > inl c : f64 = 299792458
00:09:08 #38203 [verbose] > inl ~method = runge_kutta_4 0.000000001
00:09:08 #38204 [verbose] > inl forces = [[ uniform_lorentz_force (zero_vec ()) (k_hat ()) ]]
00:09:08 #38205 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:09:08 #38206 [verbose] > inl initial_state =
00:09:08 #38207 [verbose] > particle_state { default_particle_state' with
00:09:08 #38208 [verbose] > mass = 0.000000000000000000000000001672621898
00:09:08 #38209 [verbose] > charge = 0.0000000000000000001602176621
00:09:08 #38210 [verbose] > velocity = 0.8 *^ (c *^ j_hat ())
00:09:08 #38211 [verbose] > }
00:09:08 #38212 [verbose] >
00:09:08 #38213 [verbose] > inl newton_states = solver_ method (newton_second_ps forces) initial_state
00:09:08 #38214 [verbose] > inl relativity_states = solver_ method (relativity_ps forces) initial_state
00:09:08 #38215 [verbose] >
00:09:08 #38216 [verbose] > inl newton_x, newton_y =
00:09:08 #38217 [verbose] > newton_states
00:09:08 #38218 [verbose] > >> Some
00:09:08 #38219 [verbose] > |> seq.take_while_ (fun (particle_state st) i => i < 100i32)
00:09:08 #38220 [verbose] > |> listm.map (fun (particle_state st) => st.pos_vec.x, st.pos_vec.y)
00:09:08 #38221 [verbose] > |> listm'.unzip
00:09:08 #38222 [verbose] >
00:09:08 #38223 [verbose] > inl relativity_x, relativity_y =
00:09:08 #38224 [verbose] > relativity_states
00:09:08 #38225 [verbose] > >> Some
00:09:08 #38226 [verbose] > |> seq.take_while_ (fun (particle_state st) i => i < 165i32)
00:09:08 #38227 [verbose] > |> listm.map (fun (particle_state st) => st.pos_vec.x, st.pos_vec.y)
00:09:08 #38228 [verbose] > |> listm'.unzip
00:09:08 #38229 [verbose] >
00:09:08 #38230 [verbose] > inl newton_x : a i32 _ = newton_x |> listm.toArray
00:09:08 #38231 [verbose] > inl newton_y : a i32 _ = newton_y |> listm.toArray
00:09:08 #38232 [verbose] >
00:09:08 #38233 [verbose] > inl relativity_x : a i32 _ = relativity_x |> listm.toArray
00:09:08 #38234 [verbose] > inl relativity_y : a i32 _ = relativity_y |> listm.toArray
00:09:08 #38235 [verbose] >
00:09:08 #38236 [verbose] > "proton in a 1-t magnetic field",
00:09:08 #38237 [verbose] > "x (m)",
00:09:08 #38238 [verbose] > "y (m)",
00:09:08 #38239 [verbose] > ;[[
00:09:08 #38240 [verbose] > "newtonian", newton_x, newton_y
00:09:08 #38241 [verbose] > "relativistic", relativity_x, relativity_y
00:09:08 #38242 [verbose] > ]]
00:09:08 #38243 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c1dfbb8efa990352612a1d04ae6bcab5293444527533943095ff279d9b03c39b\main.spi
00:09:08 #38244 [verbose] >
00:09:08 #38245 [verbose] > ╭─[ 560.03ms - return value ]──────────────────────────────────────────────────╮
00:09:08 #38246 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:09:08 #38247 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:09:08 #38248 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:09:08 #38249 [verbose] > │ stroke="none"/> │
00:09:08 #38250 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:09:08 #38251 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:09:08 #38252 [verbose] > │ fill="#FFFFFF"> │
00:09:08 #38253 [verbose] > │ proton in a 1-t magnetic field │
00:09:08 #38254 [verbose] > │ </text> │
00:09:08 #38255 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="58" y1="424" x2="58" │
00:09:08 #38256 [verbose] > │ y2="75"/> │
00:09:08 #38257 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:09:08 #38258 [verbose] > │ y2="75"/> │
00:09:08 #38259 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="81" y1="424" x2="81" │
00:09:08 #38260 [verbose] > │ y2="75"/> │
00:09:08 #38261 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:09:08 #38262 [verbose] > │ y2="75"/> │
00:09:08 #38263 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x... │
00:09:08 #38264 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:08 #38265 [verbose] >
00:09:08 #38266 [verbose] > ╭─[ 571.50ms - stdout ]────────────────────────────────────────────────────────╮
00:09:08 #38267 [verbose] > │ type UH0 = │
00:09:08 #38268 [verbose] > │ | UH0_0 │
00:09:08 #38269 [verbose] > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:09:08 #38270 [verbose] > │ * float * UH0 │
00:09:08 #38271 [verbose] > │ and UH1 = │
00:09:08 #38272 [verbose] > │ | UH1_0 │
00:09:08 #38273 [verbose] > │ | UH1_1 of float * float * UH1 │
00:09:08 #38274 [verbose] > │ and UH2 = │
00:09:08 #38275 [verbose] > │ | UH2_0 │
00:09:08 #38276 [verbose] > │ | UH2_1 of float * UH2 │
00:09:08 #38277 [verbose] > │ let rec closure1 (v0 : (struct (float * float * float * float * float * │
00:09:08 #38278 [verbose] > │ float * float * float * float) -> struct (float * float * float * float * │
00:09:08 #38279 [verbose] > │ float * float * float * float * float))) struct (v1 : float, v2 : float, v3 │
00:09:08 #38280 [verbose] > │ : float, v4 : float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : │
00:09:08 #38281 [verbose] > │ float) : struct (float * float * float * float * float * float * float * │
00:09:08 #38282 [verbose] > │ float * float) = │
00:09:08 #38283 [verbose] > │ let struct (v10 : float, v11 : float, v12 : float, v13 : float, v14 : │
00:09:08 #38284 [verbose] > │ float, v15 : float, v16 : float, v17 : float, v18 : float) = v0 struct (v1, │
00:09:08 #38285 [verbose] > │ v2, v3, v4, v5, v6, v7, v8, v9) │
00:09:08 #38286 [verbose] > │ let v19 : float = v15 * 5E-10 │
00:09:08 #38287 [verbose] > │ let v20 : float = v6 + v19 │
00:09:08 #38288 [verbose] > │ let v21 : float = 5E-10 * v12 │
00:09:08 #38289 [verbose] > │ let v22 : float = 5E-10 * v13 │
00:09:08 #38290 [verbose] > │ let v23 : float = 5E-10 * v14 │
00:09:08 #38291 [verbose] > │ let v24 : float = v3 + v21 │
00:09:08 #38292 [verbose] > │ let v25 : float = v4 + v22 │
00:09:08 #38293 [verbose] > │ let v26 : float = v5 + v23 │
00:09:08 #38294 [verbose] > │ let v27 : float = 5E-10 * v16 │
00:09:08 #38295 [verbose] > │ let v28 : float = 5E-10 * v17 │
00:09:08 #38296 [verbose] > │ let v29 : float = 5E-10 * v18 │
00:09:08 #38297 [verbose] > │ let v30 : float = v7 + v27 │
00:09:08 #38298 [verbose] > │ let v31 : float = v8 + v28 │
00:09:08 #38299 [verbose] > │ let v32 : float = v9 + v29 │
00:09:08 #38300 [verbose] > │ let struct (v33 : float, v34 : float, v35 : float, v36 : float, v37 : │
00:09:08 #38301 [verbose] > │ float, v38 : float, v39 : float, v40 : float, v41 : float) = v0 struct (v1, │
00:09:08 #38302 [verbose] > │ v2, v24, v25, v26, v20, v30, v31, v32) │
00:09:08 #38303 [verbose] > │ let v42 : float = v38 * 5E-10 │
00:09:08 #38304 [verbose] > │ let v43 : float = v6 + v42 │
00:09:08 #38305 [verbose] > │ let v44 : float = 5E-10 * v35 │
00:09:08 #38306 [verbose] > │ let v45 : float = 5E-10 * v36 │
00:09:08 #38307 [verbose] > │ let v46 : float = 5E-10 * v37 │
00:09:08 #38308 [verbose] > │ let v47 : float = v3 + v44 │
00:09:08 #38309 [verbose] > │ let v48 : float = v4 + v45 │
00:09:08 #38310 [verbose] > │ let v49 : float = v5 + v46 │
00:09:08 #38311 [verbose] > │ let v50 : float = 5E-10 * v39 │
00:09:08 #38312 [verbose] > │ let v51 : float = 5E-10 * v40 │
00:09:08 #38313 [verbose] > │ let v52 : float = 5E-10 * v41 │
00:09:08 #38314 [verbose] > │ let v53 : float = v7 + v50 │
00:09:08 #38315 [verbose] > │ let v54 : float = v8 + v51 │
00:09:08 #38316 [verbose] > │ let v55 : float = v9 + v52 │
00:09:08 #38317 [verbose] > │ let struct (v56 : float, v57 : float, v58 : float, v59 : float, v60 : │
00:09:08 #38318 [verbose] > │ float, v61 : float, v62 : float, v63 : float, v64 : float) = v0 struct (v1, │
00:09:08 #38319 [verbose] > │ v2, v47, v48, v49, v43, v53, v54, v55) │
00:09:08 #38320 [verbose] > │ let v65 : float = v61 * 1E-09 │
00:09:08 #38321 [verbose] > │ let v66 : float = v6 + v65 │
00:09:08 #38322 [verbose] > │ let v67 : float = 1E-09 * v58 │
00:09:08 #38323 [verbose] > │ let v68 : float = 1E-09 * v59 │
00:09:08 #38324 [verbose] > │ let v69 : float = 1E-09 * v60 │
00:09:08 #38325 [verbose] > │ let v70 : float = v3 + v67 │
00:09:08 #38326 [verbose] > │ let v71 : float = v4 + v68 │
00:09:08 #38327 [verbose] > │ let v72 : float = v5 + v69 │
00:09:08 #38328 [verbose] > │ let v73 : float = 1E-09 * v62 │
00:09:08 #38329 [verbose] > │ let v74 : float = 1E-09 * v63 │
00:09:08 #38330 [verbose] > │ let v75 : float = 1E-09 * v64 │
00:09:08 #38331 [verbose] > │ let v76 : float = v7 + v73 │
00:09:08 #38332 [verbose] > │ let v77 : float = v8 + v74 │
00:09:08 #38333 [verbose] > │ let v78 : float = v9 + v75 │
00:09:08 #38334 [verbose] > │ let struct (v79 : float, v80 : float, v81 : float, v82 : float, v83 : │
00:09:08 #38335 [verbose] > │ float, v84 : float, v85 : float, v86 : float, v87 : float) = v0 struct (v1, │
00:09:08 #38336 [verbose] > │ v2, v70, v71, v72, v66, v76, v77, v78) │
00:09:08 #38337 [verbose] > │ let v88 : float = v10 + v33 │
00:09:08 #38338 [verbose] > │ let v89 : float = v11 + v34 │
00:09:08 #38339 [verbose] > │ let v90 : float = v15 + v38 │
00:09:08 #38340 [verbose] > │ let v91 : float = v12 + v35 │
00:09:08 #38341 [verbose] > │ let v92 : float = v13 + v36 │
00:09:08 #38342 [verbose] > │ let v93 : float = v14 + v37 │
00:09:08 #38343 [verbose] > │ let v94 : float = v16 + v39 │
00:09:08 #38344 [verbose] > │ let v95 : float = v17 + v40 │
00:09:08 #38345 [verbose] > │ let v96 : float = v18 + v41 │
00:09:08 #38346 [verbose] > │ let v97 : float = v88 + v33 │
00:09:08 #38347 [verbose] > │ let v98 : float = v89 + v34 │
00:09:08 #38348 [verbose] > │ let v99 : float = v90 + v38 │
00:09:08 #38349 [verbose] > │ let v100 : float = v91 + v35 │
00:09:08 #38350 [verbose] > │ let v101 : float = v92 + v36 │
00:09:08 #38351 [verbose] > │ let v102 : float = v93 + v37 │
00:09:08 #38352 [verbose] > │ let v103 : float = v94 + v39 │
00:09:08 #38353 [verbose] > │ let v104 : float = v95 + v40 │
00:09:08 #38354 [verbose] > │ let v105 : float = v96 + v41 │
00:09:08 #38355 [verbose] > │ let v106 : float = v97 + v56 │
00:09:08 #38356 [verbose] > │ let v107 : float = v98 + v57 │
00:09:08 #38357 [verbose] > │ let v108 : float = v99 + v61 │
00:09:08 #38358 [verbose] > │ let v109 : float = v100 + v58 │
00:09:08 #38359 [verbose] > │ let v110 : float = v101 + v59 │
00:09:08 #38360 [verbose] > │ let v111 : float = v102 + v60 │
00:09:08 #38361 [verbose] > │ let v112 : float = v103 + v62 │
00:09:08 #38362 [verbose] > │ let v113 : float = v104 + v63 │
00:09:08 #38363 [verbose] > │ let v114 : float = v105 + v64 │
00:09:08 #38364 [verbose] > │ let v115 : float = v106 + v56 │
00:09:08 #38365 [verbose] > │ let v116 : float = v107 + v57 │
00:09:08 #38366 [verbose] > │ let v117 : float = v108 + v61 │
00:09:08 #38367 [verbose] > │ let v118 : float = v109 + v58 │
00:09:08 #38368 [verbose] > │ let v119 : float = v110 + v59 │
00:09:08 #38369 [verbose] > │ let v120 : float = v111 + v60 │
00:09:08 #38370 [verbose] > │ let v121 : float = v112 + v62 │
00:09:08 #38371 [verbose] > │ let v122 : float = v113 + v63 │
00:09:08 #38372 [verbose] > │ let v123 : float = v114 + v64 │
00:09:08 #38373 [verbose] > │ let v124 : float = v115 + v79 │
00:09:08 #38374 [verbose] > │ let v125 : float = v116 + v80 │
00:09:08 #38375 [verbose] > │ let v126 : float = v117 + v84 │
00:09:08 #38376 [verbose] > │ let v127 : float = v118 + v81 │
00:09:08 #38377 [verbose] > │ let v128 : float = v119 + v82 │
00:09:08 #38378 [verbose] > │ let v129 : float = v120 + v83 │
00:09:08 #38379 [verbose] > │ let v130 : float = v121 + v85 │
00:09:08 #38380 [verbose] > │ let v131 : float = v122 + v86 │
00:09:08 #38381 [verbose] > │ let v132 : float = v123 + v87 │
00:09:08 #38382 [verbose] > │ let v133 : float = v126 * 1.6666666666666669E-10 │
00:09:08 #38383 [verbose] > │ let v134 : float = v6 + v133 │
00:09:08 #38384 [verbose] > │ let v135 : float = 1.6666666666666669E-10 * v127 │
00:09:08 #38385 [verbose] > │ let v136 : float = 1.6666666666666669E-10 * v128 │
00:09:08 #38386 [verbose] > │ let v137 : float = 1.6666666666666669E-10 * v129 │
00:09:08 #38387 [verbose] > │ let v138 : float = v3 + v135 │
00:09:08 #38388 [verbose] > │ let v139 : float = v4 + v136 │
00:09:08 #38389 [verbose] > │ let v140 : float = v5 + v137 │
00:09:08 #38390 [verbose] > │ let v141 : float = 1.6666666666666669E-10 * v130 │
00:09:08 #38391 [verbose] > │ let v142 : float = 1.6666666666666669E-10 * v131 │
00:09:08 #38392 [verbose] > │ let v143 : float = 1.6666666666666669E-10 * v132 │
00:09:08 #38393 [verbose] > │ let v144 : float = v7 + v141 │
00:09:08 #38394 [verbose] > │ let v145 : float = v8 + v142 │
00:09:08 #38395 [verbose] > │ let v146 : float = v9 + v143 │
00:09:08 #38396 [verbose] > │ struct (v1, v2, v138, v139, v140, v134, v144, v145, v146) │
00:09:08 #38397 [verbose] > │ and closure0 () (v0 : (struct (float * float * float * float * float * float │
00:09:08 #38398 [verbose] > │ * float * float * float) -> struct (float * float * float * float * float * │
00:09:08 #38399 [verbose] > │ float * float * float * float))) : (struct (float * float * float * float * │
00:09:08 #38400 [verbose] > │ float * float * float * float * float) -> struct (float * float * float * │
00:09:08 #38401 [verbose] > │ float * float * float * float * float * float)) = │
00:09:08 #38402 [verbose] > │ closure1(v0) │
00:09:08 #38403 [verbose] > │ and closure2 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:09:08 #38404 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:09:08 #38405 [verbose] > │ float * float * float * float * float * float * float * float) = │
00:09:08 #38406 [verbose] > │ let v9 : float = v8 * 0.0 │
00:09:08 #38407 [verbose] > │ let v10 : float = v7 - v9 │
00:09:08 #38408 [verbose] > │ let v11 : float = v9 - v6 │
00:09:08 #38409 [verbose] > │ let v12 : float = v6 * 0.0 │
00:09:08 #38410 [verbose] > │ let v13 : float = v7 * 0.0 │
00:09:08 #38411 [verbose] > │ let v14 : float = v12 - v13 │
00:09:08 #38412 [verbose] > │ let v15 : float = v0 * v10 │
00:09:08 #38413 [verbose] > │ let v16 : float = v0 * v11 │
00:09:08 #38414 [verbose] > │ let v17 : float = v0 * v14 │
00:09:08 #38415 [verbose] > │ let v18 : float = v15 / v1 │
00:09:08 #38416 [verbose] > │ let v19 : float = v16 / v1 │
00:09:08 #38417 [verbose] > │ let v20 : float = v17 / v1 │
00:09:08 #38418 [verbose] > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v18, v19, v20) │
00:09:08 #38419 [verbose] > │ and closure3 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:09:08 #38420 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:09:08 #38421 [verbose] > │ float * float * float * float * float * float * float * float) = │
00:09:08 #38422 [verbose] > │ let v9 : float = v8 * 0.0 │
00:09:08 #38423 [verbose] > │ let v10 : float = v7 - v9 │
00:09:08 #38424 [verbose] > │ let v11 : float = v9 - v6 │
00:09:08 #38425 [verbose] > │ let v12 : float = v6 * 0.0 │
00:09:08 #38426 [verbose] > │ let v13 : float = v7 * 0.0 │
00:09:08 #38427 [verbose] > │ let v14 : float = v12 - v13 │
00:09:08 #38428 [verbose] > │ let v15 : float = v0 * v10 │
00:09:08 #38429 [verbose] > │ let v16 : float = v0 * v11 │
00:09:08 #38430 [verbose] > │ let v17 : float = v0 * v14 │
00:09:08 #38431 [verbose] > │ let v18 : float = v6 / 299792458.0 │
00:09:08 #38432 [verbose] > │ let v19 : float = v7 / 299792458.0 │
00:09:08 #38433 [verbose] > │ let v20 : float = v8 / 299792458.0 │
00:09:08 #38434 [verbose] > │ let v21 : float = v18 * v18 │
00:09:08 #38435 [verbose] > │ let v22 : float = v19 * v19 │
00:09:08 #38436 [verbose] > │ let v23 : float = v21 + v22 │
00:09:08 #38437 [verbose] > │ let v24 : float = v20 * v20 │
00:09:08 #38438 [verbose] > │ let v25 : float = v23 + v24 │
00:09:08 #38439 [verbose] > │ let v26 : float = 1.0 - v25 │
00:09:08 #38440 [verbose] > │ let v27 : float = sqrt v26 │
00:09:08 #38441 [verbose] > │ let v28 : float = v15 * v18 │
00:09:08 #38442 [verbose] > │ let v29 : float = v16 * v19 │
00:09:08 #38443 [verbose] > │ let v30 : float = v28 + v29 │
00:09:08 #38444 [verbose] > │ let v31 : float = v17 * v20 │
00:09:08 #38445 [verbose] > │ let v32 : float = v30 + v31 │
00:09:08 #38446 [verbose] > │ let v33 : float = v32 * v18 │
00:09:08 #38447 [verbose] > │ let v34 : float = v32 * v19 │
00:09:08 #38448 [verbose] > │ let v35 : float = v32 * v20 │
00:09:08 #38449 [verbose] > │ let v36 : float = -1.0 * v33 │
00:09:08 #38450 [verbose] > │ let v37 : float = -1.0 * v34 │
00:09:08 #38451 [verbose] > │ let v38 : float = -1.0 * v35 │
00:09:08 #38452 [verbose] > │ let v39 : float = v15 + v36 │
00:09:08 #38453 [verbose] > │ let v40 : float = v16 + v37 │
00:09:08 #38454 [verbose] > │ let v41 : float = v17 + v38 │
00:09:08 #38455 [verbose] > │ let v42 : float = v27 * v39 │
00:09:08 #38456 [verbose] > │ let v43 : float = v27 * v40 │
00:09:08 #38457 [verbose] > │ let v44 : float = v27 * v41 │
00:09:08 #38458 [verbose] > │ let v45 : float = v42 / v1 │
00:09:08 #38459 [verbose] > │ let v46 : float = v43 / v1 │
00:09:08 #38460 [verbose] > │ let v47 : float = v44 / v1 │
00:09:08 #38461 [verbose] > │ struct (0.0, 0.0, v6, v7, v8, 1.0, v45, v46, v47) │
00:09:08 #38462 [verbose] > │ and method2 (v0 : (struct (float * float * float * float * float * float * │
00:09:08 #38463 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:09:08 #38464 [verbose] > │ float * float * float * float)), v1 : float, v2 : float, v3 : float, v4 : │
00:09:08 #38465 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float, v9 : float, v10 : │
00:09:08 #38466 [verbose] > │ int32) : struct (float * float * float * float * float * float * float * │
00:09:08 #38467 [verbose] > │ float * float) = │
00:09:08 #38468 [verbose] > │ let v11 : bool = v10 <= 0 │
00:09:08 #38469 [verbose] > │ if v11 then │
00:09:08 #38470 [verbose] > │ struct (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:09:08 #38471 [verbose] > │ else │
00:09:08 #38472 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:09:08 #38473 [verbose] > │ : float, v17 : float, v18 : float, v19 : float, v20 : float) = v0 struct │
00:09:08 #38474 [verbose] > │ (v1, v2, v3, v4, v5, v6, v7, v8, v9) │
00:09:08 #38475 [verbose] > │ let v21 : int32 = v10 - 1 │
00:09:08 #38476 [verbose] > │ method2(v0, v12, v13, v14, v15, v16, v17, v18, v19, v20, v21) │
00:09:08 #38477 [verbose] > │ and method3 (v0 : UH0, v1 : UH0) : UH0 = │
00:09:08 #38478 [verbose] > │ match v0 with │
00:09:08 #38479 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:08 #38480 [verbose] > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:09:08 #38481 [verbose] > │ method3(v11, v12) │
00:09:08 #38482 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:08 #38483 [verbose] > │ v1 │
00:09:08 #38484 [verbose] > │ and method1 (v0 : (struct (float * float * float * float * float * float * │
00:09:08 #38485 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:09:08 #38486 [verbose] > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:09:08 #38487 [verbose] > │ let v3 : float = 1.602176621E-19 │
00:09:08 #38488 [verbose] > │ let v4 : float = 1.672621898E-27 │
00:09:08 #38489 [verbose] > │ let v5 : float = 0.0 │
00:09:08 #38490 [verbose] > │ let v6 : float = 0.0 │
00:09:08 #38491 [verbose] > │ let v7 : float = 0.0 │
00:09:08 #38492 [verbose] > │ let v8 : float = 0.0 │
00:09:08 #38493 [verbose] > │ let v9 : float = 0.0 │
00:09:08 #38494 [verbose] > │ let v10 : float = 239833966.4 │
00:09:08 #38495 [verbose] > │ let v11 : float = 0.0 │
00:09:08 #38496 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:09:08 #38497 [verbose] > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:09:08 #38498 [verbose] > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:09:08 #38499 [verbose] > │ let v21 : bool = v2 < 100 │
00:09:08 #38500 [verbose] > │ if v21 then │
00:09:08 #38501 [verbose] > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:09:08 #38502 [verbose] > │ v1) │
00:09:08 #38503 [verbose] > │ let v23 : int32 = v2 + 1 │
00:09:08 #38504 [verbose] > │ method1(v0, v22, v23) │
00:09:08 #38505 [verbose] > │ else │
00:09:08 #38506 [verbose] > │ let v25 : UH0 = UH0_0 │
00:09:08 #38507 [verbose] > │ method3(v1, v25) │
00:09:08 #38508 [verbose] > │ and method4 (v0 : UH0, v1 : UH1) : UH1 = │
00:09:08 #38509 [verbose] > │ match v0 with │
00:09:08 #38510 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:08 #38511 [verbose] > │ let v12 : UH1 = method4(v11, v1) │
00:09:08 #38512 [verbose] > │ UH1_1(v4, v5, v12) │
00:09:08 #38513 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:08 #38514 [verbose] > │ v1 │
00:09:08 #38515 [verbose] > │ and method5 (v0 : UH1, v1 : UH2, v2 : UH2) : struct (UH2 * UH2) = │
00:09:08 #38516 [verbose] > │ match v0 with │
00:09:08 #38517 [verbose] > │ | UH1_1(v3, v4, v5) -> (* Cons *) │
00:09:08 #38518 [verbose] > │ let v6 : UH2 = UH2_1(v3, v1) │
00:09:08 #38519 [verbose] > │ let v7 : UH2 = UH2_1(v4, v2) │
00:09:08 #38520 [verbose] > │ method5(v5, v6, v7) │
00:09:08 #38521 [verbose] > │ | UH1_0 -> (* Nil *) │
00:09:08 #38522 [verbose] > │ struct (v1, v2) │
00:09:08 #38523 [verbose] > │ and method6 (v0 : UH2, v1 : UH2) : UH2 = │
00:09:08 #38524 [verbose] > │ match v0 with │
00:09:08 #38525 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:09:08 #38526 [verbose] > │ let v4 : UH2 = UH2_1(v2, v1) │
00:09:08 #38527 [verbose] > │ method6(v3, v4) │
00:09:08 #38528 [verbose] > │ | UH2_0 -> (* Nil *) │
00:09:08 #38529 [verbose] > │ v1 │
00:09:08 #38530 [verbose] > │ and method7 (v0 : (struct (float * float * float * float * float * float * │
00:09:08 #38531 [verbose] > │ float * float * float) -> struct (float * float * float * float * float * │
00:09:08 #38532 [verbose] > │ float * float * float * float)), v1 : UH0, v2 : int32) : UH0 = │
00:09:08 #38533 [verbose] > │ let v3 : float = 1.602176621E-19 │
00:09:08 #38534 [verbose] > │ let v4 : float = 1.672621898E-27 │
00:09:08 #38535 [verbose] > │ let v5 : float = 0.0 │
00:09:08 #38536 [verbose] > │ let v6 : float = 0.0 │
00:09:08 #38537 [verbose] > │ let v7 : float = 0.0 │
00:09:08 #38538 [verbose] > │ let v8 : float = 0.0 │
00:09:08 #38539 [verbose] > │ let v9 : float = 0.0 │
00:09:08 #38540 [verbose] > │ let v10 : float = 239833966.4 │
00:09:08 #38541 [verbose] > │ let v11 : float = 0.0 │
00:09:08 #38542 [verbose] > │ let struct (v12 : float, v13 : float, v14 : float, v15 : float, v16 : │
00:09:08 #38543 [verbose] > │ float, v17 : float, v18 : float, v19 : float, v20 : float) = method2(v0, v3, │
00:09:08 #38544 [verbose] > │ v4, v5, v6, v7, v8, v9, v10, v11, v2) │
00:09:08 #38545 [verbose] > │ let v21 : bool = v2 < 165 │
00:09:08 #38546 [verbose] > │ if v21 then │
00:09:08 #38547 [verbose] > │ let v22 : UH0 = UH0_1(v12, v13, v14, v15, v16, v17, v18, v19, v20, │
00:09:08 #38548 [verbose] > │ v1) │
00:09:08 #38549 [verbose] > │ let v23 : int32 = v2 + 1 │
00:09:08 #38550 [verbose] > │ method7(v0, v22, v23) │
00:09:08 #38551 [verbose] > │ else │
00:09:08 #38552 [verbose] > │ let v25 : UH0 = UH0_0 │
00:09:08 #38553 [verbose] > │ method3(v1, v25) │
00:09:08 #38554 [verbose] > │ and method8 (v0 : UH0, v1 : UH1) : UH1 = │
00:09:08 #38555 [verbose] > │ match v0 with │
00:09:08 #38556 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:08 #38557 [verbose] > │ let v12 : UH1 = method8(v11, v1) │
00:09:08 #38558 [verbose] > │ UH1_1(v4, v5, v12) │
00:09:08 #38559 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:08 #38560 [verbose] > │ v1 │
00:09:08 #38561 [verbose] > │ and method10 (v0 : UH2, v1 : int32) : int32 = │
00:09:08 #38562 [verbose] > │ match v0 with │
00:09:08 #38563 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:09:08 #38564 [verbose] > │ let v4 : int32 = v1 + 1 │
00:09:08 #38565 [verbose] > │ method10(v3, v4) │
00:09:09 #38566 [verbose] > │ | UH2_0 -> (* Nil *) │
00:09:09 #38567 [verbose] > │ v1 │
00:09:09 #38568 [verbose] > │ and method11 (v0 : (float []), v1 : UH2, v2 : int32) : int32 = │
00:09:09 #38569 [verbose] > │ match v1 with │
00:09:09 #38570 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:09:09 #38571 [verbose] > │ v0.[int v2] <- v3 │
00:09:09 #38572 [verbose] > │ let v5 : int32 = v2 + 1 │
00:09:09 #38573 [verbose] > │ method11(v0, v4, v5) │
00:09:09 #38574 [verbose] > │ | UH2_0 -> (* Nil *) │
00:09:09 #38575 [verbose] > │ v2 │
00:09:09 #38576 [verbose] > │ and method9 (v0 : UH2) : (float []) = │
00:09:09 #38577 [verbose] > │ let v1 : int32 = 0 │
00:09:09 #38578 [verbose] > │ let v2 : int32 = method10(v0, v1) │
00:09:09 #38579 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:09:09 #38580 [verbose] > │ let v4 : int32 = 0 │
00:09:09 #38581 [verbose] > │ let v5 : int32 = method11(v3, v0, v4) │
00:09:09 #38582 [verbose] > │ v3 │
00:09:09 #38583 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:09:09 #38584 [verbose] > │ []) * (float [])) [])) = │
00:09:09 #38585 [verbose] > │ let v0 : ((struct (float * float * float * float * float * float * float │
00:09:09 #38586 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:09:09 #38587 [verbose] > │ float * float * float)) -> (struct (float * float * float * float * float * │
00:09:09 #38588 [verbose] > │ float * float * float * float) -> struct (float * float * float * float * │
00:09:09 #38589 [verbose] > │ float * float * float * float * float))) = closure0() │
00:09:09 #38590 [verbose] > │ let v1 : (struct (float * float * float * float * float * float * float │
00:09:09 #38591 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:09:09 #38592 [verbose] > │ float * float * float)) = closure2() │
00:09:09 #38593 [verbose] > │ let v2 : (struct (float * float * float * float * float * float * float │
00:09:09 #38594 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:09:09 #38595 [verbose] > │ float * float * float)) = v0 v1 │
00:09:09 #38596 [verbose] > │ let v3 : (struct (float * float * float * float * float * float * float │
00:09:09 #38597 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:09:09 #38598 [verbose] > │ float * float * float)) = closure3() │
00:09:09 #38599 [verbose] > │ let v4 : (struct (float * float * float * float * float * float * float │
00:09:09 #38600 [verbose] > │ * float * float) -> struct (float * float * float * float * float * float * │
00:09:09 #38601 [verbose] > │ float * float * float)) = v0 v3 │
00:09:09 #38602 [verbose] > │ let v5 : UH0 = UH0_0 │
00:09:09 #38603 [verbose] > │ let v6 : int32 = 0 │
00:09:09 #38604 [verbose] > │ let v7 : UH0 = method1(v2, v5, v6) │
00:09:09 #38605 [verbose] > │ let v8 : UH1 = UH1_0 │
00:09:09 #38606 [verbose] > │ let v9 : UH1 = method4(v7, v8) │
00:09:09 #38607 [verbose] > │ let v10 : UH2 = UH2_0 │
00:09:09 #38608 [verbose] > │ let v11 : UH2 = UH2_0 │
00:09:09 #38609 [verbose] > │ let struct (v12 : UH2, v13 : UH2) = method5(v9, v10, v11) │
00:09:09 #38610 [verbose] > │ let v14 : UH2 = UH2_0 │
00:09:09 #38611 [verbose] > │ let v15 : UH2 = method6(v12, v14) │
00:09:09 #38612 [verbose] > │ let v16 : UH2 = UH2_0 │
00:09:09 #38613 [verbose] > │ let v17 : UH2 = method6(v13, v16) │
00:09:09 #38614 [verbose] > │ let v18 : UH0 = UH0_0 │
00:09:09 #38615 [verbose] > │ let v19 : int32 = 0 │
00:09:09 #38616 [verbose] > │ let v20 : UH0 = method7(v4, v18, v19) │
00:09:09 #38617 [verbose] > │ let v21 : UH1 = UH1_0 │
00:09:09 #38618 [verbose] > │ let v22 : UH1 = method8(v20, v21) │
00:09:09 #38619 [verbose] > │ let v23 : UH2 = UH2_0 │
00:09:09 #38620 [verbose] > │ let v24 : UH2 = UH2_0 │
00:09:09 #38621 [verbose] > │ let struct (v25 : UH2, v26 : UH2) = method5(v22, v23, v24) │
00:09:09 #38622 [verbose] > │ let v27 : UH2 = UH2_0 │
00:09:09 #38623 [verbose] > │ let v28 : UH2 = method6(v25, v27) │
00:09:09 #38624 [verbose] > │ let v29 : UH2 = UH2_0 │
00:09:09 #38625 [verbose] > │ let v30 : UH2 = method6(v26, v29) │
00:09:09 #38626 [verbose] > │ let v31 : (float []) = method9(v15) │
00:09:09 #38627 [verbose] > │ let v32 : (float []) = method9(v17) │
00:09:09 #38628 [verbose] > │ let v33 : (float []) = method9(v28) │
00:09:09 #38629 [verbose] > │ let v34 : (float []) = method9(v30) │
00:09:09 #38630 [verbose] > │ let v35 : string = "newtonian" │
00:09:09 #38631 [verbose] > │ let v36 : string = "relativistic" │
00:09:09 #38632 [verbose] > │ let v37 : (struct (string * (float []) * (float [])) []) = [|struct │
00:09:09 #38633 [verbose] > │ (v35, v31, v32); struct (v36, v33, v34)|] │
00:09:09 #38634 [verbose] > │ let v38 : string = "proton in a 1-t magnetic field" │
00:09:09 #38635 [verbose] > │ let v39 : string = "x (m)" │
00:09:09 #38636 [verbose] > │ let v40 : string = "y (m)" │
00:09:09 #38637 [verbose] > │ struct (v38, v39, v40, v37) │
00:09:09 #38638 [verbose] > │ method0() │
00:09:09 #38639 [verbose] > │ │
00:09:09 #38640 [verbose] > │ │
00:09:09 #38641 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:09 #38642 [verbose] >
00:09:09 #38643 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:09 #38644 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:09 #38645 [verbose] > │ ### system kinetic energy versus time 1 │
00:09:09 #38646 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:09 #38647 [verbose] >
00:09:09 #38648 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:09 #38649 [verbose] > // // test
00:09:09 #38650 [verbose] >
00:09:09 #38651 [verbose] > inl central_force f (particle_state st1) (particle_state st2) =
00:09:09 #38652 [verbose] > inl r1 = st1.pos_vec
00:09:09 #38653 [verbose] > inl r2 = st2.pos_vec
00:09:09 #38654 [verbose] > inl r21 = r2 ^-^ r1
00:09:09 #38655 [verbose] > inl r21mag = magnitude r21
00:09:09 #38656 [verbose] > f r21mag *^ r21 ^/ r21mag
00:09:09 #38657 [verbose] >
00:09:09 #38658 [verbose] > inl billiard_force k re =
00:09:09 #38659 [verbose] > inl f r =
00:09:09 #38660 [verbose] > if r >= re
00:09:09 #38661 [verbose] > then 0
00:09:09 #38662 [verbose] > else -k * (r - re)
00:09:09 #38663 [verbose] > central_force f
00:09:09 #38664 [verbose] >
00:09:09 #38665 [verbose] > type force_vector = vec
00:09:09 #38666 [verbose] > type two_body_force = particle_state -> particle_state -> force_vector
00:09:09 #38667 [verbose] >
00:09:09 #38668 [verbose] > union force =
00:09:09 #38669 [verbose] > | ExternalForce : i32 * one_body_force
00:09:09 #38670 [verbose] > | InternalForce : i32 * i32 * two_body_force
00:09:09 #38671 [verbose] >
00:09:09 #38672 [verbose] > nominal multi_particle_state = list particle_state
00:09:09 #38673 [verbose] >
00:09:09 #38674 [verbose] > nominal d_multi_particle_state = list d_particle_state
00:09:09 #38675 [verbose] >
00:09:09 #38676 [verbose] > inl force_on n sts force =
00:09:09 #38677 [verbose] > match force with
00:09:09 #38678 [verbose] > | ExternalForce (n0, f_one_body) =>
00:09:09 #38679 [verbose] > if n = n0
00:09:09 #38680 [verbose] > then f_one_body
00:09:09 #38681 [verbose] > else fun _ => zero_vec ()
00:09:09 #38682 [verbose] > | InternalForce (n0, n1, f_two_body) =>
00:09:09 #38683 [verbose] > if n = n0
00:09:09 #38684 [verbose] > then f_two_body (sts |> listm'.item n1)
00:09:09 #38685 [verbose] > elif n = n1
00:09:09 #38686 [verbose] > then f_two_body (sts |> listm'.item n0)
00:09:09 #38687 [verbose] > else fun _ => zero_vec ()
00:09:09 #38688 [verbose] >
00:09:09 #38689 [verbose] > inl forces_on n (multi_particle_state sts) fs =
00:09:09 #38690 [verbose] > fs |> listm.map (force_on n sts)
00:09:09 #38691 [verbose] >
00:09:09 #38692 [verbose] > inl newton_second_mps fs (multi_particle_state sts) : d_multi_particle_state =
00:09:09 #38693 [verbose] > inl deriv (n, st) =
00:09:09 #38694 [verbose] > newton_second_ps (forces_on n (multi_particle_state sts) fs) st
00:09:09 #38695 [verbose] > sts |> listm'.indexed |> listm.map deriv |> d_multi_particle_state
00:09:09 #38696 [verbose] >
00:09:09 #38697 [verbose] > instance (+++) d_multi_particle_state = fun (d_multi_particle_state dsts1)
00:09:09 #38698 [verbose] > (d_multi_particle_state dsts2) =>
00:09:09 #38699 [verbose] > d_multi_particle_state (listm'.zip_with_ (+++) dsts1 dsts2)
00:09:09 #38700 [verbose] >
00:09:09 #38701 [verbose] > instance scale d_multi_particle_state = fun w (d_multi_particle_state dsts) =>
00:09:09 #38702 [verbose] > d_multi_particle_state (dsts |> listm.map (scale w))
00:09:09 #38703 [verbose] >
00:09:09 #38704 [verbose] > instance shift multi_particle_state = fun dt dsts (multi_particle_state sts) =>
00:09:09 #38705 [verbose] > inl (d_multi_particle_state dsts) =
00:09:09 #38706 [verbose] > real
00:09:09 #38707 [verbose] > match dsts with
00:09:09 #38708 [verbose] > | d_multi_particle_state _ => dsts
00:09:09 #38709 [verbose] > listm'.zip_with_ (shift dt) dsts sts |> multi_particle_state
00:09:09 #38710 [verbose] >
00:09:09 #38711 [verbose] > inl euler_cromer_mps dt : numerical_method multi_particle_state
00:09:09 #38712 [verbose] > d_multi_particle_state =
00:09:09 #38713 [verbose] > fun deriv mpst0 =>
00:09:09 #38714 [verbose] > inl mpst1 = euler dt deriv mpst0
00:09:09 #38715 [verbose] > inl (multi_particle_state sts0) = mpst0
00:09:09 #38716 [verbose] > inl (multi_particle_state sts1) = mpst1
00:09:09 #38717 [verbose] > sts1
00:09:09 #38718 [verbose] > |> listm'.zip_ sts0
00:09:09 #38719 [verbose] > |> listm.map (fun ((particle_state st0), (particle_state st1)) =>
00:09:09 #38720 [verbose] > particle_state {
00:09:09 #38721 [verbose] > st1 with
00:09:09 #38722 [verbose] > pos_vec = st0.pos_vec ^+^ st1.velocity ^* dt
00:09:09 #38723 [verbose] > }
00:09:09 #38724 [verbose] > )
00:09:09 #38725 [verbose] > |> multi_particle_state
00:09:09 #38726 [verbose] >
00:09:09 #38727 [verbose] > inl update_mps (method : numerical_method multi_particle_state
00:09:09 #38728 [verbose] > d_multi_particle_state) =
00:09:09 #38729 [verbose] > newton_second_mps >> method
00:09:09 #38730 [verbose] >
00:09:09 #38731 [verbose] > inl states_mps (method : numerical_method multi_particle_state
00:09:09 #38732 [verbose] > d_multi_particle_state) =
00:09:09 #38733 [verbose] > newton_second_mps >> method >> seq.iterate_
00:09:09 #38734 [verbose] >
00:09:09 #38735 [verbose] >
00:09:09 #38736 [verbose] > inl kinetic_energy (particle_state st) =
00:09:09 #38737 [verbose] > inl m = st.mass
00:09:09 #38738 [verbose] > inl v = magnitude st.velocity
00:09:09 #38739 [verbose] > 0.5 * m * v ** 2
00:09:09 #38740 [verbose] >
00:09:09 #38741 [verbose] > inl system_ke (multi_particle_state sts) =
00:09:09 #38742 [verbose] > sts |> listm.map kinetic_energy |> listm'.sum
00:09:09 #38743 [verbose] >
00:09:09 #38744 [verbose] > inl linear_spring_pe k re (particle_state st1) (particle_state st2) =
00:09:09 #38745 [verbose] > inl r1 = st1.pos_vec
00:09:09 #38746 [verbose] > inl r2 = st2.pos_vec
00:09:09 #38747 [verbose] > inl r21 = r2 ^-^ r1
00:09:09 #38748 [verbose] > inl r21mag = magnitude r21
00:09:09 #38749 [verbose] > k * (r21mag - re) ** 2 / 2
00:09:09 #38750 [verbose] >
00:09:09 #38751 [verbose] > inl earth_surface_gravity_pe (particle_state st) =
00:09:09 #38752 [verbose] > inl g = 9.80665
00:09:09 #38753 [verbose] > inl m = st.mass
00:09:09 #38754 [verbose] > inl z = st.pos_vec.z
00:09:09 #38755 [verbose] > m * g * z
00:09:09 #38756 [verbose] >
00:09:09 #38757 [verbose] > inl two_springs_pe (multi_particle_state sts) =
00:09:09 #38758 [verbose] > inl st0 = sts |> listm'.item 0i32
00:09:09 #38759 [verbose] > inl st1 = sts |> listm'.item 1i32
00:09:09 #38760 [verbose] > linear_spring_pe 100 0.5 (default_particle_state ()) st0
00:09:09 #38761 [verbose] > + linear_spring_pe 100 0.5 st0 st1
00:09:09 #38762 [verbose] > + earth_surface_gravity_pe st0
00:09:09 #38763 [verbose] > + earth_surface_gravity_pe st1
00:09:09 #38764 [verbose] >
00:09:09 #38765 [verbose] > inl two_springs_me mpst =
00:09:09 #38766 [verbose] > system_ke mpst + two_springs_pe mpst
00:09:09 #38767 [verbose] >
00:09:09 #38768 [verbose] > inl ball_radius () = 0.03
00:09:09 #38769 [verbose] >
00:09:09 #38770 [verbose] > inl billiard_forces k =
00:09:09 #38771 [verbose] > [[ InternalForce (0, 1, billiard_force k (2 * ball_radius ())) ]]
00:09:09 #38772 [verbose] >
00:09:09 #38773 [verbose] > inl billiard_update n_method k dt =
00:09:09 #38774 [verbose] > update_mps (n_method dt) (billiard_forces k)
00:09:09 #38775 [verbose] >
00:09:09 #38776 [verbose] > inl billiard_initial () =
00:09:09 #38777 [verbose] > inl ball_mass = 0.160
00:09:09 #38778 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:09:09 #38779 [verbose] > multi_particle_state [[
00:09:09 #38780 [verbose] > particle_state {
00:09:09 #38781 [verbose] > default_particle_state' with
00:09:09 #38782 [verbose] > mass = ball_mass
00:09:09 #38783 [verbose] > pos_vec = zero_vec ()
00:09:09 #38784 [verbose] > velocity = 0.2 *^ i_hat ()
00:09:09 #38785 [verbose] > }
00:09:09 #38786 [verbose] > particle_state {
00:09:09 #38787 [verbose] > default_particle_state' with
00:09:09 #38788 [verbose] > mass = ball_mass
00:09:09 #38789 [verbose] > pos_vec = i_hat () ^+^ 0.02 *^ j_hat ()
00:09:09 #38790 [verbose] > velocity = zero_vec ()
00:09:09 #38791 [verbose] > }
00:09:09 #38792 [verbose] > ]]
00:09:09 #38793 [verbose] >
00:09:09 #38794 [verbose] > inl billiard_states ~n_method k dt =
00:09:09 #38795 [verbose] > states_mps (n_method dt) (billiard_forces k) (billiard_initial ())
00:09:09 #38796 [verbose] >
00:09:09 #38797 [verbose] > inl billiard_states_finite n_method k dt =
00:09:09 #38798 [verbose] > billiard_states n_method k dt
00:09:09 #38799 [verbose] > >> Some
00:09:09 #38800 [verbose] > |> seq.take_while_ (fun (multi_particle_state mpst) (_ : i32) =>
00:09:09 #38801 [verbose] > (mpst |> listm'.item 0i32).time <= 10
00:09:09 #38802 [verbose] > )
00:09:09 #38803 [verbose] >
00:09:09 #38804 [verbose] > inl momentum (particle_state st) =
00:09:09 #38805 [verbose] > inl m = st.mass
00:09:09 #38806 [verbose] > inl v = st.velocity
00:09:09 #38807 [verbose] > m *^ v
00:09:09 #38808 [verbose] >
00:09:09 #38809 [verbose] > inl system_p (multi_particle_state sts) =
00:09:09 #38810 [verbose] > sts |> listm.map momentum |> sum_vec
00:09:09 #38811 [verbose] >
00:09:09 #38812 [verbose] >
00:09:09 #38813 [verbose] > inl time_ke_ec_x, time_ke_ec_y =
00:09:09 #38814 [verbose] > billiard_states_finite euler_cromer_mps 30 0.03
00:09:09 #38815 [verbose] > |> listm.map (fun (multi_particle_state mpst) =>
00:09:09 #38816 [verbose] > (mpst |> listm'.item 0i32).time, system_ke (multi_particle_state mpst)
00:09:09 #38817 [verbose] > )
00:09:09 #38818 [verbose] > |> listm'.unzip
00:09:09 #38819 [verbose] >
00:09:09 #38820 [verbose] > inl time_ke_rk4_x, time_ke_rk4_y =
00:09:09 #38821 [verbose] > billiard_states_finite runge_kutta_4 30 0.03
00:09:09 #38822 [verbose] > |> listm.map (fun (multi_particle_state mpst) =>
00:09:09 #38823 [verbose] > (mpst |> listm'.item 0i32).time, system_ke (multi_particle_state mpst)
00:09:09 #38824 [verbose] > )
00:09:09 #38825 [verbose] > |> listm'.unzip
00:09:09 #38826 [verbose] >
00:09:09 #38827 [verbose] > inl time_ke_ec_x : a i32 _ = time_ke_ec_x |> listm.toArray
00:09:09 #38828 [verbose] > inl time_ke_ec_y : a i32 _ = time_ke_ec_y |> listm.toArray
00:09:09 #38829 [verbose] >
00:09:09 #38830 [verbose] > inl time_ke_rk4_x : a i32 _ = time_ke_rk4_x |> listm.toArray
00:09:09 #38831 [verbose] > inl time_ke_rk4_y : a i32 _ = time_ke_rk4_y |> listm.toArray
00:09:09 #38832 [verbose] >
00:09:09 #38833 [verbose] > "system kinetic energy versus time",
00:09:09 #38834 [verbose] > "time (s)",
00:09:09 #38835 [verbose] > "system kinetic energy (j)",
00:09:09 #38836 [verbose] > ;[[
00:09:09 #38837 [verbose] > "euler-cromer", time_ke_ec_x, time_ke_ec_y
00:09:09 #38838 [verbose] > "runge-kutta 4", time_ke_rk4_x, time_ke_rk4_y
00:09:09 #38839 [verbose] > ]]
00:09:09 #38840 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\47ae9c71253f23499704f357aa2cb3417cc1fc6aa2858a214b8da4a9208e65ca\main.spi
00:09:10 #38841 [verbose] >
00:09:10 #38842 [verbose] > ╭─[ 1.54s - return value ]─────────────────────────────────────────────────────╮
00:09:10 #38843 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:09:10 #38844 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:09:10 #38845 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:09:10 #38846 [verbose] > │ stroke="none"/> │
00:09:10 #38847 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:09:10 #38848 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:09:10 #38849 [verbose] > │ fill="#FFFFFF"> │
00:09:10 #38850 [verbose] > │ system kinetic energy versus time │
00:09:10 #38851 [verbose] > │ </text> │
00:09:10 #38852 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:09:10 #38853 [verbose] > │ y2="75"/> │
00:09:10 #38854 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:09:10 #38855 [verbose] > │ y2="75"/> │
00:09:10 #38856 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:09:10 #38857 [verbose] > │ y2="75"/> │
00:09:10 #38858 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:09:10 #38859 [verbose] > │ y2="75"/> │
00:09:10 #38860 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1... │
00:09:10 #38861 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:10 #38862 [verbose] >
00:09:10 #38863 [verbose] > ╭─[ 1.55s - stdout ]───────────────────────────────────────────────────────────╮
00:09:10 #38864 [verbose] > │ type UH0 = │
00:09:10 #38865 [verbose] > │ | UH0_0 │
00:09:10 #38866 [verbose] > │ | UH0_1 of float * float * float * float * float * float * float * float │
00:09:10 #38867 [verbose] > │ * float * UH0 │
00:09:10 #38868 [verbose] > │ and UH1 = │
00:09:10 #38869 [verbose] > │ | UH1_0 │
00:09:10 #38870 [verbose] > │ | UH1_1 of float * float * float * float * float * float * float * float │
00:09:10 #38871 [verbose] > │ * float * UH1 │
00:09:10 #38872 [verbose] > │ and UH2 = │
00:09:10 #38873 [verbose] > │ | UH2_0 │
00:09:10 #38874 [verbose] > │ | UH2_1 of float * float * float * float * float * float * float * float │
00:09:10 #38875 [verbose] > │ * float * float * float * float * float * float * float * float * float * │
00:09:10 #38876 [verbose] > │ float * UH2 │
00:09:10 #38877 [verbose] > │ and UH3 = │
00:09:10 #38878 [verbose] > │ | UH3_0 │
00:09:10 #38879 [verbose] > │ | UH3_1 of int32 * float * float * float * float * float * float * float │
00:09:10 #38880 [verbose] > │ * float * float * UH3 │
00:09:10 #38881 [verbose] > │ and [<Struct>] US0 = │
00:09:10 #38882 [verbose] > │ | US0_0 of f0_0 : float * f0_1 : float * f0_2 : float * f0_3 : float * │
00:09:10 #38883 [verbose] > │ f0_4 : float * f0_5 : float * f0_6 : float * f0_7 : float * f0_8 : float │
00:09:10 #38884 [verbose] > │ | US0_1 │
00:09:10 #38885 [verbose] > │ and UH4 = │
00:09:10 #38886 [verbose] > │ | UH4_0 │
00:09:10 #38887 [verbose] > │ | UH4_1 of UH0 * UH4 │
00:09:10 #38888 [verbose] > │ and UH5 = │
00:09:10 #38889 [verbose] > │ | UH5_0 │
00:09:10 #38890 [verbose] > │ | UH5_1 of float * float * UH5 │
00:09:10 #38891 [verbose] > │ and UH6 = │
00:09:10 #38892 [verbose] > │ | UH6_0 │
00:09:10 #38893 [verbose] > │ | UH6_1 of float * UH6 │
00:09:10 #38894 [verbose] > │ let rec method2 (v0 : UH0, v1 : UH0) : UH0 = │
00:09:10 #38895 [verbose] > │ match v0 with │
00:09:10 #38896 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:10 #38897 [verbose] > │ let v12 : UH0 = UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:09:10 #38898 [verbose] > │ method2(v11, v12) │
00:09:10 #38899 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:10 #38900 [verbose] > │ v1 │
00:09:10 #38901 [verbose] > │ and method1 (v0 : float, v1 : UH0, v2 : UH1, v3 : UH0) : UH0 = │
00:09:10 #38902 [verbose] > │ match v2 with │
00:09:10 #38903 [verbose] > │ | UH1_1(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* Cons *) │
00:09:10 #38904 [verbose] > │ match v3 with │
00:09:10 #38905 [verbose] > │ | UH0_1(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* Cons │
00:09:10 #38906 [verbose] > │ *) │
00:09:10 #38907 [verbose] > │ let v24 : float = v9 * v0 │
00:09:10 #38908 [verbose] > │ let v25 : float = v19 + v24 │
00:09:10 #38909 [verbose] > │ let v26 : float = v0 * v6 │
00:09:10 #38910 [verbose] > │ let v27 : float = v0 * v7 │
00:09:10 #38911 [verbose] > │ let v28 : float = v0 * v8 │
00:09:10 #38912 [verbose] > │ let v29 : float = v16 + v26 │
00:09:10 #38913 [verbose] > │ let v30 : float = v17 + v27 │
00:09:10 #38914 [verbose] > │ let v31 : float = v18 + v28 │
00:09:10 #38915 [verbose] > │ let v32 : float = v0 * v10 │
00:09:10 #38916 [verbose] > │ let v33 : float = v0 * v11 │
00:09:10 #38917 [verbose] > │ let v34 : float = v0 * v12 │
00:09:10 #38918 [verbose] > │ let v35 : float = v20 + v32 │
00:09:10 #38919 [verbose] > │ let v36 : float = v21 + v33 │
00:09:10 #38920 [verbose] > │ let v37 : float = v22 + v34 │
00:09:10 #38921 [verbose] > │ let v38 : UH0 = UH0_1(v14, v15, v29, v30, v31, v25, v35, v36, │
00:09:10 #38922 [verbose] > │ v37, v1) │
00:09:10 #38923 [verbose] > │ method1(v0, v38, v13, v23) │
00:09:10 #38924 [verbose] > │ | _ -> │
00:09:10 #38925 [verbose] > │ let v40 : UH0 = UH0_0 │
00:09:10 #38926 [verbose] > │ method2(v1, v40) │
00:09:10 #38927 [verbose] > │ | _ -> │
00:09:10 #38928 [verbose] > │ let v43 : UH0 = UH0_0 │
00:09:10 #38929 [verbose] > │ method2(v1, v43) │
00:09:10 #38930 [verbose] > │ and method4 (v0 : UH2, v1 : UH2) : UH2 = │
00:09:10 #38931 [verbose] > │ match v0 with │
00:09:10 #38932 [verbose] > │ | UH2_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, │
00:09:10 #38933 [verbose] > │ v16, v17, v18, v19, v20) -> (* Cons *) │
00:09:10 #38934 [verbose] > │ let v21 : UH2 = UH2_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, │
00:09:10 #38935 [verbose] > │ v13, v14, v15, v16, v17, v18, v19, v1) │
00:09:10 #38936 [verbose] > │ method4(v20, v21) │
00:09:10 #38937 [verbose] > │ | UH2_0 -> (* Nil *) │
00:09:10 #38938 [verbose] > │ v1 │
00:09:10 #38939 [verbose] > │ and method3 (v0 : UH2, v1 : UH0, v2 : UH0) : UH2 = │
00:09:10 #38940 [verbose] > │ match v1 with │
00:09:10 #38941 [verbose] > │ | UH0_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:09:10 #38942 [verbose] > │ match v2 with │
00:09:10 #38943 [verbose] > │ | UH0_1(v13, v14, v15, v16, v17, v18, v19, v20, v21, v22) -> (* Cons │
00:09:10 #38944 [verbose] > │ *) │
00:09:10 #38945 [verbose] > │ let v23 : UH2 = UH2_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v13, │
00:09:10 #38946 [verbose] > │ v14, v15, v16, v17, v18, v19, v20, v21, v0) │
00:09:10 #38947 [verbose] > │ method3(v23, v12, v22) │
00:09:10 #38948 [verbose] > │ | _ -> │
00:09:10 #38949 [verbose] > │ let v25 : UH2 = UH2_0 │
00:09:10 #38950 [verbose] > │ method4(v0, v25) │
00:09:10 #38951 [verbose] > │ | _ -> │
00:09:10 #38952 [verbose] > │ let v28 : UH2 = UH2_0 │
00:09:10 #38953 [verbose] > │ method4(v0, v28) │
00:09:10 #38954 [verbose] > │ and method5 (v0 : float, v1 : UH2, v2 : UH0) : UH0 = │
00:09:10 #38955 [verbose] > │ match v1 with │
00:09:10 #38956 [verbose] > │ | UH2_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, │
00:09:10 #38957 [verbose] > │ v17, v18, v19, v20, v21) -> (* Cons *) │
00:09:10 #38958 [verbose] > │ let v22 : UH0 = method5(v0, v21, v2) │
00:09:10 #38959 [verbose] > │ let v23 : float = v0 * v18 │
00:09:10 #38960 [verbose] > │ let v24 : float = v0 * v19 │
00:09:10 #38961 [verbose] > │ let v25 : float = v0 * v20 │
00:09:10 #38962 [verbose] > │ let v26 : float = v5 + v23 │
00:09:10 #38963 [verbose] > │ let v27 : float = v6 + v24 │
00:09:10 #38964 [verbose] > │ let v28 : float = v7 + v25 │
00:09:10 #38965 [verbose] > │ UH0_1(v12, v13, v26, v27, v28, v17, v18, v19, v20, v22) │
00:09:10 #38966 [verbose] > │ | UH2_0 -> (* Nil *) │
00:09:10 #38967 [verbose] > │ v2 │
00:09:10 #38968 [verbose] > │ and closure2 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:09:10 #38969 [verbose] > │ let v3 : UH1 = v1 v2 │
00:09:10 #38970 [verbose] > │ let v4 : UH0 = UH0_0 │
00:09:10 #38971 [verbose] > │ let v5 : UH0 = method1(v0, v4, v3, v2) │
00:09:10 #38972 [verbose] > │ let v6 : UH2 = UH2_0 │
00:09:10 #38973 [verbose] > │ let v7 : UH2 = method3(v6, v2, v5) │
00:09:10 #38974 [verbose] > │ let v8 : UH0 = UH0_0 │
00:09:10 #38975 [verbose] > │ let v9 : UH0 = method5(v0, v7, v8) │
00:09:10 #38976 [verbose] > │ v9 │
00:09:10 #38977 [verbose] > │ and closure1 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:09:10 #38978 [verbose] > │ closure2(v0, v1) │
00:09:10 #38979 [verbose] > │ and closure0 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:09:10 #38980 [verbose] > │ closure1(v0) │
00:09:10 #38981 [verbose] > │ and method6 (v0 : UH0, v1 : UH3, v2 : int32) : struct (UH3 * int32) = │
00:09:10 #38982 [verbose] > │ match v0 with │
00:09:10 #38983 [verbose] > │ | UH0_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:09:10 #38984 [verbose] > │ let v13 : int32 = v2 + 1 │
00:09:10 #38985 [verbose] > │ let v14 : UH3 = UH3_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v1) │
00:09:10 #38986 [verbose] > │ method6(v12, v14, v13) │
00:09:10 #38987 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:10 #38988 [verbose] > │ struct (v1, v2) │
00:09:10 #38989 [verbose] > │ and method7 (v0 : UH3, v1 : UH3) : UH3 = │
00:09:10 #38990 [verbose] > │ match v0 with │
00:09:10 #38991 [verbose] > │ | UH3_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:09:10 #38992 [verbose] > │ let v13 : UH3 = UH3_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v1) │
00:09:10 #38993 [verbose] > │ method7(v12, v13) │
00:09:10 #38994 [verbose] > │ | UH3_0 -> (* Nil *) │
00:09:10 #38995 [verbose] > │ v1 │
00:09:10 #38996 [verbose] > │ and closure4 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, v5 │
00:09:10 #38997 [verbose] > │ : float, v6 : float, v7 : float, v8 : float) struct (v9 : float, v10 : │
00:09:10 #38998 [verbose] > │ float, v11 : float, v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:09:10 #38999 [verbose] > │ : float, v17 : float) : struct (float * float * float) = │
00:09:10 #39000 [verbose] > │ let v18 : float = -1.0 * v2 │
00:09:10 #39001 [verbose] > │ let v19 : float = -1.0 * v3 │
00:09:10 #39002 [verbose] > │ let v20 : float = -1.0 * v4 │
00:09:10 #39003 [verbose] > │ let v21 : float = v11 + v18 │
00:09:10 #39004 [verbose] > │ let v22 : float = v12 + v19 │
00:09:10 #39005 [verbose] > │ let v23 : float = v13 + v20 │
00:09:10 #39006 [verbose] > │ let v24 : float = v21 * v21 │
00:09:10 #39007 [verbose] > │ let v25 : float = v22 * v22 │
00:09:10 #39008 [verbose] > │ let v26 : float = v24 + v25 │
00:09:10 #39009 [verbose] > │ let v27 : float = v23 * v23 │
00:09:10 #39010 [verbose] > │ let v28 : float = v26 + v27 │
00:09:10 #39011 [verbose] > │ let v29 : float = sqrt v28 │
00:09:10 #39012 [verbose] > │ let v30 : bool = v29 >= 0.06 │
00:09:10 #39013 [verbose] > │ let v33 : float = │
00:09:10 #39014 [verbose] > │ if v30 then │
00:09:10 #39015 [verbose] > │ 0.0 │
00:09:10 #39016 [verbose] > │ else │
00:09:10 #39017 [verbose] > │ let v31 : float = v29 - 0.06 │
00:09:10 #39018 [verbose] > │ let v32 : float = -30.0 * v31 │
00:09:10 #39019 [verbose] > │ v32 │
00:09:10 #39020 [verbose] > │ let v34 : float = v33 * v21 │
00:09:10 #39021 [verbose] > │ let v35 : float = v33 * v22 │
00:09:10 #39022 [verbose] > │ let v36 : float = v33 * v23 │
00:09:10 #39023 [verbose] > │ let v37 : float = v34 / v29 │
00:09:10 #39024 [verbose] > │ let v38 : float = v35 / v29 │
00:09:10 #39025 [verbose] > │ let v39 : float = v36 / v29 │
00:09:10 #39026 [verbose] > │ struct (v37, v38, v39) │
00:09:10 #39027 [verbose] > │ and closure5 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 : │
00:09:10 #39028 [verbose] > │ float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:09:10 #39029 [verbose] > │ float * float) = │
00:09:10 #39030 [verbose] > │ struct (0.0, 0.0, 0.0) │
00:09:10 #39031 [verbose] > │ and method8 (v0 : UH0, v1 : UH3, v2 : UH1) : UH1 = │
00:09:10 #39032 [verbose] > │ match v1 with │
00:09:10 #39033 [verbose] > │ | UH3_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* Cons *) │
00:09:10 #39034 [verbose] > │ let v14 : UH1 = method8(v0, v13, v2) │
00:09:10 #39035 [verbose] > │ let v15 : bool = v3 = 0 │
00:09:10 #39036 [verbose] > │ let v134 : (struct (float * float * float * float * float * float * │
00:09:10 #39037 [verbose] > │ float * float * float) -> struct (float * float * float)) = │
00:09:10 #39038 [verbose] > │ if v15 then │
00:09:10 #39039 [verbose] > │ let v42 : US0 = │
00:09:10 #39040 [verbose] > │ match v0 with │
00:09:10 #39041 [verbose] > │ | UH0_1(v16, v17, v18, v19, v20, v21, v22, v23, v24, │
00:09:10 #39042 [verbose] > │ v25) -> (* Cons *) │
00:09:10 #39043 [verbose] > │ match v25 with │
00:09:10 #39044 [verbose] > │ | UH0_1(v26, v27, v28, v29, v30, v31, v32, v33, v34, │
00:09:10 #39045 [verbose] > │ v35) -> (* Cons *) │
00:09:10 #39046 [verbose] > │ US0_0(v26, v27, v28, v29, v30, v31, v32, v33, │
00:09:10 #39047 [verbose] > │ v34) │
00:09:10 #39048 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:10 #39049 [verbose] > │ US0_1 │
00:09:10 #39050 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:10 #39051 [verbose] > │ US0_1 │
00:09:10 #39052 [verbose] > │ let struct (v70 : float, v71 : float, v72 : float, v73 : │
00:09:10 #39053 [verbose] > │ float, v74 : float, v75 : float, v76 : float, v77 : float, v78 : float) = │
00:09:10 #39054 [verbose] > │ match v42 with │
00:09:10 #39055 [verbose] > │ | US0_1 -> (* None *) │
00:09:10 #39056 [verbose] > │ failwith<struct (float * float * float * float * │
00:09:10 #39057 [verbose] > │ float * float * float * float * float)> "Option does not have a value." │
00:09:10 #39058 [verbose] > │ | US0_0(v43, v44, v45, v46, v47, v48, v49, v50, v51) -> │
00:09:10 #39059 [verbose] > │ (* Some *) │
00:09:10 #39060 [verbose] > │ struct (v43, v44, v45, v46, v47, v48, v49, v50, v51) │
00:09:10 #39061 [verbose] > │ closure4(v70, v71, v72, v73, v74, v75, v76, v77, v78) │
00:09:10 #39062 [verbose] > │ else │
00:09:10 #39063 [verbose] > │ let v80 : bool = v3 = 1 │
00:09:10 #39064 [verbose] > │ if v80 then │
00:09:10 #39065 [verbose] > │ let v94 : US0 = │
00:09:10 #39066 [verbose] > │ match v0 with │
00:09:10 #39067 [verbose] > │ | UH0_1(v81, v82, v83, v84, v85, v86, v87, v88, v89, │
00:09:10 #39068 [verbose] > │ v90) -> (* Cons *) │
00:09:10 #39069 [verbose] > │ US0_0(v81, v82, v83, v84, v85, v86, v87, v88, │
00:09:10 #39070 [verbose] > │ v89) │
00:09:10 #39071 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:10 #39072 [verbose] > │ US0_1 │
00:09:10 #39073 [verbose] > │ let struct (v122 : float, v123 : float, v124 : float, │
00:09:10 #39074 [verbose] > │ v125 : float, v126 : float, v127 : float, v128 : float, v129 : float, v130 : │
00:09:10 #39075 [verbose] > │ float) = │
00:09:10 #39076 [verbose] > │ match v94 with │
00:09:10 #39077 [verbose] > │ | US0_1 -> (* None *) │
00:09:10 #39078 [verbose] > │ failwith<struct (float * float * float * float * │
00:09:10 #39079 [verbose] > │ float * float * float * float * float)> "Option does not have a value." │
00:09:10 #39080 [verbose] > │ | US0_0(v95, v96, v97, v98, v99, v100, v101, v102, │
00:09:10 #39081 [verbose] > │ v103) -> (* Some *) │
00:09:10 #39082 [verbose] > │ struct (v95, v96, v97, v98, v99, v100, v101, │
00:09:10 #39083 [verbose] > │ v102, v103) │
00:09:10 #39084 [verbose] > │ closure4(v122, v123, v124, v125, v126, v127, v128, v129, │
00:09:10 #39085 [verbose] > │ v130) │
00:09:10 #39086 [verbose] > │ else │
00:09:10 #39087 [verbose] > │ closure5() │
00:09:10 #39088 [verbose] > │ let struct (v135 : float, v136 : float, v137 : float) = v134 struct │
00:09:10 #39089 [verbose] > │ (v4, v5, v6, v7, v8, v9, v10, v11, v12) │
00:09:10 #39090 [verbose] > │ let v138 : float = v135 / v5 │
00:09:10 #39091 [verbose] > │ let v139 : float = v136 / v5 │
00:09:10 #39092 [verbose] > │ let v140 : float = v137 / v5 │
00:09:10 #39093 [verbose] > │ UH1_1(0.0, 0.0, v10, v11, v12, 1.0, v138, v139, v140, v14) │
00:09:10 #39094 [verbose] > │ | UH3_0 -> (* Nil *) │
00:09:10 #39095 [verbose] > │ v2 │
00:09:10 #39096 [verbose] > │ and closure3 () (v0 : UH0) : UH1 = │
00:09:10 #39097 [verbose] > │ let v1 : UH3 = UH3_0 │
00:09:10 #39098 [verbose] > │ let v2 : int32 = 0 │
00:09:10 #39099 [verbose] > │ let struct (v3 : UH3, v4 : int32) = method6(v0, v1, v2) │
00:09:10 #39100 [verbose] > │ let v5 : UH3 = UH3_0 │
00:09:10 #39101 [verbose] > │ let v6 : UH3 = method7(v3, v5) │
00:09:10 #39102 [verbose] > │ let v7 : UH1 = UH1_0 │
00:09:10 #39103 [verbose] > │ let v8 : UH1 = method8(v0, v6, v7) │
00:09:10 #39104 [verbose] > │ v8 │
00:09:10 #39105 [verbose] > │ and method10 (v0 : (UH0 -> UH0), v1 : UH0, v2 : int32) : UH0 = │
00:09:10 #39106 [verbose] > │ let v3 : bool = v2 <= 0 │
00:09:10 #39107 [verbose] > │ if v3 then │
00:09:10 #39108 [verbose] > │ v1 │
00:09:10 #39109 [verbose] > │ else │
00:09:10 #39110 [verbose] > │ let v4 : UH0 = v0 v1 │
00:09:10 #39111 [verbose] > │ let v5 : int32 = v2 - 1 │
00:09:10 #39112 [verbose] > │ method10(v0, v4, v5) │
00:09:10 #39113 [verbose] > │ and method11 (v0 : UH4, v1 : UH4) : UH4 = │
00:09:10 #39114 [verbose] > │ match v0 with │
00:09:10 #39115 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:09:10 #39116 [verbose] > │ let v4 : UH4 = UH4_1(v2, v1) │
00:09:10 #39117 [verbose] > │ method11(v3, v4) │
00:09:10 #39118 [verbose] > │ | UH4_0 -> (* Nil *) │
00:09:10 #39119 [verbose] > │ v1 │
00:09:10 #39120 [verbose] > │ and method9 (v0 : (UH0 -> UH0), v1 : UH4, v2 : int32) : UH4 = │
00:09:10 #39121 [verbose] > │ let v3 : float = 0.0 │
00:09:10 #39122 [verbose] > │ let v4 : float = 0.16 │
00:09:10 #39123 [verbose] > │ let v5 : float = 0.0 │
00:09:10 #39124 [verbose] > │ let v6 : float = 0.0 │
00:09:10 #39125 [verbose] > │ let v7 : float = 0.0 │
00:09:10 #39126 [verbose] > │ let v8 : float = 0.0 │
00:09:10 #39127 [verbose] > │ let v9 : float = 0.2 │
00:09:10 #39128 [verbose] > │ let v10 : float = 0.0 │
00:09:10 #39129 [verbose] > │ let v11 : float = 0.0 │
00:09:10 #39130 [verbose] > │ let v12 : float = 1.0 │
00:09:10 #39131 [verbose] > │ let v13 : float = 0.02 │
00:09:10 #39132 [verbose] > │ let v14 : float = 0.0 │
00:09:10 #39133 [verbose] > │ let v15 : float = 0.0 │
00:09:10 #39134 [verbose] > │ let v16 : float = 0.0 │
00:09:10 #39135 [verbose] > │ let v17 : float = 0.0 │
00:09:10 #39136 [verbose] > │ let v18 : UH0 = UH0_0 │
00:09:10 #39137 [verbose] > │ let v19 : UH0 = UH0_1(v3, v4, v12, v13, v14, v8, v15, v16, v17, v18) │
00:09:10 #39138 [verbose] > │ let v20 : UH0 = UH0_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v19) │
00:09:10 #39139 [verbose] > │ let v21 : UH0 = method10(v0, v20, v2) │
00:09:10 #39140 [verbose] > │ let v35 : US0 = │
00:09:10 #39141 [verbose] > │ match v21 with │
00:09:10 #39142 [verbose] > │ | UH0_1(v22, v23, v24, v25, v26, v27, v28, v29, v30, v31) -> (* Cons │
00:09:10 #39143 [verbose] > │ *) │
00:09:10 #39144 [verbose] > │ US0_0(v22, v23, v24, v25, v26, v27, v28, v29, v30) │
00:09:10 #39145 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:10 #39146 [verbose] > │ US0_1 │
00:09:10 #39147 [verbose] > │ let struct (v63 : float, v64 : float, v65 : float, v66 : float, v67 : │
00:09:10 #39148 [verbose] > │ float, v68 : float, v69 : float, v70 : float, v71 : float) = │
00:09:10 #39149 [verbose] > │ match v35 with │
00:09:10 #39150 [verbose] > │ | US0_1 -> (* None *) │
00:09:10 #39151 [verbose] > │ failwith<struct (float * float * float * float * float * float * │
00:09:10 #39152 [verbose] > │ float * float * float)> "Option does not have a value." │
00:09:10 #39153 [verbose] > │ | US0_0(v36, v37, v38, v39, v40, v41, v42, v43, v44) -> (* Some *) │
00:09:10 #39154 [verbose] > │ struct (v36, v37, v38, v39, v40, v41, v42, v43, v44) │
00:09:10 #39155 [verbose] > │ let v72 : bool = v68 <= 10.0 │
00:09:10 #39156 [verbose] > │ if v72 then │
00:09:10 #39157 [verbose] > │ let v73 : UH4 = UH4_1(v21, v1) │
00:09:10 #39158 [verbose] > │ let v74 : int32 = v2 + 1 │
00:09:10 #39159 [verbose] > │ method9(v0, v73, v74) │
00:09:10 #39160 [verbose] > │ else │
00:09:10 #39161 [verbose] > │ let v76 : UH4 = UH4_0 │
00:09:10 #39162 [verbose] > │ method11(v1, v76) │
00:09:10 #39163 [verbose] > │ and method13 (v0 : UH0, v1 : UH6) : UH6 = │
00:09:10 #39164 [verbose] > │ match v0 with │
00:09:10 #39165 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:10 #39166 [verbose] > │ let v12 : UH6 = method13(v11, v1) │
00:09:10 #39167 [verbose] > │ let v13 : float = v8 * v8 │
00:09:10 #39168 [verbose] > │ let v14 : float = v9 * v9 │
00:09:10 #39169 [verbose] > │ let v15 : float = v13 + v14 │
00:09:10 #39170 [verbose] > │ let v16 : float = v10 * v10 │
00:09:10 #39171 [verbose] > │ let v17 : float = v15 + v16 │
00:09:10 #39172 [verbose] > │ let v18 : float = sqrt v17 │
00:09:10 #39173 [verbose] > │ let v19 : float = 0.5 * v3 │
00:09:10 #39174 [verbose] > │ let v20 : float = v18 ** 2.0 │
00:09:10 #39175 [verbose] > │ let v21 : float = v19 * v20 │
00:09:10 #39176 [verbose] > │ UH6_1(v21, v12) │
00:09:10 #39177 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:10 #39178 [verbose] > │ v1 │
00:09:10 #39179 [verbose] > │ and method14 (v0 : UH6, v1 : float) : float = │
00:09:10 #39180 [verbose] > │ match v0 with │
00:09:10 #39181 [verbose] > │ | UH6_1(v2, v3) -> (* Cons *) │
00:09:10 #39182 [verbose] > │ let v4 : float = v1 + v2 │
00:09:10 #39183 [verbose] > │ method14(v3, v4) │
00:09:10 #39184 [verbose] > │ | UH6_0 -> (* Nil *) │
00:09:10 #39185 [verbose] > │ v1 │
00:09:10 #39186 [verbose] > │ and method12 (v0 : UH4, v1 : UH5) : UH5 = │
00:09:10 #39187 [verbose] > │ match v0 with │
00:09:10 #39188 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:09:10 #39189 [verbose] > │ let v4 : UH5 = method12(v3, v1) │
00:09:10 #39190 [verbose] > │ let v18 : US0 = │
00:09:10 #39191 [verbose] > │ match v2 with │
00:09:10 #39192 [verbose] > │ | UH0_1(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* Cons │
00:09:10 #39193 [verbose] > │ *) │
00:09:10 #39194 [verbose] > │ US0_0(v5, v6, v7, v8, v9, v10, v11, v12, v13) │
00:09:10 #39195 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:10 #39196 [verbose] > │ US0_1 │
00:09:10 #39197 [verbose] > │ let struct (v46 : float, v47 : float, v48 : float, v49 : float, v50 │
00:09:10 #39198 [verbose] > │ : float, v51 : float, v52 : float, v53 : float, v54 : float) = │
00:09:10 #39199 [verbose] > │ match v18 with │
00:09:10 #39200 [verbose] > │ | US0_1 -> (* None *) │
00:09:10 #39201 [verbose] > │ failwith<struct (float * float * float * float * float * │
00:09:10 #39202 [verbose] > │ float * float * float * float)> "Option does not have a value." │
00:09:10 #39203 [verbose] > │ | US0_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* Some │
00:09:10 #39204 [verbose] > │ *) │
00:09:10 #39205 [verbose] > │ struct (v19, v20, v21, v22, v23, v24, v25, v26, v27) │
00:09:10 #39206 [verbose] > │ let v55 : UH6 = UH6_0 │
00:09:10 #39207 [verbose] > │ let v56 : UH6 = method13(v2, v55) │
00:09:10 #39208 [verbose] > │ let v57 : float = 0.0 │
00:09:10 #39209 [verbose] > │ let v58 : float = method14(v56, v57) │
00:09:10 #39210 [verbose] > │ UH5_1(v51, v58, v4) │
00:09:10 #39211 [verbose] > │ | UH4_0 -> (* Nil *) │
00:09:10 #39212 [verbose] > │ v1 │
00:09:10 #39213 [verbose] > │ and method15 (v0 : UH5, v1 : UH6, v2 : UH6) : struct (UH6 * UH6) = │
00:09:10 #39214 [verbose] > │ match v0 with │
00:09:10 #39215 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:09:10 #39216 [verbose] > │ let v6 : UH6 = UH6_1(v3, v1) │
00:09:10 #39217 [verbose] > │ let v7 : UH6 = UH6_1(v4, v2) │
00:09:10 #39218 [verbose] > │ method15(v5, v6, v7) │
00:09:10 #39219 [verbose] > │ | UH5_0 -> (* Nil *) │
00:09:10 #39220 [verbose] > │ struct (v1, v2) │
00:09:10 #39221 [verbose] > │ and method16 (v0 : UH6, v1 : UH6) : UH6 = │
00:09:10 #39222 [verbose] > │ match v0 with │
00:09:10 #39223 [verbose] > │ | UH6_1(v2, v3) -> (* Cons *) │
00:09:10 #39224 [verbose] > │ let v4 : UH6 = UH6_1(v2, v1) │
00:09:10 #39225 [verbose] > │ method16(v3, v4) │
00:09:10 #39226 [verbose] > │ | UH6_0 -> (* Nil *) │
00:09:10 #39227 [verbose] > │ v1 │
00:09:10 #39228 [verbose] > │ and method18 (v0 : UH1, v1 : UH1) : UH1 = │
00:09:10 #39229 [verbose] > │ match v0 with │
00:09:10 #39230 [verbose] > │ | UH1_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* Cons *) │
00:09:10 #39231 [verbose] > │ let v12 : UH1 = UH1_1(v2, v3, v4, v5, v6, v7, v8, v9, v10, v1) │
00:09:10 #39232 [verbose] > │ method18(v11, v12) │
00:09:10 #39233 [verbose] > │ | UH1_0 -> (* Nil *) │
00:09:10 #39234 [verbose] > │ v1 │
00:09:10 #39235 [verbose] > │ and method17 (v0 : UH1, v1 : UH1, v2 : UH1) : UH1 = │
00:09:10 #39236 [verbose] > │ match v1 with │
00:09:10 #39237 [verbose] > │ | UH1_1(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* Cons *) │
00:09:10 #39238 [verbose] > │ match v2 with │
00:09:10 #39239 [verbose] > │ | UH1_1(v13, v14, v15, v16, v17, v18, v19, v20, v21, v22) -> (* Cons │
00:09:10 #39240 [verbose] > │ *) │
00:09:10 #39241 [verbose] > │ let v23 : float = v3 + v13 │
00:09:10 #39242 [verbose] > │ let v24 : float = v4 + v14 │
00:09:10 #39243 [verbose] > │ let v25 : float = v8 + v18 │
00:09:10 #39244 [verbose] > │ let v26 : float = v5 + v15 │
00:09:10 #39245 [verbose] > │ let v27 : float = v6 + v16 │
00:09:10 #39246 [verbose] > │ let v28 : float = v7 + v17 │
00:09:10 #39247 [verbose] > │ let v29 : float = v9 + v19 │
00:09:10 #39248 [verbose] > │ let v30 : float = v10 + v20 │
00:09:10 #39249 [verbose] > │ let v31 : float = v11 + v21 │
00:09:10 #39250 [verbose] > │ let v32 : UH1 = UH1_1(v23, v24, v26, v27, v28, v25, v29, v30, │
00:09:10 #39251 [verbose] > │ v31, v0) │
00:09:10 #39252 [verbose] > │ method17(v32, v12, v22) │
00:09:10 #39253 [verbose] > │ | _ -> │
00:09:10 #39254 [verbose] > │ let v34 : UH1 = UH1_0 │
00:09:10 #39255 [verbose] > │ method18(v0, v34) │
00:09:10 #39256 [verbose] > │ | _ -> │
00:09:10 #39257 [verbose] > │ let v37 : UH1 = UH1_0 │
00:09:10 #39258 [verbose] > │ method18(v0, v37) │
00:09:10 #39259 [verbose] > │ and closure8 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:09:10 #39260 [verbose] > │ let v3 : UH1 = v1 v2 │
00:09:10 #39261 [verbose] > │ let v4 : float = v0 / 2.0 │
00:09:10 #39262 [verbose] > │ let v5 : UH0 = UH0_0 │
00:09:10 #39263 [verbose] > │ let v6 : UH0 = method1(v4, v5, v3, v2) │
00:09:10 #39264 [verbose] > │ let v7 : UH1 = v1 v6 │
00:09:10 #39265 [verbose] > │ let v8 : UH0 = UH0_0 │
00:09:10 #39266 [verbose] > │ let v9 : UH0 = method1(v4, v8, v7, v2) │
00:09:10 #39267 [verbose] > │ let v10 : UH1 = v1 v9 │
00:09:10 #39268 [verbose] > │ let v11 : UH0 = UH0_0 │
00:09:10 #39269 [verbose] > │ let v12 : UH0 = method1(v0, v11, v10, v2) │
00:09:10 #39270 [verbose] > │ let v13 : UH1 = v1 v12 │
00:09:10 #39271 [verbose] > │ let v14 : float = v0 / 6.0 │
00:09:10 #39272 [verbose] > │ let v15 : UH1 = UH1_0 │
00:09:10 #39273 [verbose] > │ let v16 : UH1 = method17(v15, v3, v7) │
00:09:10 #39274 [verbose] > │ let v17 : UH1 = UH1_0 │
00:09:10 #39275 [verbose] > │ let v18 : UH1 = method17(v17, v16, v7) │
00:09:10 #39276 [verbose] > │ let v19 : UH1 = UH1_0 │
00:09:10 #39277 [verbose] > │ let v20 : UH1 = method17(v19, v18, v10) │
00:09:10 #39278 [verbose] > │ let v21 : UH1 = UH1_0 │
00:09:10 #39279 [verbose] > │ let v22 : UH1 = method17(v21, v20, v10) │
00:09:10 #39280 [verbose] > │ let v23 : UH1 = UH1_0 │
00:09:10 #39281 [verbose] > │ let v24 : UH1 = method17(v23, v22, v13) │
00:09:10 #39282 [verbose] > │ let v25 : UH0 = UH0_0 │
00:09:10 #39283 [verbose] > │ let v26 : UH0 = method1(v14, v25, v24, v2) │
00:09:10 #39284 [verbose] > │ v26 │
00:09:10 #39285 [verbose] > │ and closure7 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:09:10 #39286 [verbose] > │ closure8(v0, v1) │
00:09:10 #39287 [verbose] > │ and closure6 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:09:10 #39288 [verbose] > │ closure7(v0) │
00:09:10 #39289 [verbose] > │ and method19 (v0 : UH4, v1 : UH5) : UH5 = │
00:09:10 #39290 [verbose] > │ match v0 with │
00:09:10 #39291 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:09:10 #39292 [verbose] > │ let v4 : UH5 = method19(v3, v1) │
00:09:10 #39293 [verbose] > │ let v18 : US0 = │
00:09:10 #39294 [verbose] > │ match v2 with │
00:09:10 #39295 [verbose] > │ | UH0_1(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* Cons │
00:09:10 #39296 [verbose] > │ *) │
00:09:10 #39297 [verbose] > │ US0_0(v5, v6, v7, v8, v9, v10, v11, v12, v13) │
00:09:10 #39298 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:10 #39299 [verbose] > │ US0_1 │
00:09:10 #39300 [verbose] > │ let struct (v46 : float, v47 : float, v48 : float, v49 : float, v50 │
00:09:10 #39301 [verbose] > │ : float, v51 : float, v52 : float, v53 : float, v54 : float) = │
00:09:10 #39302 [verbose] > │ match v18 with │
00:09:10 #39303 [verbose] > │ | US0_1 -> (* None *) │
00:09:10 #39304 [verbose] > │ failwith<struct (float * float * float * float * float * │
00:09:10 #39305 [verbose] > │ float * float * float * float)> "Option does not have a value." │
00:09:10 #39306 [verbose] > │ | US0_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* Some │
00:09:10 #39307 [verbose] > │ *) │
00:09:10 #39308 [verbose] > │ struct (v19, v20, v21, v22, v23, v24, v25, v26, v27) │
00:09:10 #39309 [verbose] > │ let v55 : UH6 = UH6_0 │
00:09:10 #39310 [verbose] > │ let v56 : UH6 = method13(v2, v55) │
00:09:10 #39311 [verbose] > │ let v57 : float = 0.0 │
00:09:10 #39312 [verbose] > │ let v58 : float = method14(v56, v57) │
00:09:10 #39313 [verbose] > │ UH5_1(v51, v58, v4) │
00:09:10 #39314 [verbose] > │ | UH4_0 -> (* Nil *) │
00:09:10 #39315 [verbose] > │ v1 │
00:09:10 #39316 [verbose] > │ and method21 (v0 : UH6, v1 : int32) : int32 = │
00:09:10 #39317 [verbose] > │ match v0 with │
00:09:10 #39318 [verbose] > │ | UH6_1(v2, v3) -> (* Cons *) │
00:09:10 #39319 [verbose] > │ let v4 : int32 = v1 + 1 │
00:09:10 #39320 [verbose] > │ method21(v3, v4) │
00:09:10 #39321 [verbose] > │ | UH6_0 -> (* Nil *) │
00:09:10 #39322 [verbose] > │ v1 │
00:09:10 #39323 [verbose] > │ and method22 (v0 : (float []), v1 : UH6, v2 : int32) : int32 = │
00:09:10 #39324 [verbose] > │ match v1 with │
00:09:10 #39325 [verbose] > │ | UH6_1(v3, v4) -> (* Cons *) │
00:09:10 #39326 [verbose] > │ v0.[int v2] <- v3 │
00:09:10 #39327 [verbose] > │ let v5 : int32 = v2 + 1 │
00:09:10 #39328 [verbose] > │ method22(v0, v4, v5) │
00:09:10 #39329 [verbose] > │ | UH6_0 -> (* Nil *) │
00:09:10 #39330 [verbose] > │ v2 │
00:09:10 #39331 [verbose] > │ and method20 (v0 : UH6) : (float []) = │
00:09:10 #39332 [verbose] > │ let v1 : int32 = 0 │
00:09:10 #39333 [verbose] > │ let v2 : int32 = method21(v0, v1) │
00:09:10 #39334 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:09:10 #39335 [verbose] > │ let v4 : int32 = 0 │
00:09:10 #39336 [verbose] > │ let v5 : int32 = method22(v3, v0, v4) │
00:09:10 #39337 [verbose] > │ v3 │
00:09:10 #39338 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:09:10 #39339 [verbose] > │ []) * (float [])) [])) = │
00:09:10 #39340 [verbose] > │ let v0 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure0() │
00:09:10 #39341 [verbose] > │ let v1 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v0 0.03 │
00:09:10 #39342 [verbose] > │ let v2 : (UH0 -> UH1) = closure3() │
00:09:10 #39343 [verbose] > │ let v3 : (UH0 -> UH0) = v1 v2 │
00:09:10 #39344 [verbose] > │ let v4 : UH4 = UH4_0 │
00:09:10 #39345 [verbose] > │ let v5 : int32 = 0 │
00:09:10 #39346 [verbose] > │ let v6 : UH4 = method9(v3, v4, v5) │
00:09:10 #39347 [verbose] > │ let v7 : UH5 = UH5_0 │
00:09:10 #39348 [verbose] > │ let v8 : UH5 = method12(v6, v7) │
00:09:10 #39349 [verbose] > │ let v9 : UH6 = UH6_0 │
00:09:10 #39350 [verbose] > │ let v10 : UH6 = UH6_0 │
00:09:10 #39351 [verbose] > │ let struct (v11 : UH6, v12 : UH6) = method15(v8, v9, v10) │
00:09:10 #39352 [verbose] > │ let v13 : UH6 = UH6_0 │
00:09:10 #39353 [verbose] > │ let v14 : UH6 = method16(v11, v13) │
00:09:10 #39354 [verbose] > │ let v15 : UH6 = UH6_0 │
00:09:10 #39355 [verbose] > │ let v16 : UH6 = method16(v12, v15) │
00:09:10 #39356 [verbose] > │ let v17 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure6() │
00:09:10 #39357 [verbose] > │ let v18 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v17 0.03 │
00:09:10 #39358 [verbose] > │ let v19 : (UH0 -> UH0) = v18 v2 │
00:09:10 #39359 [verbose] > │ let v20 : UH4 = UH4_0 │
00:09:10 #39360 [verbose] > │ let v21 : int32 = 0 │
00:09:10 #39361 [verbose] > │ let v22 : UH4 = method9(v19, v20, v21) │
00:09:10 #39362 [verbose] > │ let v23 : UH5 = UH5_0 │
00:09:10 #39363 [verbose] > │ let v24 : UH5 = method19(v22, v23) │
00:09:10 #39364 [verbose] > │ let v25 : UH6 = UH6_0 │
00:09:10 #39365 [verbose] > │ let v26 : UH6 = UH6_0 │
00:09:10 #39366 [verbose] > │ let struct (v27 : UH6, v28 : UH6) = method15(v24, v25, v26) │
00:09:10 #39367 [verbose] > │ let v29 : UH6 = UH6_0 │
00:09:10 #39368 [verbose] > │ let v30 : UH6 = method16(v27, v29) │
00:09:10 #39369 [verbose] > │ let v31 : UH6 = UH6_0 │
00:09:10 #39370 [verbose] > │ let v32 : UH6 = method16(v28, v31) │
00:09:10 #39371 [verbose] > │ let v33 : (float []) = method20(v14) │
00:09:10 #39372 [verbose] > │ let v34 : (float []) = method20(v16) │
00:09:10 #39373 [verbose] > │ let v35 : (float []) = method20(v30) │
00:09:10 #39374 [verbose] > │ let v36 : (float []) = method20(v32) │
00:09:10 #39375 [verbose] > │ let v37 : string = "euler-cromer" │
00:09:10 #39376 [verbose] > │ let v38 : string = "runge-kutta 4" │
00:09:10 #39377 [verbose] > │ let v39 : (struct (string * (float []) * (float [])) []) = [|struct │
00:09:10 #39378 [verbose] > │ (v37, v33, v34); struct (v38, v35, v36)|] │
00:09:10 #39379 [verbose] > │ let v40 : string = "system kinetic energy versus time" │
00:09:10 #39380 [verbose] > │ let v41 : string = "time (s)" │
00:09:10 #39381 [verbose] > │ let v42 : string = "system kinetic energy (j)" │
00:09:10 #39382 [verbose] > │ struct (v40, v41, v42, v39) │
00:09:10 #39383 [verbose] > │ method0() │
00:09:10 #39384 [verbose] > │ │
00:09:10 #39385 [verbose] > │ │
00:09:10 #39386 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:10 #39387 [verbose] >
00:09:10 #39388 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:10 #39389 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:10 #39390 [verbose] > │ ### wave 1 │
00:09:10 #39391 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:10 #39392 [verbose] >
00:09:10 #39393 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:10 #39394 [verbose] > // // test
00:09:10 #39395 [verbose] >
00:09:10 #39396 [verbose] > inl linear_spring k re (particle_state st1) (particle_state st2) =
00:09:10 #39397 [verbose] > inl r1 = st1.pos_vec
00:09:10 #39398 [verbose] > inl r2 = st2.pos_vec
00:09:10 #39399 [verbose] > inl r21 = r2 ^-^ r1
00:09:10 #39400 [verbose] > inl r21mag = magnitude r21
00:09:10 #39401 [verbose] > -k * (r21mag - re) *^ r21 ^/ r21mag
00:09:10 #39402 [verbose] >
00:09:10 #39403 [verbose] > inl fixed_linear_spring k re r1 =
00:09:10 #39404 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:09:10 #39405 [verbose] > linear_spring k re (particle_state { default_particle_state' with pos_vec =
00:09:10 #39406 [verbose] > r1 })
00:09:10 #39407 [verbose] >
00:09:10 #39408 [verbose] > inl forces_string () =
00:09:10 #39409 [verbose] > [[
00:09:10 #39410 [verbose] > ExternalForce (0, fixed_linear_spring 5384 0 (zero_vec ()))
00:09:10 #39411 [verbose] > ExternalForce (63, fixed_linear_spring 5384 0 (0.65 *^ i_hat ()))
00:09:10 #39412 [verbose] > ]] /@ (
00:09:10 #39413 [verbose] > listm'.init_series 0 59 1
00:09:10 #39414 [verbose] > |> listm.map (fun n => InternalForce (n, n + 1, linear_spring 5384 0))
00:09:10 #39415 [verbose] > )
00:09:10 #39416 [verbose] >
00:09:10 #39417 [verbose] > inl string_update dt =
00:09:10 #39418 [verbose] > update_mps (runge_kutta_4 dt) (forces_string ())
00:09:10 #39419 [verbose] >
00:09:10 #39420 [verbose] > inl string_initial_overtone n =
00:09:10 #39421 [verbose] > inl ball_mass = 0.0008293 * 0.65 / 64
00:09:10 #39422 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:09:10 #39423 [verbose] > listm'.init_series 0.01 0.64 0.01
00:09:10 #39424 [verbose] > |> listm.map (fun x =>
00:09:10 #39425 [verbose] > inl y = 0.005 * sin (conv n * pi * x / 0.65)
00:09:10 #39426 [verbose] > particle_state {
00:09:10 #39427 [verbose] > default_particle_state' with
00:09:10 #39428 [verbose] > mass = ball_mass
00:09:10 #39429 [verbose] > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:09:10 #39430 [verbose] > velocity = zero_vec ()
00:09:10 #39431 [verbose] > }
00:09:10 #39432 [verbose] > )
00:09:10 #39433 [verbose] > |> multi_particle_state
00:09:10 #39434 [verbose] >
00:09:10 #39435 [verbose] > inl string_initial_pluck () =
00:09:10 #39436 [verbose] > inl ball_mass = 0.0008293 * 0.65 / 64
00:09:10 #39437 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:09:10 #39438 [verbose] > listm'.init_series 0.01 0.64 0.01
00:09:10 #39439 [verbose] > |> listm.map (fun x =>
00:09:10 #39440 [verbose] > inl y =
00:09:10 #39441 [verbose] > inl n = if x <= 0.51 then 0 else 0.65
00:09:10 #39442 [verbose] > 0.005 / (0.51 - n) * (x - n)
00:09:10 #39443 [verbose] > particle_state {
00:09:10 #39444 [verbose] > default_particle_state' with
00:09:10 #39445 [verbose] > mass = ball_mass
00:09:10 #39446 [verbose] > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:09:10 #39447 [verbose] > velocity = zero_vec ()
00:09:10 #39448 [verbose] > }
00:09:10 #39449 [verbose] > )
00:09:10 #39450 [verbose] > |> multi_particle_state
00:09:10 #39451 [verbose] >
00:09:10 #39452 [verbose] > let main () =
00:09:10 #39453 [verbose] > inl ~frames = listm'.init_series 0 9 1f64
00:09:10 #39454 [verbose] > inl initial_state = string_initial_overtone 3i32
00:09:10 #39455 [verbose] > inl frames =
00:09:10 #39456 [verbose] > frames
00:09:10 #39457 [verbose] > |> listm.map (fun n =>
00:09:10 #39458 [verbose] > inl (multi_particle_state sts) =
00:09:10 #39459 [verbose] > seq.iterate' (string_update 0.000025) initial_state |> fun f =>
00:09:10 #39460 [verbose] > f 0f64
00:09:10 #39461 [verbose] > inl rs =
00:09:10 #39462 [verbose] > [[ zero_vec () ]]
00:09:10 #39463 [verbose] > /@ (sts |> listm.map (fun (particle_state st) => st.pos_vec))
00:09:10 #39464 [verbose] > /@ [[ 0.65 *^ i_hat () ]]
00:09:10 #39465 [verbose] > inl x, y =
00:09:10 #39466 [verbose] > rs
00:09:10 #39467 [verbose] > |> listm.map (fun r => r.x, r.y)
00:09:10 #39468 [verbose] > |> listm'.unzip
00:09:10 #39469 [verbose] > inl x : a i32 _ = x |> listm.toArray
00:09:10 #39470 [verbose] > inl y : a i32 _ = y |> listm.toArray
00:09:10 #39471 [verbose] > x, y
00:09:10 #39472 [verbose] > )
00:09:10 #39473 [verbose] > |> listm.toArray : a i32 _
00:09:10 #39474 [verbose] >
00:09:10 #39475 [verbose] > inl n = 0i32
00:09:10 #39476 [verbose] >
00:09:10 #39477 [verbose] > inl x, y = index frames n
00:09:10 #39478 [verbose] >
00:09:10 #39479 [verbose] > "wave",
00:09:10 #39480 [verbose] > "position (m)",
00:09:10 #39481 [verbose] > "displacement (m)",
00:09:10 #39482 [verbose] > ;[[
00:09:10 #39483 [verbose] > ($"$\"{!n}\"" : string), x, y
00:09:10 #39484 [verbose] > ]]
00:09:10 #39485 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\39a2117e8ec4f06264cfe19509b9f7e926f44c1427b679d3540db1632822c706\main.spi
00:09:11 #39486 [verbose] >
00:09:11 #39487 [verbose] > ╭─[ 489.30ms - return value ]──────────────────────────────────────────────────╮
00:09:11 #39488 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:09:11 #39489 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:09:11 #39490 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:09:11 #39491 [verbose] > │ stroke="none"/> │
00:09:11 #39492 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:09:11 #39493 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:09:11 #39494 [verbose] > │ fill="#FFFFFF"> │
00:09:11 #39495 [verbose] > │ wave │
00:09:11 #39496 [verbose] > │ </text> │
00:09:11 #39497 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:09:11 #39498 [verbose] > │ y2="75"/> │
00:09:11 #39499 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:09:11 #39500 [verbose] > │ y2="75"/> │
00:09:11 #39501 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:09:11 #39502 [verbose] > │ y2="75"/> │
00:09:11 #39503 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="85" y1="424" x2="85" │
00:09:11 #39504 [verbose] > │ y2="75"/> │
00:09:11 #39505 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="93" y1="424" x2="93" │
00:09:11 #39506 [verbose] > │ y2... │
00:09:11 #39507 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:11 #39508 [verbose] >
00:09:11 #39509 [verbose] > ╭─[ 500.55ms - stdout ]────────────────────────────────────────────────────────╮
00:09:11 #39510 [verbose] > │ type UH0 = │
00:09:11 #39511 [verbose] > │ | UH0_0 │
00:09:11 #39512 [verbose] > │ | UH0_1 of float * UH0 │
00:09:11 #39513 [verbose] > │ and UH1 = │
00:09:11 #39514 [verbose] > │ | UH1_0 │
00:09:11 #39515 [verbose] > │ | UH1_1 of (float []) * (float []) * UH1 │
00:09:11 #39516 [verbose] > │ let rec method3 (v0 : UH0, v1 : int32) : int32 = │
00:09:11 #39517 [verbose] > │ match v0 with │
00:09:11 #39518 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:09:11 #39519 [verbose] > │ let v4 : int32 = v1 + 1 │
00:09:11 #39520 [verbose] > │ method3(v3, v4) │
00:09:11 #39521 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:11 #39522 [verbose] > │ v1 │
00:09:11 #39523 [verbose] > │ and method4 (v0 : (float []), v1 : UH0, v2 : int32) : int32 = │
00:09:11 #39524 [verbose] > │ match v1 with │
00:09:11 #39525 [verbose] > │ | UH0_1(v3, v4) -> (* Cons *) │
00:09:11 #39526 [verbose] > │ v0.[int v2] <- v3 │
00:09:11 #39527 [verbose] > │ let v5 : int32 = v2 + 1 │
00:09:11 #39528 [verbose] > │ method4(v0, v4, v5) │
00:09:11 #39529 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:11 #39530 [verbose] > │ v2 │
00:09:11 #39531 [verbose] > │ and method2 (v0 : UH0) : (float []) = │
00:09:11 #39532 [verbose] > │ let v1 : int32 = 0 │
00:09:11 #39533 [verbose] > │ let v2 : int32 = method3(v0, v1) │
00:09:11 #39534 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:09:11 #39535 [verbose] > │ let v4 : int32 = 0 │
00:09:11 #39536 [verbose] > │ let v5 : int32 = method4(v3, v0, v4) │
00:09:11 #39537 [verbose] > │ v3 │
00:09:11 #39538 [verbose] > │ and method1 (v0 : UH0, v1 : UH1) : UH1 = │
00:09:11 #39539 [verbose] > │ match v0 with │
00:09:11 #39540 [verbose] > │ | UH0_1(v2, v3) -> (* Cons *) │
00:09:11 #39541 [verbose] > │ let v4 : UH1 = method1(v3, v1) │
00:09:11 #39542 [verbose] > │ let v5 : float = 0.0 │
00:09:11 #39543 [verbose] > │ let v6 : float = 0.01 │
00:09:11 #39544 [verbose] > │ let v7 : float = 0.02 │
00:09:11 #39545 [verbose] > │ let v8 : float = 0.03 │
00:09:11 #39546 [verbose] > │ let v9 : float = 0.04 │
00:09:11 #39547 [verbose] > │ let v10 : float = 0.05 │
00:09:11 #39548 [verbose] > │ let v11 : float = 0.060000000000000005 │
00:09:11 #39549 [verbose] > │ let v12 : float = 0.06999999999999999 │
00:09:11 #39550 [verbose] > │ let v13 : float = 0.08 │
00:09:11 #39551 [verbose] > │ let v14 : float = 0.09 │
00:09:11 #39552 [verbose] > │ let v15 : float = 0.09999999999999999 │
00:09:11 #39553 [verbose] > │ let v16 : float = 0.11 │
00:09:11 #39554 [verbose] > │ let v17 : float = 0.12 │
00:09:11 #39555 [verbose] > │ let v18 : float = 0.13 │
00:09:11 #39556 [verbose] > │ let v19 : float = 0.14 │
00:09:11 #39557 [verbose] > │ let v20 : float = 0.15000000000000002 │
00:09:11 #39558 [verbose] > │ let v21 : float = 0.16 │
00:09:11 #39559 [verbose] > │ let v22 : float = 0.17 │
00:09:11 #39560 [verbose] > │ let v23 : float = 0.18000000000000002 │
00:09:11 #39561 [verbose] > │ let v24 : float = 0.19 │
00:09:11 #39562 [verbose] > │ let v25 : float = 0.2 │
00:09:11 #39563 [verbose] > │ let v26 : float = 0.21000000000000002 │
00:09:11 #39564 [verbose] > │ let v27 : float = 0.22 │
00:09:11 #39565 [verbose] > │ let v28 : float = 0.23 │
00:09:11 #39566 [verbose] > │ let v29 : float = 0.24000000000000002 │
00:09:11 #39567 [verbose] > │ let v30 : float = 0.25 │
00:09:11 #39568 [verbose] > │ let v31 : float = 0.26 │
00:09:11 #39569 [verbose] > │ let v32 : float = 0.27 │
00:09:11 #39570 [verbose] > │ let v33 : float = 0.28 │
00:09:11 #39571 [verbose] > │ let v34 : float = 0.29000000000000004 │
00:09:11 #39572 [verbose] > │ let v35 : float = 0.3 │
00:09:11 #39573 [verbose] > │ let v36 : float = 0.31 │
00:09:11 #39574 [verbose] > │ let v37 : float = 0.32 │
00:09:11 #39575 [verbose] > │ let v38 : float = 0.33 │
00:09:11 #39576 [verbose] > │ let v39 : float = 0.34 │
00:09:11 #39577 [verbose] > │ let v40 : float = 0.35000000000000003 │
00:09:11 #39578 [verbose] > │ let v41 : float = 0.36000000000000004 │
00:09:11 #39579 [verbose] > │ let v42 : float = 0.37 │
00:09:11 #39580 [verbose] > │ let v43 : float = 0.38 │
00:09:11 #39581 [verbose] > │ let v44 : float = 0.39 │
00:09:11 #39582 [verbose] > │ let v45 : float = 0.4 │
00:09:11 #39583 [verbose] > │ let v46 : float = 0.41000000000000003 │
00:09:11 #39584 [verbose] > │ let v47 : float = 0.42000000000000004 │
00:09:11 #39585 [verbose] > │ let v48 : float = 0.43 │
00:09:11 #39586 [verbose] > │ let v49 : float = 0.44 │
00:09:11 #39587 [verbose] > │ let v50 : float = 0.45 │
00:09:11 #39588 [verbose] > │ let v51 : float = 0.46 │
00:09:11 #39589 [verbose] > │ let v52 : float = 0.47000000000000003 │
00:09:11 #39590 [verbose] > │ let v53 : float = 0.48000000000000004 │
00:09:11 #39591 [verbose] > │ let v54 : float = 0.49 │
00:09:11 #39592 [verbose] > │ let v55 : float = 0.5 │
00:09:11 #39593 [verbose] > │ let v56 : float = 0.51 │
00:09:11 #39594 [verbose] > │ let v57 : float = 0.52 │
00:09:11 #39595 [verbose] > │ let v58 : float = 0.53 │
00:09:11 #39596 [verbose] > │ let v59 : float = 0.54 │
00:09:11 #39597 [verbose] > │ let v60 : float = 0.55 │
00:09:11 #39598 [verbose] > │ let v61 : float = 0.56 │
00:09:11 #39599 [verbose] > │ let v62 : float = 0.5700000000000001 │
00:09:11 #39600 [verbose] > │ let v63 : float = 0.5800000000000001 │
00:09:11 #39601 [verbose] > │ let v64 : float = 0.59 │
00:09:11 #39602 [verbose] > │ let v65 : float = 0.6 │
00:09:11 #39603 [verbose] > │ let v66 : float = 0.61 │
00:09:11 #39604 [verbose] > │ let v67 : float = 0.62 │
00:09:11 #39605 [verbose] > │ let v68 : float = 0.63 │
00:09:11 #39606 [verbose] > │ let v69 : float = 0.64 │
00:09:11 #39607 [verbose] > │ let v70 : float = 0.65 │
00:09:11 #39608 [verbose] > │ let v71 : UH0 = UH0_0 │
00:09:11 #39609 [verbose] > │ let v72 : UH0 = UH0_1(v70, v71) │
00:09:11 #39610 [verbose] > │ let v73 : UH0 = UH0_1(v69, v72) │
00:09:11 #39611 [verbose] > │ let v74 : UH0 = UH0_1(v68, v73) │
00:09:11 #39612 [verbose] > │ let v75 : UH0 = UH0_1(v67, v74) │
00:09:11 #39613 [verbose] > │ let v76 : UH0 = UH0_1(v66, v75) │
00:09:11 #39614 [verbose] > │ let v77 : UH0 = UH0_1(v65, v76) │
00:09:11 #39615 [verbose] > │ let v78 : UH0 = UH0_1(v64, v77) │
00:09:11 #39616 [verbose] > │ let v79 : UH0 = UH0_1(v63, v78) │
00:09:11 #39617 [verbose] > │ let v80 : UH0 = UH0_1(v62, v79) │
00:09:11 #39618 [verbose] > │ let v81 : UH0 = UH0_1(v61, v80) │
00:09:11 #39619 [verbose] > │ let v82 : UH0 = UH0_1(v60, v81) │
00:09:11 #39620 [verbose] > │ let v83 : UH0 = UH0_1(v59, v82) │
00:09:11 #39621 [verbose] > │ let v84 : UH0 = UH0_1(v58, v83) │
00:09:11 #39622 [verbose] > │ let v85 : UH0 = UH0_1(v57, v84) │
00:09:11 #39623 [verbose] > │ let v86 : UH0 = UH0_1(v56, v85) │
00:09:11 #39624 [verbose] > │ let v87 : UH0 = UH0_1(v55, v86) │
00:09:11 #39625 [verbose] > │ let v88 : UH0 = UH0_1(v54, v87) │
00:09:11 #39626 [verbose] > │ let v89 : UH0 = UH0_1(v53, v88) │
00:09:11 #39627 [verbose] > │ let v90 : UH0 = UH0_1(v52, v89) │
00:09:11 #39628 [verbose] > │ let v91 : UH0 = UH0_1(v51, v90) │
00:09:11 #39629 [verbose] > │ let v92 : UH0 = UH0_1(v50, v91) │
00:09:11 #39630 [verbose] > │ let v93 : UH0 = UH0_1(v49, v92) │
00:09:11 #39631 [verbose] > │ let v94 : UH0 = UH0_1(v48, v93) │
00:09:11 #39632 [verbose] > │ let v95 : UH0 = UH0_1(v47, v94) │
00:09:11 #39633 [verbose] > │ let v96 : UH0 = UH0_1(v46, v95) │
00:09:11 #39634 [verbose] > │ let v97 : UH0 = UH0_1(v45, v96) │
00:09:11 #39635 [verbose] > │ let v98 : UH0 = UH0_1(v44, v97) │
00:09:11 #39636 [verbose] > │ let v99 : UH0 = UH0_1(v43, v98) │
00:09:11 #39637 [verbose] > │ let v100 : UH0 = UH0_1(v42, v99) │
00:09:11 #39638 [verbose] > │ let v101 : UH0 = UH0_1(v41, v100) │
00:09:11 #39639 [verbose] > │ let v102 : UH0 = UH0_1(v40, v101) │
00:09:11 #39640 [verbose] > │ let v103 : UH0 = UH0_1(v39, v102) │
00:09:11 #39641 [verbose] > │ let v104 : UH0 = UH0_1(v38, v103) │
00:09:11 #39642 [verbose] > │ let v105 : UH0 = UH0_1(v37, v104) │
00:09:11 #39643 [verbose] > │ let v106 : UH0 = UH0_1(v36, v105) │
00:09:11 #39644 [verbose] > │ let v107 : UH0 = UH0_1(v35, v106) │
00:09:11 #39645 [verbose] > │ let v108 : UH0 = UH0_1(v34, v107) │
00:09:11 #39646 [verbose] > │ let v109 : UH0 = UH0_1(v33, v108) │
00:09:11 #39647 [verbose] > │ let v110 : UH0 = UH0_1(v32, v109) │
00:09:11 #39648 [verbose] > │ let v111 : UH0 = UH0_1(v31, v110) │
00:09:11 #39649 [verbose] > │ let v112 : UH0 = UH0_1(v30, v111) │
00:09:11 #39650 [verbose] > │ let v113 : UH0 = UH0_1(v29, v112) │
00:09:11 #39651 [verbose] > │ let v114 : UH0 = UH0_1(v28, v113) │
00:09:11 #39652 [verbose] > │ let v115 : UH0 = UH0_1(v27, v114) │
00:09:11 #39653 [verbose] > │ let v116 : UH0 = UH0_1(v26, v115) │
00:09:11 #39654 [verbose] > │ let v117 : UH0 = UH0_1(v25, v116) │
00:09:11 #39655 [verbose] > │ let v118 : UH0 = UH0_1(v24, v117) │
00:09:11 #39656 [verbose] > │ let v119 : UH0 = UH0_1(v23, v118) │
00:09:11 #39657 [verbose] > │ let v120 : UH0 = UH0_1(v22, v119) │
00:09:11 #39658 [verbose] > │ let v121 : UH0 = UH0_1(v21, v120) │
00:09:11 #39659 [verbose] > │ let v122 : UH0 = UH0_1(v20, v121) │
00:09:11 #39660 [verbose] > │ let v123 : UH0 = UH0_1(v19, v122) │
00:09:11 #39661 [verbose] > │ let v124 : UH0 = UH0_1(v18, v123) │
00:09:11 #39662 [verbose] > │ let v125 : UH0 = UH0_1(v17, v124) │
00:09:11 #39663 [verbose] > │ let v126 : UH0 = UH0_1(v16, v125) │
00:09:11 #39664 [verbose] > │ let v127 : UH0 = UH0_1(v15, v126) │
00:09:11 #39665 [verbose] > │ let v128 : UH0 = UH0_1(v14, v127) │
00:09:11 #39666 [verbose] > │ let v129 : UH0 = UH0_1(v13, v128) │
00:09:11 #39667 [verbose] > │ let v130 : UH0 = UH0_1(v12, v129) │
00:09:11 #39668 [verbose] > │ let v131 : UH0 = UH0_1(v11, v130) │
00:09:11 #39669 [verbose] > │ let v132 : UH0 = UH0_1(v10, v131) │
00:09:11 #39670 [verbose] > │ let v133 : UH0 = UH0_1(v9, v132) │
00:09:11 #39671 [verbose] > │ let v134 : UH0 = UH0_1(v8, v133) │
00:09:11 #39672 [verbose] > │ let v135 : UH0 = UH0_1(v7, v134) │
00:09:11 #39673 [verbose] > │ let v136 : UH0 = UH0_1(v6, v135) │
00:09:11 #39674 [verbose] > │ let v137 : UH0 = UH0_1(v5, v136) │
00:09:11 #39675 [verbose] > │ let v138 : (float []) = method2(v137) │
00:09:11 #39676 [verbose] > │ let v139 : float = 0.0 │
00:09:11 #39677 [verbose] > │ let v140 : float = 0.0007224452478461068 │
00:09:11 #39678 [verbose] > │ let v141 : float = 0.0014297283919934465 │
00:09:11 #39679 [verbose] > │ let v142 : float = 0.0021070055388626454 │
00:09:11 #39680 [verbose] > │ let v143 : float = 0.00274006253677335 │
00:09:11 #39681 [verbose] > │ let v144 : float = 0.0033156132912039757 │
00:09:11 #39682 [verbose] > │ let v145 : float = 0.0038215786027292415 │
00:09:11 #39683 [verbose] > │ let v146 : float = 0.004247339675607605 │
00:09:11 #39684 [verbose] > │ let v147 : float = 0.004583960976582912 │
00:09:11 #39685 [verbose] > │ let v148 : float = 0.004824377766717757 │
00:09:11 #39686 [verbose] > │ let v149 : float = 0.00496354437049027 │
00:09:11 #39687 [verbose] > │ let v150 : float = 0.004998540070400965 │
00:09:11 #39688 [verbose] > │ let v151 : float = 0.004928630404658255 │
00:09:11 #39689 [verbose] > │ let v152 : float = 0.004755282581475768 │
00:09:11 #39690 [verbose] > │ let v153 : float = 0.004482134686478519 │
00:09:11 #39691 [verbose] > │ let v154 : float = 0.0041149193294682815 │
00:09:11 #39692 [verbose] > │ let v155 : float = 0.0036613433329888666 │
00:09:11 #39693 [verbose] > │ let v156 : float = 0.0031309259876915697 │
00:09:11 #39694 [verbose] > │ let v157 : float = 0.002534799269067951 │
00:09:11 #39695 [verbose] > │ let v158 : float = 0.0018854742084416015 │
00:09:11 #39696 [verbose] > │ let v159 : float = 0.0011965783214377905 │
00:09:11 #39697 [verbose] > │ let v160 : float = 0.00048256960457257535 │
00:09:11 #39698 [verbose] > │ let v161 : float = -0.00024156689762753317 │
00:09:11 #39699 [verbose] > │ let v162 : float = -0.0009606335867685418 │
00:09:11 #39700 [verbose] > │ let v163 : float = -0.001659539265642642 │
00:09:11 #39701 [verbose] > │ let v164 : float = -0.002323615860218842 │
00:09:11 #39702 [verbose] > │ let v165 : float = -0.0029389262614623636 │
00:09:11 #39703 [verbose] > │ let v166 : float = -0.003492556826244686 │
00:09:11 #39704 [verbose] > │ let v167 : float = -0.003972888398568771 │
00:09:11 #39705 [verbose] > │ let v168 : float = -0.00436984016313259 │
00:09:11 #39706 [verbose] > │ let v169 : float = -0.004675081213427074 │
00:09:11 #39707 [verbose] > │ let v170 : float = -0.004882205394146359 │
00:09:11 #39708 [verbose] > │ let v171 : float = -0.004986865748457456 │
00:09:11 #39709 [verbose] > │ let v172 : float = -0.004986865748457456 │
00:09:11 #39710 [verbose] > │ let v173 : float = -0.004882205394146361 │
00:09:11 #39711 [verbose] > │ let v174 : float = -0.004675081213427074 │
00:09:11 #39712 [verbose] > │ let v175 : float = -0.004369840163132589 │
00:09:11 #39713 [verbose] > │ let v176 : float = -0.003972888398568774 │
00:09:11 #39714 [verbose] > │ let v177 : float = -0.0034925568262446837 │
00:09:11 #39715 [verbose] > │ let v178 : float = -0.002938926261462367 │
00:09:11 #39716 [verbose] > │ let v179 : float = -0.002323615860218846 │
00:09:11 #39717 [verbose] > │ let v180 : float = -0.0016595392656426435 │
00:09:11 #39718 [verbose] > │ let v181 : float = -0.0009606335867685414 │
00:09:11 #39719 [verbose] > │ let v182 : float = -0.00024156689762753724 │
00:09:11 #39720 [verbose] > │ let v183 : float = 0.0004825696045725713 │
00:09:11 #39721 [verbose] > │ let v184 : float = 0.0011965783214377866 │
00:09:11 #39722 [verbose] > │ let v185 : float = 0.0018854742084416021 │
00:09:11 #39723 [verbose] > │ let v186 : float = 0.002534799269067953 │
00:09:11 #39724 [verbose] > │ let v187 : float = 0.003130925987691568 │
00:09:11 #39725 [verbose] > │ let v188 : float = 0.0036613433329888622 │
00:09:11 #39726 [verbose] > │ let v189 : float = 0.0041149193294682815 │
00:09:11 #39727 [verbose] > │ let v190 : float = 0.0044821346864785195 │
00:09:11 #39728 [verbose] > │ let v191 : float = 0.004755282581475766 │
00:09:11 #39729 [verbose] > │ let v192 : float = 0.004928630404658255 │
00:09:11 #39730 [verbose] > │ let v193 : float = 0.004998540070400965 │
00:09:11 #39731 [verbose] > │ let v194 : float = 0.004963544370490271 │
00:09:11 #39732 [verbose] > │ let v195 : float = 0.004824377766717758 │
00:09:11 #39733 [verbose] > │ let v196 : float = 0.004583960976582912 │
00:09:11 #39734 [verbose] > │ let v197 : float = 0.004247339675607605 │
00:09:11 #39735 [verbose] > │ let v198 : float = 0.003821578602729245 │
00:09:11 #39736 [verbose] > │ let v199 : float = 0.0033156132912039783 │
00:09:11 #39737 [verbose] > │ let v200 : float = 0.0027400625367733585 │
00:09:11 #39738 [verbose] > │ let v201 : float = 0.0021070055388626528 │
00:09:11 #39739 [verbose] > │ let v202 : float = 0.001429728391993452 │
00:09:11 #39740 [verbose] > │ let v203 : float = 0.0007224452478461016 │
00:09:11 #39741 [verbose] > │ let v204 : float = 0.0 │
00:09:11 #39742 [verbose] > │ let v205 : UH0 = UH0_0 │
00:09:11 #39743 [verbose] > │ let v206 : UH0 = UH0_1(v204, v205) │
00:09:11 #39744 [verbose] > │ let v207 : UH0 = UH0_1(v203, v206) │
00:09:11 #39745 [verbose] > │ let v208 : UH0 = UH0_1(v202, v207) │
00:09:11 #39746 [verbose] > │ let v209 : UH0 = UH0_1(v201, v208) │
00:09:11 #39747 [verbose] > │ let v210 : UH0 = UH0_1(v200, v209) │
00:09:11 #39748 [verbose] > │ let v211 : UH0 = UH0_1(v199, v210) │
00:09:11 #39749 [verbose] > │ let v212 : UH0 = UH0_1(v198, v211) │
00:09:11 #39750 [verbose] > │ let v213 : UH0 = UH0_1(v197, v212) │
00:09:11 #39751 [verbose] > │ let v214 : UH0 = UH0_1(v196, v213) │
00:09:11 #39752 [verbose] > │ let v215 : UH0 = UH0_1(v195, v214) │
00:09:11 #39753 [verbose] > │ let v216 : UH0 = UH0_1(v194, v215) │
00:09:11 #39754 [verbose] > │ let v217 : UH0 = UH0_1(v193, v216) │
00:09:11 #39755 [verbose] > │ let v218 : UH0 = UH0_1(v192, v217) │
00:09:11 #39756 [verbose] > │ let v219 : UH0 = UH0_1(v191, v218) │
00:09:11 #39757 [verbose] > │ let v220 : UH0 = UH0_1(v190, v219) │
00:09:11 #39758 [verbose] > │ let v221 : UH0 = UH0_1(v189, v220) │
00:09:11 #39759 [verbose] > │ let v222 : UH0 = UH0_1(v188, v221) │
00:09:11 #39760 [verbose] > │ let v223 : UH0 = UH0_1(v187, v222) │
00:09:11 #39761 [verbose] > │ let v224 : UH0 = UH0_1(v186, v223) │
00:09:11 #39762 [verbose] > │ let v225 : UH0 = UH0_1(v185, v224) │
00:09:11 #39763 [verbose] > │ let v226 : UH0 = UH0_1(v184, v225) │
00:09:11 #39764 [verbose] > │ let v227 : UH0 = UH0_1(v183, v226) │
00:09:11 #39765 [verbose] > │ let v228 : UH0 = UH0_1(v182, v227) │
00:09:11 #39766 [verbose] > │ let v229 : UH0 = UH0_1(v181, v228) │
00:09:11 #39767 [verbose] > │ let v230 : UH0 = UH0_1(v180, v229) │
00:09:11 #39768 [verbose] > │ let v231 : UH0 = UH0_1(v179, v230) │
00:09:11 #39769 [verbose] > │ let v232 : UH0 = UH0_1(v178, v231) │
00:09:11 #39770 [verbose] > │ let v233 : UH0 = UH0_1(v177, v232) │
00:09:11 #39771 [verbose] > │ let v234 : UH0 = UH0_1(v176, v233) │
00:09:11 #39772 [verbose] > │ let v235 : UH0 = UH0_1(v175, v234) │
00:09:11 #39773 [verbose] > │ let v236 : UH0 = UH0_1(v174, v235) │
00:09:11 #39774 [verbose] > │ let v237 : UH0 = UH0_1(v173, v236) │
00:09:11 #39775 [verbose] > │ let v238 : UH0 = UH0_1(v172, v237) │
00:09:11 #39776 [verbose] > │ let v239 : UH0 = UH0_1(v171, v238) │
00:09:11 #39777 [verbose] > │ let v240 : UH0 = UH0_1(v170, v239) │
00:09:11 #39778 [verbose] > │ let v241 : UH0 = UH0_1(v169, v240) │
00:09:11 #39779 [verbose] > │ let v242 : UH0 = UH0_1(v168, v241) │
00:09:11 #39780 [verbose] > │ let v243 : UH0 = UH0_1(v167, v242) │
00:09:11 #39781 [verbose] > │ let v244 : UH0 = UH0_1(v166, v243) │
00:09:11 #39782 [verbose] > │ let v245 : UH0 = UH0_1(v165, v244) │
00:09:11 #39783 [verbose] > │ let v246 : UH0 = UH0_1(v164, v245) │
00:09:11 #39784 [verbose] > │ let v247 : UH0 = UH0_1(v163, v246) │
00:09:11 #39785 [verbose] > │ let v248 : UH0 = UH0_1(v162, v247) │
00:09:11 #39786 [verbose] > │ let v249 : UH0 = UH0_1(v161, v248) │
00:09:11 #39787 [verbose] > │ let v250 : UH0 = UH0_1(v160, v249) │
00:09:11 #39788 [verbose] > │ let v251 : UH0 = UH0_1(v159, v250) │
00:09:11 #39789 [verbose] > │ let v252 : UH0 = UH0_1(v158, v251) │
00:09:11 #39790 [verbose] > │ let v253 : UH0 = UH0_1(v157, v252) │
00:09:11 #39791 [verbose] > │ let v254 : UH0 = UH0_1(v156, v253) │
00:09:11 #39792 [verbose] > │ let v255 : UH0 = UH0_1(v155, v254) │
00:09:11 #39793 [verbose] > │ let v256 : UH0 = UH0_1(v154, v255) │
00:09:11 #39794 [verbose] > │ let v257 : UH0 = UH0_1(v153, v256) │
00:09:11 #39795 [verbose] > │ let v258 : UH0 = UH0_1(v152, v257) │
00:09:11 #39796 [verbose] > │ let v259 : UH0 = UH0_1(v151, v258) │
00:09:11 #39797 [verbose] > │ let v260 : UH0 = UH0_1(v150, v259) │
00:09:11 #39798 [verbose] > │ let v261 : UH0 = UH0_1(v149, v260) │
00:09:11 #39799 [verbose] > │ let v262 : UH0 = UH0_1(v148, v261) │
00:09:11 #39800 [verbose] > │ let v263 : UH0 = UH0_1(v147, v262) │
00:09:11 #39801 [verbose] > │ let v264 : UH0 = UH0_1(v146, v263) │
00:09:11 #39802 [verbose] > │ let v265 : UH0 = UH0_1(v145, v264) │
00:09:11 #39803 [verbose] > │ let v266 : UH0 = UH0_1(v144, v265) │
00:09:11 #39804 [verbose] > │ let v267 : UH0 = UH0_1(v143, v266) │
00:09:11 #39805 [verbose] > │ let v268 : UH0 = UH0_1(v142, v267) │
00:09:11 #39806 [verbose] > │ let v269 : UH0 = UH0_1(v141, v268) │
00:09:11 #39807 [verbose] > │ let v270 : UH0 = UH0_1(v140, v269) │
00:09:11 #39808 [verbose] > │ let v271 : UH0 = UH0_1(v139, v270) │
00:09:11 #39809 [verbose] > │ let v272 : (float []) = method2(v271) │
00:09:11 #39810 [verbose] > │ UH1_1(v138, v272, v4) │
00:09:11 #39811 [verbose] > │ | UH0_0 -> (* Nil *) │
00:09:11 #39812 [verbose] > │ v1 │
00:09:11 #39813 [verbose] > │ and method6 (v0 : UH1, v1 : int32) : int32 = │
00:09:11 #39814 [verbose] > │ match v0 with │
00:09:11 #39815 [verbose] > │ | UH1_1(v2, v3, v4) -> (* Cons *) │
00:09:11 #39816 [verbose] > │ let v5 : int32 = v1 + 1 │
00:09:11 #39817 [verbose] > │ method6(v4, v5) │
00:09:11 #39818 [verbose] > │ | UH1_0 -> (* Nil *) │
00:09:11 #39819 [verbose] > │ v1 │
00:09:11 #39820 [verbose] > │ and method7 (v0 : (struct ((float []) * (float [])) []), v1 : UH1, v2 : │
00:09:11 #39821 [verbose] > │ int32) : int32 = │
00:09:11 #39822 [verbose] > │ match v1 with │
00:09:11 #39823 [verbose] > │ | UH1_1(v3, v4, v5) -> (* Cons *) │
00:09:11 #39824 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:09:11 #39825 [verbose] > │ let v6 : int32 = v2 + 1 │
00:09:11 #39826 [verbose] > │ method7(v0, v5, v6) │
00:09:11 #39827 [verbose] > │ | UH1_0 -> (* Nil *) │
00:09:11 #39828 [verbose] > │ v2 │
00:09:11 #39829 [verbose] > │ and method5 (v0 : UH1) : (struct ((float []) * (float [])) []) = │
00:09:11 #39830 [verbose] > │ let v1 : int32 = 0 │
00:09:11 #39831 [verbose] > │ let v2 : int32 = method6(v0, v1) │
00:09:11 #39832 [verbose] > │ let v3 : (struct ((float []) * (float [])) []) = Array.zeroCreate<struct │
00:09:11 #39833 [verbose] > │ ((float []) * (float []))> (v2) │
00:09:11 #39834 [verbose] > │ let v4 : int32 = 0 │
00:09:11 #39835 [verbose] > │ let v5 : int32 = method7(v3, v0, v4) │
00:09:11 #39836 [verbose] > │ v3 │
00:09:11 #39837 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:09:11 #39838 [verbose] > │ []) * (float [])) [])) = │
00:09:11 #39839 [verbose] > │ let v0 : float = 0.0 │
00:09:11 #39840 [verbose] > │ let v1 : float = 1.0 │
00:09:11 #39841 [verbose] > │ let v2 : float = 2.0 │
00:09:11 #39842 [verbose] > │ let v3 : float = 3.0 │
00:09:11 #39843 [verbose] > │ let v4 : float = 4.0 │
00:09:11 #39844 [verbose] > │ let v5 : float = 5.0 │
00:09:11 #39845 [verbose] > │ let v6 : float = 6.0 │
00:09:11 #39846 [verbose] > │ let v7 : float = 7.0 │
00:09:11 #39847 [verbose] > │ let v8 : float = 8.0 │
00:09:11 #39848 [verbose] > │ let v9 : float = 9.0 │
00:09:11 #39849 [verbose] > │ let v10 : UH0 = UH0_0 │
00:09:11 #39850 [verbose] > │ let v11 : UH0 = UH0_1(v9, v10) │
00:09:11 #39851 [verbose] > │ let v12 : UH0 = UH0_1(v8, v11) │
00:09:11 #39852 [verbose] > │ let v13 : UH0 = UH0_1(v7, v12) │
00:09:11 #39853 [verbose] > │ let v14 : UH0 = UH0_1(v6, v13) │
00:09:11 #39854 [verbose] > │ let v15 : UH0 = UH0_1(v5, v14) │
00:09:11 #39855 [verbose] > │ let v16 : UH0 = UH0_1(v4, v15) │
00:09:11 #39856 [verbose] > │ let v17 : UH0 = UH0_1(v3, v16) │
00:09:11 #39857 [verbose] > │ let v18 : UH0 = UH0_1(v2, v17) │
00:09:11 #39858 [verbose] > │ let v19 : UH0 = UH0_1(v1, v18) │
00:09:11 #39859 [verbose] > │ let v20 : UH0 = UH0_1(v0, v19) │
00:09:11 #39860 [verbose] > │ let v21 : UH1 = UH1_0 │
00:09:11 #39861 [verbose] > │ let v22 : UH1 = method1(v20, v21) │
00:09:11 #39862 [verbose] > │ let v23 : (struct ((float []) * (float [])) []) = method5(v22) │
00:09:11 #39863 [verbose] > │ let struct (v24 : (float []), v25 : (float [])) = v23.[int 0] │
00:09:11 #39864 [verbose] > │ let v26 : string = $"{0}" │
00:09:11 #39865 [verbose] > │ let v27 : (struct (string * (float []) * (float [])) []) = [|struct │
00:09:11 #39866 [verbose] > │ (v26, v24, v25)|] │
00:09:11 #39867 [verbose] > │ let v28 : string = "wave" │
00:09:11 #39868 [verbose] > │ let v29 : string = "position (m)" │
00:09:11 #39869 [verbose] > │ let v30 : string = "displacement (m)" │
00:09:11 #39870 [verbose] > │ struct (v28, v29, v30, v27) │
00:09:11 #39871 [verbose] > │ method0() │
00:09:11 #39872 [verbose] > │ │
00:09:11 #39873 [verbose] > │ │
00:09:11 #39874 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:11 #39875 [verbose] >
00:09:11 #39876 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:11 #39877 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:11 #39878 [verbose] > │ ### system kinetic energy versus time 2 │
00:09:11 #39879 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:11 #39880 [verbose] >
00:09:11 #39881 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:11 #39882 [verbose] > // // test
00:09:11 #39883 [verbose] >
00:09:11 #39884 [verbose] > inl central_force f (particle_state st1) (particle_state st2) =
00:09:11 #39885 [verbose] > inl r1 = st1.pos_vec
00:09:11 #39886 [verbose] > inl r2 = st2.pos_vec
00:09:11 #39887 [verbose] > inl r21 = r2 ^-^ r1
00:09:11 #39888 [verbose] > inl r21mag = magnitude r21
00:09:11 #39889 [verbose] > f r21mag *^ r21 ^/ r21mag
00:09:11 #39890 [verbose] >
00:09:11 #39891 [verbose] > inl billiard_force k re =
00:09:11 #39892 [verbose] > inl f r =
00:09:11 #39893 [verbose] > if r >= re
00:09:11 #39894 [verbose] > then 0
00:09:11 #39895 [verbose] > else -k * (r - re)
00:09:11 #39896 [verbose] > central_force f
00:09:11 #39897 [verbose] >
00:09:11 #39898 [verbose] > type force_vector = vec
00:09:11 #39899 [verbose] > type two_body_force = particle_state -> particle_state -> force_vector
00:09:11 #39900 [verbose] >
00:09:11 #39901 [verbose] > union force t =
00:09:11 #39902 [verbose] > | ExternalForce : t * one_body_force
00:09:11 #39903 [verbose] > | InternalForce : t * t * two_body_force
00:09:11 #39904 [verbose] >
00:09:11 #39905 [verbose] > nominal multi_particle_state = stream.stream particle_state
00:09:11 #39906 [verbose] >
00:09:11 #39907 [verbose] > nominal d_multi_particle_state = stream.stream d_particle_state
00:09:11 #39908 [verbose] >
00:09:11 #39909 [verbose] > inl force_on n s force =
00:09:11 #39910 [verbose] > match force with
00:09:11 #39911 [verbose] > | ExternalForce (n0, f_one_body) =>
00:09:11 #39912 [verbose] > if n = n0
00:09:11 #39913 [verbose] > then f_one_body
00:09:11 #39914 [verbose] > else fun _ => zero_vec ()
00:09:11 #39915 [verbose] > | InternalForce (n0, n1, f_two_body) =>
00:09:11 #39916 [verbose] > if n = n0
00:09:11 #39917 [verbose] > then s |> stream.try_item n1 |> optionm.map f_two_body
00:09:11 #39918 [verbose] > elif n = n1
00:09:11 #39919 [verbose] > then s |> stream.try_item n0 |> optionm.map f_two_body
00:09:11 #39920 [verbose] > else None
00:09:11 #39921 [verbose] > |> optionm'.default_value (fun _ => zero_vec ())
00:09:11 #39922 [verbose] >
00:09:11 #39923 [verbose] > inl forces_on n (multi_particle_state sts) fs =
00:09:11 #39924 [verbose] > fs
00:09:11 #39925 [verbose] > |> listm.map (force_on n sts)
00:09:11 #39926 [verbose] >
00:09:11 #39927 [verbose] > inl newton_second_mps fs ((multi_particle_state sts) as mpst) =
00:09:11 #39928 [verbose] > inl deriv (n, st) =
00:09:11 #39929 [verbose] > newton_second_ps (forces_on n mpst fs) st
00:09:11 #39930 [verbose] > sts |> stream.indexed |> stream.map deriv |> d_multi_particle_state
00:09:11 #39931 [verbose] >
00:09:11 #39932 [verbose] > instance (+++) d_multi_particle_state =
00:09:11 #39933 [verbose] > fun (d_multi_particle_state dsts1) (d_multi_particle_state dsts2) =>
00:09:11 #39934 [verbose] > (dsts1, dsts2)
00:09:11 #39935 [verbose] > ||> stream.zip_with (+++)
00:09:11 #39936 [verbose] > |> d_multi_particle_state
00:09:11 #39937 [verbose] >
00:09:11 #39938 [verbose] > instance scale d_multi_particle_state = fun w (d_multi_particle_state dsts) =>
00:09:11 #39939 [verbose] > dsts
00:09:11 #39940 [verbose] > |> stream.map (scale w)
00:09:11 #39941 [verbose] > |> d_multi_particle_state
00:09:11 #39942 [verbose] >
00:09:11 #39943 [verbose] > instance shift multi_particle_state = fun dt dsts (multi_particle_state sts) =>
00:09:11 #39944 [verbose] > inl (d_multi_particle_state dsts) =
00:09:11 #39945 [verbose] > real
00:09:11 #39946 [verbose] > match dsts with
00:09:11 #39947 [verbose] > | d_multi_particle_state _ => dsts
00:09:11 #39948 [verbose] > (dsts, sts)
00:09:11 #39949 [verbose] > ||> stream.zip_with (shift dt)
00:09:11 #39950 [verbose] > |> stream.memoize
00:09:11 #39951 [verbose] > |> fun x => x ()
00:09:11 #39952 [verbose] > |> multi_particle_state
00:09:11 #39953 [verbose] >
00:09:11 #39954 [verbose] > inl euler_cromer_mps dt : numerical_method multi_particle_state
00:09:11 #39955 [verbose] > d_multi_particle_state =
00:09:11 #39956 [verbose] > fun deriv ((multi_particle_state sts0) as mpst0) =>
00:09:11 #39957 [verbose] > inl (multi_particle_state sts1) = euler dt deriv mpst0
00:09:11 #39958 [verbose] > (sts0, sts1)
00:09:11 #39959 [verbose] > ||> stream.zip
00:09:11 #39960 [verbose] > |> stream.map (fun ((particle_state st0), (particle_state st1)) =>
00:09:11 #39961 [verbose] > particle_state {
00:09:11 #39962 [verbose] > st1 with
00:09:11 #39963 [verbose] > pos_vec = st0.pos_vec ^+^ st1.velocity ^* dt
00:09:11 #39964 [verbose] > }
00:09:11 #39965 [verbose] > )
00:09:11 #39966 [verbose] > |> multi_particle_state
00:09:11 #39967 [verbose] >
00:09:11 #39968 [verbose] > inl update_mps (method : numerical_method multi_particle_state
00:09:11 #39969 [verbose] > d_multi_particle_state) =
00:09:11 #39970 [verbose] > newton_second_mps >> method
00:09:11 #39971 [verbose] >
00:09:11 #39972 [verbose] > inl states_mps (method : numerical_method multi_particle_state
00:09:11 #39973 [verbose] > d_multi_particle_state) =
00:09:11 #39974 [verbose] > newton_second_mps
00:09:11 #39975 [verbose] > >> method
00:09:11 #39976 [verbose] > >> (fun x (multi_particle_state y) =>
00:09:11 #39977 [verbose] > y
00:09:11 #39978 [verbose] > |> stream.memoize
00:09:11 #39979 [verbose] > |> (fun x => x ())
00:09:11 #39980 [verbose] > |> multi_particle_state |> x
00:09:11 #39981 [verbose] > )
00:09:11 #39982 [verbose] > // >> stream.iterate
00:09:11 #39983 [verbose] > >> seq.iterate'
00:09:11 #39984 [verbose] >
00:09:11 #39985 [verbose] > inl kinetic_energy (particle_state st) =
00:09:11 #39986 [verbose] > inl m = st.mass
00:09:11 #39987 [verbose] > inl v = magnitude st.velocity
00:09:11 #39988 [verbose] > 0.5 * m * v ** 2
00:09:11 #39989 [verbose] >
00:09:11 #39990 [verbose] > inl system_ke (multi_particle_state sts) =
00:09:11 #39991 [verbose] > sts
00:09:11 #39992 [verbose] > |> stream.map kinetic_energy
00:09:11 #39993 [verbose] > |> stream.sum
00:09:11 #39994 [verbose] >
00:09:11 #39995 [verbose] > inl linear_spring_pe k re (particle_state st1) (particle_state st2) =
00:09:11 #39996 [verbose] > inl r1 = st1.pos_vec
00:09:11 #39997 [verbose] > inl r2 = st2.pos_vec
00:09:11 #39998 [verbose] > inl r21 = r2 ^-^ r1
00:09:11 #39999 [verbose] > inl r21mag = magnitude r21
00:09:11 #40000 [verbose] > k * (r21mag - re) ** 2 / 2
00:09:11 #40001 [verbose] >
00:09:11 #40002 [verbose] > inl earth_surface_gravity_pe (particle_state st) =
00:09:11 #40003 [verbose] > inl g = 9.80665
00:09:11 #40004 [verbose] > inl m = st.mass
00:09:11 #40005 [verbose] > inl z = st.pos_vec.z
00:09:11 #40006 [verbose] > m * g * z
00:09:11 #40007 [verbose] >
00:09:11 #40008 [verbose] > inl ball_radius () = 0.03
00:09:11 #40009 [verbose] >
00:09:11 #40010 [verbose] > inl billiard_forces k =
00:09:11 #40011 [verbose] > [[ InternalForce (0i32, 1, billiard_force k (2 * ball_radius ())) ]]
00:09:11 #40012 [verbose] >
00:09:11 #40013 [verbose] > inl billiard_initial () =
00:09:11 #40014 [verbose] > inl ball_mass = 0.160
00:09:11 #40015 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:09:11 #40016 [verbose] > [[
00:09:11 #40017 [verbose] > particle_state {
00:09:11 #40018 [verbose] > default_particle_state' with
00:09:11 #40019 [verbose] > mass = ball_mass
00:09:11 #40020 [verbose] > pos_vec = zero_vec ()
00:09:11 #40021 [verbose] > velocity = 0.2 *^ i_hat ()
00:09:11 #40022 [verbose] > }
00:09:11 #40023 [verbose] > particle_state {
00:09:11 #40024 [verbose] > default_particle_state' with
00:09:11 #40025 [verbose] > mass = ball_mass
00:09:11 #40026 [verbose] > pos_vec = i_hat () ^+^ 0.02 *^ j_hat ()
00:09:11 #40027 [verbose] > velocity = zero_vec ()
00:09:11 #40028 [verbose] > }
00:09:11 #40029 [verbose] > ]]
00:09:11 #40030 [verbose] > |> stream.from_list
00:09:11 #40031 [verbose] > |> multi_particle_state
00:09:11 #40032 [verbose] >
00:09:11 #40033 [verbose] > inl billiard_states ~n_method k dt =
00:09:11 #40034 [verbose] > states_mps (n_method dt) (billiard_forces k) (billiard_initial ())
00:09:11 #40035 [verbose] >
00:09:11 #40036 [verbose] > inl billiard_states_finite n_method k dt =
00:09:11 #40037 [verbose] > billiard_states n_method k dt
00:09:11 #40038 [verbose] > >> Some
00:09:11 #40039 [verbose] > |> seq.take_while_ (fun (multi_particle_state mpst) (_ : i32) =>
00:09:11 #40040 [verbose] > match mpst |> stream.try_item 0i32 with
00:09:11 #40041 [verbose] > | Some st =>
00:09:11 #40042 [verbose] > st.time <= 10
00:09:11 #40043 [verbose] > | None => false
00:09:11 #40044 [verbose] > )
00:09:11 #40045 [verbose] >
00:09:11 #40046 [verbose] > inl momentum (particle_state st) =
00:09:11 #40047 [verbose] > inl m = st.mass
00:09:11 #40048 [verbose] > inl v = st.velocity
00:09:11 #40049 [verbose] > m *^ v
00:09:11 #40050 [verbose] >
00:09:11 #40051 [verbose] > inl system_p (multi_particle_state sts) =
00:09:11 #40052 [verbose] > sts
00:09:11 #40053 [verbose] > |> stream.map momentum
00:09:11 #40054 [verbose] > |> stream.fold (^+^) (zero_vec ())
00:09:11 #40055 [verbose] >
00:09:11 #40056 [verbose] > inl time_ke_ec_x, time_ke_ec_y =
00:09:11 #40057 [verbose] > billiard_states_finite euler_cromer_mps 30 0.03
00:09:11 #40058 [verbose] > |> listm.map (fun (multi_particle_state mpst) =>
00:09:11 #40059 [verbose] > mpst |> stream.try_item 0i32
00:09:11 #40060 [verbose] > |> optionm.map (fun st =>
00:09:11 #40061 [verbose] > st.time, system_ke (multi_particle_state mpst)
00:09:11 #40062 [verbose] > )
00:09:11 #40063 [verbose] > )
00:09:11 #40064 [verbose] > // |> stream.to_list
00:09:11 #40065 [verbose] > |> listm'.choose id
00:09:11 #40066 [verbose] > |> listm'.unzip
00:09:11 #40067 [verbose] >
00:09:11 #40068 [verbose] > inl time_ke_rk4_x, time_ke_rk4_y =
00:09:11 #40069 [verbose] > billiard_states_finite runge_kutta_4 30 0.03
00:09:11 #40070 [verbose] > |> listm.map (fun (multi_particle_state mpst) =>
00:09:11 #40071 [verbose] > mpst |> stream.try_item 0i32
00:09:11 #40072 [verbose] > |> optionm.map (fun st =>
00:09:11 #40073 [verbose] > st.time, system_ke (multi_particle_state mpst)
00:09:11 #40074 [verbose] > )
00:09:11 #40075 [verbose] > )
00:09:11 #40076 [verbose] > // |> stream.to_list
00:09:11 #40077 [verbose] > |> listm'.choose id
00:09:11 #40078 [verbose] > |> listm'.unzip
00:09:11 #40079 [verbose] >
00:09:11 #40080 [verbose] > inl time_ke_ec_x : a i32 _ = time_ke_ec_x |> listm.toArray
00:09:11 #40081 [verbose] > inl time_ke_ec_y : a i32 _ = time_ke_ec_y |> listm.toArray
00:09:11 #40082 [verbose] >
00:09:11 #40083 [verbose] > inl time_ke_rk4_x : a i32 _ = time_ke_rk4_x |> listm.toArray
00:09:11 #40084 [verbose] > inl time_ke_rk4_y : a i32 _ = time_ke_rk4_y |> listm.toArray
00:09:11 #40085 [verbose] >
00:09:11 #40086 [verbose] > "system kinetic energy versus time",
00:09:11 #40087 [verbose] > "time (s)",
00:09:11 #40088 [verbose] > "system kinetic energy (j)",
00:09:11 #40089 [verbose] > ;[[
00:09:11 #40090 [verbose] > "euler-cromer", time_ke_ec_x, time_ke_ec_y
00:09:11 #40091 [verbose] > "runge-kutta 4", time_ke_rk4_x, time_ke_rk4_y
00:09:11 #40092 [verbose] > ]]
00:09:11 #40093 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\68aab690c7133a96383cef1713571d7b8d6aa8564f5ffb79ede872f1092982cb\main.spi
00:09:13 #40094 [verbose] >
00:09:13 #40095 [verbose] > ╭─[ 2.27s - return value ]─────────────────────────────────────────────────────╮
00:09:13 #40096 [verbose] > │ <svg width="640" height="480" viewBox="0 0 640 480" │
00:09:13 #40097 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:09:13 #40098 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:09:13 #40099 [verbose] > │ stroke="none"/> │
00:09:13 #40100 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:09:13 #40101 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:09:13 #40102 [verbose] > │ fill="#FFFFFF"> │
00:09:13 #40103 [verbose] > │ system kinetic energy versus time │
00:09:13 #40104 [verbose] > │ </text> │
00:09:13 #40105 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="59" y1="424" x2="59" │
00:09:13 #40106 [verbose] > │ y2="75"/> │
00:09:13 #40107 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:09:13 #40108 [verbose] > │ y2="75"/> │
00:09:13 #40109 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="79" y1="424" x2="79" │
00:09:13 #40110 [verbose] > │ y2="75"/> │
00:09:13 #40111 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="89" y1="424" x2="89" │
00:09:13 #40112 [verbose] > │ y2="75"/> │
00:09:13 #40113 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1... │
00:09:13 #40114 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:13 #40115 [verbose] >
00:09:13 #40116 [verbose] > ╭─[ 2.28s - stdout ]───────────────────────────────────────────────────────────╮
00:09:13 #40117 [verbose] > │ type UH0 = │
00:09:13 #40118 [verbose] > │ | UH0_0 of float * float * float * float * float * float * float * float │
00:09:13 #40119 [verbose] > │ * float * (unit -> UH0) │
00:09:13 #40120 [verbose] > │ | UH0_1 │
00:09:13 #40121 [verbose] > │ and UH1 = │
00:09:13 #40122 [verbose] > │ | UH1_0 of float * float * float * float * float * float * float * float │
00:09:13 #40123 [verbose] > │ * float * (unit -> UH1) │
00:09:13 #40124 [verbose] > │ | UH1_1 │
00:09:13 #40125 [verbose] > │ and [<Struct>] US0 = │
00:09:13 #40126 [verbose] > │ | US0_0 of f0_0 : (unit -> UH0) │
00:09:13 #40127 [verbose] > │ | US0_1 of f1_0 : UH0 │
00:09:13 #40128 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:09:13 #40129 [verbose] > │ and UH2 = │
00:09:13 #40130 [verbose] > │ | UH2_0 of float * float * float * float * float * float * float * float │
00:09:13 #40131 [verbose] > │ * float * float * float * float * float * float * float * float * float * │
00:09:13 #40132 [verbose] > │ float * (unit -> UH2) │
00:09:13 #40133 [verbose] > │ | UH2_1 │
00:09:13 #40134 [verbose] > │ and UH3 = │
00:09:13 #40135 [verbose] > │ | UH3_0 of int32 * float * float * float * float * float * float * float │
00:09:13 #40136 [verbose] > │ * float * float * (unit -> UH3) │
00:09:13 #40137 [verbose] > │ | UH3_1 │
00:09:13 #40138 [verbose] > │ and [<Struct>] US1 = │
00:09:13 #40139 [verbose] > │ | US1_0 of f0_0 : (struct (float * float * float * float * float * float │
00:09:13 #40140 [verbose] > │ * float * float * float) -> struct (float * float * float)) │
00:09:13 #40141 [verbose] > │ | US1_1 │
00:09:13 #40142 [verbose] > │ and [<Struct>] US2 = │
00:09:13 #40143 [verbose] > │ | US2_0 of f0_0 : float * f0_1 : float * f0_2 : float * f0_3 : float * │
00:09:13 #40144 [verbose] > │ f0_4 : float * f0_5 : float * f0_6 : float * f0_7 : float * f0_8 : float │
00:09:13 #40145 [verbose] > │ | US2_1 │
00:09:13 #40146 [verbose] > │ and UH4 = │
00:09:13 #40147 [verbose] > │ | UH4_0 │
00:09:13 #40148 [verbose] > │ | UH4_1 of UH0 * UH4 │
00:09:13 #40149 [verbose] > │ and UH5 = │
00:09:13 #40150 [verbose] > │ | UH5_0 │
00:09:13 #40151 [verbose] > │ | UH5_1 of int32 * UH5 │
00:09:13 #40152 [verbose] > │ and [<Struct>] US3 = │
00:09:13 #40153 [verbose] > │ | US3_0 of f0_0 : float * f0_1 : float │
00:09:13 #40154 [verbose] > │ | US3_1 │
00:09:13 #40155 [verbose] > │ and UH6 = │
00:09:13 #40156 [verbose] > │ | UH6_0 │
00:09:13 #40157 [verbose] > │ | UH6_1 of US3 * UH6 │
00:09:13 #40158 [verbose] > │ and UH7 = │
00:09:13 #40159 [verbose] > │ | UH7_0 of float * (unit -> UH7) │
00:09:13 #40160 [verbose] > │ | UH7_1 │
00:09:13 #40161 [verbose] > │ and UH8 = │
00:09:13 #40162 [verbose] > │ | UH8_0 │
00:09:13 #40163 [verbose] > │ | UH8_1 of float * float * UH8 │
00:09:13 #40164 [verbose] > │ and UH9 = │
00:09:13 #40165 [verbose] > │ | UH9_0 │
00:09:13 #40166 [verbose] > │ | UH9_1 of float * UH9 │
00:09:13 #40167 [verbose] > │ let rec closure3 (v0 : float, v1 : (unit -> UH0), v2 : (unit -> UH1)) () : │
00:09:13 #40168 [verbose] > │ UH0 = │
00:09:13 #40169 [verbose] > │ let v3 : UH1 = v2 () │
00:09:13 #40170 [verbose] > │ let v4 : UH0 = v1 () │
00:09:13 #40171 [verbose] > │ match v3 with │
00:09:13 #40172 [verbose] > │ | UH1_0(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* StreamCons *) │
00:09:13 #40173 [verbose] > │ match v4 with │
00:09:13 #40174 [verbose] > │ | UH0_0(v15, v16, v17, v18, v19, v20, v21, v22, v23, v24) -> (* │
00:09:13 #40175 [verbose] > │ StreamCons *) │
00:09:13 #40176 [verbose] > │ let v25 : float = v10 * v0 │
00:09:13 #40177 [verbose] > │ let v26 : float = v20 + v25 │
00:09:13 #40178 [verbose] > │ let v27 : float = v0 * v7 │
00:09:13 #40179 [verbose] > │ let v28 : float = v0 * v8 │
00:09:13 #40180 [verbose] > │ let v29 : float = v0 * v9 │
00:09:13 #40181 [verbose] > │ let v30 : float = v17 + v27 │
00:09:13 #40182 [verbose] > │ let v31 : float = v18 + v28 │
00:09:13 #40183 [verbose] > │ let v32 : float = v19 + v29 │
00:09:13 #40184 [verbose] > │ let v33 : float = v0 * v11 │
00:09:13 #40185 [verbose] > │ let v34 : float = v0 * v12 │
00:09:13 #40186 [verbose] > │ let v35 : float = v0 * v13 │
00:09:13 #40187 [verbose] > │ let v36 : float = v21 + v33 │
00:09:13 #40188 [verbose] > │ let v37 : float = v22 + v34 │
00:09:13 #40189 [verbose] > │ let v38 : float = v23 + v35 │
00:09:13 #40190 [verbose] > │ let v39 : (unit -> UH0) = closure3(v0, v24, v14) │
00:09:13 #40191 [verbose] > │ UH0_0(v15, v16, v30, v31, v32, v26, v36, v37, v38, v39) │
00:09:13 #40192 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40193 [verbose] > │ UH0_1 │
00:09:13 #40194 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:13 #40195 [verbose] > │ UH0_1 │
00:09:13 #40196 [verbose] > │ and closure4 (v0 : UH0) () : UH0 = │
00:09:13 #40197 [verbose] > │ v0 │
00:09:13 #40198 [verbose] > │ and closure5 (v0 : UH0, v1 : Mut0) () : UH0 = │
00:09:13 #40199 [verbose] > │ let v2 : US0 = v1.l0 │
00:09:13 #40200 [verbose] > │ match v2 with │
00:09:13 #40201 [verbose] > │ | US0_1(v3) -> (* Computed *) │
00:09:13 #40202 [verbose] > │ v3 │
00:09:13 #40203 [verbose] > │ | US0_0(v4) -> (* NotComputed *) │
00:09:13 #40204 [verbose] > │ let v5 : UH0 = v4 () │
00:09:13 #40205 [verbose] > │ let v20 : UH0 = │
00:09:13 #40206 [verbose] > │ match v5 with │
00:09:13 #40207 [verbose] > │ | UH0_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v16) -> (* │
00:09:13 #40208 [verbose] > │ StreamCons *) │
00:09:13 #40209 [verbose] > │ let v17 : (unit -> UH0) = method1(v0, v16) │
00:09:13 #40210 [verbose] > │ UH0_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v17) │
00:09:13 #40211 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40212 [verbose] > │ UH0_1 │
00:09:13 #40213 [verbose] > │ let v21 : US0 = US0_1(v20) │
00:09:13 #40214 [verbose] > │ v1.l0 <- v21 │
00:09:13 #40215 [verbose] > │ v20 │
00:09:13 #40216 [verbose] > │ and method1 (v0 : UH0, v1 : (unit -> UH0)) : (unit -> UH0) = │
00:09:13 #40217 [verbose] > │ let v2 : US0 = US0_0(v1) │
00:09:13 #40218 [verbose] > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:09:13 #40219 [verbose] > │ closure5(v0, v3) │
00:09:13 #40220 [verbose] > │ and closure6 (v0 : (unit -> UH0), v1 : (unit -> UH0)) () : UH2 = │
00:09:13 #40221 [verbose] > │ let v2 : UH0 = v1 () │
00:09:13 #40222 [verbose] > │ let v3 : UH0 = v0 () │
00:09:13 #40223 [verbose] > │ match v2 with │
00:09:13 #40224 [verbose] > │ | UH0_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:09:13 #40225 [verbose] > │ match v3 with │
00:09:13 #40226 [verbose] > │ | UH0_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:09:13 #40227 [verbose] > │ StreamCons *) │
00:09:13 #40228 [verbose] > │ let v24 : (unit -> UH2) = closure6(v23, v13) │
00:09:13 #40229 [verbose] > │ UH2_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v14, v15, v16, v17, │
00:09:13 #40230 [verbose] > │ v18, v19, v20, v21, v22, v24) │
00:09:13 #40231 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40232 [verbose] > │ UH2_1 │
00:09:13 #40233 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40234 [verbose] > │ UH2_1 │
00:09:13 #40235 [verbose] > │ and closure7 (v0 : UH0) () : UH0 = │
00:09:13 #40236 [verbose] > │ v0 │
00:09:13 #40237 [verbose] > │ and method2 (v0 : float, v1 : UH2, v2 : UH0) : UH0 = │
00:09:13 #40238 [verbose] > │ match v1 with │
00:09:13 #40239 [verbose] > │ | UH2_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, │
00:09:13 #40240 [verbose] > │ v17, v18, v19, v20, v21) -> (* StreamCons *) │
00:09:13 #40241 [verbose] > │ let v22 : UH2 = v21 () │
00:09:13 #40242 [verbose] > │ let v23 : UH0 = method2(v0, v22, v2) │
00:09:13 #40243 [verbose] > │ let v24 : float = v0 * v18 │
00:09:13 #40244 [verbose] > │ let v25 : float = v0 * v19 │
00:09:13 #40245 [verbose] > │ let v26 : float = v0 * v20 │
00:09:13 #40246 [verbose] > │ let v27 : float = v5 + v24 │
00:09:13 #40247 [verbose] > │ let v28 : float = v6 + v25 │
00:09:13 #40248 [verbose] > │ let v29 : float = v7 + v26 │
00:09:13 #40249 [verbose] > │ let v30 : (unit -> UH0) = closure7(v23) │
00:09:13 #40250 [verbose] > │ UH0_0(v12, v13, v27, v28, v29, v17, v18, v19, v20, v30) │
00:09:13 #40251 [verbose] > │ | UH2_1 -> (* StreamNil *) │
00:09:13 #40252 [verbose] > │ v2 │
00:09:13 #40253 [verbose] > │ and closure2 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:09:13 #40254 [verbose] > │ let v3 : UH1 = v1 v2 │
00:09:13 #40255 [verbose] > │ let v45 : UH0 = │
00:09:13 #40256 [verbose] > │ match v3 with │
00:09:13 #40257 [verbose] > │ | UH1_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons │
00:09:13 #40258 [verbose] > │ *) │
00:09:13 #40259 [verbose] > │ match v2 with │
00:09:13 #40260 [verbose] > │ | UH0_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:09:13 #40261 [verbose] > │ StreamCons *) │
00:09:13 #40262 [verbose] > │ let v24 : float = v9 * v0 │
00:09:13 #40263 [verbose] > │ let v25 : float = v19 + v24 │
00:09:13 #40264 [verbose] > │ let v26 : float = v0 * v6 │
00:09:13 #40265 [verbose] > │ let v27 : float = v0 * v7 │
00:09:13 #40266 [verbose] > │ let v28 : float = v0 * v8 │
00:09:13 #40267 [verbose] > │ let v29 : float = v16 + v26 │
00:09:13 #40268 [verbose] > │ let v30 : float = v17 + v27 │
00:09:13 #40269 [verbose] > │ let v31 : float = v18 + v28 │
00:09:13 #40270 [verbose] > │ let v32 : float = v0 * v10 │
00:09:13 #40271 [verbose] > │ let v33 : float = v0 * v11 │
00:09:13 #40272 [verbose] > │ let v34 : float = v0 * v12 │
00:09:13 #40273 [verbose] > │ let v35 : float = v20 + v32 │
00:09:13 #40274 [verbose] > │ let v36 : float = v21 + v33 │
00:09:13 #40275 [verbose] > │ let v37 : float = v22 + v34 │
00:09:13 #40276 [verbose] > │ let v38 : (unit -> UH0) = closure3(v0, v23, v13) │
00:09:13 #40277 [verbose] > │ UH0_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:09:13 #40278 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40279 [verbose] > │ UH0_1 │
00:09:13 #40280 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:13 #40281 [verbose] > │ UH0_1 │
00:09:13 #40282 [verbose] > │ let v46 : (unit -> UH0) = closure4(v45) │
00:09:13 #40283 [verbose] > │ let v47 : (unit -> UH0) = method1(v45, v46) │
00:09:13 #40284 [verbose] > │ let v48 : UH0 = v47 () │
00:09:13 #40285 [verbose] > │ let v76 : UH2 = │
00:09:13 #40286 [verbose] > │ match v2 with │
00:09:13 #40287 [verbose] > │ | UH0_0(v49, v50, v51, v52, v53, v54, v55, v56, v57, v58) -> (* │
00:09:13 #40288 [verbose] > │ StreamCons *) │
00:09:13 #40289 [verbose] > │ match v48 with │
00:09:13 #40290 [verbose] > │ | UH0_0(v59, v60, v61, v62, v63, v64, v65, v66, v67, v68) -> (* │
00:09:13 #40291 [verbose] > │ StreamCons *) │
00:09:13 #40292 [verbose] > │ let v69 : (unit -> UH2) = closure6(v68, v58) │
00:09:13 #40293 [verbose] > │ UH2_0(v49, v50, v51, v52, v53, v54, v55, v56, v57, v59, v60, │
00:09:13 #40294 [verbose] > │ v61, v62, v63, v64, v65, v66, v67, v69) │
00:09:13 #40295 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40296 [verbose] > │ UH2_1 │
00:09:13 #40297 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40298 [verbose] > │ UH2_1 │
00:09:13 #40299 [verbose] > │ let v77 : UH0 = UH0_1 │
00:09:13 #40300 [verbose] > │ let v78 : UH0 = method2(v0, v76, v77) │
00:09:13 #40301 [verbose] > │ v78 │
00:09:13 #40302 [verbose] > │ and closure1 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:09:13 #40303 [verbose] > │ closure2(v0, v1) │
00:09:13 #40304 [verbose] > │ and closure0 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:09:13 #40305 [verbose] > │ closure1(v0) │
00:09:13 #40306 [verbose] > │ and closure9 (v0 : UH3) () : UH3 = │
00:09:13 #40307 [verbose] > │ v0 │
00:09:13 #40308 [verbose] > │ and method3 (v0 : UH0, v1 : UH3, v2 : int32) : struct (UH3 * int32) = │
00:09:13 #40309 [verbose] > │ match v0 with │
00:09:13 #40310 [verbose] > │ | UH0_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons *) │
00:09:13 #40311 [verbose] > │ let v13 : int32 = v2 + 1 │
00:09:13 #40312 [verbose] > │ let v14 : UH0 = v12 () │
00:09:13 #40313 [verbose] > │ let v15 : (unit -> UH3) = closure9(v1) │
00:09:13 #40314 [verbose] > │ let v16 : UH3 = UH3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v15) │
00:09:13 #40315 [verbose] > │ method3(v14, v16, v13) │
00:09:13 #40316 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40317 [verbose] > │ struct (v1, v2) │
00:09:13 #40318 [verbose] > │ and closure10 (v0 : UH3) () : UH3 = │
00:09:13 #40319 [verbose] > │ v0 │
00:09:13 #40320 [verbose] > │ and method4 (v0 : UH3, v1 : UH3) : UH3 = │
00:09:13 #40321 [verbose] > │ match v0 with │
00:09:13 #40322 [verbose] > │ | UH3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons │
00:09:13 #40323 [verbose] > │ *) │
00:09:13 #40324 [verbose] > │ let v13 : UH3 = v12 () │
00:09:13 #40325 [verbose] > │ let v14 : (unit -> UH3) = closure10(v1) │
00:09:13 #40326 [verbose] > │ let v15 : UH3 = UH3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v14) │
00:09:13 #40327 [verbose] > │ method4(v13, v15) │
00:09:13 #40328 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:13 #40329 [verbose] > │ v1 │
00:09:13 #40330 [verbose] > │ and method6 (v0 : int32, v1 : UH0) : US2 = │
00:09:13 #40331 [verbose] > │ match v1 with │
00:09:13 #40332 [verbose] > │ | UH0_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:09:13 #40333 [verbose] > │ let v12 : bool = v0 <= 0 │
00:09:13 #40334 [verbose] > │ if v12 then │
00:09:13 #40335 [verbose] > │ US2_0(v2, v3, v4, v5, v6, v7, v8, v9, v10) │
00:09:13 #40336 [verbose] > │ else │
00:09:13 #40337 [verbose] > │ let v14 : int32 = v0 - 1 │
00:09:13 #40338 [verbose] > │ let v15 : UH0 = v11 () │
00:09:13 #40339 [verbose] > │ method6(v14, v15) │
00:09:13 #40340 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40341 [verbose] > │ US2_1 │
00:09:13 #40342 [verbose] > │ and closure11 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, │
00:09:13 #40343 [verbose] > │ v5 : float, v6 : float, v7 : float, v8 : float) struct (v9 : float, v10 : │
00:09:13 #40344 [verbose] > │ float, v11 : float, v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:09:13 #40345 [verbose] > │ : float, v17 : float) : struct (float * float * float) = │
00:09:13 #40346 [verbose] > │ let v18 : float = -1.0 * v2 │
00:09:13 #40347 [verbose] > │ let v19 : float = -1.0 * v3 │
00:09:13 #40348 [verbose] > │ let v20 : float = -1.0 * v4 │
00:09:13 #40349 [verbose] > │ let v21 : float = v11 + v18 │
00:09:13 #40350 [verbose] > │ let v22 : float = v12 + v19 │
00:09:13 #40351 [verbose] > │ let v23 : float = v13 + v20 │
00:09:13 #40352 [verbose] > │ let v24 : float = v21 * v21 │
00:09:13 #40353 [verbose] > │ let v25 : float = v22 * v22 │
00:09:13 #40354 [verbose] > │ let v26 : float = v24 + v25 │
00:09:13 #40355 [verbose] > │ let v27 : float = v23 * v23 │
00:09:13 #40356 [verbose] > │ let v28 : float = v26 + v27 │
00:09:13 #40357 [verbose] > │ let v29 : float = sqrt v28 │
00:09:13 #40358 [verbose] > │ let v30 : bool = v29 >= 0.06 │
00:09:13 #40359 [verbose] > │ let v33 : float = │
00:09:13 #40360 [verbose] > │ if v30 then │
00:09:13 #40361 [verbose] > │ 0.0 │
00:09:13 #40362 [verbose] > │ else │
00:09:13 #40363 [verbose] > │ let v31 : float = v29 - 0.06 │
00:09:13 #40364 [verbose] > │ let v32 : float = -30.0 * v31 │
00:09:13 #40365 [verbose] > │ v32 │
00:09:13 #40366 [verbose] > │ let v34 : float = v33 * v21 │
00:09:13 #40367 [verbose] > │ let v35 : float = v33 * v22 │
00:09:13 #40368 [verbose] > │ let v36 : float = v33 * v23 │
00:09:13 #40369 [verbose] > │ let v37 : float = v34 / v29 │
00:09:13 #40370 [verbose] > │ let v38 : float = v35 / v29 │
00:09:13 #40371 [verbose] > │ let v39 : float = v36 / v29 │
00:09:13 #40372 [verbose] > │ struct (v37, v38, v39) │
00:09:13 #40373 [verbose] > │ and closure12 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:09:13 #40374 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:09:13 #40375 [verbose] > │ float * float) = │
00:09:13 #40376 [verbose] > │ struct (0.0, 0.0, 0.0) │
00:09:13 #40377 [verbose] > │ and closure13 (v0 : UH1) () : UH1 = │
00:09:13 #40378 [verbose] > │ v0 │
00:09:13 #40379 [verbose] > │ and method5 (v0 : UH0, v1 : UH3, v2 : UH1) : UH1 = │
00:09:13 #40380 [verbose] > │ match v1 with │
00:09:13 #40381 [verbose] > │ | UH3_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons │
00:09:13 #40382 [verbose] > │ *) │
00:09:13 #40383 [verbose] > │ let v14 : UH3 = v13 () │
00:09:13 #40384 [verbose] > │ let v15 : UH1 = method5(v0, v14, v2) │
00:09:13 #40385 [verbose] > │ let v16 : bool = v3 = 0 │
00:09:13 #40386 [verbose] > │ let v52 : US1 = │
00:09:13 #40387 [verbose] > │ if v16 then │
00:09:13 #40388 [verbose] > │ let v17 : int32 = 1 │
00:09:13 #40389 [verbose] > │ let v18 : US2 = method6(v17, v0) │
00:09:13 #40390 [verbose] > │ match v18 with │
00:09:13 #40391 [verbose] > │ | US2_1 -> (* None *) │
00:09:13 #40392 [verbose] > │ US1_1 │
00:09:13 #40393 [verbose] > │ | US2_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* │
00:09:13 #40394 [verbose] > │ Some *) │
00:09:13 #40395 [verbose] > │ let v28 : (struct (float * float * float * float * float │
00:09:13 #40396 [verbose] > │ * float * float * float * float) -> struct (float * float * float)) = │
00:09:13 #40397 [verbose] > │ closure11(v19, v20, v21, v22, v23, v24, v25, v26, v27) │
00:09:13 #40398 [verbose] > │ US1_0(v28) │
00:09:13 #40399 [verbose] > │ else │
00:09:13 #40400 [verbose] > │ let v33 : bool = v3 = 1 │
00:09:13 #40401 [verbose] > │ if v33 then │
00:09:13 #40402 [verbose] > │ let v34 : int32 = 0 │
00:09:13 #40403 [verbose] > │ let v35 : US2 = method6(v34, v0) │
00:09:13 #40404 [verbose] > │ match v35 with │
00:09:13 #40405 [verbose] > │ | US2_1 -> (* None *) │
00:09:13 #40406 [verbose] > │ US1_1 │
00:09:13 #40407 [verbose] > │ | US2_0(v36, v37, v38, v39, v40, v41, v42, v43, v44) -> │
00:09:13 #40408 [verbose] > │ (* Some *) │
00:09:13 #40409 [verbose] > │ let v45 : (struct (float * float * float * float * │
00:09:13 #40410 [verbose] > │ float * float * float * float * float) -> struct (float * float * float)) = │
00:09:13 #40411 [verbose] > │ closure11(v36, v37, v38, v39, v40, v41, v42, v43, v44) │
00:09:13 #40412 [verbose] > │ US1_0(v45) │
00:09:13 #40413 [verbose] > │ else │
00:09:13 #40414 [verbose] > │ US1_1 │
00:09:13 #40415 [verbose] > │ let v56 : (struct (float * float * float * float * float * float * │
00:09:13 #40416 [verbose] > │ float * float * float) -> struct (float * float * float)) = │
00:09:13 #40417 [verbose] > │ match v52 with │
00:09:13 #40418 [verbose] > │ | US1_1 -> (* None *) │
00:09:13 #40419 [verbose] > │ closure12() │
00:09:13 #40420 [verbose] > │ | US1_0(v53) -> (* Some *) │
00:09:13 #40421 [verbose] > │ v53 │
00:09:13 #40422 [verbose] > │ let struct (v57 : float, v58 : float, v59 : float) = v56 struct (v4, │
00:09:13 #40423 [verbose] > │ v5, v6, v7, v8, v9, v10, v11, v12) │
00:09:13 #40424 [verbose] > │ let v60 : float = v57 / v5 │
00:09:13 #40425 [verbose] > │ let v61 : float = v58 / v5 │
00:09:13 #40426 [verbose] > │ let v62 : float = v59 / v5 │
00:09:13 #40427 [verbose] > │ let v63 : (unit -> UH1) = closure13(v15) │
00:09:13 #40428 [verbose] > │ UH1_0(0.0, 0.0, v10, v11, v12, 1.0, v60, v61, v62, v63) │
00:09:13 #40429 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:13 #40430 [verbose] > │ v2 │
00:09:13 #40431 [verbose] > │ and closure8 () (v0 : UH0) : UH1 = │
00:09:13 #40432 [verbose] > │ let v1 : UH3 = UH3_1 │
00:09:13 #40433 [verbose] > │ let v2 : int32 = 0 │
00:09:13 #40434 [verbose] > │ let struct (v3 : UH3, v4 : int32) = method3(v0, v1, v2) │
00:09:13 #40435 [verbose] > │ let v5 : UH3 = UH3_1 │
00:09:13 #40436 [verbose] > │ let v6 : UH3 = method4(v3, v5) │
00:09:13 #40437 [verbose] > │ let v7 : UH1 = UH1_1 │
00:09:13 #40438 [verbose] > │ let v8 : UH1 = method5(v0, v6, v7) │
00:09:13 #40439 [verbose] > │ v8 │
00:09:13 #40440 [verbose] > │ and method8 (v0 : int32, v1 : int32) : UH5 = │
00:09:13 #40441 [verbose] > │ let v2 : bool = v1 < v0 │
00:09:13 #40442 [verbose] > │ if v2 then │
00:09:13 #40443 [verbose] > │ let v3 : int32 = v1 + 1 │
00:09:13 #40444 [verbose] > │ let v4 : UH5 = method8(v0, v3) │
00:09:13 #40445 [verbose] > │ UH5_1(v1, v4) │
00:09:13 #40446 [verbose] > │ else │
00:09:13 #40447 [verbose] > │ UH5_0 │
00:09:13 #40448 [verbose] > │ and closure15 () () : UH0 = │
00:09:13 #40449 [verbose] > │ UH0_1 │
00:09:13 #40450 [verbose] > │ and closure14 () () : UH0 = │
00:09:13 #40451 [verbose] > │ let v0 : (unit -> UH0) = closure15() │
00:09:13 #40452 [verbose] > │ UH0_0(0.0, 0.16, 1.0, 0.02, 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:13 #40453 [verbose] > │ and method9 (v0 : (UH0 -> UH0), v1 : UH5, v2 : UH0) : UH0 = │
00:09:13 #40454 [verbose] > │ match v1 with │
00:09:13 #40455 [verbose] > │ | UH5_1(v3, v4) -> (* Cons *) │
00:09:13 #40456 [verbose] > │ let v5 : (unit -> UH0) = closure4(v2) │
00:09:13 #40457 [verbose] > │ let v6 : (unit -> UH0) = method1(v2, v5) │
00:09:13 #40458 [verbose] > │ let v7 : UH0 = v6 () │
00:09:13 #40459 [verbose] > │ let v8 : UH0 = v0 v7 │
00:09:13 #40460 [verbose] > │ method9(v0, v4, v8) │
00:09:13 #40461 [verbose] > │ | UH5_0 -> (* Nil *) │
00:09:13 #40462 [verbose] > │ v2 │
00:09:13 #40463 [verbose] > │ and method10 (v0 : UH4, v1 : UH4) : UH4 = │
00:09:13 #40464 [verbose] > │ match v0 with │
00:09:13 #40465 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:09:13 #40466 [verbose] > │ let v4 : UH4 = UH4_1(v2, v1) │
00:09:13 #40467 [verbose] > │ method10(v3, v4) │
00:09:13 #40468 [verbose] > │ | UH4_0 -> (* Nil *) │
00:09:13 #40469 [verbose] > │ v1 │
00:09:13 #40470 [verbose] > │ and method7 (v0 : (UH0 -> UH0), v1 : UH4, v2 : int32) : UH4 = │
00:09:13 #40471 [verbose] > │ let v3 : int32 = 0 │
00:09:13 #40472 [verbose] > │ let v4 : UH5 = method8(v2, v3) │
00:09:13 #40473 [verbose] > │ let v5 : float = 0.0 │
00:09:13 #40474 [verbose] > │ let v6 : float = 0.16 │
00:09:13 #40475 [verbose] > │ let v7 : float = 0.0 │
00:09:13 #40476 [verbose] > │ let v8 : float = 0.0 │
00:09:13 #40477 [verbose] > │ let v9 : float = 0.0 │
00:09:13 #40478 [verbose] > │ let v10 : float = 0.0 │
00:09:13 #40479 [verbose] > │ let v11 : float = 0.2 │
00:09:13 #40480 [verbose] > │ let v12 : float = 0.0 │
00:09:13 #40481 [verbose] > │ let v13 : float = 0.0 │
00:09:13 #40482 [verbose] > │ let v14 : (unit -> UH0) = closure14() │
00:09:13 #40483 [verbose] > │ let v15 : UH0 = UH0_0(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) │
00:09:13 #40484 [verbose] > │ let v16 : UH0 = method9(v0, v4, v15) │
00:09:13 #40485 [verbose] > │ let v17 : int32 = 0 │
00:09:13 #40486 [verbose] > │ let v18 : US2 = method6(v17, v16) │
00:09:13 #40487 [verbose] > │ let v30 : bool = │
00:09:13 #40488 [verbose] > │ match v18 with │
00:09:13 #40489 [verbose] > │ | US2_1 -> (* None *) │
00:09:13 #40490 [verbose] > │ false │
00:09:13 #40491 [verbose] > │ | US2_0(v19, v20, v21, v22, v23, v24, v25, v26, v27) -> (* Some *) │
00:09:13 #40492 [verbose] > │ let v28 : bool = v24 <= 10.0 │
00:09:13 #40493 [verbose] > │ v28 │
00:09:13 #40494 [verbose] > │ if v30 then │
00:09:13 #40495 [verbose] > │ let v31 : UH4 = UH4_1(v16, v1) │
00:09:13 #40496 [verbose] > │ let v32 : int32 = v2 + 1 │
00:09:13 #40497 [verbose] > │ method7(v0, v31, v32) │
00:09:13 #40498 [verbose] > │ else │
00:09:13 #40499 [verbose] > │ let v34 : UH4 = UH4_0 │
00:09:13 #40500 [verbose] > │ method10(v1, v34) │
00:09:13 #40501 [verbose] > │ and closure16 (v0 : UH7) () : UH7 = │
00:09:13 #40502 [verbose] > │ v0 │
00:09:13 #40503 [verbose] > │ and method12 (v0 : UH0, v1 : UH7) : UH7 = │
00:09:13 #40504 [verbose] > │ match v0 with │
00:09:13 #40505 [verbose] > │ | UH0_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:09:13 #40506 [verbose] > │ let v12 : UH0 = v11 () │
00:09:13 #40507 [verbose] > │ let v13 : UH7 = method12(v12, v1) │
00:09:13 #40508 [verbose] > │ let v14 : float = v8 * v8 │
00:09:13 #40509 [verbose] > │ let v15 : float = v9 * v9 │
00:09:13 #40510 [verbose] > │ let v16 : float = v14 + v15 │
00:09:13 #40511 [verbose] > │ let v17 : float = v10 * v10 │
00:09:13 #40512 [verbose] > │ let v18 : float = v16 + v17 │
00:09:13 #40513 [verbose] > │ let v19 : float = sqrt v18 │
00:09:13 #40514 [verbose] > │ let v20 : float = 0.5 * v3 │
00:09:13 #40515 [verbose] > │ let v21 : float = v19 ** 2.0 │
00:09:13 #40516 [verbose] > │ let v22 : float = v20 * v21 │
00:09:13 #40517 [verbose] > │ let v23 : (unit -> UH7) = closure16(v13) │
00:09:13 #40518 [verbose] > │ UH7_0(v22, v23) │
00:09:13 #40519 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40520 [verbose] > │ v1 │
00:09:13 #40521 [verbose] > │ and method13 (v0 : UH7, v1 : float) : float = │
00:09:13 #40522 [verbose] > │ match v0 with │
00:09:13 #40523 [verbose] > │ | UH7_0(v2, v3) -> (* StreamCons *) │
00:09:13 #40524 [verbose] > │ let v4 : float = v1 + v2 │
00:09:13 #40525 [verbose] > │ let v5 : UH7 = v3 () │
00:09:13 #40526 [verbose] > │ method13(v5, v4) │
00:09:13 #40527 [verbose] > │ | UH7_1 -> (* StreamNil *) │
00:09:13 #40528 [verbose] > │ v1 │
00:09:13 #40529 [verbose] > │ and method11 (v0 : UH4, v1 : UH6) : UH6 = │
00:09:13 #40530 [verbose] > │ match v0 with │
00:09:13 #40531 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:09:13 #40532 [verbose] > │ let v4 : UH6 = method11(v3, v1) │
00:09:13 #40533 [verbose] > │ let v5 : int32 = 0 │
00:09:13 #40534 [verbose] > │ let v6 : US2 = method6(v5, v2) │
00:09:13 #40535 [verbose] > │ let v23 : US3 = │
00:09:13 #40536 [verbose] > │ match v6 with │
00:09:13 #40537 [verbose] > │ | US2_1 -> (* None *) │
00:09:13 #40538 [verbose] > │ US3_1 │
00:09:13 #40539 [verbose] > │ | US2_0(v7, v8, v9, v10, v11, v12, v13, v14, v15) -> (* Some *) │
00:09:13 #40540 [verbose] > │ let v16 : UH7 = UH7_1 │
00:09:13 #40541 [verbose] > │ let v17 : UH7 = method12(v2, v16) │
00:09:13 #40542 [verbose] > │ let v18 : float = 0.0 │
00:09:13 #40543 [verbose] > │ let v19 : float = method13(v17, v18) │
00:09:13 #40544 [verbose] > │ US3_0(v12, v19) │
00:09:13 #40545 [verbose] > │ UH6_1(v23, v4) │
00:09:13 #40546 [verbose] > │ | UH4_0 -> (* Nil *) │
00:09:13 #40547 [verbose] > │ v1 │
00:09:13 #40548 [verbose] > │ and method14 (v0 : UH6, v1 : UH8) : UH8 = │
00:09:13 #40549 [verbose] > │ match v0 with │
00:09:13 #40550 [verbose] > │ | UH6_1(v2, v3) -> (* Cons *) │
00:09:13 #40551 [verbose] > │ let v4 : UH8 = method14(v3, v1) │
00:09:13 #40552 [verbose] > │ match v2 with │
00:09:13 #40553 [verbose] > │ | US3_1 -> (* None *) │
00:09:13 #40554 [verbose] > │ v4 │
00:09:13 #40555 [verbose] > │ | US3_0(v5, v6) -> (* Some *) │
00:09:13 #40556 [verbose] > │ UH8_1(v5, v6, v4) │
00:09:13 #40557 [verbose] > │ | UH6_0 -> (* Nil *) │
00:09:13 #40558 [verbose] > │ v1 │
00:09:13 #40559 [verbose] > │ and method15 (v0 : UH8, v1 : UH9, v2 : UH9) : struct (UH9 * UH9) = │
00:09:13 #40560 [verbose] > │ match v0 with │
00:09:13 #40561 [verbose] > │ | UH8_1(v3, v4, v5) -> (* Cons *) │
00:09:13 #40562 [verbose] > │ let v6 : UH9 = UH9_1(v3, v1) │
00:09:13 #40563 [verbose] > │ let v7 : UH9 = UH9_1(v4, v2) │
00:09:13 #40564 [verbose] > │ method15(v5, v6, v7) │
00:09:13 #40565 [verbose] > │ | UH8_0 -> (* Nil *) │
00:09:13 #40566 [verbose] > │ struct (v1, v2) │
00:09:13 #40567 [verbose] > │ and method16 (v0 : UH9, v1 : UH9) : UH9 = │
00:09:13 #40568 [verbose] > │ match v0 with │
00:09:13 #40569 [verbose] > │ | UH9_1(v2, v3) -> (* Cons *) │
00:09:13 #40570 [verbose] > │ let v4 : UH9 = UH9_1(v2, v1) │
00:09:13 #40571 [verbose] > │ method16(v3, v4) │
00:09:13 #40572 [verbose] > │ | UH9_0 -> (* Nil *) │
00:09:13 #40573 [verbose] > │ v1 │
00:09:13 #40574 [verbose] > │ and closure20 (v0 : (unit -> UH1), v1 : (unit -> UH1)) () : UH1 = │
00:09:13 #40575 [verbose] > │ let v2 : UH1 = v1 () │
00:09:13 #40576 [verbose] > │ let v3 : UH1 = v0 () │
00:09:13 #40577 [verbose] > │ match v2 with │
00:09:13 #40578 [verbose] > │ | UH1_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:09:13 #40579 [verbose] > │ match v3 with │
00:09:13 #40580 [verbose] > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:09:13 #40581 [verbose] > │ StreamCons *) │
00:09:13 #40582 [verbose] > │ let v24 : float = v4 + v14 │
00:09:13 #40583 [verbose] > │ let v25 : float = v5 + v15 │
00:09:13 #40584 [verbose] > │ let v26 : float = v9 + v19 │
00:09:13 #40585 [verbose] > │ let v27 : float = v6 + v16 │
00:09:13 #40586 [verbose] > │ let v28 : float = v7 + v17 │
00:09:13 #40587 [verbose] > │ let v29 : float = v8 + v18 │
00:09:13 #40588 [verbose] > │ let v30 : float = v10 + v20 │
00:09:13 #40589 [verbose] > │ let v31 : float = v11 + v21 │
00:09:13 #40590 [verbose] > │ let v32 : float = v12 + v22 │
00:09:13 #40591 [verbose] > │ let v33 : (unit -> UH1) = closure20(v23, v13) │
00:09:13 #40592 [verbose] > │ UH1_0(v24, v25, v27, v28, v29, v26, v30, v31, v32, v33) │
00:09:13 #40593 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:13 #40594 [verbose] > │ UH1_1 │
00:09:13 #40595 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:13 #40596 [verbose] > │ UH1_1 │
00:09:13 #40597 [verbose] > │ and closure19 (v0 : float, v1 : (UH0 -> UH1)) (v2 : UH0) : UH0 = │
00:09:13 #40598 [verbose] > │ let v3 : UH1 = v1 v2 │
00:09:13 #40599 [verbose] > │ let v4 : float = v0 / 2.0 │
00:09:13 #40600 [verbose] > │ let v46 : UH0 = │
00:09:13 #40601 [verbose] > │ match v3 with │
00:09:13 #40602 [verbose] > │ | UH1_0(v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* │
00:09:13 #40603 [verbose] > │ StreamCons *) │
00:09:13 #40604 [verbose] > │ match v2 with │
00:09:13 #40605 [verbose] > │ | UH0_0(v15, v16, v17, v18, v19, v20, v21, v22, v23, v24) -> (* │
00:09:13 #40606 [verbose] > │ StreamCons *) │
00:09:13 #40607 [verbose] > │ let v25 : float = v10 * v4 │
00:09:13 #40608 [verbose] > │ let v26 : float = v20 + v25 │
00:09:13 #40609 [verbose] > │ let v27 : float = v4 * v7 │
00:09:13 #40610 [verbose] > │ let v28 : float = v4 * v8 │
00:09:13 #40611 [verbose] > │ let v29 : float = v4 * v9 │
00:09:13 #40612 [verbose] > │ let v30 : float = v17 + v27 │
00:09:13 #40613 [verbose] > │ let v31 : float = v18 + v28 │
00:09:13 #40614 [verbose] > │ let v32 : float = v19 + v29 │
00:09:13 #40615 [verbose] > │ let v33 : float = v4 * v11 │
00:09:13 #40616 [verbose] > │ let v34 : float = v4 * v12 │
00:09:13 #40617 [verbose] > │ let v35 : float = v4 * v13 │
00:09:13 #40618 [verbose] > │ let v36 : float = v21 + v33 │
00:09:13 #40619 [verbose] > │ let v37 : float = v22 + v34 │
00:09:13 #40620 [verbose] > │ let v38 : float = v23 + v35 │
00:09:13 #40621 [verbose] > │ let v39 : (unit -> UH0) = closure3(v4, v24, v14) │
00:09:13 #40622 [verbose] > │ UH0_0(v15, v16, v30, v31, v32, v26, v36, v37, v38, v39) │
00:09:13 #40623 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40624 [verbose] > │ UH0_1 │
00:09:13 #40625 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:13 #40626 [verbose] > │ UH0_1 │
00:09:13 #40627 [verbose] > │ let v47 : (unit -> UH0) = closure4(v46) │
00:09:13 #40628 [verbose] > │ let v48 : (unit -> UH0) = method1(v46, v47) │
00:09:13 #40629 [verbose] > │ let v49 : UH0 = v48 () │
00:09:13 #40630 [verbose] > │ let v50 : UH1 = v1 v49 │
00:09:13 #40631 [verbose] > │ let v92 : UH0 = │
00:09:13 #40632 [verbose] > │ match v50 with │
00:09:13 #40633 [verbose] > │ | UH1_0(v51, v52, v53, v54, v55, v56, v57, v58, v59, v60) -> (* │
00:09:13 #40634 [verbose] > │ StreamCons *) │
00:09:13 #40635 [verbose] > │ match v2 with │
00:09:13 #40636 [verbose] > │ | UH0_0(v61, v62, v63, v64, v65, v66, v67, v68, v69, v70) -> (* │
00:09:13 #40637 [verbose] > │ StreamCons *) │
00:09:13 #40638 [verbose] > │ let v71 : float = v56 * v4 │
00:09:13 #40639 [verbose] > │ let v72 : float = v66 + v71 │
00:09:13 #40640 [verbose] > │ let v73 : float = v4 * v53 │
00:09:13 #40641 [verbose] > │ let v74 : float = v4 * v54 │
00:09:13 #40642 [verbose] > │ let v75 : float = v4 * v55 │
00:09:13 #40643 [verbose] > │ let v76 : float = v63 + v73 │
00:09:13 #40644 [verbose] > │ let v77 : float = v64 + v74 │
00:09:13 #40645 [verbose] > │ let v78 : float = v65 + v75 │
00:09:13 #40646 [verbose] > │ let v79 : float = v4 * v57 │
00:09:13 #40647 [verbose] > │ let v80 : float = v4 * v58 │
00:09:13 #40648 [verbose] > │ let v81 : float = v4 * v59 │
00:09:13 #40649 [verbose] > │ let v82 : float = v67 + v79 │
00:09:13 #40650 [verbose] > │ let v83 : float = v68 + v80 │
00:09:13 #40651 [verbose] > │ let v84 : float = v69 + v81 │
00:09:13 #40652 [verbose] > │ let v85 : (unit -> UH0) = closure3(v4, v70, v60) │
00:09:13 #40653 [verbose] > │ UH0_0(v61, v62, v76, v77, v78, v72, v82, v83, v84, v85) │
00:09:13 #40654 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40655 [verbose] > │ UH0_1 │
00:09:13 #40656 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:13 #40657 [verbose] > │ UH0_1 │
00:09:13 #40658 [verbose] > │ let v93 : (unit -> UH0) = closure4(v92) │
00:09:13 #40659 [verbose] > │ let v94 : (unit -> UH0) = method1(v92, v93) │
00:09:13 #40660 [verbose] > │ let v95 : UH0 = v94 () │
00:09:13 #40661 [verbose] > │ let v96 : UH1 = v1 v95 │
00:09:13 #40662 [verbose] > │ let v138 : UH0 = │
00:09:13 #40663 [verbose] > │ match v96 with │
00:09:13 #40664 [verbose] > │ | UH1_0(v97, v98, v99, v100, v101, v102, v103, v104, v105, v106) -> │
00:09:13 #40665 [verbose] > │ (* StreamCons *) │
00:09:13 #40666 [verbose] > │ match v2 with │
00:09:13 #40667 [verbose] > │ | UH0_0(v107, v108, v109, v110, v111, v112, v113, v114, v115, │
00:09:13 #40668 [verbose] > │ v116) -> (* StreamCons *) │
00:09:13 #40669 [verbose] > │ let v117 : float = v102 * v0 │
00:09:13 #40670 [verbose] > │ let v118 : float = v112 + v117 │
00:09:13 #40671 [verbose] > │ let v119 : float = v0 * v99 │
00:09:13 #40672 [verbose] > │ let v120 : float = v0 * v100 │
00:09:13 #40673 [verbose] > │ let v121 : float = v0 * v101 │
00:09:13 #40674 [verbose] > │ let v122 : float = v109 + v119 │
00:09:13 #40675 [verbose] > │ let v123 : float = v110 + v120 │
00:09:13 #40676 [verbose] > │ let v124 : float = v111 + v121 │
00:09:13 #40677 [verbose] > │ let v125 : float = v0 * v103 │
00:09:13 #40678 [verbose] > │ let v126 : float = v0 * v104 │
00:09:13 #40679 [verbose] > │ let v127 : float = v0 * v105 │
00:09:13 #40680 [verbose] > │ let v128 : float = v113 + v125 │
00:09:13 #40681 [verbose] > │ let v129 : float = v114 + v126 │
00:09:13 #40682 [verbose] > │ let v130 : float = v115 + v127 │
00:09:13 #40683 [verbose] > │ let v131 : (unit -> UH0) = closure3(v0, v116, v106) │
00:09:13 #40684 [verbose] > │ UH0_0(v107, v108, v122, v123, v124, v118, v128, v129, v130, │
00:09:13 #40685 [verbose] > │ v131) │
00:09:13 #40686 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:13 #40687 [verbose] > │ UH0_1 │
00:09:13 #40688 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:13 #40689 [verbose] > │ UH0_1 │
00:09:13 #40690 [verbose] > │ let v139 : (unit -> UH0) = closure4(v138) │
00:09:13 #40691 [verbose] > │ let v140 : (unit -> UH0) = method1(v138, v139) │
00:09:13 #40692 [verbose] > │ let v141 : UH0 = v140 () │
00:09:13 #40693 [verbose] > │ let v142 : UH1 = v1 v141 │
00:09:13 #40694 [verbose] > │ let v143 : float = v0 / 6.0 │
00:09:13 #40695 [verbose] > │ let v180 : UH1 = │
00:09:13 #40696 [verbose] > │ match v3 with │
00:09:13 #40697 [verbose] > │ | UH1_0(v144, v145, v146, v147, v148, v149, v150, v151, v152, v153) │
00:09:13 #40698 [verbose] > │ -> (* StreamCons *) │
00:09:13 #40699 [verbose] > │ match v50 with │
00:09:13 #40700 [verbose] > │ | UH1_0(v154, v155, v156, v157, v158, v159, v160, v161, v162, │
00:09:13 #40701 [verbose] > │ v163) -> (* StreamCons *) │
00:09:13 #40702 [verbose] > │ let v164 : float = v144 + v154 │
00:09:13 #40703 [verbose] > │ let v165 : float = v145 + v155 │
00:09:13 #40704 [verbose] > │ let v166 : float = v149 + v159 │
00:09:13 #40705 [verbose] > │ let v167 : float = v146 + v156 │
00:09:13 #40706 [verbose] > │ let v168 : float = v147 + v157 │
00:09:13 #40707 [verbose] > │ let v169 : float = v148 + v158 │
00:09:13 #40708 [verbose] > │ let v170 : float = v150 + v160 │
00:09:13 #40709 [verbose] > │ let v171 : float = v151 + v161 │
00:09:13 #40710 [verbose] > │ let v172 : float = v152 + v162 │
00:09:13 #40711 [verbose] > │ let v173 : (unit -> UH1) = closure20(v163, v153) │
00:09:13 #40712 [verbose] > │ UH1_0(v164, v165, v167, v168, v169, v166, v170, v171, v172, │
00:09:13 #40713 [verbose] > │ v173) │
00:09:13 #40714 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:13 #40715 [verbose] > │ UH1_1 │
00:09:13 #40716 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:13 #40717 [verbose] > │ UH1_1 │
00:09:13 #40718 [verbose] > │ let v217 : UH1 = │
00:09:13 #40719 [verbose] > │ match v180 with │
00:09:13 #40720 [verbose] > │ | UH1_0(v181, v182, v183, v184, v185, v186, v187, v188, v189, v190) │
00:09:13 #40721 [verbose] > │ -> (* StreamCons *) │
00:09:13 #40722 [verbose] > │ match v50 with │
00:09:13 #40723 [verbose] > │ | UH1_0(v191, v192, v193, v194, v195, v196, v197, v198, v199, │
00:09:13 #40724 [verbose] > │ v200) -> (* StreamCons *) │
00:09:13 #40725 [verbose] > │ let v201 : float = v181 + v191 │
00:09:13 #40726 [verbose] > │ let v202 : float = v182 + v192 │
00:09:13 #40727 [verbose] > │ let v203 : float = v186 + v196 │
00:09:13 #40728 [verbose] > │ let v204 : float = v183 + v193 │
00:09:13 #40729 [verbose] > │ let v205 : float = v184 + v194 │
00:09:13 #40730 [verbose] > │ let v206 : float = v185 + v195 │
00:09:13 #40731 [verbose] > │ let v207 : float = v187 + v197 │
00:09:13 #40732 [verbose] > │ let v208 : float = v188 + v198 │
00:09:13 #40733 [verbose] > │ let v209 : float = v189 + v199 │
00:09:13 #40734 [verbose] > │ let v210 : (unit -> UH1) = closure20(v200, v190) │
00:09:13 #40735 [verbose] > │ UH1_0(v201, v202, v204, v205, v206, v203, v207, v208, v209, │
00:09:13 #40736 [verbose] > │ v210) │
00:09:13 #40737 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:13 #40738 [verbose] > │ UH1_1 │
00:09:13 #40739 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:13 #40740 [verbose] > │ UH1_1 │
00:09:13 #40741 [verbose] > │ let v254 : UH1 = │
00:09:13 #40742 [verbose] > │ match v217 with │
00:09:13 #40743 [verbose] > │ | UH1_0(v218, v219, v220, v221, v222, v223, v224, v225, v226, v227) │
00:09:14 #40744 [verbose] > │ -> (* StreamCons *) │
00:09:14 #40745 [verbose] > │ match v96 with │
00:09:14 #40746 [verbose] > │ | UH1_0(v228, v229, v230, v231, v232, v233, v234, v235, v236, │
00:09:14 #40747 [verbose] > │ v237) -> (* StreamCons *) │
00:09:14 #40748 [verbose] > │ let v238 : float = v218 + v228 │
00:09:14 #40749 [verbose] > │ let v239 : float = v219 + v229 │
00:09:14 #40750 [verbose] > │ let v240 : float = v223 + v233 │
00:09:14 #40751 [verbose] > │ let v241 : float = v220 + v230 │
00:09:14 #40752 [verbose] > │ let v242 : float = v221 + v231 │
00:09:14 #40753 [verbose] > │ let v243 : float = v222 + v232 │
00:09:14 #40754 [verbose] > │ let v244 : float = v224 + v234 │
00:09:14 #40755 [verbose] > │ let v245 : float = v225 + v235 │
00:09:14 #40756 [verbose] > │ let v246 : float = v226 + v236 │
00:09:14 #40757 [verbose] > │ let v247 : (unit -> UH1) = closure20(v237, v227) │
00:09:14 #40758 [verbose] > │ UH1_0(v238, v239, v241, v242, v243, v240, v244, v245, v246, │
00:09:14 #40759 [verbose] > │ v247) │
00:09:14 #40760 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:14 #40761 [verbose] > │ UH1_1 │
00:09:14 #40762 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:14 #40763 [verbose] > │ UH1_1 │
00:09:14 #40764 [verbose] > │ let v291 : UH1 = │
00:09:14 #40765 [verbose] > │ match v254 with │
00:09:14 #40766 [verbose] > │ | UH1_0(v255, v256, v257, v258, v259, v260, v261, v262, v263, v264) │
00:09:14 #40767 [verbose] > │ -> (* StreamCons *) │
00:09:14 #40768 [verbose] > │ match v96 with │
00:09:14 #40769 [verbose] > │ | UH1_0(v265, v266, v267, v268, v269, v270, v271, v272, v273, │
00:09:14 #40770 [verbose] > │ v274) -> (* StreamCons *) │
00:09:14 #40771 [verbose] > │ let v275 : float = v255 + v265 │
00:09:14 #40772 [verbose] > │ let v276 : float = v256 + v266 │
00:09:14 #40773 [verbose] > │ let v277 : float = v260 + v270 │
00:09:14 #40774 [verbose] > │ let v278 : float = v257 + v267 │
00:09:14 #40775 [verbose] > │ let v279 : float = v258 + v268 │
00:09:14 #40776 [verbose] > │ let v280 : float = v259 + v269 │
00:09:14 #40777 [verbose] > │ let v281 : float = v261 + v271 │
00:09:14 #40778 [verbose] > │ let v282 : float = v262 + v272 │
00:09:14 #40779 [verbose] > │ let v283 : float = v263 + v273 │
00:09:14 #40780 [verbose] > │ let v284 : (unit -> UH1) = closure20(v274, v264) │
00:09:14 #40781 [verbose] > │ UH1_0(v275, v276, v278, v279, v280, v277, v281, v282, v283, │
00:09:14 #40782 [verbose] > │ v284) │
00:09:14 #40783 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:14 #40784 [verbose] > │ UH1_1 │
00:09:14 #40785 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:14 #40786 [verbose] > │ UH1_1 │
00:09:14 #40787 [verbose] > │ let v328 : UH1 = │
00:09:14 #40788 [verbose] > │ match v291 with │
00:09:14 #40789 [verbose] > │ | UH1_0(v292, v293, v294, v295, v296, v297, v298, v299, v300, v301) │
00:09:14 #40790 [verbose] > │ -> (* StreamCons *) │
00:09:14 #40791 [verbose] > │ match v142 with │
00:09:14 #40792 [verbose] > │ | UH1_0(v302, v303, v304, v305, v306, v307, v308, v309, v310, │
00:09:14 #40793 [verbose] > │ v311) -> (* StreamCons *) │
00:09:14 #40794 [verbose] > │ let v312 : float = v292 + v302 │
00:09:14 #40795 [verbose] > │ let v313 : float = v293 + v303 │
00:09:14 #40796 [verbose] > │ let v314 : float = v297 + v307 │
00:09:14 #40797 [verbose] > │ let v315 : float = v294 + v304 │
00:09:14 #40798 [verbose] > │ let v316 : float = v295 + v305 │
00:09:14 #40799 [verbose] > │ let v317 : float = v296 + v306 │
00:09:14 #40800 [verbose] > │ let v318 : float = v298 + v308 │
00:09:14 #40801 [verbose] > │ let v319 : float = v299 + v309 │
00:09:14 #40802 [verbose] > │ let v320 : float = v300 + v310 │
00:09:14 #40803 [verbose] > │ let v321 : (unit -> UH1) = closure20(v311, v301) │
00:09:14 #40804 [verbose] > │ UH1_0(v312, v313, v315, v316, v317, v314, v318, v319, v320, │
00:09:14 #40805 [verbose] > │ v321) │
00:09:14 #40806 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:14 #40807 [verbose] > │ UH1_1 │
00:09:14 #40808 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:14 #40809 [verbose] > │ UH1_1 │
00:09:14 #40810 [verbose] > │ let v370 : UH0 = │
00:09:14 #40811 [verbose] > │ match v328 with │
00:09:14 #40812 [verbose] > │ | UH1_0(v329, v330, v331, v332, v333, v334, v335, v336, v337, v338) │
00:09:14 #40813 [verbose] > │ -> (* StreamCons *) │
00:09:14 #40814 [verbose] > │ match v2 with │
00:09:14 #40815 [verbose] > │ | UH0_0(v339, v340, v341, v342, v343, v344, v345, v346, v347, │
00:09:14 #40816 [verbose] > │ v348) -> (* StreamCons *) │
00:09:14 #40817 [verbose] > │ let v349 : float = v334 * v143 │
00:09:14 #40818 [verbose] > │ let v350 : float = v344 + v349 │
00:09:14 #40819 [verbose] > │ let v351 : float = v143 * v331 │
00:09:14 #40820 [verbose] > │ let v352 : float = v143 * v332 │
00:09:14 #40821 [verbose] > │ let v353 : float = v143 * v333 │
00:09:14 #40822 [verbose] > │ let v354 : float = v341 + v351 │
00:09:14 #40823 [verbose] > │ let v355 : float = v342 + v352 │
00:09:14 #40824 [verbose] > │ let v356 : float = v343 + v353 │
00:09:14 #40825 [verbose] > │ let v357 : float = v143 * v335 │
00:09:14 #40826 [verbose] > │ let v358 : float = v143 * v336 │
00:09:14 #40827 [verbose] > │ let v359 : float = v143 * v337 │
00:09:14 #40828 [verbose] > │ let v360 : float = v345 + v357 │
00:09:14 #40829 [verbose] > │ let v361 : float = v346 + v358 │
00:09:14 #40830 [verbose] > │ let v362 : float = v347 + v359 │
00:09:14 #40831 [verbose] > │ let v363 : (unit -> UH0) = closure3(v143, v348, v338) │
00:09:14 #40832 [verbose] > │ UH0_0(v339, v340, v354, v355, v356, v350, v360, v361, v362, │
00:09:14 #40833 [verbose] > │ v363) │
00:09:14 #40834 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:14 #40835 [verbose] > │ UH0_1 │
00:09:14 #40836 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:14 #40837 [verbose] > │ UH0_1 │
00:09:14 #40838 [verbose] > │ let v371 : (unit -> UH0) = closure4(v370) │
00:09:14 #40839 [verbose] > │ let v372 : (unit -> UH0) = method1(v370, v371) │
00:09:14 #40840 [verbose] > │ let v373 : UH0 = v372 () │
00:09:14 #40841 [verbose] > │ v373 │
00:09:14 #40842 [verbose] > │ and closure18 (v0 : float) (v1 : (UH0 -> UH1)) : (UH0 -> UH0) = │
00:09:14 #40843 [verbose] > │ closure19(v0, v1) │
00:09:14 #40844 [verbose] > │ and closure17 () (v0 : float) : ((UH0 -> UH1) -> (UH0 -> UH0)) = │
00:09:14 #40845 [verbose] > │ closure18(v0) │
00:09:14 #40846 [verbose] > │ and method17 (v0 : UH4, v1 : UH6) : UH6 = │
00:09:14 #40847 [verbose] > │ match v0 with │
00:09:14 #40848 [verbose] > │ | UH4_1(v2, v3) -> (* Cons *) │
00:09:14 #40849 [verbose] > │ let v4 : UH6 = method17(v3, v1) │
00:09:14 #40850 [verbose] > │ let v5 : int32 = 0 │
00:09:14 #40851 [verbose] > │ let v6 : US2 = method6(v5, v2) │
00:09:14 #40852 [verbose] > │ let v23 : US3 = │
00:09:14 #40853 [verbose] > │ match v6 with │
00:09:14 #40854 [verbose] > │ | US2_1 -> (* None *) │
00:09:14 #40855 [verbose] > │ US3_1 │
00:09:14 #40856 [verbose] > │ | US2_0(v7, v8, v9, v10, v11, v12, v13, v14, v15) -> (* Some *) │
00:09:14 #40857 [verbose] > │ let v16 : UH7 = UH7_1 │
00:09:14 #40858 [verbose] > │ let v17 : UH7 = method12(v2, v16) │
00:09:14 #40859 [verbose] > │ let v18 : float = 0.0 │
00:09:14 #40860 [verbose] > │ let v19 : float = method13(v17, v18) │
00:09:14 #40861 [verbose] > │ US3_0(v12, v19) │
00:09:14 #40862 [verbose] > │ UH6_1(v23, v4) │
00:09:14 #40863 [verbose] > │ | UH4_0 -> (* Nil *) │
00:09:14 #40864 [verbose] > │ v1 │
00:09:14 #40865 [verbose] > │ and method19 (v0 : UH9, v1 : int32) : int32 = │
00:09:14 #40866 [verbose] > │ match v0 with │
00:09:14 #40867 [verbose] > │ | UH9_1(v2, v3) -> (* Cons *) │
00:09:14 #40868 [verbose] > │ let v4 : int32 = v1 + 1 │
00:09:14 #40869 [verbose] > │ method19(v3, v4) │
00:09:14 #40870 [verbose] > │ | UH9_0 -> (* Nil *) │
00:09:14 #40871 [verbose] > │ v1 │
00:09:14 #40872 [verbose] > │ and method20 (v0 : (float []), v1 : UH9, v2 : int32) : int32 = │
00:09:14 #40873 [verbose] > │ match v1 with │
00:09:14 #40874 [verbose] > │ | UH9_1(v3, v4) -> (* Cons *) │
00:09:14 #40875 [verbose] > │ v0.[int v2] <- v3 │
00:09:14 #40876 [verbose] > │ let v5 : int32 = v2 + 1 │
00:09:14 #40877 [verbose] > │ method20(v0, v4, v5) │
00:09:14 #40878 [verbose] > │ | UH9_0 -> (* Nil *) │
00:09:14 #40879 [verbose] > │ v2 │
00:09:14 #40880 [verbose] > │ and method18 (v0 : UH9) : (float []) = │
00:09:14 #40881 [verbose] > │ let v1 : int32 = 0 │
00:09:14 #40882 [verbose] > │ let v2 : int32 = method19(v0, v1) │
00:09:14 #40883 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:09:14 #40884 [verbose] > │ let v4 : int32 = 0 │
00:09:14 #40885 [verbose] > │ let v5 : int32 = method20(v3, v0, v4) │
00:09:14 #40886 [verbose] > │ v3 │
00:09:14 #40887 [verbose] > │ and method0 () : struct (string * string * string * (struct (string * (float │
00:09:14 #40888 [verbose] > │ []) * (float [])) [])) = │
00:09:14 #40889 [verbose] > │ let v0 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure0() │
00:09:14 #40890 [verbose] > │ let v1 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v0 0.03 │
00:09:14 #40891 [verbose] > │ let v2 : (UH0 -> UH1) = closure8() │
00:09:14 #40892 [verbose] > │ let v3 : (UH0 -> UH0) = v1 v2 │
00:09:14 #40893 [verbose] > │ let v4 : UH4 = UH4_0 │
00:09:14 #40894 [verbose] > │ let v5 : int32 = 0 │
00:09:14 #40895 [verbose] > │ let v6 : UH4 = method7(v3, v4, v5) │
00:09:14 #40896 [verbose] > │ let v7 : UH6 = UH6_0 │
00:09:14 #40897 [verbose] > │ let v8 : UH6 = method11(v6, v7) │
00:09:14 #40898 [verbose] > │ let v9 : UH8 = UH8_0 │
00:09:14 #40899 [verbose] > │ let v10 : UH8 = method14(v8, v9) │
00:09:14 #40900 [verbose] > │ let v11 : UH9 = UH9_0 │
00:09:14 #40901 [verbose] > │ let v12 : UH9 = UH9_0 │
00:09:14 #40902 [verbose] > │ let struct (v13 : UH9, v14 : UH9) = method15(v10, v11, v12) │
00:09:14 #40903 [verbose] > │ let v15 : UH9 = UH9_0 │
00:09:14 #40904 [verbose] > │ let v16 : UH9 = method16(v13, v15) │
00:09:14 #40905 [verbose] > │ let v17 : UH9 = UH9_0 │
00:09:14 #40906 [verbose] > │ let v18 : UH9 = method16(v14, v17) │
00:09:14 #40907 [verbose] > │ let v19 : (float -> ((UH0 -> UH1) -> (UH0 -> UH0))) = closure17() │
00:09:14 #40908 [verbose] > │ let v20 : ((UH0 -> UH1) -> (UH0 -> UH0)) = v19 0.03 │
00:09:14 #40909 [verbose] > │ let v21 : (UH0 -> UH0) = v20 v2 │
00:09:14 #40910 [verbose] > │ let v22 : UH4 = UH4_0 │
00:09:14 #40911 [verbose] > │ let v23 : int32 = 0 │
00:09:14 #40912 [verbose] > │ let v24 : UH4 = method7(v21, v22, v23) │
00:09:14 #40913 [verbose] > │ let v25 : UH6 = UH6_0 │
00:09:14 #40914 [verbose] > │ let v26 : UH6 = method17(v24, v25) │
00:09:14 #40915 [verbose] > │ let v27 : UH8 = UH8_0 │
00:09:14 #40916 [verbose] > │ let v28 : UH8 = method14(v26, v27) │
00:09:14 #40917 [verbose] > │ let v29 : UH9 = UH9_0 │
00:09:14 #40918 [verbose] > │ let v30 : UH9 = UH9_0 │
00:09:14 #40919 [verbose] > │ let struct (v31 : UH9, v32 : UH9) = method15(v28, v29, v30) │
00:09:14 #40920 [verbose] > │ let v33 : UH9 = UH9_0 │
00:09:14 #40921 [verbose] > │ let v34 : UH9 = method16(v31, v33) │
00:09:14 #40922 [verbose] > │ let v35 : UH9 = UH9_0 │
00:09:14 #40923 [verbose] > │ let v36 : UH9 = method16(v32, v35) │
00:09:14 #40924 [verbose] > │ let v37 : (float []) = method18(v16) │
00:09:14 #40925 [verbose] > │ let v38 : (float []) = method18(v18) │
00:09:14 #40926 [verbose] > │ let v39 : (float []) = method18(v34) │
00:09:14 #40927 [verbose] > │ let v40 : (float []) = method18(v36) │
00:09:14 #40928 [verbose] > │ let v41 : string = "euler-cromer" │
00:09:14 #40929 [verbose] > │ let v42 : string = "runge-kutta 4" │
00:09:14 #40930 [verbose] > │ let v43 : (struct (string * (float []) * (float [])) []) = [|struct │
00:09:14 #40931 [verbose] > │ (v41, v37, v38); struct (v42, v39, v40)|] │
00:09:14 #40932 [verbose] > │ let v44 : string = "system kinetic energy versus time" │
00:09:14 #40933 [verbose] > │ let v45 : string = "time (s)" │
00:09:14 #40934 [verbose] > │ let v46 : string = "system kinetic energy (j)" │
00:09:14 #40935 [verbose] > │ struct (v44, v45, v46, v43) │
00:09:14 #40936 [verbose] > │ method0() │
00:09:14 #40937 [verbose] > │ │
00:09:14 #40938 [verbose] > │ │
00:09:14 #40939 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:14 #40940 [verbose] >
00:09:14 #40941 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:14 #40942 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:14 #40943 [verbose] > │ ### wave 2 │
00:09:14 #40944 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:14 #40945 [verbose] >
00:09:14 #40946 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:09:14 #40947 [verbose] > // // test
00:09:14 #40948 [verbose] >
00:09:14 #40949 [verbose] > inl linear_spring k re (particle_state st1) (particle_state st2) =
00:09:14 #40950 [verbose] > inl r1 = st1.pos_vec
00:09:14 #40951 [verbose] > inl r2 = st2.pos_vec
00:09:14 #40952 [verbose] > inl r21 = r2 ^-^ r1
00:09:14 #40953 [verbose] > inl r21mag = magnitude r21
00:09:14 #40954 [verbose] > -k * (r21mag - re) *^ r21 ^/ r21mag
00:09:14 #40955 [verbose] >
00:09:14 #40956 [verbose] > inl fixed_linear_spring k re r1 =
00:09:14 #40957 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:09:14 #40958 [verbose] > linear_spring k re (particle_state { default_particle_state' with pos_vec =
00:09:14 #40959 [verbose] > r1 })
00:09:14 #40960 [verbose] >
00:09:14 #40961 [verbose] > inl forces_string () =
00:09:14 #40962 [verbose] > [[
00:09:14 #40963 [verbose] > ExternalForce (0i32, fixed_linear_spring 5384 0 (zero_vec ()))
00:09:14 #40964 [verbose] > ExternalForce (63, fixed_linear_spring 5384 0 (0.65 *^ i_hat ()))
00:09:14 #40965 [verbose] > ]] /@ (
00:09:14 #40966 [verbose] > listm'.init_series 0 59 1
00:09:14 #40967 [verbose] > |> listm.map (fun n => InternalForce (n, n + 1, linear_spring 5384 0))
00:09:14 #40968 [verbose] > )
00:09:14 #40969 [verbose] >
00:09:14 #40970 [verbose] > inl string_update dt =
00:09:14 #40971 [verbose] > update_mps (join runge_kutta_4 dt) (join forces_string ())
00:09:14 #40972 [verbose] >
00:09:14 #40973 [verbose] > inl string_initial_overtone n =
00:09:14 #40974 [verbose] > inl ball_mass = 0.0008293 * 0.65 / 64
00:09:14 #40975 [verbose] > inl (particle_state default_particle_state') = default_particle_state ()
00:09:14 #40976 [verbose] > listm'.init_series 0.01 0.64 0.01
00:09:14 #40977 [verbose] > |> listm.map (fun x =>
00:09:14 #40978 [verbose] > inl y = 0.005 * sin (conv n * pi * x / 0.65)
00:09:14 #40979 [verbose] > particle_state {
00:09:14 #40980 [verbose] > default_particle_state' with
00:09:14 #40981 [verbose] > mass = ball_mass
00:09:14 #40982 [verbose] > pos_vec = x *^ i_hat () ^+^ y *^ j_hat ()
00:09:14 #40983 [verbose] > velocity = zero_vec ()
00:09:14 #40984 [verbose] > }
00:09:14 #40985 [verbose] > )
00:09:14 #40986 [verbose] > |> stream.from_list
00:09:14 #40987 [verbose] > |> multi_particle_state
00:09:14 #40988 [verbose] >
00:09:14 #40989 [verbose] > let main () =
00:09:14 #40990 [verbose] > inl ~frames = listm'.init_series 0 65 1f64 |> stream.from_list
00:09:14 #40991 [verbose] > inl ~initial_state = string_initial_overtone 3i32
00:09:14 #40992 [verbose] > inl frames =
00:09:14 #40993 [verbose] > frames
00:09:14 #40994 [verbose] > |> stream.map (fun n =>
00:09:14 #40995 [verbose] > inl (multi_particle_state sts) =
00:09:14 #40996 [verbose] > stream.iterate (string_update 0.000025) initial_state |>
00:09:14 #40997 [verbose] > stream.item n
00:09:14 #40998 [verbose] > inl x, y =
00:09:14 #40999 [verbose] > [[ zero_vec () ]]
00:09:14 #41000 [verbose] > /@ (sts |> stream.map (fun (particle_state st) => st.pos_vec) |>
00:09:14 #41001 [verbose] > stream.to_list)
00:09:14 #41002 [verbose] > /@ [[ 0.65 *^ i_hat () ]]
00:09:14 #41003 [verbose] > |> listm.map (fun r => r.x, r.y)
00:09:14 #41004 [verbose] > |> stream.from_list
00:09:14 #41005 [verbose] > |> stream.unzip
00:09:14 #41006 [verbose] > inl x : a i32 _ = x |> stream.to_list |> listm.toArray
00:09:14 #41007 [verbose] > inl y : a i32 _ = y |> stream.to_list |> listm.toArray
00:09:14 #41008 [verbose] > x, y
00:09:14 #41009 [verbose] > )
00:09:14 #41010 [verbose] >
00:09:14 #41011 [verbose] > inl plots =
00:09:14 #41012 [verbose] > frames
00:09:14 #41013 [verbose] > |> stream.indexed
00:09:14 #41014 [verbose] > |> stream.map (fun ((n : i32), (x, y)) =>
00:09:14 #41015 [verbose] > "wave",
00:09:14 #41016 [verbose] > "position (m)",
00:09:14 #41017 [verbose] > "displacement (m)",
00:09:14 #41018 [verbose] > ;[[
00:09:14 #41019 [verbose] > ($"$\"{!n}\"" : string), x, y
00:09:14 #41020 [verbose] > ]]
00:09:14 #41021 [verbose] > )
00:09:14 #41022 [verbose] >
00:09:14 #41023 [verbose] > plots |> stream.to_list |> listm.toArray : a i32 _
00:09:14 #41024 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\404df2b23725c585572771454e61e8548ee739e708ea3f415087fcde659c7e0a\main.spi
00:09:20 #41025 [verbose] >
00:09:20 #41026 [verbose] > ╭─[ 6.65s - return value ]─────────────────────────────────────────────────────╮
00:09:20 #41027 [verbose] > │ <table><thead><tr><th><i>index</i></th><th>value</th></tr></thead><tbody><tr │
00:09:20 #41028 [verbose] > │ ><td>0</td><td><svg width="640" height="480" viewBox="0 0 640 480" │
00:09:20 #41029 [verbose] > │ xmlns="http://www.w3.org/2000/svg"> │
00:09:20 #41030 [verbose] > │ <rect x="0" y="0" width="640" height="480" opacity="1" fill="#141414" │
00:09:20 #41031 [verbose] > │ stroke="none"/> │
00:09:20 #41032 [verbose] > │ <text x="320" y="10" dy="0.76em" text-anchor="middle" │
00:09:20 #41033 [verbose] > │ font-family="sans-serif" font-size="9.67741935483871" opacity="1" │
00:09:20 #41034 [verbose] > │ fill="#FFFFFF"> │
00:09:20 #41035 [verbose] > │ wave │
00:09:20 #41036 [verbose] > │ </text> │
00:09:20 #41037 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="62" y1="424" x2="62" │
00:09:20 #41038 [verbose] > │ y2="75"/> │
00:09:20 #41039 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="69" y1="424" x2="69" │
00:09:20 #41040 [verbose] > │ y2="75"/> │
00:09:20 #41041 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="77" y1="424" x2="77" │
00:09:20 #41042 [verbose] > │ y2="75"/> │
00:09:20 #41043 [verbose] > │ <line opacity="1" stroke="#323232" stroke-width="1" x1="85" y1="424" │
00:09:20 #41044 [verbose] > │ x2="85... │
00:09:20 #41045 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:20 #41046 [verbose] >
00:09:20 #41047 [verbose] > ╭─[ 6.69s - stdout ]───────────────────────────────────────────────────────────╮
00:09:20 #41048 [verbose] > │ type UH0 = │
00:09:20 #41049 [verbose] > │ | UH0_0 of float * (unit -> UH0) │
00:09:20 #41050 [verbose] > │ | UH0_1 │
00:09:20 #41051 [verbose] > │ and UH1 = │
00:09:20 #41052 [verbose] > │ | UH1_0 of float * float * float * float * float * float * float * float │
00:09:20 #41053 [verbose] > │ * float * (unit -> UH1) │
00:09:20 #41054 [verbose] > │ | UH1_1 │
00:09:20 #41055 [verbose] > │ and UH2 = │
00:09:20 #41056 [verbose] > │ | UH2_0 of (float []) * (float []) * (unit -> UH2) │
00:09:20 #41057 [verbose] > │ | UH2_1 │
00:09:20 #41058 [verbose] > │ and UH3 = │
00:09:20 #41059 [verbose] > │ | UH3_0 of float * float * float * float * float * float * float * float │
00:09:20 #41060 [verbose] > │ * float * (unit -> UH3) │
00:09:20 #41061 [verbose] > │ | UH3_1 │
00:09:20 #41062 [verbose] > │ and [<Struct>] US0 = │
00:09:20 #41063 [verbose] > │ | US0_0 of f0_0 : (unit -> UH1) │
00:09:20 #41064 [verbose] > │ | US0_1 of f1_0 : UH1 │
00:09:20 #41065 [verbose] > │ and Mut0 = {mutable l0 : US0} │
00:09:20 #41066 [verbose] > │ and [<Struct>] US1 = │
00:09:20 #41067 [verbose] > │ | US1_0 of f0_0 : int32 * f0_1 : (struct (float * float * float * float │
00:09:20 #41068 [verbose] > │ * float * float * float * float * float) -> struct (float * float * float)) │
00:09:20 #41069 [verbose] > │ | US1_1 of f1_0 : int32 * f1_1 : int32 * f1_2 : (struct (float * float * │
00:09:20 #41070 [verbose] > │ float * float * float * float * float * float * float) -> (struct (float * │
00:09:20 #41071 [verbose] > │ float * float * float * float * float * float * float * float) -> struct │
00:09:20 #41072 [verbose] > │ (float * float * float))) │
00:09:20 #41073 [verbose] > │ and UH4 = │
00:09:20 #41074 [verbose] > │ | UH4_0 │
00:09:20 #41075 [verbose] > │ | UH4_1 of US1 * UH4 │
00:09:20 #41076 [verbose] > │ and UH5 = │
00:09:20 #41077 [verbose] > │ | UH5_0 of int32 * float * float * float * float * float * float * float │
00:09:20 #41078 [verbose] > │ * float * float * (unit -> UH5) │
00:09:20 #41079 [verbose] > │ | UH5_1 │
00:09:20 #41080 [verbose] > │ and UH6 = │
00:09:20 #41081 [verbose] > │ | UH6_0 │
00:09:20 #41082 [verbose] > │ | UH6_1 of (struct (float * float * float * float * float * float * │
00:09:20 #41083 [verbose] > │ float * float * float) -> struct (float * float * float)) * UH6 │
00:09:20 #41084 [verbose] > │ and [<Struct>] US2 = │
00:09:20 #41085 [verbose] > │ | US2_0 of f0_0 : (struct (float * float * float * float * float * float │
00:09:20 #41086 [verbose] > │ * float * float * float) -> struct (float * float * float)) │
00:09:20 #41087 [verbose] > │ | US2_1 │
00:09:20 #41088 [verbose] > │ and [<Struct>] US3 = │
00:09:20 #41089 [verbose] > │ | US3_0 of f0_0 : float * f0_1 : float * f0_2 : float * f0_3 : float * │
00:09:20 #41090 [verbose] > │ f0_4 : float * f0_5 : float * f0_6 : float * f0_7 : float * f0_8 : float │
00:09:20 #41091 [verbose] > │ | US3_1 │
00:09:20 #41092 [verbose] > │ and UH7 = │
00:09:20 #41093 [verbose] > │ | UH7_0 │
00:09:20 #41094 [verbose] > │ | UH7_1 of float * float * float * UH7 │
00:09:20 #41095 [verbose] > │ and UH8 = │
00:09:20 #41096 [verbose] > │ | UH8_0 of UH1 * (unit -> UH8) │
00:09:20 #41097 [verbose] > │ | UH8_1 │
00:09:20 #41098 [verbose] > │ and [<Struct>] US4 = │
00:09:20 #41099 [verbose] > │ | US4_0 of f0_0 : UH1 │
00:09:20 #41100 [verbose] > │ | US4_1 │
00:09:20 #41101 [verbose] > │ and UH9 = │
00:09:20 #41102 [verbose] > │ | UH9_0 of float * float * float * (unit -> UH9) │
00:09:20 #41103 [verbose] > │ | UH9_1 │
00:09:20 #41104 [verbose] > │ and UH10 = │
00:09:20 #41105 [verbose] > │ | UH10_0 │
00:09:20 #41106 [verbose] > │ | UH10_1 of float * float * UH10 │
00:09:20 #41107 [verbose] > │ and UH11 = │
00:09:20 #41108 [verbose] > │ | UH11_0 of float * float * (unit -> UH11) │
00:09:20 #41109 [verbose] > │ | UH11_1 │
00:09:20 #41110 [verbose] > │ and UH12 = │
00:09:20 #41111 [verbose] > │ | UH12_0 │
00:09:20 #41112 [verbose] > │ | UH12_1 of float * UH12 │
00:09:20 #41113 [verbose] > │ and UH13 = │
00:09:20 #41114 [verbose] > │ | UH13_0 of int32 * (float []) * (float []) * (unit -> UH13) │
00:09:20 #41115 [verbose] > │ | UH13_1 │
00:09:20 #41116 [verbose] > │ and UH14 = │
00:09:20 #41117 [verbose] > │ | UH14_0 of string * string * string * (struct (string * (float []) * │
00:09:20 #41118 [verbose] > │ (float [])) []) * (unit -> UH14) │
00:09:20 #41119 [verbose] > │ | UH14_1 │
00:09:20 #41120 [verbose] > │ and UH15 = │
00:09:20 #41121 [verbose] > │ | UH15_0 │
00:09:20 #41122 [verbose] > │ | UH15_1 of string * string * string * (struct (string * (float []) * │
00:09:20 #41123 [verbose] > │ (float [])) []) * UH15 │
00:09:20 #41124 [verbose] > │ let rec closure65 () () : UH0 = │
00:09:20 #41125 [verbose] > │ UH0_1 │
00:09:20 #41126 [verbose] > │ and closure64 () () : UH0 = │
00:09:20 #41127 [verbose] > │ let v0 : (unit -> UH0) = closure65() │
00:09:20 #41128 [verbose] > │ UH0_0(65.0, v0) │
00:09:20 #41129 [verbose] > │ and closure63 () () : UH0 = │
00:09:20 #41130 [verbose] > │ let v0 : (unit -> UH0) = closure64() │
00:09:20 #41131 [verbose] > │ UH0_0(64.0, v0) │
00:09:20 #41132 [verbose] > │ and closure62 () () : UH0 = │
00:09:20 #41133 [verbose] > │ let v0 : (unit -> UH0) = closure63() │
00:09:20 #41134 [verbose] > │ UH0_0(63.0, v0) │
00:09:20 #41135 [verbose] > │ and closure61 () () : UH0 = │
00:09:20 #41136 [verbose] > │ let v0 : (unit -> UH0) = closure62() │
00:09:20 #41137 [verbose] > │ UH0_0(62.0, v0) │
00:09:20 #41138 [verbose] > │ and closure60 () () : UH0 = │
00:09:20 #41139 [verbose] > │ let v0 : (unit -> UH0) = closure61() │
00:09:20 #41140 [verbose] > │ UH0_0(61.0, v0) │
00:09:20 #41141 [verbose] > │ and closure59 () () : UH0 = │
00:09:20 #41142 [verbose] > │ let v0 : (unit -> UH0) = closure60() │
00:09:20 #41143 [verbose] > │ UH0_0(60.0, v0) │
00:09:20 #41144 [verbose] > │ and closure58 () () : UH0 = │
00:09:20 #41145 [verbose] > │ let v0 : (unit -> UH0) = closure59() │
00:09:20 #41146 [verbose] > │ UH0_0(59.0, v0) │
00:09:20 #41147 [verbose] > │ and closure57 () () : UH0 = │
00:09:20 #41148 [verbose] > │ let v0 : (unit -> UH0) = closure58() │
00:09:20 #41149 [verbose] > │ UH0_0(58.0, v0) │
00:09:20 #41150 [verbose] > │ and closure56 () () : UH0 = │
00:09:20 #41151 [verbose] > │ let v0 : (unit -> UH0) = closure57() │
00:09:20 #41152 [verbose] > │ UH0_0(57.0, v0) │
00:09:20 #41153 [verbose] > │ and closure55 () () : UH0 = │
00:09:20 #41154 [verbose] > │ let v0 : (unit -> UH0) = closure56() │
00:09:20 #41155 [verbose] > │ UH0_0(56.0, v0) │
00:09:20 #41156 [verbose] > │ and closure54 () () : UH0 = │
00:09:20 #41157 [verbose] > │ let v0 : (unit -> UH0) = closure55() │
00:09:20 #41158 [verbose] > │ UH0_0(55.0, v0) │
00:09:20 #41159 [verbose] > │ and closure53 () () : UH0 = │
00:09:20 #41160 [verbose] > │ let v0 : (unit -> UH0) = closure54() │
00:09:20 #41161 [verbose] > │ UH0_0(54.0, v0) │
00:09:20 #41162 [verbose] > │ and closure52 () () : UH0 = │
00:09:20 #41163 [verbose] > │ let v0 : (unit -> UH0) = closure53() │
00:09:20 #41164 [verbose] > │ UH0_0(53.0, v0) │
00:09:20 #41165 [verbose] > │ and closure51 () () : UH0 = │
00:09:20 #41166 [verbose] > │ let v0 : (unit -> UH0) = closure52() │
00:09:20 #41167 [verbose] > │ UH0_0(52.0, v0) │
00:09:20 #41168 [verbose] > │ and closure50 () () : UH0 = │
00:09:20 #41169 [verbose] > │ let v0 : (unit -> UH0) = closure51() │
00:09:20 #41170 [verbose] > │ UH0_0(51.0, v0) │
00:09:20 #41171 [verbose] > │ and closure49 () () : UH0 = │
00:09:20 #41172 [verbose] > │ let v0 : (unit -> UH0) = closure50() │
00:09:20 #41173 [verbose] > │ UH0_0(50.0, v0) │
00:09:20 #41174 [verbose] > │ and closure48 () () : UH0 = │
00:09:20 #41175 [verbose] > │ let v0 : (unit -> UH0) = closure49() │
00:09:20 #41176 [verbose] > │ UH0_0(49.0, v0) │
00:09:20 #41177 [verbose] > │ and closure47 () () : UH0 = │
00:09:20 #41178 [verbose] > │ let v0 : (unit -> UH0) = closure48() │
00:09:20 #41179 [verbose] > │ UH0_0(48.0, v0) │
00:09:20 #41180 [verbose] > │ and closure46 () () : UH0 = │
00:09:20 #41181 [verbose] > │ let v0 : (unit -> UH0) = closure47() │
00:09:20 #41182 [verbose] > │ UH0_0(47.0, v0) │
00:09:20 #41183 [verbose] > │ and closure45 () () : UH0 = │
00:09:20 #41184 [verbose] > │ let v0 : (unit -> UH0) = closure46() │
00:09:20 #41185 [verbose] > │ UH0_0(46.0, v0) │
00:09:20 #41186 [verbose] > │ and closure44 () () : UH0 = │
00:09:20 #41187 [verbose] > │ let v0 : (unit -> UH0) = closure45() │
00:09:20 #41188 [verbose] > │ UH0_0(45.0, v0) │
00:09:20 #41189 [verbose] > │ and closure43 () () : UH0 = │
00:09:20 #41190 [verbose] > │ let v0 : (unit -> UH0) = closure44() │
00:09:20 #41191 [verbose] > │ UH0_0(44.0, v0) │
00:09:20 #41192 [verbose] > │ and closure42 () () : UH0 = │
00:09:20 #41193 [verbose] > │ let v0 : (unit -> UH0) = closure43() │
00:09:20 #41194 [verbose] > │ UH0_0(43.0, v0) │
00:09:20 #41195 [verbose] > │ and closure41 () () : UH0 = │
00:09:20 #41196 [verbose] > │ let v0 : (unit -> UH0) = closure42() │
00:09:20 #41197 [verbose] > │ UH0_0(42.0, v0) │
00:09:20 #41198 [verbose] > │ and closure40 () () : UH0 = │
00:09:20 #41199 [verbose] > │ let v0 : (unit -> UH0) = closure41() │
00:09:20 #41200 [verbose] > │ UH0_0(41.0, v0) │
00:09:20 #41201 [verbose] > │ and closure39 () () : UH0 = │
00:09:20 #41202 [verbose] > │ let v0 : (unit -> UH0) = closure40() │
00:09:20 #41203 [verbose] > │ UH0_0(40.0, v0) │
00:09:20 #41204 [verbose] > │ and closure38 () () : UH0 = │
00:09:20 #41205 [verbose] > │ let v0 : (unit -> UH0) = closure39() │
00:09:20 #41206 [verbose] > │ UH0_0(39.0, v0) │
00:09:20 #41207 [verbose] > │ and closure37 () () : UH0 = │
00:09:20 #41208 [verbose] > │ let v0 : (unit -> UH0) = closure38() │
00:09:20 #41209 [verbose] > │ UH0_0(38.0, v0) │
00:09:20 #41210 [verbose] > │ and closure36 () () : UH0 = │
00:09:20 #41211 [verbose] > │ let v0 : (unit -> UH0) = closure37() │
00:09:20 #41212 [verbose] > │ UH0_0(37.0, v0) │
00:09:20 #41213 [verbose] > │ and closure35 () () : UH0 = │
00:09:20 #41214 [verbose] > │ let v0 : (unit -> UH0) = closure36() │
00:09:20 #41215 [verbose] > │ UH0_0(36.0, v0) │
00:09:20 #41216 [verbose] > │ and closure34 () () : UH0 = │
00:09:20 #41217 [verbose] > │ let v0 : (unit -> UH0) = closure35() │
00:09:20 #41218 [verbose] > │ UH0_0(35.0, v0) │
00:09:20 #41219 [verbose] > │ and closure33 () () : UH0 = │
00:09:20 #41220 [verbose] > │ let v0 : (unit -> UH0) = closure34() │
00:09:20 #41221 [verbose] > │ UH0_0(34.0, v0) │
00:09:20 #41222 [verbose] > │ and closure32 () () : UH0 = │
00:09:20 #41223 [verbose] > │ let v0 : (unit -> UH0) = closure33() │
00:09:20 #41224 [verbose] > │ UH0_0(33.0, v0) │
00:09:20 #41225 [verbose] > │ and closure31 () () : UH0 = │
00:09:20 #41226 [verbose] > │ let v0 : (unit -> UH0) = closure32() │
00:09:20 #41227 [verbose] > │ UH0_0(32.0, v0) │
00:09:20 #41228 [verbose] > │ and closure30 () () : UH0 = │
00:09:20 #41229 [verbose] > │ let v0 : (unit -> UH0) = closure31() │
00:09:20 #41230 [verbose] > │ UH0_0(31.0, v0) │
00:09:20 #41231 [verbose] > │ and closure29 () () : UH0 = │
00:09:20 #41232 [verbose] > │ let v0 : (unit -> UH0) = closure30() │
00:09:20 #41233 [verbose] > │ UH0_0(30.0, v0) │
00:09:20 #41234 [verbose] > │ and closure28 () () : UH0 = │
00:09:20 #41235 [verbose] > │ let v0 : (unit -> UH0) = closure29() │
00:09:20 #41236 [verbose] > │ UH0_0(29.0, v0) │
00:09:20 #41237 [verbose] > │ and closure27 () () : UH0 = │
00:09:20 #41238 [verbose] > │ let v0 : (unit -> UH0) = closure28() │
00:09:20 #41239 [verbose] > │ UH0_0(28.0, v0) │
00:09:20 #41240 [verbose] > │ and closure26 () () : UH0 = │
00:09:20 #41241 [verbose] > │ let v0 : (unit -> UH0) = closure27() │
00:09:20 #41242 [verbose] > │ UH0_0(27.0, v0) │
00:09:20 #41243 [verbose] > │ and closure25 () () : UH0 = │
00:09:20 #41244 [verbose] > │ let v0 : (unit -> UH0) = closure26() │
00:09:20 #41245 [verbose] > │ UH0_0(26.0, v0) │
00:09:20 #41246 [verbose] > │ and closure24 () () : UH0 = │
00:09:20 #41247 [verbose] > │ let v0 : (unit -> UH0) = closure25() │
00:09:20 #41248 [verbose] > │ UH0_0(25.0, v0) │
00:09:20 #41249 [verbose] > │ and closure23 () () : UH0 = │
00:09:20 #41250 [verbose] > │ let v0 : (unit -> UH0) = closure24() │
00:09:20 #41251 [verbose] > │ UH0_0(24.0, v0) │
00:09:20 #41252 [verbose] > │ and closure22 () () : UH0 = │
00:09:20 #41253 [verbose] > │ let v0 : (unit -> UH0) = closure23() │
00:09:20 #41254 [verbose] > │ UH0_0(23.0, v0) │
00:09:20 #41255 [verbose] > │ and closure21 () () : UH0 = │
00:09:20 #41256 [verbose] > │ let v0 : (unit -> UH0) = closure22() │
00:09:20 #41257 [verbose] > │ UH0_0(22.0, v0) │
00:09:20 #41258 [verbose] > │ and closure20 () () : UH0 = │
00:09:20 #41259 [verbose] > │ let v0 : (unit -> UH0) = closure21() │
00:09:20 #41260 [verbose] > │ UH0_0(21.0, v0) │
00:09:20 #41261 [verbose] > │ and closure19 () () : UH0 = │
00:09:20 #41262 [verbose] > │ let v0 : (unit -> UH0) = closure20() │
00:09:20 #41263 [verbose] > │ UH0_0(20.0, v0) │
00:09:20 #41264 [verbose] > │ and closure18 () () : UH0 = │
00:09:20 #41265 [verbose] > │ let v0 : (unit -> UH0) = closure19() │
00:09:20 #41266 [verbose] > │ UH0_0(19.0, v0) │
00:09:20 #41267 [verbose] > │ and closure17 () () : UH0 = │
00:09:20 #41268 [verbose] > │ let v0 : (unit -> UH0) = closure18() │
00:09:20 #41269 [verbose] > │ UH0_0(18.0, v0) │
00:09:20 #41270 [verbose] > │ and closure16 () () : UH0 = │
00:09:20 #41271 [verbose] > │ let v0 : (unit -> UH0) = closure17() │
00:09:20 #41272 [verbose] > │ UH0_0(17.0, v0) │
00:09:20 #41273 [verbose] > │ and closure15 () () : UH0 = │
00:09:20 #41274 [verbose] > │ let v0 : (unit -> UH0) = closure16() │
00:09:20 #41275 [verbose] > │ UH0_0(16.0, v0) │
00:09:20 #41276 [verbose] > │ and closure14 () () : UH0 = │
00:09:20 #41277 [verbose] > │ let v0 : (unit -> UH0) = closure15() │
00:09:20 #41278 [verbose] > │ UH0_0(15.0, v0) │
00:09:20 #41279 [verbose] > │ and closure13 () () : UH0 = │
00:09:20 #41280 [verbose] > │ let v0 : (unit -> UH0) = closure14() │
00:09:20 #41281 [verbose] > │ UH0_0(14.0, v0) │
00:09:20 #41282 [verbose] > │ and closure12 () () : UH0 = │
00:09:20 #41283 [verbose] > │ let v0 : (unit -> UH0) = closure13() │
00:09:20 #41284 [verbose] > │ UH0_0(13.0, v0) │
00:09:20 #41285 [verbose] > │ and closure11 () () : UH0 = │
00:09:20 #41286 [verbose] > │ let v0 : (unit -> UH0) = closure12() │
00:09:20 #41287 [verbose] > │ UH0_0(12.0, v0) │
00:09:20 #41288 [verbose] > │ and closure10 () () : UH0 = │
00:09:20 #41289 [verbose] > │ let v0 : (unit -> UH0) = closure11() │
00:09:20 #41290 [verbose] > │ UH0_0(11.0, v0) │
00:09:20 #41291 [verbose] > │ and closure9 () () : UH0 = │
00:09:20 #41292 [verbose] > │ let v0 : (unit -> UH0) = closure10() │
00:09:20 #41293 [verbose] > │ UH0_0(10.0, v0) │
00:09:20 #41294 [verbose] > │ and closure8 () () : UH0 = │
00:09:20 #41295 [verbose] > │ let v0 : (unit -> UH0) = closure9() │
00:09:20 #41296 [verbose] > │ UH0_0(9.0, v0) │
00:09:20 #41297 [verbose] > │ and closure7 () () : UH0 = │
00:09:20 #41298 [verbose] > │ let v0 : (unit -> UH0) = closure8() │
00:09:20 #41299 [verbose] > │ UH0_0(8.0, v0) │
00:09:20 #41300 [verbose] > │ and closure6 () () : UH0 = │
00:09:20 #41301 [verbose] > │ let v0 : (unit -> UH0) = closure7() │
00:09:20 #41302 [verbose] > │ UH0_0(7.0, v0) │
00:09:20 #41303 [verbose] > │ and closure5 () () : UH0 = │
00:09:20 #41304 [verbose] > │ let v0 : (unit -> UH0) = closure6() │
00:09:20 #41305 [verbose] > │ UH0_0(6.0, v0) │
00:09:20 #41306 [verbose] > │ and closure4 () () : UH0 = │
00:09:20 #41307 [verbose] > │ let v0 : (unit -> UH0) = closure5() │
00:09:20 #41308 [verbose] > │ UH0_0(5.0, v0) │
00:09:20 #41309 [verbose] > │ and closure3 () () : UH0 = │
00:09:20 #41310 [verbose] > │ let v0 : (unit -> UH0) = closure4() │
00:09:20 #41311 [verbose] > │ UH0_0(4.0, v0) │
00:09:20 #41312 [verbose] > │ and closure2 () () : UH0 = │
00:09:20 #41313 [verbose] > │ let v0 : (unit -> UH0) = closure3() │
00:09:20 #41314 [verbose] > │ UH0_0(3.0, v0) │
00:09:20 #41315 [verbose] > │ and closure1 () () : UH0 = │
00:09:20 #41316 [verbose] > │ let v0 : (unit -> UH0) = closure2() │
00:09:20 #41317 [verbose] > │ UH0_0(2.0, v0) │
00:09:20 #41318 [verbose] > │ and closure0 () () : UH0 = │
00:09:20 #41319 [verbose] > │ let v0 : (unit -> UH0) = closure1() │
00:09:20 #41320 [verbose] > │ UH0_0(1.0, v0) │
00:09:20 #41321 [verbose] > │ and closure129 () () : UH1 = │
00:09:20 #41322 [verbose] > │ UH1_1 │
00:09:20 #41323 [verbose] > │ and closure128 () () : UH1 = │
00:09:20 #41324 [verbose] > │ let v0 : (unit -> UH1) = closure129() │
00:09:20 #41325 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.64, 0.0007224452478461016, 0.0, 0.0, 0.0, │
00:09:20 #41326 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41327 [verbose] > │ and closure127 () () : UH1 = │
00:09:20 #41328 [verbose] > │ let v0 : (unit -> UH1) = closure128() │
00:09:20 #41329 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.63, 0.001429728391993452, 0.0, 0.0, 0.0, │
00:09:20 #41330 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41331 [verbose] > │ and closure126 () () : UH1 = │
00:09:20 #41332 [verbose] > │ let v0 : (unit -> UH1) = closure127() │
00:09:20 #41333 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.62, 0.0021070055388626528, 0.0, 0.0, 0.0, │
00:09:20 #41334 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41335 [verbose] > │ and closure125 () () : UH1 = │
00:09:20 #41336 [verbose] > │ let v0 : (unit -> UH1) = closure126() │
00:09:20 #41337 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.61, 0.0027400625367733585, 0.0, 0.0, 0.0, │
00:09:20 #41338 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41339 [verbose] > │ and closure124 () () : UH1 = │
00:09:20 #41340 [verbose] > │ let v0 : (unit -> UH1) = closure125() │
00:09:20 #41341 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.6, 0.0033156132912039783, 0.0, 0.0, 0.0, │
00:09:20 #41342 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41343 [verbose] > │ and closure123 () () : UH1 = │
00:09:20 #41344 [verbose] > │ let v0 : (unit -> UH1) = closure124() │
00:09:20 #41345 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.59, 0.003821578602729245, 0.0, 0.0, 0.0, │
00:09:20 #41346 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41347 [verbose] > │ and closure122 () () : UH1 = │
00:09:20 #41348 [verbose] > │ let v0 : (unit -> UH1) = closure123() │
00:09:20 #41349 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.5800000000000001, 0.004247339675607605, │
00:09:20 #41350 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:20 #41351 [verbose] > │ and closure121 () () : UH1 = │
00:09:20 #41352 [verbose] > │ let v0 : (unit -> UH1) = closure122() │
00:09:20 #41353 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.5700000000000001, 0.004583960976582912, │
00:09:20 #41354 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:20 #41355 [verbose] > │ and closure120 () () : UH1 = │
00:09:20 #41356 [verbose] > │ let v0 : (unit -> UH1) = closure121() │
00:09:20 #41357 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.56, 0.004824377766717758, 0.0, 0.0, 0.0, │
00:09:20 #41358 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41359 [verbose] > │ and closure119 () () : UH1 = │
00:09:20 #41360 [verbose] > │ let v0 : (unit -> UH1) = closure120() │
00:09:20 #41361 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.55, 0.004963544370490271, 0.0, 0.0, 0.0, │
00:09:20 #41362 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41363 [verbose] > │ and closure118 () () : UH1 = │
00:09:20 #41364 [verbose] > │ let v0 : (unit -> UH1) = closure119() │
00:09:20 #41365 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.54, 0.004998540070400965, 0.0, 0.0, 0.0, │
00:09:20 #41366 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41367 [verbose] > │ and closure117 () () : UH1 = │
00:09:20 #41368 [verbose] > │ let v0 : (unit -> UH1) = closure118() │
00:09:20 #41369 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.53, 0.004928630404658255, 0.0, 0.0, 0.0, │
00:09:20 #41370 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41371 [verbose] > │ and closure116 () () : UH1 = │
00:09:20 #41372 [verbose] > │ let v0 : (unit -> UH1) = closure117() │
00:09:20 #41373 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.52, 0.004755282581475766, 0.0, 0.0, 0.0, │
00:09:20 #41374 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41375 [verbose] > │ and closure115 () () : UH1 = │
00:09:20 #41376 [verbose] > │ let v0 : (unit -> UH1) = closure116() │
00:09:20 #41377 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.51, 0.0044821346864785195, 0.0, 0.0, 0.0, │
00:09:20 #41378 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41379 [verbose] > │ and closure114 () () : UH1 = │
00:09:20 #41380 [verbose] > │ let v0 : (unit -> UH1) = closure115() │
00:09:20 #41381 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.5, 0.0041149193294682815, 0.0, 0.0, 0.0, │
00:09:20 #41382 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41383 [verbose] > │ and closure113 () () : UH1 = │
00:09:20 #41384 [verbose] > │ let v0 : (unit -> UH1) = closure114() │
00:09:20 #41385 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.49, 0.0036613433329888622, 0.0, 0.0, 0.0, │
00:09:20 #41386 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41387 [verbose] > │ and closure112 () () : UH1 = │
00:09:20 #41388 [verbose] > │ let v0 : (unit -> UH1) = closure113() │
00:09:20 #41389 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.48000000000000004, 0.003130925987691568, │
00:09:20 #41390 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:20 #41391 [verbose] > │ and closure111 () () : UH1 = │
00:09:20 #41392 [verbose] > │ let v0 : (unit -> UH1) = closure112() │
00:09:20 #41393 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.47000000000000003, 0.002534799269067953, │
00:09:20 #41394 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:20 #41395 [verbose] > │ and closure110 () () : UH1 = │
00:09:20 #41396 [verbose] > │ let v0 : (unit -> UH1) = closure111() │
00:09:20 #41397 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.46, 0.0018854742084416021, 0.0, 0.0, 0.0, │
00:09:20 #41398 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41399 [verbose] > │ and closure109 () () : UH1 = │
00:09:20 #41400 [verbose] > │ let v0 : (unit -> UH1) = closure110() │
00:09:20 #41401 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.45, 0.0011965783214377866, 0.0, 0.0, 0.0, │
00:09:20 #41402 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41403 [verbose] > │ and closure108 () () : UH1 = │
00:09:20 #41404 [verbose] > │ let v0 : (unit -> UH1) = closure109() │
00:09:20 #41405 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.44, 0.0004825696045725713, 0.0, 0.0, 0.0, │
00:09:20 #41406 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41407 [verbose] > │ and closure107 () () : UH1 = │
00:09:20 #41408 [verbose] > │ let v0 : (unit -> UH1) = closure108() │
00:09:20 #41409 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.43, -0.00024156689762753724, 0.0, 0.0, │
00:09:20 #41410 [verbose] > │ 0.0, 0.0, 0.0, v0) │
00:09:20 #41411 [verbose] > │ and closure106 () () : UH1 = │
00:09:20 #41412 [verbose] > │ let v0 : (unit -> UH1) = closure107() │
00:09:20 #41413 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.42000000000000004, -0.0009606335867685414, │
00:09:20 #41414 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:20 #41415 [verbose] > │ and closure105 () () : UH1 = │
00:09:20 #41416 [verbose] > │ let v0 : (unit -> UH1) = closure106() │
00:09:20 #41417 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.41000000000000003, -0.0016595392656426435, │
00:09:20 #41418 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:20 #41419 [verbose] > │ and closure104 () () : UH1 = │
00:09:20 #41420 [verbose] > │ let v0 : (unit -> UH1) = closure105() │
00:09:20 #41421 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.4, -0.002323615860218846, 0.0, 0.0, 0.0, │
00:09:20 #41422 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41423 [verbose] > │ and closure103 () () : UH1 = │
00:09:20 #41424 [verbose] > │ let v0 : (unit -> UH1) = closure104() │
00:09:20 #41425 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.39, -0.002938926261462367, 0.0, 0.0, 0.0, │
00:09:20 #41426 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41427 [verbose] > │ and closure102 () () : UH1 = │
00:09:20 #41428 [verbose] > │ let v0 : (unit -> UH1) = closure103() │
00:09:20 #41429 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.38, -0.0034925568262446837, 0.0, 0.0, 0.0, │
00:09:20 #41430 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41431 [verbose] > │ and closure101 () () : UH1 = │
00:09:20 #41432 [verbose] > │ let v0 : (unit -> UH1) = closure102() │
00:09:20 #41433 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.37, -0.003972888398568774, 0.0, 0.0, 0.0, │
00:09:20 #41434 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41435 [verbose] > │ and closure100 () () : UH1 = │
00:09:20 #41436 [verbose] > │ let v0 : (unit -> UH1) = closure101() │
00:09:20 #41437 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.36000000000000004, -0.004369840163132589, │
00:09:20 #41438 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:20 #41439 [verbose] > │ and closure99 () () : UH1 = │
00:09:20 #41440 [verbose] > │ let v0 : (unit -> UH1) = closure100() │
00:09:20 #41441 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.35000000000000003, -0.004675081213427074, │
00:09:20 #41442 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:20 #41443 [verbose] > │ and closure98 () () : UH1 = │
00:09:20 #41444 [verbose] > │ let v0 : (unit -> UH1) = closure99() │
00:09:20 #41445 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.34, -0.004882205394146361, 0.0, 0.0, 0.0, │
00:09:20 #41446 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41447 [verbose] > │ and closure97 () () : UH1 = │
00:09:20 #41448 [verbose] > │ let v0 : (unit -> UH1) = closure98() │
00:09:20 #41449 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.33, -0.004986865748457456, 0.0, 0.0, 0.0, │
00:09:20 #41450 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41451 [verbose] > │ and closure96 () () : UH1 = │
00:09:20 #41452 [verbose] > │ let v0 : (unit -> UH1) = closure97() │
00:09:20 #41453 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.32, -0.004986865748457456, 0.0, 0.0, 0.0, │
00:09:20 #41454 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41455 [verbose] > │ and closure95 () () : UH1 = │
00:09:20 #41456 [verbose] > │ let v0 : (unit -> UH1) = closure96() │
00:09:20 #41457 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.31, -0.004882205394146359, 0.0, 0.0, 0.0, │
00:09:20 #41458 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41459 [verbose] > │ and closure94 () () : UH1 = │
00:09:20 #41460 [verbose] > │ let v0 : (unit -> UH1) = closure95() │
00:09:20 #41461 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.3, -0.004675081213427074, 0.0, 0.0, 0.0, │
00:09:20 #41462 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41463 [verbose] > │ and closure93 () () : UH1 = │
00:09:20 #41464 [verbose] > │ let v0 : (unit -> UH1) = closure94() │
00:09:20 #41465 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.29000000000000004, -0.00436984016313259, │
00:09:20 #41466 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:20 #41467 [verbose] > │ and closure92 () () : UH1 = │
00:09:20 #41468 [verbose] > │ let v0 : (unit -> UH1) = closure93() │
00:09:20 #41469 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.28, -0.003972888398568771, 0.0, 0.0, 0.0, │
00:09:20 #41470 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41471 [verbose] > │ and closure91 () () : UH1 = │
00:09:20 #41472 [verbose] > │ let v0 : (unit -> UH1) = closure92() │
00:09:20 #41473 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.27, -0.003492556826244686, 0.0, 0.0, 0.0, │
00:09:20 #41474 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41475 [verbose] > │ and closure90 () () : UH1 = │
00:09:20 #41476 [verbose] > │ let v0 : (unit -> UH1) = closure91() │
00:09:20 #41477 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.26, -0.0029389262614623636, 0.0, 0.0, 0.0, │
00:09:20 #41478 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41479 [verbose] > │ and closure89 () () : UH1 = │
00:09:20 #41480 [verbose] > │ let v0 : (unit -> UH1) = closure90() │
00:09:20 #41481 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.25, -0.002323615860218842, 0.0, 0.0, 0.0, │
00:09:20 #41482 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41483 [verbose] > │ and closure88 () () : UH1 = │
00:09:20 #41484 [verbose] > │ let v0 : (unit -> UH1) = closure89() │
00:09:20 #41485 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.24000000000000002, -0.001659539265642642, │
00:09:20 #41486 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:20 #41487 [verbose] > │ and closure87 () () : UH1 = │
00:09:20 #41488 [verbose] > │ let v0 : (unit -> UH1) = closure88() │
00:09:20 #41489 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.23, -0.0009606335867685418, 0.0, 0.0, 0.0, │
00:09:20 #41490 [verbose] > │ 0.0, 0.0, v0) │
00:09:20 #41491 [verbose] > │ and closure86 () () : UH1 = │
00:09:20 #41492 [verbose] > │ let v0 : (unit -> UH1) = closure87() │
00:09:21 #41493 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.22, -0.00024156689762753317, 0.0, 0.0, │
00:09:21 #41494 [verbose] > │ 0.0, 0.0, 0.0, v0) │
00:09:21 #41495 [verbose] > │ and closure85 () () : UH1 = │
00:09:21 #41496 [verbose] > │ let v0 : (unit -> UH1) = closure86() │
00:09:21 #41497 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.21000000000000002, 0.00048256960457257535, │
00:09:21 #41498 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:21 #41499 [verbose] > │ and closure84 () () : UH1 = │
00:09:21 #41500 [verbose] > │ let v0 : (unit -> UH1) = closure85() │
00:09:21 #41501 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.2, 0.0011965783214377905, 0.0, 0.0, 0.0, │
00:09:21 #41502 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41503 [verbose] > │ and closure83 () () : UH1 = │
00:09:21 #41504 [verbose] > │ let v0 : (unit -> UH1) = closure84() │
00:09:21 #41505 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.19, 0.0018854742084416015, 0.0, 0.0, 0.0, │
00:09:21 #41506 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41507 [verbose] > │ and closure82 () () : UH1 = │
00:09:21 #41508 [verbose] > │ let v0 : (unit -> UH1) = closure83() │
00:09:21 #41509 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.18000000000000002, 0.002534799269067951, │
00:09:21 #41510 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:21 #41511 [verbose] > │ and closure81 () () : UH1 = │
00:09:21 #41512 [verbose] > │ let v0 : (unit -> UH1) = closure82() │
00:09:21 #41513 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.17, 0.0031309259876915697, 0.0, 0.0, 0.0, │
00:09:21 #41514 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41515 [verbose] > │ and closure80 () () : UH1 = │
00:09:21 #41516 [verbose] > │ let v0 : (unit -> UH1) = closure81() │
00:09:21 #41517 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.16, 0.0036613433329888666, 0.0, 0.0, 0.0, │
00:09:21 #41518 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41519 [verbose] > │ and closure79 () () : UH1 = │
00:09:21 #41520 [verbose] > │ let v0 : (unit -> UH1) = closure80() │
00:09:21 #41521 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.15000000000000002, 0.0041149193294682815, │
00:09:21 #41522 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:21 #41523 [verbose] > │ and closure78 () () : UH1 = │
00:09:21 #41524 [verbose] > │ let v0 : (unit -> UH1) = closure79() │
00:09:21 #41525 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.14, 0.004482134686478519, 0.0, 0.0, 0.0, │
00:09:21 #41526 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41527 [verbose] > │ and closure77 () () : UH1 = │
00:09:21 #41528 [verbose] > │ let v0 : (unit -> UH1) = closure78() │
00:09:21 #41529 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.13, 0.004755282581475768, 0.0, 0.0, 0.0, │
00:09:21 #41530 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41531 [verbose] > │ and closure76 () () : UH1 = │
00:09:21 #41532 [verbose] > │ let v0 : (unit -> UH1) = closure77() │
00:09:21 #41533 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.12, 0.004928630404658255, 0.0, 0.0, 0.0, │
00:09:21 #41534 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41535 [verbose] > │ and closure75 () () : UH1 = │
00:09:21 #41536 [verbose] > │ let v0 : (unit -> UH1) = closure76() │
00:09:21 #41537 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.11, 0.004998540070400965, 0.0, 0.0, 0.0, │
00:09:21 #41538 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41539 [verbose] > │ and closure74 () () : UH1 = │
00:09:21 #41540 [verbose] > │ let v0 : (unit -> UH1) = closure75() │
00:09:21 #41541 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.09999999999999999, 0.00496354437049027, │
00:09:21 #41542 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:21 #41543 [verbose] > │ and closure73 () () : UH1 = │
00:09:21 #41544 [verbose] > │ let v0 : (unit -> UH1) = closure74() │
00:09:21 #41545 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.09, 0.004824377766717757, 0.0, 0.0, 0.0, │
00:09:21 #41546 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41547 [verbose] > │ and closure72 () () : UH1 = │
00:09:21 #41548 [verbose] > │ let v0 : (unit -> UH1) = closure73() │
00:09:21 #41549 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.08, 0.004583960976582912, 0.0, 0.0, 0.0, │
00:09:21 #41550 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41551 [verbose] > │ and closure71 () () : UH1 = │
00:09:21 #41552 [verbose] > │ let v0 : (unit -> UH1) = closure72() │
00:09:21 #41553 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.06999999999999999, 0.004247339675607605, │
00:09:21 #41554 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:21 #41555 [verbose] > │ and closure70 () () : UH1 = │
00:09:21 #41556 [verbose] > │ let v0 : (unit -> UH1) = closure71() │
00:09:21 #41557 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.060000000000000005, 0.0038215786027292415, │
00:09:21 #41558 [verbose] > │ 0.0, 0.0, 0.0, 0.0, 0.0, v0) │
00:09:21 #41559 [verbose] > │ and closure69 () () : UH1 = │
00:09:21 #41560 [verbose] > │ let v0 : (unit -> UH1) = closure70() │
00:09:21 #41561 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.05, 0.0033156132912039757, 0.0, 0.0, 0.0, │
00:09:21 #41562 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41563 [verbose] > │ and closure68 () () : UH1 = │
00:09:21 #41564 [verbose] > │ let v0 : (unit -> UH1) = closure69() │
00:09:21 #41565 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.04, 0.00274006253677335, 0.0, 0.0, 0.0, │
00:09:21 #41566 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41567 [verbose] > │ and closure67 () () : UH1 = │
00:09:21 #41568 [verbose] > │ let v0 : (unit -> UH1) = closure68() │
00:09:21 #41569 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.03, 0.0021070055388626454, 0.0, 0.0, 0.0, │
00:09:21 #41570 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41571 [verbose] > │ and closure66 () () : UH1 = │
00:09:21 #41572 [verbose] > │ let v0 : (unit -> UH1) = closure67() │
00:09:21 #41573 [verbose] > │ UH1_0(0.0, 8.422578125E-06, 0.02, 0.0014297283919934465, 0.0, 0.0, 0.0, │
00:09:21 #41574 [verbose] > │ 0.0, 0.0, v0) │
00:09:21 #41575 [verbose] > │ and closure132 (v0 : (unit -> UH1), v1 : (unit -> UH3)) () : UH1 = │
00:09:21 #41576 [verbose] > │ let v2 : UH3 = v1 () │
00:09:21 #41577 [verbose] > │ let v3 : UH1 = v0 () │
00:09:21 #41578 [verbose] > │ match v2 with │
00:09:21 #41579 [verbose] > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:09:21 #41580 [verbose] > │ match v3 with │
00:09:21 #41581 [verbose] > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:09:21 #41582 [verbose] > │ StreamCons *) │
00:09:21 #41583 [verbose] > │ let v24 : float = v9 * 1.25E-05 │
00:09:21 #41584 [verbose] > │ let v25 : float = v19 + v24 │
00:09:21 #41585 [verbose] > │ let v26 : float = 1.25E-05 * v6 │
00:09:21 #41586 [verbose] > │ let v27 : float = 1.25E-05 * v7 │
00:09:21 #41587 [verbose] > │ let v28 : float = 1.25E-05 * v8 │
00:09:21 #41588 [verbose] > │ let v29 : float = v16 + v26 │
00:09:21 #41589 [verbose] > │ let v30 : float = v17 + v27 │
00:09:21 #41590 [verbose] > │ let v31 : float = v18 + v28 │
00:09:21 #41591 [verbose] > │ let v32 : float = 1.25E-05 * v10 │
00:09:21 #41592 [verbose] > │ let v33 : float = 1.25E-05 * v11 │
00:09:21 #41593 [verbose] > │ let v34 : float = 1.25E-05 * v12 │
00:09:21 #41594 [verbose] > │ let v35 : float = v20 + v32 │
00:09:21 #41595 [verbose] > │ let v36 : float = v21 + v33 │
00:09:21 #41596 [verbose] > │ let v37 : float = v22 + v34 │
00:09:21 #41597 [verbose] > │ let v38 : (unit -> UH1) = closure132(v23, v13) │
00:09:21 #41598 [verbose] > │ UH1_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:09:21 #41599 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:21 #41600 [verbose] > │ UH1_1 │
00:09:21 #41601 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41602 [verbose] > │ UH1_1 │
00:09:21 #41603 [verbose] > │ and closure133 (v0 : UH1) () : UH1 = │
00:09:21 #41604 [verbose] > │ v0 │
00:09:21 #41605 [verbose] > │ and closure134 (v0 : UH1, v1 : Mut0) () : UH1 = │
00:09:21 #41606 [verbose] > │ let v2 : US0 = v1.l0 │
00:09:21 #41607 [verbose] > │ match v2 with │
00:09:21 #41608 [verbose] > │ | US0_1(v3) -> (* Computed *) │
00:09:21 #41609 [verbose] > │ v3 │
00:09:21 #41610 [verbose] > │ | US0_0(v4) -> (* NotComputed *) │
00:09:21 #41611 [verbose] > │ let v5 : UH1 = v4 () │
00:09:21 #41612 [verbose] > │ let v20 : UH1 = │
00:09:21 #41613 [verbose] > │ match v5 with │
00:09:21 #41614 [verbose] > │ | UH1_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v16) -> (* │
00:09:21 #41615 [verbose] > │ StreamCons *) │
00:09:21 #41616 [verbose] > │ let v17 : (unit -> UH1) = method3(v0, v16) │
00:09:21 #41617 [verbose] > │ UH1_0(v7, v8, v9, v10, v11, v12, v13, v14, v15, v17) │
00:09:21 #41618 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:21 #41619 [verbose] > │ UH1_1 │
00:09:21 #41620 [verbose] > │ let v21 : US0 = US0_1(v20) │
00:09:21 #41621 [verbose] > │ v1.l0 <- v21 │
00:09:21 #41622 [verbose] > │ v20 │
00:09:21 #41623 [verbose] > │ and method3 (v0 : UH1, v1 : (unit -> UH1)) : (unit -> UH1) = │
00:09:21 #41624 [verbose] > │ let v2 : US0 = US0_0(v1) │
00:09:21 #41625 [verbose] > │ let v3 : Mut0 = {l0 = v2} : Mut0 │
00:09:21 #41626 [verbose] > │ closure134(v0, v3) │
00:09:21 #41627 [verbose] > │ and closure135 (v0 : (unit -> UH1), v1 : (unit -> UH3)) () : UH1 = │
00:09:21 #41628 [verbose] > │ let v2 : UH3 = v1 () │
00:09:21 #41629 [verbose] > │ let v3 : UH1 = v0 () │
00:09:21 #41630 [verbose] > │ match v2 with │
00:09:21 #41631 [verbose] > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:09:21 #41632 [verbose] > │ match v3 with │
00:09:21 #41633 [verbose] > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:09:21 #41634 [verbose] > │ StreamCons *) │
00:09:21 #41635 [verbose] > │ let v24 : float = v9 * 2.5E-05 │
00:09:21 #41636 [verbose] > │ let v25 : float = v19 + v24 │
00:09:21 #41637 [verbose] > │ let v26 : float = 2.5E-05 * v6 │
00:09:21 #41638 [verbose] > │ let v27 : float = 2.5E-05 * v7 │
00:09:21 #41639 [verbose] > │ let v28 : float = 2.5E-05 * v8 │
00:09:21 #41640 [verbose] > │ let v29 : float = v16 + v26 │
00:09:21 #41641 [verbose] > │ let v30 : float = v17 + v27 │
00:09:21 #41642 [verbose] > │ let v31 : float = v18 + v28 │
00:09:21 #41643 [verbose] > │ let v32 : float = 2.5E-05 * v10 │
00:09:21 #41644 [verbose] > │ let v33 : float = 2.5E-05 * v11 │
00:09:21 #41645 [verbose] > │ let v34 : float = 2.5E-05 * v12 │
00:09:21 #41646 [verbose] > │ let v35 : float = v20 + v32 │
00:09:21 #41647 [verbose] > │ let v36 : float = v21 + v33 │
00:09:21 #41648 [verbose] > │ let v37 : float = v22 + v34 │
00:09:21 #41649 [verbose] > │ let v38 : (unit -> UH1) = closure135(v23, v13) │
00:09:21 #41650 [verbose] > │ UH1_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:09:21 #41651 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:21 #41652 [verbose] > │ UH1_1 │
00:09:21 #41653 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41654 [verbose] > │ UH1_1 │
00:09:21 #41655 [verbose] > │ and closure136 (v0 : (unit -> UH3), v1 : (unit -> UH3)) () : UH3 = │
00:09:21 #41656 [verbose] > │ let v2 : UH3 = v1 () │
00:09:21 #41657 [verbose] > │ let v3 : UH3 = v0 () │
00:09:21 #41658 [verbose] > │ match v2 with │
00:09:21 #41659 [verbose] > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:09:21 #41660 [verbose] > │ match v3 with │
00:09:21 #41661 [verbose] > │ | UH3_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:09:21 #41662 [verbose] > │ StreamCons *) │
00:09:21 #41663 [verbose] > │ let v24 : float = v4 + v14 │
00:09:21 #41664 [verbose] > │ let v25 : float = v5 + v15 │
00:09:21 #41665 [verbose] > │ let v26 : float = v9 + v19 │
00:09:21 #41666 [verbose] > │ let v27 : float = v6 + v16 │
00:09:21 #41667 [verbose] > │ let v28 : float = v7 + v17 │
00:09:21 #41668 [verbose] > │ let v29 : float = v8 + v18 │
00:09:21 #41669 [verbose] > │ let v30 : float = v10 + v20 │
00:09:21 #41670 [verbose] > │ let v31 : float = v11 + v21 │
00:09:21 #41671 [verbose] > │ let v32 : float = v12 + v22 │
00:09:21 #41672 [verbose] > │ let v33 : (unit -> UH3) = closure136(v23, v13) │
00:09:21 #41673 [verbose] > │ UH3_0(v24, v25, v27, v28, v29, v26, v30, v31, v32, v33) │
00:09:21 #41674 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41675 [verbose] > │ UH3_1 │
00:09:21 #41676 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41677 [verbose] > │ UH3_1 │
00:09:21 #41678 [verbose] > │ and closure137 (v0 : (unit -> UH1), v1 : (unit -> UH3)) () : UH1 = │
00:09:21 #41679 [verbose] > │ let v2 : UH3 = v1 () │
00:09:21 #41680 [verbose] > │ let v3 : UH1 = v0 () │
00:09:21 #41681 [verbose] > │ match v2 with │
00:09:21 #41682 [verbose] > │ | UH3_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13) -> (* StreamCons *) │
00:09:21 #41683 [verbose] > │ match v3 with │
00:09:21 #41684 [verbose] > │ | UH1_0(v14, v15, v16, v17, v18, v19, v20, v21, v22, v23) -> (* │
00:09:21 #41685 [verbose] > │ StreamCons *) │
00:09:21 #41686 [verbose] > │ let v24 : float = v9 * 4.166666666666667E-06 │
00:09:21 #41687 [verbose] > │ let v25 : float = v19 + v24 │
00:09:21 #41688 [verbose] > │ let v26 : float = 4.166666666666667E-06 * v6 │
00:09:21 #41689 [verbose] > │ let v27 : float = 4.166666666666667E-06 * v7 │
00:09:21 #41690 [verbose] > │ let v28 : float = 4.166666666666667E-06 * v8 │
00:09:21 #41691 [verbose] > │ let v29 : float = v16 + v26 │
00:09:21 #41692 [verbose] > │ let v30 : float = v17 + v27 │
00:09:21 #41693 [verbose] > │ let v31 : float = v18 + v28 │
00:09:21 #41694 [verbose] > │ let v32 : float = 4.166666666666667E-06 * v10 │
00:09:21 #41695 [verbose] > │ let v33 : float = 4.166666666666667E-06 * v11 │
00:09:21 #41696 [verbose] > │ let v34 : float = 4.166666666666667E-06 * v12 │
00:09:21 #41697 [verbose] > │ let v35 : float = v20 + v32 │
00:09:21 #41698 [verbose] > │ let v36 : float = v21 + v33 │
00:09:21 #41699 [verbose] > │ let v37 : float = v22 + v34 │
00:09:21 #41700 [verbose] > │ let v38 : (unit -> UH1) = closure137(v23, v13) │
00:09:21 #41701 [verbose] > │ UH1_0(v14, v15, v29, v30, v31, v25, v35, v36, v37, v38) │
00:09:21 #41702 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:21 #41703 [verbose] > │ UH1_1 │
00:09:21 #41704 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41705 [verbose] > │ UH1_1 │
00:09:21 #41706 [verbose] > │ and closure131 (v0 : (UH1 -> UH3)) (v1 : UH1) : UH1 = │
00:09:21 #41707 [verbose] > │ let v2 : UH3 = v0 v1 │
00:09:21 #41708 [verbose] > │ let v44 : UH1 = │
00:09:21 #41709 [verbose] > │ match v2 with │
00:09:21 #41710 [verbose] > │ | UH3_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons │
00:09:21 #41711 [verbose] > │ *) │
00:09:21 #41712 [verbose] > │ match v1 with │
00:09:21 #41713 [verbose] > │ | UH1_0(v13, v14, v15, v16, v17, v18, v19, v20, v21, v22) -> (* │
00:09:21 #41714 [verbose] > │ StreamCons *) │
00:09:21 #41715 [verbose] > │ let v23 : float = v8 * 1.25E-05 │
00:09:21 #41716 [verbose] > │ let v24 : float = v18 + v23 │
00:09:21 #41717 [verbose] > │ let v25 : float = 1.25E-05 * v5 │
00:09:21 #41718 [verbose] > │ let v26 : float = 1.25E-05 * v6 │
00:09:21 #41719 [verbose] > │ let v27 : float = 1.25E-05 * v7 │
00:09:21 #41720 [verbose] > │ let v28 : float = v15 + v25 │
00:09:21 #41721 [verbose] > │ let v29 : float = v16 + v26 │
00:09:21 #41722 [verbose] > │ let v30 : float = v17 + v27 │
00:09:21 #41723 [verbose] > │ let v31 : float = 1.25E-05 * v9 │
00:09:21 #41724 [verbose] > │ let v32 : float = 1.25E-05 * v10 │
00:09:21 #41725 [verbose] > │ let v33 : float = 1.25E-05 * v11 │
00:09:21 #41726 [verbose] > │ let v34 : float = v19 + v31 │
00:09:21 #41727 [verbose] > │ let v35 : float = v20 + v32 │
00:09:21 #41728 [verbose] > │ let v36 : float = v21 + v33 │
00:09:21 #41729 [verbose] > │ let v37 : (unit -> UH1) = closure132(v22, v12) │
00:09:21 #41730 [verbose] > │ UH1_0(v13, v14, v28, v29, v30, v24, v34, v35, v36, v37) │
00:09:21 #41731 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:21 #41732 [verbose] > │ UH1_1 │
00:09:21 #41733 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41734 [verbose] > │ UH1_1 │
00:09:21 #41735 [verbose] > │ let v45 : (unit -> UH1) = closure133(v44) │
00:09:21 #41736 [verbose] > │ let v46 : (unit -> UH1) = method3(v44, v45) │
00:09:21 #41737 [verbose] > │ let v47 : UH1 = v46 () │
00:09:21 #41738 [verbose] > │ let v48 : UH3 = v0 v47 │
00:09:21 #41739 [verbose] > │ let v90 : UH1 = │
00:09:21 #41740 [verbose] > │ match v48 with │
00:09:21 #41741 [verbose] > │ | UH3_0(v49, v50, v51, v52, v53, v54, v55, v56, v57, v58) -> (* │
00:09:21 #41742 [verbose] > │ StreamCons *) │
00:09:21 #41743 [verbose] > │ match v1 with │
00:09:21 #41744 [verbose] > │ | UH1_0(v59, v60, v61, v62, v63, v64, v65, v66, v67, v68) -> (* │
00:09:21 #41745 [verbose] > │ StreamCons *) │
00:09:21 #41746 [verbose] > │ let v69 : float = v54 * 1.25E-05 │
00:09:21 #41747 [verbose] > │ let v70 : float = v64 + v69 │
00:09:21 #41748 [verbose] > │ let v71 : float = 1.25E-05 * v51 │
00:09:21 #41749 [verbose] > │ let v72 : float = 1.25E-05 * v52 │
00:09:21 #41750 [verbose] > │ let v73 : float = 1.25E-05 * v53 │
00:09:21 #41751 [verbose] > │ let v74 : float = v61 + v71 │
00:09:21 #41752 [verbose] > │ let v75 : float = v62 + v72 │
00:09:21 #41753 [verbose] > │ let v76 : float = v63 + v73 │
00:09:21 #41754 [verbose] > │ let v77 : float = 1.25E-05 * v55 │
00:09:21 #41755 [verbose] > │ let v78 : float = 1.25E-05 * v56 │
00:09:21 #41756 [verbose] > │ let v79 : float = 1.25E-05 * v57 │
00:09:21 #41757 [verbose] > │ let v80 : float = v65 + v77 │
00:09:21 #41758 [verbose] > │ let v81 : float = v66 + v78 │
00:09:21 #41759 [verbose] > │ let v82 : float = v67 + v79 │
00:09:21 #41760 [verbose] > │ let v83 : (unit -> UH1) = closure132(v68, v58) │
00:09:21 #41761 [verbose] > │ UH1_0(v59, v60, v74, v75, v76, v70, v80, v81, v82, v83) │
00:09:21 #41762 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:21 #41763 [verbose] > │ UH1_1 │
00:09:21 #41764 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41765 [verbose] > │ UH1_1 │
00:09:21 #41766 [verbose] > │ let v91 : (unit -> UH1) = closure133(v90) │
00:09:21 #41767 [verbose] > │ let v92 : (unit -> UH1) = method3(v90, v91) │
00:09:21 #41768 [verbose] > │ let v93 : UH1 = v92 () │
00:09:21 #41769 [verbose] > │ let v94 : UH3 = v0 v93 │
00:09:21 #41770 [verbose] > │ let v136 : UH1 = │
00:09:21 #41771 [verbose] > │ match v94 with │
00:09:21 #41772 [verbose] > │ | UH3_0(v95, v96, v97, v98, v99, v100, v101, v102, v103, v104) -> (* │
00:09:21 #41773 [verbose] > │ StreamCons *) │
00:09:21 #41774 [verbose] > │ match v1 with │
00:09:21 #41775 [verbose] > │ | UH1_0(v105, v106, v107, v108, v109, v110, v111, v112, v113, │
00:09:21 #41776 [verbose] > │ v114) -> (* StreamCons *) │
00:09:21 #41777 [verbose] > │ let v115 : float = v100 * 2.5E-05 │
00:09:21 #41778 [verbose] > │ let v116 : float = v110 + v115 │
00:09:21 #41779 [verbose] > │ let v117 : float = 2.5E-05 * v97 │
00:09:21 #41780 [verbose] > │ let v118 : float = 2.5E-05 * v98 │
00:09:21 #41781 [verbose] > │ let v119 : float = 2.5E-05 * v99 │
00:09:21 #41782 [verbose] > │ let v120 : float = v107 + v117 │
00:09:21 #41783 [verbose] > │ let v121 : float = v108 + v118 │
00:09:21 #41784 [verbose] > │ let v122 : float = v109 + v119 │
00:09:21 #41785 [verbose] > │ let v123 : float = 2.5E-05 * v101 │
00:09:21 #41786 [verbose] > │ let v124 : float = 2.5E-05 * v102 │
00:09:21 #41787 [verbose] > │ let v125 : float = 2.5E-05 * v103 │
00:09:21 #41788 [verbose] > │ let v126 : float = v111 + v123 │
00:09:21 #41789 [verbose] > │ let v127 : float = v112 + v124 │
00:09:21 #41790 [verbose] > │ let v128 : float = v113 + v125 │
00:09:21 #41791 [verbose] > │ let v129 : (unit -> UH1) = closure135(v114, v104) │
00:09:21 #41792 [verbose] > │ UH1_0(v105, v106, v120, v121, v122, v116, v126, v127, v128, │
00:09:21 #41793 [verbose] > │ v129) │
00:09:21 #41794 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:21 #41795 [verbose] > │ UH1_1 │
00:09:21 #41796 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41797 [verbose] > │ UH1_1 │
00:09:21 #41798 [verbose] > │ let v137 : (unit -> UH1) = closure133(v136) │
00:09:21 #41799 [verbose] > │ let v138 : (unit -> UH1) = method3(v136, v137) │
00:09:21 #41800 [verbose] > │ let v139 : UH1 = v138 () │
00:09:21 #41801 [verbose] > │ let v140 : UH3 = v0 v139 │
00:09:21 #41802 [verbose] > │ let v177 : UH3 = │
00:09:21 #41803 [verbose] > │ match v2 with │
00:09:21 #41804 [verbose] > │ | UH3_0(v141, v142, v143, v144, v145, v146, v147, v148, v149, v150) │
00:09:21 #41805 [verbose] > │ -> (* StreamCons *) │
00:09:21 #41806 [verbose] > │ match v48 with │
00:09:21 #41807 [verbose] > │ | UH3_0(v151, v152, v153, v154, v155, v156, v157, v158, v159, │
00:09:21 #41808 [verbose] > │ v160) -> (* StreamCons *) │
00:09:21 #41809 [verbose] > │ let v161 : float = v141 + v151 │
00:09:21 #41810 [verbose] > │ let v162 : float = v142 + v152 │
00:09:21 #41811 [verbose] > │ let v163 : float = v146 + v156 │
00:09:21 #41812 [verbose] > │ let v164 : float = v143 + v153 │
00:09:21 #41813 [verbose] > │ let v165 : float = v144 + v154 │
00:09:21 #41814 [verbose] > │ let v166 : float = v145 + v155 │
00:09:21 #41815 [verbose] > │ let v167 : float = v147 + v157 │
00:09:21 #41816 [verbose] > │ let v168 : float = v148 + v158 │
00:09:21 #41817 [verbose] > │ let v169 : float = v149 + v159 │
00:09:21 #41818 [verbose] > │ let v170 : (unit -> UH3) = closure136(v160, v150) │
00:09:21 #41819 [verbose] > │ UH3_0(v161, v162, v164, v165, v166, v163, v167, v168, v169, │
00:09:21 #41820 [verbose] > │ v170) │
00:09:21 #41821 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41822 [verbose] > │ UH3_1 │
00:09:21 #41823 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41824 [verbose] > │ UH3_1 │
00:09:21 #41825 [verbose] > │ let v214 : UH3 = │
00:09:21 #41826 [verbose] > │ match v177 with │
00:09:21 #41827 [verbose] > │ | UH3_0(v178, v179, v180, v181, v182, v183, v184, v185, v186, v187) │
00:09:21 #41828 [verbose] > │ -> (* StreamCons *) │
00:09:21 #41829 [verbose] > │ match v48 with │
00:09:21 #41830 [verbose] > │ | UH3_0(v188, v189, v190, v191, v192, v193, v194, v195, v196, │
00:09:21 #41831 [verbose] > │ v197) -> (* StreamCons *) │
00:09:21 #41832 [verbose] > │ let v198 : float = v178 + v188 │
00:09:21 #41833 [verbose] > │ let v199 : float = v179 + v189 │
00:09:21 #41834 [verbose] > │ let v200 : float = v183 + v193 │
00:09:21 #41835 [verbose] > │ let v201 : float = v180 + v190 │
00:09:21 #41836 [verbose] > │ let v202 : float = v181 + v191 │
00:09:21 #41837 [verbose] > │ let v203 : float = v182 + v192 │
00:09:21 #41838 [verbose] > │ let v204 : float = v184 + v194 │
00:09:21 #41839 [verbose] > │ let v205 : float = v185 + v195 │
00:09:21 #41840 [verbose] > │ let v206 : float = v186 + v196 │
00:09:21 #41841 [verbose] > │ let v207 : (unit -> UH3) = closure136(v197, v187) │
00:09:21 #41842 [verbose] > │ UH3_0(v198, v199, v201, v202, v203, v200, v204, v205, v206, │
00:09:21 #41843 [verbose] > │ v207) │
00:09:21 #41844 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41845 [verbose] > │ UH3_1 │
00:09:21 #41846 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41847 [verbose] > │ UH3_1 │
00:09:21 #41848 [verbose] > │ let v251 : UH3 = │
00:09:21 #41849 [verbose] > │ match v214 with │
00:09:21 #41850 [verbose] > │ | UH3_0(v215, v216, v217, v218, v219, v220, v221, v222, v223, v224) │
00:09:21 #41851 [verbose] > │ -> (* StreamCons *) │
00:09:21 #41852 [verbose] > │ match v94 with │
00:09:21 #41853 [verbose] > │ | UH3_0(v225, v226, v227, v228, v229, v230, v231, v232, v233, │
00:09:21 #41854 [verbose] > │ v234) -> (* StreamCons *) │
00:09:21 #41855 [verbose] > │ let v235 : float = v215 + v225 │
00:09:21 #41856 [verbose] > │ let v236 : float = v216 + v226 │
00:09:21 #41857 [verbose] > │ let v237 : float = v220 + v230 │
00:09:21 #41858 [verbose] > │ let v238 : float = v217 + v227 │
00:09:21 #41859 [verbose] > │ let v239 : float = v218 + v228 │
00:09:21 #41860 [verbose] > │ let v240 : float = v219 + v229 │
00:09:21 #41861 [verbose] > │ let v241 : float = v221 + v231 │
00:09:21 #41862 [verbose] > │ let v242 : float = v222 + v232 │
00:09:21 #41863 [verbose] > │ let v243 : float = v223 + v233 │
00:09:21 #41864 [verbose] > │ let v244 : (unit -> UH3) = closure136(v234, v224) │
00:09:21 #41865 [verbose] > │ UH3_0(v235, v236, v238, v239, v240, v237, v241, v242, v243, │
00:09:21 #41866 [verbose] > │ v244) │
00:09:21 #41867 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41868 [verbose] > │ UH3_1 │
00:09:21 #41869 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41870 [verbose] > │ UH3_1 │
00:09:21 #41871 [verbose] > │ let v288 : UH3 = │
00:09:21 #41872 [verbose] > │ match v251 with │
00:09:21 #41873 [verbose] > │ | UH3_0(v252, v253, v254, v255, v256, v257, v258, v259, v260, v261) │
00:09:21 #41874 [verbose] > │ -> (* StreamCons *) │
00:09:21 #41875 [verbose] > │ match v94 with │
00:09:21 #41876 [verbose] > │ | UH3_0(v262, v263, v264, v265, v266, v267, v268, v269, v270, │
00:09:21 #41877 [verbose] > │ v271) -> (* StreamCons *) │
00:09:21 #41878 [verbose] > │ let v272 : float = v252 + v262 │
00:09:21 #41879 [verbose] > │ let v273 : float = v253 + v263 │
00:09:21 #41880 [verbose] > │ let v274 : float = v257 + v267 │
00:09:21 #41881 [verbose] > │ let v275 : float = v254 + v264 │
00:09:21 #41882 [verbose] > │ let v276 : float = v255 + v265 │
00:09:21 #41883 [verbose] > │ let v277 : float = v256 + v266 │
00:09:21 #41884 [verbose] > │ let v278 : float = v258 + v268 │
00:09:21 #41885 [verbose] > │ let v279 : float = v259 + v269 │
00:09:21 #41886 [verbose] > │ let v280 : float = v260 + v270 │
00:09:21 #41887 [verbose] > │ let v281 : (unit -> UH3) = closure136(v271, v261) │
00:09:21 #41888 [verbose] > │ UH3_0(v272, v273, v275, v276, v277, v274, v278, v279, v280, │
00:09:21 #41889 [verbose] > │ v281) │
00:09:21 #41890 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41891 [verbose] > │ UH3_1 │
00:09:21 #41892 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41893 [verbose] > │ UH3_1 │
00:09:21 #41894 [verbose] > │ let v325 : UH3 = │
00:09:21 #41895 [verbose] > │ match v288 with │
00:09:21 #41896 [verbose] > │ | UH3_0(v289, v290, v291, v292, v293, v294, v295, v296, v297, v298) │
00:09:21 #41897 [verbose] > │ -> (* StreamCons *) │
00:09:21 #41898 [verbose] > │ match v140 with │
00:09:21 #41899 [verbose] > │ | UH3_0(v299, v300, v301, v302, v303, v304, v305, v306, v307, │
00:09:21 #41900 [verbose] > │ v308) -> (* StreamCons *) │
00:09:21 #41901 [verbose] > │ let v309 : float = v289 + v299 │
00:09:21 #41902 [verbose] > │ let v310 : float = v290 + v300 │
00:09:21 #41903 [verbose] > │ let v311 : float = v294 + v304 │
00:09:21 #41904 [verbose] > │ let v312 : float = v291 + v301 │
00:09:21 #41905 [verbose] > │ let v313 : float = v292 + v302 │
00:09:21 #41906 [verbose] > │ let v314 : float = v293 + v303 │
00:09:21 #41907 [verbose] > │ let v315 : float = v295 + v305 │
00:09:21 #41908 [verbose] > │ let v316 : float = v296 + v306 │
00:09:21 #41909 [verbose] > │ let v317 : float = v297 + v307 │
00:09:21 #41910 [verbose] > │ let v318 : (unit -> UH3) = closure136(v308, v298) │
00:09:21 #41911 [verbose] > │ UH3_0(v309, v310, v312, v313, v314, v311, v315, v316, v317, │
00:09:21 #41912 [verbose] > │ v318) │
00:09:21 #41913 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41914 [verbose] > │ UH3_1 │
00:09:21 #41915 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41916 [verbose] > │ UH3_1 │
00:09:21 #41917 [verbose] > │ let v367 : UH1 = │
00:09:21 #41918 [verbose] > │ match v325 with │
00:09:21 #41919 [verbose] > │ | UH3_0(v326, v327, v328, v329, v330, v331, v332, v333, v334, v335) │
00:09:21 #41920 [verbose] > │ -> (* StreamCons *) │
00:09:21 #41921 [verbose] > │ match v1 with │
00:09:21 #41922 [verbose] > │ | UH1_0(v336, v337, v338, v339, v340, v341, v342, v343, v344, │
00:09:21 #41923 [verbose] > │ v345) -> (* StreamCons *) │
00:09:21 #41924 [verbose] > │ let v346 : float = v331 * 4.166666666666667E-06 │
00:09:21 #41925 [verbose] > │ let v347 : float = v341 + v346 │
00:09:21 #41926 [verbose] > │ let v348 : float = 4.166666666666667E-06 * v328 │
00:09:21 #41927 [verbose] > │ let v349 : float = 4.166666666666667E-06 * v329 │
00:09:21 #41928 [verbose] > │ let v350 : float = 4.166666666666667E-06 * v330 │
00:09:21 #41929 [verbose] > │ let v351 : float = v338 + v348 │
00:09:21 #41930 [verbose] > │ let v352 : float = v339 + v349 │
00:09:21 #41931 [verbose] > │ let v353 : float = v340 + v350 │
00:09:21 #41932 [verbose] > │ let v354 : float = 4.166666666666667E-06 * v332 │
00:09:21 #41933 [verbose] > │ let v355 : float = 4.166666666666667E-06 * v333 │
00:09:21 #41934 [verbose] > │ let v356 : float = 4.166666666666667E-06 * v334 │
00:09:21 #41935 [verbose] > │ let v357 : float = v342 + v354 │
00:09:21 #41936 [verbose] > │ let v358 : float = v343 + v355 │
00:09:21 #41937 [verbose] > │ let v359 : float = v344 + v356 │
00:09:21 #41938 [verbose] > │ let v360 : (unit -> UH1) = closure137(v345, v335) │
00:09:21 #41939 [verbose] > │ UH1_0(v336, v337, v351, v352, v353, v347, v357, v358, v359, │
00:09:21 #41940 [verbose] > │ v360) │
00:09:21 #41941 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:21 #41942 [verbose] > │ UH1_1 │
00:09:21 #41943 [verbose] > │ | UH3_1 -> (* StreamNil *) │
00:09:21 #41944 [verbose] > │ UH1_1 │
00:09:21 #41945 [verbose] > │ let v368 : (unit -> UH1) = closure133(v367) │
00:09:21 #41946 [verbose] > │ let v369 : (unit -> UH1) = method3(v367, v368) │
00:09:21 #41947 [verbose] > │ let v370 : UH1 = v369 () │
00:09:21 #41948 [verbose] > │ v370 │
00:09:21 #41949 [verbose] > │ and closure130 () (v0 : (UH1 -> UH3)) : (UH1 -> UH1) = │
00:09:21 #41950 [verbose] > │ closure131(v0) │
00:09:21 #41951 [verbose] > │ and method2 () : ((UH1 -> UH3) -> (UH1 -> UH1)) = │
00:09:21 #41952 [verbose] > │ closure130() │
00:09:21 #41953 [verbose] > │ and closure138 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:09:21 #41954 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:09:21 #41955 [verbose] > │ float * float) = │
00:09:21 #41956 [verbose] > │ let v9 : float = v2 * v2 │
00:09:21 #41957 [verbose] > │ let v10 : float = v3 * v3 │
00:09:21 #41958 [verbose] > │ let v11 : float = v9 + v10 │
00:09:21 #41959 [verbose] > │ let v12 : float = v4 * v4 │
00:09:21 #41960 [verbose] > │ let v13 : float = v11 + v12 │
00:09:21 #41961 [verbose] > │ let v14 : float = sqrt v13 │
00:09:21 #41962 [verbose] > │ let v15 : float = -5384.0 * v14 │
00:09:21 #41963 [verbose] > │ let v16 : float = v15 * v2 │
00:09:21 #41964 [verbose] > │ let v17 : float = v15 * v3 │
00:09:21 #41965 [verbose] > │ let v18 : float = v15 * v4 │
00:09:21 #41966 [verbose] > │ let v19 : float = v16 / v14 │
00:09:21 #41967 [verbose] > │ let v20 : float = v17 / v14 │
00:09:21 #41968 [verbose] > │ let v21 : float = v18 / v14 │
00:09:21 #41969 [verbose] > │ struct (v19, v20, v21) │
00:09:21 #41970 [verbose] > │ and closure139 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:09:21 #41971 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:09:21 #41972 [verbose] > │ float * float) = │
00:09:21 #41973 [verbose] > │ let v9 : float = v2 + -0.65 │
00:09:21 #41974 [verbose] > │ let v10 : float = v9 * v9 │
00:09:21 #41975 [verbose] > │ let v11 : float = v3 * v3 │
00:09:21 #41976 [verbose] > │ let v12 : float = v10 + v11 │
00:09:21 #41977 [verbose] > │ let v13 : float = v4 * v4 │
00:09:21 #41978 [verbose] > │ let v14 : float = v12 + v13 │
00:09:21 #41979 [verbose] > │ let v15 : float = sqrt v14 │
00:09:21 #41980 [verbose] > │ let v16 : float = -5384.0 * v15 │
00:09:21 #41981 [verbose] > │ let v17 : float = v16 * v9 │
00:09:21 #41982 [verbose] > │ let v18 : float = v16 * v3 │
00:09:21 #41983 [verbose] > │ let v19 : float = v16 * v4 │
00:09:21 #41984 [verbose] > │ let v20 : float = v17 / v15 │
00:09:21 #41985 [verbose] > │ let v21 : float = v18 / v15 │
00:09:21 #41986 [verbose] > │ let v22 : float = v19 / v15 │
00:09:21 #41987 [verbose] > │ struct (v20, v21, v22) │
00:09:21 #41988 [verbose] > │ and closure141 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, │
00:09:21 #41989 [verbose] > │ v5 : float, v6 : float, v7 : float, v8 : float) struct (v9 : float, v10 : │
00:09:21 #41990 [verbose] > │ float, v11 : float, v12 : float, v13 : float, v14 : float, v15 : float, v16 │
00:09:21 #41991 [verbose] > │ : float, v17 : float) : struct (float * float * float) = │
00:09:21 #41992 [verbose] > │ let v18 : float = -1.0 * v2 │
00:09:21 #41993 [verbose] > │ let v19 : float = -1.0 * v3 │
00:09:21 #41994 [verbose] > │ let v20 : float = -1.0 * v4 │
00:09:21 #41995 [verbose] > │ let v21 : float = v11 + v18 │
00:09:21 #41996 [verbose] > │ let v22 : float = v12 + v19 │
00:09:21 #41997 [verbose] > │ let v23 : float = v13 + v20 │
00:09:21 #41998 [verbose] > │ let v24 : float = v21 * v21 │
00:09:21 #41999 [verbose] > │ let v25 : float = v22 * v22 │
00:09:21 #42000 [verbose] > │ let v26 : float = v24 + v25 │
00:09:21 #42001 [verbose] > │ let v27 : float = v23 * v23 │
00:09:21 #42002 [verbose] > │ let v28 : float = v26 + v27 │
00:09:21 #42003 [verbose] > │ let v29 : float = sqrt v28 │
00:09:21 #42004 [verbose] > │ let v30 : float = -5384.0 * v29 │
00:09:21 #42005 [verbose] > │ let v31 : float = v30 * v21 │
00:09:21 #42006 [verbose] > │ let v32 : float = v30 * v22 │
00:09:21 #42007 [verbose] > │ let v33 : float = v30 * v23 │
00:09:21 #42008 [verbose] > │ let v34 : float = v31 / v29 │
00:09:21 #42009 [verbose] > │ let v35 : float = v32 / v29 │
00:09:21 #42010 [verbose] > │ let v36 : float = v33 / v29 │
00:09:21 #42011 [verbose] > │ struct (v34, v35, v36) │
00:09:21 #42012 [verbose] > │ and closure140 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:09:21 #42013 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : (struct (float * │
00:09:21 #42014 [verbose] > │ float * float * float * float * float * float * float * float) -> struct │
00:09:21 #42015 [verbose] > │ (float * float * float)) = │
00:09:21 #42016 [verbose] > │ closure141(v0, v1, v2, v3, v4, v5, v6, v7, v8) │
00:09:21 #42017 [verbose] > │ and method4 () : UH4 = │
00:09:21 #42018 [verbose] > │ let v0 : (struct (float * float * float * float * float * float * float │
00:09:21 #42019 [verbose] > │ * float * float) -> struct (float * float * float)) = closure138() │
00:09:21 #42020 [verbose] > │ let v1 : US1 = US1_0(0, v0) │
00:09:21 #42021 [verbose] > │ let v2 : (struct (float * float * float * float * float * float * float │
00:09:21 #42022 [verbose] > │ * float * float) -> struct (float * float * float)) = closure139() │
00:09:21 #42023 [verbose] > │ let v3 : US1 = US1_0(63, v2) │
00:09:21 #42024 [verbose] > │ let v4 : (struct (float * float * float * float * float * float * float │
00:09:21 #42025 [verbose] > │ * float * float) -> (struct (float * float * float * float * float * float * │
00:09:21 #42026 [verbose] > │ float * float * float) -> struct (float * float * float))) = closure140() │
00:09:21 #42027 [verbose] > │ let v5 : US1 = US1_1(0, 1, v4) │
00:09:21 #42028 [verbose] > │ let v6 : US1 = US1_1(1, 2, v4) │
00:09:21 #42029 [verbose] > │ let v7 : US1 = US1_1(2, 3, v4) │
00:09:21 #42030 [verbose] > │ let v8 : US1 = US1_1(3, 4, v4) │
00:09:21 #42031 [verbose] > │ let v9 : US1 = US1_1(4, 5, v4) │
00:09:21 #42032 [verbose] > │ let v10 : US1 = US1_1(5, 6, v4) │
00:09:21 #42033 [verbose] > │ let v11 : US1 = US1_1(6, 7, v4) │
00:09:21 #42034 [verbose] > │ let v12 : US1 = US1_1(7, 8, v4) │
00:09:21 #42035 [verbose] > │ let v13 : US1 = US1_1(8, 9, v4) │
00:09:21 #42036 [verbose] > │ let v14 : US1 = US1_1(9, 10, v4) │
00:09:21 #42037 [verbose] > │ let v15 : US1 = US1_1(10, 11, v4) │
00:09:21 #42038 [verbose] > │ let v16 : US1 = US1_1(11, 12, v4) │
00:09:21 #42039 [verbose] > │ let v17 : US1 = US1_1(12, 13, v4) │
00:09:21 #42040 [verbose] > │ let v18 : US1 = US1_1(13, 14, v4) │
00:09:21 #42041 [verbose] > │ let v19 : US1 = US1_1(14, 15, v4) │
00:09:21 #42042 [verbose] > │ let v20 : US1 = US1_1(15, 16, v4) │
00:09:21 #42043 [verbose] > │ let v21 : US1 = US1_1(16, 17, v4) │
00:09:21 #42044 [verbose] > │ let v22 : US1 = US1_1(17, 18, v4) │
00:09:21 #42045 [verbose] > │ let v23 : US1 = US1_1(18, 19, v4) │
00:09:21 #42046 [verbose] > │ let v24 : US1 = US1_1(19, 20, v4) │
00:09:21 #42047 [verbose] > │ let v25 : US1 = US1_1(20, 21, v4) │
00:09:21 #42048 [verbose] > │ let v26 : US1 = US1_1(21, 22, v4) │
00:09:21 #42049 [verbose] > │ let v27 : US1 = US1_1(22, 23, v4) │
00:09:21 #42050 [verbose] > │ let v28 : US1 = US1_1(23, 24, v4) │
00:09:21 #42051 [verbose] > │ let v29 : US1 = US1_1(24, 25, v4) │
00:09:21 #42052 [verbose] > │ let v30 : US1 = US1_1(25, 26, v4) │
00:09:21 #42053 [verbose] > │ let v31 : US1 = US1_1(26, 27, v4) │
00:09:21 #42054 [verbose] > │ let v32 : US1 = US1_1(27, 28, v4) │
00:09:21 #42055 [verbose] > │ let v33 : US1 = US1_1(28, 29, v4) │
00:09:21 #42056 [verbose] > │ let v34 : US1 = US1_1(29, 30, v4) │
00:09:21 #42057 [verbose] > │ let v35 : US1 = US1_1(30, 31, v4) │
00:09:21 #42058 [verbose] > │ let v36 : US1 = US1_1(31, 32, v4) │
00:09:21 #42059 [verbose] > │ let v37 : US1 = US1_1(32, 33, v4) │
00:09:21 #42060 [verbose] > │ let v38 : US1 = US1_1(33, 34, v4) │
00:09:21 #42061 [verbose] > │ let v39 : US1 = US1_1(34, 35, v4) │
00:09:21 #42062 [verbose] > │ let v40 : US1 = US1_1(35, 36, v4) │
00:09:21 #42063 [verbose] > │ let v41 : US1 = US1_1(36, 37, v4) │
00:09:21 #42064 [verbose] > │ let v42 : US1 = US1_1(37, 38, v4) │
00:09:21 #42065 [verbose] > │ let v43 : US1 = US1_1(38, 39, v4) │
00:09:21 #42066 [verbose] > │ let v44 : US1 = US1_1(39, 40, v4) │
00:09:21 #42067 [verbose] > │ let v45 : US1 = US1_1(40, 41, v4) │
00:09:21 #42068 [verbose] > │ let v46 : US1 = US1_1(41, 42, v4) │
00:09:21 #42069 [verbose] > │ let v47 : US1 = US1_1(42, 43, v4) │
00:09:21 #42070 [verbose] > │ let v48 : US1 = US1_1(43, 44, v4) │
00:09:21 #42071 [verbose] > │ let v49 : US1 = US1_1(44, 45, v4) │
00:09:21 #42072 [verbose] > │ let v50 : US1 = US1_1(45, 46, v4) │
00:09:21 #42073 [verbose] > │ let v51 : US1 = US1_1(46, 47, v4) │
00:09:21 #42074 [verbose] > │ let v52 : US1 = US1_1(47, 48, v4) │
00:09:21 #42075 [verbose] > │ let v53 : US1 = US1_1(48, 49, v4) │
00:09:21 #42076 [verbose] > │ let v54 : US1 = US1_1(49, 50, v4) │
00:09:21 #42077 [verbose] > │ let v55 : US1 = US1_1(50, 51, v4) │
00:09:21 #42078 [verbose] > │ let v56 : US1 = US1_1(51, 52, v4) │
00:09:21 #42079 [verbose] > │ let v57 : US1 = US1_1(52, 53, v4) │
00:09:21 #42080 [verbose] > │ let v58 : US1 = US1_1(53, 54, v4) │
00:09:21 #42081 [verbose] > │ let v59 : US1 = US1_1(54, 55, v4) │
00:09:21 #42082 [verbose] > │ let v60 : US1 = US1_1(55, 56, v4) │
00:09:21 #42083 [verbose] > │ let v61 : US1 = US1_1(56, 57, v4) │
00:09:21 #42084 [verbose] > │ let v62 : US1 = US1_1(57, 58, v4) │
00:09:21 #42085 [verbose] > │ let v63 : US1 = US1_1(58, 59, v4) │
00:09:21 #42086 [verbose] > │ let v64 : US1 = US1_1(59, 60, v4) │
00:09:21 #42087 [verbose] > │ let v65 : UH4 = UH4_0 │
00:09:21 #42088 [verbose] > │ let v66 : UH4 = UH4_1(v64, v65) │
00:09:21 #42089 [verbose] > │ let v67 : UH4 = UH4_1(v63, v66) │
00:09:21 #42090 [verbose] > │ let v68 : UH4 = UH4_1(v62, v67) │
00:09:21 #42091 [verbose] > │ let v69 : UH4 = UH4_1(v61, v68) │
00:09:21 #42092 [verbose] > │ let v70 : UH4 = UH4_1(v60, v69) │
00:09:21 #42093 [verbose] > │ let v71 : UH4 = UH4_1(v59, v70) │
00:09:21 #42094 [verbose] > │ let v72 : UH4 = UH4_1(v58, v71) │
00:09:21 #42095 [verbose] > │ let v73 : UH4 = UH4_1(v57, v72) │
00:09:21 #42096 [verbose] > │ let v74 : UH4 = UH4_1(v56, v73) │
00:09:21 #42097 [verbose] > │ let v75 : UH4 = UH4_1(v55, v74) │
00:09:21 #42098 [verbose] > │ let v76 : UH4 = UH4_1(v54, v75) │
00:09:21 #42099 [verbose] > │ let v77 : UH4 = UH4_1(v53, v76) │
00:09:21 #42100 [verbose] > │ let v78 : UH4 = UH4_1(v52, v77) │
00:09:21 #42101 [verbose] > │ let v79 : UH4 = UH4_1(v51, v78) │
00:09:21 #42102 [verbose] > │ let v80 : UH4 = UH4_1(v50, v79) │
00:09:21 #42103 [verbose] > │ let v81 : UH4 = UH4_1(v49, v80) │
00:09:21 #42104 [verbose] > │ let v82 : UH4 = UH4_1(v48, v81) │
00:09:21 #42105 [verbose] > │ let v83 : UH4 = UH4_1(v47, v82) │
00:09:21 #42106 [verbose] > │ let v84 : UH4 = UH4_1(v46, v83) │
00:09:21 #42107 [verbose] > │ let v85 : UH4 = UH4_1(v45, v84) │
00:09:21 #42108 [verbose] > │ let v86 : UH4 = UH4_1(v44, v85) │
00:09:21 #42109 [verbose] > │ let v87 : UH4 = UH4_1(v43, v86) │
00:09:21 #42110 [verbose] > │ let v88 : UH4 = UH4_1(v42, v87) │
00:09:21 #42111 [verbose] > │ let v89 : UH4 = UH4_1(v41, v88) │
00:09:21 #42112 [verbose] > │ let v90 : UH4 = UH4_1(v40, v89) │
00:09:21 #42113 [verbose] > │ let v91 : UH4 = UH4_1(v39, v90) │
00:09:21 #42114 [verbose] > │ let v92 : UH4 = UH4_1(v38, v91) │
00:09:21 #42115 [verbose] > │ let v93 : UH4 = UH4_1(v37, v92) │
00:09:21 #42116 [verbose] > │ let v94 : UH4 = UH4_1(v36, v93) │
00:09:21 #42117 [verbose] > │ let v95 : UH4 = UH4_1(v35, v94) │
00:09:21 #42118 [verbose] > │ let v96 : UH4 = UH4_1(v34, v95) │
00:09:21 #42119 [verbose] > │ let v97 : UH4 = UH4_1(v33, v96) │
00:09:21 #42120 [verbose] > │ let v98 : UH4 = UH4_1(v32, v97) │
00:09:21 #42121 [verbose] > │ let v99 : UH4 = UH4_1(v31, v98) │
00:09:21 #42122 [verbose] > │ let v100 : UH4 = UH4_1(v30, v99) │
00:09:21 #42123 [verbose] > │ let v101 : UH4 = UH4_1(v29, v100) │
00:09:21 #42124 [verbose] > │ let v102 : UH4 = UH4_1(v28, v101) │
00:09:21 #42125 [verbose] > │ let v103 : UH4 = UH4_1(v27, v102) │
00:09:21 #42126 [verbose] > │ let v104 : UH4 = UH4_1(v26, v103) │
00:09:21 #42127 [verbose] > │ let v105 : UH4 = UH4_1(v25, v104) │
00:09:21 #42128 [verbose] > │ let v106 : UH4 = UH4_1(v24, v105) │
00:09:21 #42129 [verbose] > │ let v107 : UH4 = UH4_1(v23, v106) │
00:09:21 #42130 [verbose] > │ let v108 : UH4 = UH4_1(v22, v107) │
00:09:21 #42131 [verbose] > │ let v109 : UH4 = UH4_1(v21, v108) │
00:09:21 #42132 [verbose] > │ let v110 : UH4 = UH4_1(v20, v109) │
00:09:21 #42133 [verbose] > │ let v111 : UH4 = UH4_1(v19, v110) │
00:09:21 #42134 [verbose] > │ let v112 : UH4 = UH4_1(v18, v111) │
00:09:21 #42135 [verbose] > │ let v113 : UH4 = UH4_1(v17, v112) │
00:09:21 #42136 [verbose] > │ let v114 : UH4 = UH4_1(v16, v113) │
00:09:21 #42137 [verbose] > │ let v115 : UH4 = UH4_1(v15, v114) │
00:09:21 #42138 [verbose] > │ let v116 : UH4 = UH4_1(v14, v115) │
00:09:21 #42139 [verbose] > │ let v117 : UH4 = UH4_1(v13, v116) │
00:09:21 #42140 [verbose] > │ let v118 : UH4 = UH4_1(v12, v117) │
00:09:21 #42141 [verbose] > │ let v119 : UH4 = UH4_1(v11, v118) │
00:09:21 #42142 [verbose] > │ let v120 : UH4 = UH4_1(v10, v119) │
00:09:21 #42143 [verbose] > │ let v121 : UH4 = UH4_1(v9, v120) │
00:09:21 #42144 [verbose] > │ let v122 : UH4 = UH4_1(v8, v121) │
00:09:21 #42145 [verbose] > │ let v123 : UH4 = UH4_1(v7, v122) │
00:09:21 #42146 [verbose] > │ let v124 : UH4 = UH4_1(v6, v123) │
00:09:21 #42147 [verbose] > │ let v125 : UH4 = UH4_1(v5, v124) │
00:09:21 #42148 [verbose] > │ let v126 : UH4 = UH4_1(v3, v125) │
00:09:21 #42149 [verbose] > │ UH4_1(v1, v126) │
00:09:21 #42150 [verbose] > │ and closure143 (v0 : UH5) () : UH5 = │
00:09:21 #42151 [verbose] > │ v0 │
00:09:21 #42152 [verbose] > │ and method5 (v0 : UH1, v1 : UH5, v2 : int32) : struct (UH5 * int32) = │
00:09:21 #42153 [verbose] > │ match v0 with │
00:09:21 #42154 [verbose] > │ | UH1_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons *) │
00:09:21 #42155 [verbose] > │ let v13 : int32 = v2 + 1 │
00:09:21 #42156 [verbose] > │ let v14 : UH1 = v12 () │
00:09:21 #42157 [verbose] > │ let v15 : (unit -> UH5) = closure143(v1) │
00:09:21 #42158 [verbose] > │ let v16 : UH5 = UH5_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v15) │
00:09:21 #42159 [verbose] > │ method5(v14, v16, v13) │
00:09:21 #42160 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:21 #42161 [verbose] > │ struct (v1, v2) │
00:09:21 #42162 [verbose] > │ and closure144 (v0 : UH5) () : UH5 = │
00:09:21 #42163 [verbose] > │ v0 │
00:09:21 #42164 [verbose] > │ and method6 (v0 : UH5, v1 : UH5) : UH5 = │
00:09:21 #42165 [verbose] > │ match v0 with │
00:09:21 #42166 [verbose] > │ | UH5_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) -> (* StreamCons │
00:09:21 #42167 [verbose] > │ *) │
00:09:21 #42168 [verbose] > │ let v13 : UH5 = v12 () │
00:09:21 #42169 [verbose] > │ let v14 : (unit -> UH5) = closure144(v1) │
00:09:21 #42170 [verbose] > │ let v15 : UH5 = UH5_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v14) │
00:09:21 #42171 [verbose] > │ method6(v13, v15) │
00:09:21 #42172 [verbose] > │ | UH5_1 -> (* StreamNil *) │
00:09:21 #42173 [verbose] > │ v1 │
00:09:21 #42174 [verbose] > │ and closure145 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:09:21 #42175 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:09:21 #42176 [verbose] > │ float * float) = │
00:09:21 #42177 [verbose] > │ struct (0.0, 0.0, 0.0) │
00:09:21 #42178 [verbose] > │ and method9 (v0 : int32, v1 : UH1) : US3 = │
00:09:21 #42179 [verbose] > │ match v1 with │
00:09:21 #42180 [verbose] > │ | UH1_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:09:21 #42181 [verbose] > │ let v12 : bool = v0 <= 0 │
00:09:21 #42182 [verbose] > │ if v12 then │
00:09:21 #42183 [verbose] > │ US3_0(v2, v3, v4, v5, v6, v7, v8, v9, v10) │
00:09:21 #42184 [verbose] > │ else │
00:09:21 #42185 [verbose] > │ let v14 : int32 = v0 - 1 │
00:09:21 #42186 [verbose] > │ let v15 : UH1 = v11 () │
00:09:21 #42187 [verbose] > │ method9(v14, v15) │
00:09:21 #42188 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:21 #42189 [verbose] > │ US3_1 │
00:09:21 #42190 [verbose] > │ and closure146 () struct (v0 : float, v1 : float, v2 : float, v3 : float, v4 │
00:09:21 #42191 [verbose] > │ : float, v5 : float, v6 : float, v7 : float, v8 : float) : struct (float * │
00:09:21 #42192 [verbose] > │ float * float) = │
00:09:21 #42193 [verbose] > │ struct (0.0, 0.0, 0.0) │
00:09:21 #42194 [verbose] > │ and method8 (v0 : int32, v1 : UH1, v2 : UH4, v3 : UH6) : UH6 = │
00:09:21 #42195 [verbose] > │ match v2 with │
00:09:21 #42196 [verbose] > │ | UH4_1(v4, v5) -> (* Cons *) │
00:09:21 #42197 [verbose] > │ let v6 : UH6 = method8(v0, v1, v5, v3) │
00:09:21 #42198 [verbose] > │ let v55 : (struct (float * float * float * float * float * float * │
00:09:21 #42199 [verbose] > │ float * float * float) -> struct (float * float * float)) = │
00:09:21 #42200 [verbose] > │ match v4 with │
00:09:21 #42201 [verbose] > │ | US1_0(v7, v8) -> (* ExternalForce *) │
00:09:21 #42202 [verbose] > │ let v9 : bool = v0 = v7 │
00:09:21 #42203 [verbose] > │ if v9 then │
00:09:21 #42204 [verbose] > │ v8 │
00:09:21 #42205 [verbose] > │ else │
00:09:21 #42206 [verbose] > │ closure145() │
00:09:21 #42207 [verbose] > │ | US1_1(v12, v13, v14) -> (* InternalForce *) │
00:09:21 #42208 [verbose] > │ let v15 : bool = v0 = v12 │
00:09:21 #42209 [verbose] > │ let v49 : US2 = │
00:09:21 #42210 [verbose] > │ if v15 then │
00:09:21 #42211 [verbose] > │ let v16 : US3 = method9(v13, v1) │
00:09:21 #42212 [verbose] > │ match v16 with │
00:09:21 #42213 [verbose] > │ | US3_1 -> (* None *) │
00:09:21 #42214 [verbose] > │ US2_1 │
00:09:21 #42215 [verbose] > │ | US3_0(v17, v18, v19, v20, v21, v22, v23, v24, v25) │
00:09:21 #42216 [verbose] > │ -> (* Some *) │
00:09:21 #42217 [verbose] > │ let v26 : (struct (float * float * float * float │
00:09:21 #42218 [verbose] > │ * float * float * float * float * float) -> struct (float * float * float)) │
00:09:21 #42219 [verbose] > │ = v14 struct (v17, v18, v19, v20, v21, v22, v23, v24, v25) │
00:09:21 #42220 [verbose] > │ US2_0(v26) │
00:09:21 #42221 [verbose] > │ else │
00:09:21 #42222 [verbose] > │ let v31 : bool = v0 = v13 │
00:09:21 #42223 [verbose] > │ if v31 then │
00:09:21 #42224 [verbose] > │ let v32 : US3 = method9(v12, v1) │
00:09:21 #42225 [verbose] > │ match v32 with │
00:09:21 #42226 [verbose] > │ | US3_1 -> (* None *) │
00:09:21 #42227 [verbose] > │ US2_1 │
00:09:21 #42228 [verbose] > │ | US3_0(v33, v34, v35, v36, v37, v38, v39, v40, │
00:09:21 #42229 [verbose] > │ v41) -> (* Some *) │
00:09:21 #42230 [verbose] > │ let v42 : (struct (float * float * float * │
00:09:21 #42231 [verbose] > │ float * float * float * float * float * float) -> struct (float * float * │
00:09:21 #42232 [verbose] > │ float)) = v14 struct (v33, v34, v35, v36, v37, v38, v39, v40, v41) │
00:09:21 #42233 [verbose] > │ US2_0(v42) │
00:09:21 #42234 [verbose] > │ else │
00:09:21 #42235 [verbose] > │ US2_1 │
00:09:21 #42236 [verbose] > │ match v49 with │
00:09:21 #42237 [verbose] > │ | US2_1 -> (* None *) │
00:09:21 #42238 [verbose] > │ closure146() │
00:09:21 #42239 [verbose] > │ | US2_0(v50) -> (* Some *) │
00:09:21 #42240 [verbose] > │ v50 │
00:09:21 #42241 [verbose] > │ UH6_1(v55, v6) │
00:09:21 #42242 [verbose] > │ | UH4_0 -> (* Nil *) │
00:09:21 #42243 [verbose] > │ v3 │
00:09:21 #42244 [verbose] > │ and method10 (v0 : float, v1 : float, v2 : float, v3 : float, v4 : float, v5 │
00:09:21 #42245 [verbose] > │ : float, v6 : float, v7 : float, v8 : float, v9 : UH6, v10 : UH7) : UH7 = │
00:09:21 #42246 [verbose] > │ match v9 with │
00:09:21 #42247 [verbose] > │ | UH6_1(v11, v12) -> (* Cons *) │
00:09:21 #42248 [verbose] > │ let v13 : UH7 = method10(v0, v1, v2, v3, v4, v5, v6, v7, v8, v12, │
00:09:21 #42249 [verbose] > │ v10) │
00:09:21 #42250 [verbose] > │ let struct (v14 : float, v15 : float, v16 : float) = v11 struct (v0, │
00:09:21 #42251 [verbose] > │ v1, v2, v3, v4, v5, v6, v7, v8) │
00:09:21 #42252 [verbose] > │ UH7_1(v14, v15, v16, v13) │
00:09:21 #42253 [verbose] > │ | UH6_0 -> (* Nil *) │
00:09:21 #42254 [verbose] > │ v10 │
00:09:21 #42255 [verbose] > │ and method11 (v0 : UH7, v1 : float, v2 : float, v3 : float) : struct (float │
00:09:21 #42256 [verbose] > │ * float * float) = │
00:09:21 #42257 [verbose] > │ match v0 with │
00:09:21 #42258 [verbose] > │ | UH7_1(v4, v5, v6, v7) -> (* Cons *) │
00:09:21 #42259 [verbose] > │ let v8 : float = v1 + v4 │
00:09:21 #42260 [verbose] > │ let v9 : float = v2 + v5 │
00:09:21 #42261 [verbose] > │ let v10 : float = v3 + v6 │
00:09:21 #42262 [verbose] > │ method11(v7, v8, v9, v10) │
00:09:21 #42263 [verbose] > │ | UH7_0 -> (* Nil *) │
00:09:21 #42264 [verbose] > │ struct (v1, v2, v3) │
00:09:21 #42265 [verbose] > │ and closure147 (v0 : UH3) () : UH3 = │
00:09:21 #42266 [verbose] > │ v0 │
00:09:21 #42267 [verbose] > │ and method7 (v0 : UH4, v1 : UH1, v2 : UH5, v3 : UH3) : UH3 = │
00:09:21 #42268 [verbose] > │ match v2 with │
00:09:21 #42269 [verbose] > │ | UH5_0(v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14) -> (* │
00:09:21 #42270 [verbose] > │ StreamCons *) │
00:09:21 #42271 [verbose] > │ let v15 : UH5 = v14 () │
00:09:21 #42272 [verbose] > │ let v16 : UH3 = method7(v0, v1, v15, v3) │
00:09:21 #42273 [verbose] > │ let v17 : UH6 = UH6_0 │
00:09:21 #42274 [verbose] > │ let v18 : UH6 = method8(v4, v1, v0, v17) │
00:09:21 #42275 [verbose] > │ let v19 : UH7 = UH7_0 │
00:09:21 #42276 [verbose] > │ let v20 : UH7 = method10(v5, v6, v7, v8, v9, v10, v11, v12, v13, │
00:09:21 #42277 [verbose] > │ v18, v19) │
00:09:21 #42278 [verbose] > │ let v21 : float = 0.0 │
00:09:21 #42279 [verbose] > │ let v22 : float = 0.0 │
00:09:21 #42280 [verbose] > │ let v23 : float = 0.0 │
00:09:21 #42281 [verbose] > │ let struct (v24 : float, v25 : float, v26 : float) = method11(v20, │
00:09:21 #42282 [verbose] > │ v21, v22, v23) │
00:09:21 #42283 [verbose] > │ let v27 : float = v24 / v6 │
00:09:21 #42284 [verbose] > │ let v28 : float = v25 / v6 │
00:09:21 #42285 [verbose] > │ let v29 : float = v26 / v6 │
00:09:21 #42286 [verbose] > │ let v30 : (unit -> UH3) = closure147(v16) │
00:09:21 #42287 [verbose] > │ UH3_0(0.0, 0.0, v11, v12, v13, 1.0, v27, v28, v29, v30) │
00:09:21 #42288 [verbose] > │ | UH5_1 -> (* StreamNil *) │
00:09:21 #42289 [verbose] > │ v3 │
00:09:21 #42290 [verbose] > │ and closure142 (v0 : UH4) (v1 : UH1) : UH3 = │
00:09:21 #42291 [verbose] > │ let v2 : UH5 = UH5_1 │
00:09:21 #42292 [verbose] > │ let v3 : int32 = 0 │
00:09:21 #42293 [verbose] > │ let struct (v4 : UH5, v5 : int32) = method5(v1, v2, v3) │
00:09:21 #42294 [verbose] > │ let v6 : UH5 = UH5_1 │
00:09:21 #42295 [verbose] > │ let v7 : UH5 = method6(v4, v6) │
00:09:21 #42296 [verbose] > │ let v8 : UH3 = UH3_1 │
00:09:21 #42297 [verbose] > │ let v9 : UH3 = method7(v0, v1, v7, v8) │
00:09:21 #42298 [verbose] > │ v9 │
00:09:21 #42299 [verbose] > │ and closure148 (v0 : (UH1 -> UH1), v1 : UH1, v2 : UH1) () : UH8 = │
00:09:21 #42300 [verbose] > │ let v3 : UH1 = v0 v2 │
00:09:21 #42301 [verbose] > │ let v4 : (unit -> UH8) = closure148(v0, v1, v3) │
00:09:21 #42302 [verbose] > │ UH8_0(v2, v4) │
00:09:21 #42303 [verbose] > │ and method12 (v0 : float, v1 : UH8) : US4 = │
00:09:21 #42304 [verbose] > │ match v1 with │
00:09:21 #42305 [verbose] > │ | UH8_0(v2, v3) -> (* StreamCons *) │
00:09:21 #42306 [verbose] > │ let v4 : bool = v0 <= 0.0 │
00:09:21 #42307 [verbose] > │ if v4 then │
00:09:21 #42308 [verbose] > │ US4_0(v2) │
00:09:21 #42309 [verbose] > │ else │
00:09:21 #42310 [verbose] > │ let v6 : float = v0 - 1.0 │
00:09:21 #42311 [verbose] > │ let v7 : UH8 = v3 () │
00:09:21 #42312 [verbose] > │ method12(v6, v7) │
00:09:21 #42313 [verbose] > │ | UH8_1 -> (* StreamNil *) │
00:09:21 #42314 [verbose] > │ US4_1 │
00:09:21 #42315 [verbose] > │ and closure149 (v0 : UH9) () : UH9 = │
00:09:21 #42316 [verbose] > │ v0 │
00:09:21 #42317 [verbose] > │ and method13 (v0 : UH1, v1 : UH9) : UH9 = │
00:09:21 #42318 [verbose] > │ match v0 with │
00:09:21 #42319 [verbose] > │ | UH1_0(v2, v3, v4, v5, v6, v7, v8, v9, v10, v11) -> (* StreamCons *) │
00:09:21 #42320 [verbose] > │ let v12 : UH1 = v11 () │
00:09:21 #42321 [verbose] > │ let v13 : UH9 = method13(v12, v1) │
00:09:21 #42322 [verbose] > │ let v14 : (unit -> UH9) = closure149(v13) │
00:09:21 #42323 [verbose] > │ UH9_0(v4, v5, v6, v14) │
00:09:21 #42324 [verbose] > │ | UH1_1 -> (* StreamNil *) │
00:09:21 #42325 [verbose] > │ v1 │
00:09:21 #42326 [verbose] > │ and method14 (v0 : UH9, v1 : UH7) : UH7 = │
00:09:21 #42327 [verbose] > │ match v0 with │
00:09:21 #42328 [verbose] > │ | UH9_0(v2, v3, v4, v5) -> (* StreamCons *) │
00:09:21 #42329 [verbose] > │ let v6 : UH9 = v5 () │
00:09:21 #42330 [verbose] > │ let v7 : UH7 = method14(v6, v1) │
00:09:21 #42331 [verbose] > │ UH7_1(v2, v3, v4, v7) │
00:09:21 #42332 [verbose] > │ | UH9_1 -> (* StreamNil *) │
00:09:21 #42333 [verbose] > │ v1 │
00:09:21 #42334 [verbose] > │ and method15 (v0 : UH7, v1 : UH7) : UH7 = │
00:09:21 #42335 [verbose] > │ match v0 with │
00:09:21 #42336 [verbose] > │ | UH7_1(v2, v3, v4, v5) -> (* Cons *) │
00:09:21 #42337 [verbose] > │ let v6 : UH7 = method15(v5, v1) │
00:09:21 #42338 [verbose] > │ UH7_1(v2, v3, v4, v6) │
00:09:21 #42339 [verbose] > │ | UH7_0 -> (* Nil *) │
00:09:21 #42340 [verbose] > │ v1 │
00:09:21 #42341 [verbose] > │ and method16 (v0 : UH7, v1 : UH10) : UH10 = │
00:09:21 #42342 [verbose] > │ match v0 with │
00:09:21 #42343 [verbose] > │ | UH7_1(v2, v3, v4, v5) -> (* Cons *) │
00:09:21 #42344 [verbose] > │ let v6 : UH10 = method16(v5, v1) │
00:09:21 #42345 [verbose] > │ UH10_1(v2, v3, v6) │
00:09:21 #42346 [verbose] > │ | UH7_0 -> (* Nil *) │
00:09:21 #42347 [verbose] > │ v1 │
00:09:21 #42348 [verbose] > │ and closure150 (v0 : UH11) () : UH11 = │
00:09:21 #42349 [verbose] > │ v0 │
00:09:21 #42350 [verbose] > │ and method17 (v0 : UH10, v1 : UH11) : UH11 = │
00:09:21 #42351 [verbose] > │ match v0 with │
00:09:21 #42352 [verbose] > │ | UH10_1(v2, v3, v4) -> (* Cons *) │
00:09:21 #42353 [verbose] > │ let v5 : UH11 = method17(v4, v1) │
00:09:21 #42354 [verbose] > │ let v6 : (unit -> UH11) = closure150(v5) │
00:09:21 #42355 [verbose] > │ UH11_0(v2, v3, v6) │
00:09:21 #42356 [verbose] > │ | UH10_0 -> (* Nil *) │
00:09:21 #42357 [verbose] > │ v1 │
00:09:21 #42358 [verbose] > │ and closure151 (v0 : UH0) () : UH0 = │
00:09:21 #42359 [verbose] > │ v0 │
00:09:21 #42360 [verbose] > │ and closure152 (v0 : UH0) () : UH0 = │
00:09:21 #42361 [verbose] > │ v0 │
00:09:21 #42362 [verbose] > │ and method18 (v0 : UH11) : struct (UH0 * UH0) = │
00:09:21 #42363 [verbose] > │ match v0 with │
00:09:21 #42364 [verbose] > │ | UH11_0(v1, v2, v3) -> (* StreamCons *) │
00:09:21 #42365 [verbose] > │ let v4 : UH11 = v3 () │
00:09:21 #42366 [verbose] > │ let struct (v5 : UH0, v6 : UH0) = method18(v4) │
00:09:21 #42367 [verbose] > │ let v7 : (unit -> UH0) = closure151(v5) │
00:09:21 #42368 [verbose] > │ let v8 : UH0 = UH0_0(v1, v7) │
00:09:21 #42369 [verbose] > │ let v9 : (unit -> UH0) = closure152(v6) │
00:09:21 #42370 [verbose] > │ let v10 : UH0 = UH0_0(v2, v9) │
00:09:21 #42371 [verbose] > │ struct (v8, v10) │
00:09:21 #42372 [verbose] > │ | UH11_1 -> (* StreamNil *) │
00:09:21 #42373 [verbose] > │ let v11 : UH0 = UH0_1 │
00:09:21 #42374 [verbose] > │ let v12 : UH0 = UH0_1 │
00:09:21 #42375 [verbose] > │ struct (v11, v12) │
00:09:21 #42376 [verbose] > │ and method19 (v0 : UH0, v1 : UH12) : UH12 = │
00:09:21 #42377 [verbose] > │ match v0 with │
00:09:21 #42378 [verbose] > │ | UH0_0(v2, v3) -> (* StreamCons *) │
00:09:21 #42379 [verbose] > │ let v4 : UH0 = v3 () │
00:09:21 #42380 [verbose] > │ let v5 : UH12 = method19(v4, v1) │
00:09:21 #42381 [verbose] > │ UH12_1(v2, v5) │
00:09:21 #42382 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:21 #42383 [verbose] > │ v1 │
00:09:21 #42384 [verbose] > │ and method21 (v0 : UH12, v1 : int32) : int32 = │
00:09:21 #42385 [verbose] > │ match v0 with │
00:09:21 #42386 [verbose] > │ | UH12_1(v2, v3) -> (* Cons *) │
00:09:21 #42387 [verbose] > │ let v4 : int32 = v1 + 1 │
00:09:21 #42388 [verbose] > │ method21(v3, v4) │
00:09:21 #42389 [verbose] > │ | UH12_0 -> (* Nil *) │
00:09:21 #42390 [verbose] > │ v1 │
00:09:21 #42391 [verbose] > │ and method22 (v0 : (float []), v1 : UH12, v2 : int32) : int32 = │
00:09:21 #42392 [verbose] > │ match v1 with │
00:09:21 #42393 [verbose] > │ | UH12_1(v3, v4) -> (* Cons *) │
00:09:21 #42394 [verbose] > │ v0.[int v2] <- v3 │
00:09:21 #42395 [verbose] > │ let v5 : int32 = v2 + 1 │
00:09:21 #42396 [verbose] > │ method22(v0, v4, v5) │
00:09:21 #42397 [verbose] > │ | UH12_0 -> (* Nil *) │
00:09:21 #42398 [verbose] > │ v2 │
00:09:21 #42399 [verbose] > │ and method20 (v0 : UH12) : (float []) = │
00:09:21 #42400 [verbose] > │ let v1 : int32 = 0 │
00:09:21 #42401 [verbose] > │ let v2 : int32 = method21(v0, v1) │
00:09:21 #42402 [verbose] > │ let v3 : (float []) = Array.zeroCreate<float> (v2) │
00:09:21 #42403 [verbose] > │ let v4 : int32 = 0 │
00:09:21 #42404 [verbose] > │ let v5 : int32 = method22(v3, v0, v4) │
00:09:21 #42405 [verbose] > │ v3 │
00:09:21 #42406 [verbose] > │ and closure153 (v0 : UH2) () : UH2 = │
00:09:21 #42407 [verbose] > │ v0 │
00:09:21 #42408 [verbose] > │ and method1 (v0 : UH1, v1 : UH0, v2 : UH2) : UH2 = │
00:09:21 #42409 [verbose] > │ match v1 with │
00:09:21 #42410 [verbose] > │ | UH0_0(v3, v4) -> (* StreamCons *) │
00:09:21 #42411 [verbose] > │ let v5 : UH0 = v4 () │
00:09:21 #42412 [verbose] > │ let v6 : UH2 = method1(v0, v5, v2) │
00:09:21 #42413 [verbose] > │ let v7 : ((UH1 -> UH3) -> (UH1 -> UH1)) = method2() │
00:09:21 #42414 [verbose] > │ let v8 : UH4 = method4() │
00:09:21 #42415 [verbose] > │ let v9 : (UH1 -> UH3) = closure142(v8) │
00:09:21 #42416 [verbose] > │ let v10 : (UH1 -> UH1) = v7 v9 │
00:09:21 #42417 [verbose] > │ let v11 : UH1 = v10 v0 │
00:09:21 #42418 [verbose] > │ let v12 : (unit -> UH8) = closure148(v10, v0, v11) │
00:09:21 #42419 [verbose] > │ let v13 : UH8 = UH8_0(v0, v12) │
00:09:21 #42420 [verbose] > │ let v14 : US4 = method12(v3, v13) │
00:09:21 #42421 [verbose] > │ let v18 : UH1 = │
00:09:21 #42422 [verbose] > │ match v14 with │
00:09:21 #42423 [verbose] > │ | US4_1 -> (* None *) │
00:09:21 #42424 [verbose] > │ failwith<UH1> "Option does not have a value." │
00:09:21 #42425 [verbose] > │ | US4_0(v15) -> (* Some *) │
00:09:21 #42426 [verbose] > │ v15 │
00:09:21 #42427 [verbose] > │ let v19 : UH9 = UH9_1 │
00:09:21 #42428 [verbose] > │ let v20 : UH9 = method13(v18, v19) │
00:09:21 #42429 [verbose] > │ let v21 : UH7 = UH7_0 │
00:09:21 #42430 [verbose] > │ let v22 : UH7 = method14(v20, v21) │
00:09:21 #42431 [verbose] > │ let v23 : float = 0.65 │
00:09:21 #42432 [verbose] > │ let v24 : float = 0.0 │
00:09:21 #42433 [verbose] > │ let v25 : float = 0.0 │
00:09:21 #42434 [verbose] > │ let v26 : UH7 = UH7_0 │
00:09:21 #42435 [verbose] > │ let v27 : UH7 = UH7_1(v23, v24, v25, v26) │
00:09:21 #42436 [verbose] > │ let v28 : UH7 = method15(v22, v27) │
00:09:21 #42437 [verbose] > │ let v29 : UH10 = UH10_0 │
00:09:21 #42438 [verbose] > │ let v30 : UH10 = method16(v28, v29) │
00:09:21 #42439 [verbose] > │ let v31 : UH11 = UH11_1 │
00:09:21 #42440 [verbose] > │ let v32 : UH11 = method17(v30, v31) │
00:09:21 #42441 [verbose] > │ let struct (v33 : UH0, v34 : UH0) = method18(v32) │
00:09:21 #42442 [verbose] > │ let v35 : UH12 = UH12_0 │
00:09:21 #42443 [verbose] > │ let v36 : UH12 = method19(v33, v35) │
00:09:21 #42444 [verbose] > │ let v37 : float = 0.0 │
00:09:21 #42445 [verbose] > │ let v38 : UH12 = UH12_1(v37, v36) │
00:09:21 #42446 [verbose] > │ let v39 : (float []) = method20(v38) │
00:09:21 #42447 [verbose] > │ let v40 : UH12 = UH12_0 │
00:09:21 #42448 [verbose] > │ let v41 : UH12 = method19(v34, v40) │
00:09:21 #42449 [verbose] > │ let v42 : float = 0.0 │
00:09:21 #42450 [verbose] > │ let v43 : UH12 = UH12_1(v42, v41) │
00:09:21 #42451 [verbose] > │ let v44 : (float []) = method20(v43) │
00:09:21 #42452 [verbose] > │ let v45 : (unit -> UH2) = closure153(v6) │
00:09:21 #42453 [verbose] > │ UH2_0(v39, v44, v45) │
00:09:21 #42454 [verbose] > │ | UH0_1 -> (* StreamNil *) │
00:09:21 #42455 [verbose] > │ v2 │
00:09:21 #42456 [verbose] > │ and closure154 (v0 : UH13) () : UH13 = │
00:09:21 #42457 [verbose] > │ v0 │
00:09:21 #42458 [verbose] > │ and method23 (v0 : UH2, v1 : UH13, v2 : int32) : struct (UH13 * int32) = │
00:09:21 #42459 [verbose] > │ match v0 with │
00:09:21 #42460 [verbose] > │ | UH2_0(v3, v4, v5) -> (* StreamCons *) │
00:09:21 #42461 [verbose] > │ let v6 : int32 = v2 + 1 │
00:09:21 #42462 [verbose] > │ let v7 : UH2 = v5 () │
00:09:21 #42463 [verbose] > │ let v8 : (unit -> UH13) = closure154(v1) │
00:09:21 #42464 [verbose] > │ let v9 : UH13 = UH13_0(v2, v3, v4, v8) │
00:09:21 #42465 [verbose] > │ method23(v7, v9, v6) │
00:09:21 #42466 [verbose] > │ | UH2_1 -> (* StreamNil *) │
00:09:21 #42467 [verbose] > │ struct (v1, v2) │
00:09:21 #42468 [verbose] > │ and closure155 (v0 : UH13) () : UH13 = │
00:09:21 #42469 [verbose] > │ v0 │
00:09:21 #42470 [verbose] > │ and method24 (v0 : UH13, v1 : UH13) : UH13 = │
00:09:21 #42471 [verbose] > │ match v0 with │
00:09:21 #42472 [verbose] > │ | UH13_0(v2, v3, v4, v5) -> (* StreamCons *) │
00:09:21 #42473 [verbose] > │ let v6 : UH13 = v5 () │
00:09:21 #42474 [verbose] > │ let v7 : (unit -> UH13) = closure155(v1) │
00:09:21 #42475 [verbose] > │ let v8 : UH13 = UH13_0(v2, v3, v4, v7) │
00:09:21 #42476 [verbose] > │ method24(v6, v8) │
00:09:21 #42477 [verbose] > │ | UH13_1 -> (* StreamNil *) │
00:09:21 #42478 [verbose] > │ v1 │
00:09:21 #42479 [verbose] > │ and closure156 (v0 : UH14) () : UH14 = │
00:09:21 #42480 [verbose] > │ v0 │
00:09:21 #42481 [verbose] > │ and method25 (v0 : UH13, v1 : UH14) : UH14 = │
00:09:21 #42482 [verbose] > │ match v0 with │
00:09:21 #42483 [verbose] > │ | UH13_0(v2, v3, v4, v5) -> (* StreamCons *) │
00:09:21 #42484 [verbose] > │ let v6 : UH13 = v5 () │
00:09:21 #42485 [verbose] > │ let v7 : UH14 = method25(v6, v1) │
00:09:21 #42486 [verbose] > │ let v8 : string = $"{v2}" │
00:09:21 #42487 [verbose] > │ let v9 : (struct (string * (float []) * (float [])) []) = [|struct │
00:09:21 #42488 [verbose] > │ (v8, v3, v4)|] │
00:09:21 #42489 [verbose] > │ let v10 : string = "wave" │
00:09:21 #42490 [verbose] > │ let v11 : string = "position (m)" │
00:09:21 #42491 [verbose] > │ let v12 : string = "displacement (m)" │
00:09:21 #42492 [verbose] > │ let v13 : (unit -> UH14) = closure156(v7) │
00:09:21 #42493 [verbose] > │ UH14_0(v10, v11, v12, v9, v13) │
00:09:21 #42494 [verbose] > │ | UH13_1 -> (* StreamNil *) │
00:09:21 #42495 [verbose] > │ v1 │
00:09:21 #42496 [verbose] > │ and method26 (v0 : UH14, v1 : UH15) : UH15 = │
00:09:21 #42497 [verbose] > │ match v0 with │
00:09:21 #42498 [verbose] > │ | UH14_0(v2, v3, v4, v5, v6) -> (* StreamCons *) │
00:09:21 #42499 [verbose] > │ let v7 : UH14 = v6 () │
00:09:21 #42500 [verbose] > │ let v8 : UH15 = method26(v7, v1) │
00:09:21 #42501 [verbose] > │ UH15_1(v2, v3, v4, v5, v8) │
00:09:21 #42502 [verbose] > │ | UH14_1 -> (* StreamNil *) │
00:09:21 #42503 [verbose] > │ v1 │
00:09:21 #42504 [verbose] > │ and method28 (v0 : UH15, v1 : int32) : int32 = │
00:09:21 #42505 [verbose] > │ match v0 with │
00:09:21 #42506 [verbose] > │ | UH15_1(v2, v3, v4, v5, v6) -> (* Cons *) │
00:09:21 #42507 [verbose] > │ let v7 : int32 = v1 + 1 │
00:09:21 #42508 [verbose] > │ method28(v6, v7) │
00:09:21 #42509 [verbose] > │ | UH15_0 -> (* Nil *) │
00:09:21 #42510 [verbose] > │ v1 │
00:09:21 #42511 [verbose] > │ and method29 (v0 : (struct (string * string * string * (struct (string * │
00:09:21 #42512 [verbose] > │ (float []) * (float [])) [])) []), v1 : UH15, v2 : int32) : int32 = │
00:09:21 #42513 [verbose] > │ match v1 with │
00:09:21 #42514 [verbose] > │ | UH15_1(v3, v4, v5, v6, v7) -> (* Cons *) │
00:09:21 #42515 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5, v6) │
00:09:21 #42516 [verbose] > │ let v8 : int32 = v2 + 1 │
00:09:21 #42517 [verbose] > │ method29(v0, v7, v8) │
00:09:21 #42518 [verbose] > │ | UH15_0 -> (* Nil *) │
00:09:21 #42519 [verbose] > │ v2 │
00:09:21 #42520 [verbose] > │ and method27 (v0 : UH15) : (struct (string * string * string * (struct │
00:09:21 #42521 [verbose] > │ (string * (float []) * (float [])) [])) []) = │
00:09:21 #42522 [verbose] > │ let v1 : int32 = 0 │
00:09:21 #42523 [verbose] > │ let v2 : int32 = method28(v0, v1) │
00:09:21 #42524 [verbose] > │ let v3 : (struct (string * string * string * (struct (string * (float [ │
00:09:21 #42525 [verbose] > │ ]) * (float [])) [])) []) = Array.zeroCreate<struct (string * string * │
00:09:21 #42526 [verbose] > │ string * (struct (string * (float []) * (float [])) []))> (v2) │
00:09:21 #42527 [verbose] > │ let v4 : int32 = 0 │
00:09:21 #42528 [verbose] > │ let v5 : int32 = method29(v3, v0, v4) │
00:09:21 #42529 [verbose] > │ v3 │
00:09:21 #42530 [verbose] > │ and method0 () : (struct (string * string * string * (struct (string * │
00:09:21 #42531 [verbose] > │ (float []) * (float [])) [])) []) = │
00:09:21 #42532 [verbose] > │ let v0 : float = 0.0 │
00:09:21 #42533 [verbose] > │ let v1 : (unit -> UH0) = closure0() │
00:09:21 #42534 [verbose] > │ let v2 : UH0 = UH0_0(v0, v1) │
00:09:21 #42535 [verbose] > │ let v3 : float = 0.0 │
00:09:21 #42536 [verbose] > │ let v4 : float = 8.422578125E-06 │
00:09:21 #42537 [verbose] > │ let v5 : float = 0.01 │
00:09:21 #42538 [verbose] > │ let v6 : float = 0.0007224452478461068 │
00:09:21 #42539 [verbose] > │ let v7 : float = 0.0 │
00:09:21 #42540 [verbose] > │ let v8 : float = 0.0 │
00:09:21 #42541 [verbose] > │ let v9 : float = 0.0 │
00:09:21 #42542 [verbose] > │ let v10 : float = 0.0 │
00:09:21 #42543 [verbose] > │ let v11 : float = 0.0 │
00:09:21 #42544 [verbose] > │ let v12 : (unit -> UH1) = closure66() │
00:09:21 #42545 [verbose] > │ let v13 : UH1 = UH1_0(v3, v4, v5, v6, v7, v8, v9, v10, v11, v12) │
00:09:21 #42546 [verbose] > │ let v14 : UH2 = UH2_1 │
00:09:21 #42547 [verbose] > │ let v15 : UH2 = method1(v13, v2, v14) │
00:09:21 #42548 [verbose] > │ let v16 : UH13 = UH13_1 │
00:09:21 #42549 [verbose] > │ let v17 : int32 = 0 │
00:09:21 #42550 [verbose] > │ let struct (v18 : UH13, v19 : int32) = method23(v15, v16, v17) │
00:09:21 #42551 [verbose] > │ let v20 : UH13 = UH13_1 │
00:09:21 #42552 [verbose] > │ let v21 : UH13 = method24(v18, v20) │
00:09:21 #42553 [verbose] > │ let v22 : UH14 = UH14_1 │
00:09:21 #42554 [verbose] > │ let v23 : UH14 = method25(v21, v22) │
00:09:21 #42555 [verbose] > │ let v24 : UH15 = UH15_0 │
00:09:21 #42556 [verbose] > │ let v25 : UH15 = method26(v23, v24) │
00:09:21 #42557 [verbose] > │ method27(v25) │
00:09:21 #42558 [verbose] > │ method0() │
00:09:21 #42559 [verbose] > │ │
00:09:21 #42560 [verbose] > │ │
00:09:21 #42561 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:21 #42562 [verbose] >
00:09:21 #42563 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:09:21 #42564 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:09:21 #42565 [verbose] > │ ## end │
00:09:21 #42566 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:09:23 #42567 [verbose] > [NbConvertApp] Converting notebook physics.dib.ipynb to html
00:09:23 #42568 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:09:23 #42569 [verbose] > validate(nb)
00:09:24 #42570 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:09:24 #42571 [verbose] > return _pygments_highlight(
00:09:27 #42572 [verbose] > [NbConvertApp] Writing 2732433 bytes to physics.dib.html
00:09:28 #42573 [debug] executeAsync / exitCode: 0 / output.Length: 579371
00:09:28 #42574 [debug] main / executeCommand / exitCode: 0
00:09:30 #42575 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #2 [debug] writeDibCode / output: Spi / path: crypto.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: date_time.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: common.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: async.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: runtime.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: console.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: trace.dib
00:00:00 #2 [debug] writeDibCode / output: Spi / path: testing.dib
00:00:00 #9 [debug] parseDibCode / output: Spi / file: trace.dib
00:00:00 #10 [debug] parseDibCode / output: Spi / file: testing.dib
00:00:00 #9 [debug] parseDibCode / output: Spi / file: async.dib
00:00:00 #5 [debug] parseDibCode / output: Spi / file: runtime.dib
00:00:00 #5 [debug] parseDibCode / output: Spi / file: date_time.dib
00:00:00 #5 [debug] parseDibCode / output: Spi / file: crypto.dib
00:00:00 #6 [debug] parseDibCode / output: Spi / file: console.dib
00:00:00 #7 [debug] parseDibCode / output: Spi / file: common.dib
00:00:00 #13 [debug] writeDibCode / output: Spi / path: optionm'.dib
00:00:00 #12 [debug] writeDibCode / output: Spi / path: file_system.dib
00:00:00 #12 [debug] writeDibCode / output: Spi / path: math.dib
00:00:00 #15 [debug] writeDibCode / output: Spi / path: am'.dib
00:00:00 #16 [debug] parseDibCode / output: Spi / file: optionm'.dib
00:00:00 #16 [debug] writeDibCode / output: Spi / path: sm'.dib
00:00:00 #17 [debug] parseDibCode / output: Spi / file: file_system.dib
00:00:00 #18 [debug] parseDibCode / output: Spi / file: math.dib
00:00:00 #19 [debug] parseDibCode / output: Spi / file: am'.dib
00:00:00 #20 [debug] parseDibCode / output: Spi / file: sm'.dib
00:00:00 #12 [debug] writeDibCode / output: Spi / path: guid.dib
00:00:00 #21 [debug] parseDibCode / output: Spi / file: guid.dib
00:00:00 #22 [debug] writeDibCode / output: Spi / path: listm'.dib
00:00:00 #23 [debug] parseDibCode / output: Spi / file: listm'.dib
00:00:00 #24 [debug] writeDibCode / output: Spi / path: benchmark.dib
00:00:00 #25 [debug] parseDibCode / output: Spi / file: benchmark.dib
00:00:00 #26 [debug] writeDibCode / output: Spi / path: stream.dib
00:00:00 #27 [debug] writeDibCode / output: Spi / path: seq.dib
00:00:00 #28 [debug] parseDibCode / output: Spi / file: stream.dib
00:00:00 #29 [debug] parseDibCode / output: Spi / file: seq.dib
00:00:00 #30 [debug] writeDibCode / output: Spi / path: util.dib
00:00:00 #32 [debug] parseDibCode / output: Spi / file: util.dib
00:00:00 #31 [debug] writeDibCode / output: Spi / path: rust.dib
00:00:00 #33 [debug] parseDibCode / output: Spi / file: rust.dib
00:00:00 #34 [debug] writeDibCode / output: Spi / path: physics.dib
00:00:00 #35 [debug] parseDibCode / output: Spi / file: physics.dib
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #2 [debug] executeAsync / options: { Command =
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = Some <fun:main@441-43> }
00:00:00 #3 [verbose] > pwd: C:\home\git\polyglot\lib\spiral
00:00:00 #4 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #5 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:01 #6 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:01 #7 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #8 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 #9 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:02 #10 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:02 #11 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:02 #12 [verbose] > Server bound to: http://localhost:13805
00:00:02 #13 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:02 #14 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 #15 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:02 #16 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # async\n\nopen rust_operators\n\n// // ## types\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::future::Future\u003COutput = $0\u003E\\\u0022)\u003E] type Future\u003C\u0027T\u003E = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022futures::future::TryJoinAll\u003C$0\u003E\\\u0022)\u003E] type TryJoinAll\u003C\u0027T\u003E = class end\u0022\n\n// // ## async\n\nnominal async t = $\u0022Async\u003C\u0060t\u003E\u0022\n\n// // ## future\n\nnominal future t = $\u0022Future\u003C\u0060t\u003E\u0022\n\n// // ## task\n\nnominal task t =\n \u0060(\n typecase t with\n | () =\u003E $\u0027\u0027 : $\u0022System.Threading.Tasks.Task\u0022\n | _ =\u003E $\u0027\u0027 : $\u0022System.Threading.Tasks.Task\u003C\u0060t\u003E\u0022\n )\n\n// // ## future_pin\n\ntype future_pin t = rust.pin (rust.box (rust.dyn\u0027 (future t)))\n\n// // ## try_join_all\n\nnominal try_join_all t = $\u0022TryJoinAll\u003C\u0060t\u003E\u0022\n\n// // ## future_init\n\ninl future_init forall t. (depth : (u8 * u8)) (flag : u8) (x : () -\u003E t) : future_pin t =\n join\n if flag = 1\n then !\\($\u0027\u0022let __result = Box::pin(async move { //\u0022\u0027)\n else !\\($\u0027\u0022let __result = Box::pin(async { //\u0022\u0027)\n\n let x\u0027 = x ()\n inl x\u0027 = join x\u0027\n\n x\u0027 |\u003E rust.fix_closure depth\n\n !\\($\u0027\u0022__result\u0022\u0027)\n\n// // ## try_join_all\n\ninl try_join_all forall t. (x : am\u0027.vec (future_pin (resultm.result\u0027 t sm\u0027.std_string))) : try_join_all (future_pin (resultm.result\u0027 t sm\u0027.std_string)) =\n inl x = join x\n !\\($\u0027\u0022futures::future::try_join_all(!x)\u0022\u0027)\n\n// // ## await\u0027\n\ninl await\u0027 forall t. (x : try_join_all (future_pin (resultm.result\u0027 t sm\u0027.std_string))) : resultm.result\u0027 (am\u0027.vec t) sm\u0027.std_string =\n !\\($\u0027\u0022!x.await\u0022\u0027)\n\n// // ## await\n\ninl await forall t. (x : future_pin t) : t =\n !\\($\u0027\u0022!x.await\u0022\u0027)\n\n// // ## new_async_unit\n\ninl new_async_unit forall t. (fn : () -\u003E ()) : async t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl result : optionm\u0027.option\u0027 (async t) = optionm\u0027.none\u0027 ()\n $\u0022let mutable _!result = !result\u0022\n $\u0022async {\u0022\n fn ()\n $\u0022}\u0022\n $\u0022|\u003E fun x -\u003E _!result \u003C- Some x\u0022\n $\u0022_!result |\u003E Option.get\u0022\n | _ =\u003E fun () =\u003E null ()\n\n// // ## new_async\n\ninl new_async forall t. (fn : () -\u003E t) : async t =\n new_async_unit (fn \u003E\u003E ignore)\n\n// // ## new_task\n\ninl new_task forall t. (fn : () -\u003E t) : task t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl result : optionm\u0027.option\u0027 (task t) = optionm\u0027.none\u0027 ()\n $\u0022let mutable _!result = !result\u0022\n $\u0022task {\u0022\n fn () |\u003E ignore\n $\u0022}\u0022\n $\u0022|\u003E fun x -\u003E _!result \u003C- Some x\u0022\n $\u0022_!result |\u003E Option.get\u0022\n | _ =\u003E fun () =\u003E null ()\n\n// // ## await_task\n\ninl await_task forall t. (a : task t) : async t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.AwaitTask\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## ignore\n\ninl ignore forall t. (a : async t) : async () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.Ignore\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## run_synchronously\n\ninl run_synchronously forall t. (a : async t) : t =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.RunSynchronously\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## start_child\n\ninl start_child forall t. (a : async t) : async (async t) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.StartChild\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## start_child_timeout\n\ninl start_child_timeout forall t. (timeout : i32) (a : async t) : async (async t) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027Async.StartChild (!a, !timeout)\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## sleep\n\ninl sleep (ms : i32) : async () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n ms |\u003E $\u0027Async.Sleep\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## do\n\ninl do (a : async ()) : () =\n $\u0027do\\! !a \u0027\n\n// // ## let\u0027\n\ninl let\u0027 forall t. (a : async t) : t =\n $\u0027let\\! !a = !a \u0027\n $\u0027!a \u0027\n\n// // ## return_await\n\ninl return_await forall t. (a : async t) : () =\n $\u0027return\\! !a \u0027\n\n// // ## return_await\u0027\n\ninl return_await\u0027 forall t. (a : async t) : t =\n $\u0027return\\! !a \u0027\n\n// // ## map\n\ninl map forall t u. (fn : t -\u003E u) (a : async t) : async u =\n fun () =\u003E\n inl x = a |\u003E let\u0027\n fn x |\u003E return\n |\u003E new_async_unit\n\n// // ## choice\n\nunion choice t1 t2 =\n | Choice1Of2 : t1\n | Choice2Of2 : t2\n\nnominal choice\u0027 t1 t2 = $\u0027Choice\u003C\u0060t1, \u0060t2\u003E\u0027\n\n// // ## choice_unbox\n\ninl choice_unbox forall t1 t2. (choice : choice\u0027 t1 t2) : choice t1 t2 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl choice1Of2 (x : t1) : _ _ t2 = Choice1Of2 x\n inl choice2Of2 (x : t2) : _ t1 _ = Choice2Of2 x\n $\u0027match !choice with Choice1Of2 x -\u003E !choice1Of2 x | Choice2Of2 x -\u003E !choice2Of2 x\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## catch\u0027\n\ninl catch\u0027 forall t e. (a : async t) : async (choice\u0027 t e) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n a |\u003E $\u0027Async.Catch\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## catch\n\ninl catch forall t e. (a : async t) : async (result t e) =\n a\n |\u003E catch\u0027\n |\u003E map choice_unbox\n |\u003E map function\n | Choice1Of2 result =\u003E Ok result\n | Choice2Of2 ex =\u003E Error ex\n\n// // ## run_with_timeout_async\n\ninl run_with_timeout_async forall t. (timeout : i32) (fn : async t) : async (option t) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n fun () =\u003E\n inl get_locals () = $\u0027$\u0022timeout: {!timeout} / {!get_locals ()}\u0022\u0027 : string\n inl child = fn |\u003E start_child_timeout timeout |\u003E let\u0027\n child\n |\u003E catch\n |\u003E map function\n | Ok result =\u003E Some result\n | Error ex when ex |\u003E sm\u0027.format_debug |\u003E sm\u0027.contains \u0022System.TimeoutException\u0022 =\u003E\n trace Debug (fun () =\u003E $\u0027\u0022run_with_timeout_async\u0022\u0027 : string) get_locals\n None\n | Error (ex : exn) =\u003E\n inl ex = ex |\u003E sm\u0027.format_exception\n trace Critical (fun () =\u003E $\u0027$\u0022run_with_timeout_async** / ex: {!ex}\u0022\u0027 : string) get_locals\n None\n |\u003E return_await\n // $\u0027(*\u0027\n // $\u0027*)\u0027\n |\u003E new_async_unit\n | _ =\u003E fun () =\u003E null ()\n\n// // ## run_with_timeout\n\ninl run_with_timeout timeout fn =\n fn\n |\u003E run_with_timeout_async timeout\n |\u003E run_synchronously\n\n// // ## cancellation_token\n\nnominal cancellation_token = $\u0027System.Threading.CancellationToken\u0027\nnominal cancellation_token_source = $\u0027System.Threading.CancellationTokenSource\u0027\n\ninl cancellation_token () : async cancellation_token =\n $\u0027Async.CancellationToken\u0027\n\ninl default_cancellation_token () : cancellation_token =\n $\u0027Async.DefaultCancellationToken\u0027\n\ninl cancellation_source_token (x : cancellation_token_source) : cancellation_token =\n $\u0027!x.Token\u0027\n\ninl create_linked_token_source (x : array_base cancellation_token) : cancellation_token_source =\n x |\u003E $\u0027System.Threading.CancellationTokenSource.CreateLinkedTokenSource\u0027\n\n// // ## merge_cancellation_token_with_default_async\n\ninl merge_cancellation_token_with_default_async (token : cancellation_token) : async cancellation_token =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n fun () =\u003E\n inl ct = cancellation_token () |\u003E let\u0027\n inl dct = default_cancellation_token ()\n inl cts = create_linked_token_source ;[ ct; dct; token ]\n cts |\u003E cancellation_source_token |\u003E return\n |\u003E new_async_unit\n | _ =\u003E fun () =\u003E null ()\n\n// // ## main\n\ninl main () =\n $\u0022let merge_cancellation_token_with_default_async x = !merge_cancellation_token_with_default_async x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/async.spi"}} / result.Length:
00:00:02 #17 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/async.spi"}} / result.Length:
00:00:03 #18 [verbose] > Building c:\home\git\polyglot\lib\spiral\async.spi
00:00:03 #19 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:04 #20 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #21 [debug] buildFile / takeWhileInclusive / fsxContent: let rec closure0 () (v0 : System.Threading.CancellationToken) : Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |> unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |> unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |> unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER... / errors: [] / typeErrorCount: 0
00:00:05 #22 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:05 #23 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:05 #24 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #25 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #26 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # runtime\n\n// // ## os_platform\n\nnominal os_platform\u0027 = $\u0027System.Runtime.InteropServices.OSPlatform\u0027\n\nunion os_platform =\n | Windows\n\ninl os_platform = function\n | Windows =\u003E $\u0027\u0060os_platform\u0027.Windows\u0027 : os_platform\u0027\n\n// // ## is_os_platform\n\ninl is_os_platform (x : os_platform\u0027) : bool =\n x |\u003E $\u0027System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform\u0027\n\n// // ## is_windows\n\ninl is_windows () : bool =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n Windows |\u003E os_platform |\u003E is_os_platform\n | _ =\u003E fun () =\u003E null ()\n\n// // ## get_executable_suffix\n\ninl get_executable_suffix () =\n if is_windows ()\n then \u0022.exe\u0022\n else \u0022\u0022\n\n// // ## main\n\ninl main () =\n $\u0022let is_windows () = !is_windows ()\u0022 : ()\n $\u0022let get_executable_suffix () = !get_executable_suffix ()\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/runtime.spi"}} / result.Length:
00:00:05 #27 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/runtime.spi"}} / result.Length:
00:00:05 #28 [verbose] > Building c:\home\git\polyglot\lib\spiral\runtime.spi
00:00:05 #29 [debug] buildFile / takeWhileInclusive / fsxContent: let rec closure0 () () : bool =
let v0 : bool option = None
let mutable _v0 = v0
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v1 : bool = null |> unbox<bool>
v1
#endif
#if FABLE_COMPILER_RUST && WASM
let v2 : bool = null |> unbox<bool>
v2
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v3 : bool = null |> unbox<bool>
v3
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT
let v4 : System.Runtime.InteropServices.OSPlatform = System.Runtime.InteropServices.OSPlatform.Windows
let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) = System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v6 : bool = v... / errors: [] / typeErrorCount: 0
00:00:05 #30 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:05 #31 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:05 #32 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #33 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:05 #34 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # trace\n\n// // ## trace_level\n\nunion trace_level =\n | Verbose\n | Debug\n | Info\n | Warning\n | Critical\n\ninstance to_string trace_level = function\n | Verbose =\u003E \u0022Verbose\u0022\n | Debug =\u003E \u0022Debug\u0022\n | Info =\u003E \u0022Info\u0022\n | Warning =\u003E \u0022Warning\u0022\n | Critical =\u003E \u0022Critical\u0022\n\ninstance of_string trace_level = function\n | \u0022Verbose\u0022 =\u003E Verbose\n | \u0022Debug\u0022 =\u003E Debug\n | \u0022Info\u0022 =\u003E Info\n | \u0022Warning\u0022 =\u003E Warning\n | \u0022Critical\u0022 =\u003E Critical\n\n// // ## repl_start\n\ninl repl_start () : optionm\u0027.option\u0027 i64 =\n inl result : optionm\u0027.option\u0027 (optionm\u0027.option\u0027 i64) = optionm\u0027.none\u0027 ()\n $\u0022let mutable _!result = !result\u0022\n $\u0027#if INTERACTIVE || \\!FABLE_COMPILER\u0027 : ()\n if get_entry_assembly_name () \u003C\u003E \u0022Microsoft.DotNet.Interactive.App\u0022\n then date_time.now () |\u003E date_time.ticks |\u003E Some\n else None\n |\u003E optionm\u0027.box\n |\u003E fun x =\u003E\n inl x = join x\n $\u0027!x \u0027\n $\u0027#else\u0027 : ()\n (None : option i64) |\u003E optionm\u0027.box\n |\u003E fun x =\u003E\n inl x = join x\n $\u0027!x \u0027\n $\u0027#endif\u0027 : ()\n $\u0022|\u003E fun x -\u003E _!result \u003C- Some x\u0022\n $\u0027_!result.Value\u0027\n\n// // ## trace_state\n\ntype trace_state =\n {\n count : mut i64\n dump : mut bool\n enabled : mut bool\n level : mut trace_level\n repl_start : optionm\u0027.option\u0027 i64\n }\n\ninl new_trace_state () =\n {\n enabled = mut true\n count = mut 0i64\n level = mut Verbose\n dump = mut false\n repl_start = repl_start ()\n } : trace_state\n\n// // ## init_trace_state\n\ninl init_trace_state () : () =\n global \u0022module State = let mutable trace_state = None\u0022\n $\u0022if State.trace_state = None then State.trace_state \u003C- !new_trace_state () |\u003E Some\u0022 : ()\n\n// // ## get_trace_state\n\ninl get_trace_state () : trace_state =\n init_trace_state ()\n $\u0027State.trace_state.Value\u0027\n\n// // ## get_locals\n\ninl get_locals () = \u0022\u0022\n\n// // ## test_trace_level\n\ninl test_trace_level level : bool =\n inl state = get_trace_state ()\n inl level\u0027 = *state.level\n *state.enabled \u0026\u0026 $\u0027!level \u003E= !level\u0027 \u0027\n\n// // ## trace_raw\n\ninl trace_raw level fn =\n inl trace_state = get_trace_state ()\n if level |\u003E test_trace_level then\n inl count = trace_state.count\n count \u003C- *trace_state.count \u002B 1\n\n inl text = $\u0027$\u0022%s{!fn ()}\u0022\u0027 : string\n run_target function\n | Rust _ =\u003E fun () =\u003E\n open rust_operators\n !\\\\(text, $\u0027\\@\u0022println\\!(\u0022\u0022{}\u0022\u0022, $0)\u0022\u0027)\n | _ =\u003E fun () =\u003E\n $\u0027System.Console.WriteLine !text \u0027\n\n // run_target function\n // | Fsharp (Native) =\u003E fun () =\u003E\n // if *trace_state.dump then\n // try_unit\n // fun () =\u003E\n // // open file_system_operators\n // // inl tmp_path = file_system.get_temp_path ()\n // // inl log_dir = tmp_path \u003C/\u003E \u0022!polyglot\u0022\n // // file_system.create_directory log_dir |\u003E ignore\n // // inl guid = date_time.new_guid_from_date_time (date_time.now ())\n // // inl log_file = log_dir \u003C/\u003E $\u0027$\u0022{!guid}.txt\u0022\u0027\n // // file_system.write_all_text_async log_file text |\u003E async.run_synchronously\n // ()\n // fun ex =\u003E\n // inl ex = ex |\u003E sm\u0027.format_exception\n // trace_raw Critical (fun () =\u003E $\u0027$\u0022trace / ex: {!ex}\u0022\u0027)\n // | _ =\u003E fun () =\u003E ()\n\n// // ## trace\n\nlet trace (level : trace_level) (fn : () -\u003E string) (get_locals : () -\u003E string) =\n fun () =\u003E\n inl trace_state = get_trace_state ()\n inl time =\n run_target fun target =\u003E\n match target with\n | Fsharp (Native)\n | Rust (Native) =\u003E fun () =\u003E\n match trace_state.repl_start |\u003E optionm\u0027.unbox with\n | Some repl_start =\u003E\n inl t =\n (date_time.now () |\u003E date_time.ticks |\u003E fun (date_time.timestamp x) =\u003E x)\n - repl_start |\u003E date_time.time_span\n date_time.date_time_milliseconds\n 1i32 1i32 1i32\n (t |\u003E date_time.hours)\n (t |\u003E date_time.minutes)\n (t |\u003E date_time.seconds)\n (t |\u003E date_time.milliseconds)\n | None =\u003E date_time.now ()\n |\u003E fun date_time =\u003E\n inl format =\n match target with\n | Rust _ =\u003E \u0022hh:mm:ss\u0022\n | _ =\u003E \u0022HH:mm:ss\u0022\n $\u0027!date_time.ToString !format \u0027\n | _ =\u003E fun () =\u003E join \u0022\u0022\n inl count = *trace_state.count\n inl level = level |\u003E to_string |\u003E sm\u0027.to_lower\n $\u0027$\u0022{!time} #{!count} [{!level}] %s{!fn ()} / %s{!get_locals ()}\u0022\u0027\n |\u003E sm\u0027.trim_start ;[]\n |\u003E sm\u0027.trim_end ;[ \u0027 \u0027; \u0027/\u0027 ]\n |\u003E trace_raw level\n\n// // ## main\n\ninl main () =\n // global \u0022let mutable trace_state = None\u0022\n // $\u0022let mutable trace_state : \u0060trace_state option = None\u0022 : ()\n\n $\u0022let trace x = !trace x\u0022 : ()\n $\u0022let get_trace_state () = !get_trace_state ()\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/trace.spi"}} / result.Length:
00:00:05 #35 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/trace.spi"}} / result.Length:
00:00:05 #36 [verbose] > Building c:\home\git\polyglot\lib\spiral\trace.spi
00:00:05 #37 [debug] buildFile / takeWhileInclusive / fsxContent: module State = let mutable trace_state = None
type [<Struct>] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [<Struct>] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [<Struct>] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
... / errors: [] / typeErrorCount: 0
00:00:05 #38 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:06 #39 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:06 #40 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #41 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #42 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # crypto\n\n// // ## sha256\n\nnominal sha256 = $\u0027System.Security.Cryptography.SHA256\u0027\n\ninl sha256 () : sha256 =\n $\u0027\u0060sha256.Create\u0027 ()\n\n// // ## sha256_compute_hash\n\ninl sha256_compute_hash (x : sha256) (data : a i32 u8) : a i32 u8 =\n data |\u003E $\u0027!x.ComputeHash\u0027\n\n// // ## create_hash\n\ninl create_hash (x : string) : any =\n open ts_operators\n global \u0022type ICryptoCreateHash = abstract createHash: x: string -\u003E obj\u0022\n inl crypto : $\u0027ICryptoCreateHash\u0027 = ts.import_all \u0022crypto\u0022\n !\\\\(x, $\u0027\u0022!crypto.createHash($0)\u0022\u0027)\n\n// // ## hash_update\n\ninl hash_update (s : string) (x : any) : any =\n open ts_operators\n !\\\\((x, s), $\u0027\u0022$0.update($1, \\\u0027utf8\\\u0027)\u0022\u0027)\n\n// // ## hash_digest\n\ninl hash_digest (s : string) (x : any) : string =\n open ts_operators\n !\\\\((x, s), $\u0027\u0022$0.digest($1)\u0022\u0027)\n\n// // ## hash_text\n\ninl hash_text (input : string) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl sha256 = sha256 () |\u003E use\n input\n |\u003E sm\u0027.utf8_get_bytes\n |\u003E sha256_compute_hash sha256\n |\u003E am.map (sm\u0027.byte_to_string \u0022x2\u0022)\n |\u003E seq.of_array\u0027\n |\u003E sm\u0027.concat \u0022\u0022\n | TypeScript _ =\u003E fun () =\u003E\n create_hash \u0022sha256\u0022\n |\u003E hash_update input\n |\u003E hash_digest \u0022hex\u0022\n | _ =\u003E fun () =\u003E null ()\n\n// // ## main\n\ninl main () =\n $\u0022let hash_text x = !hash_text x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/crypto.spi"}} / result.Length:
00:00:06 #43 [verbose] > Building c:\home\git\polyglot\lib\spiral\crypto.spi
00:00:06 #44 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/crypto.spi"}} / result.Length:
00:00:06 #45 [debug] buildFile / takeWhileInclusive / fsxContent: type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT
let v5 : (unit -> System... / errors: [] / typeErrorCount: 0
00:00:06 #46 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:06 #47 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:06 #48 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #49 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #50 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # common\n\n// // ## prototype\n\nprototype (~:\u003E) r : forall t. t -\u003E r\n\n// // ## run_target\n\n// // ## upcast\n\ninl upcast forall t u. (x : t) : u =\n $\u0027!x :\u003E \u0060u \u0027\n\n// // ## downcast\n\ninl downcast forall t u. (x : t) : u =\n $\u0027!x :?\u003E \u0060u \u0027\n\n// // ## unativeint\n\nnominal unativeint = $\u0022unativeint\u0022\n\ninl unativeint forall t {int}. (n : t) : unativeint =\n $\u0022unativeint !n\u0022\n\n// // ## pair\n\n// // ## new_pair\n\ninl new_pair forall a b. (a : a) (b : b) : pair a b =\n $\u0022!a, !b\u0022\n\n// // ## from_pair\n\ninl from_pair forall a b. (pair : pair a b) : a * b =\n $\u0022let (a, b) = !pair\u0022\n $\u0022a\u0022, $\u0022b\u0022\n\n// // ## memoize\n\nnominal lazy t = $\u0027Lazy\u003C\u0060t\u003E\u0027\n\ninl memoize forall t. (fn : () -\u003E t) : () -\u003E t =\n inl fn = join fn\n inl result : lazy t = $\u0027lazy !fn ()\u0027\n fun () =\u003E $\u0027!result.Value\u0027\n\n// // ## to_any\n\ninl to_any forall t. (obj : t) : any =\n $\u0022!obj\u0022\n\ninstance (~:\u003E) any = to_any\n\n// // ## unbox\n\ninl unbox forall t u. (x : t) : u =\n $\u0022!x |\u003E unbox\u003C\u0060u\u003E\u0022\n\n// // ## (\u002B.)\n\ninl (\u002B.) forall t. (a : t) (b : t) : t =\n $\u0022!a \u002B !b\u0022\n\n// // ## (-.)\n\ninl (-.) forall t. (a : t) (b : t) : t =\n $\u0022!a - !b\u0022\n\n// // ## (*.)\n\ninl (*.) forall t. (a : t) (b : t) : t =\n $\u0022!a * !b\u0022\n\n// // ## (/.)\n\ninl (/.) forall t. (a : t) (b : t) : t =\n $\u0022!a / !b\u0022\n\n// // ## (=.)\n\ninl (=.) forall t. (a : t) (b : t) : bool =\n $\u0022!a = !b\u0022\n\n// // ## (||\u003E)\n\ninl (||\u003E) (arg1, arg2) fn =\n arg2 |\u003E fn arg1\n\n// // ## flip\n\ninl flip fn a b =\n fn b a\n\n// // ## join_body\n\ninl join_body body acc x =\n if var_is x |\u003E not\n then body acc x\n else\n inl acc = dyn acc\n join body acc x\n\n// // ## join_body_unit\n\ninl join_body_unit body d x =\n if var_is d |\u003E not\n then body x\n else\n inl x = dyn x\n join body x\n\n// // ## nameof\n\ninl nameof x : string =\n $\u0022nameof !x\u0022\n\n// // ## get_environment_variable\n\ninl get_environment_variable (var : string) : string =\n $\u0022System.Environment.GetEnvironmentVariable !var\u0022\n\n// // ## disposable\n\nnominal disposable t = $\u0022System.IDisposable\u0022\n\n// // ## dispose\n\ninl dispose (disposable : disposable _) : () =\n disposable |\u003E $\u0027_.Dispose()\u0027\n\n// // ## new_disposable\n\ninl new_disposable (fn : () -\u003E ()) : disposable _ =\n run_target function\n | Fsharp _ =\u003E fun () =\u003E $\u0027{ new System.IDisposable with member _.Dispose () = !fn () }\u0027\n // | Rust _ =\u003E\n // fun () =\u003E\n // $\u0027{ new System.IDisposable with member _.Dispose () = Fable.Core.RustInterop.emitRustExpr () \u0022!fn()\u0022 }\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## return\n\ninl return forall t. (x : t) : () =\n $\u0027return !x \u0027\n\ninl return\u0027 forall t. (x : t) : t =\n $\u0027return !x \u0027\n\n// // ## sleep\n\ninl sleep (n : i32) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E $\u0027System.Threading.Thread.Sleep\u0027 n\n | _ =\u003E fun () =\u003E ()\n\n// // ## retry_fn\n\ninl retry_fn forall t. retries (fn : () -\u003E t) : option t =\n let rec loop retry =\n try\n fun () =\u003E\n if retry \u003C retries\n then fn () |\u003E Some\n else None\n fun ex =\u003E\n inl get_locals () = $\u0027$\u0022retry: {!retry} / ex: {ex |\u003E SpiralSm.format_exception} / {!get_locals ()}\u0022\u0027 : string\n // trace Warning (fun () =\u003E \u0022retry_fn\u0022) getLocals\n sleep 1\n None\n |\u003E function\n | Some x =\u003E x\n | None =\u003E loop (retry \u002B 1)\n loop 0\n\n// // ## main\n\ninl main () =\n inl new_disposable x : _ () = new_disposable x\n $\u0022let new_disposable x = !new_disposable x\u0022 : ()\n \n inl retry_fn (r : i32) (x : () -\u003E _) : optionm\u0027.option\u0027 () = retry_fn r x |\u003E optionm\u0027.box\n $\u0022let retry_fn x = !retry_fn x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/common.spi"}} / result.Length:
00:00:06 #51 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/common.spi"}} / result.Length:
00:00:06 #52 [verbose] > Building c:\home\git\polyglot\lib\spiral\common.spi
00:00:06 #53 [debug] buildFile / takeWhileInclusive / fsxContent: type [<Struct>] US0 =
| US0_0
| US0_1
and [<Struct>] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT
let v5 : System.ID... / errors: [] / typeErrorCount: 0
00:00:06 #54 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:06 #55 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:06 #56 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #57 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #58 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # date_time\n\nopen rust_operators\nopen sm\u0027_operators\n\n// // ## types\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022chrono::DateTime\u003C$0\u003E\\\u0022)\u003E] type chrono_DateTime\u003C\u0027T\u003E = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022chrono::Local\\\u0022)\u003E] type chrono_Local = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022chrono::NaiveDateTime\\\u0022)\u003E] type chrono_NaiveDateTime = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022chrono::Utc\\\u0022)\u003E] type chrono_Utc = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::time::Duration\\\u0022)\u003E] type std_time_Duration = class end\u0022\n\nnominal timestamp = i64\nnominal duration = $\u0022std_time_Duration\u0022\nnominal date_time = $\u0022System.DateTime\u0022\nnominal date_time\u0027 t = $\u0022chrono_DateTime\u003C\u0060t\u003E\u0022\nnominal local = $\u0022chrono_Local\u0022\nnominal naive_date_time = $\u0022chrono_NaiveDateTime\u0022\nnominal utc = $\u0022chrono_Utc\u0022\n\n// // ## date_time_milliseconds\n\ninl date_time_milliseconds\n (year : int) (month : int) (day : int) (hour : int) (minute : int) (second : int) (millisecond : int)\n : date_time\n =\n $\u0027System.DateTime (!year, !month, !day, !hour, !minute, !second, !millisecond)\u0027\n\n// // ## naive_utc\n\ninl naive_utc (date_time : date_time\u0027 utc) : naive_date_time =\n inl date_time = join date_time\n !\\($\u0027\u0022!date_time.naive_utc()\u0022\u0027)\n\n// // ## to_local\n\ninl to_local (date_time : date_time\u0027 utc) : date_time\u0027 local =\n inl naive_date_time = date_time |\u003E naive_utc\n !\\($\u0027\u0022chrono::offset::TimeZone::from_utc_datetime(\u0026chrono::Local, \u0026!naive_date_time)\u0022\u0027)\n\n// // ## from_timestamp\u0027\n\ninl from_timestamp\u0027 forall t {number; int}. (timestamp : t) : option (date_time\u0027 utc) =\n inl timestamp = join timestamp\n inl result : optionm\u0027.option\u0027 (date_time\u0027 utc) =\n !\\($\u0027\u0022chrono::DateTime::from_timestamp_micros(!timestamp / 1000i64)\u0022\u0027)\n result |\u003E optionm\u0027.unbox\n\n// // ## ticks\n\ninl ticks (date_time : date_time) : timestamp =\n date_time |\u003E $\u0027_.Ticks\u0027\n\n// // ## format\n\ninl format (format : string) (date_time : date_time) : string =\n $\u0027!date_time.ToString\u0027 format\n\n// // ## format_iso8601\n\ninl format_iso8601 (date_time : date_time) =\n date_time |\u003E format \u0022yyyy-MM-ddTHH-mm-ss.fff\u0022\n\n// // ## format\u0027\n\ninl format\u0027 (format : string) (date_time : date_time\u0027 utc) : sm\u0027.std_string =\n inl format = #format\n inl date_time = join date_time\n !\\($\u0027\u0022!date_time.format(!format).to_string()\u0022\u0027)\n\n// // ## format\u0027\u0027\n\ninl format\u0027\u0027 (format : string) (date_time : date_time\u0027 _) : sm\u0027.std_string =\n inl format = #format\n inl date_time = join date_time\n !\\($\u0027\u0022!date_time.format(!format).to_string()\u0022\u0027)\n\n// // ## format_timestamp\n\ninl format_timestamp (timestamp : sm\u0027.std_string) =\n inl timestamp = join timestamp\n timestamp\n |\u003E fun x =\u003E !\\($\u0027\u0022!x.parse().unwrap()\u0022\u0027) : i64\n |\u003E from_timestamp\u0027\n |\u003E optionm.map fun x =\u003E\n x\n |\u003E to_local\n |\u003E format\u0027\u0027 \u0022%Y-%m-%d %H:%M:%S\u0022\n |\u003E sm\u0027.from_std_string\n |\u003E resultm.from_option\n\n// // ## duration_from_millis\n\ninl duration_from_millis (ms : u64) : duration =\n inl ms = join ms\n !\\($\u0027\u0022std::time::Duration::from_millis(!ms)\u0022\u0027)\n\n// // ## get_environment_variable\n\ninl get_environment_variable (var : string) : string =\n $\u0022System.Environment.GetEnvironmentVariable !var\u0022\n\ntype timestamp_guid = guid.guid\ntype date_time_guid = guid.guid\n\n// // ## date_time_guid_from_date_time\n\ninl date_time_guid_from_date_time (guid : guid.guid) (date_time : date_time) =\n inl guid = guid |\u003E sm\u0027.obj_to_string\n inl prefix = $\u0027!date_time.ToString \u0022yyyyMMdd-HHmm-ssff-ffff-f\u0022\u0027 : string\n $\u0027\u0060date_time_guid $\u0022{!prefix}{!guid.[!prefix.Length..]}\u0022\u0027 : date_time_guid\n\n// // ## date_time_from_guid\n\ninl date_time_from_guid (date_time_guid : date_time_guid) =\n inl date_time_guid = date_time_guid |\u003E sm\u0027.obj_to_string\n inl sm\u0027_replace = join sm\u0027.replace\n run_target function\n | Rust _ =\u003E fun () =\u003E\n $\u0027System.DateTime.Parse (!date_time_guid.[..24] |\u003E !sm\u0027_replace \u0022-\u0022 \u0022\u0022)\u0027 : date_time\n | _ =\u003E fun () =\u003E $\u0027System.DateTime.ParseExact (!date_time_guid.[..24] |\u003E !sm\u0027_replace \u0022-\u0022 \u0022\u0022, \u0022yyyyMMddHHmmssfffffff\u0022, null)\u0027 : date_time\n\n// // ## timestamp_guid_from_timestamp\n\ninl timestamp_guid_from_timestamp (guid : guid.guid) (timestamp : timestamp) : timestamp_guid =\n inl guid = guid |\u003E sm\u0027.obj_to_string\n inl timestamp = timestamp |\u003E sm\u0027.obj_to_string |\u003E sm\u0027.pad_left 18i32 \u00270\u0027\n $\u0027\u0060timestamp_guid $\u0022{!timestamp.[0..7]}-{!timestamp.[8..11]}-{!timestamp.[12..15]}-{!timestamp.[16..17]}{!guid.[21..]}\u0022\u0027\n\n// // ## timestamp_from_guid\n\ninl timestamp_from_guid (guid : date_time_guid) : timestamp =\n inl guid = guid |\u003E sm\u0027.obj_to_string\n $\u0027\u0060i64 $\u0022{!guid.[0..7]}{!guid.[9..12]}{!guid.[14..17]}{!guid.[19..20]}\u0022\u0027\n\n// // ## now\n\ninl now () : date_time =\n $\u0027System.DateTime.Now\u0027\n\n// // ## utc_now\n\ninl utc_now () : date_time =\n $\u0027System.DateTime.UtcNow\u0027\n\n// // ## time_span\n\nnominal time_span = $\u0027System.TimeSpan\u0027\n\ninl time_span x : time_span =\n $\u0027\u0060time_span !x \u0027\n\n// // ## new_time_span\n\ninl new_time_span (a : date_time) (b : date_time) : time_span =\n $\u0027!b - !a \u0027\n\n// // ## hours\n\ninl hours (time_span : time_span) : i32 =\n time_span |\u003E $\u0027_.Hours\u0027\n\n// // ## milliseconds\n\ninl milliseconds (time_span : time_span) : i32 =\n time_span |\u003E $\u0027_.Milliseconds\u0027\n\n// // ## minutes\n\ninl minutes (time_span : time_span) : i32 =\n time_span |\u003E $\u0027_.Minutes\u0027\n\n// // ## seconds\n\ninl seconds (time_span : time_span) : i32 =\n time_span |\u003E $\u0027_.Seconds\u0027\n\n// // ## total_seconds\n\ninl total_seconds (time_span : time_span) : f64 =\n time_span |\u003E $\u0027_.TotalSeconds\u0027\n\n// // ## new_guid_from_date_time\n\ninl new_guid_from_date_time (date_time : date_time) =\n inl guid = guid.new_raw_guid ()\n date_time_guid_from_date_time guid date_time\n\n// // ## new_guid_from_timestamp\n\ninl new_guid_from_timestamp (timestamp : timestamp) =\n inl guid = guid.new_raw_guid ()\n timestamp_guid_from_timestamp guid timestamp\n\n// // ## main\n\ninl main () =\n $\u0022let date_time_guid_from_date_time x = !date_time_guid_from_date_time x\u0022 : ()\n $\u0022let date_time_from_guid x = !date_time_from_guid x\u0022 : ()\n $\u0022let timestamp_guid_from_timestamp x = !timestamp_guid_from_timestamp x\u0022 : ()\n $\u0022let timestamp_from_guid x = !timestamp_from_guid x\u0022 : ()\n $\u0022let new_guid_from_date_time x = !new_guid_from_date_time x\u0022 : ()\n $\u0022let new_guid_from_timestamp x = !new_guid_from_timestamp x\u0022 : ()\n $\u0022let format x = !format x\u0022 : ()\n $\u0022let format_iso8601 x = !format_iso8601 x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/date_time.spi"}} / result.Length:
00:00:06 #59 [verbose] > Building c:\home\git\polyglot\lib\spiral\date_time.spi
00:00:06 #60 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/date_time.spi"}} / result.Length:
00:00:06 #61 [debug] buildFile / takeWhileInclusive / fsxContent: let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[v4.Length..]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (... / errors: [] / typeErrorCount: 0
00:00:06 #62 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:06 #63 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:06 #64 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #65 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:06 #66 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # file_system\n\nopen sm\u0027_operators\n\n// // ## types\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::path::Path\\\u0022)\u003E] type std_path_Path = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::path::PathBuf\\\u0022)\u003E] type std_path_PathBuf = class end\u0022\n\ninl types () =\n global \u0022#if FABLE_COMPILER // file_system.types\u0022\n sm\u0027.types ()\n rust.types ()\n types ()\n global \u0022#endif // file_system.types\u0022\n\n// // ## file_mode\n\nnominal file_mode\u0027 = $\u0027System.IO.FileMode\u0027\n\nunion file_mode =\n | ModeCreateNew\n | ModeCreate\n | ModeOpen\n | ModeOpenOrCreate\n | Truncate\n | Append\n\ninl file_mode = function\n | ModeCreateNew =\u003E $\u0027System.IO.FileMode.CreateNew\u0027 : file_mode\u0027\n | ModeCreate =\u003E $\u0027System.IO.FileMode.Create\u0027 : file_mode\u0027\n | ModeOpen =\u003E $\u0027System.IO.FileMode.Open\u0027 : file_mode\u0027\n | ModeOpenOrCreate =\u003E $\u0027System.IO.FileMode.OpenOrCreate\u0027 : file_mode\u0027\n | Truncate =\u003E $\u0027System.IO.FileMode.Truncate\u0027 : file_mode\u0027\n | Append =\u003E $\u0027System.IO.FileMode.Append\u0027 : file_mode\u0027\n\n// // ## file_access\n\nnominal file_access\u0027 = $\u0027System.IO.FileAccess\u0027\n\nunion file_access =\n | AccessRead\n | AccessWrite\n | AccessReadWrite\n\ninl file_access = function\n | AccessRead =\u003E $\u0027System.IO.FileAccess.Read\u0027 : file_access\u0027\n | AccessWrite =\u003E $\u0027System.IO.FileAccess.ReadWrite\u0027 : file_access\u0027\n | AccessReadWrite =\u003E $\u0027System.IO.FileAccess.ReadWrite\u0027 : file_access\u0027\n\n// // ## file_share\n\nnominal file_share\u0027 = $\u0027System.IO.FileShare\u0027\n\nunion file_share =\n | ShareNone\n | ShareRead\n | ShareWrite\n | ShareReadWrite\n | ShareDelete\n\ninl file_share = function\n | ShareNone =\u003E $\u0027System.IO.FileShare.None\u0027 : file_share\u0027\n | ShareRead =\u003E $\u0027System.IO.FileShare.Read\u0027 : file_share\u0027\n | ShareWrite =\u003E $\u0027System.IO.FileShare.Write\u0027 : file_share\u0027\n | ShareReadWrite =\u003E $\u0027System.IO.FileShare.ReadWrite\u0027 : file_share\u0027\n | ShareDelete =\u003E $\u0027System.IO.FileShare.Delete\u0027 : file_share\u0027\n\n// // ## file_stream\n\nnominal file_stream\u0027 = $\u0027System.IO.FileStream\u0027\n\ninl file_stream (path : string) mode access share : file_stream\u0027 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl mode = mode |\u003E file_mode\n inl access = access |\u003E file_access\n inl share = share |\u003E file_share\n $\u0027new System.IO.FileStream (!path, !mode, !access, !share)\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## path\n\nnominal path = $\u0027std_path_Path\u0027\nnominal path_buf = $\u0027std_path_PathBuf\u0027\n\n// // ## new_path_buf\n\ninl new_path_buf (path : string) : path_buf =\n open rust_operators\n inl path = path |\u003E sm\u0027.to_std_string\n !\\\\(path, $\u0027\u0022std::path::PathBuf::from($0)\u0022\u0027)\n\n// // ## path_buf_from\n\ninl path_buf_from (path : rust.box path) : path_buf =\n open rust_operators\n !\\\\(path, $\u0027\u0022std::path::PathBuf::from($0)\u0022\u0027)\n\n// // ## path_join\n\ninl path_join (s : string) (path_buf : path_buf) : path_buf =\n open rust_operators\n !\\\\((path_buf, s |\u003E sm\u0027.to_std_string), $\u0027\u0022$0.join($1)\u0022\u0027)\n\n// // ## path_display\n\ninl path_display (path : rust.ref\u0027 path) : sm\u0027.std_string =\n open rust_operators\n !\\\\(path, $\u0027\u0022$0.display().to_string()\u0022\u0027)\n\n// // ## path_buf_file_name\n\ninl path_buf_file_name (path : path_buf) : optionm\u0027.option\u0027 (rust.ref\u0027 sm\u0027.os_str) =\n open rust_operators\n !\\($\u0027\u0022!path.file_name()\u0022\u0027)\n\n// // ## path_buf_display\n\ninl path_buf_display (path_buf : path_buf) : sm\u0027.std_string =\n open rust_operators\n !\\\\(path_buf, $\u0027\u0022$0.display().to_string()\u0022\u0027)\n\n// // ## path_exists\n\ninl path_buf_exists (path_buf : path_buf) : bool =\n open rust_operators\n !\\\\(path_buf, $\u0027\u0022$0.exists()\u0022\u0027)\n\n// // ## path_is_dir\n\ninl path_buf_is_dir (path_buf : path_buf) : bool =\n open rust_operators\n !\\\\(path_buf, $\u0027\u0022$0.is_dir()\u0022\u0027)\n\n// // ## path_is_file\n\ninl path_buf_is_file (path_buf : path_buf) : bool =\n open rust_operators\n !\\\\(path_buf, $\u0027\u0022$0.is_file()\u0022\u0027)\n\n// // ## path_buf_parent\n\ninl path_buf_parent (path_buf : path_buf) : optionm\u0027.option\u0027 path_buf =\n open rust_operators\n !\\\\(path_buf, $\u0027\u0022$0.parent().map(std::path::PathBuf::from)\u0022\u0027)\n\n// // ## ts_path_join\n\ninl ts_path_join (b : string) (a : string) : string =\n open ts_operators\n global \u0022type IPathJoin = abstract join: [\u003CSystem.ParamArray\u003E] paths: string[] -\u003E string\u0022\n inl path : $\u0027IPathJoin\u0027 = ts.import_all \u0022path\u0022\n !\\\\((a, b), $\u0027\u0022!path.join($0, $1)\u0022\u0027)\n\n// // ## (\u003C /\u003E)\n\ninl (\u003C/\u003E) (a : string) (b : string) : string =\n run_target function\n | Rust (Native) =\u003E fun () =\u003E\n a |\u003E new_path_buf |\u003E path_join b |\u003E path_buf_display |\u003E sm\u0027.from_std_string\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027System.IO.Path.Combine (!a, !b)\u0027\n | TypeScript _ =\u003E fun () =\u003E\n a |\u003E ts_path_join b\n | _ =\u003E fun () =\u003E null ()\n\n// // ## get_temp_path\n\ninl get_temp_path () : string =\n $\u0027System.IO.Path.GetTempPath\u0027 ()\n\n// // ## get_file_name\n\ninl get_file_name (path : string) : string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.Path.GetFileName\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## create_temp_directory_name\n\ninl create_temp_directory_name () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n get_temp_path ()\n \u003C/\u003E ($\u0027$\u0022\\!{!get_entry_assembly_name ()}\u0022\u0027 : string)\n \u003C/\u003E (date_time.now () |\u003E date_time.new_guid_from_date_time |\u003E sm\u0027.obj_to_string)\n | target =\u003E fun () =\u003E null ()\n\n// // ## directory_info\n\nnominal directory_info = $\u0027System.IO.DirectoryInfo\u0027\n\ninl directory_info (path : string) : directory_info =\n path |\u003E $\u0027\u0060directory_info \u0027\n\n// // ## directory_info_exists\n\ninl directory_info_exists (info : directory_info) : bool =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027!info.Exists\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_info_creation_time\n\ninl directory_info_creation_time (info : directory_info) : date_time.date_time =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027!info.CreationTime\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_info_name\n\ninl directory_info_name (info : directory_info) : string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027!info.Name\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_info_full_name\n\ninl directory_info_full_name (info : directory_info) : string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027!info.FullName\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## get_source_directory\n\ninl get_source_directory () =\n $\u0027__SOURCE_DIRECTORY__\u0027 : string\n\n// // ## create_directory\n\ninl create_directory (path : string) : directory_info =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.Directory.CreateDirectory\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_exists\n\ninl directory_exists (path : string) : bool =\n run_target function\n | Rust (Native) =\u003E fun () =\u003E\n inl path = path |\u003E new_path_buf\n (path |\u003E path_buf_exists) \u0026\u0026 (path |\u003E path_buf_is_dir)\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.Directory.Exists\u0027\n | TypeScript (Native) =\u003E fun () =\u003E\n global \u0022type IFsExistsSync = abstract existsSync: path: string -\u003E bool\u0022\n inl fs : $\u0027IFsExistsSync\u0027 = ts.import_all \u0022fs\u0022\n ts.emit_expr path $\u0027\u0022!fs.existsSync($0)\u0022\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_get_parent\n\ninl directory_get_parent (path : string) : optionm\u0027.option\u0027 string =\n run_target function\n | Rust (Native) =\u003E fun () =\u003E\n path\n |\u003E new_path_buf\n |\u003E path_buf_parent\n |\u003E optionm\u0027.try\u0027\n |\u003E path_buf_display\n |\u003E sm\u0027.from_std_string\n |\u003E Some\n | Fsharp (Native) =\u003E fun () =\u003E\n inl parent : directory_info = path |\u003E $\u0027System.IO.Directory.GetParent\u0027\n if parent =. null ()\n then None\n else parent |\u003E directory_info_full_name |\u003E Some\n | TypeScript _ =\u003E fun () =\u003E\n global \u0022type IPathDirname = abstract dirname: path: string -\u003E string\u0022\n inl fs : $\u0027IPathDirname\u0027 = ts.import_all \u0022path\u0022\n ts.emit_expr path $\u0027\u0022!fs.dirname($0)\u0022\u0027 |\u003E Some\n | _ =\u003E fun () =\u003E null ()\n |\u003E optionm\u0027.box\n\n// // ## file_delete\n\ninl file_delete (path : string) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.File.Delete\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## file_move\n\ninl file_move (old_path : string) (new_path : string) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027System.IO.File.Move (!old_path, !new_path)\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## file_exists\n\ninl file_exists (path : string) : bool =\n run_target function\n | Rust (Native) =\u003E fun () =\u003E\n inl path_buf = path |\u003E new_path_buf\n (path_buf |\u003E path_buf_exists) \u0026\u0026 (path_buf |\u003E path_buf_is_file)\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.File.Exists\u0027\n | TypeScript (Native) =\u003E fun () =\u003E\n global \u0022type IFsExistsSync = abstract existsSync: path: string -\u003E bool\u0022\n inl fs : $\u0027IFsExistsSync\u0027 = ts.import_all \u0022fs\u0022\n ts.emit_expr path $\u0027\u0022!fs.existsSync($0)\u0022\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## directory_delete\n\ninl directory_delete recursive (path : string) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027System.IO.Directory.Delete (!path, !recursive)\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## read_all_text_async\n\ninl read_all_text_async (path : string) : _ string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n path |\u003E $\u0027System.IO.File.ReadAllTextAsync\u0027 |\u003E async.await_task\n | _ =\u003E fun () =\u003E null ()\n\n// // ## file_exists_content\n\ninl file_exists_content path content : _ bool =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n fun () =\u003E\n if path |\u003E file_exists |\u003E not\n then false |\u003E return |\u003E fun x =\u003E $\u0027(*\u0027 : ()\n else\n $\u0027*) else\u0027 : ()\n inl existing_content = path |\u003E read_all_text_async |\u003E async.let\u0027\n content = existing_content |\u003E return |\u003E fun x =\u003E $\u0027(*\u0027 : ()\n |\u003E fun x =\u003E $\u0027*)\u0027 : ()\n |\u003E async.new_async_unit\n | _ =\u003E fun () =\u003E null ()\n\n// // ## write_all_text\n\ninl write_all_text (path : string) (text : string) : () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027System.IO.File.WriteAllText (!path, !text)\u0027\n | _ =\u003E fun () =\u003E null ()\n\n// // ## write_all_text_async\n\ninl write_all_text_async (path : string) (text : string) : _ () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0027System.IO.File.WriteAllTextAsync (!path, !text)\u0027 |\u003E async.await_task\n | _ =\u003E fun () =\u003E null ()\n\n// // ## write_all_text_exists\n\ninl write_all_text_exists path contents =\n fun () =\u003E\n inl exists\u0027 = contents |\u003E file_exists_content path |\u003E async.let\u0027\n if not exists\u0027\n then contents |\u003E write_all_text_async path |\u003E async.do\n |\u003E async.new_async\n\n// // ## delete_directory_async\n\ninl delete_directory_async path : _ i64 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n let rec loop (retry : i64) =\n fun () =\u003E\n try_unit\n fun () =\u003E\n path |\u003E directory_delete true\n retry |\u003E return\n fun ex =\u003E\n if retry % 100i64 = 0 then\n inl ex = ex |\u003E sm\u0027.format_exception\n let get_locals () = $\u0027$\u0022path: {!path |\u003E !get_file_name} / ex: {!ex} / {!get_locals ()}\u0022\u0027 : string\n // trace Debug (fun () -\u003E \u0022delete_directory_async\u0022) getLocals\n console.write_line ($\u0027$\u0022delete_directory_async / {!get_locals ()}\u0022\u0027 : string)\n async.sleep 10i32 |\u003E async.do\n loop (retry \u002B 1) |\u003E async.return_await\n |\u003E async.new_async\n loop 0\n | _ =\u003E fun () =\u003E null ()\n\n// // ## create_temp_directory\n\ninl create_temp_directory () =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl temp_folder = create_temp_directory_name ()\n inl result = temp_folder |\u003E create_directory\n\n inl exists\u0027 = result |\u003E directory_info_exists\n if not exists\u0027 then\n inl creation_time = result |\u003E directory_info_creation_time\n inl result = ($\u0027{| Exists = !exists\u0027; CreationTime = !creation_time |}\u0027 : any) |\u003E sm\u0027.format_debug\n inl get_locals () : string =\n $\u0027$\u0022temp_folder: {!temp_folder} / result: {!result} {!get_locals ()}\u0022\u0027\n // trace Debug (fun () =\u003E \u0022createTempDirectory\u0022) get_locals\n console.write_line ($\u0027$\u0022create_temp_directory / {!get_locals ()}\u0022\u0027 : string)\n inl disposable : _ () = new_disposable fun () =\u003E\n temp_folder\n |\u003E delete_directory_async\n |\u003E async.ignore\n |\u003E async.run_synchronously\n temp_folder, disposable\n | _ =\u003E fun () =\u003E null ()\n\n// // ## wait_for_file_access\n\ninl wait_for_file_access access path =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n inl file_access, file_share =\n access\n |\u003E optionm\u0027.default_value (AccessReadWrite, ShareRead)\n let rec loop (retry : i64) : _ i64 =\n fun () =\u003E\n try_unit\n fun () =\u003E\n file_stream\n path\n ModeOpen\n file_access\n file_share\n |\u003E use\n |\u003E ignore\n retry |\u003E return\n fun ex =\u003E\n if retry \u003E 0 \u0026\u0026 retry % 100i64 = 0 then\n inl ex = ex |\u003E sm\u0027.format_exception\n let get_locals () = $\u0027$\u0022path: {!path |\u003E !get_file_name} / retry: {!retry} / ex: {!ex} / {!get_locals ()}\u0022\u0027 : string\n // trace Debug (fun () -\u003E \u0022wait_for_file_access\u0022) getLocals\n console.write_line ($\u0027$\u0022wait_for_file_access / {!get_locals ()}\u0022\u0027 : string)\n async.sleep 10i32 |\u003E async.do\n loop (retry \u002B 1) |\u003E async.return_await\n |\u003E async.new_async\n loop 0\n | _ =\u003E fun () =\u003E null ()\n\ninl wait_for_file_access_read path =\n path\n |\u003E wait_for_file_access (Some (\n AccessRead,\n ShareRead\n ))\n\n// // ## read_all_text_retry_async\n\ninl read_all_text_retry_async full_path : async.async (optionm\u0027.option\u0027 string) =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n let rec loop (retry : i64) =\n fun () =\u003E\n try_unit\n fun () =\u003E\n if retry \u003E 0\n then\n full_path\n |\u003E wait_for_file_access_read\n |\u003E async.run_with_timeout_async 1000\n |\u003E async.ignore\n |\u003E async.do\n full_path |\u003E read_all_text_async |\u003E async.map (Some \u003E\u003E optionm\u0027.box) |\u003E async.return_await\n fun ex =\u003E\n if retry \u003C\u003E 0 then\n inl ex = ex |\u003E sm\u0027.format_exception\n let get_locals () = $\u0027$\u0022retry: {!retry} / ex: {!ex} / {!get_locals ()}\u0022\u0027 : string\n trace Debug (fun () =\u003E $\u0027\u0022read_all_text_retry_async\u0022\u0027 : string) get_locals\n (None : _ string) |\u003E optionm\u0027.box |\u003E return |\u003E fun x =\u003E $\u0027(*\u0027 : ()\n else\n $\u0027*) else\u0027 : ()\n loop (retry \u002B 1) |\u003E async.return_await |\u003E fun x =\u003E $\u0027(*\u0027 : ()\n |\u003E fun x =\u003E $\u0027*)\u0027 : ()\n |\u003E async.new_async\n loop 0\n | _ =\u003E fun () =\u003E null ()\n\n// // ## delete_file_async\n\ninl delete_file_async path : _ i64 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n let rec loop (retry : i64) =\n fun () =\u003E\n try_unit\n fun () =\u003E\n path |\u003E file_delete\n return retry\n fun ex =\u003E\n if retry % 100 = 0 then\n inl ex = ex |\u003E sm\u0027.format_exception\n let getLocals () = $\u0027$\u0022path: {!path |\u003E !get_file_name} / ex: {ex} / {!get_locals ()}\u0022\u0027\n trace Warning (fun () =\u003E \u0022delete_file_async\u0022) get_locals\n async.sleep 10 |\u003E async.do\n loop (retry \u002B 1) |\u003E async.return_await\n |\u003E async.new_async\n loop 0\n | _ =\u003E fun () =\u003E null ()\n\n// // ## move_file_async\n\ninl move_file_async new_path old_path : _ i64 =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n let rec loop (retry : i64) =\n fun () =\u003E\n try_unit\n fun () =\u003E\n file_move old_path new_path\n return retry\n fun ex =\u003E\n if retry % 100 = 0 then\n let get_locals () =\n inl ex = ex |\u003E sm\u0027.format_exception\n $\u0027$\u0022old_path: {!old_path |\u003E !get_file_name} / new_path: {!new_path |\u003E !get_file_name} / ex: {!ex} / {!get_locals ()}\u0022\u0027 : string\n trace Warning (fun () =\u003E \u0022move_file_async\u0022) get_locals\n async.sleep 10 |\u003E async.do\n loop (retry \u002B 1) |\u003E async.return_await\n |\u003E async.new_async_unit\n loop 0\n | _ =\u003E fun () =\u003E null ()\n\n// // ## find_parent\n\ninl find_parent name is_file root_dir =\n let rec loop dir =\n if dir \u003C/\u003E name |\u003E (if is_file then file_exists else directory_exists)\n then dir\n else\n inl result = dir |\u003E (join directory_get_parent)\n match result |\u003E optionm\u0027.unbox with\n | Some parent =\u003E parent |\u003E loop\n | None =\u003E failwith $\u0027$\u0022\u0022\u0022No parent for {if !is_file then \u0022file\u0022 else \u0022dir\u0022} \\\u0027{!name}\\\u0027 at \\\u0027{!root_dir}\\\u0027 (until \\\u0027{!dir}\\\u0027)\u0022\u0022\u0022\u0027\n loop root_dir\n\n// // ## main\n\ninl main () =\n types ()\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E\n $\u0022let delete_directory_async x = !delete_directory_async x\u0022 : ()\n $\u0022let wait_for_file_access x = !wait_for_file_access x\u0022 : ()\n $\u0022let wait_for_file_access_read x = !wait_for_file_access_read x\u0022 : ()\n $\u0022let read_all_text_async x = !read_all_text_async x\u0022 : ()\n $\u0022let file_exists_content x = !file_exists_content x\u0022 : ()\n $\u0022let write_all_text_async x = !write_all_text_async x\u0022 : ()\n $\u0022let write_all_text_exists x = !write_all_text_exists x\u0022 : ()\n $\u0022let delete_file_async x = !delete_file_async x\u0022 : ()\n $\u0022let move_file_async x = !move_file_async x\u0022 : ()\n $\u0022let read_all_text_retry_async x = !read_all_text_retry_async x\u0022 : ()\n | _ =\u003E fun () =\u003E ()\n $\u0022let create_temp_directory_name () = !create_temp_directory_name ()\u0022 : ()\n $\u0022let create_temp_directory () = !create_temp_directory ()\u0022 : ()\n $\u0022let get_source_directory () = !get_source_directory ()\u0022 : ()\n $\u0022let find_parent x = !find_parent x\u0022 : ()\n inl combine x = (\u003C/\u003E) x\n $\u0022let (\u003C/\u003E) x = !combine x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/file_system.spi"}} / result.Length:
00:00:06 #67 [verbose] > Building c:\home\git\polyglot\lib\spiral\file_system.spi
00:00:06 #68 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/file_system.spi"}} / result.Length:
00:00:06 #69 [debug] buildFile / takeWhileInclusive / fsxContent: #if FABLE_COMPILER // file_system.types
[<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end
[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>] type base64_DecodeError = class end
[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>] type borsh_io_Error = class end
[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>] type js_sys_JsString = class end
[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>] type serde_json_Error = class end
[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>] type serde_json_Value = class end
[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>] type serde_wasm_bindgen_Error = class end
[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>] type std_ffi_O... / errors: [] / typeErrorCount: 0
00:00:06 #70 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:07 #71 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:07 #72 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:07 #73 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:07 #74 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # guid\n\n// // ## guid\n\nnominal guid = $\u0022System.Guid\u0022\n\n// // ## new_guid\n\ninl new_guid (x : string) : guid =\n $\u0027\u0060guid !x \u0027\n\n// // ## new_raw_guid\n\ninl new_raw_guid () : guid =\n $\u0022System.Guid.NewGuid ()\u0022\n\n// // ## main\n\ninl main () =\n $\u0022let new_guid x = !new_guid x\u0022 : ()\n $\u0022let new_raw_guid x = !new_raw_guid x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/guid.spi"}} / result.Length:
00:00:07 #75 [verbose] > Building c:\home\git\polyglot\lib\spiral\guid.spi
00:00:07 #76 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/guid.spi"}} / result.Length:
00:00:07 #77 [debug] buildFile / takeWhileInclusive / fsxContent: let rec closure0 () (v0 : string) : System.Guid =
let v1 : System.Guid = System.Guid v0
v1
and closure1 () () : System.Guid =
let v0 : System.Guid = System.Guid.NewGuid ()
v0
let v0 : (string -> System.Guid) = closure0()
let new_guid x = v0 x
let v1 : (unit -> System.Guid) = closure1()
let new_raw_guid x = v1 x
()
/ errors: [] / typeErrorCount: 0
00:00:07 #78 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:07 #79 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:07 #80 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:07 #81 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: [] / typeErrorCount: 0
00:00:07 #82 [debug] sendJson / port: 13805 / json: {"FileOpen":{"spiText":"// // # sm\u0027\n\nopen rust_operators\n\n// // ## types\n\ninl types () =\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022str\\\u0022)\u003E] type Str = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022base64::DecodeError\\\u0022)\u003E] type base64_DecodeError = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022borsh::io::Error\\\u0022)\u003E] type borsh_io_Error = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022js_sys::JsString\\\u0022)\u003E] type js_sys_JsString = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022serde_json::Error\\\u0022)\u003E] type serde_json_Error = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022serde_json::Value\\\u0022)\u003E] type serde_json_Value = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022serde_wasm_bindgen::Error\\\u0022)\u003E] type serde_wasm_bindgen_Error = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::ffi::OsStr\\\u0022)\u003E] type std_ffi_OsStr = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::ffi::OsString\\\u0022)\u003E] type std_ffi_OsString = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::str::Utf8Error\\\u0022)\u003E] type std_str_Utf8Error = class end\u0022\n global \u0022[\u003CFable.Core.Erase; Fable.Core.Emit(\\\u0022std::string::String\\\u0022)\u003E] type std_string_String = class end\u0022\n\nnominal base64_decode_error = $\u0022base64_DecodeError\u0022\nnominal borsh_io_error = $\u0022borsh_io_Error\u0022\nnominal utf8_error = $\u0022std_str_Utf8Error\u0022\nnominal json_value = $\u0022serde_json_Value\u0022\nnominal json_error = $\u0022serde_json_Error\u0022\nnominal serde_wasm_bindgen_error = $\u0022serde_wasm_bindgen_Error\u0022\nnominal js_string = $\u0022js_sys_JsString\u0022\nnominal str = $\u0022Str\u0022\nnominal os_str = $\u0022std_ffi_OsStr\u0022\nnominal os_string = $\u0022std_ffi_OsString\u0022\nnominal std_string = $\u0022std_string_String\u0022\n\n// // ## contains\n\ninl contains (value : string) (s : string) : bool =\n $\u0022!s.Contains !value\u0022\n\n// // ## ends_with\n\ninl ends_with (value : string) (s : string) : bool =\n $\u0022!s.EndsWith !value\u0022\n\n// // ## pad_left\n\ninl pad_left (total_width : i32) (padding_char : char) (s : string) : string =\n $\u0022!s.PadLeft (!total_width, !padding_char)\u0022\n\n// // ## pad_right\n\ninl pad_right (pad : i32) (s : string) : string =\n $\u0022!s.PadRight !pad\u0022\n\n// // ## replace\n\ninl replace (old_value : string) (new_value : string) (s : string) : string =\n $\u0022!s.Replace (!old_value, !new_value)\u0022\n\n// // ## starts_with\n\ninl starts_with (value : string) (s : string) : bool =\n $\u0022!s.StartsWith !value\u0022\n\n// // ## substring\n\ninl substring (start : i32) (len : i32) (str : string) : string =\n $\u0022!str.Substring (!start, !len)\u0022\n\n// // ## to_lower\n\ninl to_lower (input : string) : string =\n $\u0022!input.ToLower ()\u0022\n\n// // ## to_upper\n\ninl to_upper (input : string) : string =\n $\u0022!input.ToUpper ()\u0022\n\n// // ## trim\n\ninl trim (input : string) : string =\n $\u0022!input.Trim ()\u0022\n\n// // ## trim_end\n\ninl trim_end (trim_chars : array_base char) (input : string) : string =\n $\u0022!input.TrimEnd !trim_chars\u0022\n\n// // ## trim_start\n\ninl trim_start (trim_chars : array_base char) (input : string) : string =\n $\u0022!input.TrimStart !trim_chars\u0022\n\n// // ## slice\n\ninl slice from to s : string =\n sm.slice s { from to }\n\n// // ## raw_string_literal\n\ninl raw_string_literal (s : string) : rust.ref\u0027 str =\n !\\($\u0022\\\u0022r#\\\\\\\u0022\\\u0022 \u002B !s \u002B \\\u0022\\\\\\\u0022#\\\u0022\u0022)\n\n// // ## raw_string_literal_static\n\ninl raw_string_literal_static (s : string) : rust.static_ref\u0027 str =\n !\\($\u0022\\\u0022r#\\\\\\\u0022\\\u0022 \u002B !s \u002B \\\u0022\\\\\\\u0022#\\\u0022\u0022)\n\n// // ## include_str\n\ninl include_str (path : string) : rust.ref\u0027 str =\n !\\($\u0027\u0022include_str\\!(\\\\\\\u0022\u0022 \u002B !path \u002B \u0022\\\\\\\u0022)\u0022\u0027)\n\n// // ## as_str\n\ninl as_str (s : string) : rust.ref\u0027 str =\n !\\\\(s, $\u0027\u0022fable_library_rust::String_::LrcStr::as_str(\u0026$0)\u0022\u0027)\n\n// // ## as_os_ref\n\ninl as_os_ref (s : os_string) : rust.ref\u0027 os_str =\n !\\\\(s, $\u0027\u0022$0.as_ref()\u0022\u0027)\n\n// // ## to_os_string\n\ninl to_os_string (s : rust.ref\u0027 os_str) : os_string =\n !\\\\(s, $\u0027\u0022$0.to_os_string()\u0022\u0027)\n\n// // ## os_to_str\n\ninl os_to_str (s : os_string) : optionm\u0027.option\u0027 (rust.ref\u0027 str) =\n !\\\\(s, $\u0027\u0022$0.to_str()\u0022\u0027)\n\n// // ## from_std_string\n\ninl from_std_string (str : std_string) : string =\n !\\\\(str, $\u0027\u0022fable_library_rust::String_::fromString($0)\u0022\u0027)\n\n// // ## ref_to_std_string\n\ninl ref_to_std_string (str : rust.ref\u0027 str) : std_string =\n !\\\\(str, $\u0027\u0022String::from($0)\u0022\u0027)\n\n// // ## to_std_string\n\ninl to_std_string (s : string) : std_string =\n inl s = join s\n s |\u003E as_str |\u003E ref_to_std_string\n\n// // ## as_str_std\n\ninl as_str_std (s : std_string) : rust.ref\u0027 str =\n inl s = join s\n !\\($\u0027\u0022!s.as_str()\u0022\u0027)\n\n// // ## into_boxed_str\n\ninl into_boxed_str (s : std_string) : rust.box str =\n !\\($\u0027\u0022!s.into_boxed_str()\u0022\u0027)\n\n// // ## format\u0027\n\ninl format\u0027 x : std_string =\n !\\\\(x, $\u0027@@$\u0022format\\!(\u0022\u0022{{}}\u0022\u0022, $0)\u0022\u0027)\n\n// // ## format_debug\n\ninl format_debug x : string =\n $\u0027$\u0022%A{!x}\u0022\u0027\n\n// // ## format_debug\u0027\n\ninl format_debug\u0027 x : std_string =\n !\\\\(x, $\u0027@@$\u0022format\\!(\u0022\u0022{{:?}}\u0022\u0022, $0)\u0022\u0027)\n\n// // ## format_pretty\u0027\n\ninl format_pretty\u0027 x : std_string =\n !\\\\(x, $\u0027@@$\u0022format\\!(\u0022\u0022{{:#?}}\u0022\u0022, $0)\u0022\u0027)\n\n// // ## format_exception\n\ninl format_exception (ex : exn) : string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E $\u0027$\u0022{!ex.GetType ()}: {!ex.Message}\u0022\u0027\n | _ =\u003E fun () =\u003E ex |\u003E format_debug\n\n// // ## obj_to_string\n\ninl obj_to_string x : string =\n x |\u003E $\u0027_.ToString()\u0027\n\n// // ## to_string any\n\ninstance to_string any =\n obj_to_string\n\n// // ## to_string result t u\n\ninstance to_string result t u = fun x =\u003E\n real\n open rust\n typecase (t * u) with\n | string * string =\u003E\n match x with\n | Ok x =\u003E x\n | Error x =\u003E $\u0027\u0022Error: \u0022 \u002B !x \u002B \u0022\u0022\u0027 : string\n | std_string * std_string =\u003E\n match x with\n | Ok x =\u003E from_std_string x\n | Error x =\u003E $\u0027\u0022Error: \u0022 \u002B string !x \u002B \u0022\u0022\u0027 : string\n | _ =\u003E obj_to_string \u0060u x\n\n// // ## serialize\n\ninl serialize forall t. (x : t) : resultm.result\u0027 std_string json_error =\n !\\($\u0027\u0022serde_json::to_string(\u0026!x)\u0022\u0027)\n\n// // ## deserialize\n\ninl deserialize forall t. (json : string) : resultm.result\u0027 t std_string =\n inl json = join json\n inl json = json |\u003E as_str\n !\\($\u0027\u0022serde_json::from_str(\u0026!json)\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : json_error) =\u003E x |\u003E format\u0027\n\n// // ## borsh_deserialize\n\ninl borsh_deserialize forall t. (data : array_base u8) : resultm.result\u0027 t std_string =\n inl data = data |\u003E am\u0027.as_slice\n !\\($\u0027\u0022let mut !data = !data\u0022\u0027)\n inl result = !\\($\u0027\u0022borsh::BorshDeserialize::deserialize(\u0026mut !data)\u0022\u0027)\n result\n |\u003E resultm.map_error\u0027 fun (x : borsh_io_error) =\u003E x |\u003E format\u0027\n\n// // ## deserialize_vec\n\ninl deserialize_vec (value : json_value) : resultm.result\u0027 (am\u0027.vec u8) std_string =\n inl value = join value\n !\\($\u0027\u0022serde_json::from_value(!value)\u0022\u0027)\n |\u003E resultm.map_error\u0027 fun (x : json_error) =\u003E x |\u003E format\u0027\n\n// // ## encode_uri_component\n\ninl encode_uri_component (s : std_string) : js_string =\n !\\($\u0027\u0022js_sys::encode_uri_component(\u0026!s)\u0022\u0027)\n\n// // ## strip_prefix\n\ninl strip_prefix (prefix : char) (s : std_string) : optionm\u0027.option\u0027 (rust.ref\u0027 str) =\n inl s = join s\n !\\($\u0027\u0022!s.strip_prefix(!prefix)\u0022\u0027)\n\n// // ## base64_decode\n\ninl base64_decode (s : std_string) : result std_string std_string =\n fun () =\u003E\n inl s = join s\n inl bytes : resultm.result\u0027 (am\u0027.vec u8) base64_decode_error =\n !\\($\u0027\u0022base64::Engine::decode(\u0026base64::engine::general_purpose::STANDARD, !s)\u0022\u0027)\n inl bytes =\n bytes\n |\u003E resultm.map_error\u0027 format\u0027\n |\u003E resultm.try\u0027\n inl result : resultm.result\u0027 std_string utf8_error =\n !\\($\u0027\u0022std::str::from_utf8(\u0026!bytes).map(String::from)\u0022\u0027)\n result\n |\u003E resultm.map_error\u0027 format\u0027\n |\u003E fun x =\u003E\n join x ()\n |\u003E resultm.unbox\n\n// // ## concat_array_trailing\n\ninl concat_array_trailing (separator : string) (input : a i32 string) =\n (\u0022\u0022, input)\n ||\u003E am.fold fun acc (x : string) =\u003E\n $\u0027!acc \u002B !x \u002B !separator \u002B \u0022\u0022\u0027\n\n// // ## concat_list_trailing\n\ninl concat_list_trailing separator input =\n (\u0022\u0022, input)\n ||\u003E listm.fold fun acc (x : string) =\u003E\n $\u0027!acc \u002B !x \u002B !separator \u002B \u0022\u0022\u0027\n\n// // ## concat_list_heap_trailing\n\ninl concat_list_heap_trailing separator input =\n inl separator = join separator\n inl separator = separator |\u003E as_str\n (\u0022\u0022, input)\n ||\u003E listm.fold fun acc (x : string) =\u003E\n inl acc = acc |\u003E to_std_string\n inl x = x |\u003E as_str\n $\u0027$\u0022{!acc}{!x}{!separator}\u0022\u0027\n\n// // ## concat\n\ninl concat (a : string) (b : seq.seq\u0027 _) : string =\n $\u0022!b |\u003E String.concat !a\u0022\n\n// // ## ellipsis\n\ninl ellipsis (max : i32) (s : string) =\n if sm.length s \u003C= max\n then s\n else s |\u003E slice 0 (max - 1) |\u003E fun x =\u003E $\u0027!x \u002B \u0022...\u0022\u0027\n\n// // ## ellipsis_end\n\ninl ellipsis_end (max : i64) (s : string) =\n inl len = sm.length s\n if len \u003C= max\n then s\n else\n inl half = f64 max / 2\n inl start_half = half |\u003E math.ceil |\u003E i64\n inl end_half = half |\u003E math.floor |\u003E i64\n inl start = s |\u003E slice 0 (start_half - 1)\n inl end = s |\u003E slice (len - end_half) (len - 1)\n (a ;[start; \u0022...\u0022; end] : _ i32 _)\n |\u003E seq.of_array\n |\u003E concat \u0022\u0022\n\n// // ## format_ellipsis\n\ninl format_ellipsis s =\n s\n |\u003E format_debug\n |\u003E ellipsis_end 400\n\n// // ## split\n\ninl split (separator : string) (str : string) : array_base string =\n $\u0022!str.Split !separator\u0022\n\n// // ## split_string\n\ninl split_string (separator : array_base string) (str : string) : array_base string =\n run_target function\n | Fsharp (Native) =\u003E fun () =\u003E $\u0022!str.Split (!separator, System.StringSplitOptions.None)\u0022\n | _ =\u003E fun () =\u003E str |\u003E split ((a separator : _ i32 _) |\u003E seq.of_array |\u003E concat (join \u0022\u0022))\n\n// // ## join\u0027\n\ninl join\u0027 (concat : string) (s : a i32 string) : string =\n $\u0022System.String.Join (!concat, !s)\u0022\n\n// // ## to_char_array\n\ninl to_char_array (str : string) : a i32 char =\n am.init (str |\u003E sm.length) (fun i =\u003E sm.index str i)\n\n// // ## to_char_list\n\ninl to_char_list (str : string) : list char =\n listm.init (str |\u003E sm.length) (fun (i : i64) =\u003E sm.index str i)\n\n// // ## utf8_get_bytes\n\ninl utf8_get_bytes (s : string) : a i32 u8 =\n s |\u003E $\u0027System.Text.Encoding.UTF8.GetBytes\u0027\n\n// // ## byte_to_string\n\ninl byte_to_string (format : string) (x : u8) : string =\n $\u0027!x.ToString\u0027 format\n\n// // ## to_string std_string\n\nopen rust\ninstance to_string std_string = from_std_string\n\n// // ## main\n\ninl main () =\n $\u0022let contains x = !contains x\u0022 : ()\n $\u0022let ends_with x = !ends_with x\u0022 : ()\n $\u0022let pad_left x = !pad_left x\u0022 : ()\n $\u0022let pad_right x = !pad_right x\u0022 : ()\n $\u0022let replace x = !replace x\u0022 : ()\n inl slice (a : i32) (b : i32) c = slice a b c\n $\u0022let slice x = !slice x\u0022 : ()\n $\u0022let split x = !split x\u0022 : ()\n $\u0022let split_string x = !split_string x\u0022 : ()\n $\u0022let starts_with x = !starts_with x\u0022 : ()\n $\u0022let substring x = !substring x\u0022 : ()\n $\u0022let to_lower x = !to_lower x\u0022 : ()\n $\u0022let to_upper x = !to_upper x\u0022 : ()\n $\u0022let trim x = !trim x\u0022 : ()\n $\u0022let trim_end x = !trim_end x\u0022 : ()\n $\u0022let trim_start x = !trim_start x\u0022 : ()\n $\u0022let ellipsis x = !ellipsis x\u0022 : ()\n $\u0022let ellipsis_end x = !ellipsis_end x\u0022 : ()\n $\u0022let format_exception x = !format_exception x\u0022 : ()\n $\u0022let concat_array_trailing x = !concat_array_trailing x\u0022 : ()\n inl concat a (b : seq.seq\u0027 string) = concat a b\n $\u0022let concat x = !concat x\u0022 : ()\n $\u0022let join\u0027 x = !join\u0027 x\u0022 : ()\n $\u0022let to_char_array x = !to_char_array x\u0022 : ()\n","uri":"file:///c:/home/git/polyglot/lib/spiral/sm\u0027.spi"}} / result.Length:
00:00:07 #83 [verbose] > Building c:\home\git\polyglot\lib\spiral\sm'.spi
00:00:07 #84 [debug] sendJson / port: 13805 / json: {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/lib/spiral/sm\u0027.spi"}} / result.Length:
00:00:07 #85 [debug] buildFile / takeWhileInclusive / fsxContent: type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri... / errors: [] / typeErrorCount: 0
00:00:07 #86 [debug] watchWithFilter / Disposing watch stream / filter: FileName, LastWrite
00:00:07 #87 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:09 #88 [debug] runWithTimeoutChildAsync / timeout: 2000
In [ ]:
{ . "$ScriptDir/../apps/scheduler/build.ps1" } | Invoke-Block
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #2 [debug] executeAsync / options: { Command =
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = Some <fun:main@441-43> }
00:00:00 #3 [verbose] > pwd: C:\home\git\polyglot\apps\scheduler
00:00:00 #4 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #5 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #6 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:01 #7 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:01 #8 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #9 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #10 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #11 [verbose] > Server bound to: http://localhost:13805
00:00:01 #12 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 Tasks.dib -Retries 3""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:00:04 #13 [verbose] >
00:00:04 #14 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 #15 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 #16 [verbose] > │ ## Tasks (Polyglot) │
00:00:04 #17 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 #18 [verbose] >
00:00:04 #19 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:04 #20 [verbose] > // // test
00:00:04 #21 [verbose] >
00:00:04 #22 [verbose] > open testing
00:00:07 #23 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef4271045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi
00:00:10 #24 [verbose] >
00:00:10 #25 [verbose] > ╭─[ 6.37s - stdout ]───────────────────────────────────────────────────────────╮
00:00:10 #26 [verbose] > │ () │
00:00:10 #27 [verbose] > │ │
00:00:10 #28 [verbose] > │ │
00:00:10 #29 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 #30 [verbose] >
00:00:10 #31 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 #32 [verbose] > inl types () =
00:00:10 #33 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"std::string::String\")>]]
00:00:10 #34 [verbose] > type std_string_String = class end"
00:00:10 #35 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"&$0\")>]] type Ref<'T> =
00:00:10 #36 [verbose] > class end"
00:00:10 #37 [verbose] > global "[[<Fable.Core.Erase; Fable.Core.Emit(\"str\")>]] type Str = class
00:00:10 #38 [verbose] > end"
00:00:10 #39 [verbose] >
00:00:10 #40 [verbose] > inl emit_expr forall a t. (args : a) (code : string) : t =
00:00:10 #41 [verbose] > real
00:00:10 #42 [verbose] > $"Fable.Core.RustInterop.emitRustExpr !args !code" : t
00:00:10 #43 [verbose] >
00:00:10 #44 [verbose] >
00:00:10 #45 [verbose] > nominal std_string = $"std_string_String"
00:00:10 #46 [verbose] > nominal ref' t = $"Ref<`t>"
00:00:10 #47 [verbose] > nominal str = $"Str"
00:00:10 #48 [verbose] >
00:00:10 #49 [verbose] > inl format_debug forall t. (x : t) : std_string =
00:00:10 #50 [verbose] > real
00:00:10 #51 [verbose] > emit_expr `t `std_string x "format!(\"{:?}\", $0)"
00:00:10 #52 [verbose] >
00:00:10 #53 [verbose] > inl format_pretty forall t. (x : t) : std_string =
00:00:10 #54 [verbose] > real
00:00:10 #55 [verbose] > emit_expr `t `std_string x "format!(\"{:#?}\", $0)"
00:00:10 #56 [verbose] >
00:00:10 #57 [verbose] > inl to_std_string (str : ref' str) : std_string =
00:00:10 #58 [verbose] > // inl str = join str
00:00:10 #59 [verbose] > // // emit_expr () $"\"!str.to_string()\""
00:00:10 #60 [verbose] > // // emit_expr () $"\"alloc::string::to_string(!str)\""
00:00:10 #61 [verbose] > // emit_expr str "($0).to_string()"
00:00:10 #62 [verbose] > emit_expr str $"\"String::from(core::ops::Deref::deref($0))\""
00:00:10 #63 [verbose] > // emit_expr str $"\"String::from(*$0)\""
00:00:10 #64 [verbose] > // emit_expr () $"\"String::from(!str)\""
00:00:10 #65 [verbose] >
00:00:10 #66 [verbose] > inl format forall t. (x : t) : std_string =
00:00:10 #67 [verbose] > real
00:00:10 #68 [verbose] > inl result : std_string =
00:00:10 #69 [verbose] > typecase t with
00:00:10 #70 [verbose] > | string => to_std_string x
00:00:10 #71 [verbose] > | std_string => x
00:00:10 #72 [verbose] > | _ => format_pretty `t x
00:00:10 #73 [verbose] > result
00:00:10 #74 [verbose] >
00:00:10 #75 [verbose] > inl raw_string_literal (s : string) : ref' str =
00:00:10 #76 [verbose] > emit_expr () $"\"r#\\\"\" + !s + \"\\\"#\""
00:00:10 #77 [verbose] >
00:00:10 #78 [verbose] > inl (~#) (s : string) : ref' str =
00:00:10 #79 [verbose] > raw_string_literal s
00:00:10 #80 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8bf0f8026c5d7e32fa037e9ac5cced9dbb98baefd90344b5b074a817cfaa5fc3\main.spi
00:00:10 #81 [verbose] >
00:00:10 #82 [verbose] > ╭─[ 312.92ms - stdout ]────────────────────────────────────────────────────────╮
00:00:10 #83 [verbose] > │ () │
00:00:10 #84 [verbose] > │ │
00:00:10 #85 [verbose] > │ │
00:00:10 #86 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:10 #87 [verbose] >
00:00:10 #88 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:10 #89 [verbose] > nominal task_name = string
00:00:10 #90 [verbose] >
00:00:10 #91 [verbose] > union manual_scheduling =
00:00:10 #92 [verbose] > | WithSuggestion
00:00:10 #93 [verbose] > | WithoutSuggestion
00:00:10 #94 [verbose] >
00:00:10 #95 [verbose] > union recurrency_offset =
00:00:10 #96 [verbose] > | Days : i32
00:00:10 #97 [verbose] > | Weeks : i32
00:00:10 #98 [verbose] > | Months : i32
00:00:10 #99 [verbose] >
00:00:10 #100 [verbose] > union day_of_week =
00:00:10 #101 [verbose] > | Sunday
00:00:10 #102 [verbose] > | Monday
00:00:10 #103 [verbose] > | Tuesday
00:00:10 #104 [verbose] > | Wednesday
00:00:10 #105 [verbose] > | Thursday
00:00:10 #106 [verbose] > | Friday
00:00:10 #107 [verbose] > | Saturday
00:00:10 #108 [verbose] >
00:00:10 #109 [verbose] > union month =
00:00:10 #110 [verbose] > | January
00:00:10 #111 [verbose] > | February
00:00:10 #112 [verbose] > | March
00:00:10 #113 [verbose] > | April
00:00:10 #114 [verbose] > | May
00:00:10 #115 [verbose] > | June
00:00:10 #116 [verbose] > | July
00:00:10 #117 [verbose] > | August
00:00:10 #118 [verbose] > | September
00:00:10 #119 [verbose] > | October
00:00:10 #120 [verbose] > | November
00:00:10 #121 [verbose] > | December
00:00:10 #122 [verbose] >
00:00:10 #123 [verbose] > nominal day = i32
00:00:10 #124 [verbose] > nominal year = i32
00:00:10 #125 [verbose] >
00:00:10 #126 [verbose] > union fixed_recurrency =
00:00:10 #127 [verbose] > | Weekly : day_of_week
00:00:10 #128 [verbose] > | Monthly : day
00:00:10 #129 [verbose] > | Yearly : day * month
00:00:10 #130 [verbose] >
00:00:10 #131 [verbose] > union recurrency =
00:00:10 #132 [verbose] > | Offset : recurrency_offset
00:00:10 #133 [verbose] > | Fixed : list fixed_recurrency
00:00:10 #134 [verbose] >
00:00:10 #135 [verbose] > union scheduling =
00:00:10 #136 [verbose] > | Manual : manual_scheduling
00:00:10 #137 [verbose] > | Recurrent : recurrency
00:00:10 #138 [verbose] >
00:00:10 #139 [verbose] > type task =
00:00:10 #140 [verbose] > {
00:00:10 #141 [verbose] > name : task_name
00:00:10 #142 [verbose] > scheduling : scheduling
00:00:10 #143 [verbose] > }
00:00:10 #144 [verbose] >
00:00:10 #145 [verbose] > type date =
00:00:10 #146 [verbose] > {
00:00:10 #147 [verbose] > year : year
00:00:10 #148 [verbose] > month : month
00:00:10 #149 [verbose] > day : day
00:00:10 #150 [verbose] > }
00:00:10 #151 [verbose] >
00:00:10 #152 [verbose] > union status =
00:00:10 #153 [verbose] > | Postponed : option ()
00:00:10 #154 [verbose] >
00:00:10 #155 [verbose] > type event =
00:00:10 #156 [verbose] > {
00:00:10 #157 [verbose] > date : date
00:00:10 #158 [verbose] > status : status
00:00:10 #159 [verbose] > }
00:00:10 #160 [verbose] >
00:00:10 #161 [verbose] > type task_template =
00:00:10 #162 [verbose] > {
00:00:10 #163 [verbose] > task : task
00:00:10 #164 [verbose] > events : list event
00:00:10 #165 [verbose] > }
00:00:10 #166 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\db5464a5d32680df08405bcc73aadabcbb2eb4a9dbe487c2bd58aeff5a28979e\main.spi
00:00:11 #167 [verbose] >
00:00:11 #168 [verbose] > ╭─[ 299.84ms - stdout ]────────────────────────────────────────────────────────╮
00:00:11 #169 [verbose] > │ () │
00:00:11 #170 [verbose] > │ │
00:00:11 #171 [verbose] > │ │
00:00:11 #172 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:11 #173 [verbose] >
00:00:11 #174 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:11 #175 [verbose] > // // test
00:00:11 #176 [verbose] > // // rust=
00:00:11 #177 [verbose] >
00:00:11 #178 [verbose] > types ()
00:00:11 #179 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\e0997170dcce3f6c7af64ca8658ea11a6d42ba115c8224f449dc4dc5e6768d3b\main.spi
00:00:16 #180 [verbose] >
00:00:16 #181 [verbose] > ╭─[ 4.97s - return value ]─────────────────────────────────────────────────────╮
00:00:16 #182 [verbose] > │ .rs output: │
00:00:16 #183 [verbose] > │ │
00:00:16 #184 [verbose] > │ │
00:00:16 #185 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 #186 [verbose] >
00:00:16 #187 [verbose] > ╭─[ 4.98s - stdout ]───────────────────────────────────────────────────────────╮
00:00:16 #188 [verbose] > │ │
00:00:16 #189 [verbose] > │ .fsx: │
00:00:16 #190 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:00:16 #191 [verbose] > │ std_string_String = class end │
00:00:16 #192 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:00:16 #193 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:00:16 #194 [verbose] > │ let rec method0 () : unit = │
00:00:16 #195 [verbose] > │ () │
00:00:16 #196 [verbose] > │ method0() │
00:00:16 #197 [verbose] > │ │
00:00:16 #198 [verbose] > │ │
00:00:16 #199 [verbose] > │ .rs: │
00:00:16 #200 [verbose] > │ #![allow(dead_code,)] │
00:00:16 #201 [verbose] > │ #![allow(non_camel_case_types,)] │
00:00:16 #202 [verbose] > │ #![allow(non_snake_case,)] │
00:00:16 #203 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:00:16 #204 [verbose] > │ #![allow(unreachable_code,)] │
00:00:16 #205 [verbose] > │ #![allow(unused_attributes,)] │
00:00:16 #206 [verbose] > │ #![allow(unused_imports,)] │
00:00:16 #207 [verbose] > │ #![allow(unused_macros,)] │
00:00:16 #208 [verbose] > │ #![allow(unused_parens,)] │
00:00:16 #209 [verbose] > │ #![allow(unused_variables,)] │
00:00:16 #210 [verbose] > │ mod module_ccfa04bf { │
00:00:16 #211 [verbose] > │ pub mod Spiral_eval { │
00:00:16 #212 [verbose] > │ use super::*; │
00:00:16 #213 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:00:16 #214 [verbose] > │ pub fn method0() { (); } │
00:00:16 #215 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:00:16 #216 [verbose] > │ } │
00:00:16 #217 [verbose] > │ } │
00:00:16 #218 [verbose] > │ pub use module_ccfa04bf::*; │
00:00:16 #219 [verbose] > │ │
00:00:16 #220 [verbose] > │ │
00:00:16 #221 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 #222 [verbose] >
00:00:16 #223 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 #224 [verbose] > // // test
00:00:16 #225 [verbose] > // // rust=
00:00:16 #226 [verbose] >
00:00:16 #227 [verbose] > inl get_tasks () : list task_template =
00:00:16 #228 [verbose] > [[
00:00:16 #229 [verbose] > {
00:00:16 #230 [verbose] > task =
00:00:16 #231 [verbose] > {
00:00:16 #232 [verbose] > name = task_name "01"
00:00:16 #233 [verbose] > scheduling = Manual WithSuggestion
00:00:16 #234 [verbose] > }
00:00:16 #235 [verbose] > events = [[]]
00:00:16 #236 [verbose] > }
00:00:16 #237 [verbose] > {
00:00:16 #238 [verbose] > task =
00:00:16 #239 [verbose] > {
00:00:16 #240 [verbose] > name = task_name "02"
00:00:16 #241 [verbose] > scheduling = Manual WithSuggestion
00:00:16 #242 [verbose] > }
00:00:16 #243 [verbose] > events = [[]]
00:00:16 #244 [verbose] > }
00:00:16 #245 [verbose] > {
00:00:16 #246 [verbose] > task =
00:00:16 #247 [verbose] > {
00:00:16 #248 [verbose] > name = task_name "03"
00:00:16 #249 [verbose] > scheduling = Manual WithSuggestion
00:00:16 #250 [verbose] > }
00:00:16 #251 [verbose] > events = [[]]
00:00:16 #252 [verbose] > }
00:00:16 #253 [verbose] > ]]
00:00:16 #254 [verbose] >
00:00:16 #255 [verbose] > types ()
00:00:16 #256 [verbose] > get_tasks () |> format_pretty |> console.write_line
00:00:16 #257 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c9f164cde8cf1cb54bb977085dd61aef45a038e2074bdf34269aab375a3cd662\main.spi
00:00:21 #258 [verbose] >
00:00:21 #259 [verbose] > ╭─[ 5.23s - return value ]─────────────────────────────────────────────────────╮
00:00:21 #260 [verbose] > │ .rs output: │
00:00:21 #261 [verbose] > │ UH2_1( │
00:00:21 #262 [verbose] > │ UH0_0, │
00:00:21 #263 [verbose] > │ "01", │
00:00:21 #264 [verbose] > │ US4_0( │
00:00:21 #265 [verbose] > │ US3_0, │
00:00:21 #266 [verbose] > │ ), │
00:00:21 #267 [verbose] > │ UH2_1( │
00:00:21 #268 [verbose] > │ UH0_0, │
00:00:21 #269 [verbose] > │ "02", │
00:00:21 #270 [verbose] > │ US4_0( │
00:00:21 #271 [verbose] > │ US3_0, │
00:00:21 #272 [verbose] > │ ), │
00:00:21 #273 [verbose] > │ UH2_1( │
00:00:21 #274 [verbose] > │ UH0_0, │
00:00:21 #275 [verbose] > │ "03", │
00:00:21 #276 [verbose] > │ US4_0( │
00:00:21 #277 [verbose] > │ US3_0, │
00:00:21 #278 [verbose] > │ ), │
00:00:21 #279 [verbose] > │ UH2_0, │
00:00:21 #280 [verbose] > │ ), │
00:00:21 #281 [verbose] > │ ), │
00:00:21 #282 [verbose] > │ ) │
00:00:21 #283 [verbose] > │ │
00:00:21 #284 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 #285 [verbose] >
00:00:21 #286 [verbose] > ╭─[ 5.25s - stdout ]───────────────────────────────────────────────────────────╮
00:00:21 #287 [verbose] > │ │
00:00:21 #288 [verbose] > │ .fsx: │
00:00:21 #289 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("std::string::String")>] type │
00:00:21 #290 [verbose] > │ std_string_String = class end │
00:00:21 #291 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("&$0")>] type Ref<'T> = class end │
00:00:21 #292 [verbose] > │ [<Fable.Core.Erase; Fable.Core.Emit("str")>] type Str = class end │
00:00:21 #293 [verbose] > │ type [<Struct>] US0 = │
00:00:21 #294 [verbose] > │ | US0_0 │
00:00:21 #295 [verbose] > │ | US0_1 │
00:00:21 #296 [verbose] > │ | US0_2 │
00:00:21 #297 [verbose] > │ | US0_3 │
00:00:21 #298 [verbose] > │ | US0_4 │
00:00:21 #299 [verbose] > │ | US0_5 │
00:00:21 #300 [verbose] > │ | US0_6 │
00:00:21 #301 [verbose] > │ | US0_7 │
00:00:21 #302 [verbose] > │ | US0_8 │
00:00:21 #303 [verbose] > │ | US0_9 │
00:00:21 #304 [verbose] > │ | US0_10 │
00:00:21 #305 [verbose] > │ | US0_11 │
00:00:21 #306 [verbose] > │ and [<Struct>] US2 = │
00:00:21 #307 [verbose] > │ | US2_0 │
00:00:21 #308 [verbose] > │ | US2_1 │
00:00:21 #309 [verbose] > │ and [<Struct>] US1 = │
00:00:21 #310 [verbose] > │ | US1_0 of f0_0 : US2 │
00:00:21 #311 [verbose] > │ and UH0 = │
00:00:21 #312 [verbose] > │ | UH0_0 │
00:00:21 #313 [verbose] > │ | UH0_1 of int32 * US0 * int32 * US1 * UH0 │
00:00:21 #314 [verbose] > │ and [<Struct>] US3 = │
00:00:21 #315 [verbose] > │ | US3_0 │
00:00:21 #316 [verbose] > │ | US3_1 │
00:00:21 #317 [verbose] > │ and [<Struct>] US6 = │
00:00:21 #318 [verbose] > │ | US6_0 of f0_0 : int32 │
00:00:21 #319 [verbose] > │ | US6_1 of f1_0 : int32 │
00:00:21 #320 [verbose] > │ | US6_2 of f2_0 : int32 │
00:00:21 #321 [verbose] > │ and [<Struct>] US8 = │
00:00:21 #322 [verbose] > │ | US8_0 │
00:00:21 #323 [verbose] > │ | US8_1 │
00:00:21 #324 [verbose] > │ | US8_2 │
00:00:21 #325 [verbose] > │ | US8_3 │
00:00:21 #326 [verbose] > │ | US8_4 │
00:00:21 #327 [verbose] > │ | US8_5 │
00:00:21 #328 [verbose] > │ | US8_6 │
00:00:21 #329 [verbose] > │ and [<Struct>] US7 = │
00:00:21 #330 [verbose] > │ | US7_0 of f0_0 : US8 │
00:00:21 #331 [verbose] > │ | US7_1 of f1_0 : int32 │
00:00:21 #332 [verbose] > │ | US7_2 of f2_0 : int32 * f2_1 : US0 │
00:00:21 #333 [verbose] > │ and UH1 = │
00:00:21 #334 [verbose] > │ | UH1_0 │
00:00:21 #335 [verbose] > │ | UH1_1 of US7 * UH1 │
00:00:21 #336 [verbose] > │ and [<Struct>] US5 = │
00:00:21 #337 [verbose] > │ | US5_0 of f0_0 : US6 │
00:00:21 #338 [verbose] > │ | US5_1 of f1_0 : UH1 │
00:00:21 #339 [verbose] > │ and [<Struct>] US4 = │
00:00:21 #340 [verbose] > │ | US4_0 of f0_0 : US3 │
00:00:21 #341 [verbose] > │ | US4_1 of f1_0 : US5 │
00:00:21 #342 [verbose] > │ and UH2 = │
00:00:21 #343 [verbose] > │ | UH2_0 │
00:00:21 #344 [verbose] > │ | UH2_1 of UH0 * string * US4 * UH2 │
00:00:21 #345 [verbose] > │ let rec method0 () : unit = │
00:00:21 #346 [verbose] > │ let v0 : UH0 = UH0_0 │
00:00:21 #347 [verbose] > │ let v1 : string = "01" │
00:00:21 #348 [verbose] > │ let v2 : US3 = US3_0 │
00:00:21 #349 [verbose] > │ let v3 : US4 = US4_0(v2) │
00:00:21 #350 [verbose] > │ let v4 : UH0 = UH0_0 │
00:00:21 #351 [verbose] > │ let v5 : string = "02" │
00:00:21 #352 [verbose] > │ let v6 : US3 = US3_0 │
00:00:21 #353 [verbose] > │ let v7 : US4 = US4_0(v6) │
00:00:21 #354 [verbose] > │ let v8 : UH0 = UH0_0 │
00:00:21 #355 [verbose] > │ let v9 : string = "03" │
00:00:21 #356 [verbose] > │ let v10 : US3 = US3_0 │
00:00:21 #357 [verbose] > │ let v11 : US4 = US4_0(v10) │
00:00:21 #358 [verbose] > │ let v12 : UH2 = UH2_0 │
00:00:21 #359 [verbose] > │ let v13 : UH2 = UH2_1(v8, v9, v11, v12) │
00:00:21 #360 [verbose] > │ let v14 : UH2 = UH2_1(v4, v5, v7, v13) │
00:00:21 #361 [verbose] > │ let v15 : UH2 = UH2_1(v0, v1, v3, v14) │
00:00:21 #362 [verbose] > │ let v16 : string = "format!(\"{:#?}\", $0)" │
00:00:21 #363 [verbose] > │ let v17 : std_string_String = Fable.Core.RustInterop.emitRustExpr v15 │
00:00:21 #364 [verbose] > │ v16 │
00:00:21 #365 [verbose] > │ System.Console.WriteLine v17 │
00:00:21 #366 [verbose] > │ () │
00:00:21 #367 [verbose] > │ method0() │
00:00:21 #368 [verbose] > │ │
00:00:21 #369 [verbose] > │ │
00:00:21 #370 [verbose] > │ .rs: │
00:00:21 #371 [verbose] > │ #![allow(dead_code,)] │
00:00:21 #372 [verbose] > │ #![allow(non_camel_case_types,)] │
00:00:21 #373 [verbose] > │ #![allow(non_snake_case,)] │
00:00:21 #374 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:00:21 #375 [verbose] > │ #![allow(unreachable_code,)] │
00:00:21 #376 [verbose] > │ #![allow(unused_attributes,)] │
00:00:21 #377 [verbose] > │ #![allow(unused_imports,)] │
00:00:21 #378 [verbose] > │ #![allow(unused_macros,)] │
00:00:21 #379 [verbose] > │ #![allow(unused_parens,)] │
00:00:21 #380 [verbose] > │ #![allow(unused_variables,)] │
00:00:21 #381 [verbose] > │ mod module_ccfa04bf { │
00:00:21 #382 [verbose] > │ pub mod Spiral_eval { │
00:00:21 #383 [verbose] > │ use super::*; │
00:00:21 #384 [verbose] > │ use fable_library_rust::Native_::LrcPtr; │
00:00:21 #385 [verbose] > │ use fable_library_rust::Native_::MutCell; │
00:00:21 #386 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:00:21 #387 [verbose] > │ use fable_library_rust::String_::printfn; │
00:00:21 #388 [verbose] > │ use fable_library_rust::String_::string; │
00:00:21 #389 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #390 [verbose] > │ pub enum US0 { │
00:00:21 #391 [verbose] > │ US0_0, │
00:00:21 #392 [verbose] > │ US0_1, │
00:00:21 #393 [verbose] > │ US0_2, │
00:00:21 #394 [verbose] > │ US0_3, │
00:00:21 #395 [verbose] > │ US0_4, │
00:00:21 #396 [verbose] > │ US0_5, │
00:00:21 #397 [verbose] > │ US0_6, │
00:00:21 #398 [verbose] > │ US0_7, │
00:00:21 #399 [verbose] > │ US0_8, │
00:00:21 #400 [verbose] > │ US0_9, │
00:00:21 #401 [verbose] > │ US0_10, │
00:00:21 #402 [verbose] > │ US0_11, │
00:00:21 #403 [verbose] > │ } │
00:00:21 #404 [verbose] > │ impl Spiral_eval::US0 { │
00:00:21 #405 [verbose] > │ pub fn get_IsUS0_0(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:21 #406 [verbose] > │ ()) │
00:00:21 #407 [verbose] > │ -> bool { │
00:00:21 #408 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #409 [verbose] > │ } │
00:00:21 #410 [verbose] > │ pub fn get_IsUS0_1(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:21 #411 [verbose] > │ ()) │
00:00:21 #412 [verbose] > │ -> bool { │
00:00:21 #413 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #414 [verbose] > │ } │
00:00:21 #415 [verbose] > │ pub fn get_IsUS0_2(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:21 #416 [verbose] > │ ()) │
00:00:21 #417 [verbose] > │ -> bool { │
00:00:21 #418 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #419 [verbose] > │ } │
00:00:21 #420 [verbose] > │ pub fn get_IsUS0_3(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:21 #421 [verbose] > │ ()) │
00:00:21 #422 [verbose] > │ -> bool { │
00:00:21 #423 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #424 [verbose] > │ } │
00:00:21 #425 [verbose] > │ pub fn get_IsUS0_4(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:21 #426 [verbose] > │ ()) │
00:00:21 #427 [verbose] > │ -> bool { │
00:00:21 #428 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #429 [verbose] > │ } │
00:00:21 #430 [verbose] > │ pub fn get_IsUS0_5(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:21 #431 [verbose] > │ ()) │
00:00:21 #432 [verbose] > │ -> bool { │
00:00:21 #433 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #434 [verbose] > │ } │
00:00:21 #435 [verbose] > │ pub fn get_IsUS0_6(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:21 #436 [verbose] > │ ()) │
00:00:21 #437 [verbose] > │ -> bool { │
00:00:21 #438 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #439 [verbose] > │ } │
00:00:21 #440 [verbose] > │ pub fn get_IsUS0_7(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:21 #441 [verbose] > │ ()) │
00:00:21 #442 [verbose] > │ -> bool { │
00:00:21 #443 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #444 [verbose] > │ } │
00:00:21 #445 [verbose] > │ pub fn get_IsUS0_8(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:21 #446 [verbose] > │ ()) │
00:00:21 #447 [verbose] > │ -> bool { │
00:00:21 #448 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #449 [verbose] > │ } │
00:00:21 #450 [verbose] > │ pub fn get_IsUS0_9(this_: &MutCell<Spiral_eval::US0>, unitArg: │
00:00:21 #451 [verbose] > │ ()) │
00:00:21 #452 [verbose] > │ -> bool { │
00:00:21 #453 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #454 [verbose] > │ } │
00:00:21 #455 [verbose] > │ pub fn get_IsUS0_10(this_: &MutCell<Spiral_eval::US0>, │
00:00:21 #456 [verbose] > │ unitArg: ()) -> bool { │
00:00:21 #457 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #458 [verbose] > │ } │
00:00:21 #459 [verbose] > │ pub fn get_IsUS0_11(this_: &MutCell<Spiral_eval::US0>, │
00:00:21 #460 [verbose] > │ unitArg: ()) -> bool { │
00:00:21 #461 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #462 [verbose] > │ } │
00:00:21 #463 [verbose] > │ } │
00:00:21 #464 [verbose] > │ impl core::fmt::Display for Spiral_eval::US0 { │
00:00:21 #465 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #466 [verbose] > │ { │
00:00:21 #467 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #468 [verbose] > │ } │
00:00:21 #469 [verbose] > │ } │
00:00:21 #470 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #471 [verbose] > │ pub enum US2 { US2_0, US2_1, } │
00:00:21 #472 [verbose] > │ impl Spiral_eval::US2 { │
00:00:21 #473 [verbose] > │ pub fn get_IsUS2_0(this_: &MutCell<Spiral_eval::US2>, unitArg: │
00:00:21 #474 [verbose] > │ ()) │
00:00:21 #475 [verbose] > │ -> bool { │
00:00:21 #476 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #477 [verbose] > │ } │
00:00:21 #478 [verbose] > │ pub fn get_IsUS2_1(this_: &MutCell<Spiral_eval::US2>, unitArg: │
00:00:21 #479 [verbose] > │ ()) │
00:00:21 #480 [verbose] > │ -> bool { │
00:00:21 #481 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #482 [verbose] > │ } │
00:00:21 #483 [verbose] > │ } │
00:00:21 #484 [verbose] > │ impl core::fmt::Display for Spiral_eval::US2 { │
00:00:21 #485 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #486 [verbose] > │ { │
00:00:21 #487 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #488 [verbose] > │ } │
00:00:21 #489 [verbose] > │ } │
00:00:21 #490 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #491 [verbose] > │ pub enum US1 { US1_0(Spiral_eval::US2), } │
00:00:21 #492 [verbose] > │ impl Spiral_eval::US1 { │
00:00:21 #493 [verbose] > │ pub fn get_IsUS1_0(this_: &MutCell<Spiral_eval::US1>, unitArg: │
00:00:21 #494 [verbose] > │ ()) │
00:00:21 #495 [verbose] > │ -> bool { │
00:00:21 #496 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #497 [verbose] > │ } │
00:00:21 #498 [verbose] > │ } │
00:00:21 #499 [verbose] > │ impl core::fmt::Display for Spiral_eval::US1 { │
00:00:21 #500 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #501 [verbose] > │ { │
00:00:21 #502 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #503 [verbose] > │ } │
00:00:21 #504 [verbose] > │ } │
00:00:21 #505 [verbose] > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #506 [verbose] > │ pub enum UH0 { │
00:00:21 #507 [verbose] > │ UH0_0, │
00:00:21 #508 [verbose] > │ UH0_1(i32, Spiral_eval::US0, i32, Spiral_eval::US1, │
00:00:21 #509 [verbose] > │ LrcPtr<Spiral_eval::UH0>), │
00:00:21 #510 [verbose] > │ } │
00:00:21 #511 [verbose] > │ impl Spiral_eval::UH0 { │
00:00:21 #512 [verbose] > │ pub fn get_IsUH0_0(this_: LrcPtr<Spiral_eval::UH0>, unitArg: ()) │
00:00:21 #513 [verbose] > │ -> bool { │
00:00:21 #514 [verbose] > │ if let Spiral_eval::UH0::UH0_0 = this_.as_ref() { │
00:00:21 #515 [verbose] > │ true │
00:00:21 #516 [verbose] > │ } else { false } │
00:00:21 #517 [verbose] > │ } │
00:00:21 #518 [verbose] > │ pub fn get_IsUH0_1(this_: LrcPtr<Spiral_eval::UH0>, unitArg: ()) │
00:00:21 #519 [verbose] > │ -> bool { │
00:00:21 #520 [verbose] > │ if let Spiral_eval::UH0::UH0_1(this__1_0, this__1_1, │
00:00:21 #521 [verbose] > │ this__1_2, this__1_3, │
00:00:21 #522 [verbose] > │ this__1_4) = this_.as_ref() { │
00:00:21 #523 [verbose] > │ true │
00:00:21 #524 [verbose] > │ } else { false } │
00:00:21 #525 [verbose] > │ } │
00:00:21 #526 [verbose] > │ } │
00:00:21 #527 [verbose] > │ impl core::fmt::Display for Spiral_eval::UH0 { │
00:00:21 #528 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #529 [verbose] > │ { │
00:00:21 #530 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #531 [verbose] > │ } │
00:00:21 #532 [verbose] > │ } │
00:00:21 #533 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #534 [verbose] > │ pub enum US3 { US3_0, US3_1, } │
00:00:21 #535 [verbose] > │ impl Spiral_eval::US3 { │
00:00:21 #536 [verbose] > │ pub fn get_IsUS3_0(this_: &MutCell<Spiral_eval::US3>, unitArg: │
00:00:21 #537 [verbose] > │ ()) │
00:00:21 #538 [verbose] > │ -> bool { │
00:00:21 #539 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #540 [verbose] > │ } │
00:00:21 #541 [verbose] > │ pub fn get_IsUS3_1(this_: &MutCell<Spiral_eval::US3>, unitArg: │
00:00:21 #542 [verbose] > │ ()) │
00:00:21 #543 [verbose] > │ -> bool { │
00:00:21 #544 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #545 [verbose] > │ } │
00:00:21 #546 [verbose] > │ } │
00:00:21 #547 [verbose] > │ impl core::fmt::Display for Spiral_eval::US3 { │
00:00:21 #548 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #549 [verbose] > │ { │
00:00:21 #550 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #551 [verbose] > │ } │
00:00:21 #552 [verbose] > │ } │
00:00:21 #553 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #554 [verbose] > │ pub enum US6 { US6_0(i32), US6_1(i32), US6_2(i32), } │
00:00:21 #555 [verbose] > │ impl Spiral_eval::US6 { │
00:00:21 #556 [verbose] > │ pub fn get_IsUS6_0(this_: &MutCell<Spiral_eval::US6>, unitArg: │
00:00:21 #557 [verbose] > │ ()) │
00:00:21 #558 [verbose] > │ -> bool { │
00:00:21 #559 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #560 [verbose] > │ } │
00:00:21 #561 [verbose] > │ pub fn get_IsUS6_1(this_: &MutCell<Spiral_eval::US6>, unitArg: │
00:00:21 #562 [verbose] > │ ()) │
00:00:21 #563 [verbose] > │ -> bool { │
00:00:21 #564 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #565 [verbose] > │ } │
00:00:21 #566 [verbose] > │ pub fn get_IsUS6_2(this_: &MutCell<Spiral_eval::US6>, unitArg: │
00:00:21 #567 [verbose] > │ ()) │
00:00:21 #568 [verbose] > │ -> bool { │
00:00:21 #569 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #570 [verbose] > │ } │
00:00:21 #571 [verbose] > │ } │
00:00:21 #572 [verbose] > │ impl core::fmt::Display for Spiral_eval::US6 { │
00:00:21 #573 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #574 [verbose] > │ { │
00:00:21 #575 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #576 [verbose] > │ } │
00:00:21 #577 [verbose] > │ } │
00:00:21 #578 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #579 [verbose] > │ pub enum US8 { US8_0, US8_1, US8_2, US8_3, US8_4, US8_5, US8_6, } │
00:00:21 #580 [verbose] > │ impl Spiral_eval::US8 { │
00:00:21 #581 [verbose] > │ pub fn get_IsUS8_0(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:21 #582 [verbose] > │ ()) │
00:00:21 #583 [verbose] > │ -> bool { │
00:00:21 #584 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #585 [verbose] > │ } │
00:00:21 #586 [verbose] > │ pub fn get_IsUS8_1(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:21 #587 [verbose] > │ ()) │
00:00:21 #588 [verbose] > │ -> bool { │
00:00:21 #589 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #590 [verbose] > │ } │
00:00:21 #591 [verbose] > │ pub fn get_IsUS8_2(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:21 #592 [verbose] > │ ()) │
00:00:21 #593 [verbose] > │ -> bool { │
00:00:21 #594 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #595 [verbose] > │ } │
00:00:21 #596 [verbose] > │ pub fn get_IsUS8_3(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:21 #597 [verbose] > │ ()) │
00:00:21 #598 [verbose] > │ -> bool { │
00:00:21 #599 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #600 [verbose] > │ } │
00:00:21 #601 [verbose] > │ pub fn get_IsUS8_4(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:21 #602 [verbose] > │ ()) │
00:00:21 #603 [verbose] > │ -> bool { │
00:00:21 #604 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #605 [verbose] > │ } │
00:00:21 #606 [verbose] > │ pub fn get_IsUS8_5(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:21 #607 [verbose] > │ ()) │
00:00:21 #608 [verbose] > │ -> bool { │
00:00:21 #609 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #610 [verbose] > │ } │
00:00:21 #611 [verbose] > │ pub fn get_IsUS8_6(this_: &MutCell<Spiral_eval::US8>, unitArg: │
00:00:21 #612 [verbose] > │ ()) │
00:00:21 #613 [verbose] > │ -> bool { │
00:00:21 #614 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #615 [verbose] > │ } │
00:00:21 #616 [verbose] > │ } │
00:00:21 #617 [verbose] > │ impl core::fmt::Display for Spiral_eval::US8 { │
00:00:21 #618 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #619 [verbose] > │ { │
00:00:21 #620 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #621 [verbose] > │ } │
00:00:21 #622 [verbose] > │ } │
00:00:21 #623 [verbose] > │ #[derive(Clone, Copy, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #624 [verbose] > │ pub enum US7 { │
00:00:21 #625 [verbose] > │ US7_0(Spiral_eval::US8), │
00:00:21 #626 [verbose] > │ US7_1(i32), │
00:00:21 #627 [verbose] > │ US7_2(i32, Spiral_eval::US0), │
00:00:21 #628 [verbose] > │ } │
00:00:21 #629 [verbose] > │ impl Spiral_eval::US7 { │
00:00:21 #630 [verbose] > │ pub fn get_IsUS7_0(this_: &MutCell<Spiral_eval::US7>, unitArg: │
00:00:21 #631 [verbose] > │ ()) │
00:00:21 #632 [verbose] > │ -> bool { │
00:00:21 #633 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #634 [verbose] > │ } │
00:00:21 #635 [verbose] > │ pub fn get_IsUS7_1(this_: &MutCell<Spiral_eval::US7>, unitArg: │
00:00:21 #636 [verbose] > │ ()) │
00:00:21 #637 [verbose] > │ -> bool { │
00:00:21 #638 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #639 [verbose] > │ } │
00:00:21 #640 [verbose] > │ pub fn get_IsUS7_2(this_: &MutCell<Spiral_eval::US7>, unitArg: │
00:00:21 #641 [verbose] > │ ()) │
00:00:21 #642 [verbose] > │ -> bool { │
00:00:21 #643 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #644 [verbose] > │ } │
00:00:21 #645 [verbose] > │ } │
00:00:21 #646 [verbose] > │ impl core::fmt::Display for Spiral_eval::US7 { │
00:00:21 #647 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #648 [verbose] > │ { │
00:00:21 #649 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #650 [verbose] > │ } │
00:00:21 #651 [verbose] > │ } │
00:00:21 #652 [verbose] > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #653 [verbose] > │ pub enum UH1 { │
00:00:21 #654 [verbose] > │ UH1_0, │
00:00:21 #655 [verbose] > │ UH1_1(Spiral_eval::US7, LrcPtr<Spiral_eval::UH1>), │
00:00:21 #656 [verbose] > │ } │
00:00:21 #657 [verbose] > │ impl Spiral_eval::UH1 { │
00:00:21 #658 [verbose] > │ pub fn get_IsUH1_0(this_: LrcPtr<Spiral_eval::UH1>, unitArg: ()) │
00:00:21 #659 [verbose] > │ -> bool { │
00:00:21 #660 [verbose] > │ if let Spiral_eval::UH1::UH1_0 = this_.as_ref() { │
00:00:21 #661 [verbose] > │ true │
00:00:21 #662 [verbose] > │ } else { false } │
00:00:21 #663 [verbose] > │ } │
00:00:21 #664 [verbose] > │ pub fn get_IsUH1_1(this_: LrcPtr<Spiral_eval::UH1>, unitArg: ()) │
00:00:21 #665 [verbose] > │ -> bool { │
00:00:21 #666 [verbose] > │ if let Spiral_eval::UH1::UH1_1(this__1_0, this__1_1) = │
00:00:21 #667 [verbose] > │ this_.as_ref() { │
00:00:21 #668 [verbose] > │ true │
00:00:21 #669 [verbose] > │ } else { false } │
00:00:21 #670 [verbose] > │ } │
00:00:21 #671 [verbose] > │ } │
00:00:21 #672 [verbose] > │ impl core::fmt::Display for Spiral_eval::UH1 { │
00:00:21 #673 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #674 [verbose] > │ { │
00:00:21 #675 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #676 [verbose] > │ } │
00:00:21 #677 [verbose] > │ } │
00:00:21 #678 [verbose] > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #679 [verbose] > │ pub enum US5 { │
00:00:21 #680 [verbose] > │ US5_0(Spiral_eval::US6), │
00:00:21 #681 [verbose] > │ US5_1(LrcPtr<Spiral_eval::UH1>), │
00:00:21 #682 [verbose] > │ } │
00:00:21 #683 [verbose] > │ impl Spiral_eval::US5 { │
00:00:21 #684 [verbose] > │ pub fn get_IsUS5_0(this_: &MutCell<Spiral_eval::US5>, unitArg: │
00:00:21 #685 [verbose] > │ ()) │
00:00:21 #686 [verbose] > │ -> bool { │
00:00:21 #687 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #688 [verbose] > │ } │
00:00:21 #689 [verbose] > │ pub fn get_IsUS5_1(this_: &MutCell<Spiral_eval::US5>, unitArg: │
00:00:21 #690 [verbose] > │ ()) │
00:00:21 #691 [verbose] > │ -> bool { │
00:00:21 #692 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #693 [verbose] > │ } │
00:00:21 #694 [verbose] > │ } │
00:00:21 #695 [verbose] > │ impl core::fmt::Display for Spiral_eval::US5 { │
00:00:21 #696 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #697 [verbose] > │ { │
00:00:21 #698 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #699 [verbose] > │ } │
00:00:21 #700 [verbose] > │ } │
00:00:21 #701 [verbose] > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #702 [verbose] > │ pub enum US4 { US4_0(Spiral_eval::US3), US4_1(Spiral_eval::US5), } │
00:00:21 #703 [verbose] > │ impl Spiral_eval::US4 { │
00:00:21 #704 [verbose] > │ pub fn get_IsUS4_0(this_: &MutCell<Spiral_eval::US4>, unitArg: │
00:00:21 #705 [verbose] > │ ()) │
00:00:21 #706 [verbose] > │ -> bool { │
00:00:21 #707 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #708 [verbose] > │ } │
00:00:21 #709 [verbose] > │ pub fn get_IsUS4_1(this_: &MutCell<Spiral_eval::US4>, unitArg: │
00:00:21 #710 [verbose] > │ ()) │
00:00:21 #711 [verbose] > │ -> bool { │
00:00:21 #712 [verbose] > │ if unreachable!() { true } else { false } │
00:00:21 #713 [verbose] > │ } │
00:00:21 #714 [verbose] > │ } │
00:00:21 #715 [verbose] > │ impl core::fmt::Display for Spiral_eval::US4 { │
00:00:21 #716 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #717 [verbose] > │ { │
00:00:21 #718 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #719 [verbose] > │ } │
00:00:21 #720 [verbose] > │ } │
00:00:21 #721 [verbose] > │ #[derive(Clone, Debug, PartialEq, PartialOrd, Hash, Eq,)] │
00:00:21 #722 [verbose] > │ pub enum UH2 { │
00:00:21 #723 [verbose] > │ UH2_0, │
00:00:21 #724 [verbose] > │ UH2_1(LrcPtr<Spiral_eval::UH0>, string, Spiral_eval::US4, │
00:00:21 #725 [verbose] > │ LrcPtr<Spiral_eval::UH2>), │
00:00:21 #726 [verbose] > │ } │
00:00:21 #727 [verbose] > │ impl Spiral_eval::UH2 { │
00:00:21 #728 [verbose] > │ pub fn get_IsUH2_0(this_: LrcPtr<Spiral_eval::UH2>, unitArg: ()) │
00:00:21 #729 [verbose] > │ -> bool { │
00:00:21 #730 [verbose] > │ if let Spiral_eval::UH2::UH2_0 = this_.as_ref() { │
00:00:21 #731 [verbose] > │ true │
00:00:21 #732 [verbose] > │ } else { false } │
00:00:21 #733 [verbose] > │ } │
00:00:21 #734 [verbose] > │ pub fn get_IsUH2_1(this_: LrcPtr<Spiral_eval::UH2>, unitArg: ()) │
00:00:21 #735 [verbose] > │ -> bool { │
00:00:21 #736 [verbose] > │ if let Spiral_eval::UH2::UH2_1(this__1_0, this__1_1, │
00:00:21 #737 [verbose] > │ this__1_2, this__1_3) = │
00:00:21 #738 [verbose] > │ this_.as_ref() { │
00:00:21 #739 [verbose] > │ true │
00:00:21 #740 [verbose] > │ } else { false } │
00:00:21 #741 [verbose] > │ } │
00:00:21 #742 [verbose] > │ } │
00:00:21 #743 [verbose] > │ impl core::fmt::Display for Spiral_eval::UH2 { │
00:00:21 #744 [verbose] > │ fn fmt(&self, f: &mut core::fmt::Formatter) -> core::fmt::Result │
00:00:21 #745 [verbose] > │ { │
00:00:21 #746 [verbose] > │ write!(f, "{}", core::any::type_name::<Self>()) │
00:00:21 #747 [verbose] > │ } │
00:00:21 #748 [verbose] > │ } │
00:00:21 #749 [verbose] > │ pub fn method0() { │
00:00:21 #750 [verbose] > │ let v17: std::string::String = │
00:00:21 #751 [verbose] > │ format!("{:#?}", │
00:00:21 #752 [verbose] > │ LrcPtr::new(Spiral_eval::UH2::UH2_1(LrcPtr::new(Spiral_eval::UH0::UH0_0), │
00:00:21 #753 [verbose] > │ │
00:00:21 #754 [verbose] > │ string("01"), │
00:00:21 #755 [verbose] > │ │
00:00:21 #756 [verbose] > │ Spiral_eval::US4::US4_0(Spiral_eval::US3::US3_0), │
00:00:21 #757 [verbose] > │ │
00:00:21 #758 [verbose] > │ LrcPtr::new(Spiral_eval::UH2::UH2_1(LrcPtr::new(Spiral_eval::UH0::UH0_0), │
00:00:21 #759 [verbose] > │ │
00:00:21 #760 [verbose] > │ string("02"), │
00:00:21 #761 [verbose] > │ │
00:00:21 #762 [verbose] > │ Spiral_eval::US4::US4_0(Spiral_eval::US3::US3_0), │
00:00:21 #763 [verbose] > │ │
00:00:21 #764 [verbose] > │ LrcPtr::new(Spiral_eval::UH2::UH2_1(LrcPtr::new(Spiral_eval::UH0::UH0_0), │
00:00:21 #765 [verbose] > │ │
00:00:21 #766 [verbose] > │ string("03"), │
00:00:21 #767 [verbose] > │ │
00:00:21 #768 [verbose] > │ Spiral_eval::US4::US4_0(Spiral_eval::US3::US3_0), │
00:00:21 #769 [verbose] > │ │
00:00:21 #770 [verbose] > │ LrcPtr::new(Spiral_eval::UH2::UH2_0)))))))); │
00:00:21 #771 [verbose] > │ printfn!("{0}", v17); │
00:00:21 #772 [verbose] > │ () │
00:00:21 #773 [verbose] > │ } │
00:00:21 #774 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:00:21 #775 [verbose] > │ } │
00:00:21 #776 [verbose] > │ } │
00:00:21 #777 [verbose] > │ pub use module_ccfa04bf::*; │
00:00:21 #778 [verbose] > │ │
00:00:21 #779 [verbose] > │ │
00:00:21 #780 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:21 #781 [verbose] >
00:00:21 #782 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:21 #783 [verbose] > // // test
00:00:21 #784 [verbose] > // // rust=
00:00:21 #785 [verbose] >
00:00:21 #786 [verbose] > get_tasks ()
00:00:21 #787 [verbose] > |> listm'.try_item 0i32
00:00:21 #788 [verbose] > |> fun (Some task) => task.task.name
00:00:21 #789 [verbose] > |> _assert_eq (task_name "01")
00:00:21 #790 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\fa99748b91ba258228d294de19a9333ebc1f94ecadfe39e11a75e012e43c8bdf\main.spi
00:00:26 #791 [verbose] >
00:00:26 #792 [verbose] > ╭─[ 4.47s - return value ]─────────────────────────────────────────────────────╮
00:00:26 #793 [verbose] > │ .rs output: │
00:00:26 #794 [verbose] > │ "01" │
00:00:26 #795 [verbose] > │ │
00:00:26 #796 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 #797 [verbose] >
00:00:26 #798 [verbose] > ╭─[ 4.47s - stdout ]───────────────────────────────────────────────────────────╮
00:00:26 #799 [verbose] > │ │
00:00:26 #800 [verbose] > │ .fsx: │
00:00:26 #801 [verbose] > │ let rec method0 () : unit = │
00:00:26 #802 [verbose] > │ let v0 : string = "01" │
00:00:26 #803 [verbose] > │ let v1 : string = $"%A{v0}" │
00:00:26 #804 [verbose] > │ System.Console.WriteLine v1 │
00:00:26 #805 [verbose] > │ let v2 : string = $"__expect / actual: %A{v0} / expected: %A{v0}" │
00:00:26 #806 [verbose] > │ () │
00:00:26 #807 [verbose] > │ method0() │
00:00:26 #808 [verbose] > │ │
00:00:26 #809 [verbose] > │ │
00:00:26 #810 [verbose] > │ .rs: │
00:00:26 #811 [verbose] > │ #![allow(dead_code,)] │
00:00:26 #812 [verbose] > │ #![allow(non_camel_case_types,)] │
00:00:26 #813 [verbose] > │ #![allow(non_snake_case,)] │
00:00:26 #814 [verbose] > │ #![allow(non_upper_case_globals,)] │
00:00:26 #815 [verbose] > │ #![allow(unreachable_code,)] │
00:00:26 #816 [verbose] > │ #![allow(unused_attributes,)] │
00:00:26 #817 [verbose] > │ #![allow(unused_imports,)] │
00:00:26 #818 [verbose] > │ #![allow(unused_macros,)] │
00:00:26 #819 [verbose] > │ #![allow(unused_parens,)] │
00:00:26 #820 [verbose] > │ #![allow(unused_variables,)] │
00:00:26 #821 [verbose] > │ mod module_ccfa04bf { │
00:00:26 #822 [verbose] > │ pub mod Spiral_eval { │
00:00:26 #823 [verbose] > │ use super::*; │
00:00:26 #824 [verbose] > │ use fable_library_rust::Native_::on_startup; │
00:00:26 #825 [verbose] > │ use fable_library_rust::String_::printfn; │
00:00:26 #826 [verbose] > │ use fable_library_rust::String_::sprintf; │
00:00:26 #827 [verbose] > │ use fable_library_rust::String_::string; │
00:00:26 #828 [verbose] > │ pub fn method0() { │
00:00:26 #829 [verbose] > │ let v1: string = sprintf!("{:?}", string("01")); │
00:00:26 #830 [verbose] > │ printfn!("{0}", v1); │
00:00:26 #831 [verbose] > │ { │
00:00:26 #832 [verbose] > │ let v2: string = │
00:00:26 #833 [verbose] > │ sprintf!("__expect / actual: {:?} / expected: {:?}", │
00:00:26 #834 [verbose] > │ string("01"), string("01")); │
00:00:26 #835 [verbose] > │ () │
00:00:26 #836 [verbose] > │ } │
00:00:26 #837 [verbose] > │ } │
00:00:26 #838 [verbose] > │ on_startup!(Spiral_eval::method0()); │
00:00:26 #839 [verbose] > │ } │
00:00:26 #840 [verbose] > │ } │
00:00:26 #841 [verbose] > │ pub use module_ccfa04bf::*; │
00:00:26 #842 [verbose] > │ │
00:00:26 #843 [verbose] > │ │
00:00:26 #844 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:26 #845 [verbose] >
00:00:26 #846 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:26 #847 [verbose] > // // test
00:00:26 #848 [verbose] >
00:00:26 #849 [verbose] > ()
00:00:26 #850 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c4fe50933042f3965823e7cd77411a990c23f38768e5bbe400b5e849103d94b9\main.spi
00:00:26 #851 [verbose] >
00:00:26 #852 [verbose] > ╭─[ 523.95ms - stdout ]────────────────────────────────────────────────────────╮
00:00:26 #853 [verbose] > │ let rec method0 () : unit = │
00:00:26 #854 [verbose] > │ () │
00:00:26 #855 [verbose] > │ method0() │
00:00:26 #856 [verbose] > │ │
00:00:26 #857 [verbose] > │ │
00:00:26 #858 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:28 #859 [verbose] > [NbConvertApp] Converting notebook Tasks.dib.ipynb to html
00:00:28 #860 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:00:28 #861 [verbose] > validate(nb)
00:00:28 #862 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:00:28 #863 [verbose] > return _pygments_highlight(
00:00:29 #864 [verbose] > [NbConvertApp] Writing 313974 bytes to Tasks.dib.html
00:00:29 #865 [debug] executeAsync / exitCode: 0 / output.Length: 56712
00:00:29 #866 [debug] main / executeCommand / exitCode: 0
00:00:32 #867 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #1 [debug] writeDibCode / output: Spi / path: Tasks.dib
00:00:00 #2 [debug] parseDibCode / output: Spi / file: Tasks.dib
In [ ]:
{ . "$ScriptDir/../apps/chat/build.ps1" } | Invoke-Block
Compiling quote v1.0.36 Compiling rustversion v1.0.15 Compiling syn v2.0.58 Compiling syn v1.0.109 Compiling proc-macro-error-attr v1.0.4 Compiling proc-macro-error v1.0.4 Compiling data-encoding-macro-internal v0.1.12 Compiling data-encoding-macro v0.1.14 Compiling multibase v0.9.1 Compiling darling_core v0.20.8 Compiling serde_derive v1.0.197 Compiling syn_derive v0.1.8 Compiling strum_macros v0.26.2 Compiling borsh-derive v1.4.0 Compiling darling_macro v0.20.8 Compiling darling v0.20.8 Compiling borsh v1.4.0 Compiling serde v1.0.197 Compiling serde_json v1.0.115 Compiling near-gas v0.2.5 Compiling near-account-id v1.0.0 Compiling near-token v0.2.0 Compiling near-sdk-macros v5.1.0 Compiling near-sdk v5.1.0 Compiling chat_contract v0.0.1 (C:\home\git\polyglot\apps\chat\contract) Finished `release` profile [optimized] target(s) in 31.22s Updating crates.io index Downloading crates ... Downloaded serde_repr v0.1.19 Downloaded time-macros v0.2.18 Downloaded quote v1.0.36 Downloaded rustversion v1.0.15 Downloaded jobserver v0.1.29 Downloaded getrandom v0.2.14 Downloaded async-trait v0.1.80 Downloaded anyhow v1.0.82 Downloaded cc v1.0.92 Downloaded time v0.3.36 Downloaded encoding_rs v0.8.34 Compiling quote v1.0.36 Compiling jobserver v0.1.29 Compiling getrandom v0.2.14 Compiling anyhow v1.0.82 Compiling syn v2.0.58 Compiling syn v1.0.109 Compiling cc v1.0.92 Compiling rand_core v0.6.4 Compiling proc-macro-error-attr v1.0.4 Compiling rustversion v1.0.15 Compiling rand_chacha v0.3.1 Compiling rand v0.8.5 Compiling time v0.3.36 Compiling zstd-sys v2.0.10+zstd.1.5.6 Compiling ring v0.17.8 Compiling bzip2-sys v0.1.11+1.0.8 Compiling darling_core v0.20.8 Compiling proc-macro-error v1.0.4 Compiling prost-derive v0.9.0 Compiling derive_more v0.99.17 Compiling serde_derive v1.0.197 Compiling tokio-macros v2.2.0 Compiling tracing-attributes v0.1.27 Compiling thiserror-impl v1.0.58 Compiling syn_derive v0.1.8 Compiling pin-project-internal v1.1.5 Compiling tokio v1.37.0 Compiling darling_macro v0.20.8 Compiling prost v0.9.0 Compiling prost-types v0.9.0 Compiling thiserror v1.0.58 Compiling tokio-stream v0.1.15 Compiling tracing v0.1.40 Compiling borsh-derive v1.4.0 Compiling serde v1.0.197 Compiling tokio-util v0.7.10 Compiling pin-project v1.1.5 Compiling strum_macros v0.24.3 Compiling async-trait v0.1.80 Compiling h2 v0.3.26 Compiling serde_json v1.0.115 Compiling hex v0.4.3 Compiling enum-map-derive v0.17.0 Compiling derive_arbitrary v1.3.2 Compiling openssl-sys v0.9.102 Compiling hyper v0.14.28 Compiling secp256k1-sys v0.8.1 Compiling enum-map v2.7.3 Compiling num-rational v0.3.2 Compiling prost-build v0.9.0 Compiling darling v0.20.8 Compiling serde_with_macros v3.7.0 Compiling arbitrary v1.3.2 Compiling serde_repr v0.1.19 Compiling curve25519-dalek-derive v0.1.1 Compiling strum v0.24.1 Compiling tonic-build v0.6.2 Compiling opentelemetry v0.17.0 Compiling borsh v1.4.0 Compiling uint v0.9.5 Compiling near-account-id v1.0.0 Compiling tokio-io-timeout v1.2.0 Compiling async-stream-impl v0.3.5 Compiling hyper-timeout v0.4.1 Compiling primitive-types v0.10.1 Compiling secp256k1 v0.27.0 Compiling opentelemetry-otlp v0.10.0 Compiling tower v0.4.13 Compiling zstd-safe v5.0.2+zstd.1.5.2 Compiling tracing-futures v0.2.5 Compiling near-config-utils v0.20.1 Compiling tracing-subscriber v0.3.18 Compiling tokio-util v0.6.10 Compiling curve25519-dalek v4.1.2 Compiling openssl v0.10.64 Compiling clap_derive v4.5.4 Compiling ed25519-dalek v2.1.1 Compiling near-crypto v0.20.1 Compiling serde_yaml v0.9.34+deprecated Compiling serde_with v3.7.0 Compiling rustls-webpki v0.102.2 Compiling async-stream v0.3.5 Compiling tonic v0.6.2 Compiling near-primitives-core v0.20.1 Compiling rustls v0.22.3 Compiling actix-rt v2.9.0 Compiling actix_derive v0.6.1 Compiling actix-macros v0.2.4 Compiling openssl-macros v0.1.1 Compiling zeropool-bn v0.5.11 Compiling chrono v0.4.37 Compiling near-parameters v0.20.1 Compiling native-tls v0.2.11 Compiling tracing-opentelemetry v0.17.4 Compiling prometheus v0.13.3 Compiling near-fmt v0.20.1 Compiling clap v4.5.4 Compiling zstd v0.11.2+zstd.1.5.2 Compiling bzip2 v0.4.4 Compiling url v2.5.0 Compiling semver v1.0.22 Compiling tracing-appender v0.2.3 Compiling opentelemetry-semantic-conventions v0.9.0 Compiling toml v0.5.11 Compiling near-rpc-error-core v0.20.1 Compiling serde_derive_internals v0.26.0 Compiling near-vm-runner v0.20.1 Compiling actix v0.13.3 Compiling ureq v2.9.6 Compiling zip v0.6.6 Compiling schemars_derive v0.8.16 Compiling password-hash v0.4.2 Compiling proc-macro-crate v0.1.5 Compiling near-rpc-error-macro v0.20.1 Compiling ahash v0.7.8 Compiling bytesize v1.3.0 Compiling scroll_derive v0.11.1 Compiling smart-default v0.6.0 Compiling borsh-derive-internal v0.9.3 Compiling borsh-schema-derive-internal v0.9.3 Compiling string_cache v0.8.7 Compiling binary-install v0.2.0 Compiling borsh-derive v0.9.3 Compiling tokio-native-tls v0.3.1 Compiling pbkdf2 v0.11.0 Compiling hashbrown v0.11.2 Compiling camino v1.1.6 Compiling cargo-platform v0.1.8 Compiling elementtree v0.7.0 Compiling near-sandbox-utils v0.7.0 Compiling hyper-tls v0.5.0 Compiling serde_urlencoded v0.7.1 Compiling zip v0.5.13 Compiling scroll v0.11.0 Compiling clap_derive v3.2.25 Compiling encoding_rs v0.8.34 Compiling goblin v0.5.4 Compiling near-workspaces v0.10.0 Compiling near-o11y v0.20.1 Compiling reqwest v0.11.27 Compiling cargo_metadata v0.14.2 Compiling schemars v0.8.16 Compiling symbolic-debuginfo v8.8.0 Compiling rustc_version v0.4.0 Compiling treediff v4.0.3 Compiling near-gas v0.2.5 Compiling json-patch v1.2.0 Compiling near-primitives v0.20.1 Compiling borsh v0.9.3 Compiling cargo_metadata v0.18.1 Compiling near-token v0.2.0 Compiling tokio-retry v0.3.0 Compiling near-abi v0.3.0 Compiling clap v3.2.25 Compiling cargo-near v0.3.1 Compiling near-chain-configs v0.20.1 Compiling near-jsonrpc-primitives v0.20.1 Compiling near-jsonrpc-client v0.8.0 Compiling chat_contract_tests v0.0.1 (/mnt/c/home/git/polyglot/apps/chat/contract/tests) Finished `release` profile [optimized] target(s) in 11m 59s Running `/mnt/c/home/git/polyglot/target/release/chat_contract_tests` Updated the logging layer according to `log_config.json` new: ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5283312675798, }, transaction: ExecutionOutcome { transaction_hash: 2RQpffwHcndaNtiHFxVK8BKP92BzJEtechJeiDZgeDtm, block_hash: 6JkiGtPiWaYKw6XUSaoCZoAtvYw4ZeJK8NcZVCQhDnnF, logs: [], receipt_ids: [ DpykyNhm2hDBzxTNSDzgXrDoqEhZrPpxD7ht6AJ47G4p, ], gas_burnt: NearGas { inner: 2427927707802, }, tokens_burnt: NearToken { inner: 242792770780200000000, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: SuccessReceiptId(DpykyNhm2hDBzxTNSDzgXrDoqEhZrPpxD7ht6AJ47G4p), }, receipts: [ ExecutionOutcome { transaction_hash: DpykyNhm2hDBzxTNSDzgXrDoqEhZrPpxD7ht6AJ47G4p, block_hash: 6JkiGtPiWaYKw6XUSaoCZoAtvYw4ZeJK8NcZVCQhDnnF, logs: [], receipt_ids: [ 3UqLNdBksveGNGTpJJMPc4fqUDzkr8MQHFYu2f4b9Fwq, ], gas_burnt: NearGas { inner: 2632202405496, }, tokens_burnt: NearToken { inner: 263220240549600000000, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 3UqLNdBksveGNGTpJJMPc4fqUDzkr8MQHFYu2f4b9Fwq, block_hash: EbMmUDyVomwXwMNHUE9u95t8sKqaekmqh7m7tLgy8b5, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.0035292528674330643 outcome (success: true): outcome_gas_burnt_usd: 0.001621855708811736 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.0017583112068713278 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 claim_alias(contract, ''): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5288162699656, }, transaction: ExecutionOutcome { transaction_hash: 9Dy9qWehfNLmTEtafXyzcHv7rFs4QJ64Vc4a7Hd26a3N, block_hash: 93jiVtiE5keiydrapyXM1RKxP5pffpm2swSMoX9LbPP1, logs: [], receipt_ids: [ qrZBdJku1qMW5GmWkUvPqcsqbSr6aEe8xYvPjQqK7uc, ], gas_burnt: NearGas { inner: 2427972426482, }, tokens_burnt: NearToken { inner: 242797242648200000000, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: SuccessReceiptId(qrZBdJku1qMW5GmWkUvPqcsqbSr6aEe8xYvPjQqK7uc), }, receipts: [ ExecutionOutcome { transaction_hash: qrZBdJku1qMW5GmWkUvPqcsqbSr6aEe8xYvPjQqK7uc, block_hash: 93jiVtiE5keiydrapyXM1RKxP5pffpm2swSMoX9LbPP1, logs: [ "claim_alias / alias: \"\" / account_id: AccountId(\n \"dev-20240412010708-31585857450264\",\n) / timestamp: 1712884030562518900", ], receipt_ids: [ 4cXtYih85QH2WyvCqzBqcAWUvHy6EdJHB9gcC21GCjkv, ], gas_burnt: NearGas { inner: 2637007710674, }, tokens_burnt: NearToken { inner: 263700771067400000000, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: Failure(ActionError(ActionError { index: Some(0), kind: FunctionCallError(ExecutionError("Smart contract panicked: Invalid alias")) })), }, ExecutionOutcome { transaction_hash: 4cXtYih85QH2WyvCqzBqcAWUvHy6EdJHB9gcC21GCjkv, block_hash: 9Knxq4pQ1VQSipMg1Hv71easKtWfV5ByM5x3YHbLqRqc, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: SuccessValue(''), }, ], status: Failure(ActionError(ActionError { index: Some(0), kind: FunctionCallError(ExecutionError("Smart contract panicked: Invalid alias")) })), } total_gas_burnt_usd: 0.003532492683370208 outcome (success: true): outcome_gas_burnt_usd: 0.001621885580889976 outcome_tokens_burnt_usd: 0.0 outcome (success: false): outcome_gas_burnt_usd: 0.001761521150730232 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 dev_create_account(account1): Account { id: AccountId( "dev-20240412010711-83534161322101", ), } generate_cid_borsh(account1): ViewResultDetails { result: [ 59, 0, 0, 0, 98, 97, 102, 107, 114, 101, 105, 104, 100, 119, 100, 99, 101, 102, 103, 104, 52, 100, 113, 107, 106, 118, 54, 55, 117, 122, 99, 109, 119, 55, 111, 106, 101, 101, 54, 120, 101, 100, 122, 100, 101, 116, 111, 106, 117, 122, 106, 101, 118, 116, 101, 110, 120, 113, 117, 118, 121, 107, 117, ], logs: [], } claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5709992188009, }, transaction: ExecutionOutcome { transaction_hash: J8k7cDWGhU2QNTCBGcJZeTFAp2Ki1GZhqCPVhqkLWxgJ, block_hash: 28NzpcQVF8UjvPxA7JfhPKQVmGUrjxXV58sXMvN4Jj1z, logs: [], receipt_ids: [ ABVzpMoD1Vje7NDyvkTMsWqSBkeAy39FK9Zq3PXN37aE, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240412010711-83534161322101", ), status: SuccessReceiptId(ABVzpMoD1Vje7NDyvkTMsWqSBkeAy39FK9Zq3PXN37aE), }, receipts: [ ExecutionOutcome { transaction_hash: ABVzpMoD1Vje7NDyvkTMsWqSBkeAy39FK9Zq3PXN37aE, block_hash: 9XTZBuSBi7KKMouYDgngs9yv56po4mR3WtsGnk6gtKtC, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240412010711-83534161322101\",\n) / timestamp: 1712884032829968038", ], receipt_ids: [ 2XqF5dxWt8o5ovTwqKEtJ3JcKNP8jhKNUF6BT6qtWzBE, ], gas_burnt: NearGas { inner: 3058823783423, }, tokens_burnt: NearToken { inner: 305882378342300000000, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 2XqF5dxWt8o5ovTwqKEtJ3JcKNP8jhKNUF6BT6qtWzBE, block_hash: H2gKzpoUzdJeypSX44SRm9zhcmizUL64ghfGdpWk821a, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240412010711-83534161322101", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.0038142747815900118 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.0020432942873265638 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5534353806826, }, transaction: ExecutionOutcome { transaction_hash: 84pnYBz7cExXf4r43vckNUKZR8mgaz1QppZbXrpKWCnJ, block_hash: FHHwAyRmEguQwY8nAqMU4xH1Vtbqe24oBbj3d5eXR12R, logs: [], receipt_ids: [ EHwHZbLfwEFTFhiZFzKRnsdxtzcrm3QDJ52kvbNuwriW, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240412010711-83534161322101", ), status: SuccessReceiptId(EHwHZbLfwEFTFhiZFzKRnsdxtzcrm3QDJ52kvbNuwriW), }, receipts: [ ExecutionOutcome { transaction_hash: EHwHZbLfwEFTFhiZFzKRnsdxtzcrm3QDJ52kvbNuwriW, block_hash: FNAr2iq8rbQhhQrp3oYdrZzua1SmvQVkXemiWWH6HUTd, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240412010711-83534161322101\",\n) / timestamp: 1712884033856370510", "Alias already claimed", ], receipt_ids: [ DxVvCd8kZZJ67mucBnmkghoSAeCgifHkJmTdkq2NmbHJ, ], gas_burnt: NearGas { inner: 2883185402240, }, tokens_burnt: NearToken { inner: 288318540224000000000, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: DxVvCd8kZZJ67mucBnmkghoSAeCgifHkJmTdkq2NmbHJ, block_hash: 75htyuQYQRsrvqSCWGuXuvmVhx5MLmzMatUduSS6zjq2, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240412010711-83534161322101", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003696948342959768 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.0019259678486963198 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias1", ( 1712884032829968038, 0, ), ), ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240412010711-83534161322101", ): ( 1712884032829968038, 0, ), }, ) dev_create_account(account2): Account { id: AccountId( "dev-20240412010714-92623150753475", ), } claim_alias(alias2): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 5797341967639, }, transaction: ExecutionOutcome { transaction_hash: DzXzFchbCruNWR3YNhD6JXufBPX93cfq2sUTYJxzdj3L, block_hash: AuuSQn6cNV4dFZGgXUvH7vX2JGYeQLXvxywE4MZqFz5H, logs: [], receipt_ids: [ CTfyCEpoCoq2XmBoPbq1j9buvpMBhi5DYWfKw4WP2uLX, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240412010714-92623150753475", ), status: SuccessReceiptId(CTfyCEpoCoq2XmBoPbq1j9buvpMBhi5DYWfKw4WP2uLX), }, receipts: [ ExecutionOutcome { transaction_hash: CTfyCEpoCoq2XmBoPbq1j9buvpMBhi5DYWfKw4WP2uLX, block_hash: G8fdeDFLLRd4qYAsj3XxNJDsr5DRH8Shx2XftpGP5BAX, logs: [ "claim_alias / alias: \"alias2\" / account_id: AccountId(\n \"dev-20240412010714-92623150753475\",\n) / timestamp: 1712884035918068753", ], receipt_ids: [ 33fEHFNm6erboP96TctsWo71GYcduNVsF8zjwxf9QP1g, ], gas_burnt: NearGas { inner: 3146173563053, }, tokens_burnt: NearToken { inner: 314617356305300000000, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 33fEHFNm6erboP96TctsWo71GYcduNVsF8zjwxf9QP1g, block_hash: CufY1r5S82ysnQM8kAansSXH22b78SQKQdxPZivqxHXn, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240412010714-92623150753475", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.003872624434382852 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002101643940119404 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account2): Some( ( "alias2", ( 1712884035918068753, 0, ), ), ) get_alias_map_borsh(alias2): Some( { AccountId( "dev-20240412010714-92623150753475", ): ( 1712884035918068753, 0, ), }, ) claim_alias(account2, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6101514926926, }, transaction: ExecutionOutcome { transaction_hash: Hc5DSDVGM7S3qu9Pfv6qi7d9DKVrXvhcXLygbaUcrB1D, block_hash: 8U1dWjyrk6r76Xegs4SDZEo4RRz4d5ZrkrjyTf8razw4, logs: [], receipt_ids: [ GFei9neRbVFYbbxWq5ZHYcNpntdzk74xHDWxwkz8NxBd, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240412010714-92623150753475", ), status: SuccessReceiptId(GFei9neRbVFYbbxWq5ZHYcNpntdzk74xHDWxwkz8NxBd), }, receipts: [ ExecutionOutcome { transaction_hash: GFei9neRbVFYbbxWq5ZHYcNpntdzk74xHDWxwkz8NxBd, block_hash: EnmnzWPQG7LHvXrUT8KEpxSEuVYJvw2nufxx1YE42soN, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240412010714-92623150753475\",\n) / timestamp: 1712884036931457723", ], receipt_ids: [ CacNXKJKN3anBAxbtv7cbEWv4bdWy5ZHf9D18sz8QwER, ], gas_burnt: NearGas { inner: 3450346522340, }, tokens_burnt: NearToken { inner: 345034652234000000000, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: CacNXKJKN3anBAxbtv7cbEWv4bdWy5ZHf9D18sz8QwER, block_hash: 92A612YgbWSmFaj4fKmSpLhaiqT3jaqSggqRrL6tTtq1, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240412010714-92623150753475", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.004075811971186568 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00230483147692312 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account2): Some( ( "alias1", ( 1712884036931457723, 1, ), ), ) get_alias_map(account2, alias1): Some( { AccountId( "dev-20240412010711-83534161322101", ): ( 1712884032829968038, 0, ), AccountId( "dev-20240412010714-92623150753475", ): ( 1712884036931457723, 1, ), }, ) get_alias_map(account2, alias2): Some( {}, ) claim_alias(account1, alias2): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6096189227338, }, transaction: ExecutionOutcome { transaction_hash: MsLR72TRdTLNnc4QCV7ogCF12aHLnYsEt9EExEu6nLw, block_hash: HVW9b4h86tVeL6nFaKWSy1oqyWMpuGgAGg5Nm5KUyLyg, logs: [], receipt_ids: [ 8LWz7Q5oszKSZw31V48nLRrmTx3nHmjvMzVapA1eToWf, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240412010711-83534161322101", ), status: SuccessReceiptId(8LWz7Q5oszKSZw31V48nLRrmTx3nHmjvMzVapA1eToWf), }, receipts: [ ExecutionOutcome { transaction_hash: 8LWz7Q5oszKSZw31V48nLRrmTx3nHmjvMzVapA1eToWf, block_hash: EN9hKgDecrro7136c5ueDAwVpZAPSauvoj9Jyf3Jpmst, logs: [ "claim_alias / alias: \"alias2\" / account_id: AccountId(\n \"dev-20240412010711-83534161322101\",\n) / timestamp: 1712884037945521094", ], receipt_ids: [ 88Fycp3wfeKWcfNXMHGciNTKP46uiqdQovUN8a8NfAhK, ], gas_burnt: NearGas { inner: 3445020822752, }, tokens_burnt: NearToken { inner: 344502082275200000000, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 88Fycp3wfeKWcfNXMHGciNTKP46uiqdQovUN8a8NfAhK, block_hash: CHydVyPWUNrVUYFepj1itSWY9mYh5WMPrnfJk3jU7fgH, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240412010711-83534161322101", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.004072254403861783 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.002301273909598336 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias2", ( 1712884037945521094, 0, ), ), ) get_alias_map(account1, alias2): Some( { AccountId( "dev-20240412010711-83534161322101", ): ( 1712884037945521094, 0, ), }, ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240412010714-92623150753475", ): ( 1712884036931457723, 1, ), }, ) claim_alias(account1, alias1): ExecutionFinalResult { total_gas_burnt: NearGas { inner: 6101514926926, }, transaction: ExecutionOutcome { transaction_hash: HUpjvrESoxG27PqQKmd5KNqmWrcQZCFVDQx5Miciucua, block_hash: ArQUPo4Nokx6mQBf7f8GBFuyrwvgv77KRyfD5xWV65KR, logs: [], receipt_ids: [ Rc3wcacxeEoSj7QPGkTem67xMcxswhKDNDjcNa79ruk, ], gas_burnt: NearGas { inner: 2427985842086, }, tokens_burnt: NearToken { inner: 242798584208600000000, }, executor_id: AccountId( "dev-20240412010711-83534161322101", ), status: SuccessReceiptId(Rc3wcacxeEoSj7QPGkTem67xMcxswhKDNDjcNa79ruk), }, receipts: [ ExecutionOutcome { transaction_hash: Rc3wcacxeEoSj7QPGkTem67xMcxswhKDNDjcNa79ruk, block_hash: DrqhMK1VerocfzAgczx7eAHbEgYiYSGQPRn3uedLDhA8, logs: [ "claim_alias / alias: \"alias1\" / account_id: AccountId(\n \"dev-20240412010711-83534161322101\",\n) / timestamp: 1712884038957907164", ], receipt_ids: [ 8WkuoFdzzMR37nwVACJUzfzzPVJDMZVSy8AXaeRTgEmU, ], gas_burnt: NearGas { inner: 3450346522340, }, tokens_burnt: NearToken { inner: 345034652234000000000, }, executor_id: AccountId( "dev-20240412010708-31585857450264", ), status: SuccessValue(''), }, ExecutionOutcome { transaction_hash: 8WkuoFdzzMR37nwVACJUzfzzPVJDMZVSy8AXaeRTgEmU, block_hash: 97Ghv8rZLNNY4zDNmryhdashhn88f8Kn1Nshrr79415g, logs: [], receipt_ids: [], gas_burnt: NearGas { inner: 223182562500, }, tokens_burnt: NearToken { inner: 0, }, executor_id: AccountId( "dev-20240412010711-83534161322101", ), status: SuccessValue(''), }, ], status: SuccessValue(''), } total_gas_burnt_usd: 0.004075811971186568 outcome (success: true): outcome_gas_burnt_usd: 0.0016218945425134478 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00230483147692312 outcome_tokens_burnt_usd: 0.0 outcome (success: true): outcome_gas_burnt_usd: 0.00014908595175 outcome_tokens_burnt_usd: 0.0 get_account_info(account1): Some( ( "alias1", ( 1712884038957907164, 1, ), ), ) get_alias_map(account1, alias1): Some( { AccountId( "dev-20240412010711-83534161322101", ): ( 1712884038957907164, 1, ), AccountId( "dev-20240412010714-92623150753475", ): ( 1712884036931457723, 0, ), }, ) get_alias_map(account1, alias2): Some( {}, )
In [ ]:
{ . "$ScriptDir/../apps/spiral/temp/extension/build.ps1" } | Invoke-Block
bun install v1.1.0 (5903a614) Checked 11 installs across 13 packages (no changes) [125.00ms] [INFO]: 🎯 Checking for the Wasm target... [INFO]: 🌀 Compiling to Wasm... Compiling bumpalo v3.16.0 Compiling quote v1.0.36 Compiling syn v2.0.58 Compiling proc-macro-utils v0.8.0 Compiling half v2.4.1 Compiling anyhow v1.0.82 Compiling const_format_proc_macros v0.2.32 Compiling proc-macro-error-attr v1.0.4 Compiling winnow v0.6.6 Compiling getrandom v0.2.14 Compiling ciborium-ll v0.2.2 Compiling uuid v1.8.0 Compiling manyhow-macros v0.10.4 Compiling proc-macro-error v1.0.4 Compiling const_format v0.2.32 Compiling wasm-bindgen-backend v0.2.92 Compiling server_fn_macro v0.6.11 Compiling proc-macro2-diagnostics v0.10.1 Compiling manyhow v0.10.4 Compiling prettyplease v0.2.17 Compiling wasm-bindgen-macro-support v0.2.92 Compiling serde_derive v1.0.197 Compiling thiserror-impl v1.0.58 Compiling futures-macro v0.3.30 Compiling derive-where v1.2.7 Compiling pin-project-internal v1.1.5 Compiling tracing-attributes v0.1.27 Compiling syn_derive v0.1.8 Compiling wasm-bindgen-macro v0.2.92 Compiling wasm-bindgen v0.2.92 Compiling server_fn_macro_default v0.6.11 Compiling js-sys v0.3.69 Compiling futures-util v0.3.30 Compiling typed-builder-macro v0.18.1 Compiling pin-project v1.1.5 Compiling async-recursion v1.1.0 Compiling thiserror v1.0.58 Compiling rstml v0.11.2 Compiling quote-use-macros v0.8.0 Compiling tracing v0.1.40 Compiling console_error_panic_hook v0.1.7 Compiling quote-use v0.8.0 Compiling attribute-derive-macro v0.9.1 Compiling web-sys v0.3.69 Compiling wasm-bindgen-futures v0.4.42 Compiling futures-executor v0.3.30 Compiling futures v0.3.30 Compiling typed-builder v0.18.1 Compiling serde v1.0.197 Compiling attribute-derive v0.9.1 Compiling serde_json v1.0.115 Compiling toml_datetime v0.6.5 Compiling serde_spanned v0.6.5 Compiling ciborium v0.2.2 Compiling serde-wasm-bindgen v0.6.5 Compiling slotmap v1.0.7 Compiling toml_edit v0.22.9 Compiling serde_qs v0.12.0 Compiling leptos_hot_reload v0.6.11 Compiling serde_test v1.0.176 Compiling serde_urlencoded v0.7.1 Compiling linear-map v1.2.0 Compiling toml v0.8.12 Compiling leptos_macro v0.6.11 Compiling config v0.14.0 Compiling leptos_config v0.6.11 Compiling gloo-utils v0.2.0 Compiling leptos_reactive v0.6.11 Compiling console_log v1.0.0 Compiling reqwest-wasm v0.11.16 Compiling gloo-net v0.5.0 Compiling wasm-streams v0.4.0 Compiling rexie v0.5.0 Compiling server_fn v0.6.11 Compiling leptos_dom v0.6.11 Compiling leptos_server v0.6.11 Compiling leptos v0.6.11 Compiling leptos_router v0.6.11 Compiling leptos_meta v0.6.11 Compiling spiral_temp_extension v0.0.1 (C:\home\git\polyglot\apps\spiral\temp\extension) Finished `dev` profile [unoptimized + debuginfo] target(s) in 1m 35s [INFO]: ⬇️ Installing wasm-bindgen... [INFO]: origin crate has no LICENSE [INFO]: ✨ Done in 1m 37s [INFO]: 📦 Your wasm pkg is ready to publish at C:\home\git\polyglot\apps\spiral\temp\extension\pkg. ▲ [WARNING] "import.meta" is not available with the "iife" output format and will be empty [empty-import-meta] pkg/spiral_temp_extension.js:1503:57: 1503 │ ...put = new URL('spiral_temp_extension_bg.wasm', import.meta.url); ╵ ~~~~~~~~~~~ You need to set the output format to "esm" for "import.meta" to work correctly. 1 warning dist\spiral_temp_extension_bg-5EMUH2KO.wasm 4.6mb ⚠️ dist\devtools.js 29.0kb dist\content_script.js 27.4kb dist\service_worker.js 2.2kb ⚡ Done in 74ms $ playwright test [WebServer] (node:65072) [DEP0040] DeprecationWarning: The `punycode` module is deprecated. Please use a userland alternative instead. (Use `node --trace-deprecation ...` to show where the warning was created) Running 3 tests using 3 workers [1/3] [Desktop Chrome] › extension.spec.ts:3:5 › popup localhost [2/3] [Desktop Chrome] › extension.spec.ts:13:5 › libgen [3/3] [Desktop Chrome] › extension.spec.ts:8:5 › popup extension 3 passed (18.3s) To open last HTML report run: npx playwright show-report
In [ ]:
{ . "$ScriptDir/../apps/spiral/temp/test/build.ps1" } | Invoke-Block
── pwsh ────────────────────────────────────────────────────────────────────────
. ../../../../scripts/nbs_header.ps1
. ../../../../scripts/core.ps1
── pwsh ────────────────────────────────────────────────────────────────────────
{ . ../../../../apps/spiral/dist/Supervisor$(GetExecutableSuffix)
--execute-command "pwsh -c `"../../../../scripts/invoke-dib.ps1 test.dib`"" } |
Invoke-Block -Retries 5
╭─[ 22.24s - stdout ]──────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:00 #2 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:main@441-43> } │
│ 00:00:00 #3 [verbose] > pwd: C:\home\git\polyglot\apps\spiral\temp\test │
│ 00:00:00 #4 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:00 #5 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:00 #6 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:00 #7 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:00 #8 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:01 #9 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:01 #10 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:01 #11 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:01 #12 [debug] executeAsync / options: { Command = "pwsh -c │
│ "../../../../scripts/invoke-dib.ps1 test.dib"" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = None } │
│ 00:00:04 #13 [verbose] > │
│ 00:00:04 #14 [verbose] > ── markdown │
│ ──────────────────────────────────────────────────────────────────── │
│ 00:00:04 #15 [verbose] > │
│ ╭─────────────────────────────────────────────────────────────────────────── │
│ ───╮ │
│ 00:00:04 #16 [verbose] > │ # test (Polyglot) │
│ │ │
│ 00:00:04 #17 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:04 #18 [verbose] > │
│ 00:00:04 #19 [verbose] > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:04 #20 [verbose] > // // test │
│ 00:00:04 #21 [verbose] > │
│ 00:00:04 #22 [verbose] > open testing │
│ 00:00:07 #23 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8837341da068f4ef42 │
│ 71045b3ef1c89d209237bf74b4f11596b6ee2d484becb0\main.spi │
│ 00:00:10 #24 [verbose] > │
│ 00:00:10 #25 [verbose] > ╭─[ 6.40s - stdout │
│ ]───────────────────────────────────────────────────────────╮ │
│ 00:00:10 #26 [verbose] > │ () │
│ │ │
│ 00:00:10 #27 [verbose] > │ │
│ │
│ │ │
│ 00:00:10 #28 [verbose] > │ │
│ │
│ │ │
│ 00:00:10 #29 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:10 #30 [verbose] > │
│ 00:00:10 #31 [verbose] > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:10 #32 [verbose] > nominal i = () │
│ 00:00:10 #33 [verbose] > nominal e = () │
│ 00:00:10 #34 [verbose] > nominal s = () │
│ 00:00:10 #35 [verbose] > nominal n = () │
│ 00:00:10 #36 [verbose] > nominal t = () │
│ 00:00:10 #37 [verbose] > nominal f = () │
│ 00:00:10 #38 [verbose] > nominal j = () │
│ 00:00:10 #39 [verbose] > nominal p = () │
│ 00:00:10 #40 [verbose] > │
│ 00:00:10 #41 [verbose] > union sensing = │
│ 00:00:10 #42 [verbose] > | Si : s * i │
│ 00:00:10 #43 [verbose] > | Se : s * e │
│ 00:00:10 #44 [verbose] > │
│ 00:00:10 #45 [verbose] > union intuition = │
│ 00:00:10 #46 [verbose] > | Ni : n * i │
│ 00:00:10 #47 [verbose] > | Ne : n * e │
│ 00:00:10 #48 [verbose] > │
│ 00:00:10 #49 [verbose] > union thinking = │
│ 00:00:10 #50 [verbose] > | Ti : t * i │
│ 00:00:10 #51 [verbose] > | Te : t * e │
│ 00:00:10 #52 [verbose] > │
│ 00:00:10 #53 [verbose] > union feeling = │
│ 00:00:10 #54 [verbose] > | Fi : f * i │
│ 00:00:10 #55 [verbose] > | Fe : f * e │
│ 00:00:10 #56 [verbose] > │
│ 00:00:10 #57 [verbose] > union function_stack = │
│ 00:00:10 #58 [verbose] > | FS : sensing * intuition * thinking * feeling │
│ 00:00:10 #59 [verbose] > │
│ 00:00:10 #60 [verbose] > union personality_type = │
│ 00:00:10 #61 [verbose] > | ISTJ : i * s * t * j * function_stack │
│ 00:00:10 #62 [verbose] > | ISFJ : i * s * f * j * function_stack │
│ 00:00:10 #63 [verbose] > | INFJ : i * n * f * j * function_stack │
│ 00:00:10 #64 [verbose] > | INTJ : i * n * t * j * function_stack │
│ 00:00:10 #65 [verbose] > | ISTP : i * s * t * p * function_stack │
│ 00:00:10 #66 [verbose] > | ISFP : i * s * f * p * function_stack │
│ 00:00:10 #67 [verbose] > | INFP : i * n * f * p * function_stack │
│ 00:00:10 #68 [verbose] > | INTP : i * n * t * p * function_stack │
│ 00:00:10 #69 [verbose] > | ESTP : e * s * t * p * function_stack │
│ 00:00:10 #70 [verbose] > | ESFP : e * s * f * p * function_stack │
│ 00:00:10 #71 [verbose] > | ENFP : e * n * f * p * function_stack │
│ 00:00:10 #72 [verbose] > | ENTP : e * n * t * p * function_stack │
│ 00:00:10 #73 [verbose] > | ESTJ : e * s * t * j * function_stack │
│ 00:00:10 #74 [verbose] > | ESFJ : e * s * f * j * function_stack │
│ 00:00:10 #75 [verbose] > | ENFJ : e * n * f * j * function_stack │
│ 00:00:10 #76 [verbose] > | ENTJ : e * n * t * j * function_stack │
│ 00:00:10 #77 [verbose] > │
│ 00:00:10 #78 [verbose] > │
│ 00:00:10 #79 [verbose] > inl main () = │
│ 00:00:10 #80 [verbose] > inl istj_stack = FS ((Si (s, i)), Ne (n, e), │
│ (Te (t, e)), (Fi (f, i))) │
│ 00:00:10 #81 [verbose] > inl istj_personality = ISTJ (i, s, t, j, │
│ istj_stack) │
│ 00:00:10 #82 [verbose] > // inl isfj_stack = FS ((Si (s, i)), Ne (n, e), │
│ (Fe (f, e)), (Ti (t, i))) │
│ 00:00:10 #83 [verbose] > // inl isfj_personality = ISFJ (i, s, f, j, │
│ isfj_stack) │
│ 00:00:10 #84 [verbose] > │
│ 00:00:10 #85 [verbose] > ;[[ │
│ 00:00:10 #86 [verbose] > istj_personality │
│ 00:00:10 #87 [verbose] > ]] │
│ 00:00:10 #88 [verbose] > |> fun x => $'$"%A{!x}"' : string │
│ 00:00:10 #89 [verbose] > |> console.write_line │
│ 00:00:10 #90 [verbose] > │
│ 00:00:10 #91 [verbose] > inl main () = │
│ 00:00:10 #92 [verbose] > $"!main ()" : () │
│ 00:00:11 #93 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\896eb5e4f49dc571cf │
│ d998d8dd04fa4597ef12c513a22c93b9dcddcbf0c87da2\main.spi │
│ 00:00:12 #94 [verbose] > │
│ 00:00:12 #95 [verbose] > ╭─[ 1.91s - stdout │
│ ]───────────────────────────────────────────────────────────╮ │
│ 00:00:12 #96 [verbose] > │ type [<Struct>] US0 = │
│ │ │
│ 00:00:12 #97 [verbose] > │ | US0_0 │
│ │ │
│ 00:00:12 #98 [verbose] > │ | US0_1 │
│ │ │
│ 00:00:12 #99 [verbose] > │ and [<Struct>] US1 = │
│ │ │
│ 00:00:12 #100 [verbose] > │ | US1_0 │
│ │ │
│ 00:00:12 #101 [verbose] > │ | US1_1 │
│ │ │
│ 00:00:12 #102 [verbose] > │ and [<Struct>] US2 = │
│ │ │
│ 00:00:12 #103 [verbose] > │ | US2_0 │
│ │ │
│ 00:00:12 #104 [verbose] > │ | US2_1 │
│ │ │
│ 00:00:12 #105 [verbose] > │ and [<Struct>] US3 = │
│ │ │
│ 00:00:12 #106 [verbose] > │ | US3_0 │
│ │ │
│ 00:00:12 #107 [verbose] > │ | US3_1 │
│ │ │
│ 00:00:12 #108 [verbose] > │ and [<Struct>] US4 = │
│ │ │
│ 00:00:12 #109 [verbose] > │ | US4_0 of f0_0 : US0 * f0_1 : US1 * f0_2 : │
│ US2 * f0_3 : US3 │ │
│ 00:00:12 #110 [verbose] > │ and [<Struct>] US5 = │
│ │ │
│ 00:00:12 #111 [verbose] > │ | US5_0 of f0_0 : US4 │
│ │ │
│ 00:00:12 #112 [verbose] > │ | US5_1 of f1_0 : US4 │
│ │ │
│ 00:00:12 #113 [verbose] > │ | US5_2 of f2_0 : US4 │
│ │ │
│ 00:00:12 #114 [verbose] > │ | US5_3 of f3_0 : US4 │
│ │ │
│ 00:00:12 #115 [verbose] > │ | US5_4 of f4_0 : US4 │
│ │ │
│ 00:00:12 #116 [verbose] > │ | US5_5 of f5_0 : US4 │
│ │ │
│ 00:00:12 #117 [verbose] > │ | US5_6 of f6_0 : US4 │
│ │ │
│ 00:00:12 #118 [verbose] > │ | US5_7 of f7_0 : US4 │
│ │ │
│ 00:00:12 #119 [verbose] > │ | US5_8 of f8_0 : US4 │
│ │ │
│ 00:00:12 #120 [verbose] > │ | US5_9 of f9_0 : US4 │
│ │ │
│ 00:00:12 #121 [verbose] > │ | US5_10 of f10_0 : US4 │
│ │ │
│ 00:00:12 #122 [verbose] > │ | US5_11 of f11_0 : US4 │
│ │ │
│ 00:00:12 #123 [verbose] > │ | US5_12 of f12_0 : US4 │
│ │ │
│ 00:00:12 #124 [verbose] > │ | US5_13 of f13_0 : US4 │
│ │ │
│ 00:00:12 #125 [verbose] > │ | US5_14 of f14_0 : US4 │
│ │ │
│ 00:00:12 #126 [verbose] > │ | US5_15 of f15_0 : US4 │
│ │ │
│ 00:00:12 #127 [verbose] > │ let rec closure0 () () : unit = │
│ │ │
│ 00:00:12 #128 [verbose] > │ let v0 : US0 = US0_0 │
│ │ │
│ 00:00:12 #129 [verbose] > │ let v1 : US1 = US1_1 │
│ │ │
│ 00:00:12 #130 [verbose] > │ let v2 : US2 = US2_1 │
│ │ │
│ 00:00:12 #131 [verbose] > │ let v3 : US3 = US3_0 │
│ │ │
│ 00:00:12 #132 [verbose] > │ let v4 : US4 = US4_0(v0, v1, v2, v3) │
│ │ │
│ 00:00:12 #133 [verbose] > │ let v5 : US5 = US5_0(v4) │
│ │ │
│ 00:00:12 #134 [verbose] > │ let v6 : (US5 []) = [|v5|] │
│ │ │
│ 00:00:12 #135 [verbose] > │ let v7 : string = $"%A{v6}" │
│ │ │
│ 00:00:12 #136 [verbose] > │ System.Console.WriteLine v7 │
│ │ │
│ 00:00:12 #137 [verbose] > │ () │
│ │ │
│ 00:00:12 #138 [verbose] > │ let v0 : (unit -> unit) = closure0() │
│ │ │
│ 00:00:12 #139 [verbose] > │ v0 () │
│ │ │
│ 00:00:12 #140 [verbose] > │ () │
│ │ │
│ 00:00:12 #141 [verbose] > │ │
│ │
│ │ │
│ 00:00:12 #142 [verbose] > │ [|US5_0 (US4_0 (US0_0, US1_1, US2_1, US3_0))|] │
│ │ │
│ 00:00:12 #143 [verbose] > │ │
│ │
│ │ │
│ 00:00:12 #144 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:12 #145 [verbose] > │
│ 00:00:12 #146 [verbose] > ── fsharp │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:12 #147 [verbose] > type PhonologicalFeature = │
│ 00:00:12 #148 [verbose] > | VowelFeature of │
│ 00:00:12 #149 [verbose] > height: Height │
│ 00:00:12 #150 [verbose] > * backness: Backness │
│ 00:00:12 #151 [verbose] > * roundedness: Roundedness │
│ 00:00:12 #152 [verbose] > * tone: Option<Tone> │
│ 00:00:12 #153 [verbose] > * stress: Option<Stress> │
│ 00:00:12 #154 [verbose] > * length: Option<Length> │
│ 00:00:12 #155 [verbose] > | ConsonantFeature of │
│ 00:00:12 #156 [verbose] > place: PlaceOfArticulation │
│ 00:00:12 #157 [verbose] > * manner: MannerOfArticulation │
│ 00:00:12 #158 [verbose] > * voicing: Voicing │
│ 00:00:12 #159 [verbose] > * length: Option<Length> │
│ 00:00:12 #160 [verbose] > | VowelHarmonyFeature │
│ 00:00:12 #161 [verbose] > | PitchAccentFeature │
│ 00:00:12 #162 [verbose] > │
│ 00:00:12 #163 [verbose] > and Stress = Primary | Secondary │
│ 00:00:12 #164 [verbose] > and Length = Long | Short | HalfLong │
│ 00:00:12 #165 [verbose] > │
│ 00:00:12 #166 [verbose] > and Height = │
│ 00:00:12 #167 [verbose] > | High | NearHigh | HighMid │
│ 00:00:12 #168 [verbose] > | Mid | LowMid | NearLow │
│ 00:00:12 #169 [verbose] > | Low │
│ 00:00:12 #170 [verbose] > │
│ 00:00:12 #171 [verbose] > and Backness = Front | Central | Back │
│ 00:00:12 #172 [verbose] > │
│ 00:00:12 #173 [verbose] > and Roundedness = Rounded | Unrounded │
│ 00:00:12 #174 [verbose] > │
│ 00:00:12 #175 [verbose] > and PlaceOfArticulation = │
│ 00:00:12 #176 [verbose] > | Bilabial | Labiodental | Dental │
│ 00:00:12 #177 [verbose] > | Alveolar | Postalveolar | Retroflex │
│ 00:00:12 #178 [verbose] > | Palatal | Velar | Uvular │
│ 00:00:12 #179 [verbose] > | Pharyngeal | Epiglottal | Glottal │
│ 00:00:12 #180 [verbose] > │
│ 00:00:12 #181 [verbose] > and MannerOfArticulation = │
│ 00:00:12 #182 [verbose] > | Plosive | Nasal | Trill │
│ 00:00:12 #183 [verbose] > | TapOrFlap | Fricative | LateralFricative │
│ 00:00:12 #184 [verbose] > | Approximant | LateralApproximant │
│ 00:00:12 #185 [verbose] > │
│ 00:00:12 #186 [verbose] > and Voicing = Voiced | Voiceless │
│ 00:00:12 #187 [verbose] > │
│ 00:00:12 #188 [verbose] > and SecondaryArticulation = │
│ 00:00:12 #189 [verbose] > | Labialization | Palatalization | │
│ Velarization │
│ 00:00:12 #190 [verbose] > | Pharyngealization | Aspiration │
│ 00:00:12 #191 [verbose] > │
│ 00:00:12 #192 [verbose] > and Tone = │
│ 00:00:12 #193 [verbose] > | LevelTone of int │
│ 00:00:12 #194 [verbose] > | ContourTone of int list │
│ 00:00:12 #195 [verbose] > │
│ 00:00:12 #196 [verbose] > and MorphologicalFeature = │
│ 00:00:12 #197 [verbose] > | RootFeature of string │
│ 00:00:12 #198 [verbose] > | AffixFeature of AffixType * string │
│ 00:00:12 #199 [verbose] > | IncorporationFeature of string * │
│ MorphologicalFeature │
│ 00:00:12 #200 [verbose] > | NonConcatenativePattern of string * string │
│ 00:00:12 #201 [verbose] > | AgglutinativeAffixFeature of │
│ AgglutinativeAffixType * string │
│ 00:00:12 #202 [verbose] > | HonorificFeature of HonorificType * string │
│ 00:00:12 #203 [verbose] > │
│ 00:00:12 #204 [verbose] > and AgglutinativeAffixType = Suffix | Prefix │
│ 00:00:12 #205 [verbose] > │
│ 00:00:12 #206 [verbose] > and HonorificType = VerbHonorific | NounHonorific │
│ 00:00:12 #207 [verbose] > │
│ 00:00:12 #208 [verbose] > and AffixType = │
│ 00:00:12 #209 [verbose] > | Prefix | Suffix | Infix │
│ 00:00:12 #210 [verbose] > | Circumfix │
│ 00:00:12 #211 [verbose] > │
│ 00:00:12 #212 [verbose] > type SyntacticFeature = │
│ 00:00:12 #213 [verbose] > | WordFeature of MorphologicalFeature list * │
│ LexicalCategory │
│ 00:00:12 #214 [verbose] > | PhraseFeature of PhraseType * │
│ SyntacticFeature list │
│ 00:00:12 #215 [verbose] > | GrammaticalRelation of │
│ GrammaticalRelationType * SyntacticFeature list │
│ 00:00:12 #216 [verbose] > | SOVOrderFeature │
│ 00:00:12 #217 [verbose] > | TopicCommentFeature │
│ 00:00:12 #218 [verbose] > │
│ 00:00:12 #219 [verbose] > and GrammaticalRelationType = │
│ 00:00:12 #220 [verbose] > | Ergative | Absolutive | Nominative │
│ 00:00:12 #221 [verbose] > | Accusative │
│ 00:00:12 #222 [verbose] > │
│ 00:00:12 #223 [verbose] > and LexicalCategory = │
│ 00:00:12 #224 [verbose] > | Noun | Verb | Adjective │
│ 00:00:12 #225 [verbose] > | Adverb | Pronoun | Preposition │
│ 00:00:12 #226 [verbose] > | Conjunction | Determiner | Interjection │
│ 00:00:12 #227 [verbose] > │
│ 00:00:12 #228 [verbose] > and PhraseType = │
│ 00:00:12 #229 [verbose] > | NP | VP | AP │
│ 00:00:12 #230 [verbose] > | PP | CP │
│ 00:00:12 #231 [verbose] > │
│ 00:00:12 #232 [verbose] > and SemanticFeature = │
│ 00:00:12 #233 [verbose] > | Meaning of string │
│ 00:00:12 #234 [verbose] > | SemanticRole of SemanticRoleType * │
│ SemanticFeature │
│ 00:00:12 #235 [verbose] > │
│ 00:00:12 #236 [verbose] > and SemanticRoleType = │
│ 00:00:12 #237 [verbose] > | Agent | Patient | Instrument │
│ 00:00:12 #238 [verbose] > | Location | Time | Cause │
│ 00:00:12 #239 [verbose] > │
│ 00:00:12 #240 [verbose] > and PragmaticFeature = │
│ 00:00:12 #241 [verbose] > | UseContext of string │
│ 00:00:12 #242 [verbose] > | PolitenessLevel of Politeness │
│ 00:00:12 #243 [verbose] > | SpeechAct of SpeechActType │
│ 00:00:12 #244 [verbose] > | SpeechLevel of SpeechLevelType │
│ 00:00:12 #245 [verbose] > │
│ 00:00:12 #246 [verbose] > and Politeness = Formal | Informal | Neutral │
│ 00:00:12 #247 [verbose] > │
│ 00:00:12 #248 [verbose] > and SpeechActType = │
│ 00:00:12 #249 [verbose] > | Assertive | Directive | Commissive │
│ 00:00:12 #250 [verbose] > | Expressive | Declarative │
│ 00:00:12 #251 [verbose] > │
│ 00:00:12 #252 [verbose] > and SpeechLevelType = │
│ 00:00:12 #253 [verbose] > | FormalHigh | FormalLow | InformalHigh │
│ 00:00:12 #254 [verbose] > | InformalLow | Neutral │
│ 00:00:12 #255 [verbose] > │
│ 00:00:12 #256 [verbose] > type LinguisticFeature = │
│ 00:00:12 #257 [verbose] > | Phonological of PhonologicalFeature │
│ 00:00:12 #258 [verbose] > | Morphological of MorphologicalFeature │
│ 00:00:12 #259 [verbose] > | Syntactic of SyntacticFeature │
│ 00:00:12 #260 [verbose] > | Semantic of SemanticFeature │
│ 00:00:12 #261 [verbose] > | Pragmatic of PragmaticFeature │
│ 00:00:12 #262 [verbose] > │
│ 00:00:12 #263 [verbose] > type LanguageConstruct = │
│ 00:00:12 #264 [verbose] > | LanguageElement of LinguisticFeature │
│ 00:00:12 #265 [verbose] > | LanguageStructure of LanguageConstruct list │
│ 00:00:12 #266 [verbose] > | TranslationElement of TranslationFeature │
│ 00:00:12 #267 [verbose] > │
│ 00:00:12 #268 [verbose] > and TranslationFeature = │
│ 00:00:12 #269 [verbose] > | LinkedPhonological of PhonologicalFeature * │
│ PhonologicalFeature │
│ 00:00:12 #270 [verbose] > | LinkedMorphological of MorphologicalFeature │
│ * MorphologicalFeature │
│ 00:00:12 #271 [verbose] > | LinkedSyntactic of SyntacticFeature * │
│ SyntacticFeature │
│ 00:00:12 #272 [verbose] > | LinkedSemantic of SemanticFeature * │
│ SemanticFeature │
│ 00:00:12 #273 [verbose] > │
│ 00:00:12 #274 [verbose] > type Discourse = DiscourseUnit of │
│ LanguageConstruct list │
│ 00:00:12 #275 [verbose] > │
│ 00:00:12 #276 [verbose] > type LanguageModel = │
│ 00:00:12 #277 [verbose] > | Model of discourse: Discourse │
│ 00:00:12 #278 [verbose] > │
│ 00:00:12 #279 [verbose] > ── fsharp - import │
│ ───────────────────────────────────────────────────────────── │
│ 00:00:12 #280 [verbose] > #r │
│ 00:00:12 #281 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.A │
│ 00:00:12 #282 [verbose] > spNetCore.Html.Abstractions.dll" │
│ 00:00:12 #283 [verbose] > #r │
│ 00:00:12 #284 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:12 #285 [verbose] > otNet.Interactive.dll" │
│ 00:00:12 #286 [verbose] > #r │
│ 00:00:12 #287 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:12 #288 [verbose] > otNet.Interactive.FSharp.dll" │
│ 00:00:12 #289 [verbose] > #r │
│ 00:00:12 #290 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:12 #291 [verbose] > otNet.Interactive.Formatting.dll" │
│ 00:00:12 #292 [verbose] > open System │
│ 00:00:12 #293 [verbose] > open System.IO │
│ 00:00:12 #294 [verbose] > open System.Text │
│ 00:00:12 #295 [verbose] > open Microsoft.DotNet.Interactive.Formatting │
│ 00:00:14 #296 [verbose] > │
│ 00:00:14 #297 [verbose] > ── fsharp - import │
│ ───────────────────────────────────────────────────────────── │
│ 00:00:14 #298 [verbose] > #r │
│ 00:00:14 #299 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:14 #300 [verbose] > otNet.Interactive.FSharp.dll" │
│ 00:00:14 #301 [verbose] > open │
│ Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers │
│ 00:00:14 #302 [verbose] > #r │
│ 00:00:14 #303 [verbose] > │
│ "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microso │
│ ft.D │
│ 00:00:14 #304 [verbose] > otNet.Interactive.dll" │
│ 00:00:14 #305 [verbose] > open type Microsoft.DotNet.Interactive.Kernel │
│ 00:00:14 #306 [verbose] > │
│ 00:00:14 #307 [verbose] > ── fsharp - import │
│ ───────────────────────────────────────────────────────────── │
│ 00:00:14 #308 [verbose] > type PhonologicalFeature = │
│ 00:00:14 #309 [verbose] > | VowelFeature of │
│ 00:00:14 #310 [verbose] > height: Height │
│ 00:00:14 #311 [verbose] > * backness: Backness │
│ 00:00:14 #312 [verbose] > * roundedness: Roundedness │
│ 00:00:14 #313 [verbose] > * tone: Option<Tone> │
│ 00:00:14 #314 [verbose] > * stress: Option<Stress> │
│ 00:00:14 #315 [verbose] > * length: Option<Length> │
│ 00:00:14 #316 [verbose] > | ConsonantFeature of │
│ 00:00:14 #317 [verbose] > place: PlaceOfArticulation │
│ 00:00:14 #318 [verbose] > * manner: MannerOfArticulation │
│ 00:00:14 #319 [verbose] > * voicing: Voicing │
│ 00:00:14 #320 [verbose] > * length: Option<Length> │
│ 00:00:14 #321 [verbose] > | VowelHarmonyFeature │
│ 00:00:14 #322 [verbose] > | PitchAccentFeature │
│ 00:00:14 #323 [verbose] > │
│ 00:00:14 #324 [verbose] > and Stress = Primary | Secondary │
│ 00:00:14 #325 [verbose] > and Length = Long | Short | HalfLong │
│ 00:00:14 #326 [verbose] > │
│ 00:00:14 #327 [verbose] > and Height = │
│ 00:00:14 #328 [verbose] > | High | NearHigh | HighMid │
│ 00:00:14 #329 [verbose] > | Mid | LowMid | NearLow │
│ 00:00:14 #330 [verbose] > | Low │
│ 00:00:14 #331 [verbose] > │
│ 00:00:14 #332 [verbose] > and Backness = Front | Central | Back │
│ 00:00:14 #333 [verbose] > │
│ 00:00:14 #334 [verbose] > and Roundedness = Rounded | Unrounded │
│ 00:00:14 #335 [verbose] > │
│ 00:00:14 #336 [verbose] > and PlaceOfArticulation = │
│ 00:00:14 #337 [verbose] > | Bilabial | Labiodental | Dental │
│ 00:00:14 #338 [verbose] > | Alv... │
│ 00:00:15 #339 [verbose] > │
│ 00:00:15 #340 [verbose] > ── fsharp │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:15 #341 [verbose] > let testEnglish = │
│ 00:00:15 #342 [verbose] > Model( │
│ 00:00:15 #343 [verbose] > DiscourseUnit [[ │
│ 00:00:15 #344 [verbose] > LanguageElement (Phonological │
│ (ConsonantFeature (Alveolar, Nasal, │
│ 00:00:15 #345 [verbose] > Voiced, Some(HalfLong)))); │
│ 00:00:15 #346 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (High, Front, Unrounded, │
│ 00:00:15 #347 [verbose] > Some(LevelTone 1), Some(Primary), Some(Short)))); │
│ 00:00:15 #348 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (Low, Front, Unrounded, │
│ 00:00:15 #349 [verbose] > Some(LevelTone 2), Some(Secondary), Some(Long)))); │
│ 00:00:15 #350 [verbose] > LanguageElement (Phonological │
│ (ConsonantFeature (Velar, Plosive, │
│ 00:00:15 #351 [verbose] > Voiceless, Some(HalfLong)))); │
│ 00:00:15 #352 [verbose] > LanguageElement (Morphological │
│ (RootFeature "I")); │
│ 00:00:15 #353 [verbose] > LanguageElement (Morphological │
│ (RootFeature "see")); │
│ 00:00:15 #354 [verbose] > LanguageElement (Morphological │
│ (RootFeature "a")); │
│ 00:00:15 #355 [verbose] > LanguageElement (Morphological │
│ (RootFeature "cat")); │
│ 00:00:15 #356 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:15 #357 [verbose] > ([[RootFeature "I"]], Pronoun)]]))); │
│ 00:00:15 #358 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (VP, [[WordFeature │
│ 00:00:15 #359 [verbose] > ([[RootFeature "see"]], Verb)]]))); │
│ 00:00:15 #360 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:15 #361 [verbose] > ([[RootFeature "a"; RootFeature "cat"]], │
│ Noun)]]))); │
│ 00:00:15 #362 [verbose] > LanguageElement (Semantic (Meaning │
│ "Perception act of a feline by │
│ 00:00:15 #363 [verbose] > the speaker")); │
│ 00:00:15 #364 [verbose] > LanguageElement (Pragmatic (UseContext │
│ "Statement of an action being │
│ 00:00:15 #365 [verbose] > observed")) │
│ 00:00:15 #366 [verbose] > ]] │
│ 00:00:15 #367 [verbose] > ) │
│ 00:00:15 #368 [verbose] > │
│ 00:00:15 #369 [verbose] > let testPortuguese = │
│ 00:00:15 #370 [verbose] > Model( │
│ 00:00:15 #371 [verbose] > DiscourseUnit [[ │
│ 00:00:15 #372 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (High, Front, Unrounded, │
│ 00:00:15 #373 [verbose] > Some(LevelTone 1), Some(Primary), Some(Short)))); │
│ 00:00:15 #374 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (Low, Front, Unrounded, │
│ 00:00:15 #375 [verbose] > Some(LevelTone 2), Some(Secondary), Some(Long)))); │
│ 00:00:15 #376 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (Mid, Back, Rounded, │
│ 00:00:15 #377 [verbose] > Some(LevelTone 3), Some(Primary), Some(Short)))); │
│ 00:00:15 #378 [verbose] > LanguageElement (Phonological │
│ (ConsonantFeature (Velar, Plosive, │
│ 00:00:15 #379 [verbose] > Voiceless, Some(HalfLong)))); │
│ 00:00:15 #380 [verbose] > LanguageElement (Morphological │
│ (RootFeature "Eu")); │
│ 00:00:15 #381 [verbose] > LanguageElement (Morphological │
│ (RootFeature "ver" |> ignore; │
│ 00:00:15 #382 [verbose] > AffixFeature (Suffix, "o"))); │
│ 00:00:15 #383 [verbose] > LanguageElement (Morphological │
│ (RootFeature "um")); │
│ 00:00:15 #384 [verbose] > LanguageElement (Morphological │
│ (RootFeature "gato")); │
│ 00:00:15 #385 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:15 #386 [verbose] > ([[RootFeature "Eu"]], Pronoun)]]))); │
│ 00:00:15 #387 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (VP, [[WordFeature │
│ 00:00:15 #388 [verbose] > ([[RootFeature "vejo"]], Verb)]]))); │
│ 00:00:15 #389 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:15 #390 [verbose] > ([[RootFeature "um"; RootFeature "gato"]], │
│ Noun)]]))); │
│ 00:00:15 #391 [verbose] > LanguageElement (Semantic (Meaning │
│ "Ação de percepção de um felino │
│ 00:00:15 #392 [verbose] > pelo falante")); │
│ 00:00:15 #393 [verbose] > LanguageElement (Pragmatic (UseContext │
│ "Declaração de uma ação sendo │
│ 00:00:15 #394 [verbose] > observada")) │
│ 00:00:15 #395 [verbose] > ]] │
│ 00:00:15 #396 [verbose] > ) │
│ 00:00:15 #397 [verbose] > │
│ 00:00:15 #398 [verbose] > let testKorean = │
│ 00:00:15 #399 [verbose] > Model( │
│ 00:00:15 #400 [verbose] > DiscourseUnit [[ │
│ 00:00:15 #401 [verbose] > LanguageElement (Phonological │
│ (ConsonantFeature (Alveolar, Nasal, │
│ 00:00:15 #402 [verbose] > Voiced, Some(Short)))); │
│ 00:00:15 #403 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (High, Back, Rounded, │
│ 00:00:15 #404 [verbose] > None, None, Some(Short)))); │
│ 00:00:15 #405 [verbose] > LanguageElement (Phonological │
│ (VowelFeature (Mid, Front, Unrounded, │
│ 00:00:15 #406 [verbose] > None, None, Some(Long)))); │
│ 00:00:15 #407 [verbose] > LanguageElement (Phonological │
│ (ConsonantFeature (Bilabial, Plosive, │
│ 00:00:15 #408 [verbose] > Voiceless, Some(Short)))); │
│ 00:00:15 #409 [verbose] > LanguageElement (Morphological │
│ (RootFeature "나")); │
│ 00:00:15 #410 [verbose] > LanguageElement (Morphological │
│ (RootFeature "보다")); │
│ 00:00:15 #411 [verbose] > LanguageElement (Morphological │
│ (AffixFeature (Suffix, "아"))); │
│ 00:00:15 #412 [verbose] > LanguageElement (Morphological │
│ (RootFeature "고양이")); │
│ 00:00:15 #413 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:15 #414 [verbose] > ([[RootFeature "나"]], Pronoun)]]))); │
│ 00:00:15 #415 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (VP, [[WordFeature │
│ 00:00:15 #416 [verbose] > ([[RootFeature "보다"; AffixFeature (Suffix, │
│ "아")]], Verb)]]))); │
│ 00:00:15 #417 [verbose] > LanguageElement (Syntactic │
│ (PhraseFeature (NP, [[WordFeature │
│ 00:00:15 #418 [verbose] > ([[RootFeature "고양이"]], Noun)]]))); │
│ 00:00:15 #419 [verbose] > LanguageElement (Semantic (Meaning │
│ "화자에 의한 고양이의 관찰 │
│ 00:00:15 #420 [verbose] > 행위")); │
│ 00:00:15 #421 [verbose] > LanguageElement (Pragmatic (UseContext │
│ "관찰되고 있는 행동의 진술")) │
│ 00:00:15 #422 [verbose] > ]] │
│ 00:00:15 #423 [verbose] > ) │
│ 00:00:15 #424 [verbose] > │
│ 00:00:15 #425 [verbose] > ── markdown │
│ ──────────────────────────────────────────────────────────────────── │
│ 00:00:15 #426 [verbose] > │
│ ╭─────────────────────────────────────────────────────────────────────────── │
│ ───╮ │
│ 00:00:15 #427 [verbose] > │ ## main │
│ │ │
│ 00:00:15 #428 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:15 #429 [verbose] > │
│ 00:00:15 #430 [verbose] > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:15 #431 [verbose] > inl main (_args : array_base string) = │
│ 00:00:15 #432 [verbose] > 0i32 │
│ 00:00:15 #433 [verbose] > │
│ 00:00:15 #434 [verbose] > inl main () = │
│ 00:00:15 #435 [verbose] > $"let main args = !main args" : () │
│ 00:00:15 #436 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\c48d29976c738797f6 │
│ 0d78b6a562dc599537d1a8d03c8800ac0a97a2fe76010b\main.spi │
│ 00:00:15 #437 [verbose] > │
│ 00:00:15 #438 [verbose] > ╭─[ 314.99ms - stdout │
│ ]────────────────────────────────────────────────────────╮ │
│ 00:00:15 #439 [verbose] > │ let rec closure0 () (v0 : (string [])) : int32 = │
│ │ │
│ 00:00:15 #440 [verbose] > │ 0 │
│ │ │
│ 00:00:15 #441 [verbose] > │ let v0 : ((string []) -> int32) = closure0() │
│ │ │
│ 00:00:15 #442 [verbose] > │ let main args = v0 args │
│ │ │
│ 00:00:15 #443 [verbose] > │ () │
│ │ │
│ 00:00:15 #444 [verbose] > │ │
│ │
│ │ │
│ 00:00:15 #445 [verbose] > │ │
│ │
│ │ │
│ 00:00:15 #446 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:15 #447 [verbose] > │
│ 00:00:15 #448 [verbose] > ── spiral │
│ ────────────────────────────────────────────────────────────────────── │
│ 00:00:15 #449 [verbose] > inl app () = │
│ 00:00:15 #450 [verbose] > "test" |> console.write_line │
│ 00:00:15 #451 [verbose] > 0i32 │
│ 00:00:15 #452 [verbose] > │
│ 00:00:15 #453 [verbose] > inl main () = │
│ 00:00:15 #454 [verbose] > print_static "<test>" │
│ 00:00:15 #455 [verbose] > │
│ 00:00:15 #456 [verbose] > app │
│ 00:00:15 #457 [verbose] > |> dyn │
│ 00:00:15 #458 [verbose] > |> ignore │
│ 00:00:15 #459 [verbose] > │
│ 00:00:15 #460 [verbose] > print_static "</test>" │
│ 00:00:15 #461 [verbose] > Building │
│ c:\home\git\polyglot\target\polyglot\spiral_eval\packages\f2a26ff16fa94575d7 │
│ a83b8902f448f147da946998ab596089706721c4cc373e\main.spi │
│ 00:00:15 #462 [verbose] > <test> │
│ 00:00:15 #463 [verbose] > </test> │
│ 00:00:15 #464 [verbose] > │
│ 00:00:15 #465 [verbose] > ╭─[ 280.51ms - stdout │
│ ]────────────────────────────────────────────────────────╮ │
│ 00:00:15 #466 [verbose] > │ let rec closure0 () () : int32 = │
│ │ │
│ 00:00:15 #467 [verbose] > │ let v0 : string = "test" │
│ │ │
│ 00:00:15 #468 [verbose] > │ System.Console.WriteLine v0 │
│ │ │
│ 00:00:15 #469 [verbose] > │ 0 │
│ │ │
│ 00:00:15 #470 [verbose] > │ let v0 : (unit -> int32) = closure0() │
│ │ │
│ 00:00:15 #471 [verbose] > │ () │
│ │ │
│ 00:00:15 #472 [verbose] > │ │
│ │
│ │ │
│ 00:00:15 #473 [verbose] > │ │
│ │
│ │ │
│ 00:00:15 #474 [verbose] > │
│ ╰─────────────────────────────────────────────────────────────────────────── │
│ ───╯ │
│ 00:00:17 #475 [verbose] > [NbConvertApp] Converting notebook test.dib.ipynb │
│ to html │
│ 00:00:17 #476 [verbose] > │
│ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__ │
│ .py:93: MissingIDFieldWarning: Code cell is missing an id field, this will │
│ become a hard error in future nbformat versions. You may want to use │
│ `normalize()` on your notebooks before validations (available since nbformat │
│ 5.1.4). Previous versions of nbformat are fixing this issue transparently, │
│ and will stop doing so in the future. │
│ 00:00:17 #477 [verbose] > validate(nb) │
│ 00:00:18 #478 [verbose] > │
│ C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters │
│ \highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on │
│ Python 3 │
│ 00:00:18 #479 [verbose] > return _pygments_highlight( │
│ 00:00:18 #480 [verbose] > [NbConvertApp] Writing 321504 bytes to │
│ test.dib.html │
│ 00:00:19 #481 [debug] executeAsync / exitCode: 0 / output.Length: 19236 │
│ 00:00:19 #482 [debug] main / executeCommand / exitCode: 0 │
│ 00:00:21 #483 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
{ . ../../../../apps/parser/dist/DibParser$(GetExecutableSuffix) test.dib spi }
| Invoke-Block
╭─[ 496.31ms - stdout ]────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] writeDibCode / output: Spi / path: test.dib │
│ 00:00:00 #2 [debug] parseDibCode / output: Spi / file: test.dib │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
{ . ../../../../apps/spiral/dist/Supervisor$(GetExecutableSuffix) --build-file
test.spi test.fsx --timeout 10000 } | Invoke-Block
╭─[ 6.89s - stdout ]───────────────────────────────────────────────────────────╮
│ 00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:00 #2 [debug] executeAsync / options: { Command = │
│ "dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral │
│ Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port │
│ 13805 --default-int i32 --default-float f64" │
│ WorkingDirectory = None │
│ CancellationToken = Some System.Threading.CancellationToken │
│ OnLine = Some <fun:main@441-43> } │
│ 00:00:00 #3 [verbose] > pwd: C:\home\git\polyglot\apps\spiral\temp\test │
│ 00:00:00 #4 [verbose] > dllPath: │
│ C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language │
│ 2\artifacts\bin\The Spiral Language 2\release │
│ 00:00:00 #5 [verbose] > targetDir: │
│ C:\home\git\polyglot\target/polyglot/spiral_eval │
│ 00:00:00 #6 [verbose] > Starting the Spiral Server. It is bound to: │
│ http://localhost:13805 │
│ 00:00:00 #7 [debug] runWithTimeoutChildAsync / timeout: 500 │
│ 00:00:00 #8 [verbose] waitForPortAccess / port: 13805 / retry: 0 │
│ 00:00:01 #9 [debug] sendJson / port: 13805 / json: {"Ping":true} / │
│ result.Length: │
│ 00:00:01 #10 [verbose] awaitCompiler / Ping / result: Some(null) / port: │
│ 13805 / retry: 0 │
│ 00:00:01 #11 [verbose] > Server bound to: http://localhost:13805 │
│ 00:00:01 #12 [debug] runWithTimeoutChildAsync / timeout: 60 │
│ 00:00:01 #13 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:01 #14 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:01 #15 [debug] sendJson / port: 13805 / json: │
│ {"FileOpen":{"spiText":"// // # test (Polyglot)\n\nnominal i = ()\nnominal e │
│ = ()\nnominal s = ()\nnominal n = ()\nnominal t = ()\nnominal f = │
│ ()\nnominal j = ()\nnominal p = ()\n\nunion sensing =\n | Si : s * i\n │
│ | Se : s * e\n\nunion intuition =\n | Ni : n * i\n | Ne : n * │
│ e\n\nunion thinking =\n | Ti : t * i\n | Te : t * e\n\nunion feeling │
│ =\n | Fi : f * i\n | Fe : f * e\n\nunion function_stack =\n | FS : │
│ sensing * intuition * thinking * feeling\n\nunion personality_type =\n | │
│ ISTJ : i * s * t * j * function_stack\n | ISFJ : i * s * f * j * │
│ function_stack\n | INFJ : i * n * f * j * function_stack\n | INTJ : i │
│ * n * t * j * function_stack\n | ISTP : i * s * t * p * function_stack\n │
│ | ISFP : i * s * f * p * function_stack\n | INFP : i * n * f * p * │
│ function_stack\n | INTP : i * n * t * p * function_stack\n | ESTP : e │
│ * s * t * p * function_stack\n | ESFP : e * s * f * p * function_stack\n │
│ | ENFP : e * n * f * p * function_stack\n | ENTP : e * n * t * p * │
│ function_stack\n | ESTJ : e * s * t * j * function_stack\n | ESFJ : e │
│ * s * f * j * function_stack\n | ENFJ : e * n * f * j * function_stack\n │
│ | ENTJ : e * n * t * j * function_stack\n\n\ninl main () =\n inl │
│ istj_stack = FS ((Si (s, i)), Ne (n, e), (Te (t, e)), (Fi (f, i)))\n inl │
│ istj_personality = ISTJ (i, s, t, j, istj_stack)\n // inl isfj_stack = FS │
│ ((Si (s, i)), Ne (n, e), (Fe (f, e)), (Ti (t, i)))\n // inl │
│ isfj_personality = ISFJ (i, s, f, j, isfj_stack)\n\n ;[\n │
│ istj_personality\n ]\n |\u003E fun x =\u003E │
│ $\u0027$\u0022%A{!x}\u0022\u0027 : string\n |\u003E │
│ console.write_line\n\ninl main () =\n $\u0022!main ()\u0022 : ()\n\n// // │
│ ## main\n\ninl main (_args : array_base string) =\n 0i32\n\ninl main () │
│ =\n $\u0022let main args = !main args\u0022 : ()\n\ninl app () =\n │
│ \u0022test\u0022 |\u003E console.write_line\n 0i32\n\ninl main () =\n │
│ print_static \u0022\u003Ctest\u003E\u0022\n\n app\n |\u003E dyn\n │
│ |\u003E ignore\n\n print_static │
│ \u0022\u003C/test\u003E\u0022\n","uri":"file:///c:/home/git/polyglot/apps/sp │
│ iral/temp/test/test.spi"}} / result.Length: │
│ 00:00:01 #16 [debug] sendJson / port: 13805 / json: │
│ {"BuildFile":{"backend":"Fsharp","uri":"file:///c:/home/git/polyglot/apps/sp │
│ iral/temp/test/test.spi"}} / result.Length: │
│ 00:00:02 #17 [verbose] > Building │
│ c:\home\git\polyglot\apps\spiral\temp\test\test.spi │
│ 00:00:02 #18 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:03 #19 [debug] buildFile / takeWhileInclusive / fsxContent: / errors: │
│ [] / typeErrorCount: 0 │
│ 00:00:04 #20 [verbose] > <test> │
│ 00:00:04 #21 [verbose] > </test> │
│ 00:00:04 #22 [debug] buildFile / takeWhileInclusive / fsxContent: let rec │
│ closure0 () () : int32 = │
│ let v0 : string = "test" │
│ System.Console.WriteLine v0 │
│ 0 │
│ let v0 : (unit -> int32) = closure0() │
│ () │
│ / errors: [] / typeErrorCount: 0 │
│ 00:00:04 #23 [debug] watchWithFilter / Disposing watch stream / filter: │
│ FileName, LastWrite │
│ 00:00:06 #24 [debug] runWithTimeoutChildAsync / timeout: 2000 │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
dotnet fable --optimize --lang rs --extension .rs
╭─[ 3.32s - stdout ]───────────────────────────────────────────────────────────╮
│ Fable 4.14.0: F# to Rust compiler (status: alpha) │
│ │
│ Thanks to the contributor! @byte-666 │
│ Stand with Ukraine! https://standwithukraine.com.ua/ │
│ │
│ Parsing test.fsproj... │
│ Retrieving project options from cache, in case of issues run `dotnet fable │
│ clean` or try `--noCache` option. │
│ Project and references (1 source files) parsed in 196ms │
│ │
│ Started Fable compilation... │
│ │
│ Fable compilation finished in 1409ms │
│ │
│ .\test.fsx(6,0): (6,2) warning FABLE: For Rust, support for F# static and │
│ module do bindings is disabled by default. It can be enabled with the │
│ 'static_do_bindings' feature. Use at your own risk! │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
(Get-Content test.rs) `
-replace [[regex]]::Escape("),);"), "));" `
| Set-Content test.rs
── pwsh ────────────────────────────────────────────────────────────────────────
cargo fmt --
── pwsh ────────────────────────────────────────────────────────────────────────
cargo build --release
╭─[ 21.57s - stdout ]──────────────────────────────────────────────────────────╮
│ Compiling getrandom v0.2.14 │
│ Compiling rand_core v0.6.4 │
│ Compiling syn v2.0.58 │
│ Compiling rand_chacha v0.3.1 │
│ Compiling rand_xorshift v0.3.0 │
│ Compiling rand v0.8.5 │
│ Compiling proptest v1.4.0 │
│ Compiling thiserror-impl v1.0.58 │
│ Compiling tracing-attributes v0.1.27 │
│ Compiling thiserror v1.0.58 │
│ Compiling tracing v0.1.40 │
│ Compiling spiral_temp_test v0.0.1 │
│ (C:\home\git\polyglot\apps\spiral\temp\test) │
│ warning: the item `any` is imported redundantly │
│ --> apps\spiral\temp\test\./main.rs:11:27 │
│ | │
│ 11 | use proptest::arbitrary::{any, Arbitrary}; │
│ | ^^^ │
│ 12 | use proptest::prelude::*; │
│ | -------------------- the item `any` is already imported here │
│ | │
│ = note: `#[warn(unused_imports)]` on by default │
│ │
│ warning: the item `Arbitrary` is imported redundantly │
│ --> apps\spiral\temp\test\./main.rs:11:32 │
│ | │
│ 11 | use proptest::arbitrary::{any, Arbitrary}; │
│ | ^^^^^^^^^ │
│ 12 | use proptest::prelude::*; │
│ | -------------------- the item `Arbitrary` is already imported │
│ here │
│ │
│ warning: unused import: `info` │
│ --> apps\spiral\temp\test\./main.rs:190:15 │
│ | │
│ 190 | use tracing::{info, Level}; │
│ | ^^^^ │
│ │
│ warning: associated items `new`, `add_item`, and `remove_item` are │
│ never used │
│ --> apps\spiral\temp\test\./main.rs:46:8 │
│ | │
│ 45 | impl Cart { │
│ | --------- associated items in this implementation │
│ 46 | fn new() -> Cart { │
│ | ^^^ │
│ ... │
│ 50 | fn add_item(&mut self, item: Item) { │
│ | ^^^^^^^^ │
│ ... │
│ 56 | fn remove_item(&mut self, item: &Item) { │
│ | ^^^^^^^^^^^ │
│ | │
│ = note: `#[warn(dead_code)]` on by default │
│ │
│ warning: function `parse_comment` is never used │
│ --> apps\spiral\temp\test\./main.rs:124:4 │
│ | │
│ 124 | fn parse_comment(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_string` is never used │
│ --> apps\spiral\temp\test\./main.rs:130:4 │
│ | │
│ 130 | fn parse_string(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^ │
│ │
│ warning: function `parse_identifier` is never used │
│ --> apps\spiral\temp\test\./main.rs:145:4 │
│ | │
│ 145 | fn parse_identifier(input: &str) -> IResult<&str, SpiralToken> {[ │
│ 0m │
│ | ^^^^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_integer` is never used │
│ --> apps\spiral\temp\test\./main.rs:157:4 │
│ | │
│ 157 | fn parse_integer(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_operator` is never used │
│ --> apps\spiral\temp\test\./main.rs:165:4 │
│ | │
│ 165 | fn parse_operator(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^^^^ │
│ │
│ warning: function `parse_token` is never used │
│ --> apps\spiral\temp\test\./main.rs:170:4 │
│ | │
│ 170 | fn parse_token(input: &str) -> IResult<&str, SpiralToken> { │
│ | ^^^^^^^^^^^ │
│ │
│ warning: function `format_token` is never used │
│ --> apps\spiral\temp\test\./main.rs:180:4 │
│ | │
│ 180 | fn format_token(token: &SpiralToken) -> String { │
│ | ^^^^^^^^^^^^ │
│ │
│ warning: function `parse_expression` is never used │
│ --> apps\spiral\temp\test\./main.rs:213:4 │
│ | │
│ 213 | fn parse_expression(input: &str) -> IResult<&str, SpiralToken> {[ │
│ 0m │
│ | ^^^^^^^^^^^^^^^^ │
│ │
│ warning: `spiral_temp_test` (bin "spiral_temp_test") generated 12 │
│ warnings (run `cargo fix --bin "spiral_temp_test"` to apply 1 suggestion) │
│ Finished `release` profile [optimized] target(s) in 21.39s │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
$env:RUST_LOG="info"
{ cargo test --release } | Invoke-Block
╭─[ 30.91s - stdout ]──────────────────────────────────────────────────────────╮
│ Compiling rand v0.8.5 │
│ Compiling rand_xorshift v0.3.0 │
│ Compiling thiserror v1.0.58 │
│ Compiling tracing v0.1.40 │
│ Compiling proptest v1.4.0 │
│ Compiling spiral_temp_test v0.0.1 │
│ (C:\home\git\polyglot\apps\spiral\temp\test) │
│ warning: the item `any` is imported redundantly │
│ --> apps\spiral\temp\test\./main.rs:11:27 │
│ | │
│ 11 | use proptest::arbitrary::{any, Arbitrary}; │
│ | ^^^ │
│ 12 | use proptest::prelude::*; │
│ | -------------------- the item `any` is already imported here │
│ | │
│ = note: `#[warn(unused_imports)]` on by default │
│ │
│ warning: the item `Arbitrary` is imported redundantly │
│ --> apps\spiral\temp\test\./main.rs:11:32 │
│ | │
│ 11 | use proptest::arbitrary::{any, Arbitrary}; │
│ | ^^^^^^^^^ │
│ 12 | use proptest::prelude::*; │
│ | -------------------- the item `Arbitrary` is already imported │
│ here │
│ │
│ warning: `spiral_temp_test` (bin "spiral_temp_test" test) generated 2 │
│ warnings │
│ Finished `release` profile [optimized] target(s) in 30.45s │
│ Running unittests main.rs │
│ (C:\home\git\polyglot\target\release\deps\spiral_temp_test-f37c8ee95c038f68. │
│ exe) │
│ │
│ running 3 tests │
│ test test_parse_number ... ok │
│ 2024-04-12T01:10:52.581656Z INFO spiral_temp_test: │
│ input=Identifier("IiHf2yk7OosR0eNJGRA5fa3REFaMXsq5u") │
│ 2024-04-12T01:10:52.581883Z INFO spiral_temp_test: │
│ input=StringLiteral("K|=gRwyY&4.`|<{") │
│ 2024-04-12T01:10:52.582033Z INFO spiral_temp_test: │
│ input=Identifier("k") │
│ 2024-04-12T01:10:52.582134Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-12T01:10:52.582242Z INFO spiral_temp_test: │
│ input=Integer(6297834845302436937) │
│ 2024-04-12T01:10:52.582334Z INFO spiral_temp_test: │
│ input=StringLiteral("i%$T /:gq! ok$a/Paq") │
│ 2024-04-12T01:10:52.582419Z INFO spiral_temp_test: │
│ input=Comment("g-n:k:',7iM9:3yy}!V\"T/$") │
│ 2024-04-12T01:10:52.582513Z INFO spiral_temp_test: │
│ input=Identifier("m520PZNZCPgaFa0I01yj4MP4CR") │
│ 2024-04-12T01:10:52.582578Z INFO spiral_temp_test: │
│ input=Comment("&iP%%XVf8s&Mc*:") │
│ 2024-04-12T01:10:52.582635Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-12T01:10:52.582700Z INFO spiral_temp_test: │
│ input=Identifier("Ahc52sX1vFxdmDLRzdpmYqj") │
│ 2024-04-12T01:10:52.582758Z INFO spiral_temp_test: │
│ input=Comment("_<O<\"&T&o^y=") │
│ 2024-04-12T01:10:52.582805Z INFO spiral_temp_test: │
│ input=Identifier("vn") │
│ 2024-04-12T01:10:52.582855Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-12T01:10:52.582961Z INFO spiral_temp_test: │
│ input=StringLiteral("$xn6^r5mJ:<$^`a.^nv.Mck5fo7kf*y") │
│ 2024-04-12T01:10:52.583022Z INFO spiral_temp_test: │
│ input=Comment("??") │
│ 2024-04-12T01:10:52.583065Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-12T01:10:52.583110Z INFO spiral_temp_test: │
│ input=Integer(-900196092076962389) │
│ 2024-04-12T01:10:52.583154Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-12T01:10:52.583236Z INFO spiral_temp_test: │
│ input=StringLiteral("=Sn<W-WSA$::?:`&?{<=if lE${J") │
│ 2024-04-12T01:10:52.583289Z INFO spiral_temp_test: │
│ input=Integer(-7701849478366338398) │
│ 2024-04-12T01:10:52.583329Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-12T01:10:52.583460Z INFO spiral_temp_test: │
│ input=Integer(836120534204937200) │
│ 2024-04-12T01:10:52.583527Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-12T01:10:52.583606Z INFO spiral_temp_test: │
│ input=Identifier("Ng4H3vAAuHa9we2jWFgH") │
│ 2024-04-12T01:10:52.583671Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-12T01:10:52.583756Z INFO spiral_temp_test: │
│ input=StringLiteral("?~$0x&aWk|<*m$Q{O<gf&51&P1y") │
│ 2024-04-12T01:10:52.583819Z INFO spiral_temp_test: │
│ input=Integer(-4052305311940565780) │
│ 2024-04-12T01:10:52.583884Z INFO spiral_temp_test: │
│ input=Comment("~|y&e:l*V%Y{C^") │
│ 2024-04-12T01:10:52.583959Z INFO spiral_temp_test: │
│ input=Comment("':*l`%E<<*G*j|") │
│ 2024-04-12T01:10:52.584041Z INFO spiral_temp_test: │
│ input=Comment("/.TL~}?//$mf+$$AA=#RX") │
│ 2024-04-12T01:10:52.584099Z INFO spiral_temp_test: │
│ input=Integer(4327453651144752059) │
│ 2024-04-12T01:10:52.584162Z INFO spiral_temp_test: │
│ input=Identifier("wwsx9W1zVeB2hie2fsltz") │
│ 2024-04-12T01:10:52.584239Z INFO spiral_temp_test: │
│ input=Identifier("X3LHW7W4nTp3w6iu67OVP3StYB") │
│ 2024-04-12T01:10:52.584309Z INFO spiral_temp_test: │
│ input=StringLiteral("GF4(`I'cv@)mV&;HA") │
│ 2024-04-12T01:10:52.584391Z INFO spiral_temp_test: │
│ input=Comment("u") │
│ 2024-04-12T01:10:52.584457Z INFO spiral_temp_test: │
│ input=Identifier("xpVCwgf1Y01WKBR") │
│ 2024-04-12T01:10:52.584511Z INFO spiral_temp_test: │
│ input=Integer(-6095169659216712566) │
│ 2024-04-12T01:10:52.584563Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-12T01:10:52.584620Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-12T01:10:52.584683Z INFO spiral_temp_test: │
│ input=Identifier("LZXFPszWwnJpyyeUKUKCGjsgM") │
│ 2024-04-12T01:10:52.584738Z INFO spiral_temp_test: │
│ input=Integer(-5244749510306792640) │
│ 2024-04-12T01:10:52.584781Z INFO spiral_temp_test: │
│ input=Integer(-3246067795848622975) │
│ 2024-04-12T01:10:52.584852Z INFO spiral_temp_test: │
│ input=Comment("D]B?l\\/\"kR&y{9[%gfi H{") │
│ 2024-04-12T01:10:52.584927Z INFO spiral_temp_test: │
│ input=StringLiteral("T^:?*>;b5)ax'Qna") │
│ 2024-04-12T01:10:52.584994Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-12T01:10:52.585042Z INFO spiral_temp_test: │
│ input=Integer(-437317068294344293) │
│ 2024-04-12T01:10:52.585109Z INFO spiral_temp_test: │
│ input=Identifier("J8aRQzOFSYkhd725M0") │
│ 2024-04-12T01:10:52.585178Z INFO spiral_temp_test: │
│ input=StringLiteral("*i%`qW/{$6yR") │
│ 2024-04-12T01:10:52.585234Z INFO spiral_temp_test: │
│ input=Integer(-8939788985142191404) │
│ 2024-04-12T01:10:52.585295Z INFO spiral_temp_test: │
│ input=StringLiteral("-|_wTkP*~F#i9N") │
│ 2024-04-12T01:10:52.585388Z INFO spiral_temp_test: │
│ input=Identifier("Z9euBW0Vwx732VWuJ") │
│ 2024-04-12T01:10:52.585465Z INFO spiral_temp_test: │
│ input=StringLiteral("$|)zR_/gtYD'{..r6JWV;/") │
│ 2024-04-12T01:10:52.585530Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-12T01:10:52.585587Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-12T01:10:52.585652Z INFO spiral_temp_test: │
│ input=Identifier("Lk7YWk2JHXm10RTUI4F94C0") │
│ 2024-04-12T01:10:52.585722Z INFO spiral_temp_test: │
│ input=StringLiteral("Cx;O}UMV") │
│ 2024-04-12T01:10:52.585779Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-12T01:10:52.585826Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-12T01:10:52.585892Z INFO spiral_temp_test: │
│ input=Comment("8??f/^&{9:viOt`'/,") │
│ 2024-04-12T01:10:52.585975Z INFO spiral_temp_test: │
│ input=Identifier("h563CcNn2I19k92J1Q9t2e688FGy2Y") │
│ 2024-04-12T01:10:52.586044Z INFO spiral_temp_test: │
│ input=Comment("Z%Rb&{*Yu") │
│ 2024-04-12T01:10:52.586103Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-12T01:10:52.586165Z INFO spiral_temp_test: │
│ input=Comment(".\\VWKP&iRYP ?->") │
│ 2024-04-12T01:10:52.586219Z INFO spiral_temp_test: │
│ input=Integer(6553469900069879726) │
│ 2024-04-12T01:10:52.586273Z INFO spiral_temp_test: │
│ input=Comment("\\&(@lz*:5") │
│ 2024-04-12T01:10:52.586363Z INFO spiral_temp_test: │
│ input=StringLiteral("9 ![<V</$&=h&lD{/dH") │
│ 2024-04-12T01:10:52.586433Z INFO spiral_temp_test: │
│ input=Identifier("n6gMuxaCT0D1") │
│ 2024-04-12T01:10:52.586491Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-12T01:10:52.586539Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-12T01:10:52.586609Z INFO spiral_temp_test: │
│ input=Integer(769038231470133538) │
│ 2024-04-12T01:10:52.586678Z INFO spiral_temp_test: │
│ input=StringLiteral("[X:t*TDy`+z.&9}{/<") │
│ 2024-04-12T01:10:52.586742Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-12T01:10:52.586840Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-12T01:10:52.586935Z INFO spiral_temp_test: │
│ input=Integer(-293365057025819915) │
│ 2024-04-12T01:10:52.587007Z INFO spiral_temp_test: │
│ input=Identifier("PlbLaJNuwnv2WeOq") │
│ 2024-04-12T01:10:52.587059Z INFO spiral_temp_test: │
│ input=Integer(-3377357099038846307) │
│ 2024-04-12T01:10:52.587121Z INFO spiral_temp_test: │
│ input=Comment("'xG^K{Put'p\"w6g") │
│ 2024-04-12T01:10:52.587194Z INFO spiral_temp_test: │
│ input=Identifier("X8j5T21UR7Itm0l3obYR2") │
│ 2024-04-12T01:10:52.587263Z INFO spiral_temp_test: │
│ input=Comment("??:sF&;\\rR.\"`~") │
│ 2024-04-12T01:10:52.587350Z INFO spiral_temp_test: │
│ input=Comment("l\"K)=4?8<\\-/1o*ES/_9J$!</#A:`0}>") │
│ 2024-04-12T01:10:52.587450Z INFO spiral_temp_test: │
│ input=StringLiteral("I::/EO*c!j-T0T{?ZT") │
│ 2024-04-12T01:10:52.587540Z INFO spiral_temp_test: │
│ input=Comment("a*\\IO#<$?{=WL'pDLlvE=%$q%%BHE:") │
│ 2024-04-12T01:10:52.587623Z INFO spiral_temp_test: │
│ input=StringLiteral("z%@9E3Xed") │
│ 2024-04-12T01:10:52.587682Z INFO spiral_temp_test: │
│ input=Integer(4145612678966445049) │
│ 2024-04-12T01:10:52.587740Z INFO spiral_temp_test: │
│ input=Comment("Q6kng&~Rlu+L?") │
│ 2024-04-12T01:10:52.587816Z INFO spiral_temp_test: │
│ input=Comment("SV@*-PU,l%o.'fO&$") │
│ 2024-04-12T01:10:52.587874Z INFO spiral_temp_test: │
│ input=Integer(-9201370948110437221) │
│ 2024-04-12T01:10:52.587929Z INFO spiral_temp_test: │
│ input=Comment("&{kSA=P:4x") │
│ 2024-04-12T01:10:52.588016Z INFO spiral_temp_test: │
│ input=Identifier("iYGPlI9ahGQ0dpC9c807UZ4D352rLci3n") │
│ 2024-04-12T01:10:52.588081Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-12T01:10:52.588162Z INFO spiral_temp_test: │
│ input=Identifier("tRtClHfIh8f1MwnorMn4GMgh56x2Ou") │
│ 2024-04-12T01:10:52.588223Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-12T01:10:52.588276Z INFO spiral_temp_test: │
│ input=Comment("{*H{G<") │
│ 2024-04-12T01:10:52.588343Z INFO spiral_temp_test: │
│ input=Comment("])hU&4p7a") │
│ 2024-04-12T01:10:52.588425Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-12T01:10:52.588496Z INFO spiral_temp_test: │
│ input=Comment("/`z%u;Q8M!*$`=e{9{3/B\\El['") │
│ 2024-04-12T01:10:52.588562Z INFO spiral_temp_test: │
│ input=StringLiteral("b?PE&") │
│ 2024-04-12T01:10:52.588650Z INFO spiral_temp_test: │
│ input=Identifier("kA5m4IHAzl7pfXFJHj4aj38t9d28mvHf") │
│ 2024-04-12T01:10:52.588712Z INFO spiral_temp_test: │
│ input=Integer(-9042913052847973031) │
│ 2024-04-12T01:10:52.588766Z INFO spiral_temp_test: │
│ input=Identifier("wCt3jXvR0bp") │
│ 2024-04-12T01:10:52.588823Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-12T01:10:52.588879Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-12T01:10:52.588940Z INFO spiral_temp_test: │
│ input=StringLiteral("Kcq@{?N&#vk $z$/&") │
│ 2024-04-12T01:10:52.589044Z INFO spiral_temp_test: │
│ input=StringLiteral("2S?{',+JjQU$O/`0#&)K)pds38$*,") │
│ 2024-04-12T01:10:52.589111Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-12T01:10:52.589163Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-12T01:10:52.589213Z INFO spiral_temp_test: │
│ input=Identifier("Rv9xB") │
│ 2024-04-12T01:10:52.589281Z INFO spiral_temp_test: │
│ input=Comment("h") │
│ 2024-04-12T01:10:52.589331Z INFO spiral_temp_test: │
│ input=Integer(-460137445445864172) │
│ 2024-04-12T01:10:52.589410Z INFO spiral_temp_test: │
│ input=Integer(-3772427338215316925) │
│ 2024-04-12T01:10:52.589463Z INFO spiral_temp_test: │
│ input=Identifier("DBG") │
│ 2024-04-12T01:10:52.589521Z INFO spiral_temp_test: │
│ input=StringLiteral("`") │
│ 2024-04-12T01:10:52.589580Z INFO spiral_temp_test: │
│ input=Identifier("zQ3fHdjCcknMv8W") │
│ 2024-04-12T01:10:52.589633Z INFO spiral_temp_test: │
│ input=Integer(-5936106998986256912) │
│ 2024-04-12T01:10:52.589693Z INFO spiral_temp_test: │
│ input=StringLiteral("YDIW(b?q?i#<~&cN>") │
│ 2024-04-12T01:10:52.589751Z INFO spiral_temp_test: │
│ input=Integer(-5285671642753958274) │
│ 2024-04-12T01:10:52.589795Z INFO spiral_temp_test: │
│ input=Integer(1200554726659413609) │
│ 2024-04-12T01:10:52.589843Z INFO spiral_temp_test: │
│ input=Integer(6392785352082129149) │
│ 2024-04-12T01:10:52.589902Z INFO spiral_temp_test: │
│ input=Identifier("zOc9tFiib0qdaHP") │
│ 2024-04-12T01:10:52.589955Z INFO spiral_temp_test: │
│ input=Integer(4105608145731578694) │
│ 2024-04-12T01:10:52.590001Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-12T01:10:52.590058Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-12T01:10:52.590122Z INFO spiral_temp_test: │
│ input=Comment("r/`rX%)u|1-CUB.dvX-Dex*") │
│ 2024-04-12T01:10:52.590190Z INFO spiral_temp_test: │
│ input=Identifier("HXC9hwK928") │
│ 2024-04-12T01:10:52.590246Z INFO spiral_temp_test: │
│ input=Integer(2426841694699189217) │
│ 2024-04-12T01:10:52.590322Z INFO spiral_temp_test: │
│ input=Comment("\\vI6bF<XS?P\\R9xqADm$F$?)s$z.?O'\\") │
│ 2024-04-12T01:10:52.590425Z INFO spiral_temp_test: │
│ input=StringLiteral(" Axt&`zf):8)$snt)=1S:$nm`d") │
│ 2024-04-12T01:10:52.590490Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-12T01:10:52.590670Z INFO spiral_temp_test: │
│ input=Comment("//9m&O=*|O/1&/%R'Fc&t]q") │
│ 2024-04-12T01:10:52.590734Z INFO spiral_temp_test: │
│ input=Integer(-1830585341933150650) │
│ 2024-04-12T01:10:52.590791Z INFO spiral_temp_test: │
│ input=Identifier("lvCQqFjHxj9ZKVx") │
│ 2024-04-12T01:10:52.590842Z INFO spiral_temp_test: │
│ input=Identifier("RxK") │
│ 2024-04-12T01:10:52.590882Z INFO spiral_temp_test: │
│ input=Integer(-904243807010206410) │
│ 2024-04-12T01:10:52.590928Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-12T01:10:52.590965Z INFO spiral_temp_test: │
│ input=Integer(-4501004470437009936) │
│ 2024-04-12T01:10:52.591027Z INFO spiral_temp_test: │
│ input=Comment("zC&>$Y$AL:.~$=vf)yRk0d%=-76J") │
│ 2024-04-12T01:10:52.591085Z INFO spiral_temp_test: │
│ input=Identifier("uG8e3TNK") │
│ 2024-04-12T01:10:52.591124Z INFO spiral_temp_test: │
│ input=Integer(-6479351985092373461) │
│ 2024-04-12T01:10:52.591198Z INFO spiral_temp_test: │
│ input=Identifier("Cxfroy5em9EVVnB65oM552lIAohCpre2q") │
│ 2024-04-12T01:10:52.591254Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-12T01:10:52.591316Z INFO spiral_temp_test: │
│ input=Comment("XmNDrf`}l'a3'KipcT:7X'.e{") │
│ 2024-04-12T01:10:52.591361Z INFO spiral_temp_test: │
│ input=Integer(-3092545848398605742) │
│ 2024-04-12T01:10:52.591403Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-12T01:10:52.591443Z INFO spiral_temp_test: │
│ input=Integer(-3625686044695147641) │
│ 2024-04-12T01:10:52.591488Z INFO spiral_temp_test: │
│ input=StringLiteral("*P`F`.J") │
│ 2024-04-12T01:10:52.591542Z INFO spiral_temp_test: │
│ input=StringLiteral("D&-M>") │
│ 2024-04-12T01:10:52.591580Z INFO spiral_temp_test: │
│ input=Integer(-2718921163314701310) │
│ 2024-04-12T01:10:52.591625Z INFO spiral_temp_test: │
│ input=Comment(":gRBJ9x") │
│ 2024-04-12T01:10:52.591674Z INFO spiral_temp_test: │
│ input=Integer(8837440336697051151) │
│ 2024-04-12T01:10:52.591736Z INFO spiral_temp_test: │
│ input=Integer(-7653580640794474140) │
│ 2024-04-12T01:10:52.591804Z INFO spiral_temp_test: │
│ input=Identifier("Gjd50lsffmv6Ml2WK88fFvTtOLX") │
│ 2024-04-12T01:10:52.591897Z INFO spiral_temp_test: │
│ input=Integer(-3436396687391254355) │
│ 2024-04-12T01:10:52.592018Z INFO spiral_temp_test: │
│ input=StringLiteral("GX*E0#h<&?:KCg'&x$&+AMG4{T6aW") │
│ 2024-04-12T01:10:52.592077Z INFO spiral_temp_test: │
│ input=StringLiteral("<|_I9h]j=+SkZ`?m9?*`'XSu") │
│ 2024-04-12T01:10:52.592113Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-12T01:10:52.592165Z INFO spiral_temp_test: │
│ input=StringLiteral("*3?G&|g/pr_0+.*Si&XJp!AQb+Z93t") │
│ 2024-04-12T01:10:52.592204Z INFO spiral_temp_test: │
│ input=StringLiteral(".$mG?Em)!N&l:h/ u") │
│ 2024-04-12T01:10:52.592236Z INFO spiral_temp_test: │
│ input=Integer(3274575093375239440) │
│ 2024-04-12T01:10:52.592270Z INFO spiral_temp_test: │
│ input=StringLiteral("~W )]&r V<$Dc&*U(") │
│ 2024-04-12T01:10:52.592317Z INFO spiral_temp_test: │
│ input=Comment("r7=m{bb3$?T&$yW~(\\&CifH<$`Za{V2X") │
│ 2024-04-12T01:10:52.592349Z INFO spiral_temp_test: │
│ input=Integer(8315565784768222162) │
│ 2024-04-12T01:10:52.592376Z INFO spiral_temp_test: │
│ input=StringLiteral("v") │
│ 2024-04-12T01:10:52.592412Z INFO spiral_temp_test: │
│ input=StringLiteral("~.^:2%-q+@5J") │
│ 2024-04-12T01:10:52.592450Z INFO spiral_temp_test: │
│ input=Identifier("o40Cu8kHWG6CB7WK80") │
│ 2024-04-12T01:10:52.592484Z INFO spiral_temp_test: │
│ input=Comment("V{{\\") │
│ 2024-04-12T01:10:52.592513Z INFO spiral_temp_test: │
│ input=Comment(")eln") │
│ 2024-04-12T01:10:52.592538Z INFO spiral_temp_test: │
│ input=Integer(2326371465100313607) │
│ 2024-04-12T01:10:52.592577Z INFO spiral_temp_test: │
│ input=Identifier("q6YXN9HP52n6XHFocs1D3US6") │
│ 2024-04-12T01:10:52.592610Z INFO spiral_temp_test: │
│ input=Comment("&T609?!I") │
│ 2024-04-12T01:10:52.592640Z INFO spiral_temp_test: │
│ input=Integer(-7782759979871061471) │
│ 2024-04-12T01:10:52.592665Z INFO spiral_temp_test: │
│ input=Integer(5711579115738791224) │
│ 2024-04-12T01:10:52.592703Z INFO spiral_temp_test: │
│ input=Comment("=e.72YOEK=&\"4/LH5~{%}RL)W") │
│ 2024-04-12T01:10:52.592761Z INFO spiral_temp_test: │
│ input=StringLiteral("<<&&D=&<^>':3*/?b/db<v!/(d:O") │
│ 2024-04-12T01:10:52.592798Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-12T01:10:52.592832Z INFO spiral_temp_test: │
│ input=Identifier("jxg0c88Sjkns4Gf5dC") │
│ 2024-04-12T01:10:52.592860Z INFO spiral_temp_test: │
│ input=Comment("") │
│ 2024-04-12T01:10:52.592884Z INFO spiral_temp_test: │
│ input=Integer(3295856391863136579) │
│ 2024-04-12T01:10:52.592928Z INFO spiral_temp_test: │
│ input=StringLiteral("/&di?<m&S>k.$C>)$?.f]@8kn*&$") │
│ 2024-04-12T01:10:52.592976Z INFO spiral_temp_test: │
│ input=Identifier("Nkw9n6w1P2LwJ5n0548KFZo2QK6uPn0r") │
│ 2024-04-12T01:10:52.593005Z INFO spiral_temp_test: │
│ input=Integer(8109137735517838266) │
│ 2024-04-12T01:10:52.593032Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-12T01:10:52.593067Z INFO spiral_temp_test: │
│ input=Identifier("d4I8Oo6DdWRw0kPyz") │
│ 2024-04-12T01:10:52.593112Z INFO spiral_temp_test: │
│ input=Comment("E:&<%`VB:B.'?\\7*=]qzsBoxYg\"Gj") │
│ 2024-04-12T01:10:52.593149Z INFO spiral_temp_test: │
│ input=Identifier("vJ196Oo665SYnB9BJOf") │
│ 2024-04-12T01:10:52.593202Z INFO spiral_temp_test: │
│ input=Identifier("hroSUhTpsm9bod3jXLuXP") │
│ 2024-04-12T01:10:52.593241Z INFO spiral_temp_test: │
│ input=Comment("sA<;Xbl/7.:u_i%{fn\\PA") │
│ 2024-04-12T01:10:52.593272Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-12T01:10:52.593304Z INFO spiral_temp_test: │
│ input=Comment("5*+t]C$1**") │
│ 2024-04-12T01:10:52.593331Z INFO spiral_temp_test: │
│ input=Integer(5395052294657140766) │
│ 2024-04-12T01:10:52.593361Z INFO spiral_temp_test: │
│ input=Comment("DWY!=B9M.wk") │
│ 2024-04-12T01:10:52.593392Z INFO spiral_temp_test: │
│ input=Identifier("bDtMj79dQ") │
│ 2024-04-12T01:10:52.593436Z INFO spiral_temp_test: │
│ input=Comment("\\?x&\"6`av;*\"!g:9e6/Q#'>R\\{H\\<o_") │
│ 2024-04-12T01:10:52.593472Z INFO spiral_temp_test: │
│ input=Comment("z4*ov[*<U=~Y*") │
│ 2024-04-12T01:10:52.593497Z INFO spiral_temp_test: │
│ input=Integer(4052834308637860289) │
│ 2024-04-12T01:10:52.593529Z INFO spiral_temp_test: │
│ input=StringLiteral("a}U]n(].PU./;cZ") │
│ 2024-04-12T01:10:52.593565Z INFO spiral_temp_test: │
│ input=StringLiteral("`*ZG<D'C<A") │
│ 2024-04-12T01:10:52.593598Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-12T01:10:52.593623Z INFO spiral_temp_test: │
│ input=Integer(-6713350591712411387) │
│ 2024-04-12T01:10:52.593658Z INFO spiral_temp_test: │
│ input=Comment("\\%:%:|-.!%Q'<Tr'xCuR") │
│ 2024-04-12T01:10:52.593704Z INFO spiral_temp_test: │
│ input=Comment("r.v=/eJT?=O^MgP4") │
│ 2024-04-12T01:10:52.593736Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-12T01:10:52.593773Z INFO spiral_temp_test: │
│ input=Identifier("AfC6SkN7ZmkN94pszTrgbXBa") │
│ 2024-04-12T01:10:52.593819Z INFO spiral_temp_test: │
│ input=StringLiteral("?4t`|?q&ww&[`:{^%5*'%I-$wJ6VZL&") │
│ 2024-04-12T01:10:52.598325Z INFO spiral_temp_test: │
│ input=StringLiteral("IJsDhZ=YQhaY'[Rlr:{o") │
│ 2024-04-12T01:10:52.598404Z INFO spiral_temp_test: │
│ input=Identifier("T56Nb604M2F5ofTNy4") │
│ 2024-04-12T01:10:52.598469Z INFO spiral_temp_test: │
│ input=Operator("(") │
│ 2024-04-12T01:10:52.598521Z INFO spiral_temp_test: │
│ input=Integer(4246757313701646802) │
│ 2024-04-12T01:10:52.598575Z INFO spiral_temp_test: │
│ input=Identifier("Bmg636Ng0fxdKyx1Q") │
│ 2024-04-12T01:10:52.598637Z INFO spiral_temp_test: │
│ input=StringLiteral("2$nFos(tFf*E@.5.Wp") │
│ 2024-04-12T01:10:52.598722Z INFO spiral_temp_test: │
│ input=Identifier("O8l058f6v82338N2sMgmP2A4p93") │
│ 2024-04-12T01:10:52.598772Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-12T01:10:52.598811Z INFO spiral_temp_test: │
│ input=Comment("w}|Q?:aS&`?/N\"rWva(/t") │
│ 2024-04-12T01:10:52.598861Z INFO spiral_temp_test: │
│ input=Comment("oo\\$$?<h`#`'=@duo\\f5-H={.P@\\c") │
│ 2024-04-12T01:10:52.598897Z INFO spiral_temp_test: │
│ input=Identifier("hIlRwvLx1TI5I2") │
│ 2024-04-12T01:10:52.598925Z INFO spiral_temp_test: │
│ input=Integer(-5649207696345330156) │
│ 2024-04-12T01:10:52.598969Z INFO spiral_temp_test: │
│ input=Integer(3775918920012078169) │
│ 2024-04-12T01:10:52.598999Z INFO spiral_temp_test: │
│ input=Comment("U?/<") │
│ 2024-04-12T01:10:52.599031Z INFO spiral_temp_test: │
│ input=Comment("sX:tV'%2epj<") │
│ 2024-04-12T01:10:52.599068Z INFO spiral_temp_test: │
│ input=StringLiteral("l0D/.M:3aV*") │
│ 2024-04-12T01:10:52.599105Z INFO spiral_temp_test: │
│ input=Comment("%/ug{\"_TV<") │
│ 2024-04-12T01:10:52.599183Z INFO spiral_temp_test: │
│ input=Integer(3892414357413762062) │
│ 2024-04-12T01:10:52.599230Z INFO spiral_temp_test: │
│ input=Operator("=") │
│ 2024-04-12T01:10:52.599277Z INFO spiral_temp_test: │
│ input=Comment("t]&`?h?m*`:r<K~%/Yx.&F&{.K}1K") │
│ 2024-04-12T01:10:52.599320Z INFO spiral_temp_test: │
│ input=Identifier("bBPQf6ihEW1jaahU03YnBiR") │
│ 2024-04-12T01:10:52.599352Z INFO spiral_temp_test: │
│ input=Identifier("ZomA") │
│ 2024-04-12T01:10:52.599386Z INFO spiral_temp_test: │
│ input=Identifier("fxJ2") │
│ 2024-04-12T01:10:52.599419Z INFO spiral_temp_test: │
│ input=Identifier("Qs7U5NMlu2Z795Cf") │
│ 2024-04-12T01:10:52.599453Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-12T01:10:52.599485Z INFO spiral_temp_test: │
│ input=Integer(8855464225069968751) │
│ 2024-04-12T01:10:52.599528Z INFO spiral_temp_test: │
│ input=StringLiteral("{q jj.L~F5j d-'wDW*Jfh%{*F/") │
│ 2024-04-12T01:10:52.599571Z INFO spiral_temp_test: │
│ input=Comment("\"V[cV;`%e)yo)PvH") │
│ 2024-04-12T01:10:52.599603Z INFO spiral_temp_test: │
│ input=Comment("EoZ<6") │
│ 2024-04-12T01:10:52.599670Z INFO spiral_temp_test: │
│ input=StringLiteral("&v:%:'") │
│ 2024-04-12T01:10:52.599736Z INFO spiral_temp_test: │
│ input=Comment("=8YB`_8D%{") │
│ 2024-04-12T01:10:52.599771Z INFO spiral_temp_test: │
│ input=Operator("-") │
│ 2024-04-12T01:10:52.599797Z INFO spiral_temp_test: │
│ input=Integer(-8869370086711422470) │
│ 2024-04-12T01:10:52.599824Z INFO spiral_temp_test: │
│ input=Operator("+") │
│ 2024-04-12T01:10:52.599862Z INFO spiral_temp_test: │
│ input=Integer(-7820090486122785929) │
│ 2024-04-12T01:10:52.599924Z INFO spiral_temp_test: │
│ input=Comment("y&?L.\"(&[s=Jn:8@T&j\\_/") │
│ 2024-04-12T01:10:52.599959Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-12T01:10:52.600005Z INFO spiral_temp_test: │
│ input=Operator(")") │
│ 2024-04-12T01:10:52.600050Z INFO spiral_temp_test: │
│ input=Operator("*") │
│ 2024-04-12T01:10:52.600094Z INFO spiral_temp_test: │
│ input=Integer(-7953191457090435492) │
│ 2024-04-12T01:10:52.600144Z INFO spiral_temp_test: │
│ input=Identifier("bK18s916zNyIKDe109rnMb945gbzwo4N") │
│ 2024-04-12T01:10:52.600187Z INFO spiral_temp_test: │
│ input=StringLiteral("'c/R#Hh[5&<") │
│ 2024-04-12T01:10:52.600329Z INFO spiral_temp_test: │
│ input=Identifier("tq588KYuP93jseTuH49lmXf2gql65Fv") │
│ 2024-04-12T01:10:52.600400Z INFO spiral_temp_test: │
│ input=Operator("/") │
│ 2024-04-12T01:10:52.600434Z INFO spiral_temp_test: │
│ input=Identifier("A0") │
│ 2024-04-12T01:10:52.600477Z INFO spiral_temp_test: │
│ input=Comment("D.^?wM~^e 1n<r^V.B") │
│ 2024-04-12T01:10:52.600534Z INFO spiral_temp_test: │
│ input=Integer(4644235358863517407) │
│ 2024-04-12T01:10:52.600583Z INFO spiral_temp_test: │
│ input=Identifier("kvJK7aWm7zh34ite3RtwDwGQ2PMa") │
│ 2024-04-12T01:10:52.600618Z INFO spiral_temp_test: │
│ input=Integer(-8505079964094100716) │
│ 2024-04-12T01:10:52.600655Z INFO spiral_temp_test: │
│ input=StringLiteral("qJjX([<'=3") │
│ 2024-04-12T01:10:52.600733Z INFO spiral_temp_test: │
│ input=Identifier("KF8YaD0O5UWn") │
│ 2024-04-12T01:10:52.600778Z INFO spiral_temp_test: │
│ input=Integer(4733801141671451850) │
│ test prop_parse_format_idempotent ... ok │
│ test │
│ adding_and_then_removing_an_item_from_the_cart_leaves_the_cart_unchanged ... │
│ ok │
│ │
│ test result: ok. 3 passed; 0 failed; 0 ignored; 0 measured; 0 filtered out; │
│ finished in 0.18s │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── pwsh ────────────────────────────────────────────────────────────────────────
{ . $ScriptDir/../../../../target/release/spiral_temp_test$(GetExecutableSuffix)
} | Invoke-Block
╭─[ 98.03ms - stdout ]─────────────────────────────────────────────────────────╮
│ app=test │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook build.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 366571 bytes to build.dib.html
In [ ]:
{ . "$ScriptDir/../apps/perf/build.ps1" } | Invoke-Block
00:00:00 #1 [debug] runWithTimeoutChildAsync / timeout: 60
00:00:00 #2 [debug] executeAsync / options: { Command =
"dotnet "C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release\Spiral.dll" --port 13805 --default-int i32 --default-float f64"
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = Some <fun:main@441-43> }
00:00:00 #3 [verbose] > pwd: C:\home\git\polyglot\apps\perf
00:00:00 #4 [verbose] > dllPath: C:\home\git\polyglot\deps\The-Spiral-Language\The Spiral Language 2\artifacts\bin\The Spiral Language 2\release
00:00:00 #5 [verbose] > targetDir: C:\home\git\polyglot\target/polyglot/spiral_eval
00:00:00 #6 [verbose] > Starting the Spiral Server. It is bound to: http://localhost:13805
00:00:00 #7 [debug] runWithTimeoutChildAsync / timeout: 500
00:00:00 #8 [verbose] waitForPortAccess / port: 13805 / retry: 0
00:00:01 #9 [debug] sendJson / port: 13805 / json: {"Ping":true} / result.Length:
00:00:01 #10 [verbose] awaitCompiler / Ping / result: Some(null) / port: 13805 / retry: 0
00:00:01 #11 [verbose] > Server bound to: http://localhost:13805
00:00:01 #12 [debug] executeAsync / options: { Command = "pwsh -c "../../scripts/invoke-dib.ps1 Perf.dib""
WorkingDirectory = None
CancellationToken = Some System.Threading.CancellationToken
OnLine = None }
00:00:03 #13 [verbose] >
00:00:04 #14 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:04 #15 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:04 #16 [verbose] > │ ## Perf (Polyglot) │
00:00:04 #17 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:04 #18 [verbose] >
00:00:04 #19 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:04 #20 [verbose] > #!import ../../lib/fsharp/Notebooks.dib
00:00:04 #21 [verbose] > #!import ../../lib/fsharp/Testing.dib
00:00:04 #22 [verbose] >
00:00:04 #23 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:04 #24 [verbose] > #r
00:00:04 #25 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
00:00:04 #26 [verbose] > spNetCore.Html.Abstractions.dll"
00:00:04 #27 [verbose] > #r
00:00:04 #28 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 #29 [verbose] > otNet.Interactive.dll"
00:00:04 #30 [verbose] > #r
00:00:04 #31 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 #32 [verbose] > otNet.Interactive.FSharp.dll"
00:00:04 #33 [verbose] > #r
00:00:04 #34 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:04 #35 [verbose] > otNet.Interactive.Formatting.dll"
00:00:04 #36 [verbose] > open System
00:00:04 #37 [verbose] > open System.IO
00:00:04 #38 [verbose] > open System.Text
00:00:04 #39 [verbose] > open Microsoft.DotNet.Interactive.Formatting
00:00:07 #40 [verbose] >
00:00:07 #41 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:07 #42 [verbose] > #r
00:00:07 #43 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:07 #44 [verbose] > otNet.Interactive.FSharp.dll"
00:00:07 #45 [verbose] > open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
00:00:07 #46 [verbose] > #r
00:00:07 #47 [verbose] > "C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
00:00:07 #48 [verbose] > otNet.Interactive.dll"
00:00:07 #49 [verbose] > open type Microsoft.DotNet.Interactive.Kernel
00:00:07 #50 [verbose] >
00:00:07 #51 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:07 #52 [verbose] > //// test
00:00:07 #53 [verbose] >
00:00:07 #54 [verbose] > Formatter.ListExpansionLimit <- 100
00:00:08 #55 [verbose] >
00:00:08 #56 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:08 #57 [verbose] > type [[<Struct>]] US0 =
00:00:08 #58 [verbose] > | US0_0
00:00:08 #59 [verbose] > | US0_1
00:00:08 #60 [verbose] > and [[<Struct>]] US1 =
00:00:08 #61 [verbose] > | US1_0 of f0_0 : US0
00:00:08 #62 [verbose] > | US1_1
00:00:08 #63 [verbose] > let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
00:00:08 #64 [verbose] > let v1 : System.IDisposable option = None
00:00:08 #65 [verbose] > let mutable _v1 = v1
00:00:08 #66 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:08 #67 [verbose] > let v2 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:08 #68 [verbose] > v2
00:00:08 #69 [verbose] > #endif
00:00:08 #70 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:08 #71 [verbose] > let v3 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:08 #72 [verbose] > v3
00:00:08 #73 [verbose] > #endif
00:00:08 #74 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:08 #75 [verbose] > let v4 : System.IDisposable = null |> unbox<System.IDisposable>
00:00:08 #76 [verbose] > v4
00:00:08 #77 [verbose] > #endif
00:00:08 #78 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:08 #79 [verbose] > !WASM && !CONTRACT
00:00:08 #80 [verbose] > let v5 : System.ID...
00:00:09 #81 [verbose] >
00:00:09 #82 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:09 #83 [verbose] > type Mut0 = {mutable l0 : int32; mutable l1 : string}
00:00:09 #84 [verbose] > and Mut1 = {mutable l0 : int32}
00:00:09 #85 [verbose] > let rec closure1 (v0 : string) (v1 : string) : bool =
00:00:09 #86 [verbose] > let v2 : bool = v1.Contains v0
00:00:09 #87 [verbose] > v2
00:00:09 #88 [verbose] > and closure0 () (v0 : string) : (string -> bool) =
00:00:09 #89 [verbose] > closure1(v0)
00:00:09 #90 [verbose] > and closure3 (v0 : string) (v1 : string) : bool =
00:00:09 #91 [verbose] > let v2 : bool = v1.EndsWith v0
00:00:09 #92 [verbose] > v2
00:00:09 #93 [verbose] > and closure2 () (v0 : string) : (string -> bool) =
00:00:09 #94 [verbose] > closure3(v0)
00:00:09 #95 [verbose] > and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
00:00:09 #96 [verbose] > let v3 : string = v2.PadLeft (v0, v1)
00:00:09 #97 [verbose] > v3
00:00:09 #98 [verbose] > and closure5 (v0 : int32) (v1 : char) : (string -> string) =
00:00:09 #99 [verbose] > closure6(v0, v1)
00:00:09 #100 [verbose] > and closure4 () (v0 : int32) : (char -> (string -> string)) =
00:00:09 #101 [verbose] > closure5(v0)
00:00:09 #102 [verbose] > and closure8 (v0 : int32) (v1 : string) : string =
00:00:09 #103 [verbose] > let v2 : stri...
00:00:10 #104 [verbose] >
00:00:10 #105 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 #106 [verbose] > type ICryptoCreateHash = abstract createHash: x: string -> obj
00:00:10 #107 [verbose] > type Mut0 = {mutable l0 : int32}
00:00:10 #108 [verbose] > let rec method0 (v0 : int32, v1 : Mut0) : bool =
00:00:10 #109 [verbose] > let v2 : int32 = v1.l0
00:00:10 #110 [verbose] > let v3 : bool = v2 < v0
00:00:10 #111 [verbose] > v3
00:00:10 #112 [verbose] > and closure0 () (v0 : string) : string =
00:00:10 #113 [verbose] > let v1 : string option = None
00:00:10 #114 [verbose] > let mutable _v1 = v1
00:00:10 #115 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:10 #116 [verbose] > let v2 : string = null |> unbox<string>
00:00:10 #117 [verbose] > v2
00:00:10 #118 [verbose] > #endif
00:00:10 #119 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:10 #120 [verbose] > let v3 : string = null |> unbox<string>
00:00:10 #121 [verbose] > v3
00:00:10 #122 [verbose] > #endif
00:00:10 #123 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:10 #124 [verbose] > let v4 : string = null |> unbox<string>
00:00:10 #125 [verbose] > v4
00:00:10 #126 [verbose] > #endif
00:00:10 #127 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:10 #128 [verbose] > !WASM && !CONTRACT
00:00:10 #129 [verbose] > let v5 : (unit -> System...
00:00:10 #130 [verbose] >
00:00:10 #131 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 #132 [verbose] > let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
00:00:10 #133 [verbose] > let v2 : (System.Guid -> string) = _.ToString()
00:00:10 #134 [verbose] > let v3 : string = v2 v0
00:00:10 #135 [verbose] > let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
00:00:10 #136 [verbose] > let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
00:00:10 #137 [verbose] > v5
00:00:10 #138 [verbose] > and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
00:00:10 #139 [verbose] > closure1(v0)
00:00:10 #140 [verbose] > and closure5 (v0 : string, v1 : string) (v2 : string) : string =
00:00:10 #141 [verbose] > let v3 : string = v2.Replace (v0, v1)
00:00:10 #142 [verbose] > v3
00:00:10 #143 [verbose] > and closure4 (v0 : string) (v1 : string) : (string -> string) =
00:00:10 #144 [verbose] > closure5(v0, v1)
00:00:10 #145 [verbose] > and closure3 () (v0 : string) : (string -> (string -> string)) =
00:00:10 #146 [verbose] > closure4(v0)
00:00:10 #147 [verbose] > and method0 () : (string -> (string -> (string -> string))) =
00:00:10 #148 [verbose] > closure3()
00:00:10 #149 [verbose] > and closure2 (...
00:00:10 #150 [verbose] >
00:00:10 #151 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 #152 [verbose] > let rec closure0 () (v0 : System.Threading.CancellationToken) :
00:00:10 #153 [verbose] > Async<System.Threading.CancellationToken> =
00:00:10 #154 [verbose] > let v1 : Async<System.Threading.CancellationToken> option = None
00:00:10 #155 [verbose] > let mutable _v1 = v1
00:00:10 #156 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:10 #157 [verbose] > let v2 : Async<System.Threading.CancellationToken> = null |>
00:00:10 #158 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:10 #159 [verbose] > v2
00:00:10 #160 [verbose] > #endif
00:00:10 #161 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:10 #162 [verbose] > let v3 : Async<System.Threading.CancellationToken> = null |>
00:00:10 #163 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:10 #164 [verbose] > v3
00:00:10 #165 [verbose] > #endif
00:00:10 #166 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:10 #167 [verbose] > let v4 : Async<System.Threading.CancellationToken> = null |>
00:00:10 #168 [verbose] > unbox<Async<System.Threading.CancellationToken>>
00:00:10 #169 [verbose] > v4
00:00:10 #170 [verbose] > #endif
00:00:10 #171 [verbose] > #if !FABLE_COMPILER...
00:00:10 #172 [verbose] >
00:00:10 #173 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 #174 [verbose] > let rec closure0 () () : bool =
00:00:10 #175 [verbose] > let v0 : bool option = None
00:00:10 #176 [verbose] > let mutable _v0 = v0
00:00:10 #177 [verbose] > #if FABLE_COMPILER_RUST && !WASM && !CONTRACT
00:00:10 #178 [verbose] > let v1 : bool = null |> unbox<bool>
00:00:10 #179 [verbose] > v1
00:00:10 #180 [verbose] > #endif
00:00:10 #181 [verbose] > #if FABLE_COMPILER_RUST && WASM
00:00:10 #182 [verbose] > let v2 : bool = null |> unbox<bool>
00:00:10 #183 [verbose] > v2
00:00:10 #184 [verbose] > #endif
00:00:10 #185 [verbose] > #if FABLE_COMPILER_RUST && CONTRACT
00:00:10 #186 [verbose] > let v3 : bool = null |> unbox<bool>
00:00:10 #187 [verbose] > v3
00:00:10 #188 [verbose] > #endif
00:00:10 #189 [verbose] > #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
00:00:10 #190 [verbose] > !WASM && !CONTRACT
00:00:10 #191 [verbose] > let v4 : System.Runtime.InteropServices.OSPlatform =
00:00:10 #192 [verbose] > System.Runtime.InteropServices.OSPlatform.Windows
00:00:10 #193 [verbose] > let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
00:00:10 #194 [verbose] > System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
00:00:10 #195 [verbose] > let v6 : bool = v...
00:00:10 #196 [verbose] >
00:00:10 #197 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:10 #198 [verbose] > #if FABLE_COMPILER // file_system.types
00:00:10 #199 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
00:00:10 #200 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
00:00:10 #201 [verbose] > base64_DecodeError = class end
00:00:10 #202 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
00:00:10 #203 [verbose] > = class end
00:00:10 #204 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
00:00:10 #205 [verbose] > = class end
00:00:10 #206 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
00:00:10 #207 [verbose] > serde_json_Error = class end
00:00:10 #208 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
00:00:10 #209 [verbose] > serde_json_Value = class end
00:00:10 #210 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
00:00:10 #211 [verbose] > serde_wasm_bindgen_Error = class end
00:00:10 #212 [verbose] > [[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
00:00:12 #213 [verbose] >
00:00:12 #214 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #215 [verbose] > module State = let mutable trace_state = None
00:00:12 #216 [verbose] > type [[<Struct>]] US0 =
00:00:12 #217 [verbose] > | US0_0
00:00:12 #218 [verbose] > | US0_1
00:00:12 #219 [verbose] > | US0_2
00:00:12 #220 [verbose] > | US0_3
00:00:12 #221 [verbose] > | US0_4
00:00:12 #222 [verbose] > and Mut0 = {mutable l0 : int64}
00:00:12 #223 [verbose] > and Mut1 = {mutable l0 : bool}
00:00:12 #224 [verbose] > and Mut2 = {mutable l0 : US0}
00:00:12 #225 [verbose] > and [[<Struct>]] US1 =
00:00:12 #226 [verbose] > | US1_0 of f0_0 : int64
00:00:12 #227 [verbose] > | US1_1
00:00:12 #228 [verbose] > and [[<Struct>]] US2 =
00:00:12 #229 [verbose] > | US2_0 of f0_0 : int64
00:00:12 #230 [verbose] > | US2_1
00:00:12 #231 [verbose] > let rec method1 (v0 : int64 option) : int64 option =
00:00:12 #232 [verbose] > v0
00:00:12 #233 [verbose] > and method2 (v0 : int64 option) : int64 option =
00:00:12 #234 [verbose] > v0
00:00:12 #235 [verbose] > and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
00:00:12 #236 [verbose] > let v0 : Mut1 = {l0 = true} : Mut1
00:00:12 #237 [verbose] > let v1 : Mut0 = {l0 = 0L} : Mut0
00:00:12 #238 [verbose] > let v2 : US0 = US0_0
00:00:12 #239 [verbose] > let v3 : Mut2 = {l0 = v2} : Mut2
00:00:12 #240 [verbose] > let v4 : Mut1 = {l0 = false} : Mut1
00:00:12 #241 [verbose] > let v5 : int64 option option = None
00:00:12 #242 [verbose] > ...
00:00:12 #243 [verbose] >
00:00:12 #244 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #245 [verbose] > module SpiralTrace =
00:00:12 #246 [verbose] > let get_trace_state () =
00:00:12 #247 [verbose] > #if !INTERACTIVE
00:00:12 #248 [verbose] > Trace.get_trace_state ()
00:00:12 #249 [verbose] > #else
00:00:12 #250 [verbose] > get_trace_state ()
00:00:12 #251 [verbose] > #endif
00:00:12 #252 [verbose] > let trace x =
00:00:12 #253 [verbose] > #if !INTERACTIVE
00:00:12 #254 [verbose] > Trace.trace x
00:00:12 #255 [verbose] > #else
00:00:12 #256 [verbose] > trace x
00:00:12 #257 [verbose] > #endif
00:00:12 #258 [verbose] >
00:00:12 #259 [verbose] > let US0_0 =
00:00:12 #260 [verbose] > #if !INTERACTIVE
00:00:12 #261 [verbose] > Trace.US0_0
00:00:12 #262 [verbose] > #else
00:00:12 #263 [verbose] > US0_0
00:00:12 #264 [verbose] > #endif
00:00:12 #265 [verbose] >
00:00:12 #266 [verbose] > let US0_1 =
00:00:12 #267 [verbose] > #if !INTERACTIVE
00:00:12 #268 [verbose] > Trace.US0_1
00:00:12 #269 [verbose] > #else
00:00:12 #270 [verbose] > US0_1
00:00:12 #271 [verbose] > #endif
00:00:12 #272 [verbose] >
00:00:12 #273 [verbose] > let US0_2 =
00:00:12 #274 [verbose] > #if !INTERACTIVE
00:00:12 #275 [verbose] > Trace.US0_2
00:00:12 #276 [verbose] > #else
00:00:12 #277 [verbose] > US0_2
00:00:12 #278 [verbose] > #endif
00:00:12 #279 [verbose] >
00:00:12 #280 [verbose] > let US0_3 =
00:00:12 #281 [verbose] > #if !INTERACTIVE
00:00:12 #282 [verbose] > Trace.US0_3
00:00:12 #283 [verbose] > #else
00:00:12 #284 [verbose] > US0_3
00:00:12 #285 [verbose] > #endif
00:00:12 #286 [verbose] >
00:00:12 #287 [verbose] > let US0_4 =
00:00:12 #288 [verbose] > #if !INTERACTIVE
00:00:12 #289 [verbose] > Trace.US0_4
00:00:12 #290 [verbose] > #else
00:00:12 #291 [verbose] > US0_4
00:00:12 #292 [verbose] > #endif
00:00:12 #293 [verbose] >
00:00:12 #294 [verbose] > #if !FABLE_COMPILER && !WASM && !CONTRACT
00:00:12 #295 [verbose] >
00:00:12 #296 [verbose] > module SpiralAsync =
00:00:12 #297 [verbose] > let merge_cancellation_token_with_default_async x ...
00:00:12 #298 [verbose] >
00:00:12 #299 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #300 [verbose] > #r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
00:00:12 #301 [verbose] >
00:00:12 #302 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #303 [verbose] > //// test
00:00:12 #304 [verbose] >
00:00:12 #305 [verbose] > type AssertExceptionFormatter (ex) =
00:00:12 #306 [verbose] > member _.Text =
00:00:12 #307 [verbose] > ex.ToString()
00:00:12 #308 [verbose] > .Replace("32m", "<span style=\"color: green;\">")
00:00:12 #309 [verbose] > .Replace("36m", "</span>")
00:00:12 #310 [verbose] > .Replace("31m", "<span style=\"color: red;\">")
00:00:12 #311 [verbose] > .Replace("\n", "<br/>\n")
00:00:12 #312 [verbose] >
00:00:12 #313 [verbose] >
00:00:12 #314 [verbose] > Formatter.Register<AssertExceptionFormatter> ((fun (x :
00:00:12 #315 [verbose] > AssertExceptionFormatter) -> x.Text), "text/html")
00:00:12 #316 [verbose] >
00:00:12 #317 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:12 #318 [verbose] > //// test
00:00:12 #319 [verbose] >
00:00:12 #320 [verbose] > let inline __expect fn log expected actual =
00:00:12 #321 [verbose] > if log then printfn $"{actual.ToDisplayString ()}"
00:00:12 #322 [verbose] > try
00:00:12 #323 [verbose] > "Testing.__expect" |> fn actual expected
00:00:12 #324 [verbose] > with :? Expecto.AssertException as ex ->
00:00:12 #325 [verbose] > AssertExceptionFormatter(ex).Display () |> ignore
00:00:12 #326 [verbose] > failwith (ex.GetType().FullName)
00:00:12 #327 [verbose] >
00:00:12 #328 [verbose] > let inline __contains log expected actual = __expect Expecto.Expect.contains log
00:00:12 #329 [verbose] > expected actual
00:00:12 #330 [verbose] > let inline _contains expected actual = __contains true expected actual
00:00:12 #331 [verbose] >
00:00:12 #332 [verbose] > let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
00:00:12 #333 [verbose] > expected actual
00:00:12 #334 [verbose] > let inline _assertEqual expected actual = __assertEqual true expected actual
00:00:12 #335 [verbose] >
00:00:12 #336 [verbose] > let inline __isGreaterThan log expected actual = __expect
00:00:12 #337 [verbose] > Expecto.Expect.isGreaterThan log ex...
00:00:13 #338 [verbose] >
00:00:13 #339 [verbose] > ── fsharp - import ─────────────────────────────────────────────────────────────
00:00:13 #340 [verbose] > //// test
00:00:13 #341 [verbose] >
00:00:13 #342 [verbose] > let inline __isBetween log a b actual =
00:00:13 #343 [verbose] > let inline isBetween actual (a, b) _ =
00:00:13 #344 [verbose] > __isGreaterThanOrEqual log a actual
00:00:13 #345 [verbose] > __isLessThanOrEqual log b actual
00:00:13 #346 [verbose] > __expect isBetween log (a, b) actual
00:00:13 #347 [verbose] > let inline _isBetween a b actual = __isBetween true a b actual
00:00:13 #348 [verbose] >
00:00:13 #349 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:13 #350 [verbose] > // // test
00:00:13 #351 [verbose] >
00:00:13 #352 [verbose] > open testing
00:00:13 #353 [verbose] > open benchmark
00:00:14 #354 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\a68bf544ee8067329270251865f764a781c0d58c964a15c207916a17aa1e46fb\main.spi
00:00:16 #355 [verbose] >
00:00:16 #356 [verbose] > ╭─[ 3.27s - stdout ]───────────────────────────────────────────────────────────╮
00:00:16 #357 [verbose] > │ () │
00:00:16 #358 [verbose] > │ │
00:00:16 #359 [verbose] > │ │
00:00:16 #360 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 #361 [verbose] >
00:00:16 #362 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:16 #363 [verbose] > #if !INTERACTIVE
00:00:16 #364 [verbose] > open Lib
00:00:16 #365 [verbose] > #endif
00:00:16 #366 [verbose] >
00:00:16 #367 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:16 #368 [verbose] > inl (/@) x = listm'.(/@) x
00:00:16 #369 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\171b25408a8cd9975131a61829eed2aaaacb7f8dcb899921373e2d66b8003dc9\main.spi
00:00:16 #370 [verbose] >
00:00:16 #371 [verbose] > ╭─[ 287.17ms - stdout ]────────────────────────────────────────────────────────╮
00:00:16 #372 [verbose] > │ () │
00:00:16 #373 [verbose] > │ │
00:00:16 #374 [verbose] > │ │
00:00:16 #375 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 #376 [verbose] >
00:00:16 #377 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:16 #378 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:16 #379 [verbose] > │ ## TestCaseResult │
00:00:16 #380 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 #381 [verbose] >
00:00:16 #382 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:16 #383 [verbose] > type TestCaseResult =
00:00:16 #384 [verbose] > {
00:00:16 #385 [verbose] > Input: string
00:00:16 #386 [verbose] > Expected: string
00:00:16 #387 [verbose] > Result: string
00:00:16 #388 [verbose] > TimeList: int64 list
00:00:16 #389 [verbose] > }
00:00:16 #390 [verbose] >
00:00:16 #391 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:16 #392 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:16 #393 [verbose] > │ ## run │
00:00:16 #394 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 #395 [verbose] >
00:00:16 #396 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:16 #397 [verbose] > let run count (solutions: (string * ('TInput -> 'TExpected)) list) (input,
00:00:16 #398 [verbose] > expected) =
00:00:16 #399 [verbose] > let inputStr =
00:00:16 #400 [verbose] > match box input with
00:00:16 #401 [verbose] > | :? System.Collections.ICollection as input ->
00:00:16 #402 [verbose] > System.Linq.Enumerable.Cast<obj> input
00:00:16 #403 [verbose] > |> Seq.map string
00:00:16 #404 [verbose] > |> SpiralSm.concat ","
00:00:16 #405 [verbose] > | _ -> input.ToString ()
00:00:16 #406 [verbose] >
00:00:16 #407 [verbose] > printfn ""
00:00:16 #408 [verbose] > printfn $"Solution: {inputStr} "
00:00:16 #409 [verbose] >
00:00:16 #410 [verbose] > let performanceInvoke (fn: unit -> 'T) =
00:00:16 #411 [verbose] > GC.Collect ()
00:00:16 #412 [verbose] > let stopwatch = System.Diagnostics.Stopwatch ()
00:00:16 #413 [verbose] > stopwatch.Start ()
00:00:16 #414 [verbose] > let time1 = stopwatch.ElapsedMilliseconds
00:00:16 #415 [verbose] >
00:00:16 #416 [verbose] > let result =
00:00:16 #417 [verbose] > [[| 0 .. count |]]
00:00:16 #418 [verbose] > |> Array.Parallel.map (fun _ ->
00:00:16 #419 [verbose] > fn ()
00:00:16 #420 [verbose] > )
00:00:16 #421 [verbose] > |> Array.last
00:00:16 #422 [verbose] >
00:00:16 #423 [verbose] > let time2 = stopwatch.ElapsedMilliseconds - time1
00:00:16 #424 [verbose] >
00:00:16 #425 [verbose] > result, time2
00:00:16 #426 [verbose] >
00:00:16 #427 [verbose] > let resultsWithTime =
00:00:16 #428 [verbose] > solutions
00:00:16 #429 [verbose] > |> List.mapi (fun i (testName, solution) ->
00:00:16 #430 [verbose] > let result, time = performanceInvoke (fun () -> solution input)
00:00:16 #431 [verbose] > printfn $"Test case %d{i + 1}. %s{testName}. Time: %A{time} "
00:00:16 #432 [verbose] > result, time
00:00:16 #433 [verbose] > )
00:00:16 #434 [verbose] >
00:00:16 #435 [verbose] >
00:00:16 #436 [verbose] > match resultsWithTime |> List.map fst with
00:00:16 #437 [verbose] > | ([[]] | [[ _ ]]) -> ()
00:00:16 #438 [verbose] > | (head :: tail) when tail |> List.forall ((=) head) -> ()
00:00:16 #439 [verbose] > | results -> failwithf $"Challenge error: %A{results}"
00:00:16 #440 [verbose] >
00:00:16 #441 [verbose] > {
00:00:16 #442 [verbose] > Input = inputStr
00:00:16 #443 [verbose] > Expected = expected.ToString ()
00:00:16 #444 [verbose] > Result = resultsWithTime |> Seq.map fst |> Seq.head |> _.ToString()
00:00:16 #445 [verbose] > TimeList = resultsWithTime |> List.map snd
00:00:16 #446 [verbose] > }
00:00:16 #447 [verbose] >
00:00:16 #448 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:16 #449 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:16 #450 [verbose] > │ ## runAll │
00:00:16 #451 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 #452 [verbose] >
00:00:16 #453 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:16 #454 [verbose] > let runAll testName count (solutions: (string * ('TInput -> 'TExpected)) list)
00:00:16 #455 [verbose] > testCases =
00:00:16 #456 [verbose] > printfn ""
00:00:16 #457 [verbose] > printfn ""
00:00:16 #458 [verbose] > printfn $"Test: {testName}"
00:00:16 #459 [verbose] > testCases
00:00:16 #460 [verbose] > |> Seq.map (run count solutions)
00:00:16 #461 [verbose] > |> Seq.toList
00:00:16 #462 [verbose] >
00:00:16 #463 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:16 #464 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:16 #465 [verbose] > │ ## sortResultList │
00:00:16 #466 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:16 #467 [verbose] >
00:00:16 #468 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:16 #469 [verbose] > let sortResultList resultList =
00:00:16 #470 [verbose] > let table =
00:00:16 #471 [verbose] > let rows =
00:00:16 #472 [verbose] > resultList
00:00:16 #473 [verbose] > |> List.map (fun result ->
00:00:16 #474 [verbose] > let best =
00:00:16 #475 [verbose] > result.TimeList
00:00:16 #476 [verbose] > |> List.mapi (fun i time ->
00:00:16 #477 [verbose] > i + 1, time
00:00:16 #478 [verbose] > )
00:00:16 #479 [verbose] > |> List.sortBy snd
00:00:16 #480 [verbose] > |> List.head
00:00:16 #481 [verbose] > |> _.ToString()
00:00:16 #482 [verbose] > let row =
00:00:16 #483 [verbose] > [[
00:00:16 #484 [verbose] > result.Input
00:00:16 #485 [verbose] > result.Expected
00:00:16 #486 [verbose] > result.Result
00:00:16 #487 [verbose] > best
00:00:16 #488 [verbose] > ]]
00:00:16 #489 [verbose] > let color =
00:00:16 #490 [verbose] > match result.Expected = result.Result with
00:00:16 #491 [verbose] > | true -> Some ConsoleColor.DarkGreen
00:00:16 #492 [verbose] > | false -> Some ConsoleColor.DarkRed
00:00:16 #493 [verbose] > row, color
00:00:16 #494 [verbose] > )
00:00:16 #495 [verbose] > let header =
00:00:16 #496 [verbose] > [[
00:00:16 #497 [verbose] > [[
00:00:16 #498 [verbose] > "Input"
00:00:16 #499 [verbose] > "Expected"
00:00:16 #500 [verbose] > "Result"
00:00:16 #501 [verbose] > "Best"
00:00:16 #502 [verbose] > ]]
00:00:16 #503 [verbose] > [[
00:00:16 #504 [verbose] > "---"
00:00:16 #505 [verbose] > "---"
00:00:16 #506 [verbose] > "---"
00:00:16 #507 [verbose] > "---"
00:00:16 #508 [verbose] > ]]
00:00:16 #509 [verbose] > ]]
00:00:16 #510 [verbose] > |> List.map (fun row -> row, None)
00:00:16 #511 [verbose] > header @ rows
00:00:16 #512 [verbose] >
00:00:16 #513 [verbose] > let formattedTable =
00:00:16 #514 [verbose] > let lengthMap =
00:00:16 #515 [verbose] > table
00:00:16 #516 [verbose] > |> List.map fst
00:00:16 #517 [verbose] > |> List.transpose
00:00:16 #518 [verbose] > |> List.map (fun column ->
00:00:16 #519 [verbose] > column
00:00:16 #520 [verbose] > |> List.map String.length
00:00:16 #521 [verbose] > |> List.sortDescending
00:00:16 #522 [verbose] > |> List.tryHead
00:00:16 #523 [verbose] > |> Option.defaultValue 0
00:00:16 #524 [verbose] > )
00:00:16 #525 [verbose] > |> List.indexed
00:00:16 #526 [verbose] > |> Map.ofList
00:00:16 #527 [verbose] > table
00:00:16 #528 [verbose] > |> List.map (fun (row, color) ->
00:00:16 #529 [verbose] > let newRow =
00:00:16 #530 [verbose] > row
00:00:16 #531 [verbose] > |> List.mapi (fun i cell ->
00:00:16 #532 [verbose] > cell.PadRight lengthMap.[[i]]
00:00:16 #533 [verbose] > )
00:00:16 #534 [verbose] > newRow, color
00:00:16 #535 [verbose] > )
00:00:16 #536 [verbose] >
00:00:16 #537 [verbose] > printfn ""
00:00:16 #538 [verbose] > formattedTable
00:00:16 #539 [verbose] > |> List.iter (fun (row, color) ->
00:00:16 #540 [verbose] > match color with
00:00:16 #541 [verbose] > | Some color -> Console.ForegroundColor <- color
00:00:16 #542 [verbose] > | None -> Console.ResetColor ()
00:00:16 #543 [verbose] >
00:00:16 #544 [verbose] > printfn "%s" (String.Join ("\t| ", row))
00:00:16 #545 [verbose] >
00:00:16 #546 [verbose] > Console.ResetColor ()
00:00:16 #547 [verbose] > )
00:00:16 #548 [verbose] >
00:00:16 #549 [verbose] > let averages =
00:00:16 #550 [verbose] > resultList
00:00:16 #551 [verbose] > |> List.map (fun result -> result.TimeList |> List.map float)
00:00:16 #552 [verbose] > |> List.transpose
00:00:16 #553 [verbose] > |> List.map List.average
00:00:16 #554 [verbose] > |> List.map int64
00:00:16 #555 [verbose] > |> List.indexed
00:00:16 #556 [verbose] >
00:00:16 #557 [verbose] > printfn ""
00:00:16 #558 [verbose] > printfn "Average Ranking "
00:00:16 #559 [verbose] > averages
00:00:16 #560 [verbose] > |> List.sortBy snd
00:00:16 #561 [verbose] > |> List.iter (fun (i, avg) ->
00:00:16 #562 [verbose] > printfn $"Test case %d{i + 1}. Average Time: %A{avg} "
00:00:16 #563 [verbose] > )
00:00:17 #564 [verbose] >
00:00:17 #565 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 #566 [verbose] > let mutable _count =
00:00:17 #567 [verbose] > if ("CI" |> System.Environment.GetEnvironmentVariable |> fun x -> $"%A{x}")
00:00:17 #568 [verbose] > <> "<null>"
00:00:17 #569 [verbose] > then 2000000
00:00:17 #570 [verbose] > else 2000
00:00:17 #571 [verbose] >
00:00:17 #572 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:17 #573 [verbose] > inl is_fast () =
00:00:17 #574 [verbose] > false
00:00:17 #575 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\b0ccd1ee6008c4d24be9ff554910920ba62f1a3887ec8adff6148e1fad804ac5\main.spi
00:00:17 #576 [verbose] >
00:00:17 #577 [verbose] > ╭─[ 316.55ms - stdout ]────────────────────────────────────────────────────────╮
00:00:17 #578 [verbose] > │ () │
00:00:17 #579 [verbose] > │ │
00:00:17 #580 [verbose] > │ │
00:00:17 #581 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #582 [verbose] >
00:00:17 #583 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #584 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #585 [verbose] > │ ## empty3Tests │
00:00:17 #586 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #587 [verbose] >
00:00:17 #588 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #589 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #590 [verbose] > │ Test: Empty3 │
00:00:17 #591 [verbose] > │ │
00:00:17 #592 [verbose] > │ Solution: (a, a) │
00:00:17 #593 [verbose] > │ Test case 1. A. Time: 91L │
00:00:17 #594 [verbose] > │ │
00:00:17 #595 [verbose] > │ Solution: (a, a) │
00:00:17 #596 [verbose] > │ Test case 1. A. Time: 56L │
00:00:17 #597 [verbose] > │ │
00:00:17 #598 [verbose] > │ Input | Expected | Result | Best │
00:00:17 #599 [verbose] > │ --- | --- | --- | --- │
00:00:17 #600 [verbose] > │ (a, a) | a | a | (1, 91) │
00:00:17 #601 [verbose] > │ (a, a) | a | a | (1, 56) │
00:00:17 #602 [verbose] > │ │
00:00:17 #603 [verbose] > │ Averages │
00:00:17 #604 [verbose] > │ Test case 1. Average Time: 73L │
00:00:17 #605 [verbose] > │ │
00:00:17 #606 [verbose] > │ Ranking │
00:00:17 #607 [verbose] > │ Test case 1. Average Time: 73L │
00:00:17 #608 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #609 [verbose] >
00:00:17 #610 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 #611 [verbose] > //// test
00:00:17 #612 [verbose] >
00:00:17 #613 [verbose] > let solutions = [[
00:00:17 #614 [verbose] > "A",
00:00:17 #615 [verbose] > fun (a, _b) ->
00:00:17 #616 [verbose] > a
00:00:17 #617 [verbose] > ]]
00:00:17 #618 [verbose] > let testCases = seq {
00:00:17 #619 [verbose] > ("a", "a"), "a"
00:00:17 #620 [verbose] > ("a", "a"), "a"
00:00:17 #621 [verbose] > }
00:00:17 #622 [verbose] > let rec empty3Tests = runAll (nameof empty3Tests) _count solutions testCases
00:00:17 #623 [verbose] > empty3Tests
00:00:17 #624 [verbose] > |> sortResultList
00:00:17 #625 [verbose] >
00:00:17 #626 [verbose] > ╭─[ 381.38ms - stdout ]────────────────────────────────────────────────────────╮
00:00:17 #627 [verbose] > │ │
00:00:17 #628 [verbose] > │ │
00:00:17 #629 [verbose] > │ Test: empty3Tests │
00:00:17 #630 [verbose] > │ │
00:00:17 #631 [verbose] > │ Solution: (a, a) │
00:00:17 #632 [verbose] > │ Test case 1. A. Time: 1L │
00:00:17 #633 [verbose] > │ │
00:00:17 #634 [verbose] > │ Solution: (a, a) │
00:00:17 #635 [verbose] > │ Test case 1. A. Time: 0L │
00:00:17 #636 [verbose] > │ │
00:00:17 #637 [verbose] > │ Input | Expected | Result | Best │
00:00:17 #638 [verbose] > │ --- | --- | --- | --- │
00:00:17 #639 [verbose] > │ (a, a) | a | a | (1, 1) │
00:00:17 #640 [verbose] > │ (a, a) | a | a | (1, 0) │
00:00:17 #641 [verbose] > │ │
00:00:17 #642 [verbose] > │ Average Ranking │
00:00:17 #643 [verbose] > │ Test case 1. Average Time: 0L │
00:00:17 #644 [verbose] > │ │
00:00:17 #645 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #646 [verbose] >
00:00:17 #647 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #648 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #649 [verbose] > │ ## empty2Tests │
00:00:17 #650 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #651 [verbose] >
00:00:17 #652 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:17 #653 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:17 #654 [verbose] > │ Test: Empty2 │
00:00:17 #655 [verbose] > │ │
00:00:17 #656 [verbose] > │ Solution: (a, a) │
00:00:17 #657 [verbose] > │ Test case 1. A. Time: 59L │
00:00:17 #658 [verbose] > │ │
00:00:17 #659 [verbose] > │ Solution: (a, a) │
00:00:17 #660 [verbose] > │ Test case 1. A. Time: 53L │
00:00:17 #661 [verbose] > │ │
00:00:17 #662 [verbose] > │ Input | Expected | Result | Best │
00:00:17 #663 [verbose] > │ --- | --- | --- | --- │
00:00:17 #664 [verbose] > │ (a, a) | a | a | (1, 59) │
00:00:17 #665 [verbose] > │ (a, a) | a | a | (1, 53) │
00:00:17 #666 [verbose] > │ │
00:00:17 #667 [verbose] > │ Averages │
00:00:17 #668 [verbose] > │ Test case 1. Average Time: 56L │
00:00:17 #669 [verbose] > │ │
00:00:17 #670 [verbose] > │ Ranking │
00:00:17 #671 [verbose] > │ Test case 1. Average Time: 56L │
00:00:17 #672 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:17 #673 [verbose] >
00:00:17 #674 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:17 #675 [verbose] > //// test
00:00:17 #676 [verbose] >
00:00:17 #677 [verbose] > let solutions = [[
00:00:17 #678 [verbose] > "A",
00:00:17 #679 [verbose] > fun (a, _b) ->
00:00:17 #680 [verbose] > a
00:00:17 #681 [verbose] > ]]
00:00:17 #682 [verbose] > let testCases = seq {
00:00:17 #683 [verbose] > ("a", "a"), "a"
00:00:17 #684 [verbose] > ("a", "a"), "a"
00:00:17 #685 [verbose] > }
00:00:17 #686 [verbose] > let rec empty2Tests = runAll (nameof empty2Tests) _count solutions testCases
00:00:17 #687 [verbose] > empty2Tests
00:00:17 #688 [verbose] > |> sortResultList
00:00:18 #689 [verbose] >
00:00:18 #690 [verbose] > ╭─[ 336.85ms - stdout ]────────────────────────────────────────────────────────╮
00:00:18 #691 [verbose] > │ │
00:00:18 #692 [verbose] > │ │
00:00:18 #693 [verbose] > │ Test: empty2Tests │
00:00:18 #694 [verbose] > │ │
00:00:18 #695 [verbose] > │ Solution: (a, a) │
00:00:18 #696 [verbose] > │ Test case 1. A. Time: 0L │
00:00:18 #697 [verbose] > │ │
00:00:18 #698 [verbose] > │ Solution: (a, a) │
00:00:18 #699 [verbose] > │ Test case 1. A. Time: 0L │
00:00:18 #700 [verbose] > │ │
00:00:18 #701 [verbose] > │ Input | Expected | Result | Best │
00:00:18 #702 [verbose] > │ --- | --- | --- | --- │
00:00:18 #703 [verbose] > │ (a, a) | a | a | (1, 0) │
00:00:18 #704 [verbose] > │ (a, a) | a | a | (1, 0) │
00:00:18 #705 [verbose] > │ │
00:00:18 #706 [verbose] > │ Average Ranking │
00:00:18 #707 [verbose] > │ Test case 1. Average Time: 0L │
00:00:18 #708 [verbose] > │ │
00:00:18 #709 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #710 [verbose] >
00:00:18 #711 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 #712 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 #713 [verbose] > │ ## emptyTests │
00:00:18 #714 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #715 [verbose] >
00:00:18 #716 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 #717 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 #718 [verbose] > │ Test: Empty │
00:00:18 #719 [verbose] > │ │
00:00:18 #720 [verbose] > │ Solution: 0 │
00:00:18 #721 [verbose] > │ Test case 1. A. Time: 61L │
00:00:18 #722 [verbose] > │ │
00:00:18 #723 [verbose] > │ Solution: 2 │
00:00:18 #724 [verbose] > │ Test case 1. A. Time: 62L │
00:00:18 #725 [verbose] > │ │
00:00:18 #726 [verbose] > │ Solution: 5 │
00:00:18 #727 [verbose] > │ Test case 1. A. Time: 70L │
00:00:18 #728 [verbose] > │ │
00:00:18 #729 [verbose] > │ Input | Expected | Result | Best │
00:00:18 #730 [verbose] > │ --- | --- | --- | --- │
00:00:18 #731 [verbose] > │ 0 | 0 | 0 | (1, 61) │
00:00:18 #732 [verbose] > │ 2 | 2 | 2 | (1, 62) │
00:00:18 #733 [verbose] > │ 5 | 5 | 5 | (1, 70) │
00:00:18 #734 [verbose] > │ │
00:00:18 #735 [verbose] > │ Averages │
00:00:18 #736 [verbose] > │ Test case 1. Average Time: 64L │
00:00:18 #737 [verbose] > │ │
00:00:18 #738 [verbose] > │ Ranking │
00:00:18 #739 [verbose] > │ Test case 1. Average Time: 64L │
00:00:18 #740 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #741 [verbose] >
00:00:18 #742 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 #743 [verbose] > //// test
00:00:18 #744 [verbose] >
00:00:18 #745 [verbose] > let solutions = [[
00:00:18 #746 [verbose] > "A",
00:00:18 #747 [verbose] > fun n ->
00:00:18 #748 [verbose] > n + 0
00:00:18 #749 [verbose] > ]]
00:00:18 #750 [verbose] > let testCases = seq {
00:00:18 #751 [verbose] > 0, 0
00:00:18 #752 [verbose] > 2, 2
00:00:18 #753 [verbose] > 5, 5
00:00:18 #754 [verbose] > }
00:00:18 #755 [verbose] > let rec emptyTests = runAll (nameof emptyTests) _count solutions testCases
00:00:18 #756 [verbose] > emptyTests
00:00:18 #757 [verbose] > |> sortResultList
00:00:18 #758 [verbose] >
00:00:18 #759 [verbose] > ╭─[ 520.25ms - stdout ]────────────────────────────────────────────────────────╮
00:00:18 #760 [verbose] > │ │
00:00:18 #761 [verbose] > │ │
00:00:18 #762 [verbose] > │ Test: emptyTests │
00:00:18 #763 [verbose] > │ │
00:00:18 #764 [verbose] > │ Solution: 0 │
00:00:18 #765 [verbose] > │ Test case 1. A. Time: 2L │
00:00:18 #766 [verbose] > │ │
00:00:18 #767 [verbose] > │ Solution: 2 │
00:00:18 #768 [verbose] > │ Test case 1. A. Time: 0L │
00:00:18 #769 [verbose] > │ │
00:00:18 #770 [verbose] > │ Solution: 5 │
00:00:18 #771 [verbose] > │ Test case 1. A. Time: 0L │
00:00:18 #772 [verbose] > │ │
00:00:18 #773 [verbose] > │ Input | Expected | Result | Best │
00:00:18 #774 [verbose] > │ --- | --- | --- | --- │
00:00:18 #775 [verbose] > │ 0 | 0 | 0 | (1, 2) │
00:00:18 #776 [verbose] > │ 2 | 2 | 2 | (1, 0) │
00:00:18 #777 [verbose] > │ 5 | 5 | 5 | (1, 0) │
00:00:18 #778 [verbose] > │ │
00:00:18 #779 [verbose] > │ Average Ranking │
00:00:18 #780 [verbose] > │ Test case 1. Average Time: 0L │
00:00:18 #781 [verbose] > │ │
00:00:18 #782 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #783 [verbose] >
00:00:18 #784 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 #785 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 #786 [verbose] > │ ## uniqueLettersTests │
00:00:18 #787 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #788 [verbose] >
00:00:18 #789 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:18 #790 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:18 #791 [verbose] > │ Test: UniqueLetters │
00:00:18 #792 [verbose] > │ │
00:00:18 #793 [verbose] > │ Solution: abc │
00:00:18 #794 [verbose] > │ Test case 1. A. Time: 1512L │
00:00:18 #795 [verbose] > │ Test case 2. B. Time: 1947L │
00:00:18 #796 [verbose] > │ Test case 3. C. Time: 2023L │
00:00:18 #797 [verbose] > │ Test case 4. D. Time: 1358L │
00:00:18 #798 [verbose] > │ Test case 5. E. Time: 1321L │
00:00:18 #799 [verbose] > │ Test case 6. F. Time: 1346L │
00:00:18 #800 [verbose] > │ Test case 7. G. Time: 1304L │
00:00:18 #801 [verbose] > │ Test case 8. H. Time: 1383L │
00:00:18 #802 [verbose] > │ Test case 9. I. Time: 1495L │
00:00:18 #803 [verbose] > │ Test case 10. J. Time: 1245L │
00:00:18 #804 [verbose] > │ Test case 11. K. Time: 1219L │
00:00:18 #805 [verbose] > │ │
00:00:18 #806 [verbose] > │ Solution: accabb │
00:00:18 #807 [verbose] > │ Test case 1. A. Time: 1648L │
00:00:18 #808 [verbose] > │ Test case 2. B. Time: 2061L │
00:00:18 #809 [verbose] > │ Test case 3. C. Time: 2413L │
00:00:18 #810 [verbose] > │ Test case 4. D. Time: 1561L │
00:00:18 #811 [verbose] > │ Test case 5. E. Time: 1593L │
00:00:18 #812 [verbose] > │ Test case 6. F. Time: 1518L │
00:00:18 #813 [verbose] > │ Test case 7. G. Time: 1415L │
00:00:18 #814 [verbose] > │ Test case 8. H. Time: 1510L │
00:00:18 #815 [verbose] > │ Test case 9. I. Time: 1445L │
00:00:18 #816 [verbose] > │ Test case 10. J. Time: 1636L │
00:00:18 #817 [verbose] > │ Test case 11. K. Time: 1317L │
00:00:18 #818 [verbose] > │ │
00:00:18 #819 [verbose] > │ Solution: pprrqqpp │
00:00:18 #820 [verbose] > │ Test case 1. A. Time: 2255L │
00:00:18 #821 [verbose] > │ Test case 2. B. Time: 2408L │
00:00:18 #822 [verbose] > │ Test case 3. C. Time: 2393L │
00:00:18 #823 [verbose] > │ Test case 4. D. Time: 1675L │
00:00:18 #824 [verbose] > │ Test case 5. E. Time: 1911L │
00:00:18 #825 [verbose] > │ Test case 6. F. Time: 2126L │
00:00:18 #826 [verbose] > │ Test case 7. G. Time: 1504L │
00:00:18 #827 [verbose] > │ Test case 8. H. Time: 1715L │
00:00:18 #828 [verbose] > │ Test case 9. I. Time: 1537L │
00:00:18 #829 [verbose] > │ Test case 10. J. Time: 1522L │
00:00:18 #830 [verbose] > │ Test case 11. K. Time: 1322L │
00:00:18 #831 [verbose] > │ │
00:00:18 #832 [verbose] > │ Solution: │
00:00:18 #833 [verbose] > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:18 #834 [verbose] > │ bbb │
00:00:18 #835 [verbose] > │ Test case 1. A. Time: 13073L │
00:00:18 #836 [verbose] > │ Test case 2. B. Time: 11519L │
00:00:18 #837 [verbose] > │ Test case 3. C. Time: 8373L │
00:00:18 #838 [verbose] > │ Test case 4. D. Time: 5860L │
00:00:18 #839 [verbose] > │ Test case 5. E. Time: 6490L │
00:00:18 #840 [verbose] > │ Test case 6. F. Time: 6325L │
00:00:18 #841 [verbose] > │ Test case 7. G. Time: 5799L │
00:00:18 #842 [verbose] > │ Test case 8. H. Time: 7099L │
00:00:18 #843 [verbose] > │ Test case 9. I. Time: 6133L │
00:00:18 #844 [verbose] > │ Test case 10. J. Time: 5993L │
00:00:18 #845 [verbose] > │ Test case 11. K. Time: 2040L │
00:00:18 #846 [verbose] > │ │
00:00:18 #847 [verbose] > │ Input │
00:00:18 #848 [verbose] > │ | Expected | Result | Best │
00:00:18 #849 [verbose] > │ --- │
00:00:18 #850 [verbose] > │ │
00:00:18 #851 [verbose] > │ | --- | --- | --- │
00:00:18 #852 [verbose] > │ abc │
00:00:18 #853 [verbose] > │ │
00:00:18 #854 [verbose] > │ | abc | abc | (11, 1219) │
00:00:18 #855 [verbose] > │ accabb │
00:00:18 #856 [verbose] > │ | acb | acb | (11, 1317) │
00:00:18 #857 [verbose] > │ pprrqqpp │
00:00:18 #858 [verbose] > │ | prq | prq | (11, 1322) │
00:00:18 #859 [verbose] > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:18 #860 [verbose] > │ bbb | acb | acb | (11, 2040) │
00:00:18 #861 [verbose] > │ │
00:00:18 #862 [verbose] > │ Averages │
00:00:18 #863 [verbose] > │ Test case 1. Average Time: 4622L │
00:00:18 #864 [verbose] > │ Test case 2. Average Time: 4483L │
00:00:18 #865 [verbose] > │ Test case 3. Average Time: 3800L │
00:00:18 #866 [verbose] > │ Test case 4. Average Time: 2613L │
00:00:18 #867 [verbose] > │ Test case 5. Average Time: 2828L │
00:00:18 #868 [verbose] > │ Test case 6. Average Time: 2828L │
00:00:18 #869 [verbose] > │ Test case 7. Average Time: 2505L │
00:00:18 #870 [verbose] > │ Test case 8. Average Time: 2926L │
00:00:18 #871 [verbose] > │ Test case 9. Average Time: 2652L │
00:00:18 #872 [verbose] > │ Test case 10. Average Time: 2599L │
00:00:18 #873 [verbose] > │ Test case 11. Average Time: 1474L │
00:00:18 #874 [verbose] > │ │
00:00:18 #875 [verbose] > │ Ranking │
00:00:18 #876 [verbose] > │ Test case 1. Average Time: 4622L │
00:00:18 #877 [verbose] > │ Test case 2. Average Time: 4483L │
00:00:18 #878 [verbose] > │ Test case 3. Average Time: 3800L │
00:00:18 #879 [verbose] > │ Test case 8. Average Time: 2926L │
00:00:18 #880 [verbose] > │ Test case 5. Average Time: 2828L │
00:00:18 #881 [verbose] > │ Test case 6. Average Time: 2828L │
00:00:18 #882 [verbose] > │ Test case 9. Average Time: 2652L │
00:00:18 #883 [verbose] > │ Test case 4. Average Time: 2613L │
00:00:18 #884 [verbose] > │ Test case 10. Average Time: 2599L │
00:00:18 #885 [verbose] > │ Test case 7. Average Time: 2505L │
00:00:18 #886 [verbose] > │ Test case 11. Average Time: 1474L │
00:00:18 #887 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:18 #888 [verbose] >
00:00:18 #889 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:18 #890 [verbose] > //// test
00:00:18 #891 [verbose] >
00:00:18 #892 [verbose] > let solutions = [[
00:00:18 #893 [verbose] > "A",
00:00:18 #894 [verbose] > fun input ->
00:00:18 #895 [verbose] > input
00:00:18 #896 [verbose] > |> Seq.toList
00:00:18 #897 [verbose] > |> List.fold (fun acc x -> if List.contains x acc then acc else acc @ [[
00:00:18 #898 [verbose] > x ]]) [[]]
00:00:18 #899 [verbose] > |> Seq.toArray
00:00:18 #900 [verbose] > |> String
00:00:18 #901 [verbose] >
00:00:18 #902 [verbose] > "B",
00:00:18 #903 [verbose] > fun input ->
00:00:18 #904 [verbose] > input
00:00:18 #905 [verbose] > |> Seq.rev
00:00:18 #906 [verbose] > |> fun list -> Seq.foldBack (fun x acc -> if List.contains x acc then
00:00:18 #907 [verbose] > acc else x :: acc) list [[]]
00:00:18 #908 [verbose] > |> Seq.rev
00:00:18 #909 [verbose] > |> Seq.toArray
00:00:18 #910 [verbose] > |> String
00:00:18 #911 [verbose] >
00:00:18 #912 [verbose] > "C",
00:00:18 #913 [verbose] > fun input ->
00:00:18 #914 [verbose] > input
00:00:18 #915 [verbose] > |> Seq.rev
00:00:18 #916 [verbose] > |> fun list -> Seq.foldBack (fun x (set, acc) -> if Set.contains x set
00:00:18 #917 [verbose] > then set, acc else set.Add x, x :: acc) list (Set.empty, [[]])
00:00:18 #918 [verbose] > |> snd
00:00:18 #919 [verbose] > |> Seq.rev
00:00:18 #920 [verbose] > |> Seq.toArray
00:00:18 #921 [verbose] > |> String
00:00:18 #922 [verbose] >
00:00:18 #923 [verbose] > "D",
00:00:18 #924 [verbose] > fun input ->
00:00:18 #925 [verbose] > input
00:00:18 #926 [verbose] > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:18 #927 [verbose] > else set.Add x, Array.append acc [[| x |]]) (Set.empty, [[||]])
00:00:18 #928 [verbose] > |> snd
00:00:18 #929 [verbose] > |> String
00:00:18 #930 [verbose] >
00:00:18 #931 [verbose] > "E",
00:00:18 #932 [verbose] > fun input ->
00:00:18 #933 [verbose] > input
00:00:18 #934 [verbose] > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:18 #935 [verbose] > else set.Add x, x :: acc) (Set.empty, [[]])
00:00:18 #936 [verbose] > |> snd
00:00:18 #937 [verbose] > |> List.rev
00:00:18 #938 [verbose] > |> List.toArray
00:00:18 #939 [verbose] > |> String
00:00:18 #940 [verbose] >
00:00:18 #941 [verbose] > "F",
00:00:18 #942 [verbose] > fun input ->
00:00:18 #943 [verbose] > input
00:00:18 #944 [verbose] > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:18 #945 [verbose] > else set.Add x, acc @ [[ x ]]) (Set.empty, [[]])
00:00:18 #946 [verbose] > |> snd
00:00:18 #947 [verbose] > |> List.toArray
00:00:18 #948 [verbose] > |> String
00:00:18 #949 [verbose] >
00:00:18 #950 [verbose] > "G",
00:00:18 #951 [verbose] > fun input ->
00:00:18 #952 [verbose] > input
00:00:18 #953 [verbose] > |> Seq.fold (fun (set, acc) x -> if Set.contains x set then set, acc
00:00:18 #954 [verbose] > else set.Add x, x :: acc) (Set.empty, [[]])
00:00:18 #955 [verbose] > |> snd
00:00:18 #956 [verbose] > |> List.toArray
00:00:18 #957 [verbose] > |> Array.rev
00:00:18 #958 [verbose] > |> String
00:00:18 #959 [verbose] >
00:00:18 #960 [verbose] > "H",
00:00:18 #961 [verbose] > fun input ->
00:00:18 #962 [verbose] > input
00:00:18 #963 [verbose] > |> Seq.toList
00:00:18 #964 [verbose] > |> fun list ->
00:00:18 #965 [verbose] > let rec loop set = function
00:00:18 #966 [verbose] > | head :: tail when Set.contains head set -> loop set tail
00:00:18 #967 [verbose] > | head :: tail -> (loop (set.Add head) tail) @ [[ head ]]
00:00:18 #968 [verbose] > | [[]] -> [[]]
00:00:18 #969 [verbose] > loop Set.empty list
00:00:18 #970 [verbose] > |> List.rev
00:00:18 #971 [verbose] > |> List.toArray
00:00:18 #972 [verbose] > |> String
00:00:18 #973 [verbose] >
00:00:18 #974 [verbose] > "I",
00:00:18 #975 [verbose] > fun input ->
00:00:18 #976 [verbose] > input
00:00:18 #977 [verbose] > |> Seq.toList
00:00:18 #978 [verbose] > |> fun list ->
00:00:18 #979 [verbose] > let rec loop set = function
00:00:18 #980 [verbose] > | head :: tail when Set.contains head set -> loop set tail
00:00:18 #981 [verbose] > | head :: tail -> loop (set.Add head) tail |> Array.append [[|
00:00:18 #982 [verbose] > head |]]
00:00:18 #983 [verbose] > | [[]] -> [[||]]
00:00:18 #984 [verbose] > loop Set.empty list
00:00:18 #985 [verbose] > |> String
00:00:18 #986 [verbose] >
00:00:18 #987 [verbose] > "J",
00:00:18 #988 [verbose] > fun input ->
00:00:18 #989 [verbose] > input
00:00:18 #990 [verbose] > |> Seq.toList
00:00:18 #991 [verbose] > |> fun list ->
00:00:18 #992 [verbose] > let rec loop set = function
00:00:18 #993 [verbose] > | head :: tail when Set.contains head set -> loop set tail
00:00:18 #994 [verbose] > | head :: tail -> head :: loop (set.Add head) tail
00:00:18 #995 [verbose] > | [[]] -> [[]]
00:00:18 #996 [verbose] > loop Set.empty list
00:00:18 #997 [verbose] > |> List.toArray
00:00:18 #998 [verbose] > |> String
00:00:18 #999 [verbose] >
00:00:18 #1000 [verbose] > "K",
00:00:18 #1001 [verbose] > fun input ->
00:00:18 #1002 [verbose] > input
00:00:18 #1003 [verbose] > |> Seq.distinct
00:00:18 #1004 [verbose] > |> Seq.toArray
00:00:18 #1005 [verbose] > |> String
00:00:18 #1006 [verbose] > ]]
00:00:18 #1007 [verbose] > let testCases = seq {
00:00:18 #1008 [verbose] > "abc", "abc"
00:00:18 #1009 [verbose] > "accabb", "acb"
00:00:18 #1010 [verbose] > "pprrqqpp", "prq"
00:00:18 #1011 [verbose] >
00:00:18 #1012 [verbose] > "aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbbbbb
00:00:18 #1013 [verbose] > ", "acb"
00:00:18 #1014 [verbose] > }
00:00:18 #1015 [verbose] > let rec uniqueLettersTests = runAll (nameof uniqueLettersTests) _count solutions
00:00:18 #1016 [verbose] > testCases
00:00:18 #1017 [verbose] > uniqueLettersTests
00:00:18 #1018 [verbose] > |> sortResultList
00:00:25 #1019 [verbose] >
00:00:25 #1020 [verbose] > ╭─[ 6.63s - stdout ]───────────────────────────────────────────────────────────╮
00:00:25 #1021 [verbose] > │ │
00:00:25 #1022 [verbose] > │ │
00:00:25 #1023 [verbose] > │ Test: uniqueLettersTests │
00:00:25 #1024 [verbose] > │ │
00:00:25 #1025 [verbose] > │ Solution: abc │
00:00:25 #1026 [verbose] > │ Test case 1. A. Time: 3L │
00:00:25 #1027 [verbose] > │ Test case 2. B. Time: 5L │
00:00:25 #1028 [verbose] > │ Test case 3. C. Time: 4L │
00:00:25 #1029 [verbose] > │ Test case 4. D. Time: 3L │
00:00:25 #1030 [verbose] > │ Test case 5. E. Time: 2L │
00:00:25 #1031 [verbose] > │ Test case 6. F. Time: 2L │
00:00:25 #1032 [verbose] > │ Test case 7. G. Time: 2L │
00:00:25 #1033 [verbose] > │ Test case 8. H. Time: 2L │
00:00:25 #1034 [verbose] > │ Test case 9. I. Time: 2L │
00:00:25 #1035 [verbose] > │ Test case 10. J. Time: 1L │
00:00:25 #1036 [verbose] > │ Test case 11. K. Time: 2L │
00:00:25 #1037 [verbose] > │ │
00:00:25 #1038 [verbose] > │ Solution: accabb │
00:00:25 #1039 [verbose] > │ Test case 1. A. Time: 1L │
00:00:25 #1040 [verbose] > │ Test case 2. B. Time: 1L │
00:00:25 #1041 [verbose] > │ Test case 3. C. Time: 2L │
00:00:25 #1042 [verbose] > │ Test case 4. D. Time: 1L │
00:00:25 #1043 [verbose] > │ Test case 5. E. Time: 1L │
00:00:25 #1044 [verbose] > │ Test case 6. F. Time: 1L │
00:00:25 #1045 [verbose] > │ Test case 7. G. Time: 0L │
00:00:25 #1046 [verbose] > │ Test case 8. H. Time: 0L │
00:00:25 #1047 [verbose] > │ Test case 9. I. Time: 0L │
00:00:25 #1048 [verbose] > │ Test case 10. J. Time: 0L │
00:00:25 #1049 [verbose] > │ Test case 11. K. Time: 1L │
00:00:25 #1050 [verbose] > │ │
00:00:25 #1051 [verbose] > │ Solution: pprrqqpp │
00:00:25 #1052 [verbose] > │ Test case 1. A. Time: 1L │
00:00:25 #1053 [verbose] > │ Test case 2. B. Time: 1L │
00:00:25 #1054 [verbose] > │ Test case 3. C. Time: 1L │
00:00:25 #1055 [verbose] > │ Test case 4. D. Time: 0L │
00:00:25 #1056 [verbose] > │ Test case 5. E. Time: 1L │
00:00:25 #1057 [verbose] > │ Test case 6. F. Time: 1L │
00:00:25 #1058 [verbose] > │ Test case 7. G. Time: 1L │
00:00:25 #1059 [verbose] > │ Test case 8. H. Time: 1L │
00:00:25 #1060 [verbose] > │ Test case 9. I. Time: 1L │
00:00:25 #1061 [verbose] > │ Test case 10. J. Time: 1L │
00:00:25 #1062 [verbose] > │ Test case 11. K. Time: 0L │
00:00:25 #1063 [verbose] > │ │
00:00:25 #1064 [verbose] > │ Solution: │
00:00:25 #1065 [verbose] > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:25 #1066 [verbose] > │ bbb │
00:00:25 #1067 [verbose] > │ Test case 1. A. Time: 15L │
00:00:25 #1068 [verbose] > │ Test case 2. B. Time: 10L │
00:00:25 #1069 [verbose] > │ Test case 3. C. Time: 13L │
00:00:25 #1070 [verbose] > │ Test case 4. D. Time: 8L │
00:00:25 #1071 [verbose] > │ Test case 5. E. Time: 7L │
00:00:25 #1072 [verbose] > │ Test case 6. F. Time: 8L │
00:00:25 #1073 [verbose] > │ Test case 7. G. Time: 8L │
00:00:25 #1074 [verbose] > │ Test case 8. H. Time: 8L │
00:00:25 #1075 [verbose] > │ Test case 9. I. Time: 6L │
00:00:25 #1076 [verbose] > │ Test case 10. J. Time: 7L │
00:00:25 #1077 [verbose] > │ Test case 11. K. Time: 3L │
00:00:25 #1078 [verbose] > │ │
00:00:25 #1079 [verbose] > │ Input │
00:00:25 #1080 [verbose] > │ | Expected | Result | Best │
00:00:25 #1081 [verbose] > │ --- │
00:00:25 #1082 [verbose] > │ | --- | --- | --- │
00:00:25 #1083 [verbose] > │ abc │
00:00:25 #1084 [verbose] > │ | abc | abc | (10, 1) │
00:00:25 #1085 [verbose] > │ accabb │
00:00:25 #1086 [verbose] > │ | acb | acb | (7, 0) │
00:00:25 #1087 [verbose] > │ pprrqqpp │
00:00:25 #1088 [verbose] > │ | prq | prq | (4, 0) │
00:00:25 #1089 [verbose] > │ aaaaaaaaaaaaaaccccccabbbbbbbaaacccbbbaaccccccccccacbbbbbbbbbbbbbcccccccbbbbb │
00:00:25 #1090 [verbose] > │ bbb | acb | acb | (11, 3) │
00:00:25 #1091 [verbose] > │ │
00:00:25 #1092 [verbose] > │ Average Ranking │
00:00:25 #1093 [verbose] > │ Test case 11. Average Time: 1L │
00:00:25 #1094 [verbose] > │ Test case 5. Average Time: 2L │
00:00:25 #1095 [verbose] > │ Test case 7. Average Time: 2L │
00:00:25 #1096 [verbose] > │ Test case 8. Average Time: 2L │
00:00:25 #1097 [verbose] > │ Test case 9. Average Time: 2L │
00:00:25 #1098 [verbose] > │ Test case 10. Average Time: 2L │
00:00:25 #1099 [verbose] > │ Test case 4. Average Time: 3L │
00:00:25 #1100 [verbose] > │ Test case 6. Average Time: 3L │
00:00:25 #1101 [verbose] > │ Test case 2. Average Time: 4L │
00:00:25 #1102 [verbose] > │ Test case 1. Average Time: 5L │
00:00:25 #1103 [verbose] > │ Test case 3. Average Time: 5L │
00:00:25 #1104 [verbose] > │ │
00:00:25 #1105 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 #1106 [verbose] >
00:00:25 #1107 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 #1108 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 #1109 [verbose] > │ ## rotateStringsTests │
00:00:25 #1110 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 #1111 [verbose] >
00:00:25 #1112 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:25 #1113 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:25 #1114 [verbose] > │ https://www.hackerrank.com/challenges/rotate-string/forum │
00:00:25 #1115 [verbose] > │ │
00:00:25 #1116 [verbose] > │ Test: RotateStrings │
00:00:25 #1117 [verbose] > │ │
00:00:25 #1118 [verbose] > │ Solution: abc │
00:00:25 #1119 [verbose] > │ Test case 1. A. Time: 1842L │
00:00:25 #1120 [verbose] > │ Test case 2. B. Time: 1846L │
00:00:25 #1121 [verbose] > │ Test case 3. C. Time: 1936L │
00:00:25 #1122 [verbose] > │ Test case 4. CA. Time: 2224L │
00:00:25 #1123 [verbose] > │ Test case 5. CB. Time: 2329L │
00:00:25 #1124 [verbose] > │ Test case 6. D. Time: 2474L │
00:00:25 #1125 [verbose] > │ Test case 7. E. Time: 1664L │
00:00:25 #1126 [verbose] > │ Test case 8. F. Time: 1517L │
00:00:25 #1127 [verbose] > │ Test case 9. FA. Time: 1651L │
00:00:25 #1128 [verbose] > │ Test case 10. FB. Time: 3764L │
00:00:25 #1129 [verbose] > │ Test case 11. FC. Time: 5415L │
00:00:25 #1130 [verbose] > │ │
00:00:25 #1131 [verbose] > │ Solution: abcde │
00:00:25 #1132 [verbose] > │ Test case 1. A. Time: 3356L │
00:00:25 #1133 [verbose] > │ Test case 2. B. Time: 2592L │
00:00:25 #1134 [verbose] > │ Test case 3. C. Time: 2346L │
00:00:25 #1135 [verbose] > │ Test case 4. CA. Time: 2997L │
00:00:25 #1136 [verbose] > │ Test case 5. CB. Time: 3061L │
00:00:25 #1137 [verbose] > │ Test case 6. D. Time: 4051L │
00:00:25 #1138 [verbose] > │ Test case 7. E. Time: 1905L │
00:00:25 #1139 [verbose] > │ Test case 8. F. Time: 1771L │
00:00:25 #1140 [verbose] > │ Test case 9. FA. Time: 2175L │
00:00:25 #1141 [verbose] > │ Test case 10. FB. Time: 3275L │
00:00:25 #1142 [verbose] > │ Test case 11. FC. Time: 5266L │
00:00:25 #1143 [verbose] > │ │
00:00:25 #1144 [verbose] > │ Solution: abcdefghi │
00:00:25 #1145 [verbose] > │ Test case 1. A. Time: 4492L │
00:00:25 #1146 [verbose] > │ Test case 2. B. Time: 3526L │
00:00:25 #1147 [verbose] > │ Test case 3. C. Time: 3583L │
00:00:25 #1148 [verbose] > │ Test case 4. CA. Time: 3711L │
00:00:25 #1149 [verbose] > │ Test case 5. CB. Time: 4783L │
00:00:25 #1150 [verbose] > │ Test case 6. D. Time: 7557L │
00:00:25 #1151 [verbose] > │ Test case 7. E. Time: 3452L │
00:00:25 #1152 [verbose] > │ Test case 8. F. Time: 3050L │
00:00:25 #1153 [verbose] > │ Test case 9. FA. Time: 3275L │
00:00:25 #1154 [verbose] > │ Test case 10. FB. Time: 4635L │
00:00:25 #1155 [verbose] > │ Test case 11. FC. Time: 5616L │
00:00:25 #1156 [verbose] > │ │
00:00:25 #1157 [verbose] > │ Solution: abab │
00:00:25 #1158 [verbose] > │ Test case 1. A. Time: 2093L │
00:00:25 #1159 [verbose] > │ Test case 2. B. Time: 1843L │
00:00:25 #1160 [verbose] > │ Test case 3. C. Time: 1746L │
00:00:25 #1161 [verbose] > │ Test case 4. CA. Time: 2085L │
00:00:25 #1162 [verbose] > │ Test case 5. CB. Time: 2139L │
00:00:25 #1163 [verbose] > │ Test case 6. D. Time: 2095L │
00:00:25 #1164 [verbose] > │ Test case 7. E. Time: 1723L │
00:00:25 #1165 [verbose] > │ Test case 8. F. Time: 1558L │
00:00:25 #1166 [verbose] > │ Test case 9. FA. Time: 1620L │
00:00:25 #1167 [verbose] > │ Test case 10. FB. Time: 2319L │
00:00:25 #1168 [verbose] > │ Test case 11. FC. Time: 3918L │
00:00:25 #1169 [verbose] > │ │
00:00:25 #1170 [verbose] > │ Solution: aa │
00:00:25 #1171 [verbose] > │ Test case 1. A. Time: 1107L │
00:00:25 #1172 [verbose] > │ Test case 2. B. Time: 1241L │
00:00:25 #1173 [verbose] > │ Test case 3. C. Time: 1183L │
00:00:25 #1174 [verbose] > │ Test case 4. CA. Time: 1563L │
00:00:25 #1175 [verbose] > │ Test case 5. CB. Time: 1525L │
00:00:25 #1176 [verbose] > │ Test case 6. D. Time: 1591L │
00:00:25 #1177 [verbose] > │ Test case 7. E. Time: 1327L │
00:00:25 #1178 [verbose] > │ Test case 8. F. Time: 1151L │
00:00:25 #1179 [verbose] > │ Test case 9. FA. Time: 1180L │
00:00:25 #1180 [verbose] > │ Test case 10. FB. Time: 1733L │
00:00:25 #1181 [verbose] > │ Test case 11. FC. Time: 2817L │
00:00:25 #1182 [verbose] > │ │
00:00:25 #1183 [verbose] > │ Solution: z │
00:00:25 #1184 [verbose] > │ Test case 1. A. Time: 816L │
00:00:25 #1185 [verbose] > │ Test case 2. B. Time: 745L │
00:00:25 #1186 [verbose] > │ Test case 3. C. Time: 928L │
00:00:25 #1187 [verbose] > │ Test case 4. CA. Time: 1375L │
00:00:25 #1188 [verbose] > │ Test case 5. CB. Time: 1029L │
00:00:25 #1189 [verbose] > │ Test case 6. D. Time: 852L │
00:00:25 #1190 [verbose] > │ Test case 7. E. Time: 712L │
00:00:25 #1191 [verbose] > │ Test case 8. F. Time: 263L │
00:00:25 #1192 [verbose] > │ Test case 9. FA. Time: 232L │
00:00:25 #1193 [verbose] > │ Test case 10. FB. Time: 773L │
00:00:25 #1194 [verbose] > │ Test case 11. FC. Time: 1789L │
00:00:25 #1195 [verbose] > │ │
00:00:25 #1196 [verbose] > │ Input | Expected │
00:00:25 #1197 [verbose] > │ │
00:00:25 #1198 [verbose] > │ | Result │
00:00:25 #1199 [verbose] > │ │
00:00:25 #1200 [verbose] > │ | Best │
00:00:25 #1201 [verbose] > │ --- | --- │
00:00:25 #1202 [verbose] > │ │
00:00:25 #1203 [verbose] > │ | --- │
00:00:25 #1204 [verbose] > │ │
00:00:25 #1205 [verbose] > │ | --- │
00:00:25 #1206 [verbose] > │ abc | bca cab abc │
00:00:25 #1207 [verbose] > │ │
00:00:25 #1208 [verbose] > │ | bca cab abc │
00:00:25 #1209 [verbose] > │ │
00:00:25 #1210 [verbose] > │ | (8, 1517) │
00:00:25 #1211 [verbose] > │ abcde | bcdea cdeab deabc eabcd abcde │
00:00:25 #1212 [verbose] > │ | bcdea cdeab deabc eabcd abcde │
00:00:25 #1213 [verbose] > │ | (8, 1771) │
00:00:25 #1214 [verbose] > │ abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd fghiabcde │
00:00:25 #1215 [verbose] > │ ghiabcdef hiabcdefg iabcdefgh abcdefghi | bcdefghia cdefghiab │
00:00:25 #1216 [verbose] > │ defghiabc efghiabcd fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi │
00:00:25 #1217 [verbose] > │ | (8, 3050) │
00:00:25 #1218 [verbose] > │ abab | baba abab baba abab │
00:00:25 #1219 [verbose] > │ │
00:00:25 #1220 [verbose] > │ | baba abab baba abab │
00:00:25 #1221 [verbose] > │ │
00:00:25 #1222 [verbose] > │ | (8, 1558) │
00:00:25 #1223 [verbose] > │ aa | aa aa │
00:00:25 #1224 [verbose] > │ │
00:00:25 #1225 [verbose] > │ | aa aa │
00:00:25 #1226 [verbose] > │ │
00:00:25 #1227 [verbose] > │ | (1, 1107) │
00:00:25 #1228 [verbose] > │ z | z │
00:00:25 #1229 [verbose] > │ │
00:00:25 #1230 [verbose] > │ | z │
00:00:25 #1231 [verbose] > │ │
00:00:25 #1232 [verbose] > │ | (9, 232) │
00:00:25 #1233 [verbose] > │ │
00:00:25 #1234 [verbose] > │ Averages │
00:00:25 #1235 [verbose] > │ Test case 1. Average Time: 2284L │
00:00:25 #1236 [verbose] > │ Test case 2. Average Time: 1965L │
00:00:25 #1237 [verbose] > │ Test case 3. Average Time: 1953L │
00:00:25 #1238 [verbose] > │ Test case 4. Average Time: 2325L │
00:00:25 #1239 [verbose] > │ Test case 5. Average Time: 2477L │
00:00:25 #1240 [verbose] > │ Test case 6. Average Time: 3103L │
00:00:25 #1241 [verbose] > │ Test case 7. Average Time: 1797L │
00:00:25 #1242 [verbose] > │ Test case 8. Average Time: 1551L │
00:00:25 #1243 [verbose] > │ Test case 9. Average Time: 1688L │
00:00:25 #1244 [verbose] > │ Test case 10. Average Time: 2749L │
00:00:25 #1245 [verbose] > │ Test case 11. Average Time: 4136L │
00:00:25 #1246 [verbose] > │ │
00:00:25 #1247 [verbose] > │ Ranking │
00:00:25 #1248 [verbose] > │ Test case 11. Average Time: 4136L │
00:00:25 #1249 [verbose] > │ Test case 6. Average Time: 3103L │
00:00:25 #1250 [verbose] > │ Test case 10. Average Time: 2749L │
00:00:25 #1251 [verbose] > │ Test case 5. Average Time: 2477L │
00:00:25 #1252 [verbose] > │ Test case 4. Average Time: 2325L │
00:00:25 #1253 [verbose] > │ Test case 1. Average Time: 2284L │
00:00:25 #1254 [verbose] > │ Test case 2. Average Time: 1965L │
00:00:25 #1255 [verbose] > │ Test case 3. Average Time: 1953L │
00:00:25 #1256 [verbose] > │ Test case 7. Average Time: 1797L │
00:00:25 #1257 [verbose] > │ Test case 9. Average Time: 1688L │
00:00:25 #1258 [verbose] > │ Test case 8. Average Time: 1551L │
00:00:25 #1259 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:25 #1260 [verbose] >
00:00:25 #1261 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:00:25 #1262 [verbose] > //// test
00:00:25 #1263 [verbose] >
00:00:25 #1264 [verbose] > let solutions = [[
00:00:25 #1265 [verbose] > "A",
00:00:25 #1266 [verbose] > fun (input: string) ->
00:00:25 #1267 [verbose] > let resultList =
00:00:25 #1268 [verbose] > List.fold (fun acc x ->
00:00:25 #1269 [verbose] > let rotate (text: string) (letter: string) = (text |>
00:00:25 #1270 [verbose] > SpiralSm.slice 1 (input.Length - 1)) + letter
00:00:25 #1271 [verbose] > [[ rotate (if acc.IsEmpty then input else acc.Head) (string x)
00:00:25 #1272 [verbose] > ]] @ acc
00:00:25 #1273 [verbose] > ) [[]] (Seq.toList input)
00:00:25 #1274 [verbose] >
00:00:25 #1275 [verbose] > (resultList, "")
00:00:25 #1276 [verbose] > ||> List.foldBack (fun acc x -> x + acc + " ")
00:00:25 #1277 [verbose] > |> _.TrimEnd()
00:00:25 #1278 [verbose] >
00:00:25 #1279 [verbose] > "B",
00:00:25 #1280 [verbose] > fun input ->
00:00:25 #1281 [verbose] > input
00:00:25 #1282 [verbose] > |> Seq.toList
00:00:25 #1283 [verbose] > |> List.fold (fun (acc: string list) letter ->
00:00:25 #1284 [verbose] > let last =
00:00:25 #1285 [verbose] > if acc.IsEmpty
00:00:25 #1286 [verbose] > then input
00:00:25 #1287 [verbose] > else acc.Head
00:00:25 #1288 [verbose] >
00:00:25 #1289 [verbose] > let item = last.[[1 .. input.Length - 1]] + string letter
00:00:25 #1290 [verbose] >
00:00:25 #1291 [verbose] > item :: acc
00:00:25 #1292 [verbose] > ) [[]]
00:00:25 #1293 [verbose] > |> List.rev
00:00:25 #1294 [verbose] > |> SpiralSm.concat " "
00:00:25 #1295 [verbose] >
00:00:25 #1296 [verbose] > "C",
00:00:25 #1297 [verbose] > fun input ->
00:00:25 #1298 [verbose] > input
00:00:25 #1299 [verbose] > |> Seq.toList
00:00:25 #1300 [verbose] > |> List.fold (fun (acc: string list) letter -> acc.Head.[[ 1 ..
00:00:25 #1301 [verbose] > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:25 #1302 [verbose] > |> List.rev
00:00:25 #1303 [verbose] > |> List.skip 1
00:00:25 #1304 [verbose] > |> SpiralSm.concat " "
00:00:25 #1305 [verbose] >
00:00:25 #1306 [verbose] > "CA",
00:00:25 #1307 [verbose] > fun input ->
00:00:25 #1308 [verbose] > input
00:00:25 #1309 [verbose] > |> Seq.fold (fun (acc: string list) letter -> acc.Head.[[ 1 ..
00:00:25 #1310 [verbose] > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:25 #1311 [verbose] > |> Seq.rev
00:00:25 #1312 [verbose] > |> Seq.skip 1
00:00:25 #1313 [verbose] > |> SpiralSm.concat " "
00:00:25 #1314 [verbose] >
00:00:25 #1315 [verbose] > "CB",
00:00:25 #1316 [verbose] > fun input ->
00:00:25 #1317 [verbose] > input
00:00:25 #1318 [verbose] > |> Seq.toArray
00:00:25 #1319 [verbose] > |> Array.fold (fun (acc: string[[]]) letter -> acc |> Array.append [[|
00:00:25 #1320 [verbose] > acc.[[0]].[[ 1 .. input.Length - 1 ]] + string letter |]]) [[| input |]]
00:00:25 #1321 [verbose] > |> Array.rev
00:00:25 #1322 [verbose] > |> Array.skip 1
00:00:25 #1323 [verbose] > |> SpiralSm.concat " "
00:00:25 #1324 [verbose] >
00:00:25 #1325 [verbose] > "D",
00:00:25 #1326 [verbose] > fun input ->
00:00:25 #1327 [verbose] > input
00:00:25 #1328 [verbose] > |> Seq.toList
00:00:25 #1329 [verbose] > |> fun list ->
00:00:25 #1330 [verbose] > let rec loop (acc: char list list) = function
00:00:25 #1331 [verbose] > | _ when acc.Length = list.Length -> acc
00:00:25 #1332 [verbose] > | head :: tail ->
00:00:25 #1333 [verbose] > let item = tail @ [[ head ]]
00:00:25 #1334 [verbose] > loop (item :: acc) item
00:00:25 #1335 [verbose] > | [[]] -> [[]]
00:00:25 #1336 [verbose] > loop [[]] list
00:00:25 #1337 [verbose] > |> List.rev
00:00:25 #1338 [verbose] > |> List.map (List.toArray >> String)
00:00:25 #1339 [verbose] > |> SpiralSm.concat " "
00:00:25 #1340 [verbose] >
00:00:25 #1341 [verbose] > "E",
00:00:25 #1342 [verbose] > fun input ->
00:00:25 #1343 [verbose] > input
00:00:25 #1344 [verbose] > |> Seq.toList
00:00:25 #1345 [verbose] > |> fun list ->
00:00:25 #1346 [verbose] > let rec loop (last: string) = function
00:00:25 #1347 [verbose] > | head :: tail ->
00:00:25 #1348 [verbose] > let item = last.[[1 .. input.Length - 1]] + string head
00:00:25 #1349 [verbose] > item :: loop item tail
00:00:25 #1350 [verbose] > | [[]] -> [[]]
00:00:25 #1351 [verbose] > loop input list
00:00:25 #1352 [verbose] > |> SpiralSm.concat " "
00:00:25 #1353 [verbose] >
00:00:25 #1354 [verbose] > "F",
00:00:25 #1355 [verbose] > fun input ->
00:00:25 #1356 [verbose] > Array.singleton 0
00:00:25 #1357 [verbose] > |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:25 #1358 [verbose] > |> Array.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:25 #1359 [verbose] > |> SpiralSm.concat " "
00:00:25 #1360 [verbose] >
00:00:25 #1361 [verbose] > "FA",
00:00:25 #1362 [verbose] > fun input ->
00:00:25 #1363 [verbose] > List.singleton 0
00:00:25 #1364 [verbose] > |> List.append [[ 1 .. input.Length - 1 ]]
00:00:25 #1365 [verbose] > |> List.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:25 #1366 [verbose] > |> SpiralSm.concat " "
00:00:25 #1367 [verbose] >
00:00:25 #1368 [verbose] > "FB",
00:00:25 #1369 [verbose] > fun input ->
00:00:25 #1370 [verbose] > Seq.singleton 0
00:00:25 #1371 [verbose] > |> Seq.append (seq { 1 .. input.Length - 1 })
00:00:25 #1372 [verbose] > |> Seq.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:25 #1373 [verbose] > |> SpiralSm.concat " "
00:00:25 #1374 [verbose] >
00:00:25 #1375 [verbose] > "FC",
00:00:25 #1376 [verbose] > fun input ->
00:00:25 #1377 [verbose] > Array.singleton 0
00:00:25 #1378 [verbose] > |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:25 #1379 [verbose] > |> Array.Parallel.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:25 #1380 [verbose] > |> SpiralSm.concat " "
00:00:25 #1381 [verbose] > ]]
00:00:25 #1382 [verbose] > let testCases = seq {
00:00:25 #1383 [verbose] > "abc", "bca cab abc"
00:00:25 #1384 [verbose] > "abcde", "bcdea cdeab deabc eabcd abcde"
00:00:25 #1385 [verbose] > "abcdefghi", "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef
00:00:25 #1386 [verbose] > hiabcdefg iabcdefgh abcdefghi"
00:00:25 #1387 [verbose] > "abab", "baba abab baba abab"
00:00:25 #1388 [verbose] > "aa", "aa aa"
00:00:25 #1389 [verbose] > "z", "z"
00:00:25 #1390 [verbose] > }
00:00:25 #1391 [verbose] > let rec rotateStringsTests = runAll (nameof rotateStringsTests) _count solutions
00:00:25 #1392 [verbose] > testCases
00:00:25 #1393 [verbose] > rotateStringsTests
00:00:25 #1394 [verbose] > |> sortResultList
00:00:35 #1395 [verbose] >
00:00:35 #1396 [verbose] > ╭─[ 9.74s - stdout ]───────────────────────────────────────────────────────────╮
00:00:35 #1397 [verbose] > │ │
00:00:35 #1398 [verbose] > │ │
00:00:35 #1399 [verbose] > │ Test: rotateStringsTests │
00:00:35 #1400 [verbose] > │ │
00:00:35 #1401 [verbose] > │ Solution: abc │
00:00:35 #1402 [verbose] > │ Test case 1. A. Time: 3L │
00:00:35 #1403 [verbose] > │ Test case 2. B. Time: 2L │
00:00:35 #1404 [verbose] > │ Test case 3. C. Time: 2L │
00:00:35 #1405 [verbose] > │ Test case 4. CA. Time: 3L │
00:00:35 #1406 [verbose] > │ Test case 5. CB. Time: 2L │
00:00:35 #1407 [verbose] > │ Test case 6. D. Time: 2L │
00:00:35 #1408 [verbose] > │ Test case 7. E. Time: 1L │
00:00:35 #1409 [verbose] > │ Test case 8. F. Time: 2L │
00:00:35 #1410 [verbose] > │ Test case 9. FA. Time: 3L │
00:00:35 #1411 [verbose] > │ Test case 10. FB. Time: 8L │
00:00:35 #1412 [verbose] > │ Test case 11. FC. Time: 10L │
00:00:35 #1413 [verbose] > │ │
00:00:35 #1414 [verbose] > │ Solution: abcde │
00:00:35 #1415 [verbose] > │ Test case 1. A. Time: 4L │
00:00:35 #1416 [verbose] > │ Test case 2. B. Time: 1L │
00:00:35 #1417 [verbose] > │ Test case 3. C. Time: 1L │
00:00:35 #1418 [verbose] > │ Test case 4. CA. Time: 1L │
00:00:35 #1419 [verbose] > │ Test case 5. CB. Time: 1L │
00:00:35 #1420 [verbose] > │ Test case 6. D. Time: 4L │
00:00:35 #1421 [verbose] > │ Test case 7. E. Time: 1L │
00:00:35 #1422 [verbose] > │ Test case 8. F. Time: 0L │
00:00:35 #1423 [verbose] > │ Test case 9. FA. Time: 1L │
00:00:35 #1424 [verbose] > │ Test case 10. FB. Time: 4L │
00:00:35 #1425 [verbose] > │ Test case 11. FC. Time: 5L │
00:00:35 #1426 [verbose] > │ │
00:00:35 #1427 [verbose] > │ Solution: abcdefghi │
00:00:35 #1428 [verbose] > │ Test case 1. A. Time: 5L │
00:00:35 #1429 [verbose] > │ Test case 2. B. Time: 1L │
00:00:35 #1430 [verbose] > │ Test case 3. C. Time: 4L │
00:00:35 #1431 [verbose] > │ Test case 4. CA. Time: 2L │
00:00:35 #1432 [verbose] > │ Test case 5. CB. Time: 4L │
00:00:35 #1433 [verbose] > │ Test case 6. D. Time: 7L │
00:00:35 #1434 [verbose] > │ Test case 7. E. Time: 3L │
00:00:35 #1435 [verbose] > │ Test case 8. F. Time: 1L │
00:00:35 #1436 [verbose] > │ Test case 9. FA. Time: 4L │
00:00:35 #1437 [verbose] > │ Test case 10. FB. Time: 2L │
00:00:35 #1438 [verbose] > │ Test case 11. FC. Time: 6L │
00:00:35 #1439 [verbose] > │ │
00:00:35 #1440 [verbose] > │ Solution: abab │
00:00:35 #1441 [verbose] > │ Test case 1. A. Time: 0L │
00:00:35 #1442 [verbose] > │ Test case 2. B. Time: 1L │
00:00:35 #1443 [verbose] > │ Test case 3. C. Time: 1L │
00:00:35 #1444 [verbose] > │ Test case 4. CA. Time: 1L │
00:00:35 #1445 [verbose] > │ Test case 5. CB. Time: 1L │
00:00:35 #1446 [verbose] > │ Test case 6. D. Time: 1L │
00:00:35 #1447 [verbose] > │ Test case 7. E. Time: 1L │
00:00:35 #1448 [verbose] > │ Test case 8. F. Time: 0L │
00:00:35 #1449 [verbose] > │ Test case 9. FA. Time: 0L │
00:00:35 #1450 [verbose] > │ Test case 10. FB. Time: 1L │
00:00:35 #1451 [verbose] > │ Test case 11. FC. Time: 7L │
00:00:35 #1452 [verbose] > │ │
00:00:35 #1453 [verbose] > │ Solution: aa │
00:00:35 #1454 [verbose] > │ Test case 1. A. Time: 0L │
00:00:35 #1455 [verbose] > │ Test case 2. B. Time: 0L │
00:00:35 #1456 [verbose] > │ Test case 3. C. Time: 0L │
00:00:35 #1457 [verbose] > │ Test case 4. CA. Time: 1L │
00:00:35 #1458 [verbose] > │ Test case 5. CB. Time: 0L │
00:00:35 #1459 [verbose] > │ Test case 6. D. Time: 0L │
00:00:35 #1460 [verbose] > │ Test case 7. E. Time: 0L │
00:00:35 #1461 [verbose] > │ Test case 8. F. Time: 0L │
00:00:35 #1462 [verbose] > │ Test case 9. FA. Time: 0L │
00:00:35 #1463 [verbose] > │ Test case 10. FB. Time: 0L │
00:00:35 #1464 [verbose] > │ Test case 11. FC. Time: 5L │
00:00:35 #1465 [verbose] > │ │
00:00:35 #1466 [verbose] > │ Solution: z │
00:00:35 #1467 [verbose] > │ Test case 1. A. Time: 0L │
00:00:35 #1468 [verbose] > │ Test case 2. B. Time: 0L │
00:00:35 #1469 [verbose] > │ Test case 3. C. Time: 0L │
00:00:35 #1470 [verbose] > │ Test case 4. CA. Time: 0L │
00:00:35 #1471 [verbose] > │ Test case 5. CB. Time: 0L │
00:00:35 #1472 [verbose] > │ Test case 6. D. Time: 0L │
00:00:35 #1473 [verbose] > │ Test case 7. E. Time: 0L │
00:00:35 #1474 [verbose] > │ Test case 8. F. Time: 0L │
00:00:35 #1475 [verbose] > │ Test case 9. FA. Time: 0L │
00:00:35 #1476 [verbose] > │ Test case 10. FB. Time: 0L │
00:00:35 #1477 [verbose] > │ Test case 11. FC. Time: 5L │
00:00:35 #1478 [verbose] > │ │
00:00:35 #1479 [verbose] > │ Input | Expected │
00:00:35 #1480 [verbose] > │ │
00:00:35 #1481 [verbose] > │ | Result │
00:00:35 #1482 [verbose] > │ │
00:00:35 #1483 [verbose] > │ | Best │
00:00:35 #1484 [verbose] > │ --- | --- │
00:00:35 #1485 [verbose] > │ │
00:00:35 #1486 [verbose] > │ | --- │
00:00:35 #1487 [verbose] > │ │
00:00:35 #1488 [verbose] > │ | --- │
00:00:35 #1489 [verbose] > │ abc | bca cab abc │
00:00:35 #1490 [verbose] > │ │
00:00:35 #1491 [verbose] > │ | bca cab abc │
00:00:35 #1492 [verbose] > │ │
00:00:35 #1493 [verbose] > │ | (7, 1) │
00:00:35 #1494 [verbose] > │ abcde | bcdea cdeab deabc eabcd abcde │
00:00:35 #1495 [verbose] > │ | bcdea cdeab deabc eabcd abcde │
00:00:35 #1496 [verbose] > │ | (8, 0) │
00:00:35 #1497 [verbose] > │ abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef │
00:00:35 #1498 [verbose] > │ hiabcdefg iabcdefgh abcdefghi | bcdefghia cdefghiab defghiabc efghiabcd │
00:00:35 #1499 [verbose] > │ fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi | (2, 1) │
00:00:35 #1500 [verbose] > │ abab | baba abab baba abab │
00:00:35 #1501 [verbose] > │ | baba abab baba abab │
00:00:35 #1502 [verbose] > │ | (1, 0) │
00:00:35 #1503 [verbose] > │ aa | aa aa │
00:00:35 #1504 [verbose] > │ │
00:00:35 #1505 [verbose] > │ | aa aa │
00:00:35 #1506 [verbose] > │ │
00:00:35 #1507 [verbose] > │ | (1, 0) │
00:00:35 #1508 [verbose] > │ z | z │
00:00:35 #1509 [verbose] > │ │
00:00:35 #1510 [verbose] > │ | z │
00:00:35 #1511 [verbose] > │ │
00:00:35 #1512 [verbose] > │ | (1, 0) │
00:00:35 #1513 [verbose] > │ │
00:00:35 #1514 [verbose] > │ Average Ranking │
00:00:35 #1515 [verbose] > │ Test case 2. Average Time: 0L │
00:00:35 #1516 [verbose] > │ Test case 8. Average Time: 0L │
00:00:35 #1517 [verbose] > │ Test case 3. Average Time: 1L │
00:00:35 #1518 [verbose] > │ Test case 4. Average Time: 1L │
00:00:35 #1519 [verbose] > │ Test case 5. Average Time: 1L │
00:00:35 #1520 [verbose] > │ Test case 7. Average Time: 1L │
00:00:35 #1521 [verbose] > │ Test case 9. Average Time: 1L │
00:00:35 #1522 [verbose] > │ Test case 1. Average Time: 2L │
00:00:35 #1523 [verbose] > │ Test case 6. Average Time: 2L │
00:00:35 #1524 [verbose] > │ Test case 10. Average Time: 2L │
00:00:35 #1525 [verbose] > │ Test case 11. Average Time: 6L │
00:00:35 #1526 [verbose] > │ │
00:00:35 #1527 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #1528 [verbose] >
00:00:35 #1529 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:00:35 #1530 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:00:35 #1531 [verbose] > │ ## rotate_strings_tests │
00:00:35 #1532 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:00:35 #1533 [verbose] >
00:00:35 #1534 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:00:35 #1535 [verbose] > // // test
00:00:35 #1536 [verbose] > // // timeout=60000
00:00:35 #1537 [verbose] > // // print_code=true
00:00:35 #1538 [verbose] >
00:00:35 #1539 [verbose] > inl get_solutions () =
00:00:35 #1540 [verbose] > [[
00:00:35 #1541 [verbose] > // "A",
00:00:35 #1542 [verbose] > // fun (input : string) =>
00:00:35 #1543 [verbose] > // let resultList =
00:00:35 #1544 [verbose] > // List.fold (fun acc x =>
00:00:35 #1545 [verbose] > // let rotate (text : string) (letter : string) =
00:00:35 #1546 [verbose] > text.Substring (1, input.Length - 1) + letter
00:00:35 #1547 [verbose] > // [[ rotate (if acc.IsEmpty then input else acc.Head)
00:00:35 #1548 [verbose] > (string x) ]] /@ acc
00:00:35 #1549 [verbose] > // ) [[]] (Seq.toList input)
00:00:35 #1550 [verbose] >
00:00:35 #1551 [verbose] > // List.foldBack (fun acc x => x + acc + " ") resultList ""
00:00:35 #1552 [verbose] > // |> fun x => x.TrimEnd ()
00:00:35 #1553 [verbose] >
00:00:35 #1554 [verbose] > // "B",
00:00:35 #1555 [verbose] > // fun input =>
00:00:35 #1556 [verbose] > // input
00:00:35 #1557 [verbose] > // |> Seq.toList
00:00:35 #1558 [verbose] > // |> List.fold (fun (acc : string list) letter =>
00:00:35 #1559 [verbose] > // let last =
00:00:35 #1560 [verbose] > // if acc.IsEmpty
00:00:35 #1561 [verbose] > // then input
00:00:35 #1562 [verbose] > // else acc.Head
00:00:35 #1563 [verbose] >
00:00:35 #1564 [verbose] > // let item = last.[[1 .. input.Length - 1]] + string letter
00:00:35 #1565 [verbose] >
00:00:35 #1566 [verbose] > // item :: acc
00:00:35 #1567 [verbose] > // ) [[]]
00:00:35 #1568 [verbose] > // |> List.rev
00:00:35 #1569 [verbose] > // |> SpiralSm.concat " "
00:00:35 #1570 [verbose] >
00:00:35 #1571 [verbose] > // "C",
00:00:35 #1572 [verbose] > // fun input =>
00:00:35 #1573 [verbose] > // input
00:00:35 #1574 [verbose] > // |> Seq.toList
00:00:35 #1575 [verbose] > // |> List.fold (fun (acc : list string) letter => acc.Head.[[ 1 ..
00:00:35 #1576 [verbose] > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:35 #1577 [verbose] > // |> List.rev
00:00:35 #1578 [verbose] > // |> List.skip 1
00:00:35 #1579 [verbose] > // |> SpiralSm.concat " "
00:00:35 #1580 [verbose] >
00:00:35 #1581 [verbose] > // "CA",
00:00:35 #1582 [verbose] > // fun input =>
00:00:35 #1583 [verbose] > // input
00:00:35 #1584 [verbose] > // |> Seq.fold (fun (acc : list string) letter => acc.Head.[[ 1 ..
00:00:35 #1585 [verbose] > input.Length - 1 ]] + string letter :: acc) [[ input ]]
00:00:35 #1586 [verbose] > // |> Seq.rev
00:00:35 #1587 [verbose] > // |> Seq.skip 1
00:00:35 #1588 [verbose] > // |> SpiralSm.concat " "
00:00:35 #1589 [verbose] >
00:00:35 #1590 [verbose] > // "CB",
00:00:35 #1591 [verbose] > // fun input =>
00:00:35 #1592 [verbose] > // input
00:00:35 #1593 [verbose] > // |> Seq.toArray
00:00:35 #1594 [verbose] > // |> Array.fold (fun (acc : a _ string) letter => acc |>
00:00:35 #1595 [verbose] > Array.append (a ;[[ acc.[[0]].[[ 1 .. input.Length - 1 ]] + string letter ]]))
00:00:35 #1596 [verbose] > (a ;[[ input ]])
00:00:35 #1597 [verbose] > // |> Array.rev
00:00:35 #1598 [verbose] > // |> Array.skip 1
00:00:35 #1599 [verbose] > // |> SpiralSm.concat " "
00:00:35 #1600 [verbose] >
00:00:35 #1601 [verbose] > // "D",
00:00:35 #1602 [verbose] > // fun input =>
00:00:35 #1603 [verbose] > // input
00:00:35 #1604 [verbose] > // |> Seq.toList
00:00:35 #1605 [verbose] > // |> fun list =>
00:00:35 #1606 [verbose] > // let rec loop (acc : list (list char)) = function
00:00:35 #1607 [verbose] > // | _ when acc.Length = list.Length => acc
00:00:35 #1608 [verbose] > // | head :: tail =>
00:00:35 #1609 [verbose] > // let item = tail /@ [[ head ]]
00:00:35 #1610 [verbose] > // loop (item :: acc) item
00:00:35 #1611 [verbose] > // | [[]] => [[]]
00:00:35 #1612 [verbose] > // loop [[]] list
00:00:35 #1613 [verbose] > // |> List.rev
00:00:35 #1614 [verbose] > // |> List.map (List.toArray >> String)
00:00:35 #1615 [verbose] > // |> SpiralSm.concat " "
00:00:35 #1616 [verbose] >
00:00:35 #1617 [verbose] > // "E",
00:00:35 #1618 [verbose] > // fun input =>
00:00:35 #1619 [verbose] > // input
00:00:35 #1620 [verbose] > // |> Seq.toList
00:00:35 #1621 [verbose] > // |> fun list =>
00:00:35 #1622 [verbose] > // let rec loop (last : string) = function
00:00:35 #1623 [verbose] > // | head :: tail =>
00:00:35 #1624 [verbose] > // let item = last.[[1 .. input.Length - 1]] + string
00:00:35 #1625 [verbose] > head
00:00:35 #1626 [verbose] > // item :: loop item tail
00:00:35 #1627 [verbose] > // | [[]] => [[]]
00:00:35 #1628 [verbose] > // loop input list
00:00:35 #1629 [verbose] > // |> SpiralSm.concat " "
00:00:35 #1630 [verbose] >
00:00:35 #1631 [verbose] > "F",
00:00:35 #1632 [verbose] > fun input =>
00:00:35 #1633 [verbose] > // Array.singleton 0
00:00:35 #1634 [verbose] > // |> Array.append [[| 1 .. input.Length - 1 |]]
00:00:35 #1635 [verbose] > // |> Array.map (fun i -> input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:35 #1636 [verbose] > // |> SpiralSm.concat " "
00:00:35 #1637 [verbose] > inl input_length = input |> sm.length
00:00:35 #1638 [verbose] > am.singleton 0i32
00:00:35 #1639 [verbose] > |> am.append (am'.init_series 1 (input_length - 1) 1)
00:00:35 #1640 [verbose] > |> am.map (fun i =>
00:00:35 #1641 [verbose] > inl a = input |> sm'.slice i (input_length - 1)
00:00:35 #1642 [verbose] > inl b = input |> sm'.slice 0 (i - 1)
00:00:35 #1643 [verbose] > $"!a + !b" : string
00:00:35 #1644 [verbose] > )
00:00:35 #1645 [verbose] > |> seq.of_array
00:00:35 #1646 [verbose] > |> sm'.concat " "
00:00:35 #1647 [verbose] >
00:00:35 #1648 [verbose] > "FA",
00:00:35 #1649 [verbose] > fun input =>
00:00:35 #1650 [verbose] > // List.singleton 0
00:00:35 #1651 [verbose] > // |> List.append [[ 1 .. input.Length - 1 ]]
00:00:35 #1652 [verbose] > // // |> List.map (fun i => input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:35 #1653 [verbose] > // |> SpiralSm.concat " "
00:00:35 #1654 [verbose] > inl input_length = input |> sm.length
00:00:35 #1655 [verbose] > listm.singleton 0i32
00:00:35 #1656 [verbose] > |> listm.append (listm'.init_series 1 (input_length - 1) 1)
00:00:35 #1657 [verbose] > |> listm.map (fun i =>
00:00:35 #1658 [verbose] > inl a = input |> sm'.slice i (input_length - 1)
00:00:35 #1659 [verbose] > inl b = if i = 0 then "" else input |> sm'.slice 0 (i - 1)
00:00:35 #1660 [verbose] > $"!a + !b" : string
00:00:35 #1661 [verbose] > )
00:00:35 #1662 [verbose] > |> listm.toArray
00:00:35 #1663 [verbose] > |> fun x => x : a i32 _
00:00:35 #1664 [verbose] > |> seq.of_array
00:00:35 #1665 [verbose] > |> sm'.concat " "
00:00:35 #1666 [verbose] >
00:00:35 #1667 [verbose] > // "FB",
00:00:35 #1668 [verbose] > // fun input =>
00:00:35 #1669 [verbose] > // Seq.singleton 0
00:00:35 #1670 [verbose] > // // |> Seq.append (seq { 1 .. input.Length - 1 })
00:00:35 #1671 [verbose] > // // |> Seq.map (fun i => input.[[ i .. ]] + input.[[ .. i - 1 ]])
00:00:35 #1672 [verbose] > // |> SpiralSm.concat " "
00:00:35 #1673 [verbose] >
00:00:35 #1674 [verbose] > // "FC",
00:00:35 #1675 [verbose] > // fun input =>
00:00:35 #1676 [verbose] > // Array.singleton 0
00:00:35 #1677 [verbose] > // |> Array.append (a ;[[ 1 .. input.Length - 1 ]])
00:00:35 #1678 [verbose] > // // |> Array.Parallel.map (fun i => input.[[ i .. ]] + input.[[ ..
00:00:35 #1679 [verbose] > i - 1 ]])
00:00:35 #1680 [verbose] > // |> SpiralSm.concat " "
00:00:35 #1681 [verbose] > ]]
00:00:35 #1682 [verbose] >
00:00:35 #1683 [verbose] > inl rec rotate_strings_tests () =
00:00:35 #1684 [verbose] > inl test_cases = [[
00:00:35 #1685 [verbose] > "abc", "bca cab abc"
00:00:35 #1686 [verbose] > "abcde", "bcdea cdeab deabc eabcd abcde"
00:00:35 #1687 [verbose] > "abcdefghi", "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde
00:00:35 #1688 [verbose] > ghiabcdef hiabcdefg iabcdefgh abcdefghi"
00:00:35 #1689 [verbose] > "abab", "baba abab baba abab"
00:00:35 #1690 [verbose] > "aa", "aa aa"
00:00:35 #1691 [verbose] > "z", "z"
00:00:35 #1692 [verbose] > ]]
00:00:35 #1693 [verbose] >
00:00:35 #1694 [verbose] > inl solutions = get_solutions ()
00:00:35 #1695 [verbose] >
00:00:35 #1696 [verbose] > // inl is_fast () = true
00:00:35 #1697 [verbose] >
00:00:35 #1698 [verbose] > inl count =
00:00:35 #1699 [verbose] > if is_fast ()
00:00:35 #1700 [verbose] > then 1000i32
00:00:35 #1701 [verbose] > else 2000000i32
00:00:35 #1702 [verbose] >
00:00:35 #1703 [verbose] > run_all (nameof rotate_strings_tests) count solutions test_cases
00:00:35 #1704 [verbose] > |> sort_result_list
00:00:35 #1705 [verbose] >
00:00:35 #1706 [verbose] > rotate_strings_tests ()
00:00:35 #1707 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\76d7bcd708a3099b4dcc5eec6b0320a5bf8f94d9c03c9fc07fbbdbd447b691db\main.spi
00:01:00 #1708 [verbose] >
00:01:00 #1709 [verbose] > ╭─[ 24.77s - stdout ]──────────────────────────────────────────────────────────╮
00:01:00 #1710 [verbose] > │ type UH0 = │
00:01:00 #1711 [verbose] > │ | UH0_0 │
00:01:00 #1712 [verbose] > │ | UH0_1 of string * string * UH0 │
00:01:00 #1713 [verbose] > │ and Mut0 = {mutable l0 : uint64} │
00:01:00 #1714 [verbose] > │ and Mut1 = {mutable l0 : int32} │
00:01:00 #1715 [verbose] > │ and UH1 = │
00:01:00 #1716 [verbose] > │ | UH1_0 │
00:01:00 #1717 [verbose] > │ | UH1_1 of int32 * UH1 │
00:01:00 #1718 [verbose] > │ and UH2 = │
00:01:00 #1719 [verbose] > │ | UH2_0 │
00:01:00 #1720 [verbose] > │ | UH2_1 of string * UH2 │
00:01:00 #1721 [verbose] > │ and UH3 = │
00:01:00 #1722 [verbose] > │ | UH3_0 │
00:01:00 #1723 [verbose] > │ | UH3_1 of int32 * string * (string -> string) * UH3 │
00:01:00 #1724 [verbose] > │ and [<Struct>] US0 = │
00:01:00 #1725 [verbose] > │ | US0_0 of f0_0 : System.ConsoleColor │
00:01:00 #1726 [verbose] > │ | US0_1 │
00:01:00 #1727 [verbose] > │ and UH4 = │
00:01:00 #1728 [verbose] > │ | UH4_0 │
00:01:00 #1729 [verbose] > │ | UH4_1 of int64 * int64 * UH4 │
00:01:00 #1730 [verbose] > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH4; mutable l2 : int64} │
00:01:00 #1731 [verbose] > │ and UH5 = │
00:01:00 #1732 [verbose] > │ | UH5_0 │
00:01:00 #1733 [verbose] > │ | UH5_1 of UH2 * US0 * UH5 │
00:01:00 #1734 [verbose] > │ and [<Struct>] US1 = │
00:01:00 #1735 [verbose] > │ | US1_0 of f0_0 : int64 │
00:01:00 #1736 [verbose] > │ | US1_1 │
00:01:00 #1737 [verbose] > │ and UH6 = │
00:01:00 #1738 [verbose] > │ | UH6_0 │
00:01:00 #1739 [verbose] > │ | UH6_1 of int32 * int64 * UH6 │
00:01:00 #1740 [verbose] > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH6; mutable l2 : int32} │
00:01:00 #1741 [verbose] > │ and UH7 = │
00:01:00 #1742 [verbose] > │ | UH7_0 │
00:01:00 #1743 [verbose] > │ | UH7_1 of int32 * string * UH7 │
00:01:00 #1744 [verbose] > │ let rec method2 (v0 : UH0, v1 : uint64) : uint64 = │
00:01:00 #1745 [verbose] > │ match v0 with │
00:01:00 #1746 [verbose] > │ | UH0_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #1747 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:01:00 #1748 [verbose] > │ method2(v4, v5) │
00:01:00 #1749 [verbose] > │ | UH0_0 -> (* Nil *) │
00:01:00 #1750 [verbose] > │ v1 │
00:01:00 #1751 [verbose] > │ and method3 (v0 : (struct (string * string) []), v1 : UH0, v2 : uint64) : │
00:01:00 #1752 [verbose] > │ uint64 = │
00:01:00 #1753 [verbose] > │ match v1 with │
00:01:00 #1754 [verbose] > │ | UH0_1(v3, v4, v5) -> (* Cons *) │
00:01:00 #1755 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:00 #1756 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:01:00 #1757 [verbose] > │ method3(v0, v5, v6) │
00:01:00 #1758 [verbose] > │ | UH0_0 -> (* Nil *) │
00:01:00 #1759 [verbose] > │ v2 │
00:01:00 #1760 [verbose] > │ and method1 (v0 : UH0) : (struct (string * string) []) = │
00:01:00 #1761 [verbose] > │ let v1 : uint64 = 0UL │
00:01:00 #1762 [verbose] > │ let v2 : uint64 = method2(v0, v1) │
00:01:00 #1763 [verbose] > │ let v3 : (struct (string * string) []) = Array.zeroCreate<struct (string │
00:01:00 #1764 [verbose] > │ * string)> (System.Convert.ToInt32(v2)) │
00:01:00 #1765 [verbose] > │ let v4 : uint64 = 0UL │
00:01:00 #1766 [verbose] > │ let v5 : uint64 = method3(v3, v0, v4) │
00:01:00 #1767 [verbose] > │ v3 │
00:01:00 #1768 [verbose] > │ and method4 (v0 : uint64, v1 : Mut0) : bool = │
00:01:00 #1769 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:00 #1770 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:00 #1771 [verbose] > │ v3 │
00:01:00 #1772 [verbose] > │ and method5 (v0 : int32, v1 : Mut1) : bool = │
00:01:00 #1773 [verbose] > │ let v2 : int32 = v1.l0 │
00:01:00 #1774 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:00 #1775 [verbose] > │ v3 │
00:01:00 #1776 [verbose] > │ and closure1 () (v0 : string) : string = │
00:01:00 #1777 [verbose] > │ let v1 : int32 = v0.Length │
00:01:00 #1778 [verbose] > │ let v2 : (int32 []) = Array.zeroCreate<int32> (1) │
00:01:00 #1779 [verbose] > │ v2.[int 0] <- 0 │
00:01:00 #1780 [verbose] > │ let v3 : int32 = v1 - 1 │
00:01:00 #1781 [verbose] > │ let v4 : int32 = v3 - 1 │
00:01:00 #1782 [verbose] > │ let v5 : int32 = v4 + 1 │
00:01:00 #1783 [verbose] > │ let v6 : (int32 []) = Array.zeroCreate<int32> (v5) │
00:01:00 #1784 [verbose] > │ let v7 : Mut1 = {l0 = 0} : Mut1 │
00:01:00 #1785 [verbose] > │ while method5(v5, v7) do │
00:01:00 #1786 [verbose] > │ let v9 : int32 = v7.l0 │
00:01:00 #1787 [verbose] > │ let v10 : int32 = 1 + v9 │
00:01:00 #1788 [verbose] > │ v6.[int v9] <- v10 │
00:01:00 #1789 [verbose] > │ let v11 : int32 = v9 + 1 │
00:01:00 #1790 [verbose] > │ v7.l0 <- v11 │
00:01:00 #1791 [verbose] > │ () │
00:01:00 #1792 [verbose] > │ let v12 : int32 = v6.Length │
00:01:00 #1793 [verbose] > │ let v13 : int32 = v2.Length │
00:01:00 #1794 [verbose] > │ let v14 : int32 = v12 + v13 │
00:01:00 #1795 [verbose] > │ let v15 : (int32 []) = Array.zeroCreate<int32> (v14) │
00:01:00 #1796 [verbose] > │ let v16 : Mut1 = {l0 = 0} : Mut1 │
00:01:00 #1797 [verbose] > │ while method5(v14, v16) do │
00:01:00 #1798 [verbose] > │ let v18 : int32 = v16.l0 │
00:01:00 #1799 [verbose] > │ let v19 : bool = v18 < v12 │
00:01:00 #1800 [verbose] > │ let v23 : int32 = │
00:01:00 #1801 [verbose] > │ if v19 then │
00:01:00 #1802 [verbose] > │ let v20 : int32 = v6.[int v18] │
00:01:00 #1803 [verbose] > │ v20 │
00:01:00 #1804 [verbose] > │ else │
00:01:00 #1805 [verbose] > │ let v21 : int32 = v18 - v12 │
00:01:00 #1806 [verbose] > │ let v22 : int32 = v2.[int v21] │
00:01:00 #1807 [verbose] > │ v22 │
00:01:00 #1808 [verbose] > │ v15.[int v18] <- v23 │
00:01:00 #1809 [verbose] > │ let v24 : int32 = v18 + 1 │
00:01:00 #1810 [verbose] > │ v16.l0 <- v24 │
00:01:00 #1811 [verbose] > │ () │
00:01:00 #1812 [verbose] > │ let v25 : int32 = v15.Length │
00:01:00 #1813 [verbose] > │ let v26 : (string []) = Array.zeroCreate<string> (v25) │
00:01:00 #1814 [verbose] > │ let v27 : Mut1 = {l0 = 0} : Mut1 │
00:01:00 #1815 [verbose] > │ while method5(v25, v27) do │
00:01:00 #1816 [verbose] > │ let v29 : int32 = v27.l0 │
00:01:00 #1817 [verbose] > │ let v30 : int32 = v15.[int v29] │
00:01:00 #1818 [verbose] > │ let v31 : string = v0.[int v30..int v3] │
00:01:00 #1819 [verbose] > │ let v32 : int32 = v30 - 1 │
00:01:00 #1820 [verbose] > │ let v33 : string = v0.[int 0..int v32] │
00:01:00 #1821 [verbose] > │ let v34 : string = v31 + v33 │
00:01:00 #1822 [verbose] > │ v26.[int v29] <- v34 │
00:01:00 #1823 [verbose] > │ let v35 : int32 = v29 + 1 │
00:01:00 #1824 [verbose] > │ v27.l0 <- v35 │
00:01:00 #1825 [verbose] > │ () │
00:01:00 #1826 [verbose] > │ let v36 : ((string []) -> string seq) = Seq.ofArray │
00:01:00 #1827 [verbose] > │ let v37 : string seq = v36 v26 │
00:01:00 #1828 [verbose] > │ let v38 : string = " " │
00:01:00 #1829 [verbose] > │ let v39 : string = v37 |> String.concat v38 │
00:01:00 #1830 [verbose] > │ v39 │
00:01:00 #1831 [verbose] > │ and method6 (v0 : float, v1 : float) : UH1 = │
00:01:00 #1832 [verbose] > │ let v2 : bool = v1 < v0 │
00:01:00 #1833 [verbose] > │ if v2 then │
00:01:00 #1834 [verbose] > │ let v3 : int32 = int32 v1 │
00:01:00 #1835 [verbose] > │ let v4 : int32 = 1 + v3 │
00:01:00 #1836 [verbose] > │ let v5 : float = v1 + 1.0 │
00:01:00 #1837 [verbose] > │ let v6 : UH1 = method6(v0, v5) │
00:01:00 #1838 [verbose] > │ UH1_1(v4, v6) │
00:01:00 #1839 [verbose] > │ else │
00:01:00 #1840 [verbose] > │ UH1_0 │
00:01:00 #1841 [verbose] > │ and method7 (v0 : UH1, v1 : UH1) : UH1 = │
00:01:00 #1842 [verbose] > │ match v0 with │
00:01:00 #1843 [verbose] > │ | UH1_1(v2, v3) -> (* Cons *) │
00:01:00 #1844 [verbose] > │ let v4 : UH1 = method7(v3, v1) │
00:01:00 #1845 [verbose] > │ UH1_1(v2, v4) │
00:01:00 #1846 [verbose] > │ | UH1_0 -> (* Nil *) │
00:01:00 #1847 [verbose] > │ v1 │
00:01:00 #1848 [verbose] > │ and method8 (v0 : string, v1 : int32, v2 : UH1, v3 : UH2) : UH2 = │
00:01:00 #1849 [verbose] > │ match v2 with │
00:01:00 #1850 [verbose] > │ | UH1_1(v4, v5) -> (* Cons *) │
00:01:00 #1851 [verbose] > │ let v6 : UH2 = method8(v0, v1, v5, v3) │
00:01:00 #1852 [verbose] > │ let v7 : int32 = v1 - 1 │
00:01:00 #1853 [verbose] > │ let v8 : string = v0.[int v4..int v7] │
00:01:00 #1854 [verbose] > │ let v9 : bool = v4 = 0 │
00:01:00 #1855 [verbose] > │ let v13 : string = │
00:01:00 #1856 [verbose] > │ if v9 then │
00:01:00 #1857 [verbose] > │ let v10 : string = "" │
00:01:00 #1858 [verbose] > │ v10 │
00:01:00 #1859 [verbose] > │ else │
00:01:00 #1860 [verbose] > │ let v11 : int32 = v4 - 1 │
00:01:00 #1861 [verbose] > │ let v12 : string = v0.[int 0..int v11] │
00:01:00 #1862 [verbose] > │ v12 │
00:01:00 #1863 [verbose] > │ let v14 : string = v8 + v13 │
00:01:00 #1864 [verbose] > │ UH2_1(v14, v6) │
00:01:00 #1865 [verbose] > │ | UH1_0 -> (* Nil *) │
00:01:00 #1866 [verbose] > │ v3 │
00:01:00 #1867 [verbose] > │ and method10 (v0 : UH2, v1 : int32) : int32 = │
00:01:00 #1868 [verbose] > │ match v0 with │
00:01:00 #1869 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:00 #1870 [verbose] > │ let v4 : int32 = v1 + 1 │
00:01:00 #1871 [verbose] > │ method10(v3, v4) │
00:01:00 #1872 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:00 #1873 [verbose] > │ v1 │
00:01:00 #1874 [verbose] > │ and method11 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:01:00 #1875 [verbose] > │ match v1 with │
00:01:00 #1876 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:00 #1877 [verbose] > │ v0.[int v2] <- v3 │
00:01:00 #1878 [verbose] > │ let v5 : int32 = v2 + 1 │
00:01:00 #1879 [verbose] > │ method11(v0, v4, v5) │
00:01:00 #1880 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:00 #1881 [verbose] > │ v2 │
00:01:00 #1882 [verbose] > │ and method9 (v0 : UH2) : (string []) = │
00:01:00 #1883 [verbose] > │ let v1 : int32 = 0 │
00:01:00 #1884 [verbose] > │ let v2 : int32 = method10(v0, v1) │
00:01:00 #1885 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:01:00 #1886 [verbose] > │ let v4 : int32 = 0 │
00:01:00 #1887 [verbose] > │ let v5 : int32 = method11(v3, v0, v4) │
00:01:00 #1888 [verbose] > │ v3 │
00:01:00 #1889 [verbose] > │ and closure2 () (v0 : string) : string = │
00:01:00 #1890 [verbose] > │ let v1 : int32 = v0.Length │
00:01:00 #1891 [verbose] > │ let v2 : int32 = v1 - 1 │
00:01:00 #1892 [verbose] > │ let v3 : int32 = v2 - 1 │
00:01:00 #1893 [verbose] > │ let v4 : float = float v3 │
00:01:00 #1894 [verbose] > │ let v5 : float = v4 + 1.0 │
00:01:00 #1895 [verbose] > │ let v6 : float = 0.0 │
00:01:00 #1896 [verbose] > │ let v7 : UH1 = method6(v5, v6) │
00:01:00 #1897 [verbose] > │ let v8 : int32 = 0 │
00:01:00 #1898 [verbose] > │ let v9 : UH1 = UH1_0 │
00:01:00 #1899 [verbose] > │ let v10 : UH1 = UH1_1(v8, v9) │
00:01:00 #1900 [verbose] > │ let v11 : UH1 = method7(v7, v10) │
00:01:00 #1901 [verbose] > │ let v12 : UH2 = UH2_0 │
00:01:00 #1902 [verbose] > │ let v13 : UH2 = method8(v0, v1, v11, v12) │
00:01:00 #1903 [verbose] > │ let v14 : (string []) = method9(v13) │
00:01:00 #1904 [verbose] > │ let v15 : ((string []) -> string seq) = Seq.ofArray │
00:01:00 #1905 [verbose] > │ let v16 : string seq = v15 v14 │
00:01:00 #1906 [verbose] > │ let v17 : string = " " │
00:01:00 #1907 [verbose] > │ let v18 : string = v16 |> String.concat v17 │
00:01:00 #1908 [verbose] > │ v18 │
00:01:00 #1909 [verbose] > │ and method13 (v0 : UH3, v1 : uint64) : uint64 = │
00:01:00 #1910 [verbose] > │ match v0 with │
00:01:00 #1911 [verbose] > │ | UH3_1(v2, v3, v4, v5) -> (* Cons *) │
00:01:00 #1912 [verbose] > │ let v6 : uint64 = v1 + 1UL │
00:01:00 #1913 [verbose] > │ method13(v5, v6) │
00:01:00 #1914 [verbose] > │ | UH3_0 -> (* Nil *) │
00:01:00 #1915 [verbose] > │ v1 │
00:01:00 #1916 [verbose] > │ and method14 (v0 : (struct (int32 * string * (string -> string)) []), v1 : │
00:01:00 #1917 [verbose] > │ UH3, v2 : uint64) : uint64 = │
00:01:00 #1918 [verbose] > │ match v1 with │
00:01:00 #1919 [verbose] > │ | UH3_1(v3, v4, v5, v6) -> (* Cons *) │
00:01:00 #1920 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5) │
00:01:00 #1921 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:01:00 #1922 [verbose] > │ method14(v0, v6, v7) │
00:01:00 #1923 [verbose] > │ | UH3_0 -> (* Nil *) │
00:01:00 #1924 [verbose] > │ v2 │
00:01:00 #1925 [verbose] > │ and method12 (v0 : UH3) : (struct (int32 * string * (string -> string)) []) │
00:01:00 #1926 [verbose] > │ = │
00:01:00 #1927 [verbose] > │ let v1 : uint64 = 0UL │
00:01:00 #1928 [verbose] > │ let v2 : uint64 = method13(v0, v1) │
00:01:00 #1929 [verbose] > │ let v3 : (struct (int32 * string * (string -> string)) []) = │
00:01:00 #1930 [verbose] > │ Array.zeroCreate<struct (int32 * string * (string -> string))> │
00:01:00 #1931 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:00 #1932 [verbose] > │ let v4 : uint64 = 0UL │
00:01:00 #1933 [verbose] > │ let v5 : uint64 = method14(v3, v0, v4) │
00:01:00 #1934 [verbose] > │ v3 │
00:01:00 #1935 [verbose] > │ and method15 (v0 : Mut1) : bool = │
00:01:00 #1936 [verbose] > │ let v1 : int32 = v0.l0 │
00:01:00 #1937 [verbose] > │ let v2 : bool = v1 < 2000001 │
00:01:00 #1938 [verbose] > │ v2 │
00:01:00 #1939 [verbose] > │ and closure3 (v0 : string, v1 : (string -> string)) (v2 : int32) : string = │
00:01:00 #1940 [verbose] > │ v1 v0 │
00:01:00 #1941 [verbose] > │ and method16 (v0 : string, v1 : (string []), v2 : uint64) : bool = │
00:01:00 #1942 [verbose] > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:01:00 #1943 [verbose] > │ let v4 : bool = v2 < v3 │
00:01:00 #1944 [verbose] > │ if v4 then │
00:01:00 #1945 [verbose] > │ let v5 : string = v1.[int v2] │
00:01:00 #1946 [verbose] > │ let v6 : bool = v0 = v5 │
00:01:00 #1947 [verbose] > │ if v6 then │
00:01:00 #1948 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:01:00 #1949 [verbose] > │ method16(v0, v1, v7) │
00:01:00 #1950 [verbose] > │ else │
00:01:00 #1951 [verbose] > │ false │
00:01:00 #1952 [verbose] > │ else │
00:01:00 #1953 [verbose] > │ true │
00:01:00 #1954 [verbose] > │ and method17 (v0 : uint64, v1 : Mut2) : bool = │
00:01:00 #1955 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:00 #1956 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:00 #1957 [verbose] > │ v3 │
00:01:00 #1958 [verbose] > │ and method18 (v0 : UH4, v1 : UH4) : UH4 = │
00:01:00 #1959 [verbose] > │ match v0 with │
00:01:00 #1960 [verbose] > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #1961 [verbose] > │ let v5 : UH4 = UH4_1(v2, v3, v1) │
00:01:00 #1962 [verbose] > │ method18(v4, v5) │
00:01:00 #1963 [verbose] > │ | UH4_0 -> (* Nil *) │
00:01:00 #1964 [verbose] > │ v1 │
00:01:00 #1965 [verbose] > │ and method20 (v0 : UH4, v1 : int32) : int32 = │
00:01:00 #1966 [verbose] > │ match v0 with │
00:01:00 #1967 [verbose] > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #1968 [verbose] > │ let v5 : int32 = v1 + 1 │
00:01:00 #1969 [verbose] > │ method20(v4, v5) │
00:01:00 #1970 [verbose] > │ | UH4_0 -> (* Nil *) │
00:01:00 #1971 [verbose] > │ v1 │
00:01:00 #1972 [verbose] > │ and method21 (v0 : (struct (int64 * int64) []), v1 : UH4, v2 : int32) : │
00:01:00 #1973 [verbose] > │ int32 = │
00:01:00 #1974 [verbose] > │ match v1 with │
00:01:00 #1975 [verbose] > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:01:00 #1976 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:00 #1977 [verbose] > │ let v6 : int32 = v2 + 1 │
00:01:00 #1978 [verbose] > │ method21(v0, v5, v6) │
00:01:00 #1979 [verbose] > │ | UH4_0 -> (* Nil *) │
00:01:00 #1980 [verbose] > │ v2 │
00:01:00 #1981 [verbose] > │ and method19 (v0 : UH4) : (struct (int64 * int64) []) = │
00:01:00 #1982 [verbose] > │ let v1 : int32 = 0 │
00:01:00 #1983 [verbose] > │ let v2 : int32 = method20(v0, v1) │
00:01:00 #1984 [verbose] > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:01:00 #1985 [verbose] > │ int64)> (v2) │
00:01:00 #1986 [verbose] > │ let v4 : int32 = 0 │
00:01:00 #1987 [verbose] > │ let v5 : int32 = method21(v3, v0, v4) │
00:01:00 #1988 [verbose] > │ v3 │
00:01:00 #1989 [verbose] > │ and closure4 () struct (v0 : int64, v1 : int64) : int64 = │
00:01:00 #1990 [verbose] > │ v1 │
00:01:00 #1991 [verbose] > │ and method23 (v0 : UH5, v1 : uint64) : uint64 = │
00:01:00 #1992 [verbose] > │ match v0 with │
00:01:00 #1993 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #1994 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:01:00 #1995 [verbose] > │ method23(v4, v5) │
00:01:00 #1996 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:00 #1997 [verbose] > │ v1 │
00:01:00 #1998 [verbose] > │ and method24 (v0 : (struct (UH2 * US0) []), v1 : UH5, v2 : uint64) : uint64 │
00:01:00 #1999 [verbose] > │ = │
00:01:00 #2000 [verbose] > │ match v1 with │
00:01:00 #2001 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:01:00 #2002 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:00 #2003 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:01:00 #2004 [verbose] > │ method24(v0, v5, v6) │
00:01:00 #2005 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:00 #2006 [verbose] > │ v2 │
00:01:00 #2007 [verbose] > │ and method22 (v0 : UH5) : (struct (UH2 * US0) []) = │
00:01:00 #2008 [verbose] > │ let v1 : uint64 = 0UL │
00:01:00 #2009 [verbose] > │ let v2 : uint64 = method23(v0, v1) │
00:01:00 #2010 [verbose] > │ let v3 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * US0)> │
00:01:00 #2011 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:00 #2012 [verbose] > │ let v4 : uint64 = 0UL │
00:01:00 #2013 [verbose] > │ let v5 : uint64 = method24(v3, v0, v4) │
00:01:00 #2014 [verbose] > │ v3 │
00:01:00 #2015 [verbose] > │ and method26 (v0 : UH2, v1 : uint64) : uint64 = │
00:01:00 #2016 [verbose] > │ match v0 with │
00:01:00 #2017 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:00 #2018 [verbose] > │ let v4 : uint64 = v1 + 1UL │
00:01:00 #2019 [verbose] > │ method26(v3, v4) │
00:01:00 #2020 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:00 #2021 [verbose] > │ v1 │
00:01:00 #2022 [verbose] > │ and method27 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:01:00 #2023 [verbose] > │ match v1 with │
00:01:00 #2024 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:00 #2025 [verbose] > │ v0.[int v2] <- v3 │
00:01:00 #2026 [verbose] > │ let v5 : uint64 = v2 + 1UL │
00:01:00 #2027 [verbose] > │ method27(v0, v4, v5) │
00:01:00 #2028 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:00 #2029 [verbose] > │ v2 │
00:01:00 #2030 [verbose] > │ and method25 (v0 : UH2) : (string []) = │
00:01:00 #2031 [verbose] > │ let v1 : uint64 = 0UL │
00:01:00 #2032 [verbose] > │ let v2 : uint64 = method26(v0, v1) │
00:01:00 #2033 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> │
00:01:00 #2034 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:00 #2035 [verbose] > │ let v4 : uint64 = 0UL │
00:01:00 #2036 [verbose] > │ let v5 : uint64 = method27(v3, v0, v4) │
00:01:00 #2037 [verbose] > │ v3 │
00:01:00 #2038 [verbose] > │ and closure5 () (v0 : int64) : US1 = │
00:01:00 #2039 [verbose] > │ US1_0(v0) │
00:01:00 #2040 [verbose] > │ and method28 () : (int64 -> US1) = │
00:01:00 #2041 [verbose] > │ closure5() │
00:01:00 #2042 [verbose] > │ and method29 (v0 : uint64, v1 : Mut3) : bool = │
00:01:00 #2043 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:00 #2044 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:00 #2045 [verbose] > │ v3 │
00:01:00 #2046 [verbose] > │ and method30 (v0 : UH6, v1 : UH6) : UH6 = │
00:01:00 #2047 [verbose] > │ match v0 with │
00:01:00 #2048 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #2049 [verbose] > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:01:00 #2050 [verbose] > │ method30(v4, v5) │
00:01:00 #2051 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:00 #2052 [verbose] > │ v1 │
00:01:00 #2053 [verbose] > │ and method32 (v0 : UH6, v1 : int32) : int32 = │
00:01:00 #2054 [verbose] > │ match v0 with │
00:01:00 #2055 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #2056 [verbose] > │ let v5 : int32 = v1 + 1 │
00:01:00 #2057 [verbose] > │ method32(v4, v5) │
00:01:00 #2058 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:00 #2059 [verbose] > │ v1 │
00:01:00 #2060 [verbose] > │ and method33 (v0 : (struct (int32 * int64) []), v1 : UH6, v2 : int32) : │
00:01:00 #2061 [verbose] > │ int32 = │
00:01:00 #2062 [verbose] > │ match v1 with │
00:01:00 #2063 [verbose] > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:01:00 #2064 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:00 #2065 [verbose] > │ let v6 : int32 = v2 + 1 │
00:01:00 #2066 [verbose] > │ method33(v0, v5, v6) │
00:01:00 #2067 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:00 #2068 [verbose] > │ v2 │
00:01:00 #2069 [verbose] > │ and method31 (v0 : UH6) : (struct (int32 * int64) []) = │
00:01:00 #2070 [verbose] > │ let v1 : int32 = 0 │
00:01:00 #2071 [verbose] > │ let v2 : int32 = method32(v0, v1) │
00:01:00 #2072 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:00 #2073 [verbose] > │ int64)> (v2) │
00:01:00 #2074 [verbose] > │ let v4 : int32 = 0 │
00:01:00 #2075 [verbose] > │ let v5 : int32 = method33(v3, v0, v4) │
00:01:00 #2076 [verbose] > │ v3 │
00:01:00 #2077 [verbose] > │ and method34 (v0 : UH2, v1 : UH7, v2 : int32) : struct (UH7 * int32) = │
00:01:00 #2078 [verbose] > │ match v0 with │
00:01:00 #2079 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:00 #2080 [verbose] > │ let v5 : int32 = v2 + 1 │
00:01:00 #2081 [verbose] > │ let v6 : UH7 = UH7_1(v2, v3, v1) │
00:01:00 #2082 [verbose] > │ method34(v4, v6, v5) │
00:01:00 #2083 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:00 #2084 [verbose] > │ struct (v1, v2) │
00:01:00 #2085 [verbose] > │ and method35 (v0 : UH7, v1 : UH7) : UH7 = │
00:01:00 #2086 [verbose] > │ match v0 with │
00:01:00 #2087 [verbose] > │ | UH7_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #2088 [verbose] > │ let v5 : UH7 = UH7_1(v2, v3, v1) │
00:01:00 #2089 [verbose] > │ method35(v4, v5) │
00:01:00 #2090 [verbose] > │ | UH7_0 -> (* Nil *) │
00:01:00 #2091 [verbose] > │ v1 │
00:01:00 #2092 [verbose] > │ and method36 (v0 : Map<int32, int64>, v1 : UH7, v2 : UH2) : UH2 = │
00:01:00 #2093 [verbose] > │ match v1 with │
00:01:00 #2094 [verbose] > │ | UH7_1(v3, v4, v5) -> (* Cons *) │
00:01:00 #2095 [verbose] > │ let v6 : UH2 = method36(v0, v5, v2) │
00:01:00 #2096 [verbose] > │ let v7 : int64 = v0.[v3] │
00:01:00 #2097 [verbose] > │ let v8 : int32 = int32 v7 │
00:01:00 #2098 [verbose] > │ let v9 : string = v4.PadRight v8 │
00:01:00 #2099 [verbose] > │ UH2_1(v9, v6) │
00:01:00 #2100 [verbose] > │ | UH7_0 -> (* Nil *) │
00:01:00 #2101 [verbose] > │ v2 │
00:01:00 #2102 [verbose] > │ and method38 (v0 : UH6, v1 : uint64) : uint64 = │
00:01:00 #2103 [verbose] > │ match v0 with │
00:01:00 #2104 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:00 #2105 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:01:00 #2106 [verbose] > │ method38(v4, v5) │
00:01:00 #2107 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:00 #2108 [verbose] > │ v1 │
00:01:00 #2109 [verbose] > │ and method39 (v0 : (struct (int32 * int64) []), v1 : UH6, v2 : uint64) : │
00:01:00 #2110 [verbose] > │ uint64 = │
00:01:00 #2111 [verbose] > │ match v1 with │
00:01:00 #2112 [verbose] > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:01:00 #2113 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:00 #2114 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:01:00 #2115 [verbose] > │ method39(v0, v5, v6) │
00:01:00 #2116 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:00 #2117 [verbose] > │ v2 │
00:01:00 #2118 [verbose] > │ and method37 (v0 : UH6) : (struct (int32 * int64) []) = │
00:01:00 #2119 [verbose] > │ let v1 : uint64 = 0UL │
00:01:00 #2120 [verbose] > │ let v2 : uint64 = method38(v0, v1) │
00:01:00 #2121 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:00 #2122 [verbose] > │ int64)> (System.Convert.ToInt32(v2)) │
00:01:00 #2123 [verbose] > │ let v4 : uint64 = 0UL │
00:01:00 #2124 [verbose] > │ let v5 : uint64 = method39(v3, v0, v4) │
00:01:00 #2125 [verbose] > │ v3 │
00:01:00 #2126 [verbose] > │ and closure6 () struct (v0 : int32, v1 : int64) : int64 = │
00:01:00 #2127 [verbose] > │ v1 │
00:01:00 #2128 [verbose] > │ and closure0 () () : unit = │
00:01:00 #2129 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:01:00 #2130 [verbose] > │ let v1 : string = nameof v0 │
00:01:00 #2131 [verbose] > │ let v2 : string = "" │
00:01:00 #2132 [verbose] > │ System.Console.WriteLine v2 │
00:01:00 #2133 [verbose] > │ System.Console.WriteLine v2 │
00:01:00 #2134 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:01:00 #2135 [verbose] > │ System.Console.WriteLine v3 │
00:01:00 #2136 [verbose] > │ let v4 : string = "abc" │
00:01:00 #2137 [verbose] > │ let v5 : string = "bca cab abc" │
00:01:00 #2138 [verbose] > │ let v6 : string = "abcde" │
00:01:00 #2139 [verbose] > │ let v7 : string = "bcdea cdeab deabc eabcd abcde" │
00:01:00 #2140 [verbose] > │ let v8 : string = "abcdefghi" │
00:01:00 #2141 [verbose] > │ let v9 : string = "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde │
00:01:00 #2142 [verbose] > │ ghiabcdef hiabcdefg iabcdefgh abcdefghi" │
00:01:00 #2143 [verbose] > │ let v10 : string = "abab" │
00:01:00 #2144 [verbose] > │ let v11 : string = "baba abab baba abab" │
00:01:00 #2145 [verbose] > │ let v12 : string = "aa" │
00:01:00 #2146 [verbose] > │ let v13 : string = "aa aa" │
00:01:00 #2147 [verbose] > │ let v14 : string = "z" │
00:01:00 #2148 [verbose] > │ let v15 : UH0 = UH0_0 │
00:01:00 #2149 [verbose] > │ let v16 : UH0 = UH0_1(v14, v14, v15) │
00:01:00 #2150 [verbose] > │ let v17 : UH0 = UH0_1(v12, v13, v16) │
00:01:00 #2151 [verbose] > │ let v18 : UH0 = UH0_1(v10, v11, v17) │
00:01:00 #2152 [verbose] > │ let v19 : UH0 = UH0_1(v8, v9, v18) │
00:01:00 #2153 [verbose] > │ let v20 : UH0 = UH0_1(v6, v7, v19) │
00:01:00 #2154 [verbose] > │ let v21 : UH0 = UH0_1(v4, v5, v20) │
00:01:00 #2155 [verbose] > │ let v22 : (struct (string * string) []) = method1(v21) │
00:01:00 #2156 [verbose] > │ let v23 : uint64 = System.Convert.ToUInt64 v22.Length │
00:01:00 #2157 [verbose] > │ let v24 : (struct (string * string * string * (int64 [])) []) = │
00:01:00 #2158 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:00 #2159 [verbose] > │ (System.Convert.ToInt32(v23)) │
00:01:00 #2160 [verbose] > │ let v25 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2161 [verbose] > │ while method4(v23, v25) do │
00:01:00 #2162 [verbose] > │ let v27 : uint64 = v25.l0 │
00:01:00 #2163 [verbose] > │ let struct (v28 : string, v29 : string) = v22.[int v27] │
00:01:00 #2164 [verbose] > │ let v30 : string = $"%A{v28}" │
00:01:00 #2165 [verbose] > │ System.Console.WriteLine v2 │
00:01:00 #2166 [verbose] > │ let v31 : string = $"Solution: {v30} " │
00:01:00 #2167 [verbose] > │ System.Console.WriteLine v31 │
00:01:00 #2168 [verbose] > │ let v32 : int32 = 0 │
00:01:00 #2169 [verbose] > │ let v33 : string = "F" │
00:01:00 #2170 [verbose] > │ let v34 : (string -> string) = closure1() │
00:01:00 #2171 [verbose] > │ let v35 : int32 = 1 │
00:01:00 #2172 [verbose] > │ let v36 : string = "FA" │
00:01:00 #2173 [verbose] > │ let v37 : (string -> string) = closure2() │
00:01:00 #2174 [verbose] > │ let v38 : UH3 = UH3_0 │
00:01:00 #2175 [verbose] > │ let v39 : UH3 = UH3_1(v35, v36, v37, v38) │
00:01:00 #2176 [verbose] > │ let v40 : UH3 = UH3_1(v32, v33, v34, v39) │
00:01:00 #2177 [verbose] > │ let v41 : (struct (int32 * string * (string -> string)) []) = │
00:01:00 #2178 [verbose] > │ method12(v40) │
00:01:00 #2179 [verbose] > │ let v42 : uint64 = System.Convert.ToUInt64 v41.Length │
00:01:00 #2180 [verbose] > │ let v43 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:01:00 #2181 [verbose] > │ (string * int64)> (System.Convert.ToInt32(v42)) │
00:01:00 #2182 [verbose] > │ let v44 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2183 [verbose] > │ while method4(v42, v44) do │
00:01:00 #2184 [verbose] > │ let v46 : uint64 = v44.l0 │
00:01:00 #2185 [verbose] > │ let struct (v47 : int32, v48 : string, v49 : (string -> string)) │
00:01:00 #2186 [verbose] > │ = v41.[int v46] │
00:01:00 #2187 [verbose] > │ let v50 : unit option = None │
00:01:00 #2188 [verbose] > │ let mutable _v50 = v50 │
00:01:00 #2189 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2190 [verbose] > │ () │
00:01:00 #2191 [verbose] > │ #endif │
00:01:00 #2192 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2193 [verbose] > │ () │
00:01:00 #2194 [verbose] > │ #endif │
00:01:00 #2195 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2196 [verbose] > │ () │
00:01:00 #2197 [verbose] > │ #endif │
00:01:00 #2198 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2199 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2200 [verbose] > │ System.GC.Collect () │
00:01:00 #2201 [verbose] > │ () │
00:01:00 #2202 [verbose] > │ #endif │
00:01:00 #2203 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2204 [verbose] > │ () │
00:01:00 #2205 [verbose] > │ #endif │
00:01:00 #2206 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:00 #2207 [verbose] > │ FABLE_COMPILER_DART │
00:01:00 #2208 [verbose] > │ Unchecked.defaultof<unit> │
00:01:00 #2209 [verbose] > │ () │
00:01:00 #2210 [verbose] > │ #endif │
00:01:00 #2211 [verbose] > │ |> fun x -> _v50 <- Some x │
00:01:00 #2212 [verbose] > │ _v50.Value │
00:01:00 #2213 [verbose] > │ let v51 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:00 #2214 [verbose] > │ System.Diagnostics.Stopwatch │
00:01:00 #2215 [verbose] > │ let v52 : System.Diagnostics.Stopwatch = v51 () │
00:01:00 #2216 [verbose] > │ v52.Start () │
00:01:00 #2217 [verbose] > │ let v53 : int64 = v52.ElapsedMilliseconds │
00:01:00 #2218 [verbose] > │ let v54 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:01:00 #2219 [verbose] > │ let v55 : Mut1 = {l0 = 0} : Mut1 │
00:01:00 #2220 [verbose] > │ while method15(v55) do │
00:01:00 #2221 [verbose] > │ let v57 : int32 = v55.l0 │
00:01:00 #2222 [verbose] > │ v54.[int v57] <- v57 │
00:01:00 #2223 [verbose] > │ let v58 : int32 = v57 + 1 │
00:01:00 #2224 [verbose] > │ v55.l0 <- v58 │
00:01:00 #2225 [verbose] > │ () │
00:01:00 #2226 [verbose] > │ let v59 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:01:00 #2227 [verbose] > │ Array.Parallel.map │
00:01:00 #2228 [verbose] > │ let v60 : (int32 -> string) = closure3(v28, v49) │
00:01:00 #2229 [verbose] > │ let v61 : ((int32 []) -> (string [])) = v59 v60 │
00:01:00 #2230 [verbose] > │ let v62 : (string []) = v61 v54 │
00:01:00 #2231 [verbose] > │ let v63 : int32 = v62.Length │
00:01:00 #2232 [verbose] > │ let v64 : int32 = v63 - 1 │
00:01:00 #2233 [verbose] > │ let v65 : string = v62.[int v64] │
00:01:00 #2234 [verbose] > │ let v66 : int64 = v52.ElapsedMilliseconds │
00:01:00 #2235 [verbose] > │ let v67 : int64 = v66 - v53 │
00:01:00 #2236 [verbose] > │ let v68 : string = $"Test case {v47 + 1}. {v48}. Time: {v67} " │
00:01:00 #2237 [verbose] > │ System.Console.WriteLine v68 │
00:01:00 #2238 [verbose] > │ v43.[int v46] <- struct (v65, v67) │
00:01:00 #2239 [verbose] > │ let v69 : uint64 = v46 + 1UL │
00:01:00 #2240 [verbose] > │ v44.l0 <- v69 │
00:01:00 #2241 [verbose] > │ () │
00:01:00 #2242 [verbose] > │ let v70 : uint64 = System.Convert.ToUInt64 v43.Length │
00:01:00 #2243 [verbose] > │ let v71 : (string []) = Array.zeroCreate<string> │
00:01:00 #2244 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:00 #2245 [verbose] > │ let v72 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2246 [verbose] > │ while method4(v70, v72) do │
00:01:00 #2247 [verbose] > │ let v74 : uint64 = v72.l0 │
00:01:00 #2248 [verbose] > │ let struct (v75 : string, v76 : int64) = v43.[int v74] │
00:01:00 #2249 [verbose] > │ v71.[int v74] <- v75 │
00:01:00 #2250 [verbose] > │ let v77 : uint64 = v74 + 1UL │
00:01:00 #2251 [verbose] > │ v72.l0 <- v77 │
00:01:00 #2252 [verbose] > │ () │
00:01:00 #2253 [verbose] > │ let v78 : uint64 = System.Convert.ToUInt64 v71.Length │
00:01:00 #2254 [verbose] > │ let v79 : bool = v78 <= 1UL │
00:01:00 #2255 [verbose] > │ if v79 then │
00:01:00 #2256 [verbose] > │ () │
00:01:00 #2257 [verbose] > │ else │
00:01:00 #2258 [verbose] > │ let v80 : string = v71.[int 0UL] │
00:01:00 #2259 [verbose] > │ let v81 : uint64 = 0UL │
00:01:00 #2260 [verbose] > │ let v82 : bool = method16(v80, v71, v81) │
00:01:00 #2261 [verbose] > │ if v82 then │
00:01:00 #2262 [verbose] > │ () │
00:01:00 #2263 [verbose] > │ else │
00:01:00 #2264 [verbose] > │ let v83 : string = $"Challenge error: {v71}" │
00:01:00 #2265 [verbose] > │ failwith<unit> v83 │
00:01:00 #2266 [verbose] > │ let v84 : string = $"%A{v29}" │
00:01:00 #2267 [verbose] > │ let v85 : (string []) = Array.zeroCreate<string> │
00:01:00 #2268 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:00 #2269 [verbose] > │ let v86 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2270 [verbose] > │ while method4(v70, v86) do │
00:01:00 #2271 [verbose] > │ let v88 : uint64 = v86.l0 │
00:01:00 #2272 [verbose] > │ let struct (v89 : string, v90 : int64) = v43.[int v88] │
00:01:00 #2273 [verbose] > │ v85.[int v88] <- v89 │
00:01:00 #2274 [verbose] > │ let v91 : uint64 = v88 + 1UL │
00:01:00 #2275 [verbose] > │ v86.l0 <- v91 │
00:01:00 #2276 [verbose] > │ () │
00:01:00 #2277 [verbose] > │ let v92 : string = v85.[int 0UL] │
00:01:00 #2278 [verbose] > │ let v93 : string = $"%A{v92}" │
00:01:00 #2279 [verbose] > │ let v94 : (int64 []) = Array.zeroCreate<int64> │
00:01:00 #2280 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:00 #2281 [verbose] > │ let v95 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2282 [verbose] > │ while method4(v70, v95) do │
00:01:00 #2283 [verbose] > │ let v97 : uint64 = v95.l0 │
00:01:00 #2284 [verbose] > │ let struct (v98 : string, v99 : int64) = v43.[int v97] │
00:01:00 #2285 [verbose] > │ v94.[int v97] <- v99 │
00:01:00 #2286 [verbose] > │ let v100 : uint64 = v97 + 1UL │
00:01:00 #2287 [verbose] > │ v95.l0 <- v100 │
00:01:00 #2288 [verbose] > │ () │
00:01:00 #2289 [verbose] > │ v24.[int v27] <- struct (v84, v30, v93, v94) │
00:01:00 #2290 [verbose] > │ let v101 : uint64 = v27 + 1UL │
00:01:00 #2291 [verbose] > │ v25.l0 <- v101 │
00:01:00 #2292 [verbose] > │ () │
00:01:00 #2293 [verbose] > │ let v102 : uint64 = System.Convert.ToUInt64 v24.Length │
00:01:00 #2294 [verbose] > │ let v103 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:00 #2295 [verbose] > │ US0)> (System.Convert.ToInt32(v102)) │
00:01:00 #2296 [verbose] > │ let v104 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2297 [verbose] > │ while method4(v102, v104) do │
00:01:00 #2298 [verbose] > │ let v106 : uint64 = v104.l0 │
00:01:00 #2299 [verbose] > │ let struct (v107 : string, v108 : string, v109 : string, v110 : │
00:01:00 #2300 [verbose] > │ (int64 [])) = v24.[int v106] │
00:01:00 #2301 [verbose] > │ let v111 : uint64 = System.Convert.ToUInt64 v110.Length │
00:01:00 #2302 [verbose] > │ let v112 : UH4 = UH4_0 │
00:01:00 #2303 [verbose] > │ let v113 : Mut2 = {l0 = 0UL; l1 = v112; l2 = 0L} : Mut2 │
00:01:00 #2304 [verbose] > │ while method17(v111, v113) do │
00:01:00 #2305 [verbose] > │ let v115 : uint64 = v113.l0 │
00:01:00 #2306 [verbose] > │ let struct (v116 : UH4, v117 : int64) = v113.l1, v113.l2 │
00:01:00 #2307 [verbose] > │ let v118 : int64 = v110.[int v115] │
00:01:00 #2308 [verbose] > │ let v119 : int64 = v117 + 1L │
00:01:00 #2309 [verbose] > │ let v120 : uint64 = v115 + 1UL │
00:01:00 #2310 [verbose] > │ let v121 : UH4 = UH4_1(v117, v118, v116) │
00:01:00 #2311 [verbose] > │ v113.l0 <- v120 │
00:01:00 #2312 [verbose] > │ v113.l1 <- v121 │
00:01:00 #2313 [verbose] > │ v113.l2 <- v119 │
00:01:00 #2314 [verbose] > │ () │
00:01:00 #2315 [verbose] > │ let struct (v122 : UH4, v123 : int64) = v113.l1, v113.l2 │
00:01:00 #2316 [verbose] > │ let v124 : UH4 = UH4_0 │
00:01:00 #2317 [verbose] > │ let v125 : UH4 = method18(v122, v124) │
00:01:00 #2318 [verbose] > │ let v126 : (struct (int64 * int64) []) = method19(v125) │
00:01:00 #2319 [verbose] > │ let v127 : int32 = v126.Length │
00:01:00 #2320 [verbose] > │ let v128 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:00 #2321 [verbose] > │ (int64 * int64)> (v127) │
00:01:00 #2322 [verbose] > │ let v129 : Mut1 = {l0 = 0} : Mut1 │
00:01:00 #2323 [verbose] > │ while method5(v127, v129) do │
00:01:00 #2324 [verbose] > │ let v131 : int32 = v129.l0 │
00:01:00 #2325 [verbose] > │ let struct (v132 : int64, v133 : int64) = v126.[int v131] │
00:01:00 #2326 [verbose] > │ let v134 : int64 = v132 + 1L │
00:01:00 #2327 [verbose] > │ v128.[int v131] <- struct (v134, v133) │
00:01:00 #2328 [verbose] > │ let v135 : int32 = v131 + 1 │
00:01:00 #2329 [verbose] > │ v129.l0 <- v135 │
00:01:00 #2330 [verbose] > │ () │
00:01:00 #2331 [verbose] > │ let v136 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:00 #2332 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:00 #2333 [verbose] > │ let v137 : (struct (int64 * int64) -> int64) = closure4() │
00:01:00 #2334 [verbose] > │ let v138 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:00 #2335 [verbose] > │ ])) = v136 v137 │
00:01:00 #2336 [verbose] > │ let v139 : (struct (int64 * int64) []) = v138 v128 │
00:01:00 #2337 [verbose] > │ let struct (v140 : int64, v141 : int64) = v139.[int 0] │
00:01:00 #2338 [verbose] > │ let v142 : string = $"%A{struct (v140, v141)}" │
00:01:00 #2339 [verbose] > │ let v143 : bool = v107 = v109 │
00:01:00 #2340 [verbose] > │ let v148 : US0 = │
00:01:00 #2341 [verbose] > │ if v143 then │
00:01:00 #2342 [verbose] > │ let v144 : System.ConsoleColor = │
00:01:00 #2343 [verbose] > │ System.ConsoleColor.DarkGreen │
00:01:00 #2344 [verbose] > │ US0_0(v144) │
00:01:00 #2345 [verbose] > │ else │
00:01:00 #2346 [verbose] > │ let v146 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:00 #2347 [verbose] > │ US0_0(v146) │
00:01:00 #2348 [verbose] > │ let v149 : UH2 = UH2_0 │
00:01:00 #2349 [verbose] > │ let v150 : UH2 = UH2_1(v142, v149) │
00:01:00 #2350 [verbose] > │ let v151 : UH2 = UH2_1(v109, v150) │
00:01:00 #2351 [verbose] > │ let v152 : UH2 = UH2_1(v107, v151) │
00:01:00 #2352 [verbose] > │ let v153 : UH2 = UH2_1(v108, v152) │
00:01:00 #2353 [verbose] > │ v103.[int v106] <- struct (v153, v148) │
00:01:00 #2354 [verbose] > │ let v154 : uint64 = v106 + 1UL │
00:01:00 #2355 [verbose] > │ v104.l0 <- v154 │
00:01:00 #2356 [verbose] > │ () │
00:01:00 #2357 [verbose] > │ let v155 : string = "Input" │
00:01:00 #2358 [verbose] > │ let v156 : string = "Expected" │
00:01:00 #2359 [verbose] > │ let v157 : string = "Result" │
00:01:00 #2360 [verbose] > │ let v158 : string = "Best" │
00:01:00 #2361 [verbose] > │ let v159 : UH2 = UH2_0 │
00:01:00 #2362 [verbose] > │ let v160 : UH2 = UH2_1(v158, v159) │
00:01:00 #2363 [verbose] > │ let v161 : UH2 = UH2_1(v157, v160) │
00:01:00 #2364 [verbose] > │ let v162 : UH2 = UH2_1(v156, v161) │
00:01:00 #2365 [verbose] > │ let v163 : UH2 = UH2_1(v155, v162) │
00:01:00 #2366 [verbose] > │ let v164 : US0 = US0_1 │
00:01:00 #2367 [verbose] > │ let v165 : string = "---" │
00:01:00 #2368 [verbose] > │ let v166 : UH2 = UH2_0 │
00:01:00 #2369 [verbose] > │ let v167 : UH2 = UH2_1(v165, v166) │
00:01:00 #2370 [verbose] > │ let v168 : UH2 = UH2_1(v165, v167) │
00:01:00 #2371 [verbose] > │ let v169 : UH2 = UH2_1(v165, v168) │
00:01:00 #2372 [verbose] > │ let v170 : UH2 = UH2_1(v165, v169) │
00:01:00 #2373 [verbose] > │ let v171 : US0 = US0_1 │
00:01:00 #2374 [verbose] > │ let v172 : UH5 = UH5_0 │
00:01:00 #2375 [verbose] > │ let v173 : UH5 = UH5_1(v170, v171, v172) │
00:01:00 #2376 [verbose] > │ let v174 : UH5 = UH5_1(v163, v164, v173) │
00:01:00 #2377 [verbose] > │ let v175 : (struct (UH2 * US0) []) = method22(v174) │
00:01:00 #2378 [verbose] > │ let v176 : uint64 = System.Convert.ToUInt64 v175.Length │
00:01:00 #2379 [verbose] > │ let v177 : uint64 = System.Convert.ToUInt64 v103.Length │
00:01:00 #2380 [verbose] > │ let v178 : uint64 = v176 + v177 │
00:01:00 #2381 [verbose] > │ let v179 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:00 #2382 [verbose] > │ US0)> (System.Convert.ToInt32(v178)) │
00:01:00 #2383 [verbose] > │ let v180 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2384 [verbose] > │ while method4(v178, v180) do │
00:01:00 #2385 [verbose] > │ let v182 : uint64 = v180.l0 │
00:01:00 #2386 [verbose] > │ let v183 : bool = v182 < v176 │
00:01:00 #2387 [verbose] > │ let struct (v189 : UH2, v190 : US0) = │
00:01:00 #2388 [verbose] > │ if v183 then │
00:01:00 #2389 [verbose] > │ let struct (v184 : UH2, v185 : US0) = v175.[int v182] │
00:01:00 #2390 [verbose] > │ struct (v184, v185) │
00:01:00 #2391 [verbose] > │ else │
00:01:00 #2392 [verbose] > │ let v186 : uint64 = v182 - v176 │
00:01:00 #2393 [verbose] > │ let struct (v187 : UH2, v188 : US0) = v103.[int v186] │
00:01:00 #2394 [verbose] > │ struct (v187, v188) │
00:01:00 #2395 [verbose] > │ v179.[int v182] <- struct (v189, v190) │
00:01:00 #2396 [verbose] > │ let v191 : uint64 = v182 + 1UL │
00:01:00 #2397 [verbose] > │ v180.l0 <- v191 │
00:01:00 #2398 [verbose] > │ () │
00:01:00 #2399 [verbose] > │ let v192 : uint64 = System.Convert.ToUInt64 v179.Length │
00:01:00 #2400 [verbose] > │ let v193 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:00 #2401 [verbose] > │ (System.Convert.ToInt32(v192)) │
00:01:00 #2402 [verbose] > │ let v194 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2403 [verbose] > │ while method4(v192, v194) do │
00:01:00 #2404 [verbose] > │ let v196 : uint64 = v194.l0 │
00:01:00 #2405 [verbose] > │ let struct (v197 : UH2, v198 : US0) = v179.[int v196] │
00:01:00 #2406 [verbose] > │ let v199 : (string []) = method25(v197) │
00:01:00 #2407 [verbose] > │ v193.[int v196] <- v199 │
00:01:00 #2408 [verbose] > │ let v200 : uint64 = v196 + 1UL │
00:01:00 #2409 [verbose] > │ v194.l0 <- v200 │
00:01:00 #2410 [verbose] > │ () │
00:01:00 #2411 [verbose] > │ let v201 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:00 #2412 [verbose] > │ let v202 : ((string []) []) = v201 v193 │
00:01:00 #2413 [verbose] > │ let v203 : uint64 = System.Convert.ToUInt64 v202.Length │
00:01:00 #2414 [verbose] > │ let v204 : (int64 []) = Array.zeroCreate<int64> │
00:01:00 #2415 [verbose] > │ (System.Convert.ToInt32(v203)) │
00:01:00 #2416 [verbose] > │ let v205 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2417 [verbose] > │ while method4(v203, v205) do │
00:01:00 #2418 [verbose] > │ let v207 : uint64 = v205.l0 │
00:01:00 #2419 [verbose] > │ let v208 : (string []) = v202.[int v207] │
00:01:00 #2420 [verbose] > │ let v209 : uint64 = System.Convert.ToUInt64 v208.Length │
00:01:00 #2421 [verbose] > │ let v210 : (int64 []) = Array.zeroCreate<int64> │
00:01:00 #2422 [verbose] > │ (System.Convert.ToInt32(v209)) │
00:01:00 #2423 [verbose] > │ let v211 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2424 [verbose] > │ while method4(v209, v211) do │
00:01:00 #2425 [verbose] > │ let v213 : uint64 = v211.l0 │
00:01:00 #2426 [verbose] > │ let v214 : string = v208.[int v213] │
00:01:00 #2427 [verbose] > │ let v215 : int64 = System.Convert.ToInt64 v214.Length │
00:01:00 #2428 [verbose] > │ v210.[int v213] <- v215 │
00:01:00 #2429 [verbose] > │ let v216 : uint64 = v213 + 1UL │
00:01:00 #2430 [verbose] > │ v211.l0 <- v216 │
00:01:00 #2431 [verbose] > │ () │
00:01:00 #2432 [verbose] > │ let v217 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:00 #2433 [verbose] > │ let v218 : (int64 []) = v217 v210 │
00:01:00 #2434 [verbose] > │ let v219 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:00 #2435 [verbose] > │ let v220 : ((int64 []) -> int64 option) = v219 0 │
00:01:00 #2436 [verbose] > │ let v221 : int64 option = v220 v218 │
00:01:00 #2437 [verbose] > │ let v222 : (int64 -> US1) = method28() │
00:01:00 #2438 [verbose] > │ let v223 : US1 = US1_1 │
00:01:00 #2439 [verbose] > │ let v224 : US1 = v221 |> Option.map v222 |> Option.defaultValue v223 │
00:01:00 #2440 [verbose] > │ let v227 : int64 = │
00:01:00 #2441 [verbose] > │ match v224 with │
00:01:00 #2442 [verbose] > │ | US1_1 -> (* None *) │
00:01:00 #2443 [verbose] > │ 0L │
00:01:00 #2444 [verbose] > │ | US1_0(v225) -> (* Some *) │
00:01:00 #2445 [verbose] > │ v225 │
00:01:00 #2446 [verbose] > │ v204.[int v207] <- v227 │
00:01:00 #2447 [verbose] > │ let v228 : uint64 = v207 + 1UL │
00:01:00 #2448 [verbose] > │ v205.l0 <- v228 │
00:01:00 #2449 [verbose] > │ () │
00:01:00 #2450 [verbose] > │ let v229 : uint64 = System.Convert.ToUInt64 v204.Length │
00:01:00 #2451 [verbose] > │ let v230 : UH6 = UH6_0 │
00:01:00 #2452 [verbose] > │ let v231 : Mut3 = {l0 = 0UL; l1 = v230; l2 = 0} : Mut3 │
00:01:00 #2453 [verbose] > │ while method29(v229, v231) do │
00:01:00 #2454 [verbose] > │ let v233 : uint64 = v231.l0 │
00:01:00 #2455 [verbose] > │ let struct (v234 : UH6, v235 : int32) = v231.l1, v231.l2 │
00:01:00 #2456 [verbose] > │ let v236 : int64 = v204.[int v233] │
00:01:00 #2457 [verbose] > │ let v237 : int32 = v235 + 1 │
00:01:00 #2458 [verbose] > │ let v238 : uint64 = v233 + 1UL │
00:01:00 #2459 [verbose] > │ let v239 : UH6 = UH6_1(v235, v236, v234) │
00:01:00 #2460 [verbose] > │ v231.l0 <- v238 │
00:01:00 #2461 [verbose] > │ v231.l1 <- v239 │
00:01:00 #2462 [verbose] > │ v231.l2 <- v237 │
00:01:00 #2463 [verbose] > │ () │
00:01:00 #2464 [verbose] > │ let struct (v240 : UH6, v241 : int32) = v231.l1, v231.l2 │
00:01:00 #2465 [verbose] > │ let v242 : UH6 = UH6_0 │
00:01:00 #2466 [verbose] > │ let v243 : UH6 = method30(v240, v242) │
00:01:00 #2467 [verbose] > │ let v244 : (struct (int32 * int64) []) = method31(v243) │
00:01:00 #2468 [verbose] > │ let v245 : Map<int32, int64> = v244 |> Array.map (fun (struct (a, b)) -> │
00:01:00 #2469 [verbose] > │ a, b) |> Map.ofArray │
00:01:00 #2470 [verbose] > │ let v246 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:01:00 #2471 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v192)) │
00:01:00 #2472 [verbose] > │ let v247 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2473 [verbose] > │ while method4(v192, v247) do │
00:01:00 #2474 [verbose] > │ let v249 : uint64 = v247.l0 │
00:01:00 #2475 [verbose] > │ let struct (v250 : UH2, v251 : US0) = v179.[int v249] │
00:01:00 #2476 [verbose] > │ let v252 : UH7 = UH7_0 │
00:01:00 #2477 [verbose] > │ let v253 : int32 = 0 │
00:01:00 #2478 [verbose] > │ let struct (v254 : UH7, v255 : int32) = method34(v250, v252, v253) │
00:01:00 #2479 [verbose] > │ let v256 : UH7 = UH7_0 │
00:01:00 #2480 [verbose] > │ let v257 : UH7 = method35(v254, v256) │
00:01:00 #2481 [verbose] > │ let v258 : UH2 = UH2_0 │
00:01:00 #2482 [verbose] > │ let v259 : UH2 = method36(v245, v257, v258) │
00:01:00 #2483 [verbose] > │ let v260 : (string []) = method9(v259) │
00:01:00 #2484 [verbose] > │ v246.[int v249] <- struct (v260, v251) │
00:01:00 #2485 [verbose] > │ let v261 : uint64 = v249 + 1UL │
00:01:00 #2486 [verbose] > │ v247.l0 <- v261 │
00:01:00 #2487 [verbose] > │ () │
00:01:00 #2488 [verbose] > │ System.Console.WriteLine v2 │
00:01:00 #2489 [verbose] > │ let v262 : uint64 = System.Convert.ToUInt64 v246.Length │
00:01:00 #2490 [verbose] > │ let v263 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2491 [verbose] > │ while method4(v262, v263) do │
00:01:00 #2492 [verbose] > │ let v265 : uint64 = v263.l0 │
00:01:00 #2493 [verbose] > │ let struct (v266 : (string []), v267 : US0) = v246.[int v265] │
00:01:00 #2494 [verbose] > │ match v267 with │
00:01:00 #2495 [verbose] > │ | US0_1 -> (* None *) │
00:01:00 #2496 [verbose] > │ let v270 : unit option = None │
00:01:00 #2497 [verbose] > │ let mutable _v270 = v270 │
00:01:00 #2498 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2499 [verbose] > │ () │
00:01:00 #2500 [verbose] > │ #endif │
00:01:00 #2501 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2502 [verbose] > │ () │
00:01:00 #2503 [verbose] > │ #endif │
00:01:00 #2504 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2505 [verbose] > │ () │
00:01:00 #2506 [verbose] > │ #endif │
00:01:00 #2507 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2508 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2509 [verbose] > │ System.Console.ResetColor () │
00:01:00 #2510 [verbose] > │ () │
00:01:00 #2511 [verbose] > │ #endif │
00:01:00 #2512 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2513 [verbose] > │ () │
00:01:00 #2514 [verbose] > │ #endif │
00:01:00 #2515 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:00 #2516 [verbose] > │ FABLE_COMPILER_DART │
00:01:00 #2517 [verbose] > │ Unchecked.defaultof<unit> │
00:01:00 #2518 [verbose] > │ () │
00:01:00 #2519 [verbose] > │ #endif │
00:01:00 #2520 [verbose] > │ |> fun x -> _v270 <- Some x │
00:01:00 #2521 [verbose] > │ _v270.Value │
00:01:00 #2522 [verbose] > │ () │
00:01:00 #2523 [verbose] > │ | US0_0(v268) -> (* Some *) │
00:01:00 #2524 [verbose] > │ let v269 : unit option = None │
00:01:00 #2525 [verbose] > │ let mutable _v269 = v269 │
00:01:00 #2526 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2527 [verbose] > │ () │
00:01:00 #2528 [verbose] > │ #endif │
00:01:00 #2529 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2530 [verbose] > │ () │
00:01:00 #2531 [verbose] > │ #endif │
00:01:00 #2532 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2533 [verbose] > │ () │
00:01:00 #2534 [verbose] > │ #endif │
00:01:00 #2535 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2536 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2537 [verbose] > │ System.Console.ForegroundColor <- v268 │
00:01:00 #2538 [verbose] > │ () │
00:01:00 #2539 [verbose] > │ #endif │
00:01:00 #2540 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2541 [verbose] > │ () │
00:01:00 #2542 [verbose] > │ #endif │
00:01:00 #2543 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:00 #2544 [verbose] > │ FABLE_COMPILER_DART │
00:01:00 #2545 [verbose] > │ Unchecked.defaultof<unit> │
00:01:00 #2546 [verbose] > │ () │
00:01:00 #2547 [verbose] > │ #endif │
00:01:00 #2548 [verbose] > │ |> fun x -> _v269 <- Some x │
00:01:00 #2549 [verbose] > │ _v269.Value │
00:01:00 #2550 [verbose] > │ () │
00:01:00 #2551 [verbose] > │ let v271 : string = "\t| " │
00:01:00 #2552 [verbose] > │ let v272 : string = System.String.Join (v271, v266) │
00:01:00 #2553 [verbose] > │ System.Console.WriteLine v272 │
00:01:00 #2554 [verbose] > │ let v273 : unit option = None │
00:01:00 #2555 [verbose] > │ let mutable _v273 = v273 │
00:01:00 #2556 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2557 [verbose] > │ () │
00:01:00 #2558 [verbose] > │ #endif │
00:01:00 #2559 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2560 [verbose] > │ () │
00:01:00 #2561 [verbose] > │ #endif │
00:01:00 #2562 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2563 [verbose] > │ () │
00:01:00 #2564 [verbose] > │ #endif │
00:01:00 #2565 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2566 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2567 [verbose] > │ System.Console.ResetColor () │
00:01:00 #2568 [verbose] > │ () │
00:01:00 #2569 [verbose] > │ #endif │
00:01:00 #2570 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2571 [verbose] > │ () │
00:01:00 #2572 [verbose] > │ #endif │
00:01:00 #2573 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:00 #2574 [verbose] > │ FABLE_COMPILER_DART │
00:01:00 #2575 [verbose] > │ Unchecked.defaultof<unit> │
00:01:00 #2576 [verbose] > │ () │
00:01:00 #2577 [verbose] > │ #endif │
00:01:00 #2578 [verbose] > │ |> fun x -> _v273 <- Some x │
00:01:00 #2579 [verbose] > │ _v273.Value │
00:01:00 #2580 [verbose] > │ let v274 : uint64 = v265 + 1UL │
00:01:00 #2581 [verbose] > │ v263.l0 <- v274 │
00:01:00 #2582 [verbose] > │ () │
00:01:00 #2583 [verbose] > │ let v275 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:00 #2584 [verbose] > │ (System.Convert.ToInt32(v102)) │
00:01:00 #2585 [verbose] > │ let v276 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2586 [verbose] > │ while method4(v102, v276) do │
00:01:00 #2587 [verbose] > │ let v278 : uint64 = v276.l0 │
00:01:00 #2588 [verbose] > │ let struct (v279 : string, v280 : string, v281 : string, v282 : │
00:01:00 #2589 [verbose] > │ (int64 [])) = v24.[int v278] │
00:01:00 #2590 [verbose] > │ let v283 : (int64 -> float) = float │
00:01:00 #2591 [verbose] > │ let v284 : uint64 = System.Convert.ToUInt64 v282.Length │
00:01:00 #2592 [verbose] > │ let v285 : (float []) = Array.zeroCreate<float> │
00:01:00 #2593 [verbose] > │ (System.Convert.ToInt32(v284)) │
00:01:00 #2594 [verbose] > │ let v286 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2595 [verbose] > │ while method4(v284, v286) do │
00:01:00 #2596 [verbose] > │ let v288 : uint64 = v286.l0 │
00:01:00 #2597 [verbose] > │ let v289 : int64 = v282.[int v288] │
00:01:00 #2598 [verbose] > │ let v290 : float = v283 v289 │
00:01:00 #2599 [verbose] > │ v285.[int v288] <- v290 │
00:01:00 #2600 [verbose] > │ let v291 : uint64 = v288 + 1UL │
00:01:00 #2601 [verbose] > │ v286.l0 <- v291 │
00:01:00 #2602 [verbose] > │ () │
00:01:00 #2603 [verbose] > │ v275.[int v278] <- v285 │
00:01:00 #2604 [verbose] > │ let v292 : uint64 = v278 + 1UL │
00:01:00 #2605 [verbose] > │ v276.l0 <- v292 │
00:01:00 #2606 [verbose] > │ () │
00:01:00 #2607 [verbose] > │ let v293 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:00 #2608 [verbose] > │ let v294 : ((float []) []) = v293 v275 │
00:01:00 #2609 [verbose] > │ let v295 : uint64 = System.Convert.ToUInt64 v294.Length │
00:01:00 #2610 [verbose] > │ let v296 : (float []) = Array.zeroCreate<float> │
00:01:00 #2611 [verbose] > │ (System.Convert.ToInt32(v295)) │
00:01:00 #2612 [verbose] > │ let v297 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2613 [verbose] > │ while method4(v295, v297) do │
00:01:00 #2614 [verbose] > │ let v299 : uint64 = v297.l0 │
00:01:00 #2615 [verbose] > │ let v300 : (float []) = v294.[int v299] │
00:01:00 #2616 [verbose] > │ let v301 : ((float []) -> float) = Array.average │
00:01:00 #2617 [verbose] > │ let v302 : float = v301 v300 │
00:01:00 #2618 [verbose] > │ v296.[int v299] <- v302 │
00:01:00 #2619 [verbose] > │ let v303 : uint64 = v299 + 1UL │
00:01:00 #2620 [verbose] > │ v297.l0 <- v303 │
00:01:00 #2621 [verbose] > │ () │
00:01:00 #2622 [verbose] > │ let v304 : (float -> int64) = int64 │
00:01:00 #2623 [verbose] > │ let v305 : uint64 = System.Convert.ToUInt64 v296.Length │
00:01:00 #2624 [verbose] > │ let v306 : (int64 []) = Array.zeroCreate<int64> │
00:01:00 #2625 [verbose] > │ (System.Convert.ToInt32(v305)) │
00:01:00 #2626 [verbose] > │ let v307 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2627 [verbose] > │ while method4(v305, v307) do │
00:01:00 #2628 [verbose] > │ let v309 : uint64 = v307.l0 │
00:01:00 #2629 [verbose] > │ let v310 : float = v296.[int v309] │
00:01:00 #2630 [verbose] > │ let v311 : int64 = v304 v310 │
00:01:00 #2631 [verbose] > │ v306.[int v309] <- v311 │
00:01:00 #2632 [verbose] > │ let v312 : uint64 = v309 + 1UL │
00:01:00 #2633 [verbose] > │ v307.l0 <- v312 │
00:01:00 #2634 [verbose] > │ () │
00:01:00 #2635 [verbose] > │ let v313 : uint64 = System.Convert.ToUInt64 v306.Length │
00:01:00 #2636 [verbose] > │ let v314 : UH6 = UH6_0 │
00:01:00 #2637 [verbose] > │ let v315 : Mut3 = {l0 = 0UL; l1 = v314; l2 = 0} : Mut3 │
00:01:00 #2638 [verbose] > │ while method29(v313, v315) do │
00:01:00 #2639 [verbose] > │ let v317 : uint64 = v315.l0 │
00:01:00 #2640 [verbose] > │ let struct (v318 : UH6, v319 : int32) = v315.l1, v315.l2 │
00:01:00 #2641 [verbose] > │ let v320 : int64 = v306.[int v317] │
00:01:00 #2642 [verbose] > │ let v321 : int32 = v319 + 1 │
00:01:00 #2643 [verbose] > │ let v322 : uint64 = v317 + 1UL │
00:01:00 #2644 [verbose] > │ let v323 : UH6 = UH6_1(v319, v320, v318) │
00:01:00 #2645 [verbose] > │ v315.l0 <- v322 │
00:01:00 #2646 [verbose] > │ v315.l1 <- v323 │
00:01:00 #2647 [verbose] > │ v315.l2 <- v321 │
00:01:00 #2648 [verbose] > │ () │
00:01:00 #2649 [verbose] > │ let struct (v324 : UH6, v325 : int32) = v315.l1, v315.l2 │
00:01:00 #2650 [verbose] > │ let v326 : UH6 = UH6_0 │
00:01:00 #2651 [verbose] > │ let v327 : UH6 = method30(v324, v326) │
00:01:00 #2652 [verbose] > │ let v328 : (struct (int32 * int64) []) = method37(v327) │
00:01:00 #2653 [verbose] > │ System.Console.WriteLine v2 │
00:01:00 #2654 [verbose] > │ let v329 : string = "Average Ranking " │
00:01:00 #2655 [verbose] > │ System.Console.WriteLine v329 │
00:01:00 #2656 [verbose] > │ let v330 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:00 #2657 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:00 #2658 [verbose] > │ let v331 : (struct (int32 * int64) -> int64) = closure6() │
00:01:00 #2659 [verbose] > │ let v332 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:00 #2660 [verbose] > │ = v330 v331 │
00:01:00 #2661 [verbose] > │ let v333 : (struct (int32 * int64) []) = v332 v328 │
00:01:00 #2662 [verbose] > │ let v334 : uint64 = System.Convert.ToUInt64 v333.Length │
00:01:00 #2663 [verbose] > │ let v335 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2664 [verbose] > │ while method4(v334, v335) do │
00:01:00 #2665 [verbose] > │ let v337 : uint64 = v335.l0 │
00:01:00 #2666 [verbose] > │ let struct (v338 : int32, v339 : int64) = v333.[int v337] │
00:01:00 #2667 [verbose] > │ let v340 : string = $"Test case %d{v338 + 1}. Average Time: %A{v339} │
00:01:00 #2668 [verbose] > │ " │
00:01:00 #2669 [verbose] > │ System.Console.WriteLine v340 │
00:01:00 #2670 [verbose] > │ let v341 : uint64 = v337 + 1UL │
00:01:00 #2671 [verbose] > │ v335.l0 <- v341 │
00:01:00 #2672 [verbose] > │ () │
00:01:00 #2673 [verbose] > │ () │
00:01:00 #2674 [verbose] > │ and method0 () : unit = │
00:01:00 #2675 [verbose] > │ let v0 : (unit -> unit) = closure0() │
00:01:00 #2676 [verbose] > │ let v1 : string = nameof v0 │
00:01:00 #2677 [verbose] > │ let v2 : string = "" │
00:01:00 #2678 [verbose] > │ System.Console.WriteLine v2 │
00:01:00 #2679 [verbose] > │ System.Console.WriteLine v2 │
00:01:00 #2680 [verbose] > │ let v3 : string = $"Test: {v1}" │
00:01:00 #2681 [verbose] > │ System.Console.WriteLine v3 │
00:01:00 #2682 [verbose] > │ let v4 : string = "abc" │
00:01:00 #2683 [verbose] > │ let v5 : string = "bca cab abc" │
00:01:00 #2684 [verbose] > │ let v6 : string = "abcde" │
00:01:00 #2685 [verbose] > │ let v7 : string = "bcdea cdeab deabc eabcd abcde" │
00:01:00 #2686 [verbose] > │ let v8 : string = "abcdefghi" │
00:01:00 #2687 [verbose] > │ let v9 : string = "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde │
00:01:00 #2688 [verbose] > │ ghiabcdef hiabcdefg iabcdefgh abcdefghi" │
00:01:00 #2689 [verbose] > │ let v10 : string = "abab" │
00:01:00 #2690 [verbose] > │ let v11 : string = "baba abab baba abab" │
00:01:00 #2691 [verbose] > │ let v12 : string = "aa" │
00:01:00 #2692 [verbose] > │ let v13 : string = "aa aa" │
00:01:00 #2693 [verbose] > │ let v14 : string = "z" │
00:01:00 #2694 [verbose] > │ let v15 : UH0 = UH0_0 │
00:01:00 #2695 [verbose] > │ let v16 : UH0 = UH0_1(v14, v14, v15) │
00:01:00 #2696 [verbose] > │ let v17 : UH0 = UH0_1(v12, v13, v16) │
00:01:00 #2697 [verbose] > │ let v18 : UH0 = UH0_1(v10, v11, v17) │
00:01:00 #2698 [verbose] > │ let v19 : UH0 = UH0_1(v8, v9, v18) │
00:01:00 #2699 [verbose] > │ let v20 : UH0 = UH0_1(v6, v7, v19) │
00:01:00 #2700 [verbose] > │ let v21 : UH0 = UH0_1(v4, v5, v20) │
00:01:00 #2701 [verbose] > │ let v22 : (struct (string * string) []) = method1(v21) │
00:01:00 #2702 [verbose] > │ let v23 : uint64 = System.Convert.ToUInt64 v22.Length │
00:01:00 #2703 [verbose] > │ let v24 : (struct (string * string * string * (int64 [])) []) = │
00:01:00 #2704 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:00 #2705 [verbose] > │ (System.Convert.ToInt32(v23)) │
00:01:00 #2706 [verbose] > │ let v25 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2707 [verbose] > │ while method4(v23, v25) do │
00:01:00 #2708 [verbose] > │ let v27 : uint64 = v25.l0 │
00:01:00 #2709 [verbose] > │ let struct (v28 : string, v29 : string) = v22.[int v27] │
00:01:00 #2710 [verbose] > │ let v30 : string = $"%A{v28}" │
00:01:00 #2711 [verbose] > │ System.Console.WriteLine v2 │
00:01:00 #2712 [verbose] > │ let v31 : string = $"Solution: {v30} " │
00:01:00 #2713 [verbose] > │ System.Console.WriteLine v31 │
00:01:00 #2714 [verbose] > │ let v32 : int32 = 0 │
00:01:00 #2715 [verbose] > │ let v33 : string = "F" │
00:01:00 #2716 [verbose] > │ let v34 : (string -> string) = closure1() │
00:01:00 #2717 [verbose] > │ let v35 : int32 = 1 │
00:01:00 #2718 [verbose] > │ let v36 : string = "FA" │
00:01:00 #2719 [verbose] > │ let v37 : (string -> string) = closure2() │
00:01:00 #2720 [verbose] > │ let v38 : UH3 = UH3_0 │
00:01:00 #2721 [verbose] > │ let v39 : UH3 = UH3_1(v35, v36, v37, v38) │
00:01:00 #2722 [verbose] > │ let v40 : UH3 = UH3_1(v32, v33, v34, v39) │
00:01:00 #2723 [verbose] > │ let v41 : (struct (int32 * string * (string -> string)) []) = │
00:01:00 #2724 [verbose] > │ method12(v40) │
00:01:00 #2725 [verbose] > │ let v42 : uint64 = System.Convert.ToUInt64 v41.Length │
00:01:00 #2726 [verbose] > │ let v43 : (struct (string * int64) []) = Array.zeroCreate<struct │
00:01:00 #2727 [verbose] > │ (string * int64)> (System.Convert.ToInt32(v42)) │
00:01:00 #2728 [verbose] > │ let v44 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2729 [verbose] > │ while method4(v42, v44) do │
00:01:00 #2730 [verbose] > │ let v46 : uint64 = v44.l0 │
00:01:00 #2731 [verbose] > │ let struct (v47 : int32, v48 : string, v49 : (string -> string)) │
00:01:00 #2732 [verbose] > │ = v41.[int v46] │
00:01:00 #2733 [verbose] > │ let v50 : unit option = None │
00:01:00 #2734 [verbose] > │ let mutable _v50 = v50 │
00:01:00 #2735 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #2736 [verbose] > │ () │
00:01:00 #2737 [verbose] > │ #endif │
00:01:00 #2738 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #2739 [verbose] > │ () │
00:01:00 #2740 [verbose] > │ #endif │
00:01:00 #2741 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #2742 [verbose] > │ () │
00:01:00 #2743 [verbose] > │ #endif │
00:01:00 #2744 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #2745 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #2746 [verbose] > │ System.GC.Collect () │
00:01:00 #2747 [verbose] > │ () │
00:01:00 #2748 [verbose] > │ #endif │
00:01:00 #2749 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #2750 [verbose] > │ () │
00:01:00 #2751 [verbose] > │ #endif │
00:01:00 #2752 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:00 #2753 [verbose] > │ FABLE_COMPILER_DART │
00:01:00 #2754 [verbose] > │ Unchecked.defaultof<unit> │
00:01:00 #2755 [verbose] > │ () │
00:01:00 #2756 [verbose] > │ #endif │
00:01:00 #2757 [verbose] > │ |> fun x -> _v50 <- Some x │
00:01:00 #2758 [verbose] > │ _v50.Value │
00:01:00 #2759 [verbose] > │ let v51 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:00 #2760 [verbose] > │ System.Diagnostics.Stopwatch │
00:01:00 #2761 [verbose] > │ let v52 : System.Diagnostics.Stopwatch = v51 () │
00:01:00 #2762 [verbose] > │ v52.Start () │
00:01:00 #2763 [verbose] > │ let v53 : int64 = v52.ElapsedMilliseconds │
00:01:00 #2764 [verbose] > │ let v54 : (int32 []) = Array.zeroCreate<int32> (2000001) │
00:01:00 #2765 [verbose] > │ let v55 : Mut1 = {l0 = 0} : Mut1 │
00:01:00 #2766 [verbose] > │ while method15(v55) do │
00:01:00 #2767 [verbose] > │ let v57 : int32 = v55.l0 │
00:01:00 #2768 [verbose] > │ v54.[int v57] <- v57 │
00:01:00 #2769 [verbose] > │ let v58 : int32 = v57 + 1 │
00:01:00 #2770 [verbose] > │ v55.l0 <- v58 │
00:01:00 #2771 [verbose] > │ () │
00:01:00 #2772 [verbose] > │ let v59 : ((int32 -> string) -> ((int32 []) -> (string []))) = │
00:01:00 #2773 [verbose] > │ Array.Parallel.map │
00:01:00 #2774 [verbose] > │ let v60 : (int32 -> string) = closure3(v28, v49) │
00:01:00 #2775 [verbose] > │ let v61 : ((int32 []) -> (string [])) = v59 v60 │
00:01:00 #2776 [verbose] > │ let v62 : (string []) = v61 v54 │
00:01:00 #2777 [verbose] > │ let v63 : int32 = v62.Length │
00:01:00 #2778 [verbose] > │ let v64 : int32 = v63 - 1 │
00:01:00 #2779 [verbose] > │ let v65 : string = v62.[int v64] │
00:01:00 #2780 [verbose] > │ let v66 : int64 = v52.ElapsedMilliseconds │
00:01:00 #2781 [verbose] > │ let v67 : int64 = v66 - v53 │
00:01:00 #2782 [verbose] > │ let v68 : string = $"Test case {v47 + 1}. {v48}. Time: {v67} " │
00:01:00 #2783 [verbose] > │ System.Console.WriteLine v68 │
00:01:00 #2784 [verbose] > │ v43.[int v46] <- struct (v65, v67) │
00:01:00 #2785 [verbose] > │ let v69 : uint64 = v46 + 1UL │
00:01:00 #2786 [verbose] > │ v44.l0 <- v69 │
00:01:00 #2787 [verbose] > │ () │
00:01:00 #2788 [verbose] > │ let v70 : uint64 = System.Convert.ToUInt64 v43.Length │
00:01:00 #2789 [verbose] > │ let v71 : (string []) = Array.zeroCreate<string> │
00:01:00 #2790 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:00 #2791 [verbose] > │ let v72 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2792 [verbose] > │ while method4(v70, v72) do │
00:01:00 #2793 [verbose] > │ let v74 : uint64 = v72.l0 │
00:01:00 #2794 [verbose] > │ let struct (v75 : string, v76 : int64) = v43.[int v74] │
00:01:00 #2795 [verbose] > │ v71.[int v74] <- v75 │
00:01:00 #2796 [verbose] > │ let v77 : uint64 = v74 + 1UL │
00:01:00 #2797 [verbose] > │ v72.l0 <- v77 │
00:01:00 #2798 [verbose] > │ () │
00:01:00 #2799 [verbose] > │ let v78 : uint64 = System.Convert.ToUInt64 v71.Length │
00:01:00 #2800 [verbose] > │ let v79 : bool = v78 <= 1UL │
00:01:00 #2801 [verbose] > │ if v79 then │
00:01:00 #2802 [verbose] > │ () │
00:01:00 #2803 [verbose] > │ else │
00:01:00 #2804 [verbose] > │ let v80 : string = v71.[int 0UL] │
00:01:00 #2805 [verbose] > │ let v81 : uint64 = 0UL │
00:01:00 #2806 [verbose] > │ let v82 : bool = method16(v80, v71, v81) │
00:01:00 #2807 [verbose] > │ if v82 then │
00:01:00 #2808 [verbose] > │ () │
00:01:00 #2809 [verbose] > │ else │
00:01:00 #2810 [verbose] > │ let v83 : string = $"Challenge error: {v71}" │
00:01:00 #2811 [verbose] > │ failwith<unit> v83 │
00:01:00 #2812 [verbose] > │ let v84 : string = $"%A{v29}" │
00:01:00 #2813 [verbose] > │ let v85 : (string []) = Array.zeroCreate<string> │
00:01:00 #2814 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:00 #2815 [verbose] > │ let v86 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2816 [verbose] > │ while method4(v70, v86) do │
00:01:00 #2817 [verbose] > │ let v88 : uint64 = v86.l0 │
00:01:00 #2818 [verbose] > │ let struct (v89 : string, v90 : int64) = v43.[int v88] │
00:01:00 #2819 [verbose] > │ v85.[int v88] <- v89 │
00:01:00 #2820 [verbose] > │ let v91 : uint64 = v88 + 1UL │
00:01:00 #2821 [verbose] > │ v86.l0 <- v91 │
00:01:00 #2822 [verbose] > │ () │
00:01:00 #2823 [verbose] > │ let v92 : string = v85.[int 0UL] │
00:01:00 #2824 [verbose] > │ let v93 : string = $"%A{v92}" │
00:01:00 #2825 [verbose] > │ let v94 : (int64 []) = Array.zeroCreate<int64> │
00:01:00 #2826 [verbose] > │ (System.Convert.ToInt32(v70)) │
00:01:00 #2827 [verbose] > │ let v95 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2828 [verbose] > │ while method4(v70, v95) do │
00:01:00 #2829 [verbose] > │ let v97 : uint64 = v95.l0 │
00:01:00 #2830 [verbose] > │ let struct (v98 : string, v99 : int64) = v43.[int v97] │
00:01:00 #2831 [verbose] > │ v94.[int v97] <- v99 │
00:01:00 #2832 [verbose] > │ let v100 : uint64 = v97 + 1UL │
00:01:00 #2833 [verbose] > │ v95.l0 <- v100 │
00:01:00 #2834 [verbose] > │ () │
00:01:00 #2835 [verbose] > │ v24.[int v27] <- struct (v84, v30, v93, v94) │
00:01:00 #2836 [verbose] > │ let v101 : uint64 = v27 + 1UL │
00:01:00 #2837 [verbose] > │ v25.l0 <- v101 │
00:01:00 #2838 [verbose] > │ () │
00:01:00 #2839 [verbose] > │ let v102 : uint64 = System.Convert.ToUInt64 v24.Length │
00:01:00 #2840 [verbose] > │ let v103 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:00 #2841 [verbose] > │ US0)> (System.Convert.ToInt32(v102)) │
00:01:00 #2842 [verbose] > │ let v104 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2843 [verbose] > │ while method4(v102, v104) do │
00:01:00 #2844 [verbose] > │ let v106 : uint64 = v104.l0 │
00:01:00 #2845 [verbose] > │ let struct (v107 : string, v108 : string, v109 : string, v110 : │
00:01:00 #2846 [verbose] > │ (int64 [])) = v24.[int v106] │
00:01:00 #2847 [verbose] > │ let v111 : uint64 = System.Convert.ToUInt64 v110.Length │
00:01:00 #2848 [verbose] > │ let v112 : UH4 = UH4_0 │
00:01:00 #2849 [verbose] > │ let v113 : Mut2 = {l0 = 0UL; l1 = v112; l2 = 0L} : Mut2 │
00:01:00 #2850 [verbose] > │ while method17(v111, v113) do │
00:01:00 #2851 [verbose] > │ let v115 : uint64 = v113.l0 │
00:01:00 #2852 [verbose] > │ let struct (v116 : UH4, v117 : int64) = v113.l1, v113.l2 │
00:01:00 #2853 [verbose] > │ let v118 : int64 = v110.[int v115] │
00:01:00 #2854 [verbose] > │ let v119 : int64 = v117 + 1L │
00:01:00 #2855 [verbose] > │ let v120 : uint64 = v115 + 1UL │
00:01:00 #2856 [verbose] > │ let v121 : UH4 = UH4_1(v117, v118, v116) │
00:01:00 #2857 [verbose] > │ v113.l0 <- v120 │
00:01:00 #2858 [verbose] > │ v113.l1 <- v121 │
00:01:00 #2859 [verbose] > │ v113.l2 <- v119 │
00:01:00 #2860 [verbose] > │ () │
00:01:00 #2861 [verbose] > │ let struct (v122 : UH4, v123 : int64) = v113.l1, v113.l2 │
00:01:00 #2862 [verbose] > │ let v124 : UH4 = UH4_0 │
00:01:00 #2863 [verbose] > │ let v125 : UH4 = method18(v122, v124) │
00:01:00 #2864 [verbose] > │ let v126 : (struct (int64 * int64) []) = method19(v125) │
00:01:00 #2865 [verbose] > │ let v127 : int32 = v126.Length │
00:01:00 #2866 [verbose] > │ let v128 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:00 #2867 [verbose] > │ (int64 * int64)> (v127) │
00:01:00 #2868 [verbose] > │ let v129 : Mut1 = {l0 = 0} : Mut1 │
00:01:00 #2869 [verbose] > │ while method5(v127, v129) do │
00:01:00 #2870 [verbose] > │ let v131 : int32 = v129.l0 │
00:01:00 #2871 [verbose] > │ let struct (v132 : int64, v133 : int64) = v126.[int v131] │
00:01:00 #2872 [verbose] > │ let v134 : int64 = v132 + 1L │
00:01:00 #2873 [verbose] > │ v128.[int v131] <- struct (v134, v133) │
00:01:00 #2874 [verbose] > │ let v135 : int32 = v131 + 1 │
00:01:00 #2875 [verbose] > │ v129.l0 <- v135 │
00:01:00 #2876 [verbose] > │ () │
00:01:00 #2877 [verbose] > │ let v136 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:00 #2878 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:00 #2879 [verbose] > │ let v137 : (struct (int64 * int64) -> int64) = closure4() │
00:01:00 #2880 [verbose] > │ let v138 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:00 #2881 [verbose] > │ ])) = v136 v137 │
00:01:00 #2882 [verbose] > │ let v139 : (struct (int64 * int64) []) = v138 v128 │
00:01:00 #2883 [verbose] > │ let struct (v140 : int64, v141 : int64) = v139.[int 0] │
00:01:00 #2884 [verbose] > │ let v142 : string = $"%A{struct (v140, v141)}" │
00:01:00 #2885 [verbose] > │ let v143 : bool = v107 = v109 │
00:01:00 #2886 [verbose] > │ let v148 : US0 = │
00:01:00 #2887 [verbose] > │ if v143 then │
00:01:00 #2888 [verbose] > │ let v144 : System.ConsoleColor = │
00:01:00 #2889 [verbose] > │ System.ConsoleColor.DarkGreen │
00:01:00 #2890 [verbose] > │ US0_0(v144) │
00:01:00 #2891 [verbose] > │ else │
00:01:00 #2892 [verbose] > │ let v146 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:00 #2893 [verbose] > │ US0_0(v146) │
00:01:00 #2894 [verbose] > │ let v149 : UH2 = UH2_0 │
00:01:00 #2895 [verbose] > │ let v150 : UH2 = UH2_1(v142, v149) │
00:01:00 #2896 [verbose] > │ let v151 : UH2 = UH2_1(v109, v150) │
00:01:00 #2897 [verbose] > │ let v152 : UH2 = UH2_1(v107, v151) │
00:01:00 #2898 [verbose] > │ let v153 : UH2 = UH2_1(v108, v152) │
00:01:00 #2899 [verbose] > │ v103.[int v106] <- struct (v153, v148) │
00:01:00 #2900 [verbose] > │ let v154 : uint64 = v106 + 1UL │
00:01:00 #2901 [verbose] > │ v104.l0 <- v154 │
00:01:00 #2902 [verbose] > │ () │
00:01:00 #2903 [verbose] > │ let v155 : string = "Input" │
00:01:00 #2904 [verbose] > │ let v156 : string = "Expected" │
00:01:00 #2905 [verbose] > │ let v157 : string = "Result" │
00:01:00 #2906 [verbose] > │ let v158 : string = "Best" │
00:01:00 #2907 [verbose] > │ let v159 : UH2 = UH2_0 │
00:01:00 #2908 [verbose] > │ let v160 : UH2 = UH2_1(v158, v159) │
00:01:00 #2909 [verbose] > │ let v161 : UH2 = UH2_1(v157, v160) │
00:01:00 #2910 [verbose] > │ let v162 : UH2 = UH2_1(v156, v161) │
00:01:00 #2911 [verbose] > │ let v163 : UH2 = UH2_1(v155, v162) │
00:01:00 #2912 [verbose] > │ let v164 : US0 = US0_1 │
00:01:00 #2913 [verbose] > │ let v165 : string = "---" │
00:01:00 #2914 [verbose] > │ let v166 : UH2 = UH2_0 │
00:01:00 #2915 [verbose] > │ let v167 : UH2 = UH2_1(v165, v166) │
00:01:00 #2916 [verbose] > │ let v168 : UH2 = UH2_1(v165, v167) │
00:01:00 #2917 [verbose] > │ let v169 : UH2 = UH2_1(v165, v168) │
00:01:00 #2918 [verbose] > │ let v170 : UH2 = UH2_1(v165, v169) │
00:01:00 #2919 [verbose] > │ let v171 : US0 = US0_1 │
00:01:00 #2920 [verbose] > │ let v172 : UH5 = UH5_0 │
00:01:00 #2921 [verbose] > │ let v173 : UH5 = UH5_1(v170, v171, v172) │
00:01:00 #2922 [verbose] > │ let v174 : UH5 = UH5_1(v163, v164, v173) │
00:01:00 #2923 [verbose] > │ let v175 : (struct (UH2 * US0) []) = method22(v174) │
00:01:00 #2924 [verbose] > │ let v176 : uint64 = System.Convert.ToUInt64 v175.Length │
00:01:00 #2925 [verbose] > │ let v177 : uint64 = System.Convert.ToUInt64 v103.Length │
00:01:00 #2926 [verbose] > │ let v178 : uint64 = v176 + v177 │
00:01:00 #2927 [verbose] > │ let v179 : (struct (UH2 * US0) []) = Array.zeroCreate<struct (UH2 * │
00:01:00 #2928 [verbose] > │ US0)> (System.Convert.ToInt32(v178)) │
00:01:00 #2929 [verbose] > │ let v180 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2930 [verbose] > │ while method4(v178, v180) do │
00:01:00 #2931 [verbose] > │ let v182 : uint64 = v180.l0 │
00:01:00 #2932 [verbose] > │ let v183 : bool = v182 < v176 │
00:01:00 #2933 [verbose] > │ let struct (v189 : UH2, v190 : US0) = │
00:01:00 #2934 [verbose] > │ if v183 then │
00:01:00 #2935 [verbose] > │ let struct (v184 : UH2, v185 : US0) = v175.[int v182] │
00:01:00 #2936 [verbose] > │ struct (v184, v185) │
00:01:00 #2937 [verbose] > │ else │
00:01:00 #2938 [verbose] > │ let v186 : uint64 = v182 - v176 │
00:01:00 #2939 [verbose] > │ let struct (v187 : UH2, v188 : US0) = v103.[int v186] │
00:01:00 #2940 [verbose] > │ struct (v187, v188) │
00:01:00 #2941 [verbose] > │ v179.[int v182] <- struct (v189, v190) │
00:01:00 #2942 [verbose] > │ let v191 : uint64 = v182 + 1UL │
00:01:00 #2943 [verbose] > │ v180.l0 <- v191 │
00:01:00 #2944 [verbose] > │ () │
00:01:00 #2945 [verbose] > │ let v192 : uint64 = System.Convert.ToUInt64 v179.Length │
00:01:00 #2946 [verbose] > │ let v193 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:00 #2947 [verbose] > │ (System.Convert.ToInt32(v192)) │
00:01:00 #2948 [verbose] > │ let v194 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2949 [verbose] > │ while method4(v192, v194) do │
00:01:00 #2950 [verbose] > │ let v196 : uint64 = v194.l0 │
00:01:00 #2951 [verbose] > │ let struct (v197 : UH2, v198 : US0) = v179.[int v196] │
00:01:00 #2952 [verbose] > │ let v199 : (string []) = method25(v197) │
00:01:00 #2953 [verbose] > │ v193.[int v196] <- v199 │
00:01:00 #2954 [verbose] > │ let v200 : uint64 = v196 + 1UL │
00:01:00 #2955 [verbose] > │ v194.l0 <- v200 │
00:01:00 #2956 [verbose] > │ () │
00:01:00 #2957 [verbose] > │ let v201 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:00 #2958 [verbose] > │ let v202 : ((string []) []) = v201 v193 │
00:01:00 #2959 [verbose] > │ let v203 : uint64 = System.Convert.ToUInt64 v202.Length │
00:01:00 #2960 [verbose] > │ let v204 : (int64 []) = Array.zeroCreate<int64> │
00:01:00 #2961 [verbose] > │ (System.Convert.ToInt32(v203)) │
00:01:00 #2962 [verbose] > │ let v205 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2963 [verbose] > │ while method4(v203, v205) do │
00:01:00 #2964 [verbose] > │ let v207 : uint64 = v205.l0 │
00:01:00 #2965 [verbose] > │ let v208 : (string []) = v202.[int v207] │
00:01:00 #2966 [verbose] > │ let v209 : uint64 = System.Convert.ToUInt64 v208.Length │
00:01:00 #2967 [verbose] > │ let v210 : (int64 []) = Array.zeroCreate<int64> │
00:01:00 #2968 [verbose] > │ (System.Convert.ToInt32(v209)) │
00:01:00 #2969 [verbose] > │ let v211 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #2970 [verbose] > │ while method4(v209, v211) do │
00:01:00 #2971 [verbose] > │ let v213 : uint64 = v211.l0 │
00:01:00 #2972 [verbose] > │ let v214 : string = v208.[int v213] │
00:01:00 #2973 [verbose] > │ let v215 : int64 = System.Convert.ToInt64 v214.Length │
00:01:00 #2974 [verbose] > │ v210.[int v213] <- v215 │
00:01:00 #2975 [verbose] > │ let v216 : uint64 = v213 + 1UL │
00:01:00 #2976 [verbose] > │ v211.l0 <- v216 │
00:01:00 #2977 [verbose] > │ () │
00:01:00 #2978 [verbose] > │ let v217 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:00 #2979 [verbose] > │ let v218 : (int64 []) = v217 v210 │
00:01:00 #2980 [verbose] > │ let v219 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:00 #2981 [verbose] > │ let v220 : ((int64 []) -> int64 option) = v219 0 │
00:01:00 #2982 [verbose] > │ let v221 : int64 option = v220 v218 │
00:01:00 #2983 [verbose] > │ let v222 : (int64 -> US1) = method28() │
00:01:00 #2984 [verbose] > │ let v223 : US1 = US1_1 │
00:01:00 #2985 [verbose] > │ let v224 : US1 = v221 |> Option.map v222 |> Option.defaultValue v223 │
00:01:00 #2986 [verbose] > │ let v227 : int64 = │
00:01:00 #2987 [verbose] > │ match v224 with │
00:01:00 #2988 [verbose] > │ | US1_1 -> (* None *) │
00:01:00 #2989 [verbose] > │ 0L │
00:01:00 #2990 [verbose] > │ | US1_0(v225) -> (* Some *) │
00:01:00 #2991 [verbose] > │ v225 │
00:01:00 #2992 [verbose] > │ v204.[int v207] <- v227 │
00:01:00 #2993 [verbose] > │ let v228 : uint64 = v207 + 1UL │
00:01:00 #2994 [verbose] > │ v205.l0 <- v228 │
00:01:00 #2995 [verbose] > │ () │
00:01:00 #2996 [verbose] > │ let v229 : uint64 = System.Convert.ToUInt64 v204.Length │
00:01:00 #2997 [verbose] > │ let v230 : UH6 = UH6_0 │
00:01:00 #2998 [verbose] > │ let v231 : Mut3 = {l0 = 0UL; l1 = v230; l2 = 0} : Mut3 │
00:01:00 #2999 [verbose] > │ while method29(v229, v231) do │
00:01:00 #3000 [verbose] > │ let v233 : uint64 = v231.l0 │
00:01:00 #3001 [verbose] > │ let struct (v234 : UH6, v235 : int32) = v231.l1, v231.l2 │
00:01:00 #3002 [verbose] > │ let v236 : int64 = v204.[int v233] │
00:01:00 #3003 [verbose] > │ let v237 : int32 = v235 + 1 │
00:01:00 #3004 [verbose] > │ let v238 : uint64 = v233 + 1UL │
00:01:00 #3005 [verbose] > │ let v239 : UH6 = UH6_1(v235, v236, v234) │
00:01:00 #3006 [verbose] > │ v231.l0 <- v238 │
00:01:00 #3007 [verbose] > │ v231.l1 <- v239 │
00:01:00 #3008 [verbose] > │ v231.l2 <- v237 │
00:01:00 #3009 [verbose] > │ () │
00:01:00 #3010 [verbose] > │ let struct (v240 : UH6, v241 : int32) = v231.l1, v231.l2 │
00:01:00 #3011 [verbose] > │ let v242 : UH6 = UH6_0 │
00:01:00 #3012 [verbose] > │ let v243 : UH6 = method30(v240, v242) │
00:01:00 #3013 [verbose] > │ let v244 : (struct (int32 * int64) []) = method31(v243) │
00:01:00 #3014 [verbose] > │ let v245 : Map<int32, int64> = v244 |> Array.map (fun (struct (a, b)) -> │
00:01:00 #3015 [verbose] > │ a, b) |> Map.ofArray │
00:01:00 #3016 [verbose] > │ let v246 : (struct ((string []) * US0) []) = Array.zeroCreate<struct │
00:01:00 #3017 [verbose] > │ ((string []) * US0)> (System.Convert.ToInt32(v192)) │
00:01:00 #3018 [verbose] > │ let v247 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #3019 [verbose] > │ while method4(v192, v247) do │
00:01:00 #3020 [verbose] > │ let v249 : uint64 = v247.l0 │
00:01:00 #3021 [verbose] > │ let struct (v250 : UH2, v251 : US0) = v179.[int v249] │
00:01:00 #3022 [verbose] > │ let v252 : UH7 = UH7_0 │
00:01:00 #3023 [verbose] > │ let v253 : int32 = 0 │
00:01:00 #3024 [verbose] > │ let struct (v254 : UH7, v255 : int32) = method34(v250, v252, v253) │
00:01:00 #3025 [verbose] > │ let v256 : UH7 = UH7_0 │
00:01:00 #3026 [verbose] > │ let v257 : UH7 = method35(v254, v256) │
00:01:00 #3027 [verbose] > │ let v258 : UH2 = UH2_0 │
00:01:00 #3028 [verbose] > │ let v259 : UH2 = method36(v245, v257, v258) │
00:01:00 #3029 [verbose] > │ let v260 : (string []) = method9(v259) │
00:01:00 #3030 [verbose] > │ v246.[int v249] <- struct (v260, v251) │
00:01:00 #3031 [verbose] > │ let v261 : uint64 = v249 + 1UL │
00:01:00 #3032 [verbose] > │ v247.l0 <- v261 │
00:01:00 #3033 [verbose] > │ () │
00:01:00 #3034 [verbose] > │ System.Console.WriteLine v2 │
00:01:00 #3035 [verbose] > │ let v262 : uint64 = System.Convert.ToUInt64 v246.Length │
00:01:00 #3036 [verbose] > │ let v263 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #3037 [verbose] > │ while method4(v262, v263) do │
00:01:00 #3038 [verbose] > │ let v265 : uint64 = v263.l0 │
00:01:00 #3039 [verbose] > │ let struct (v266 : (string []), v267 : US0) = v246.[int v265] │
00:01:00 #3040 [verbose] > │ match v267 with │
00:01:00 #3041 [verbose] > │ | US0_1 -> (* None *) │
00:01:00 #3042 [verbose] > │ let v270 : unit option = None │
00:01:00 #3043 [verbose] > │ let mutable _v270 = v270 │
00:01:00 #3044 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #3045 [verbose] > │ () │
00:01:00 #3046 [verbose] > │ #endif │
00:01:00 #3047 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #3048 [verbose] > │ () │
00:01:00 #3049 [verbose] > │ #endif │
00:01:00 #3050 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #3051 [verbose] > │ () │
00:01:00 #3052 [verbose] > │ #endif │
00:01:00 #3053 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #3054 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #3055 [verbose] > │ System.Console.ResetColor () │
00:01:00 #3056 [verbose] > │ () │
00:01:00 #3057 [verbose] > │ #endif │
00:01:00 #3058 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #3059 [verbose] > │ () │
00:01:00 #3060 [verbose] > │ #endif │
00:01:00 #3061 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:00 #3062 [verbose] > │ FABLE_COMPILER_DART │
00:01:00 #3063 [verbose] > │ Unchecked.defaultof<unit> │
00:01:00 #3064 [verbose] > │ () │
00:01:00 #3065 [verbose] > │ #endif │
00:01:00 #3066 [verbose] > │ |> fun x -> _v270 <- Some x │
00:01:00 #3067 [verbose] > │ _v270.Value │
00:01:00 #3068 [verbose] > │ () │
00:01:00 #3069 [verbose] > │ | US0_0(v268) -> (* Some *) │
00:01:00 #3070 [verbose] > │ let v269 : unit option = None │
00:01:00 #3071 [verbose] > │ let mutable _v269 = v269 │
00:01:00 #3072 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #3073 [verbose] > │ () │
00:01:00 #3074 [verbose] > │ #endif │
00:01:00 #3075 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #3076 [verbose] > │ () │
00:01:00 #3077 [verbose] > │ #endif │
00:01:00 #3078 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #3079 [verbose] > │ () │
00:01:00 #3080 [verbose] > │ #endif │
00:01:00 #3081 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #3082 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #3083 [verbose] > │ System.Console.ForegroundColor <- v268 │
00:01:00 #3084 [verbose] > │ () │
00:01:00 #3085 [verbose] > │ #endif │
00:01:00 #3086 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #3087 [verbose] > │ () │
00:01:00 #3088 [verbose] > │ #endif │
00:01:00 #3089 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:00 #3090 [verbose] > │ FABLE_COMPILER_DART │
00:01:00 #3091 [verbose] > │ Unchecked.defaultof<unit> │
00:01:00 #3092 [verbose] > │ () │
00:01:00 #3093 [verbose] > │ #endif │
00:01:00 #3094 [verbose] > │ |> fun x -> _v269 <- Some x │
00:01:00 #3095 [verbose] > │ _v269.Value │
00:01:00 #3096 [verbose] > │ () │
00:01:00 #3097 [verbose] > │ let v271 : string = "\t| " │
00:01:00 #3098 [verbose] > │ let v272 : string = System.String.Join (v271, v266) │
00:01:00 #3099 [verbose] > │ System.Console.WriteLine v272 │
00:01:00 #3100 [verbose] > │ let v273 : unit option = None │
00:01:00 #3101 [verbose] > │ let mutable _v273 = v273 │
00:01:00 #3102 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:00 #3103 [verbose] > │ () │
00:01:00 #3104 [verbose] > │ #endif │
00:01:00 #3105 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:00 #3106 [verbose] > │ () │
00:01:00 #3107 [verbose] > │ #endif │
00:01:00 #3108 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:00 #3109 [verbose] > │ () │
00:01:00 #3110 [verbose] > │ #endif │
00:01:00 #3111 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:00 #3112 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:00 #3113 [verbose] > │ System.Console.ResetColor () │
00:01:00 #3114 [verbose] > │ () │
00:01:00 #3115 [verbose] > │ #endif │
00:01:00 #3116 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:00 #3117 [verbose] > │ () │
00:01:00 #3118 [verbose] > │ #endif │
00:01:00 #3119 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:00 #3120 [verbose] > │ FABLE_COMPILER_DART │
00:01:00 #3121 [verbose] > │ Unchecked.defaultof<unit> │
00:01:00 #3122 [verbose] > │ () │
00:01:00 #3123 [verbose] > │ #endif │
00:01:00 #3124 [verbose] > │ |> fun x -> _v273 <- Some x │
00:01:00 #3125 [verbose] > │ _v273.Value │
00:01:00 #3126 [verbose] > │ let v274 : uint64 = v265 + 1UL │
00:01:00 #3127 [verbose] > │ v263.l0 <- v274 │
00:01:00 #3128 [verbose] > │ () │
00:01:00 #3129 [verbose] > │ let v275 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:00 #3130 [verbose] > │ (System.Convert.ToInt32(v102)) │
00:01:00 #3131 [verbose] > │ let v276 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #3132 [verbose] > │ while method4(v102, v276) do │
00:01:00 #3133 [verbose] > │ let v278 : uint64 = v276.l0 │
00:01:00 #3134 [verbose] > │ let struct (v279 : string, v280 : string, v281 : string, v282 : │
00:01:00 #3135 [verbose] > │ (int64 [])) = v24.[int v278] │
00:01:00 #3136 [verbose] > │ let v283 : (int64 -> float) = float │
00:01:00 #3137 [verbose] > │ let v284 : uint64 = System.Convert.ToUInt64 v282.Length │
00:01:00 #3138 [verbose] > │ let v285 : (float []) = Array.zeroCreate<float> │
00:01:00 #3139 [verbose] > │ (System.Convert.ToInt32(v284)) │
00:01:00 #3140 [verbose] > │ let v286 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #3141 [verbose] > │ while method4(v284, v286) do │
00:01:00 #3142 [verbose] > │ let v288 : uint64 = v286.l0 │
00:01:00 #3143 [verbose] > │ let v289 : int64 = v282.[int v288] │
00:01:00 #3144 [verbose] > │ let v290 : float = v283 v289 │
00:01:00 #3145 [verbose] > │ v285.[int v288] <- v290 │
00:01:00 #3146 [verbose] > │ let v291 : uint64 = v288 + 1UL │
00:01:00 #3147 [verbose] > │ v286.l0 <- v291 │
00:01:00 #3148 [verbose] > │ () │
00:01:00 #3149 [verbose] > │ v275.[int v278] <- v285 │
00:01:00 #3150 [verbose] > │ let v292 : uint64 = v278 + 1UL │
00:01:00 #3151 [verbose] > │ v276.l0 <- v292 │
00:01:00 #3152 [verbose] > │ () │
00:01:00 #3153 [verbose] > │ let v293 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:00 #3154 [verbose] > │ let v294 : ((float []) []) = v293 v275 │
00:01:00 #3155 [verbose] > │ let v295 : uint64 = System.Convert.ToUInt64 v294.Length │
00:01:00 #3156 [verbose] > │ let v296 : (float []) = Array.zeroCreate<float> │
00:01:00 #3157 [verbose] > │ (System.Convert.ToInt32(v295)) │
00:01:00 #3158 [verbose] > │ let v297 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #3159 [verbose] > │ while method4(v295, v297) do │
00:01:00 #3160 [verbose] > │ let v299 : uint64 = v297.l0 │
00:01:00 #3161 [verbose] > │ let v300 : (float []) = v294.[int v299] │
00:01:00 #3162 [verbose] > │ let v301 : ((float []) -> float) = Array.average │
00:01:00 #3163 [verbose] > │ let v302 : float = v301 v300 │
00:01:00 #3164 [verbose] > │ v296.[int v299] <- v302 │
00:01:00 #3165 [verbose] > │ let v303 : uint64 = v299 + 1UL │
00:01:00 #3166 [verbose] > │ v297.l0 <- v303 │
00:01:00 #3167 [verbose] > │ () │
00:01:00 #3168 [verbose] > │ let v304 : (float -> int64) = int64 │
00:01:00 #3169 [verbose] > │ let v305 : uint64 = System.Convert.ToUInt64 v296.Length │
00:01:00 #3170 [verbose] > │ let v306 : (int64 []) = Array.zeroCreate<int64> │
00:01:00 #3171 [verbose] > │ (System.Convert.ToInt32(v305)) │
00:01:00 #3172 [verbose] > │ let v307 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #3173 [verbose] > │ while method4(v305, v307) do │
00:01:00 #3174 [verbose] > │ let v309 : uint64 = v307.l0 │
00:01:00 #3175 [verbose] > │ let v310 : float = v296.[int v309] │
00:01:00 #3176 [verbose] > │ let v311 : int64 = v304 v310 │
00:01:00 #3177 [verbose] > │ v306.[int v309] <- v311 │
00:01:00 #3178 [verbose] > │ let v312 : uint64 = v309 + 1UL │
00:01:00 #3179 [verbose] > │ v307.l0 <- v312 │
00:01:00 #3180 [verbose] > │ () │
00:01:00 #3181 [verbose] > │ let v313 : uint64 = System.Convert.ToUInt64 v306.Length │
00:01:00 #3182 [verbose] > │ let v314 : UH6 = UH6_0 │
00:01:00 #3183 [verbose] > │ let v315 : Mut3 = {l0 = 0UL; l1 = v314; l2 = 0} : Mut3 │
00:01:00 #3184 [verbose] > │ while method29(v313, v315) do │
00:01:00 #3185 [verbose] > │ let v317 : uint64 = v315.l0 │
00:01:00 #3186 [verbose] > │ let struct (v318 : UH6, v319 : int32) = v315.l1, v315.l2 │
00:01:00 #3187 [verbose] > │ let v320 : int64 = v306.[int v317] │
00:01:00 #3188 [verbose] > │ let v321 : int32 = v319 + 1 │
00:01:00 #3189 [verbose] > │ let v322 : uint64 = v317 + 1UL │
00:01:00 #3190 [verbose] > │ let v323 : UH6 = UH6_1(v319, v320, v318) │
00:01:00 #3191 [verbose] > │ v315.l0 <- v322 │
00:01:00 #3192 [verbose] > │ v315.l1 <- v323 │
00:01:00 #3193 [verbose] > │ v315.l2 <- v321 │
00:01:00 #3194 [verbose] > │ () │
00:01:00 #3195 [verbose] > │ let struct (v324 : UH6, v325 : int32) = v315.l1, v315.l2 │
00:01:00 #3196 [verbose] > │ let v326 : UH6 = UH6_0 │
00:01:00 #3197 [verbose] > │ let v327 : UH6 = method30(v324, v326) │
00:01:00 #3198 [verbose] > │ let v328 : (struct (int32 * int64) []) = method37(v327) │
00:01:00 #3199 [verbose] > │ System.Console.WriteLine v2 │
00:01:00 #3200 [verbose] > │ let v329 : string = "Average Ranking " │
00:01:00 #3201 [verbose] > │ System.Console.WriteLine v329 │
00:01:00 #3202 [verbose] > │ let v330 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:00 #3203 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:00 #3204 [verbose] > │ let v331 : (struct (int32 * int64) -> int64) = closure6() │
00:01:00 #3205 [verbose] > │ let v332 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:00 #3206 [verbose] > │ = v330 v331 │
00:01:00 #3207 [verbose] > │ let v333 : (struct (int32 * int64) []) = v332 v328 │
00:01:00 #3208 [verbose] > │ let v334 : uint64 = System.Convert.ToUInt64 v333.Length │
00:01:00 #3209 [verbose] > │ let v335 : Mut0 = {l0 = 0UL} : Mut0 │
00:01:00 #3210 [verbose] > │ while method4(v334, v335) do │
00:01:00 #3211 [verbose] > │ let v337 : uint64 = v335.l0 │
00:01:00 #3212 [verbose] > │ let struct (v338 : int32, v339 : int64) = v333.[int v337] │
00:01:00 #3213 [verbose] > │ let v340 : string = $"Test case %d{v338 + 1}. Average Time: %A{v339} │
00:01:00 #3214 [verbose] > │ " │
00:01:00 #3215 [verbose] > │ System.Console.WriteLine v340 │
00:01:00 #3216 [verbose] > │ let v341 : uint64 = v337 + 1UL │
00:01:00 #3217 [verbose] > │ v335.l0 <- v341 │
00:01:00 #3218 [verbose] > │ () │
00:01:00 #3219 [verbose] > │ () │
00:01:00 #3220 [verbose] > │ method0() │
00:01:00 #3221 [verbose] > │ │
00:01:00 #3222 [verbose] > │ │
00:01:00 #3223 [verbose] > │ │
00:01:00 #3224 [verbose] > │ Test: v0 │
00:01:00 #3225 [verbose] > │ │
00:01:00 #3226 [verbose] > │ Solution: "abc" │
00:01:00 #3227 [verbose] > │ Test case 1. F. Time: 1134 │
00:01:00 #3228 [verbose] > │ Test case 2. FA. Time: 1501 │
00:01:00 #3229 [verbose] > │ │
00:01:00 #3230 [verbose] > │ Solution: "abcde" │
00:01:00 #3231 [verbose] > │ Test case 1. F. Time: 1540 │
00:01:00 #3232 [verbose] > │ Test case 2. FA. Time: 1284 │
00:01:00 #3233 [verbose] > │ │
00:01:00 #3234 [verbose] > │ Solution: "abcdefghi" │
00:01:00 #3235 [verbose] > │ Test case 1. F. Time: 1984 │
00:01:00 #3236 [verbose] > │ Test case 2. FA. Time: 2321 │
00:01:00 #3237 [verbose] > │ │
00:01:00 #3238 [verbose] > │ Solution: "abab" │
00:01:00 #3239 [verbose] > │ Test case 1. F. Time: 1290 │
00:01:00 #3240 [verbose] > │ Test case 2. FA. Time: 1130 │
00:01:00 #3241 [verbose] > │ │
00:01:00 #3242 [verbose] > │ Solution: "aa" │
00:01:00 #3243 [verbose] > │ Test case 1. F. Time: 830 │
00:01:00 #3244 [verbose] > │ Test case 2. FA. Time: 856 │
00:01:00 #3245 [verbose] > │ │
00:01:00 #3246 [verbose] > │ Solution: "z" │
00:01:00 #3247 [verbose] > │ Test case 1. F. Time: 351 │
00:01:00 #3248 [verbose] > │ Test case 2. FA. Time: 200 │
00:01:00 #3249 [verbose] > │ │
00:01:00 #3250 [verbose] > │ Input | Expected │
00:01:00 #3251 [verbose] > │ │
00:01:00 #3252 [verbose] > │ | Result │
00:01:00 #3253 [verbose] > │ │
00:01:00 #3254 [verbose] > │ | Best │
00:01:00 #3255 [verbose] > │ --- | --- │
00:01:00 #3256 [verbose] > │ │
00:01:00 #3257 [verbose] > │ | --- │
00:01:00 #3258 [verbose] > │ │
00:01:00 #3259 [verbose] > │ | --- │
00:01:00 #3260 [verbose] > │ "abc" | "bca cab abc" │
00:01:00 #3261 [verbose] > │ │
00:01:00 #3262 [verbose] > │ | "bca cab abc" │
00:01:00 #3263 [verbose] > │ │
00:01:00 #3264 [verbose] > │ | struct (1L, 1134L) │
00:01:00 #3265 [verbose] > │ "abcde" | "bcdea cdeab deabc eabcd abcde" │
00:01:00 #3266 [verbose] > │ | "bcdea cdeab deabc eabcd abcde" │
00:01:00 #3267 [verbose] > │ | struct (2L, 1284L) │
00:01:00 #3268 [verbose] > │ "abcdefghi" | "bcdefghia cdefghiab defghiabc efghiabcd fghiabcde ghiabcdef │
00:01:00 #3269 [verbose] > │ hiabcdefg iabcdefgh abcdefghi" | "bcdefghia cdefghiab defghiabc efghiabcd │
00:01:00 #3270 [verbose] > │ fghiabcde ghiabcdef hiabcdefg iabcdefgh abcdefghi" | struct (1L, 1984L) │
00:01:00 #3271 [verbose] > │ "abab" | "baba abab baba abab" │
00:01:00 #3272 [verbose] > │ | "baba abab baba abab" │
00:01:00 #3273 [verbose] > │ | struct (2L, 1130L) │
00:01:00 #3274 [verbose] > │ "aa" | "aa aa" │
00:01:00 #3275 [verbose] > │ │
00:01:00 #3276 [verbose] > │ | "aa aa" │
00:01:00 #3277 [verbose] > │ │
00:01:00 #3278 [verbose] > │ | struct (1L, 830L) │
00:01:00 #3279 [verbose] > │ "z" | "z" │
00:01:00 #3280 [verbose] > │ │
00:01:00 #3281 [verbose] > │ | "z" │
00:01:00 #3282 [verbose] > │ │
00:01:00 #3283 [verbose] > │ | struct (2L, 200L) │
00:01:00 #3284 [verbose] > │ │
00:01:00 #3285 [verbose] > │ Average Ranking │
00:01:00 #3286 [verbose] > │ Test case 1. Average Time: 1188L │
00:01:00 #3287 [verbose] > │ Test case 2. Average Time: 1215L │
00:01:00 #3288 [verbose] > │ │
00:01:00 #3289 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:00 #3290 [verbose] >
00:01:00 #3291 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:00 #3292 [verbose] > // // test
00:01:00 #3293 [verbose] > // // rust=
00:01:00 #3294 [verbose] > // // print_code=false
00:01:00 #3295 [verbose] >
00:01:00 #3296 [verbose] > // rotate_strings_tests ()
00:01:01 #3297 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\2baedc80fd0ccb38f314423ad51257774a895780bb4bcc5a04a1b9d6e1c38a8f\main.spi
00:01:01 #3298 [verbose] >
00:01:01 #3299 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:01 #3300 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:01 #3301 [verbose] > │ ## binary_search_tests │
00:01:01 #3302 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:01 #3303 [verbose] >
00:01:01 #3304 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:01 #3305 [verbose] > // // test
00:01:01 #3306 [verbose] > // // timeout=90000
00:01:01 #3307 [verbose] > // // print_code=true
00:01:01 #3308 [verbose] >
00:01:01 #3309 [verbose] > inl binary_search_semi_open_1 arr target left right =
00:01:01 #3310 [verbose] > inl rec body left right =
00:01:01 #3311 [verbose] > if left >= right
00:01:01 #3312 [verbose] > then None
00:01:01 #3313 [verbose] > else
00:01:01 #3314 [verbose] > inl mid = (left + right) / 2
00:01:01 #3315 [verbose] > inl item = index arr mid
00:01:01 #3316 [verbose] > if item = target
00:01:01 #3317 [verbose] > then Some mid
00:01:01 #3318 [verbose] > elif item < target
00:01:01 #3319 [verbose] > then loop (mid + 1) right
00:01:01 #3320 [verbose] > else loop left mid
00:01:01 #3321 [verbose] > and inl loop left right =
00:01:01 #3322 [verbose] > if var_is right |> not
00:01:01 #3323 [verbose] > then body left right
00:01:01 #3324 [verbose] > else
00:01:01 #3325 [verbose] > inl left = dyn left
00:01:01 #3326 [verbose] > join body left right
00:01:01 #3327 [verbose] > loop left right
00:01:01 #3328 [verbose] >
00:01:01 #3329 [verbose] > inl binary_search_closed_1 arr target left right =
00:01:01 #3330 [verbose] > inl rec body left right =
00:01:01 #3331 [verbose] > if left > right
00:01:01 #3332 [verbose] > then None
00:01:01 #3333 [verbose] > else
00:01:01 #3334 [verbose] > inl mid = (left + right) / 2
00:01:01 #3335 [verbose] > inl item = index arr mid
00:01:01 #3336 [verbose] > if item = target
00:01:01 #3337 [verbose] > then Some mid
00:01:01 #3338 [verbose] > elif item < target
00:01:01 #3339 [verbose] > then loop (mid + 1) right
00:01:01 #3340 [verbose] > else loop left (mid - 1)
00:01:01 #3341 [verbose] > and inl loop left right =
00:01:01 #3342 [verbose] > if var_is right |> not
00:01:01 #3343 [verbose] > then body left right
00:01:01 #3344 [verbose] > else
00:01:01 #3345 [verbose] > inl left = dyn left
00:01:01 #3346 [verbose] > join body left right
00:01:01 #3347 [verbose] > loop left right
00:01:01 #3348 [verbose] >
00:01:01 #3349 [verbose] > inl binary_search_semi_open_2 arr target left right =
00:01:01 #3350 [verbose] > let rec body left right =
00:01:01 #3351 [verbose] > if left >= right
00:01:01 #3352 [verbose] > then None
00:01:01 #3353 [verbose] > else
00:01:01 #3354 [verbose] > inl mid = (left + right) / 2
00:01:01 #3355 [verbose] > inl item = index arr mid
00:01:01 #3356 [verbose] > if item = target
00:01:01 #3357 [verbose] > then Some mid
00:01:01 #3358 [verbose] > elif item < target
00:01:01 #3359 [verbose] > then loop (mid + 1) right
00:01:01 #3360 [verbose] > else loop left mid
00:01:01 #3361 [verbose] > and inl loop left right = body left right
00:01:01 #3362 [verbose] > loop left right
00:01:01 #3363 [verbose] >
00:01:01 #3364 [verbose] > inl binary_search_closed_2 arr target left right =
00:01:01 #3365 [verbose] > let rec body left right =
00:01:01 #3366 [verbose] > if left > right
00:01:01 #3367 [verbose] > then None
00:01:01 #3368 [verbose] > else
00:01:01 #3369 [verbose] > inl mid = (left + right) / 2
00:01:01 #3370 [verbose] > inl item = index arr mid
00:01:01 #3371 [verbose] > if item = target
00:01:01 #3372 [verbose] > then Some mid
00:01:01 #3373 [verbose] > elif item < target
00:01:01 #3374 [verbose] > then loop (mid + 1) right
00:01:01 #3375 [verbose] > else loop left (mid - 1)
00:01:01 #3376 [verbose] > and inl loop left right = body left right
00:01:01 #3377 [verbose] > loop left right
00:01:01 #3378 [verbose] >
00:01:01 #3379 [verbose] > inl get_solutions () =
00:01:01 #3380 [verbose] > [[
00:01:01 #3381 [verbose] > "semi_open_1",
00:01:01 #3382 [verbose] > fun (arr, (target, len)) =>
00:01:01 #3383 [verbose] > binary_search_semi_open_1 arr target 0 len
00:01:01 #3384 [verbose] >
00:01:01 #3385 [verbose] > "closed_1",
00:01:01 #3386 [verbose] > fun (arr, (target, len)) =>
00:01:01 #3387 [verbose] > binary_search_closed_1 arr target 0 (len - 1)
00:01:01 #3388 [verbose] >
00:01:01 #3389 [verbose] > "semi_open_2",
00:01:01 #3390 [verbose] > fun (arr, (target, len)) =>
00:01:01 #3391 [verbose] > binary_search_semi_open_2 arr target 0 len
00:01:01 #3392 [verbose] >
00:01:01 #3393 [verbose] > "closed_2",
00:01:01 #3394 [verbose] > fun (arr, (target, len)) =>
00:01:01 #3395 [verbose] > binary_search_closed_2 arr target 0 (len - 1)
00:01:01 #3396 [verbose] > ]]
00:01:01 #3397 [verbose] >
00:01:01 #3398 [verbose] > inl rec binary_search_tests () =
00:01:01 #3399 [verbose] > inl arr_with_len target len arr =
00:01:01 #3400 [verbose] > arr, (target, (len |> optionm'.default_with fun () => length arr))
00:01:01 #3401 [verbose] >
00:01:01 #3402 [verbose] > inl test_cases = [[
00:01:01 #3403 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 6 None), (Some 3i32)
00:01:01 #3404 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 1 None), (Some 0i32)
00:01:01 #3405 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 11 None), (Some 6i32)
00:01:01 #3406 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 12 None), None
00:01:01 #3407 [verbose] > ((am'.init_series 1i32 100 1) |> arr_with_len 60 None), (Some 59)
00:01:01 #3408 [verbose] >
00:01:01 #3409 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 6 (Some 7)), (Some
00:01:01 #3410 [verbose] > 3i32)
00:01:01 #3411 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 1 (Some 7)), (Some
00:01:01 #3412 [verbose] > 0i32)
00:01:01 #3413 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 11 (Some 7)), (Some
00:01:01 #3414 [verbose] > 6i32)
00:01:01 #3415 [verbose] > (a ;[[ 1i32; 3; 4; 6; 8; 9; 11 ]] |> arr_with_len 12 (Some 7)), None
00:01:01 #3416 [verbose] > ((am'.init_series 1i32 100 1) |> arr_with_len 60 (Some 100)), (Some 59)
00:01:01 #3417 [verbose] > ]]
00:01:01 #3418 [verbose] >
00:01:01 #3419 [verbose] > inl solutions = get_solutions ()
00:01:01 #3420 [verbose] >
00:01:01 #3421 [verbose] > // inl is_fast () = true
00:01:01 #3422 [verbose] >
00:01:01 #3423 [verbose] > inl count =
00:01:01 #3424 [verbose] > if is_fast ()
00:01:01 #3425 [verbose] > then 1000i32
00:01:01 #3426 [verbose] > else 8000000i32
00:01:01 #3427 [verbose] >
00:01:01 #3428 [verbose] > run_all (nameof binary_search_tests) count solutions test_cases
00:01:01 #3429 [verbose] > |> sort_result_list
00:01:01 #3430 [verbose] >
00:01:01 #3431 [verbose] >
00:01:01 #3432 [verbose] > let main () =
00:01:01 #3433 [verbose] > binary_search_tests ()
00:01:01 #3434 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\11813c38f8e45986382057254f110b885bd9e2b5a252c3ec6b9e7106723daadd\main.spi
00:01:32 #3435 [verbose] >
00:01:32 #3436 [verbose] > ╭─[ 31.66s - stdout ]──────────────────────────────────────────────────────────╮
00:01:32 #3437 [verbose] > │ type Mut0 = {mutable l0 : int32} │
00:01:32 #3438 [verbose] > │ and [<Struct>] US0 = │
00:01:32 #3439 [verbose] > │ | US0_0 of f0_0 : int32 │
00:01:32 #3440 [verbose] > │ | US0_1 │
00:01:32 #3441 [verbose] > │ and UH0 = │
00:01:32 #3442 [verbose] > │ | UH0_0 │
00:01:32 #3443 [verbose] > │ | UH0_1 of (int32 []) * int32 * int32 * US0 * UH0 │
00:01:32 #3444 [verbose] > │ and Mut1 = {mutable l0 : uint64} │
00:01:32 #3445 [verbose] > │ and UH1 = │
00:01:32 #3446 [verbose] > │ | UH1_0 │
00:01:32 #3447 [verbose] > │ | UH1_1 of int32 * string * (struct ((int32 []) * int32 * int32) -> US0) │
00:01:32 #3448 [verbose] > │ * UH1 │
00:01:32 #3449 [verbose] > │ and UH2 = │
00:01:32 #3450 [verbose] > │ | UH2_0 │
00:01:32 #3451 [verbose] > │ | UH2_1 of string * UH2 │
00:01:32 #3452 [verbose] > │ and [<Struct>] US1 = │
00:01:32 #3453 [verbose] > │ | US1_0 of f0_0 : System.ConsoleColor │
00:01:32 #3454 [verbose] > │ | US1_1 │
00:01:32 #3455 [verbose] > │ and UH3 = │
00:01:32 #3456 [verbose] > │ | UH3_0 │
00:01:32 #3457 [verbose] > │ | UH3_1 of int64 * int64 * UH3 │
00:01:32 #3458 [verbose] > │ and Mut2 = {mutable l0 : uint64; mutable l1 : UH3; mutable l2 : int64} │
00:01:32 #3459 [verbose] > │ and UH4 = │
00:01:32 #3460 [verbose] > │ | UH4_0 │
00:01:32 #3461 [verbose] > │ | UH4_1 of UH2 * US1 * UH4 │
00:01:32 #3462 [verbose] > │ and [<Struct>] US2 = │
00:01:32 #3463 [verbose] > │ | US2_0 of f0_0 : int64 │
00:01:32 #3464 [verbose] > │ | US2_1 │
00:01:32 #3465 [verbose] > │ and UH5 = │
00:01:32 #3466 [verbose] > │ | UH5_0 │
00:01:32 #3467 [verbose] > │ | UH5_1 of int32 * int64 * UH5 │
00:01:32 #3468 [verbose] > │ and Mut3 = {mutable l0 : uint64; mutable l1 : UH5; mutable l2 : int32} │
00:01:32 #3469 [verbose] > │ and UH6 = │
00:01:32 #3470 [verbose] > │ | UH6_0 │
00:01:32 #3471 [verbose] > │ | UH6_1 of int32 * string * UH6 │
00:01:32 #3472 [verbose] > │ let rec method1 (v0 : Mut0) : bool = │
00:01:32 #3473 [verbose] > │ let v1 : int32 = v0.l0 │
00:01:32 #3474 [verbose] > │ let v2 : bool = v1 < 100 │
00:01:32 #3475 [verbose] > │ v2 │
00:01:32 #3476 [verbose] > │ and method3 (v0 : UH0, v1 : uint64) : uint64 = │
00:01:32 #3477 [verbose] > │ match v0 with │
00:01:32 #3478 [verbose] > │ | UH0_1(v2, v3, v4, v5, v6) -> (* Cons *) │
00:01:32 #3479 [verbose] > │ let v7 : uint64 = v1 + 1UL │
00:01:32 #3480 [verbose] > │ method3(v6, v7) │
00:01:32 #3481 [verbose] > │ | UH0_0 -> (* Nil *) │
00:01:32 #3482 [verbose] > │ v1 │
00:01:32 #3483 [verbose] > │ and method4 (v0 : (struct ((int32 []) * int32 * int32 * US0) []), v1 : UH0, │
00:01:32 #3484 [verbose] > │ v2 : uint64) : uint64 = │
00:01:32 #3485 [verbose] > │ match v1 with │
00:01:32 #3486 [verbose] > │ | UH0_1(v3, v4, v5, v6, v7) -> (* Cons *) │
00:01:32 #3487 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5, v6) │
00:01:32 #3488 [verbose] > │ let v8 : uint64 = v2 + 1UL │
00:01:32 #3489 [verbose] > │ method4(v0, v7, v8) │
00:01:32 #3490 [verbose] > │ | UH0_0 -> (* Nil *) │
00:01:32 #3491 [verbose] > │ v2 │
00:01:32 #3492 [verbose] > │ and method2 (v0 : UH0) : (struct ((int32 []) * int32 * int32 * US0) []) = │
00:01:32 #3493 [verbose] > │ let v1 : uint64 = 0UL │
00:01:32 #3494 [verbose] > │ let v2 : uint64 = method3(v0, v1) │
00:01:32 #3495 [verbose] > │ let v3 : (struct ((int32 []) * int32 * int32 * US0) []) = │
00:01:32 #3496 [verbose] > │ Array.zeroCreate<struct ((int32 []) * int32 * int32 * US0)> │
00:01:32 #3497 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:32 #3498 [verbose] > │ let v4 : uint64 = 0UL │
00:01:32 #3499 [verbose] > │ let v5 : uint64 = method4(v3, v0, v4) │
00:01:32 #3500 [verbose] > │ v3 │
00:01:32 #3501 [verbose] > │ and method5 (v0 : uint64, v1 : Mut1) : bool = │
00:01:32 #3502 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:32 #3503 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:32 #3504 [verbose] > │ v3 │
00:01:32 #3505 [verbose] > │ and method6 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:32 #3506 [verbose] > │ let v4 : bool = v3 >= v2 │
00:01:32 #3507 [verbose] > │ if v4 then │
00:01:32 #3508 [verbose] > │ US0_1 │
00:01:32 #3509 [verbose] > │ else │
00:01:32 #3510 [verbose] > │ let v6 : int32 = v3 + v2 │
00:01:32 #3511 [verbose] > │ let v7 : int32 = v6 / 2 │
00:01:32 #3512 [verbose] > │ let v8 : int32 = v0.[int v7] │
00:01:32 #3513 [verbose] > │ let v9 : bool = v8 = v1 │
00:01:32 #3514 [verbose] > │ if v9 then │
00:01:32 #3515 [verbose] > │ US0_0(v7) │
00:01:32 #3516 [verbose] > │ else │
00:01:32 #3517 [verbose] > │ let v11 : bool = v8 < v1 │
00:01:32 #3518 [verbose] > │ if v11 then │
00:01:32 #3519 [verbose] > │ let v12 : int32 = v7 + 1 │
00:01:32 #3520 [verbose] > │ method6(v0, v1, v2, v12) │
00:01:32 #3521 [verbose] > │ else │
00:01:32 #3522 [verbose] > │ method6(v0, v1, v7, v3) │
00:01:32 #3523 [verbose] > │ and closure1 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:32 #3524 [verbose] > │ let v3 : int32 = 0 │
00:01:32 #3525 [verbose] > │ method6(v0, v1, v2, v3) │
00:01:32 #3526 [verbose] > │ and method7 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:32 #3527 [verbose] > │ let v4 : bool = v3 > v2 │
00:01:32 #3528 [verbose] > │ if v4 then │
00:01:32 #3529 [verbose] > │ US0_1 │
00:01:32 #3530 [verbose] > │ else │
00:01:32 #3531 [verbose] > │ let v6 : int32 = v3 + v2 │
00:01:32 #3532 [verbose] > │ let v7 : int32 = v6 / 2 │
00:01:32 #3533 [verbose] > │ let v8 : int32 = v0.[int v7] │
00:01:32 #3534 [verbose] > │ let v9 : bool = v8 = v1 │
00:01:32 #3535 [verbose] > │ if v9 then │
00:01:32 #3536 [verbose] > │ US0_0(v7) │
00:01:32 #3537 [verbose] > │ else │
00:01:32 #3538 [verbose] > │ let v11 : bool = v8 < v1 │
00:01:32 #3539 [verbose] > │ if v11 then │
00:01:32 #3540 [verbose] > │ let v12 : int32 = v7 + 1 │
00:01:32 #3541 [verbose] > │ method7(v0, v1, v2, v12) │
00:01:32 #3542 [verbose] > │ else │
00:01:32 #3543 [verbose] > │ let v14 : int32 = v7 - 1 │
00:01:32 #3544 [verbose] > │ method7(v0, v1, v14, v3) │
00:01:32 #3545 [verbose] > │ and closure2 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:32 #3546 [verbose] > │ let v3 : int32 = v2 - 1 │
00:01:32 #3547 [verbose] > │ let v4 : int32 = 0 │
00:01:32 #3548 [verbose] > │ method7(v0, v1, v3, v4) │
00:01:32 #3549 [verbose] > │ and method8 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:32 #3550 [verbose] > │ let v4 : bool = v2 >= v3 │
00:01:32 #3551 [verbose] > │ if v4 then │
00:01:32 #3552 [verbose] > │ US0_1 │
00:01:32 #3553 [verbose] > │ else │
00:01:32 #3554 [verbose] > │ let v6 : int32 = v2 + v3 │
00:01:32 #3555 [verbose] > │ let v7 : int32 = v6 / 2 │
00:01:32 #3556 [verbose] > │ let v8 : int32 = v0.[int v7] │
00:01:32 #3557 [verbose] > │ let v9 : bool = v8 = v1 │
00:01:32 #3558 [verbose] > │ if v9 then │
00:01:32 #3559 [verbose] > │ US0_0(v7) │
00:01:32 #3560 [verbose] > │ else │
00:01:32 #3561 [verbose] > │ let v11 : bool = v8 < v1 │
00:01:32 #3562 [verbose] > │ if v11 then │
00:01:32 #3563 [verbose] > │ let v12 : int32 = v7 + 1 │
00:01:32 #3564 [verbose] > │ method8(v0, v1, v12, v3) │
00:01:32 #3565 [verbose] > │ else │
00:01:32 #3566 [verbose] > │ method8(v0, v1, v2, v7) │
00:01:32 #3567 [verbose] > │ and closure3 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:32 #3568 [verbose] > │ let v3 : int32 = 0 │
00:01:32 #3569 [verbose] > │ method8(v0, v1, v3, v2) │
00:01:32 #3570 [verbose] > │ and method9 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : int32) : US0 = │
00:01:32 #3571 [verbose] > │ let v4 : bool = v2 > v3 │
00:01:32 #3572 [verbose] > │ if v4 then │
00:01:32 #3573 [verbose] > │ US0_1 │
00:01:32 #3574 [verbose] > │ else │
00:01:32 #3575 [verbose] > │ let v6 : int32 = v2 + v3 │
00:01:32 #3576 [verbose] > │ let v7 : int32 = v6 / 2 │
00:01:32 #3577 [verbose] > │ let v8 : int32 = v0.[int v7] │
00:01:32 #3578 [verbose] > │ let v9 : bool = v8 = v1 │
00:01:32 #3579 [verbose] > │ if v9 then │
00:01:32 #3580 [verbose] > │ US0_0(v7) │
00:01:32 #3581 [verbose] > │ else │
00:01:32 #3582 [verbose] > │ let v11 : bool = v8 < v1 │
00:01:32 #3583 [verbose] > │ if v11 then │
00:01:32 #3584 [verbose] > │ let v12 : int32 = v7 + 1 │
00:01:32 #3585 [verbose] > │ method9(v0, v1, v12, v3) │
00:01:32 #3586 [verbose] > │ else │
00:01:32 #3587 [verbose] > │ let v14 : int32 = v7 - 1 │
00:01:32 #3588 [verbose] > │ method9(v0, v1, v2, v14) │
00:01:32 #3589 [verbose] > │ and closure4 () struct (v0 : (int32 []), v1 : int32, v2 : int32) : US0 = │
00:01:32 #3590 [verbose] > │ let v3 : int32 = v2 - 1 │
00:01:32 #3591 [verbose] > │ let v4 : int32 = 0 │
00:01:32 #3592 [verbose] > │ method9(v0, v1, v4, v3) │
00:01:32 #3593 [verbose] > │ and method11 (v0 : UH1, v1 : uint64) : uint64 = │
00:01:32 #3594 [verbose] > │ match v0 with │
00:01:32 #3595 [verbose] > │ | UH1_1(v2, v3, v4, v5) -> (* Cons *) │
00:01:32 #3596 [verbose] > │ let v6 : uint64 = v1 + 1UL │
00:01:32 #3597 [verbose] > │ method11(v5, v6) │
00:01:32 #3598 [verbose] > │ | UH1_0 -> (* Nil *) │
00:01:32 #3599 [verbose] > │ v1 │
00:01:32 #3600 [verbose] > │ and method12 (v0 : (struct (int32 * string * (struct ((int32 []) * int32 * │
00:01:32 #3601 [verbose] > │ int32) -> US0)) []), v1 : UH1, v2 : uint64) : uint64 = │
00:01:32 #3602 [verbose] > │ match v1 with │
00:01:32 #3603 [verbose] > │ | UH1_1(v3, v4, v5, v6) -> (* Cons *) │
00:01:32 #3604 [verbose] > │ v0.[int v2] <- struct (v3, v4, v5) │
00:01:32 #3605 [verbose] > │ let v7 : uint64 = v2 + 1UL │
00:01:32 #3606 [verbose] > │ method12(v0, v6, v7) │
00:01:32 #3607 [verbose] > │ | UH1_0 -> (* Nil *) │
00:01:32 #3608 [verbose] > │ v2 │
00:01:32 #3609 [verbose] > │ and method10 (v0 : UH1) : (struct (int32 * string * (struct ((int32 []) * │
00:01:32 #3610 [verbose] > │ int32 * int32) -> US0)) []) = │
00:01:32 #3611 [verbose] > │ let v1 : uint64 = 0UL │
00:01:32 #3612 [verbose] > │ let v2 : uint64 = method11(v0, v1) │
00:01:32 #3613 [verbose] > │ let v3 : (struct (int32 * string * (struct ((int32 []) * int32 * int32) │
00:01:32 #3614 [verbose] > │ -> US0)) []) = Array.zeroCreate<struct (int32 * string * (struct ((int32 []) │
00:01:32 #3615 [verbose] > │ * int32 * int32) -> US0))> (System.Convert.ToInt32(v2)) │
00:01:32 #3616 [verbose] > │ let v4 : uint64 = 0UL │
00:01:32 #3617 [verbose] > │ let v5 : uint64 = method12(v3, v0, v4) │
00:01:32 #3618 [verbose] > │ v3 │
00:01:32 #3619 [verbose] > │ and method13 (v0 : Mut0) : bool = │
00:01:32 #3620 [verbose] > │ let v1 : int32 = v0.l0 │
00:01:32 #3621 [verbose] > │ let v2 : bool = v1 < 8000001 │
00:01:32 #3622 [verbose] > │ v2 │
00:01:32 #3623 [verbose] > │ and closure5 (v0 : (int32 []), v1 : int32, v2 : int32, v3 : (struct ((int32 │
00:01:32 #3624 [verbose] > │ []) * int32 * int32) -> US0)) (v4 : int32) : US0 = │
00:01:32 #3625 [verbose] > │ v3 struct (v0, v1, v2) │
00:01:32 #3626 [verbose] > │ and method14 (v0 : US0, v1 : (US0 []), v2 : uint64) : bool = │
00:01:32 #3627 [verbose] > │ let v3 : uint64 = System.Convert.ToUInt64 v1.Length │
00:01:32 #3628 [verbose] > │ let v4 : bool = v2 < v3 │
00:01:32 #3629 [verbose] > │ if v4 then │
00:01:32 #3630 [verbose] > │ let v5 : US0 = v1.[int v2] │
00:01:32 #3631 [verbose] > │ let v9 : bool = │
00:01:32 #3632 [verbose] > │ match v0, v5 with │
00:01:32 #3633 [verbose] > │ | US0_1, US0_1 -> (* None *) │
00:01:32 #3634 [verbose] > │ true │
00:01:32 #3635 [verbose] > │ | US0_0(v6), US0_0(v7) -> (* Some *) │
00:01:32 #3636 [verbose] > │ let v8 : bool = v6 = v7 │
00:01:32 #3637 [verbose] > │ v8 │
00:01:32 #3638 [verbose] > │ | _ -> │
00:01:32 #3639 [verbose] > │ false │
00:01:32 #3640 [verbose] > │ if v9 then │
00:01:32 #3641 [verbose] > │ let v10 : uint64 = v2 + 1UL │
00:01:32 #3642 [verbose] > │ method14(v0, v1, v10) │
00:01:32 #3643 [verbose] > │ else │
00:01:32 #3644 [verbose] > │ false │
00:01:32 #3645 [verbose] > │ else │
00:01:32 #3646 [verbose] > │ true │
00:01:32 #3647 [verbose] > │ and method15 (v0 : uint64, v1 : Mut2) : bool = │
00:01:32 #3648 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:32 #3649 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:32 #3650 [verbose] > │ v3 │
00:01:32 #3651 [verbose] > │ and method16 (v0 : UH3, v1 : UH3) : UH3 = │
00:01:32 #3652 [verbose] > │ match v0 with │
00:01:32 #3653 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:01:32 #3654 [verbose] > │ let v5 : UH3 = UH3_1(v2, v3, v1) │
00:01:32 #3655 [verbose] > │ method16(v4, v5) │
00:01:32 #3656 [verbose] > │ | UH3_0 -> (* Nil *) │
00:01:32 #3657 [verbose] > │ v1 │
00:01:32 #3658 [verbose] > │ and method18 (v0 : UH3, v1 : int32) : int32 = │
00:01:32 #3659 [verbose] > │ match v0 with │
00:01:32 #3660 [verbose] > │ | UH3_1(v2, v3, v4) -> (* Cons *) │
00:01:32 #3661 [verbose] > │ let v5 : int32 = v1 + 1 │
00:01:32 #3662 [verbose] > │ method18(v4, v5) │
00:01:32 #3663 [verbose] > │ | UH3_0 -> (* Nil *) │
00:01:32 #3664 [verbose] > │ v1 │
00:01:32 #3665 [verbose] > │ and method19 (v0 : (struct (int64 * int64) []), v1 : UH3, v2 : int32) : │
00:01:32 #3666 [verbose] > │ int32 = │
00:01:32 #3667 [verbose] > │ match v1 with │
00:01:32 #3668 [verbose] > │ | UH3_1(v3, v4, v5) -> (* Cons *) │
00:01:32 #3669 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:32 #3670 [verbose] > │ let v6 : int32 = v2 + 1 │
00:01:32 #3671 [verbose] > │ method19(v0, v5, v6) │
00:01:32 #3672 [verbose] > │ | UH3_0 -> (* Nil *) │
00:01:32 #3673 [verbose] > │ v2 │
00:01:32 #3674 [verbose] > │ and method17 (v0 : UH3) : (struct (int64 * int64) []) = │
00:01:32 #3675 [verbose] > │ let v1 : int32 = 0 │
00:01:32 #3676 [verbose] > │ let v2 : int32 = method18(v0, v1) │
00:01:32 #3677 [verbose] > │ let v3 : (struct (int64 * int64) []) = Array.zeroCreate<struct (int64 * │
00:01:32 #3678 [verbose] > │ int64)> (v2) │
00:01:32 #3679 [verbose] > │ let v4 : int32 = 0 │
00:01:32 #3680 [verbose] > │ let v5 : int32 = method19(v3, v0, v4) │
00:01:32 #3681 [verbose] > │ v3 │
00:01:32 #3682 [verbose] > │ and method20 (v0 : int32, v1 : Mut0) : bool = │
00:01:32 #3683 [verbose] > │ let v2 : int32 = v1.l0 │
00:01:32 #3684 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:32 #3685 [verbose] > │ v3 │
00:01:32 #3686 [verbose] > │ and closure6 () struct (v0 : int64, v1 : int64) : int64 = │
00:01:32 #3687 [verbose] > │ v1 │
00:01:32 #3688 [verbose] > │ and method22 (v0 : UH4, v1 : uint64) : uint64 = │
00:01:32 #3689 [verbose] > │ match v0 with │
00:01:32 #3690 [verbose] > │ | UH4_1(v2, v3, v4) -> (* Cons *) │
00:01:32 #3691 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:01:32 #3692 [verbose] > │ method22(v4, v5) │
00:01:32 #3693 [verbose] > │ | UH4_0 -> (* Nil *) │
00:01:32 #3694 [verbose] > │ v1 │
00:01:32 #3695 [verbose] > │ and method23 (v0 : (struct (UH2 * US1) []), v1 : UH4, v2 : uint64) : uint64 │
00:01:32 #3696 [verbose] > │ = │
00:01:32 #3697 [verbose] > │ match v1 with │
00:01:32 #3698 [verbose] > │ | UH4_1(v3, v4, v5) -> (* Cons *) │
00:01:32 #3699 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:32 #3700 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:01:32 #3701 [verbose] > │ method23(v0, v5, v6) │
00:01:32 #3702 [verbose] > │ | UH4_0 -> (* Nil *) │
00:01:32 #3703 [verbose] > │ v2 │
00:01:32 #3704 [verbose] > │ and method21 (v0 : UH4) : (struct (UH2 * US1) []) = │
00:01:32 #3705 [verbose] > │ let v1 : uint64 = 0UL │
00:01:32 #3706 [verbose] > │ let v2 : uint64 = method22(v0, v1) │
00:01:32 #3707 [verbose] > │ let v3 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * US1)> │
00:01:32 #3708 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:32 #3709 [verbose] > │ let v4 : uint64 = 0UL │
00:01:32 #3710 [verbose] > │ let v5 : uint64 = method23(v3, v0, v4) │
00:01:32 #3711 [verbose] > │ v3 │
00:01:32 #3712 [verbose] > │ and method25 (v0 : UH2, v1 : uint64) : uint64 = │
00:01:32 #3713 [verbose] > │ match v0 with │
00:01:32 #3714 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:32 #3715 [verbose] > │ let v4 : uint64 = v1 + 1UL │
00:01:32 #3716 [verbose] > │ method25(v3, v4) │
00:01:32 #3717 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:32 #3718 [verbose] > │ v1 │
00:01:32 #3719 [verbose] > │ and method26 (v0 : (string []), v1 : UH2, v2 : uint64) : uint64 = │
00:01:32 #3720 [verbose] > │ match v1 with │
00:01:32 #3721 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:32 #3722 [verbose] > │ v0.[int v2] <- v3 │
00:01:32 #3723 [verbose] > │ let v5 : uint64 = v2 + 1UL │
00:01:32 #3724 [verbose] > │ method26(v0, v4, v5) │
00:01:32 #3725 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:32 #3726 [verbose] > │ v2 │
00:01:32 #3727 [verbose] > │ and method24 (v0 : UH2) : (string []) = │
00:01:32 #3728 [verbose] > │ let v1 : uint64 = 0UL │
00:01:32 #3729 [verbose] > │ let v2 : uint64 = method25(v0, v1) │
00:01:32 #3730 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> │
00:01:32 #3731 [verbose] > │ (System.Convert.ToInt32(v2)) │
00:01:32 #3732 [verbose] > │ let v4 : uint64 = 0UL │
00:01:32 #3733 [verbose] > │ let v5 : uint64 = method26(v3, v0, v4) │
00:01:32 #3734 [verbose] > │ v3 │
00:01:32 #3735 [verbose] > │ and closure7 () (v0 : int64) : US2 = │
00:01:32 #3736 [verbose] > │ US2_0(v0) │
00:01:32 #3737 [verbose] > │ and method27 () : (int64 -> US2) = │
00:01:32 #3738 [verbose] > │ closure7() │
00:01:32 #3739 [verbose] > │ and method28 (v0 : uint64, v1 : Mut3) : bool = │
00:01:32 #3740 [verbose] > │ let v2 : uint64 = v1.l0 │
00:01:32 #3741 [verbose] > │ let v3 : bool = v2 < v0 │
00:01:32 #3742 [verbose] > │ v3 │
00:01:32 #3743 [verbose] > │ and method29 (v0 : UH5, v1 : UH5) : UH5 = │
00:01:32 #3744 [verbose] > │ match v0 with │
00:01:32 #3745 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:32 #3746 [verbose] > │ let v5 : UH5 = UH5_1(v2, v3, v1) │
00:01:32 #3747 [verbose] > │ method29(v4, v5) │
00:01:32 #3748 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:32 #3749 [verbose] > │ v1 │
00:01:32 #3750 [verbose] > │ and method31 (v0 : UH5, v1 : int32) : int32 = │
00:01:32 #3751 [verbose] > │ match v0 with │
00:01:32 #3752 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:32 #3753 [verbose] > │ let v5 : int32 = v1 + 1 │
00:01:32 #3754 [verbose] > │ method31(v4, v5) │
00:01:32 #3755 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:32 #3756 [verbose] > │ v1 │
00:01:32 #3757 [verbose] > │ and method32 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : int32) : │
00:01:32 #3758 [verbose] > │ int32 = │
00:01:32 #3759 [verbose] > │ match v1 with │
00:01:32 #3760 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:01:32 #3761 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:32 #3762 [verbose] > │ let v6 : int32 = v2 + 1 │
00:01:32 #3763 [verbose] > │ method32(v0, v5, v6) │
00:01:32 #3764 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:32 #3765 [verbose] > │ v2 │
00:01:32 #3766 [verbose] > │ and method30 (v0 : UH5) : (struct (int32 * int64) []) = │
00:01:32 #3767 [verbose] > │ let v1 : int32 = 0 │
00:01:32 #3768 [verbose] > │ let v2 : int32 = method31(v0, v1) │
00:01:32 #3769 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:32 #3770 [verbose] > │ int64)> (v2) │
00:01:32 #3771 [verbose] > │ let v4 : int32 = 0 │
00:01:32 #3772 [verbose] > │ let v5 : int32 = method32(v3, v0, v4) │
00:01:32 #3773 [verbose] > │ v3 │
00:01:32 #3774 [verbose] > │ and method33 (v0 : UH2, v1 : UH6, v2 : int32) : struct (UH6 * int32) = │
00:01:32 #3775 [verbose] > │ match v0 with │
00:01:32 #3776 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:32 #3777 [verbose] > │ let v5 : int32 = v2 + 1 │
00:01:32 #3778 [verbose] > │ let v6 : UH6 = UH6_1(v2, v3, v1) │
00:01:32 #3779 [verbose] > │ method33(v4, v6, v5) │
00:01:32 #3780 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:32 #3781 [verbose] > │ struct (v1, v2) │
00:01:32 #3782 [verbose] > │ and method34 (v0 : UH6, v1 : UH6) : UH6 = │
00:01:32 #3783 [verbose] > │ match v0 with │
00:01:32 #3784 [verbose] > │ | UH6_1(v2, v3, v4) -> (* Cons *) │
00:01:32 #3785 [verbose] > │ let v5 : UH6 = UH6_1(v2, v3, v1) │
00:01:32 #3786 [verbose] > │ method34(v4, v5) │
00:01:32 #3787 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:32 #3788 [verbose] > │ v1 │
00:01:32 #3789 [verbose] > │ and method35 (v0 : Map<int32, int64>, v1 : UH6, v2 : UH2) : UH2 = │
00:01:32 #3790 [verbose] > │ match v1 with │
00:01:32 #3791 [verbose] > │ | UH6_1(v3, v4, v5) -> (* Cons *) │
00:01:32 #3792 [verbose] > │ let v6 : UH2 = method35(v0, v5, v2) │
00:01:32 #3793 [verbose] > │ let v7 : int64 = v0.[v3] │
00:01:32 #3794 [verbose] > │ let v8 : int32 = int32 v7 │
00:01:32 #3795 [verbose] > │ let v9 : string = v4.PadRight v8 │
00:01:32 #3796 [verbose] > │ UH2_1(v9, v6) │
00:01:32 #3797 [verbose] > │ | UH6_0 -> (* Nil *) │
00:01:32 #3798 [verbose] > │ v2 │
00:01:32 #3799 [verbose] > │ and method37 (v0 : UH2, v1 : int32) : int32 = │
00:01:32 #3800 [verbose] > │ match v0 with │
00:01:32 #3801 [verbose] > │ | UH2_1(v2, v3) -> (* Cons *) │
00:01:32 #3802 [verbose] > │ let v4 : int32 = v1 + 1 │
00:01:32 #3803 [verbose] > │ method37(v3, v4) │
00:01:32 #3804 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:32 #3805 [verbose] > │ v1 │
00:01:32 #3806 [verbose] > │ and method38 (v0 : (string []), v1 : UH2, v2 : int32) : int32 = │
00:01:32 #3807 [verbose] > │ match v1 with │
00:01:32 #3808 [verbose] > │ | UH2_1(v3, v4) -> (* Cons *) │
00:01:32 #3809 [verbose] > │ v0.[int v2] <- v3 │
00:01:32 #3810 [verbose] > │ let v5 : int32 = v2 + 1 │
00:01:32 #3811 [verbose] > │ method38(v0, v4, v5) │
00:01:32 #3812 [verbose] > │ | UH2_0 -> (* Nil *) │
00:01:32 #3813 [verbose] > │ v2 │
00:01:32 #3814 [verbose] > │ and method36 (v0 : UH2) : (string []) = │
00:01:32 #3815 [verbose] > │ let v1 : int32 = 0 │
00:01:32 #3816 [verbose] > │ let v2 : int32 = method37(v0, v1) │
00:01:32 #3817 [verbose] > │ let v3 : (string []) = Array.zeroCreate<string> (v2) │
00:01:32 #3818 [verbose] > │ let v4 : int32 = 0 │
00:01:32 #3819 [verbose] > │ let v5 : int32 = method38(v3, v0, v4) │
00:01:32 #3820 [verbose] > │ v3 │
00:01:32 #3821 [verbose] > │ and method40 (v0 : UH5, v1 : uint64) : uint64 = │
00:01:32 #3822 [verbose] > │ match v0 with │
00:01:32 #3823 [verbose] > │ | UH5_1(v2, v3, v4) -> (* Cons *) │
00:01:32 #3824 [verbose] > │ let v5 : uint64 = v1 + 1UL │
00:01:32 #3825 [verbose] > │ method40(v4, v5) │
00:01:32 #3826 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:32 #3827 [verbose] > │ v1 │
00:01:32 #3828 [verbose] > │ and method41 (v0 : (struct (int32 * int64) []), v1 : UH5, v2 : uint64) : │
00:01:32 #3829 [verbose] > │ uint64 = │
00:01:32 #3830 [verbose] > │ match v1 with │
00:01:32 #3831 [verbose] > │ | UH5_1(v3, v4, v5) -> (* Cons *) │
00:01:32 #3832 [verbose] > │ v0.[int v2] <- struct (v3, v4) │
00:01:32 #3833 [verbose] > │ let v6 : uint64 = v2 + 1UL │
00:01:32 #3834 [verbose] > │ method41(v0, v5, v6) │
00:01:32 #3835 [verbose] > │ | UH5_0 -> (* Nil *) │
00:01:32 #3836 [verbose] > │ v2 │
00:01:32 #3837 [verbose] > │ and method39 (v0 : UH5) : (struct (int32 * int64) []) = │
00:01:32 #3838 [verbose] > │ let v1 : uint64 = 0UL │
00:01:32 #3839 [verbose] > │ let v2 : uint64 = method40(v0, v1) │
00:01:32 #3840 [verbose] > │ let v3 : (struct (int32 * int64) []) = Array.zeroCreate<struct (int32 * │
00:01:32 #3841 [verbose] > │ int64)> (System.Convert.ToInt32(v2)) │
00:01:32 #3842 [verbose] > │ let v4 : uint64 = 0UL │
00:01:32 #3843 [verbose] > │ let v5 : uint64 = method41(v3, v0, v4) │
00:01:32 #3844 [verbose] > │ v3 │
00:01:32 #3845 [verbose] > │ and closure8 () struct (v0 : int32, v1 : int64) : int64 = │
00:01:32 #3846 [verbose] > │ v1 │
00:01:32 #3847 [verbose] > │ and closure0 () () : unit = │
00:01:32 #3848 [verbose] > │ let v0 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:32 #3849 [verbose] > │ let v1 : int32 = v0.Length │
00:01:32 #3850 [verbose] > │ let v2 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:32 #3851 [verbose] > │ let v3 : int32 = v2.Length │
00:01:32 #3852 [verbose] > │ let v4 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:32 #3853 [verbose] > │ let v5 : int32 = v4.Length │
00:01:32 #3854 [verbose] > │ let v6 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:32 #3855 [verbose] > │ let v7 : int32 = v6.Length │
00:01:32 #3856 [verbose] > │ let v8 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:32 #3857 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:01:32 #3858 [verbose] > │ while method1(v9) do │
00:01:32 #3859 [verbose] > │ let v11 : int32 = v9.l0 │
00:01:32 #3860 [verbose] > │ let v12 : int32 = 1 + v11 │
00:01:32 #3861 [verbose] > │ v8.[int v11] <- v12 │
00:01:32 #3862 [verbose] > │ let v13 : int32 = v11 + 1 │
00:01:32 #3863 [verbose] > │ v9.l0 <- v13 │
00:01:32 #3864 [verbose] > │ () │
00:01:32 #3865 [verbose] > │ let v14 : int32 = v8.Length │
00:01:32 #3866 [verbose] > │ let v15 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:32 #3867 [verbose] > │ let v16 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:32 #3868 [verbose] > │ let v17 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:32 #3869 [verbose] > │ let v18 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:32 #3870 [verbose] > │ let v19 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:32 #3871 [verbose] > │ let v20 : Mut0 = {l0 = 0} : Mut0 │
00:01:32 #3872 [verbose] > │ while method1(v20) do │
00:01:32 #3873 [verbose] > │ let v22 : int32 = v20.l0 │
00:01:32 #3874 [verbose] > │ let v23 : int32 = 1 + v22 │
00:01:32 #3875 [verbose] > │ v19.[int v22] <- v23 │
00:01:32 #3876 [verbose] > │ let v24 : int32 = v22 + 1 │
00:01:32 #3877 [verbose] > │ v20.l0 <- v24 │
00:01:32 #3878 [verbose] > │ () │
00:01:32 #3879 [verbose] > │ let v25 : (unit -> unit) = closure0() │
00:01:32 #3880 [verbose] > │ let v26 : string = nameof v25 │
00:01:32 #3881 [verbose] > │ let v27 : string = "" │
00:01:32 #3882 [verbose] > │ System.Console.WriteLine v27 │
00:01:32 #3883 [verbose] > │ System.Console.WriteLine v27 │
00:01:32 #3884 [verbose] > │ let v28 : string = $"Test: {v26}" │
00:01:32 #3885 [verbose] > │ System.Console.WriteLine v28 │
00:01:32 #3886 [verbose] > │ let v29 : int32 = 6 │
00:01:32 #3887 [verbose] > │ let v30 : int32 = 3 │
00:01:32 #3888 [verbose] > │ let v31 : US0 = US0_0(v30) │
00:01:32 #3889 [verbose] > │ let v32 : int32 = 1 │
00:01:32 #3890 [verbose] > │ let v33 : int32 = 0 │
00:01:32 #3891 [verbose] > │ let v34 : US0 = US0_0(v33) │
00:01:32 #3892 [verbose] > │ let v35 : int32 = 11 │
00:01:32 #3893 [verbose] > │ let v36 : int32 = 6 │
00:01:32 #3894 [verbose] > │ let v37 : US0 = US0_0(v36) │
00:01:32 #3895 [verbose] > │ let v38 : int32 = 12 │
00:01:32 #3896 [verbose] > │ let v39 : US0 = US0_1 │
00:01:32 #3897 [verbose] > │ let v40 : int32 = 60 │
00:01:32 #3898 [verbose] > │ let v41 : int32 = 59 │
00:01:32 #3899 [verbose] > │ let v42 : US0 = US0_0(v41) │
00:01:32 #3900 [verbose] > │ let v43 : int32 = 6 │
00:01:32 #3901 [verbose] > │ let v44 : int32 = 7 │
00:01:32 #3902 [verbose] > │ let v45 : int32 = 3 │
00:01:32 #3903 [verbose] > │ let v46 : US0 = US0_0(v45) │
00:01:32 #3904 [verbose] > │ let v47 : int32 = 1 │
00:01:32 #3905 [verbose] > │ let v48 : int32 = 7 │
00:01:32 #3906 [verbose] > │ let v49 : int32 = 0 │
00:01:32 #3907 [verbose] > │ let v50 : US0 = US0_0(v49) │
00:01:32 #3908 [verbose] > │ let v51 : int32 = 11 │
00:01:32 #3909 [verbose] > │ let v52 : int32 = 7 │
00:01:32 #3910 [verbose] > │ let v53 : int32 = 6 │
00:01:32 #3911 [verbose] > │ let v54 : US0 = US0_0(v53) │
00:01:32 #3912 [verbose] > │ let v55 : int32 = 12 │
00:01:32 #3913 [verbose] > │ let v56 : int32 = 7 │
00:01:32 #3914 [verbose] > │ let v57 : US0 = US0_1 │
00:01:32 #3915 [verbose] > │ let v58 : int32 = 60 │
00:01:32 #3916 [verbose] > │ let v59 : int32 = 100 │
00:01:32 #3917 [verbose] > │ let v60 : int32 = 59 │
00:01:32 #3918 [verbose] > │ let v61 : US0 = US0_0(v60) │
00:01:32 #3919 [verbose] > │ let v62 : UH0 = UH0_0 │
00:01:32 #3920 [verbose] > │ let v63 : UH0 = UH0_1(v19, v58, v59, v61, v62) │
00:01:32 #3921 [verbose] > │ let v64 : UH0 = UH0_1(v18, v55, v56, v57, v63) │
00:01:32 #3922 [verbose] > │ let v65 : UH0 = UH0_1(v17, v51, v52, v54, v64) │
00:01:32 #3923 [verbose] > │ let v66 : UH0 = UH0_1(v16, v47, v48, v50, v65) │
00:01:33 #3924 [verbose] > │ let v67 : UH0 = UH0_1(v15, v43, v44, v46, v66) │
00:01:33 #3925 [verbose] > │ let v68 : UH0 = UH0_1(v8, v40, v14, v42, v67) │
00:01:33 #3926 [verbose] > │ let v69 : UH0 = UH0_1(v6, v38, v7, v39, v68) │
00:01:33 #3927 [verbose] > │ let v70 : UH0 = UH0_1(v4, v35, v5, v37, v69) │
00:01:33 #3928 [verbose] > │ let v71 : UH0 = UH0_1(v2, v32, v3, v34, v70) │
00:01:33 #3929 [verbose] > │ let v72 : UH0 = UH0_1(v0, v29, v1, v31, v71) │
00:01:33 #3930 [verbose] > │ let v73 : (struct ((int32 []) * int32 * int32 * US0) []) = method2(v72) │
00:01:33 #3931 [verbose] > │ let v74 : uint64 = System.Convert.ToUInt64 v73.Length │
00:01:33 #3932 [verbose] > │ let v75 : (struct (string * string * string * (int64 [])) []) = │
00:01:33 #3933 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:33 #3934 [verbose] > │ (System.Convert.ToInt32(v74)) │
00:01:33 #3935 [verbose] > │ let v76 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #3936 [verbose] > │ while method5(v74, v76) do │
00:01:33 #3937 [verbose] > │ let v78 : uint64 = v76.l0 │
00:01:33 #3938 [verbose] > │ let struct (v79 : (int32 []), v80 : int32, v81 : int32, v82 : US0) = │
00:01:33 #3939 [verbose] > │ v73.[int v78] │
00:01:33 #3940 [verbose] > │ let v83 : string = $"%A{struct (v79, v80, v81)}" │
00:01:33 #3941 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #3942 [verbose] > │ let v84 : string = $"Solution: {v83} " │
00:01:33 #3943 [verbose] > │ System.Console.WriteLine v84 │
00:01:33 #3944 [verbose] > │ let v85 : int32 = 0 │
00:01:33 #3945 [verbose] > │ let v86 : string = "semi_open_1" │
00:01:33 #3946 [verbose] > │ let v87 : (struct ((int32 []) * int32 * int32) -> US0) = closure1() │
00:01:33 #3947 [verbose] > │ let v88 : int32 = 1 │
00:01:33 #3948 [verbose] > │ let v89 : string = "closed_1" │
00:01:33 #3949 [verbose] > │ let v90 : (struct ((int32 []) * int32 * int32) -> US0) = closure2() │
00:01:33 #3950 [verbose] > │ let v91 : int32 = 2 │
00:01:33 #3951 [verbose] > │ let v92 : string = "semi_open_2" │
00:01:33 #3952 [verbose] > │ let v93 : (struct ((int32 []) * int32 * int32) -> US0) = closure3() │
00:01:33 #3953 [verbose] > │ let v94 : int32 = 3 │
00:01:33 #3954 [verbose] > │ let v95 : string = "closed_2" │
00:01:33 #3955 [verbose] > │ let v96 : (struct ((int32 []) * int32 * int32) -> US0) = closure4() │
00:01:33 #3956 [verbose] > │ let v97 : UH1 = UH1_0 │
00:01:33 #3957 [verbose] > │ let v98 : UH1 = UH1_1(v94, v95, v96, v97) │
00:01:33 #3958 [verbose] > │ let v99 : UH1 = UH1_1(v91, v92, v93, v98) │
00:01:33 #3959 [verbose] > │ let v100 : UH1 = UH1_1(v88, v89, v90, v99) │
00:01:33 #3960 [verbose] > │ let v101 : UH1 = UH1_1(v85, v86, v87, v100) │
00:01:33 #3961 [verbose] > │ let v102 : (struct (int32 * string * (struct ((int32 []) * int32 * │
00:01:33 #3962 [verbose] > │ int32) -> US0)) []) = method10(v101) │
00:01:33 #3963 [verbose] > │ let v103 : uint64 = System.Convert.ToUInt64 v102.Length │
00:01:33 #3964 [verbose] > │ let v104 : (struct (US0 * int64) []) = Array.zeroCreate<struct (US0 │
00:01:33 #3965 [verbose] > │ * int64)> (System.Convert.ToInt32(v103)) │
00:01:33 #3966 [verbose] > │ let v105 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #3967 [verbose] > │ while method5(v103, v105) do │
00:01:33 #3968 [verbose] > │ let v107 : uint64 = v105.l0 │
00:01:33 #3969 [verbose] > │ let struct (v108 : int32, v109 : string, v110 : (struct ((int32 │
00:01:33 #3970 [verbose] > │ []) * int32 * int32) -> US0)) = v102.[int v107] │
00:01:33 #3971 [verbose] > │ let v111 : unit option = None │
00:01:33 #3972 [verbose] > │ let mutable _v111 = v111 │
00:01:33 #3973 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #3974 [verbose] > │ () │
00:01:33 #3975 [verbose] > │ #endif │
00:01:33 #3976 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #3977 [verbose] > │ () │
00:01:33 #3978 [verbose] > │ #endif │
00:01:33 #3979 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #3980 [verbose] > │ () │
00:01:33 #3981 [verbose] > │ #endif │
00:01:33 #3982 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #3983 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #3984 [verbose] > │ System.GC.Collect () │
00:01:33 #3985 [verbose] > │ () │
00:01:33 #3986 [verbose] > │ #endif │
00:01:33 #3987 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #3988 [verbose] > │ () │
00:01:33 #3989 [verbose] > │ #endif │
00:01:33 #3990 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #3991 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #3992 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #3993 [verbose] > │ () │
00:01:33 #3994 [verbose] > │ #endif │
00:01:33 #3995 [verbose] > │ |> fun x -> _v111 <- Some x │
00:01:33 #3996 [verbose] > │ _v111.Value │
00:01:33 #3997 [verbose] > │ let v112 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:33 #3998 [verbose] > │ System.Diagnostics.Stopwatch │
00:01:33 #3999 [verbose] > │ let v113 : System.Diagnostics.Stopwatch = v112 () │
00:01:33 #4000 [verbose] > │ v113.Start () │
00:01:33 #4001 [verbose] > │ let v114 : int64 = v113.ElapsedMilliseconds │
00:01:33 #4002 [verbose] > │ let v115 : (int32 []) = Array.zeroCreate<int32> (8000001) │
00:01:33 #4003 [verbose] > │ let v116 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #4004 [verbose] > │ while method13(v116) do │
00:01:33 #4005 [verbose] > │ let v118 : int32 = v116.l0 │
00:01:33 #4006 [verbose] > │ v115.[int v118] <- v118 │
00:01:33 #4007 [verbose] > │ let v119 : int32 = v118 + 1 │
00:01:33 #4008 [verbose] > │ v116.l0 <- v119 │
00:01:33 #4009 [verbose] > │ () │
00:01:33 #4010 [verbose] > │ let v120 : ((int32 -> US0) -> ((int32 []) -> (US0 []))) = │
00:01:33 #4011 [verbose] > │ Array.Parallel.map │
00:01:33 #4012 [verbose] > │ let v121 : (int32 -> US0) = closure5(v79, v80, v81, v110) │
00:01:33 #4013 [verbose] > │ let v122 : ((int32 []) -> (US0 [])) = v120 v121 │
00:01:33 #4014 [verbose] > │ let v123 : (US0 []) = v122 v115 │
00:01:33 #4015 [verbose] > │ let v124 : int32 = v123.Length │
00:01:33 #4016 [verbose] > │ let v125 : int32 = v124 - 1 │
00:01:33 #4017 [verbose] > │ let v126 : US0 = v123.[int v125] │
00:01:33 #4018 [verbose] > │ let v127 : int64 = v113.ElapsedMilliseconds │
00:01:33 #4019 [verbose] > │ let v128 : int64 = v127 - v114 │
00:01:33 #4020 [verbose] > │ let v129 : string = $"Test case {v108 + 1}. {v109}. Time: {v128} │
00:01:33 #4021 [verbose] > │ " │
00:01:33 #4022 [verbose] > │ System.Console.WriteLine v129 │
00:01:33 #4023 [verbose] > │ v104.[int v107] <- struct (v126, v128) │
00:01:33 #4024 [verbose] > │ let v130 : uint64 = v107 + 1UL │
00:01:33 #4025 [verbose] > │ v105.l0 <- v130 │
00:01:33 #4026 [verbose] > │ () │
00:01:33 #4027 [verbose] > │ let v131 : uint64 = System.Convert.ToUInt64 v104.Length │
00:01:33 #4028 [verbose] > │ let v132 : (US0 []) = Array.zeroCreate<US0> │
00:01:33 #4029 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4030 [verbose] > │ let v133 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4031 [verbose] > │ while method5(v131, v133) do │
00:01:33 #4032 [verbose] > │ let v135 : uint64 = v133.l0 │
00:01:33 #4033 [verbose] > │ let struct (v136 : US0, v137 : int64) = v104.[int v135] │
00:01:33 #4034 [verbose] > │ v132.[int v135] <- v136 │
00:01:33 #4035 [verbose] > │ let v138 : uint64 = v135 + 1UL │
00:01:33 #4036 [verbose] > │ v133.l0 <- v138 │
00:01:33 #4037 [verbose] > │ () │
00:01:33 #4038 [verbose] > │ let v139 : uint64 = System.Convert.ToUInt64 v132.Length │
00:01:33 #4039 [verbose] > │ let v140 : bool = v139 <= 1UL │
00:01:33 #4040 [verbose] > │ if v140 then │
00:01:33 #4041 [verbose] > │ () │
00:01:33 #4042 [verbose] > │ else │
00:01:33 #4043 [verbose] > │ let v141 : US0 = v132.[int 0UL] │
00:01:33 #4044 [verbose] > │ let v142 : uint64 = 0UL │
00:01:33 #4045 [verbose] > │ let v143 : bool = method14(v141, v132, v142) │
00:01:33 #4046 [verbose] > │ if v143 then │
00:01:33 #4047 [verbose] > │ () │
00:01:33 #4048 [verbose] > │ else │
00:01:33 #4049 [verbose] > │ let v144 : string = $"Challenge error: {v132}" │
00:01:33 #4050 [verbose] > │ failwith<unit> v144 │
00:01:33 #4051 [verbose] > │ let v145 : string = $"%A{v82}" │
00:01:33 #4052 [verbose] > │ let v146 : (US0 []) = Array.zeroCreate<US0> │
00:01:33 #4053 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4054 [verbose] > │ let v147 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4055 [verbose] > │ while method5(v131, v147) do │
00:01:33 #4056 [verbose] > │ let v149 : uint64 = v147.l0 │
00:01:33 #4057 [verbose] > │ let struct (v150 : US0, v151 : int64) = v104.[int v149] │
00:01:33 #4058 [verbose] > │ v146.[int v149] <- v150 │
00:01:33 #4059 [verbose] > │ let v152 : uint64 = v149 + 1UL │
00:01:33 #4060 [verbose] > │ v147.l0 <- v152 │
00:01:33 #4061 [verbose] > │ () │
00:01:33 #4062 [verbose] > │ let v153 : US0 = v146.[int 0UL] │
00:01:33 #4063 [verbose] > │ let v154 : string = $"%A{v153}" │
00:01:33 #4064 [verbose] > │ let v155 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4065 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4066 [verbose] > │ let v156 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4067 [verbose] > │ while method5(v131, v156) do │
00:01:33 #4068 [verbose] > │ let v158 : uint64 = v156.l0 │
00:01:33 #4069 [verbose] > │ let struct (v159 : US0, v160 : int64) = v104.[int v158] │
00:01:33 #4070 [verbose] > │ v155.[int v158] <- v160 │
00:01:33 #4071 [verbose] > │ let v161 : uint64 = v158 + 1UL │
00:01:33 #4072 [verbose] > │ v156.l0 <- v161 │
00:01:33 #4073 [verbose] > │ () │
00:01:33 #4074 [verbose] > │ v75.[int v78] <- struct (v145, v83, v154, v155) │
00:01:33 #4075 [verbose] > │ let v162 : uint64 = v78 + 1UL │
00:01:33 #4076 [verbose] > │ v76.l0 <- v162 │
00:01:33 #4077 [verbose] > │ () │
00:01:33 #4078 [verbose] > │ let v163 : uint64 = System.Convert.ToUInt64 v75.Length │
00:01:33 #4079 [verbose] > │ let v164 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:33 #4080 [verbose] > │ US1)> (System.Convert.ToInt32(v163)) │
00:01:33 #4081 [verbose] > │ let v165 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4082 [verbose] > │ while method5(v163, v165) do │
00:01:33 #4083 [verbose] > │ let v167 : uint64 = v165.l0 │
00:01:33 #4084 [verbose] > │ let struct (v168 : string, v169 : string, v170 : string, v171 : │
00:01:33 #4085 [verbose] > │ (int64 [])) = v75.[int v167] │
00:01:33 #4086 [verbose] > │ let v172 : uint64 = System.Convert.ToUInt64 v171.Length │
00:01:33 #4087 [verbose] > │ let v173 : UH3 = UH3_0 │
00:01:33 #4088 [verbose] > │ let v174 : Mut2 = {l0 = 0UL; l1 = v173; l2 = 0L} : Mut2 │
00:01:33 #4089 [verbose] > │ while method15(v172, v174) do │
00:01:33 #4090 [verbose] > │ let v176 : uint64 = v174.l0 │
00:01:33 #4091 [verbose] > │ let struct (v177 : UH3, v178 : int64) = v174.l1, v174.l2 │
00:01:33 #4092 [verbose] > │ let v179 : int64 = v171.[int v176] │
00:01:33 #4093 [verbose] > │ let v180 : int64 = v178 + 1L │
00:01:33 #4094 [verbose] > │ let v181 : uint64 = v176 + 1UL │
00:01:33 #4095 [verbose] > │ let v182 : UH3 = UH3_1(v178, v179, v177) │
00:01:33 #4096 [verbose] > │ v174.l0 <- v181 │
00:01:33 #4097 [verbose] > │ v174.l1 <- v182 │
00:01:33 #4098 [verbose] > │ v174.l2 <- v180 │
00:01:33 #4099 [verbose] > │ () │
00:01:33 #4100 [verbose] > │ let struct (v183 : UH3, v184 : int64) = v174.l1, v174.l2 │
00:01:33 #4101 [verbose] > │ let v185 : UH3 = UH3_0 │
00:01:33 #4102 [verbose] > │ let v186 : UH3 = method16(v183, v185) │
00:01:33 #4103 [verbose] > │ let v187 : (struct (int64 * int64) []) = method17(v186) │
00:01:33 #4104 [verbose] > │ let v188 : int32 = v187.Length │
00:01:33 #4105 [verbose] > │ let v189 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:33 #4106 [verbose] > │ (int64 * int64)> (v188) │
00:01:33 #4107 [verbose] > │ let v190 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #4108 [verbose] > │ while method20(v188, v190) do │
00:01:33 #4109 [verbose] > │ let v192 : int32 = v190.l0 │
00:01:33 #4110 [verbose] > │ let struct (v193 : int64, v194 : int64) = v187.[int v192] │
00:01:33 #4111 [verbose] > │ let v195 : int64 = v193 + 1L │
00:01:33 #4112 [verbose] > │ v189.[int v192] <- struct (v195, v194) │
00:01:33 #4113 [verbose] > │ let v196 : int32 = v192 + 1 │
00:01:33 #4114 [verbose] > │ v190.l0 <- v196 │
00:01:33 #4115 [verbose] > │ () │
00:01:33 #4116 [verbose] > │ let v197 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:33 #4117 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:33 #4118 [verbose] > │ let v198 : (struct (int64 * int64) -> int64) = closure6() │
00:01:33 #4119 [verbose] > │ let v199 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:33 #4120 [verbose] > │ ])) = v197 v198 │
00:01:33 #4121 [verbose] > │ let v200 : (struct (int64 * int64) []) = v199 v189 │
00:01:33 #4122 [verbose] > │ let struct (v201 : int64, v202 : int64) = v200.[int 0] │
00:01:33 #4123 [verbose] > │ let v203 : string = $"%A{struct (v201, v202)}" │
00:01:33 #4124 [verbose] > │ let v204 : bool = v168 = v170 │
00:01:33 #4125 [verbose] > │ let v209 : US1 = │
00:01:33 #4126 [verbose] > │ if v204 then │
00:01:33 #4127 [verbose] > │ let v205 : System.ConsoleColor = │
00:01:33 #4128 [verbose] > │ System.ConsoleColor.DarkGreen │
00:01:33 #4129 [verbose] > │ US1_0(v205) │
00:01:33 #4130 [verbose] > │ else │
00:01:33 #4131 [verbose] > │ let v207 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:33 #4132 [verbose] > │ US1_0(v207) │
00:01:33 #4133 [verbose] > │ let v210 : UH2 = UH2_0 │
00:01:33 #4134 [verbose] > │ let v211 : UH2 = UH2_1(v203, v210) │
00:01:33 #4135 [verbose] > │ let v212 : UH2 = UH2_1(v170, v211) │
00:01:33 #4136 [verbose] > │ let v213 : UH2 = UH2_1(v168, v212) │
00:01:33 #4137 [verbose] > │ let v214 : UH2 = UH2_1(v169, v213) │
00:01:33 #4138 [verbose] > │ v164.[int v167] <- struct (v214, v209) │
00:01:33 #4139 [verbose] > │ let v215 : uint64 = v167 + 1UL │
00:01:33 #4140 [verbose] > │ v165.l0 <- v215 │
00:01:33 #4141 [verbose] > │ () │
00:01:33 #4142 [verbose] > │ let v216 : string = "Input" │
00:01:33 #4143 [verbose] > │ let v217 : string = "Expected" │
00:01:33 #4144 [verbose] > │ let v218 : string = "Result" │
00:01:33 #4145 [verbose] > │ let v219 : string = "Best" │
00:01:33 #4146 [verbose] > │ let v220 : UH2 = UH2_0 │
00:01:33 #4147 [verbose] > │ let v221 : UH2 = UH2_1(v219, v220) │
00:01:33 #4148 [verbose] > │ let v222 : UH2 = UH2_1(v218, v221) │
00:01:33 #4149 [verbose] > │ let v223 : UH2 = UH2_1(v217, v222) │
00:01:33 #4150 [verbose] > │ let v224 : UH2 = UH2_1(v216, v223) │
00:01:33 #4151 [verbose] > │ let v225 : US1 = US1_1 │
00:01:33 #4152 [verbose] > │ let v226 : string = "---" │
00:01:33 #4153 [verbose] > │ let v227 : UH2 = UH2_0 │
00:01:33 #4154 [verbose] > │ let v228 : UH2 = UH2_1(v226, v227) │
00:01:33 #4155 [verbose] > │ let v229 : UH2 = UH2_1(v226, v228) │
00:01:33 #4156 [verbose] > │ let v230 : UH2 = UH2_1(v226, v229) │
00:01:33 #4157 [verbose] > │ let v231 : UH2 = UH2_1(v226, v230) │
00:01:33 #4158 [verbose] > │ let v232 : US1 = US1_1 │
00:01:33 #4159 [verbose] > │ let v233 : UH4 = UH4_0 │
00:01:33 #4160 [verbose] > │ let v234 : UH4 = UH4_1(v231, v232, v233) │
00:01:33 #4161 [verbose] > │ let v235 : UH4 = UH4_1(v224, v225, v234) │
00:01:33 #4162 [verbose] > │ let v236 : (struct (UH2 * US1) []) = method21(v235) │
00:01:33 #4163 [verbose] > │ let v237 : uint64 = System.Convert.ToUInt64 v236.Length │
00:01:33 #4164 [verbose] > │ let v238 : uint64 = System.Convert.ToUInt64 v164.Length │
00:01:33 #4165 [verbose] > │ let v239 : uint64 = v237 + v238 │
00:01:33 #4166 [verbose] > │ let v240 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:33 #4167 [verbose] > │ US1)> (System.Convert.ToInt32(v239)) │
00:01:33 #4168 [verbose] > │ let v241 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4169 [verbose] > │ while method5(v239, v241) do │
00:01:33 #4170 [verbose] > │ let v243 : uint64 = v241.l0 │
00:01:33 #4171 [verbose] > │ let v244 : bool = v243 < v237 │
00:01:33 #4172 [verbose] > │ let struct (v250 : UH2, v251 : US1) = │
00:01:33 #4173 [verbose] > │ if v244 then │
00:01:33 #4174 [verbose] > │ let struct (v245 : UH2, v246 : US1) = v236.[int v243] │
00:01:33 #4175 [verbose] > │ struct (v245, v246) │
00:01:33 #4176 [verbose] > │ else │
00:01:33 #4177 [verbose] > │ let v247 : uint64 = v243 - v237 │
00:01:33 #4178 [verbose] > │ let struct (v248 : UH2, v249 : US1) = v164.[int v247] │
00:01:33 #4179 [verbose] > │ struct (v248, v249) │
00:01:33 #4180 [verbose] > │ v240.[int v243] <- struct (v250, v251) │
00:01:33 #4181 [verbose] > │ let v252 : uint64 = v243 + 1UL │
00:01:33 #4182 [verbose] > │ v241.l0 <- v252 │
00:01:33 #4183 [verbose] > │ () │
00:01:33 #4184 [verbose] > │ let v253 : uint64 = System.Convert.ToUInt64 v240.Length │
00:01:33 #4185 [verbose] > │ let v254 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:33 #4186 [verbose] > │ (System.Convert.ToInt32(v253)) │
00:01:33 #4187 [verbose] > │ let v255 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4188 [verbose] > │ while method5(v253, v255) do │
00:01:33 #4189 [verbose] > │ let v257 : uint64 = v255.l0 │
00:01:33 #4190 [verbose] > │ let struct (v258 : UH2, v259 : US1) = v240.[int v257] │
00:01:33 #4191 [verbose] > │ let v260 : (string []) = method24(v258) │
00:01:33 #4192 [verbose] > │ v254.[int v257] <- v260 │
00:01:33 #4193 [verbose] > │ let v261 : uint64 = v257 + 1UL │
00:01:33 #4194 [verbose] > │ v255.l0 <- v261 │
00:01:33 #4195 [verbose] > │ () │
00:01:33 #4196 [verbose] > │ let v262 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:33 #4197 [verbose] > │ let v263 : ((string []) []) = v262 v254 │
00:01:33 #4198 [verbose] > │ let v264 : uint64 = System.Convert.ToUInt64 v263.Length │
00:01:33 #4199 [verbose] > │ let v265 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4200 [verbose] > │ (System.Convert.ToInt32(v264)) │
00:01:33 #4201 [verbose] > │ let v266 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4202 [verbose] > │ while method5(v264, v266) do │
00:01:33 #4203 [verbose] > │ let v268 : uint64 = v266.l0 │
00:01:33 #4204 [verbose] > │ let v269 : (string []) = v263.[int v268] │
00:01:33 #4205 [verbose] > │ let v270 : uint64 = System.Convert.ToUInt64 v269.Length │
00:01:33 #4206 [verbose] > │ let v271 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4207 [verbose] > │ (System.Convert.ToInt32(v270)) │
00:01:33 #4208 [verbose] > │ let v272 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4209 [verbose] > │ while method5(v270, v272) do │
00:01:33 #4210 [verbose] > │ let v274 : uint64 = v272.l0 │
00:01:33 #4211 [verbose] > │ let v275 : string = v269.[int v274] │
00:01:33 #4212 [verbose] > │ let v276 : int64 = System.Convert.ToInt64 v275.Length │
00:01:33 #4213 [verbose] > │ v271.[int v274] <- v276 │
00:01:33 #4214 [verbose] > │ let v277 : uint64 = v274 + 1UL │
00:01:33 #4215 [verbose] > │ v272.l0 <- v277 │
00:01:33 #4216 [verbose] > │ () │
00:01:33 #4217 [verbose] > │ let v278 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:33 #4218 [verbose] > │ let v279 : (int64 []) = v278 v271 │
00:01:33 #4219 [verbose] > │ let v280 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:33 #4220 [verbose] > │ let v281 : ((int64 []) -> int64 option) = v280 0 │
00:01:33 #4221 [verbose] > │ let v282 : int64 option = v281 v279 │
00:01:33 #4222 [verbose] > │ let v283 : (int64 -> US2) = method27() │
00:01:33 #4223 [verbose] > │ let v284 : US2 = US2_1 │
00:01:33 #4224 [verbose] > │ let v285 : US2 = v282 |> Option.map v283 |> Option.defaultValue v284 │
00:01:33 #4225 [verbose] > │ let v288 : int64 = │
00:01:33 #4226 [verbose] > │ match v285 with │
00:01:33 #4227 [verbose] > │ | US2_1 -> (* None *) │
00:01:33 #4228 [verbose] > │ 0L │
00:01:33 #4229 [verbose] > │ | US2_0(v286) -> (* Some *) │
00:01:33 #4230 [verbose] > │ v286 │
00:01:33 #4231 [verbose] > │ v265.[int v268] <- v288 │
00:01:33 #4232 [verbose] > │ let v289 : uint64 = v268 + 1UL │
00:01:33 #4233 [verbose] > │ v266.l0 <- v289 │
00:01:33 #4234 [verbose] > │ () │
00:01:33 #4235 [verbose] > │ let v290 : uint64 = System.Convert.ToUInt64 v265.Length │
00:01:33 #4236 [verbose] > │ let v291 : UH5 = UH5_0 │
00:01:33 #4237 [verbose] > │ let v292 : Mut3 = {l0 = 0UL; l1 = v291; l2 = 0} : Mut3 │
00:01:33 #4238 [verbose] > │ while method28(v290, v292) do │
00:01:33 #4239 [verbose] > │ let v294 : uint64 = v292.l0 │
00:01:33 #4240 [verbose] > │ let struct (v295 : UH5, v296 : int32) = v292.l1, v292.l2 │
00:01:33 #4241 [verbose] > │ let v297 : int64 = v265.[int v294] │
00:01:33 #4242 [verbose] > │ let v298 : int32 = v296 + 1 │
00:01:33 #4243 [verbose] > │ let v299 : uint64 = v294 + 1UL │
00:01:33 #4244 [verbose] > │ let v300 : UH5 = UH5_1(v296, v297, v295) │
00:01:33 #4245 [verbose] > │ v292.l0 <- v299 │
00:01:33 #4246 [verbose] > │ v292.l1 <- v300 │
00:01:33 #4247 [verbose] > │ v292.l2 <- v298 │
00:01:33 #4248 [verbose] > │ () │
00:01:33 #4249 [verbose] > │ let struct (v301 : UH5, v302 : int32) = v292.l1, v292.l2 │
00:01:33 #4250 [verbose] > │ let v303 : UH5 = UH5_0 │
00:01:33 #4251 [verbose] > │ let v304 : UH5 = method29(v301, v303) │
00:01:33 #4252 [verbose] > │ let v305 : (struct (int32 * int64) []) = method30(v304) │
00:01:33 #4253 [verbose] > │ let v306 : Map<int32, int64> = v305 |> Array.map (fun (struct (a, b)) -> │
00:01:33 #4254 [verbose] > │ a, b) |> Map.ofArray │
00:01:33 #4255 [verbose] > │ let v307 : (struct ((string []) * US1) []) = Array.zeroCreate<struct │
00:01:33 #4256 [verbose] > │ ((string []) * US1)> (System.Convert.ToInt32(v253)) │
00:01:33 #4257 [verbose] > │ let v308 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4258 [verbose] > │ while method5(v253, v308) do │
00:01:33 #4259 [verbose] > │ let v310 : uint64 = v308.l0 │
00:01:33 #4260 [verbose] > │ let struct (v311 : UH2, v312 : US1) = v240.[int v310] │
00:01:33 #4261 [verbose] > │ let v313 : UH6 = UH6_0 │
00:01:33 #4262 [verbose] > │ let v314 : int32 = 0 │
00:01:33 #4263 [verbose] > │ let struct (v315 : UH6, v316 : int32) = method33(v311, v313, v314) │
00:01:33 #4264 [verbose] > │ let v317 : UH6 = UH6_0 │
00:01:33 #4265 [verbose] > │ let v318 : UH6 = method34(v315, v317) │
00:01:33 #4266 [verbose] > │ let v319 : UH2 = UH2_0 │
00:01:33 #4267 [verbose] > │ let v320 : UH2 = method35(v306, v318, v319) │
00:01:33 #4268 [verbose] > │ let v321 : (string []) = method36(v320) │
00:01:33 #4269 [verbose] > │ v307.[int v310] <- struct (v321, v312) │
00:01:33 #4270 [verbose] > │ let v322 : uint64 = v310 + 1UL │
00:01:33 #4271 [verbose] > │ v308.l0 <- v322 │
00:01:33 #4272 [verbose] > │ () │
00:01:33 #4273 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #4274 [verbose] > │ let v323 : uint64 = System.Convert.ToUInt64 v307.Length │
00:01:33 #4275 [verbose] > │ let v324 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4276 [verbose] > │ while method5(v323, v324) do │
00:01:33 #4277 [verbose] > │ let v326 : uint64 = v324.l0 │
00:01:33 #4278 [verbose] > │ let struct (v327 : (string []), v328 : US1) = v307.[int v326] │
00:01:33 #4279 [verbose] > │ match v328 with │
00:01:33 #4280 [verbose] > │ | US1_1 -> (* None *) │
00:01:33 #4281 [verbose] > │ let v331 : unit option = None │
00:01:33 #4282 [verbose] > │ let mutable _v331 = v331 │
00:01:33 #4283 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #4284 [verbose] > │ () │
00:01:33 #4285 [verbose] > │ #endif │
00:01:33 #4286 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #4287 [verbose] > │ () │
00:01:33 #4288 [verbose] > │ #endif │
00:01:33 #4289 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #4290 [verbose] > │ () │
00:01:33 #4291 [verbose] > │ #endif │
00:01:33 #4292 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #4293 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #4294 [verbose] > │ System.Console.ResetColor () │
00:01:33 #4295 [verbose] > │ () │
00:01:33 #4296 [verbose] > │ #endif │
00:01:33 #4297 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #4298 [verbose] > │ () │
00:01:33 #4299 [verbose] > │ #endif │
00:01:33 #4300 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #4301 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #4302 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #4303 [verbose] > │ () │
00:01:33 #4304 [verbose] > │ #endif │
00:01:33 #4305 [verbose] > │ |> fun x -> _v331 <- Some x │
00:01:33 #4306 [verbose] > │ _v331.Value │
00:01:33 #4307 [verbose] > │ () │
00:01:33 #4308 [verbose] > │ | US1_0(v329) -> (* Some *) │
00:01:33 #4309 [verbose] > │ let v330 : unit option = None │
00:01:33 #4310 [verbose] > │ let mutable _v330 = v330 │
00:01:33 #4311 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #4312 [verbose] > │ () │
00:01:33 #4313 [verbose] > │ #endif │
00:01:33 #4314 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #4315 [verbose] > │ () │
00:01:33 #4316 [verbose] > │ #endif │
00:01:33 #4317 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #4318 [verbose] > │ () │
00:01:33 #4319 [verbose] > │ #endif │
00:01:33 #4320 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #4321 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #4322 [verbose] > │ System.Console.ForegroundColor <- v329 │
00:01:33 #4323 [verbose] > │ () │
00:01:33 #4324 [verbose] > │ #endif │
00:01:33 #4325 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #4326 [verbose] > │ () │
00:01:33 #4327 [verbose] > │ #endif │
00:01:33 #4328 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #4329 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #4330 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #4331 [verbose] > │ () │
00:01:33 #4332 [verbose] > │ #endif │
00:01:33 #4333 [verbose] > │ |> fun x -> _v330 <- Some x │
00:01:33 #4334 [verbose] > │ _v330.Value │
00:01:33 #4335 [verbose] > │ () │
00:01:33 #4336 [verbose] > │ let v332 : string = "\t| " │
00:01:33 #4337 [verbose] > │ let v333 : string = System.String.Join (v332, v327) │
00:01:33 #4338 [verbose] > │ System.Console.WriteLine v333 │
00:01:33 #4339 [verbose] > │ let v334 : unit option = None │
00:01:33 #4340 [verbose] > │ let mutable _v334 = v334 │
00:01:33 #4341 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #4342 [verbose] > │ () │
00:01:33 #4343 [verbose] > │ #endif │
00:01:33 #4344 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #4345 [verbose] > │ () │
00:01:33 #4346 [verbose] > │ #endif │
00:01:33 #4347 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #4348 [verbose] > │ () │
00:01:33 #4349 [verbose] > │ #endif │
00:01:33 #4350 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #4351 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #4352 [verbose] > │ System.Console.ResetColor () │
00:01:33 #4353 [verbose] > │ () │
00:01:33 #4354 [verbose] > │ #endif │
00:01:33 #4355 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #4356 [verbose] > │ () │
00:01:33 #4357 [verbose] > │ #endif │
00:01:33 #4358 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #4359 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #4360 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #4361 [verbose] > │ () │
00:01:33 #4362 [verbose] > │ #endif │
00:01:33 #4363 [verbose] > │ |> fun x -> _v334 <- Some x │
00:01:33 #4364 [verbose] > │ _v334.Value │
00:01:33 #4365 [verbose] > │ let v335 : uint64 = v326 + 1UL │
00:01:33 #4366 [verbose] > │ v324.l0 <- v335 │
00:01:33 #4367 [verbose] > │ () │
00:01:33 #4368 [verbose] > │ let v336 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:33 #4369 [verbose] > │ (System.Convert.ToInt32(v163)) │
00:01:33 #4370 [verbose] > │ let v337 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4371 [verbose] > │ while method5(v163, v337) do │
00:01:33 #4372 [verbose] > │ let v339 : uint64 = v337.l0 │
00:01:33 #4373 [verbose] > │ let struct (v340 : string, v341 : string, v342 : string, v343 : │
00:01:33 #4374 [verbose] > │ (int64 [])) = v75.[int v339] │
00:01:33 #4375 [verbose] > │ let v344 : (int64 -> float) = float │
00:01:33 #4376 [verbose] > │ let v345 : uint64 = System.Convert.ToUInt64 v343.Length │
00:01:33 #4377 [verbose] > │ let v346 : (float []) = Array.zeroCreate<float> │
00:01:33 #4378 [verbose] > │ (System.Convert.ToInt32(v345)) │
00:01:33 #4379 [verbose] > │ let v347 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4380 [verbose] > │ while method5(v345, v347) do │
00:01:33 #4381 [verbose] > │ let v349 : uint64 = v347.l0 │
00:01:33 #4382 [verbose] > │ let v350 : int64 = v343.[int v349] │
00:01:33 #4383 [verbose] > │ let v351 : float = v344 v350 │
00:01:33 #4384 [verbose] > │ v346.[int v349] <- v351 │
00:01:33 #4385 [verbose] > │ let v352 : uint64 = v349 + 1UL │
00:01:33 #4386 [verbose] > │ v347.l0 <- v352 │
00:01:33 #4387 [verbose] > │ () │
00:01:33 #4388 [verbose] > │ v336.[int v339] <- v346 │
00:01:33 #4389 [verbose] > │ let v353 : uint64 = v339 + 1UL │
00:01:33 #4390 [verbose] > │ v337.l0 <- v353 │
00:01:33 #4391 [verbose] > │ () │
00:01:33 #4392 [verbose] > │ let v354 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:33 #4393 [verbose] > │ let v355 : ((float []) []) = v354 v336 │
00:01:33 #4394 [verbose] > │ let v356 : uint64 = System.Convert.ToUInt64 v355.Length │
00:01:33 #4395 [verbose] > │ let v357 : (float []) = Array.zeroCreate<float> │
00:01:33 #4396 [verbose] > │ (System.Convert.ToInt32(v356)) │
00:01:33 #4397 [verbose] > │ let v358 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4398 [verbose] > │ while method5(v356, v358) do │
00:01:33 #4399 [verbose] > │ let v360 : uint64 = v358.l0 │
00:01:33 #4400 [verbose] > │ let v361 : (float []) = v355.[int v360] │
00:01:33 #4401 [verbose] > │ let v362 : ((float []) -> float) = Array.average │
00:01:33 #4402 [verbose] > │ let v363 : float = v362 v361 │
00:01:33 #4403 [verbose] > │ v357.[int v360] <- v363 │
00:01:33 #4404 [verbose] > │ let v364 : uint64 = v360 + 1UL │
00:01:33 #4405 [verbose] > │ v358.l0 <- v364 │
00:01:33 #4406 [verbose] > │ () │
00:01:33 #4407 [verbose] > │ let v365 : (float -> int64) = int64 │
00:01:33 #4408 [verbose] > │ let v366 : uint64 = System.Convert.ToUInt64 v357.Length │
00:01:33 #4409 [verbose] > │ let v367 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4410 [verbose] > │ (System.Convert.ToInt32(v366)) │
00:01:33 #4411 [verbose] > │ let v368 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4412 [verbose] > │ while method5(v366, v368) do │
00:01:33 #4413 [verbose] > │ let v370 : uint64 = v368.l0 │
00:01:33 #4414 [verbose] > │ let v371 : float = v357.[int v370] │
00:01:33 #4415 [verbose] > │ let v372 : int64 = v365 v371 │
00:01:33 #4416 [verbose] > │ v367.[int v370] <- v372 │
00:01:33 #4417 [verbose] > │ let v373 : uint64 = v370 + 1UL │
00:01:33 #4418 [verbose] > │ v368.l0 <- v373 │
00:01:33 #4419 [verbose] > │ () │
00:01:33 #4420 [verbose] > │ let v374 : uint64 = System.Convert.ToUInt64 v367.Length │
00:01:33 #4421 [verbose] > │ let v375 : UH5 = UH5_0 │
00:01:33 #4422 [verbose] > │ let v376 : Mut3 = {l0 = 0UL; l1 = v375; l2 = 0} : Mut3 │
00:01:33 #4423 [verbose] > │ while method28(v374, v376) do │
00:01:33 #4424 [verbose] > │ let v378 : uint64 = v376.l0 │
00:01:33 #4425 [verbose] > │ let struct (v379 : UH5, v380 : int32) = v376.l1, v376.l2 │
00:01:33 #4426 [verbose] > │ let v381 : int64 = v367.[int v378] │
00:01:33 #4427 [verbose] > │ let v382 : int32 = v380 + 1 │
00:01:33 #4428 [verbose] > │ let v383 : uint64 = v378 + 1UL │
00:01:33 #4429 [verbose] > │ let v384 : UH5 = UH5_1(v380, v381, v379) │
00:01:33 #4430 [verbose] > │ v376.l0 <- v383 │
00:01:33 #4431 [verbose] > │ v376.l1 <- v384 │
00:01:33 #4432 [verbose] > │ v376.l2 <- v382 │
00:01:33 #4433 [verbose] > │ () │
00:01:33 #4434 [verbose] > │ let struct (v385 : UH5, v386 : int32) = v376.l1, v376.l2 │
00:01:33 #4435 [verbose] > │ let v387 : UH5 = UH5_0 │
00:01:33 #4436 [verbose] > │ let v388 : UH5 = method29(v385, v387) │
00:01:33 #4437 [verbose] > │ let v389 : (struct (int32 * int64) []) = method39(v388) │
00:01:33 #4438 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #4439 [verbose] > │ let v390 : string = "Average Ranking " │
00:01:33 #4440 [verbose] > │ System.Console.WriteLine v390 │
00:01:33 #4441 [verbose] > │ let v391 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:33 #4442 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:33 #4443 [verbose] > │ let v392 : (struct (int32 * int64) -> int64) = closure8() │
00:01:33 #4444 [verbose] > │ let v393 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:33 #4445 [verbose] > │ = v391 v392 │
00:01:33 #4446 [verbose] > │ let v394 : (struct (int32 * int64) []) = v393 v389 │
00:01:33 #4447 [verbose] > │ let v395 : uint64 = System.Convert.ToUInt64 v394.Length │
00:01:33 #4448 [verbose] > │ let v396 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4449 [verbose] > │ while method5(v395, v396) do │
00:01:33 #4450 [verbose] > │ let v398 : uint64 = v396.l0 │
00:01:33 #4451 [verbose] > │ let struct (v399 : int32, v400 : int64) = v394.[int v398] │
00:01:33 #4452 [verbose] > │ let v401 : string = $"Test case %d{v399 + 1}. Average Time: %A{v400} │
00:01:33 #4453 [verbose] > │ " │
00:01:33 #4454 [verbose] > │ System.Console.WriteLine v401 │
00:01:33 #4455 [verbose] > │ let v402 : uint64 = v398 + 1UL │
00:01:33 #4456 [verbose] > │ v396.l0 <- v402 │
00:01:33 #4457 [verbose] > │ () │
00:01:33 #4458 [verbose] > │ () │
00:01:33 #4459 [verbose] > │ and method0 () : unit = │
00:01:33 #4460 [verbose] > │ let v0 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4461 [verbose] > │ let v1 : int32 = v0.Length │
00:01:33 #4462 [verbose] > │ let v2 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4463 [verbose] > │ let v3 : int32 = v2.Length │
00:01:33 #4464 [verbose] > │ let v4 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4465 [verbose] > │ let v5 : int32 = v4.Length │
00:01:33 #4466 [verbose] > │ let v6 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4467 [verbose] > │ let v7 : int32 = v6.Length │
00:01:33 #4468 [verbose] > │ let v8 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:33 #4469 [verbose] > │ let v9 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #4470 [verbose] > │ while method1(v9) do │
00:01:33 #4471 [verbose] > │ let v11 : int32 = v9.l0 │
00:01:33 #4472 [verbose] > │ let v12 : int32 = 1 + v11 │
00:01:33 #4473 [verbose] > │ v8.[int v11] <- v12 │
00:01:33 #4474 [verbose] > │ let v13 : int32 = v11 + 1 │
00:01:33 #4475 [verbose] > │ v9.l0 <- v13 │
00:01:33 #4476 [verbose] > │ () │
00:01:33 #4477 [verbose] > │ let v14 : int32 = v8.Length │
00:01:33 #4478 [verbose] > │ let v15 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4479 [verbose] > │ let v16 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4480 [verbose] > │ let v17 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4481 [verbose] > │ let v18 : (int32 []) = [|1; 3; 4; 6; 8; 9; 11|] │
00:01:33 #4482 [verbose] > │ let v19 : (int32 []) = Array.zeroCreate<int32> (100) │
00:01:33 #4483 [verbose] > │ let v20 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #4484 [verbose] > │ while method1(v20) do │
00:01:33 #4485 [verbose] > │ let v22 : int32 = v20.l0 │
00:01:33 #4486 [verbose] > │ let v23 : int32 = 1 + v22 │
00:01:33 #4487 [verbose] > │ v19.[int v22] <- v23 │
00:01:33 #4488 [verbose] > │ let v24 : int32 = v22 + 1 │
00:01:33 #4489 [verbose] > │ v20.l0 <- v24 │
00:01:33 #4490 [verbose] > │ () │
00:01:33 #4491 [verbose] > │ let v25 : (unit -> unit) = closure0() │
00:01:33 #4492 [verbose] > │ let v26 : string = nameof v25 │
00:01:33 #4493 [verbose] > │ let v27 : string = "" │
00:01:33 #4494 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #4495 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #4496 [verbose] > │ let v28 : string = $"Test: {v26}" │
00:01:33 #4497 [verbose] > │ System.Console.WriteLine v28 │
00:01:33 #4498 [verbose] > │ let v29 : int32 = 6 │
00:01:33 #4499 [verbose] > │ let v30 : int32 = 3 │
00:01:33 #4500 [verbose] > │ let v31 : US0 = US0_0(v30) │
00:01:33 #4501 [verbose] > │ let v32 : int32 = 1 │
00:01:33 #4502 [verbose] > │ let v33 : int32 = 0 │
00:01:33 #4503 [verbose] > │ let v34 : US0 = US0_0(v33) │
00:01:33 #4504 [verbose] > │ let v35 : int32 = 11 │
00:01:33 #4505 [verbose] > │ let v36 : int32 = 6 │
00:01:33 #4506 [verbose] > │ let v37 : US0 = US0_0(v36) │
00:01:33 #4507 [verbose] > │ let v38 : int32 = 12 │
00:01:33 #4508 [verbose] > │ let v39 : US0 = US0_1 │
00:01:33 #4509 [verbose] > │ let v40 : int32 = 60 │
00:01:33 #4510 [verbose] > │ let v41 : int32 = 59 │
00:01:33 #4511 [verbose] > │ let v42 : US0 = US0_0(v41) │
00:01:33 #4512 [verbose] > │ let v43 : int32 = 6 │
00:01:33 #4513 [verbose] > │ let v44 : int32 = 7 │
00:01:33 #4514 [verbose] > │ let v45 : int32 = 3 │
00:01:33 #4515 [verbose] > │ let v46 : US0 = US0_0(v45) │
00:01:33 #4516 [verbose] > │ let v47 : int32 = 1 │
00:01:33 #4517 [verbose] > │ let v48 : int32 = 7 │
00:01:33 #4518 [verbose] > │ let v49 : int32 = 0 │
00:01:33 #4519 [verbose] > │ let v50 : US0 = US0_0(v49) │
00:01:33 #4520 [verbose] > │ let v51 : int32 = 11 │
00:01:33 #4521 [verbose] > │ let v52 : int32 = 7 │
00:01:33 #4522 [verbose] > │ let v53 : int32 = 6 │
00:01:33 #4523 [verbose] > │ let v54 : US0 = US0_0(v53) │
00:01:33 #4524 [verbose] > │ let v55 : int32 = 12 │
00:01:33 #4525 [verbose] > │ let v56 : int32 = 7 │
00:01:33 #4526 [verbose] > │ let v57 : US0 = US0_1 │
00:01:33 #4527 [verbose] > │ let v58 : int32 = 60 │
00:01:33 #4528 [verbose] > │ let v59 : int32 = 100 │
00:01:33 #4529 [verbose] > │ let v60 : int32 = 59 │
00:01:33 #4530 [verbose] > │ let v61 : US0 = US0_0(v60) │
00:01:33 #4531 [verbose] > │ let v62 : UH0 = UH0_0 │
00:01:33 #4532 [verbose] > │ let v63 : UH0 = UH0_1(v19, v58, v59, v61, v62) │
00:01:33 #4533 [verbose] > │ let v64 : UH0 = UH0_1(v18, v55, v56, v57, v63) │
00:01:33 #4534 [verbose] > │ let v65 : UH0 = UH0_1(v17, v51, v52, v54, v64) │
00:01:33 #4535 [verbose] > │ let v66 : UH0 = UH0_1(v16, v47, v48, v50, v65) │
00:01:33 #4536 [verbose] > │ let v67 : UH0 = UH0_1(v15, v43, v44, v46, v66) │
00:01:33 #4537 [verbose] > │ let v68 : UH0 = UH0_1(v8, v40, v14, v42, v67) │
00:01:33 #4538 [verbose] > │ let v69 : UH0 = UH0_1(v6, v38, v7, v39, v68) │
00:01:33 #4539 [verbose] > │ let v70 : UH0 = UH0_1(v4, v35, v5, v37, v69) │
00:01:33 #4540 [verbose] > │ let v71 : UH0 = UH0_1(v2, v32, v3, v34, v70) │
00:01:33 #4541 [verbose] > │ let v72 : UH0 = UH0_1(v0, v29, v1, v31, v71) │
00:01:33 #4542 [verbose] > │ let v73 : (struct ((int32 []) * int32 * int32 * US0) []) = method2(v72) │
00:01:33 #4543 [verbose] > │ let v74 : uint64 = System.Convert.ToUInt64 v73.Length │
00:01:33 #4544 [verbose] > │ let v75 : (struct (string * string * string * (int64 [])) []) = │
00:01:33 #4545 [verbose] > │ Array.zeroCreate<struct (string * string * string * (int64 []))> │
00:01:33 #4546 [verbose] > │ (System.Convert.ToInt32(v74)) │
00:01:33 #4547 [verbose] > │ let v76 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4548 [verbose] > │ while method5(v74, v76) do │
00:01:33 #4549 [verbose] > │ let v78 : uint64 = v76.l0 │
00:01:33 #4550 [verbose] > │ let struct (v79 : (int32 []), v80 : int32, v81 : int32, v82 : US0) = │
00:01:33 #4551 [verbose] > │ v73.[int v78] │
00:01:33 #4552 [verbose] > │ let v83 : string = $"%A{struct (v79, v80, v81)}" │
00:01:33 #4553 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #4554 [verbose] > │ let v84 : string = $"Solution: {v83} " │
00:01:33 #4555 [verbose] > │ System.Console.WriteLine v84 │
00:01:33 #4556 [verbose] > │ let v85 : int32 = 0 │
00:01:33 #4557 [verbose] > │ let v86 : string = "semi_open_1" │
00:01:33 #4558 [verbose] > │ let v87 : (struct ((int32 []) * int32 * int32) -> US0) = closure1() │
00:01:33 #4559 [verbose] > │ let v88 : int32 = 1 │
00:01:33 #4560 [verbose] > │ let v89 : string = "closed_1" │
00:01:33 #4561 [verbose] > │ let v90 : (struct ((int32 []) * int32 * int32) -> US0) = closure2() │
00:01:33 #4562 [verbose] > │ let v91 : int32 = 2 │
00:01:33 #4563 [verbose] > │ let v92 : string = "semi_open_2" │
00:01:33 #4564 [verbose] > │ let v93 : (struct ((int32 []) * int32 * int32) -> US0) = closure3() │
00:01:33 #4565 [verbose] > │ let v94 : int32 = 3 │
00:01:33 #4566 [verbose] > │ let v95 : string = "closed_2" │
00:01:33 #4567 [verbose] > │ let v96 : (struct ((int32 []) * int32 * int32) -> US0) = closure4() │
00:01:33 #4568 [verbose] > │ let v97 : UH1 = UH1_0 │
00:01:33 #4569 [verbose] > │ let v98 : UH1 = UH1_1(v94, v95, v96, v97) │
00:01:33 #4570 [verbose] > │ let v99 : UH1 = UH1_1(v91, v92, v93, v98) │
00:01:33 #4571 [verbose] > │ let v100 : UH1 = UH1_1(v88, v89, v90, v99) │
00:01:33 #4572 [verbose] > │ let v101 : UH1 = UH1_1(v85, v86, v87, v100) │
00:01:33 #4573 [verbose] > │ let v102 : (struct (int32 * string * (struct ((int32 []) * int32 * │
00:01:33 #4574 [verbose] > │ int32) -> US0)) []) = method10(v101) │
00:01:33 #4575 [verbose] > │ let v103 : uint64 = System.Convert.ToUInt64 v102.Length │
00:01:33 #4576 [verbose] > │ let v104 : (struct (US0 * int64) []) = Array.zeroCreate<struct (US0 │
00:01:33 #4577 [verbose] > │ * int64)> (System.Convert.ToInt32(v103)) │
00:01:33 #4578 [verbose] > │ let v105 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4579 [verbose] > │ while method5(v103, v105) do │
00:01:33 #4580 [verbose] > │ let v107 : uint64 = v105.l0 │
00:01:33 #4581 [verbose] > │ let struct (v108 : int32, v109 : string, v110 : (struct ((int32 │
00:01:33 #4582 [verbose] > │ []) * int32 * int32) -> US0)) = v102.[int v107] │
00:01:33 #4583 [verbose] > │ let v111 : unit option = None │
00:01:33 #4584 [verbose] > │ let mutable _v111 = v111 │
00:01:33 #4585 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #4586 [verbose] > │ () │
00:01:33 #4587 [verbose] > │ #endif │
00:01:33 #4588 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #4589 [verbose] > │ () │
00:01:33 #4590 [verbose] > │ #endif │
00:01:33 #4591 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #4592 [verbose] > │ () │
00:01:33 #4593 [verbose] > │ #endif │
00:01:33 #4594 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #4595 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #4596 [verbose] > │ System.GC.Collect () │
00:01:33 #4597 [verbose] > │ () │
00:01:33 #4598 [verbose] > │ #endif │
00:01:33 #4599 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #4600 [verbose] > │ () │
00:01:33 #4601 [verbose] > │ #endif │
00:01:33 #4602 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #4603 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #4604 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #4605 [verbose] > │ () │
00:01:33 #4606 [verbose] > │ #endif │
00:01:33 #4607 [verbose] > │ |> fun x -> _v111 <- Some x │
00:01:33 #4608 [verbose] > │ _v111.Value │
00:01:33 #4609 [verbose] > │ let v112 : (unit -> System.Diagnostics.Stopwatch) = │
00:01:33 #4610 [verbose] > │ System.Diagnostics.Stopwatch │
00:01:33 #4611 [verbose] > │ let v113 : System.Diagnostics.Stopwatch = v112 () │
00:01:33 #4612 [verbose] > │ v113.Start () │
00:01:33 #4613 [verbose] > │ let v114 : int64 = v113.ElapsedMilliseconds │
00:01:33 #4614 [verbose] > │ let v115 : (int32 []) = Array.zeroCreate<int32> (8000001) │
00:01:33 #4615 [verbose] > │ let v116 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #4616 [verbose] > │ while method13(v116) do │
00:01:33 #4617 [verbose] > │ let v118 : int32 = v116.l0 │
00:01:33 #4618 [verbose] > │ v115.[int v118] <- v118 │
00:01:33 #4619 [verbose] > │ let v119 : int32 = v118 + 1 │
00:01:33 #4620 [verbose] > │ v116.l0 <- v119 │
00:01:33 #4621 [verbose] > │ () │
00:01:33 #4622 [verbose] > │ let v120 : ((int32 -> US0) -> ((int32 []) -> (US0 []))) = │
00:01:33 #4623 [verbose] > │ Array.Parallel.map │
00:01:33 #4624 [verbose] > │ let v121 : (int32 -> US0) = closure5(v79, v80, v81, v110) │
00:01:33 #4625 [verbose] > │ let v122 : ((int32 []) -> (US0 [])) = v120 v121 │
00:01:33 #4626 [verbose] > │ let v123 : (US0 []) = v122 v115 │
00:01:33 #4627 [verbose] > │ let v124 : int32 = v123.Length │
00:01:33 #4628 [verbose] > │ let v125 : int32 = v124 - 1 │
00:01:33 #4629 [verbose] > │ let v126 : US0 = v123.[int v125] │
00:01:33 #4630 [verbose] > │ let v127 : int64 = v113.ElapsedMilliseconds │
00:01:33 #4631 [verbose] > │ let v128 : int64 = v127 - v114 │
00:01:33 #4632 [verbose] > │ let v129 : string = $"Test case {v108 + 1}. {v109}. Time: {v128} │
00:01:33 #4633 [verbose] > │ " │
00:01:33 #4634 [verbose] > │ System.Console.WriteLine v129 │
00:01:33 #4635 [verbose] > │ v104.[int v107] <- struct (v126, v128) │
00:01:33 #4636 [verbose] > │ let v130 : uint64 = v107 + 1UL │
00:01:33 #4637 [verbose] > │ v105.l0 <- v130 │
00:01:33 #4638 [verbose] > │ () │
00:01:33 #4639 [verbose] > │ let v131 : uint64 = System.Convert.ToUInt64 v104.Length │
00:01:33 #4640 [verbose] > │ let v132 : (US0 []) = Array.zeroCreate<US0> │
00:01:33 #4641 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4642 [verbose] > │ let v133 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4643 [verbose] > │ while method5(v131, v133) do │
00:01:33 #4644 [verbose] > │ let v135 : uint64 = v133.l0 │
00:01:33 #4645 [verbose] > │ let struct (v136 : US0, v137 : int64) = v104.[int v135] │
00:01:33 #4646 [verbose] > │ v132.[int v135] <- v136 │
00:01:33 #4647 [verbose] > │ let v138 : uint64 = v135 + 1UL │
00:01:33 #4648 [verbose] > │ v133.l0 <- v138 │
00:01:33 #4649 [verbose] > │ () │
00:01:33 #4650 [verbose] > │ let v139 : uint64 = System.Convert.ToUInt64 v132.Length │
00:01:33 #4651 [verbose] > │ let v140 : bool = v139 <= 1UL │
00:01:33 #4652 [verbose] > │ if v140 then │
00:01:33 #4653 [verbose] > │ () │
00:01:33 #4654 [verbose] > │ else │
00:01:33 #4655 [verbose] > │ let v141 : US0 = v132.[int 0UL] │
00:01:33 #4656 [verbose] > │ let v142 : uint64 = 0UL │
00:01:33 #4657 [verbose] > │ let v143 : bool = method14(v141, v132, v142) │
00:01:33 #4658 [verbose] > │ if v143 then │
00:01:33 #4659 [verbose] > │ () │
00:01:33 #4660 [verbose] > │ else │
00:01:33 #4661 [verbose] > │ let v144 : string = $"Challenge error: {v132}" │
00:01:33 #4662 [verbose] > │ failwith<unit> v144 │
00:01:33 #4663 [verbose] > │ let v145 : string = $"%A{v82}" │
00:01:33 #4664 [verbose] > │ let v146 : (US0 []) = Array.zeroCreate<US0> │
00:01:33 #4665 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4666 [verbose] > │ let v147 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4667 [verbose] > │ while method5(v131, v147) do │
00:01:33 #4668 [verbose] > │ let v149 : uint64 = v147.l0 │
00:01:33 #4669 [verbose] > │ let struct (v150 : US0, v151 : int64) = v104.[int v149] │
00:01:33 #4670 [verbose] > │ v146.[int v149] <- v150 │
00:01:33 #4671 [verbose] > │ let v152 : uint64 = v149 + 1UL │
00:01:33 #4672 [verbose] > │ v147.l0 <- v152 │
00:01:33 #4673 [verbose] > │ () │
00:01:33 #4674 [verbose] > │ let v153 : US0 = v146.[int 0UL] │
00:01:33 #4675 [verbose] > │ let v154 : string = $"%A{v153}" │
00:01:33 #4676 [verbose] > │ let v155 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4677 [verbose] > │ (System.Convert.ToInt32(v131)) │
00:01:33 #4678 [verbose] > │ let v156 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4679 [verbose] > │ while method5(v131, v156) do │
00:01:33 #4680 [verbose] > │ let v158 : uint64 = v156.l0 │
00:01:33 #4681 [verbose] > │ let struct (v159 : US0, v160 : int64) = v104.[int v158] │
00:01:33 #4682 [verbose] > │ v155.[int v158] <- v160 │
00:01:33 #4683 [verbose] > │ let v161 : uint64 = v158 + 1UL │
00:01:33 #4684 [verbose] > │ v156.l0 <- v161 │
00:01:33 #4685 [verbose] > │ () │
00:01:33 #4686 [verbose] > │ v75.[int v78] <- struct (v145, v83, v154, v155) │
00:01:33 #4687 [verbose] > │ let v162 : uint64 = v78 + 1UL │
00:01:33 #4688 [verbose] > │ v76.l0 <- v162 │
00:01:33 #4689 [verbose] > │ () │
00:01:33 #4690 [verbose] > │ let v163 : uint64 = System.Convert.ToUInt64 v75.Length │
00:01:33 #4691 [verbose] > │ let v164 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:33 #4692 [verbose] > │ US1)> (System.Convert.ToInt32(v163)) │
00:01:33 #4693 [verbose] > │ let v165 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4694 [verbose] > │ while method5(v163, v165) do │
00:01:33 #4695 [verbose] > │ let v167 : uint64 = v165.l0 │
00:01:33 #4696 [verbose] > │ let struct (v168 : string, v169 : string, v170 : string, v171 : │
00:01:33 #4697 [verbose] > │ (int64 [])) = v75.[int v167] │
00:01:33 #4698 [verbose] > │ let v172 : uint64 = System.Convert.ToUInt64 v171.Length │
00:01:33 #4699 [verbose] > │ let v173 : UH3 = UH3_0 │
00:01:33 #4700 [verbose] > │ let v174 : Mut2 = {l0 = 0UL; l1 = v173; l2 = 0L} : Mut2 │
00:01:33 #4701 [verbose] > │ while method15(v172, v174) do │
00:01:33 #4702 [verbose] > │ let v176 : uint64 = v174.l0 │
00:01:33 #4703 [verbose] > │ let struct (v177 : UH3, v178 : int64) = v174.l1, v174.l2 │
00:01:33 #4704 [verbose] > │ let v179 : int64 = v171.[int v176] │
00:01:33 #4705 [verbose] > │ let v180 : int64 = v178 + 1L │
00:01:33 #4706 [verbose] > │ let v181 : uint64 = v176 + 1UL │
00:01:33 #4707 [verbose] > │ let v182 : UH3 = UH3_1(v178, v179, v177) │
00:01:33 #4708 [verbose] > │ v174.l0 <- v181 │
00:01:33 #4709 [verbose] > │ v174.l1 <- v182 │
00:01:33 #4710 [verbose] > │ v174.l2 <- v180 │
00:01:33 #4711 [verbose] > │ () │
00:01:33 #4712 [verbose] > │ let struct (v183 : UH3, v184 : int64) = v174.l1, v174.l2 │
00:01:33 #4713 [verbose] > │ let v185 : UH3 = UH3_0 │
00:01:33 #4714 [verbose] > │ let v186 : UH3 = method16(v183, v185) │
00:01:33 #4715 [verbose] > │ let v187 : (struct (int64 * int64) []) = method17(v186) │
00:01:33 #4716 [verbose] > │ let v188 : int32 = v187.Length │
00:01:33 #4717 [verbose] > │ let v189 : (struct (int64 * int64) []) = Array.zeroCreate<struct │
00:01:33 #4718 [verbose] > │ (int64 * int64)> (v188) │
00:01:33 #4719 [verbose] > │ let v190 : Mut0 = {l0 = 0} : Mut0 │
00:01:33 #4720 [verbose] > │ while method20(v188, v190) do │
00:01:33 #4721 [verbose] > │ let v192 : int32 = v190.l0 │
00:01:33 #4722 [verbose] > │ let struct (v193 : int64, v194 : int64) = v187.[int v192] │
00:01:33 #4723 [verbose] > │ let v195 : int64 = v193 + 1L │
00:01:33 #4724 [verbose] > │ v189.[int v192] <- struct (v195, v194) │
00:01:33 #4725 [verbose] > │ let v196 : int32 = v192 + 1 │
00:01:33 #4726 [verbose] > │ v190.l0 <- v196 │
00:01:33 #4727 [verbose] > │ () │
00:01:33 #4728 [verbose] > │ let v197 : ((struct (int64 * int64) -> int64) -> ((struct (int64 * │
00:01:33 #4729 [verbose] > │ int64) []) -> (struct (int64 * int64) []))) = Array.sortBy │
00:01:33 #4730 [verbose] > │ let v198 : (struct (int64 * int64) -> int64) = closure6() │
00:01:33 #4731 [verbose] > │ let v199 : ((struct (int64 * int64) []) -> (struct (int64 * int64) [ │
00:01:33 #4732 [verbose] > │ ])) = v197 v198 │
00:01:33 #4733 [verbose] > │ let v200 : (struct (int64 * int64) []) = v199 v189 │
00:01:33 #4734 [verbose] > │ let struct (v201 : int64, v202 : int64) = v200.[int 0] │
00:01:33 #4735 [verbose] > │ let v203 : string = $"%A{struct (v201, v202)}" │
00:01:33 #4736 [verbose] > │ let v204 : bool = v168 = v170 │
00:01:33 #4737 [verbose] > │ let v209 : US1 = │
00:01:33 #4738 [verbose] > │ if v204 then │
00:01:33 #4739 [verbose] > │ let v205 : System.ConsoleColor = │
00:01:33 #4740 [verbose] > │ System.ConsoleColor.DarkGreen │
00:01:33 #4741 [verbose] > │ US1_0(v205) │
00:01:33 #4742 [verbose] > │ else │
00:01:33 #4743 [verbose] > │ let v207 : System.ConsoleColor = System.ConsoleColor.DarkRed │
00:01:33 #4744 [verbose] > │ US1_0(v207) │
00:01:33 #4745 [verbose] > │ let v210 : UH2 = UH2_0 │
00:01:33 #4746 [verbose] > │ let v211 : UH2 = UH2_1(v203, v210) │
00:01:33 #4747 [verbose] > │ let v212 : UH2 = UH2_1(v170, v211) │
00:01:33 #4748 [verbose] > │ let v213 : UH2 = UH2_1(v168, v212) │
00:01:33 #4749 [verbose] > │ let v214 : UH2 = UH2_1(v169, v213) │
00:01:33 #4750 [verbose] > │ v164.[int v167] <- struct (v214, v209) │
00:01:33 #4751 [verbose] > │ let v215 : uint64 = v167 + 1UL │
00:01:33 #4752 [verbose] > │ v165.l0 <- v215 │
00:01:33 #4753 [verbose] > │ () │
00:01:33 #4754 [verbose] > │ let v216 : string = "Input" │
00:01:33 #4755 [verbose] > │ let v217 : string = "Expected" │
00:01:33 #4756 [verbose] > │ let v218 : string = "Result" │
00:01:33 #4757 [verbose] > │ let v219 : string = "Best" │
00:01:33 #4758 [verbose] > │ let v220 : UH2 = UH2_0 │
00:01:33 #4759 [verbose] > │ let v221 : UH2 = UH2_1(v219, v220) │
00:01:33 #4760 [verbose] > │ let v222 : UH2 = UH2_1(v218, v221) │
00:01:33 #4761 [verbose] > │ let v223 : UH2 = UH2_1(v217, v222) │
00:01:33 #4762 [verbose] > │ let v224 : UH2 = UH2_1(v216, v223) │
00:01:33 #4763 [verbose] > │ let v225 : US1 = US1_1 │
00:01:33 #4764 [verbose] > │ let v226 : string = "---" │
00:01:33 #4765 [verbose] > │ let v227 : UH2 = UH2_0 │
00:01:33 #4766 [verbose] > │ let v228 : UH2 = UH2_1(v226, v227) │
00:01:33 #4767 [verbose] > │ let v229 : UH2 = UH2_1(v226, v228) │
00:01:33 #4768 [verbose] > │ let v230 : UH2 = UH2_1(v226, v229) │
00:01:33 #4769 [verbose] > │ let v231 : UH2 = UH2_1(v226, v230) │
00:01:33 #4770 [verbose] > │ let v232 : US1 = US1_1 │
00:01:33 #4771 [verbose] > │ let v233 : UH4 = UH4_0 │
00:01:33 #4772 [verbose] > │ let v234 : UH4 = UH4_1(v231, v232, v233) │
00:01:33 #4773 [verbose] > │ let v235 : UH4 = UH4_1(v224, v225, v234) │
00:01:33 #4774 [verbose] > │ let v236 : (struct (UH2 * US1) []) = method21(v235) │
00:01:33 #4775 [verbose] > │ let v237 : uint64 = System.Convert.ToUInt64 v236.Length │
00:01:33 #4776 [verbose] > │ let v238 : uint64 = System.Convert.ToUInt64 v164.Length │
00:01:33 #4777 [verbose] > │ let v239 : uint64 = v237 + v238 │
00:01:33 #4778 [verbose] > │ let v240 : (struct (UH2 * US1) []) = Array.zeroCreate<struct (UH2 * │
00:01:33 #4779 [verbose] > │ US1)> (System.Convert.ToInt32(v239)) │
00:01:33 #4780 [verbose] > │ let v241 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4781 [verbose] > │ while method5(v239, v241) do │
00:01:33 #4782 [verbose] > │ let v243 : uint64 = v241.l0 │
00:01:33 #4783 [verbose] > │ let v244 : bool = v243 < v237 │
00:01:33 #4784 [verbose] > │ let struct (v250 : UH2, v251 : US1) = │
00:01:33 #4785 [verbose] > │ if v244 then │
00:01:33 #4786 [verbose] > │ let struct (v245 : UH2, v246 : US1) = v236.[int v243] │
00:01:33 #4787 [verbose] > │ struct (v245, v246) │
00:01:33 #4788 [verbose] > │ else │
00:01:33 #4789 [verbose] > │ let v247 : uint64 = v243 - v237 │
00:01:33 #4790 [verbose] > │ let struct (v248 : UH2, v249 : US1) = v164.[int v247] │
00:01:33 #4791 [verbose] > │ struct (v248, v249) │
00:01:33 #4792 [verbose] > │ v240.[int v243] <- struct (v250, v251) │
00:01:33 #4793 [verbose] > │ let v252 : uint64 = v243 + 1UL │
00:01:33 #4794 [verbose] > │ v241.l0 <- v252 │
00:01:33 #4795 [verbose] > │ () │
00:01:33 #4796 [verbose] > │ let v253 : uint64 = System.Convert.ToUInt64 v240.Length │
00:01:33 #4797 [verbose] > │ let v254 : ((string []) []) = Array.zeroCreate<(string [])> │
00:01:33 #4798 [verbose] > │ (System.Convert.ToInt32(v253)) │
00:01:33 #4799 [verbose] > │ let v255 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4800 [verbose] > │ while method5(v253, v255) do │
00:01:33 #4801 [verbose] > │ let v257 : uint64 = v255.l0 │
00:01:33 #4802 [verbose] > │ let struct (v258 : UH2, v259 : US1) = v240.[int v257] │
00:01:33 #4803 [verbose] > │ let v260 : (string []) = method24(v258) │
00:01:33 #4804 [verbose] > │ v254.[int v257] <- v260 │
00:01:33 #4805 [verbose] > │ let v261 : uint64 = v257 + 1UL │
00:01:33 #4806 [verbose] > │ v255.l0 <- v261 │
00:01:33 #4807 [verbose] > │ () │
00:01:33 #4808 [verbose] > │ let v262 : (((string []) []) -> ((string []) [])) = Array.transpose │
00:01:33 #4809 [verbose] > │ let v263 : ((string []) []) = v262 v254 │
00:01:33 #4810 [verbose] > │ let v264 : uint64 = System.Convert.ToUInt64 v263.Length │
00:01:33 #4811 [verbose] > │ let v265 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4812 [verbose] > │ (System.Convert.ToInt32(v264)) │
00:01:33 #4813 [verbose] > │ let v266 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4814 [verbose] > │ while method5(v264, v266) do │
00:01:33 #4815 [verbose] > │ let v268 : uint64 = v266.l0 │
00:01:33 #4816 [verbose] > │ let v269 : (string []) = v263.[int v268] │
00:01:33 #4817 [verbose] > │ let v270 : uint64 = System.Convert.ToUInt64 v269.Length │
00:01:33 #4818 [verbose] > │ let v271 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #4819 [verbose] > │ (System.Convert.ToInt32(v270)) │
00:01:33 #4820 [verbose] > │ let v272 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4821 [verbose] > │ while method5(v270, v272) do │
00:01:33 #4822 [verbose] > │ let v274 : uint64 = v272.l0 │
00:01:33 #4823 [verbose] > │ let v275 : string = v269.[int v274] │
00:01:33 #4824 [verbose] > │ let v276 : int64 = System.Convert.ToInt64 v275.Length │
00:01:33 #4825 [verbose] > │ v271.[int v274] <- v276 │
00:01:33 #4826 [verbose] > │ let v277 : uint64 = v274 + 1UL │
00:01:33 #4827 [verbose] > │ v272.l0 <- v277 │
00:01:33 #4828 [verbose] > │ () │
00:01:33 #4829 [verbose] > │ let v278 : ((int64 []) -> (int64 [])) = Array.sortDescending │
00:01:33 #4830 [verbose] > │ let v279 : (int64 []) = v278 v271 │
00:01:33 #4831 [verbose] > │ let v280 : (int32 -> ((int64 []) -> int64 option)) = Array.tryItem │
00:01:33 #4832 [verbose] > │ let v281 : ((int64 []) -> int64 option) = v280 0 │
00:01:33 #4833 [verbose] > │ let v282 : int64 option = v281 v279 │
00:01:33 #4834 [verbose] > │ let v283 : (int64 -> US2) = method27() │
00:01:33 #4835 [verbose] > │ let v284 : US2 = US2_1 │
00:01:33 #4836 [verbose] > │ let v285 : US2 = v282 |> Option.map v283 |> Option.defaultValue v284 │
00:01:33 #4837 [verbose] > │ let v288 : int64 = │
00:01:33 #4838 [verbose] > │ match v285 with │
00:01:33 #4839 [verbose] > │ | US2_1 -> (* None *) │
00:01:33 #4840 [verbose] > │ 0L │
00:01:33 #4841 [verbose] > │ | US2_0(v286) -> (* Some *) │
00:01:33 #4842 [verbose] > │ v286 │
00:01:33 #4843 [verbose] > │ v265.[int v268] <- v288 │
00:01:33 #4844 [verbose] > │ let v289 : uint64 = v268 + 1UL │
00:01:33 #4845 [verbose] > │ v266.l0 <- v289 │
00:01:33 #4846 [verbose] > │ () │
00:01:33 #4847 [verbose] > │ let v290 : uint64 = System.Convert.ToUInt64 v265.Length │
00:01:33 #4848 [verbose] > │ let v291 : UH5 = UH5_0 │
00:01:33 #4849 [verbose] > │ let v292 : Mut3 = {l0 = 0UL; l1 = v291; l2 = 0} : Mut3 │
00:01:33 #4850 [verbose] > │ while method28(v290, v292) do │
00:01:33 #4851 [verbose] > │ let v294 : uint64 = v292.l0 │
00:01:33 #4852 [verbose] > │ let struct (v295 : UH5, v296 : int32) = v292.l1, v292.l2 │
00:01:33 #4853 [verbose] > │ let v297 : int64 = v265.[int v294] │
00:01:33 #4854 [verbose] > │ let v298 : int32 = v296 + 1 │
00:01:33 #4855 [verbose] > │ let v299 : uint64 = v294 + 1UL │
00:01:33 #4856 [verbose] > │ let v300 : UH5 = UH5_1(v296, v297, v295) │
00:01:33 #4857 [verbose] > │ v292.l0 <- v299 │
00:01:33 #4858 [verbose] > │ v292.l1 <- v300 │
00:01:33 #4859 [verbose] > │ v292.l2 <- v298 │
00:01:33 #4860 [verbose] > │ () │
00:01:33 #4861 [verbose] > │ let struct (v301 : UH5, v302 : int32) = v292.l1, v292.l2 │
00:01:33 #4862 [verbose] > │ let v303 : UH5 = UH5_0 │
00:01:33 #4863 [verbose] > │ let v304 : UH5 = method29(v301, v303) │
00:01:33 #4864 [verbose] > │ let v305 : (struct (int32 * int64) []) = method30(v304) │
00:01:33 #4865 [verbose] > │ let v306 : Map<int32, int64> = v305 |> Array.map (fun (struct (a, b)) -> │
00:01:33 #4866 [verbose] > │ a, b) |> Map.ofArray │
00:01:33 #4867 [verbose] > │ let v307 : (struct ((string []) * US1) []) = Array.zeroCreate<struct │
00:01:33 #4868 [verbose] > │ ((string []) * US1)> (System.Convert.ToInt32(v253)) │
00:01:33 #4869 [verbose] > │ let v308 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4870 [verbose] > │ while method5(v253, v308) do │
00:01:33 #4871 [verbose] > │ let v310 : uint64 = v308.l0 │
00:01:33 #4872 [verbose] > │ let struct (v311 : UH2, v312 : US1) = v240.[int v310] │
00:01:33 #4873 [verbose] > │ let v313 : UH6 = UH6_0 │
00:01:33 #4874 [verbose] > │ let v314 : int32 = 0 │
00:01:33 #4875 [verbose] > │ let struct (v315 : UH6, v316 : int32) = method33(v311, v313, v314) │
00:01:33 #4876 [verbose] > │ let v317 : UH6 = UH6_0 │
00:01:33 #4877 [verbose] > │ let v318 : UH6 = method34(v315, v317) │
00:01:33 #4878 [verbose] > │ let v319 : UH2 = UH2_0 │
00:01:33 #4879 [verbose] > │ let v320 : UH2 = method35(v306, v318, v319) │
00:01:33 #4880 [verbose] > │ let v321 : (string []) = method36(v320) │
00:01:33 #4881 [verbose] > │ v307.[int v310] <- struct (v321, v312) │
00:01:33 #4882 [verbose] > │ let v322 : uint64 = v310 + 1UL │
00:01:33 #4883 [verbose] > │ v308.l0 <- v322 │
00:01:33 #4884 [verbose] > │ () │
00:01:33 #4885 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #4886 [verbose] > │ let v323 : uint64 = System.Convert.ToUInt64 v307.Length │
00:01:33 #4887 [verbose] > │ let v324 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4888 [verbose] > │ while method5(v323, v324) do │
00:01:33 #4889 [verbose] > │ let v326 : uint64 = v324.l0 │
00:01:33 #4890 [verbose] > │ let struct (v327 : (string []), v328 : US1) = v307.[int v326] │
00:01:33 #4891 [verbose] > │ match v328 with │
00:01:33 #4892 [verbose] > │ | US1_1 -> (* None *) │
00:01:33 #4893 [verbose] > │ let v331 : unit option = None │
00:01:33 #4894 [verbose] > │ let mutable _v331 = v331 │
00:01:33 #4895 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #4896 [verbose] > │ () │
00:01:33 #4897 [verbose] > │ #endif │
00:01:33 #4898 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #4899 [verbose] > │ () │
00:01:33 #4900 [verbose] > │ #endif │
00:01:33 #4901 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #4902 [verbose] > │ () │
00:01:33 #4903 [verbose] > │ #endif │
00:01:33 #4904 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #4905 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #4906 [verbose] > │ System.Console.ResetColor () │
00:01:33 #4907 [verbose] > │ () │
00:01:33 #4908 [verbose] > │ #endif │
00:01:33 #4909 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #4910 [verbose] > │ () │
00:01:33 #4911 [verbose] > │ #endif │
00:01:33 #4912 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #4913 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #4914 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #4915 [verbose] > │ () │
00:01:33 #4916 [verbose] > │ #endif │
00:01:33 #4917 [verbose] > │ |> fun x -> _v331 <- Some x │
00:01:33 #4918 [verbose] > │ _v331.Value │
00:01:33 #4919 [verbose] > │ () │
00:01:33 #4920 [verbose] > │ | US1_0(v329) -> (* Some *) │
00:01:33 #4921 [verbose] > │ let v330 : unit option = None │
00:01:33 #4922 [verbose] > │ let mutable _v330 = v330 │
00:01:33 #4923 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #4924 [verbose] > │ () │
00:01:33 #4925 [verbose] > │ #endif │
00:01:33 #4926 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #4927 [verbose] > │ () │
00:01:33 #4928 [verbose] > │ #endif │
00:01:33 #4929 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #4930 [verbose] > │ () │
00:01:33 #4931 [verbose] > │ #endif │
00:01:33 #4932 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #4933 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #4934 [verbose] > │ System.Console.ForegroundColor <- v329 │
00:01:33 #4935 [verbose] > │ () │
00:01:33 #4936 [verbose] > │ #endif │
00:01:33 #4937 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #4938 [verbose] > │ () │
00:01:33 #4939 [verbose] > │ #endif │
00:01:33 #4940 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #4941 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #4942 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #4943 [verbose] > │ () │
00:01:33 #4944 [verbose] > │ #endif │
00:01:33 #4945 [verbose] > │ |> fun x -> _v330 <- Some x │
00:01:33 #4946 [verbose] > │ _v330.Value │
00:01:33 #4947 [verbose] > │ () │
00:01:33 #4948 [verbose] > │ let v332 : string = "\t| " │
00:01:33 #4949 [verbose] > │ let v333 : string = System.String.Join (v332, v327) │
00:01:33 #4950 [verbose] > │ System.Console.WriteLine v333 │
00:01:33 #4951 [verbose] > │ let v334 : unit option = None │
00:01:33 #4952 [verbose] > │ let mutable _v334 = v334 │
00:01:33 #4953 [verbose] > │ #if FABLE_COMPILER_RUST && !WASM && !CONTRACT │
00:01:33 #4954 [verbose] > │ () │
00:01:33 #4955 [verbose] > │ #endif │
00:01:33 #4956 [verbose] > │ #if FABLE_COMPILER_RUST && WASM │
00:01:33 #4957 [verbose] > │ () │
00:01:33 #4958 [verbose] > │ #endif │
00:01:33 #4959 [verbose] > │ #if FABLE_COMPILER_RUST && CONTRACT │
00:01:33 #4960 [verbose] > │ () │
00:01:33 #4961 [verbose] > │ #endif │
00:01:33 #4962 [verbose] > │ #if !FABLE_COMPILER && !FABLE_COMPILER_RUST && │
00:01:33 #4963 [verbose] > │ !FABLE_COMPILER_TYPESCRIPT && !WASM && !CONTRACT │
00:01:33 #4964 [verbose] > │ System.Console.ResetColor () │
00:01:33 #4965 [verbose] > │ () │
00:01:33 #4966 [verbose] > │ #endif │
00:01:33 #4967 [verbose] > │ #if FABLE_COMPILER_TYPESCRIPT │
00:01:33 #4968 [verbose] > │ () │
00:01:33 #4969 [verbose] > │ #endif │
00:01:33 #4970 [verbose] > │ #if FABLE_COMPILER_PYTHON || FABLE_COMPILER_PHP || │
00:01:33 #4971 [verbose] > │ FABLE_COMPILER_DART │
00:01:33 #4972 [verbose] > │ Unchecked.defaultof<unit> │
00:01:33 #4973 [verbose] > │ () │
00:01:33 #4974 [verbose] > │ #endif │
00:01:33 #4975 [verbose] > │ |> fun x -> _v334 <- Some x │
00:01:33 #4976 [verbose] > │ _v334.Value │
00:01:33 #4977 [verbose] > │ let v335 : uint64 = v326 + 1UL │
00:01:33 #4978 [verbose] > │ v324.l0 <- v335 │
00:01:33 #4979 [verbose] > │ () │
00:01:33 #4980 [verbose] > │ let v336 : ((float []) []) = Array.zeroCreate<(float [])> │
00:01:33 #4981 [verbose] > │ (System.Convert.ToInt32(v163)) │
00:01:33 #4982 [verbose] > │ let v337 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4983 [verbose] > │ while method5(v163, v337) do │
00:01:33 #4984 [verbose] > │ let v339 : uint64 = v337.l0 │
00:01:33 #4985 [verbose] > │ let struct (v340 : string, v341 : string, v342 : string, v343 : │
00:01:33 #4986 [verbose] > │ (int64 [])) = v75.[int v339] │
00:01:33 #4987 [verbose] > │ let v344 : (int64 -> float) = float │
00:01:33 #4988 [verbose] > │ let v345 : uint64 = System.Convert.ToUInt64 v343.Length │
00:01:33 #4989 [verbose] > │ let v346 : (float []) = Array.zeroCreate<float> │
00:01:33 #4990 [verbose] > │ (System.Convert.ToInt32(v345)) │
00:01:33 #4991 [verbose] > │ let v347 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #4992 [verbose] > │ while method5(v345, v347) do │
00:01:33 #4993 [verbose] > │ let v349 : uint64 = v347.l0 │
00:01:33 #4994 [verbose] > │ let v350 : int64 = v343.[int v349] │
00:01:33 #4995 [verbose] > │ let v351 : float = v344 v350 │
00:01:33 #4996 [verbose] > │ v346.[int v349] <- v351 │
00:01:33 #4997 [verbose] > │ let v352 : uint64 = v349 + 1UL │
00:01:33 #4998 [verbose] > │ v347.l0 <- v352 │
00:01:33 #4999 [verbose] > │ () │
00:01:33 #5000 [verbose] > │ v336.[int v339] <- v346 │
00:01:33 #5001 [verbose] > │ let v353 : uint64 = v339 + 1UL │
00:01:33 #5002 [verbose] > │ v337.l0 <- v353 │
00:01:33 #5003 [verbose] > │ () │
00:01:33 #5004 [verbose] > │ let v354 : (((float []) []) -> ((float []) [])) = Array.transpose │
00:01:33 #5005 [verbose] > │ let v355 : ((float []) []) = v354 v336 │
00:01:33 #5006 [verbose] > │ let v356 : uint64 = System.Convert.ToUInt64 v355.Length │
00:01:33 #5007 [verbose] > │ let v357 : (float []) = Array.zeroCreate<float> │
00:01:33 #5008 [verbose] > │ (System.Convert.ToInt32(v356)) │
00:01:33 #5009 [verbose] > │ let v358 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #5010 [verbose] > │ while method5(v356, v358) do │
00:01:33 #5011 [verbose] > │ let v360 : uint64 = v358.l0 │
00:01:33 #5012 [verbose] > │ let v361 : (float []) = v355.[int v360] │
00:01:33 #5013 [verbose] > │ let v362 : ((float []) -> float) = Array.average │
00:01:33 #5014 [verbose] > │ let v363 : float = v362 v361 │
00:01:33 #5015 [verbose] > │ v357.[int v360] <- v363 │
00:01:33 #5016 [verbose] > │ let v364 : uint64 = v360 + 1UL │
00:01:33 #5017 [verbose] > │ v358.l0 <- v364 │
00:01:33 #5018 [verbose] > │ () │
00:01:33 #5019 [verbose] > │ let v365 : (float -> int64) = int64 │
00:01:33 #5020 [verbose] > │ let v366 : uint64 = System.Convert.ToUInt64 v357.Length │
00:01:33 #5021 [verbose] > │ let v367 : (int64 []) = Array.zeroCreate<int64> │
00:01:33 #5022 [verbose] > │ (System.Convert.ToInt32(v366)) │
00:01:33 #5023 [verbose] > │ let v368 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #5024 [verbose] > │ while method5(v366, v368) do │
00:01:33 #5025 [verbose] > │ let v370 : uint64 = v368.l0 │
00:01:33 #5026 [verbose] > │ let v371 : float = v357.[int v370] │
00:01:33 #5027 [verbose] > │ let v372 : int64 = v365 v371 │
00:01:33 #5028 [verbose] > │ v367.[int v370] <- v372 │
00:01:33 #5029 [verbose] > │ let v373 : uint64 = v370 + 1UL │
00:01:33 #5030 [verbose] > │ v368.l0 <- v373 │
00:01:33 #5031 [verbose] > │ () │
00:01:33 #5032 [verbose] > │ let v374 : uint64 = System.Convert.ToUInt64 v367.Length │
00:01:33 #5033 [verbose] > │ let v375 : UH5 = UH5_0 │
00:01:33 #5034 [verbose] > │ let v376 : Mut3 = {l0 = 0UL; l1 = v375; l2 = 0} : Mut3 │
00:01:33 #5035 [verbose] > │ while method28(v374, v376) do │
00:01:33 #5036 [verbose] > │ let v378 : uint64 = v376.l0 │
00:01:33 #5037 [verbose] > │ let struct (v379 : UH5, v380 : int32) = v376.l1, v376.l2 │
00:01:33 #5038 [verbose] > │ let v381 : int64 = v367.[int v378] │
00:01:33 #5039 [verbose] > │ let v382 : int32 = v380 + 1 │
00:01:33 #5040 [verbose] > │ let v383 : uint64 = v378 + 1UL │
00:01:33 #5041 [verbose] > │ let v384 : UH5 = UH5_1(v380, v381, v379) │
00:01:33 #5042 [verbose] > │ v376.l0 <- v383 │
00:01:33 #5043 [verbose] > │ v376.l1 <- v384 │
00:01:33 #5044 [verbose] > │ v376.l2 <- v382 │
00:01:33 #5045 [verbose] > │ () │
00:01:33 #5046 [verbose] > │ let struct (v385 : UH5, v386 : int32) = v376.l1, v376.l2 │
00:01:33 #5047 [verbose] > │ let v387 : UH5 = UH5_0 │
00:01:33 #5048 [verbose] > │ let v388 : UH5 = method29(v385, v387) │
00:01:33 #5049 [verbose] > │ let v389 : (struct (int32 * int64) []) = method39(v388) │
00:01:33 #5050 [verbose] > │ System.Console.WriteLine v27 │
00:01:33 #5051 [verbose] > │ let v390 : string = "Average Ranking " │
00:01:33 #5052 [verbose] > │ System.Console.WriteLine v390 │
00:01:33 #5053 [verbose] > │ let v391 : ((struct (int32 * int64) -> int64) -> ((struct (int32 * │
00:01:33 #5054 [verbose] > │ int64) []) -> (struct (int32 * int64) []))) = Array.sortBy │
00:01:33 #5055 [verbose] > │ let v392 : (struct (int32 * int64) -> int64) = closure8() │
00:01:33 #5056 [verbose] > │ let v393 : ((struct (int32 * int64) []) -> (struct (int32 * int64) [])) │
00:01:33 #5057 [verbose] > │ = v391 v392 │
00:01:33 #5058 [verbose] > │ let v394 : (struct (int32 * int64) []) = v393 v389 │
00:01:33 #5059 [verbose] > │ let v395 : uint64 = System.Convert.ToUInt64 v394.Length │
00:01:33 #5060 [verbose] > │ let v396 : Mut1 = {l0 = 0UL} : Mut1 │
00:01:33 #5061 [verbose] > │ while method5(v395, v396) do │
00:01:33 #5062 [verbose] > │ let v398 : uint64 = v396.l0 │
00:01:33 #5063 [verbose] > │ let struct (v399 : int32, v400 : int64) = v394.[int v398] │
00:01:33 #5064 [verbose] > │ let v401 : string = $"Test case %d{v399 + 1}. Average Time: %A{v400} │
00:01:33 #5065 [verbose] > │ " │
00:01:33 #5066 [verbose] > │ System.Console.WriteLine v401 │
00:01:33 #5067 [verbose] > │ let v402 : uint64 = v398 + 1UL │
00:01:33 #5068 [verbose] > │ v396.l0 <- v402 │
00:01:33 #5069 [verbose] > │ () │
00:01:33 #5070 [verbose] > │ () │
00:01:33 #5071 [verbose] > │ method0() │
00:01:33 #5072 [verbose] > │ │
00:01:33 #5073 [verbose] > │ │
00:01:33 #5074 [verbose] > │ │
00:01:33 #5075 [verbose] > │ Test: v25 │
00:01:33 #5076 [verbose] > │ │
00:01:33 #5077 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:33 #5078 [verbose] > │ Test case 1. semi_open_1. Time: 664 │
00:01:33 #5079 [verbose] > │ Test case 2. closed_1. Time: 541 │
00:01:33 #5080 [verbose] > │ Test case 3. semi_open_2. Time: 544 │
00:01:33 #5081 [verbose] > │ Test case 4. closed_2. Time: 545 │
00:01:33 #5082 [verbose] > │ │
00:01:33 #5083 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:33 #5084 [verbose] > │ Test case 1. semi_open_1. Time: 484 │
00:01:33 #5085 [verbose] > │ Test case 2. closed_1. Time: 472 │
00:01:33 #5086 [verbose] > │ Test case 3. semi_open_2. Time: 476 │
00:01:33 #5087 [verbose] > │ Test case 4. closed_2. Time: 461 │
00:01:33 #5088 [verbose] > │ │
00:01:33 #5089 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:33 #5090 [verbose] > │ Test case 1. semi_open_1. Time: 459 │
00:01:33 #5091 [verbose] > │ Test case 2. closed_1. Time: 465 │
00:01:33 #5092 [verbose] > │ Test case 3. semi_open_2. Time: 462 │
00:01:33 #5093 [verbose] > │ Test case 4. closed_2. Time: 461 │
00:01:33 #5094 [verbose] > │ │
00:01:33 #5095 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:33 #5096 [verbose] > │ Test case 1. semi_open_1. Time: 476 │
00:01:33 #5097 [verbose] > │ Test case 2. closed_1. Time: 474 │
00:01:33 #5098 [verbose] > │ Test case 3. semi_open_2. Time: 480 │
00:01:33 #5099 [verbose] > │ Test case 4. closed_2. Time: 466 │
00:01:33 #5100 [verbose] > │ │
00:01:33 #5101 [verbose] > │ Solution: struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; │
00:01:33 #5102 [verbose] > │ 17; 18; 19; 20; │
00:01:33 #5103 [verbose] > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:33 #5104 [verbose] > │ 37; 38; │
00:01:33 #5105 [verbose] > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:33 #5106 [verbose] > │ 55; 56; │
00:01:33 #5107 [verbose] > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:33 #5108 [verbose] > │ 73; 74; │
00:01:33 #5109 [verbose] > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:33 #5110 [verbose] > │ 91; 92; │
00:01:33 #5111 [verbose] > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) │
00:01:33 #5112 [verbose] > │ Test case 1. semi_open_1. Time: 484 │
00:01:33 #5113 [verbose] > │ Test case 2. closed_1. Time: 485 │
00:01:33 #5114 [verbose] > │ Test case 3. semi_open_2. Time: 521 │
00:01:33 #5115 [verbose] > │ Test case 4. closed_2. Time: 516 │
00:01:33 #5116 [verbose] > │ │
00:01:33 #5117 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:33 #5118 [verbose] > │ Test case 1. semi_open_1. Time: 450 │
00:01:33 #5119 [verbose] > │ Test case 2. closed_1. Time: 443 │
00:01:33 #5120 [verbose] > │ Test case 3. semi_open_2. Time: 443 │
00:01:33 #5121 [verbose] > │ Test case 4. closed_2. Time: 452 │
00:01:33 #5122 [verbose] > │ │
00:01:33 #5123 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:33 #5124 [verbose] > │ Test case 1. semi_open_1. Time: 461 │
00:01:33 #5125 [verbose] > │ Test case 2. closed_1. Time: 470 │
00:01:33 #5126 [verbose] > │ Test case 3. semi_open_2. Time: 448 │
00:01:33 #5127 [verbose] > │ Test case 4. closed_2. Time: 473 │
00:01:33 #5128 [verbose] > │ │
00:01:33 #5129 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:33 #5130 [verbose] > │ Test case 1. semi_open_1. Time: 475 │
00:01:33 #5131 [verbose] > │ Test case 2. closed_1. Time: 467 │
00:01:33 #5132 [verbose] > │ Test case 3. semi_open_2. Time: 477 │
00:01:33 #5133 [verbose] > │ Test case 4. closed_2. Time: 488 │
00:01:33 #5134 [verbose] > │ │
00:01:33 #5135 [verbose] > │ Solution: struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:33 #5136 [verbose] > │ Test case 1. semi_open_1. Time: 490 │
00:01:33 #5137 [verbose] > │ Test case 2. closed_1. Time: 471 │
00:01:33 #5138 [verbose] > │ Test case 3. semi_open_2. Time: 476 │
00:01:33 #5139 [verbose] > │ Test case 4. closed_2. Time: 473 │
00:01:33 #5140 [verbose] > │ │
00:01:33 #5141 [verbose] > │ Solution: struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; │
00:01:33 #5142 [verbose] > │ 17; 18; 19; 20; │
00:01:33 #5143 [verbose] > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:33 #5144 [verbose] > │ 37; 38; │
00:01:33 #5145 [verbose] > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:33 #5146 [verbose] > │ 55; 56; │
00:01:33 #5147 [verbose] > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:33 #5148 [verbose] > │ 73; 74; │
00:01:33 #5149 [verbose] > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:33 #5150 [verbose] > │ 91; 92; │
00:01:33 #5151 [verbose] > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) │
00:01:33 #5152 [verbose] > │ Test case 1. semi_open_1. Time: 494 │
00:01:33 #5153 [verbose] > │ Test case 2. closed_1. Time: 484 │
00:01:33 #5154 [verbose] > │ Test case 3. semi_open_2. Time: 489 │
00:01:33 #5155 [verbose] > │ Test case 4. closed_2. Time: 503 │
00:01:33 #5156 [verbose] > │ │
00:01:33 #5157 [verbose] > │ Input │
00:01:33 #5158 [verbose] > │ │
00:01:33 #5159 [verbose] > │ │
00:01:33 #5160 [verbose] > │ │
00:01:33 #5161 [verbose] > │ | Expected | Result | Best │
00:01:33 #5162 [verbose] > │ --- │
00:01:33 #5163 [verbose] > │ │
00:01:33 #5164 [verbose] > │ │
00:01:33 #5165 [verbose] > │ │
00:01:33 #5166 [verbose] > │ | --- | --- | --- │
00:01:33 #5167 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:33 #5168 [verbose] > │ │
00:01:33 #5169 [verbose] > │ │
00:01:33 #5170 [verbose] > │ │
00:01:33 #5171 [verbose] > │ | US0_0 3 | US0_0 3 | struct (2L, 541L) │
00:01:33 #5172 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:33 #5173 [verbose] > │ │
00:01:33 #5174 [verbose] > │ │
00:01:33 #5175 [verbose] > │ │
00:01:33 #5176 [verbose] > │ | US0_0 0 | US0_0 0 | struct (4L, 461L) │
00:01:33 #5177 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:33 #5178 [verbose] > │ │
00:01:33 #5179 [verbose] > │ │
00:01:33 #5180 [verbose] > │ │
00:01:33 #5181 [verbose] > │ | US0_0 6 | US0_0 6 | struct (1L, 459L) │
00:01:33 #5182 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:33 #5183 [verbose] > │ │
00:01:33 #5184 [verbose] > │ │
00:01:33 #5185 [verbose] > │ │
00:01:33 #5186 [verbose] > │ | US0_1 | US0_1 | struct (4L, 466L) │
00:01:33 #5187 [verbose] > │ struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; │
00:01:33 #5188 [verbose] > │ 20; │
00:01:33 #5189 [verbose] > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:33 #5190 [verbose] > │ 37; 38; │
00:01:33 #5191 [verbose] > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:33 #5192 [verbose] > │ 55; 56; │
00:01:33 #5193 [verbose] > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:33 #5194 [verbose] > │ 73; 74; │
00:01:33 #5195 [verbose] > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:33 #5196 [verbose] > │ 91; 92; │
00:01:33 #5197 [verbose] > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) | US0_0 59 | US0_0 59 | │
00:01:33 #5198 [verbose] > │ struct (1L, 484L) │
00:01:33 #5199 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 6, 7) │
00:01:33 #5200 [verbose] > │ │
00:01:33 #5201 [verbose] > │ │
00:01:33 #5202 [verbose] > │ │
00:01:33 #5203 [verbose] > │ | US0_0 3 | US0_0 3 | struct (2L, 443L) │
00:01:33 #5204 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 1, 7) │
00:01:33 #5205 [verbose] > │ │
00:01:33 #5206 [verbose] > │ │
00:01:33 #5207 [verbose] > │ │
00:01:33 #5208 [verbose] > │ | US0_0 0 | US0_0 0 | struct (3L, 448L) │
00:01:33 #5209 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 11, 7) │
00:01:33 #5210 [verbose] > │ │
00:01:33 #5211 [verbose] > │ │
00:01:33 #5212 [verbose] > │ │
00:01:33 #5213 [verbose] > │ | US0_0 6 | US0_0 6 | struct (2L, 467L) │
00:01:33 #5214 [verbose] > │ struct ([|1; 3; 4; 6; 8; 9; 11|], 12, 7) │
00:01:33 #5215 [verbose] > │ │
00:01:33 #5216 [verbose] > │ │
00:01:33 #5217 [verbose] > │ │
00:01:33 #5218 [verbose] > │ | US0_1 | US0_1 | struct (2L, 471L) │
00:01:33 #5219 [verbose] > │ struct ([|1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; │
00:01:33 #5220 [verbose] > │ 20; │
00:01:33 #5221 [verbose] > │ 21; 22; 23; 24; 25; 26; 27; 28; 29; 30; 31; 32; 33; 34; 35; 36; │
00:01:33 #5222 [verbose] > │ 37; 38; │
00:01:33 #5223 [verbose] > │ 39; 40; 41; 42; 43; 44; 45; 46; 47; 48; 49; 50; 51; 52; 53; 54; │
00:01:33 #5224 [verbose] > │ 55; 56; │
00:01:33 #5225 [verbose] > │ 57; 58; 59; 60; 61; 62; 63; 64; 65; 66; 67; 68; 69; 70; 71; 72; │
00:01:33 #5226 [verbose] > │ 73; 74; │
00:01:33 #5227 [verbose] > │ 75; 76; 77; 78; 79; 80; 81; 82; 83; 84; 85; 86; 87; 88; 89; 90; │
00:01:33 #5228 [verbose] > │ 91; 92; │
00:01:33 #5229 [verbose] > │ 93; 94; 95; 96; 97; 98; 99; 100|], 60, 100) | US0_0 59 | US0_0 59 | │
00:01:33 #5230 [verbose] > │ struct (2L, 484L) │
00:01:33 #5231 [verbose] > │ │
00:01:33 #5232 [verbose] > │ Average Ranking │
00:01:33 #5233 [verbose] > │ Test case 2. Average Time: 477L │
00:01:33 #5234 [verbose] > │ Test case 3. Average Time: 481L │
00:01:33 #5235 [verbose] > │ Test case 4. Average Time: 483L │
00:01:33 #5236 [verbose] > │ Test case 1. Average Time: 493L │
00:01:33 #5237 [verbose] > │ │
00:01:33 #5238 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:33 #5239 [verbose] >
00:01:33 #5240 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:33 #5241 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:33 #5242 [verbose] > │ ## returnLettersWithOddCountTests │
00:01:33 #5243 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:33 #5244 [verbose] >
00:01:33 #5245 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:33 #5246 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:33 #5247 [verbose] > │ Test: ReturnLettersWithOddCount │
00:01:33 #5248 [verbose] > │ │
00:01:33 #5249 [verbose] > │ Solution: 1 │
00:01:33 #5250 [verbose] > │ Test case 1. A. Time: 645L │
00:01:33 #5251 [verbose] > │ │
00:01:33 #5252 [verbose] > │ Solution: 2 │
00:01:33 #5253 [verbose] > │ Test case 1. A. Time: 663L │
00:01:33 #5254 [verbose] > │ │
00:01:33 #5255 [verbose] > │ Solution: 3 │
00:01:33 #5256 [verbose] > │ Test case 1. A. Time: 680L │
00:01:33 #5257 [verbose] > │ │
00:01:33 #5258 [verbose] > │ Solution: 9 │
00:01:33 #5259 [verbose] > │ Test case 1. A. Time: 730L │
00:01:33 #5260 [verbose] > │ │
00:01:33 #5261 [verbose] > │ Solution: 10 │
00:01:33 #5262 [verbose] > │ Test case 1. A. Time: 815L │
00:01:33 #5263 [verbose] > │ │
00:01:33 #5264 [verbose] > │ Input | Expected | Result | Best │
00:01:33 #5265 [verbose] > │ --- | --- | --- | --- │
00:01:33 #5266 [verbose] > │ 1 | a | a | (1, 645) │
00:01:33 #5267 [verbose] > │ 2 | ba | ba | (1, 663) │
00:01:33 #5268 [verbose] > │ 3 | aaa | aaa | (1, 680) │
00:01:33 #5269 [verbose] > │ 9 | aaaaaaaaa | aaaaaaaaa | (1, 730) │
00:01:33 #5270 [verbose] > │ 10 | baaaaaaaaa | baaaaaaaaa | (1, 815) │
00:01:33 #5271 [verbose] > │ │
00:01:33 #5272 [verbose] > │ Averages │
00:01:33 #5273 [verbose] > │ Test case 1. Average Time: 706L │
00:01:33 #5274 [verbose] > │ │
00:01:33 #5275 [verbose] > │ Ranking │
00:01:33 #5276 [verbose] > │ Test case 1. Average Time: 706L │
00:01:33 #5277 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:33 #5278 [verbose] >
00:01:33 #5279 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:33 #5280 [verbose] > //// test
00:01:33 #5281 [verbose] >
00:01:33 #5282 [verbose] > let solutions = [[
00:01:33 #5283 [verbose] > "A",
00:01:33 #5284 [verbose] > fun n ->
00:01:33 #5285 [verbose] > let mutable _builder = StringBuilder (new string('a', n))
00:01:33 #5286 [verbose] > if n % 2 = 0 then
00:01:33 #5287 [verbose] > _builder.[[0]] <- 'b'
00:01:33 #5288 [verbose] >
00:01:33 #5289 [verbose] > _builder.ToString ()
00:01:33 #5290 [verbose] > ]]
00:01:33 #5291 [verbose] > let testCases = seq {
00:01:33 #5292 [verbose] > 1, "a"
00:01:33 #5293 [verbose] > 2, "ba"
00:01:33 #5294 [verbose] > 3, "aaa"
00:01:33 #5295 [verbose] > 9, "aaaaaaaaa"
00:01:33 #5296 [verbose] > 10, "baaaaaaaaa"
00:01:33 #5297 [verbose] > }
00:01:33 #5298 [verbose] > let rec returnLettersWithOddCountTests =
00:01:33 #5299 [verbose] > runAll (nameof returnLettersWithOddCountTests) _count solutions testCases
00:01:33 #5300 [verbose] > returnLettersWithOddCountTests
00:01:33 #5301 [verbose] > |> sortResultList
00:01:34 #5302 [verbose] >
00:01:34 #5303 [verbose] > ╭─[ 866.05ms - stdout ]────────────────────────────────────────────────────────╮
00:01:34 #5304 [verbose] > │ │
00:01:34 #5305 [verbose] > │ │
00:01:34 #5306 [verbose] > │ Test: returnLettersWithOddCountTests │
00:01:34 #5307 [verbose] > │ │
00:01:34 #5308 [verbose] > │ Solution: 1 │
00:01:34 #5309 [verbose] > │ Test case 1. A. Time: 0L │
00:01:34 #5310 [verbose] > │ │
00:01:34 #5311 [verbose] > │ Solution: 2 │
00:01:34 #5312 [verbose] > │ Test case 1. A. Time: 0L │
00:01:34 #5313 [verbose] > │ │
00:01:34 #5314 [verbose] > │ Solution: 3 │
00:01:34 #5315 [verbose] > │ Test case 1. A. Time: 0L │
00:01:34 #5316 [verbose] > │ │
00:01:34 #5317 [verbose] > │ Solution: 9 │
00:01:34 #5318 [verbose] > │ Test case 1. A. Time: 0L │
00:01:34 #5319 [verbose] > │ │
00:01:34 #5320 [verbose] > │ Solution: 10 │
00:01:34 #5321 [verbose] > │ Test case 1. A. Time: 2L │
00:01:34 #5322 [verbose] > │ │
00:01:34 #5323 [verbose] > │ Input | Expected | Result | Best │
00:01:34 #5324 [verbose] > │ --- | --- | --- | --- │
00:01:34 #5325 [verbose] > │ 1 | a | a | (1, 0) │
00:01:34 #5326 [verbose] > │ 2 | ba | ba | (1, 0) │
00:01:34 #5327 [verbose] > │ 3 | aaa | aaa | (1, 0) │
00:01:34 #5328 [verbose] > │ 9 | aaaaaaaaa | aaaaaaaaa | (1, 0) │
00:01:34 #5329 [verbose] > │ 10 | baaaaaaaaa | baaaaaaaaa | (1, 2) │
00:01:34 #5330 [verbose] > │ │
00:01:34 #5331 [verbose] > │ Average Ranking │
00:01:34 #5332 [verbose] > │ Test case 1. Average Time: 0L │
00:01:34 #5333 [verbose] > │ │
00:01:34 #5334 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 #5335 [verbose] >
00:01:34 #5336 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:34 #5337 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:34 #5338 [verbose] > │ ## hasAnyPairCloseToEachotherTests │
00:01:34 #5339 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 #5340 [verbose] >
00:01:34 #5341 [verbose] > ── markdown ────────────────────────────────────────────────────────────────────
00:01:34 #5342 [verbose] > ╭──────────────────────────────────────────────────────────────────────────────╮
00:01:34 #5343 [verbose] > │ Test: HasAnyPairCloseToEachother │
00:01:34 #5344 [verbose] > │ │
00:01:34 #5345 [verbose] > │ Solution: 0 │
00:01:34 #5346 [verbose] > │ Test case 1. A. Time: 137L │
00:01:34 #5347 [verbose] > │ │
00:01:34 #5348 [verbose] > │ Solution: 1,2 │
00:01:34 #5349 [verbose] > │ Test case 1. A. Time: 186L │
00:01:34 #5350 [verbose] > │ │
00:01:34 #5351 [verbose] > │ Solution: 3,5 │
00:01:34 #5352 [verbose] > │ Test case 1. A. Time: 206L │
00:01:34 #5353 [verbose] > │ │
00:01:34 #5354 [verbose] > │ Solution: 3,4,6 │
00:01:34 #5355 [verbose] > │ Test case 1. A. Time: 149L │
00:01:34 #5356 [verbose] > │ │
00:01:34 #5357 [verbose] > │ Solution: 2,4,6 │
00:01:34 #5358 [verbose] > │ Test case 1. A. Time: 150L │
00:01:34 #5359 [verbose] > │ │
00:01:34 #5360 [verbose] > │ Input | Expected | Result | Best │
00:01:34 #5361 [verbose] > │ --- | --- | --- | --- │
00:01:34 #5362 [verbose] > │ 0 | False | False | (1, 137) │
00:01:34 #5363 [verbose] > │ 1,2 | True | True | (1, 186) │
00:01:34 #5364 [verbose] > │ 3,5 | False | False | (1, 206) │
00:01:34 #5365 [verbose] > │ 3,4,6 | True | True | (1, 149) │
00:01:34 #5366 [verbose] > │ 2,4,6 | False | False | (1, 150) │
00:01:34 #5367 [verbose] > │ │
00:01:34 #5368 [verbose] > │ Averages │
00:01:34 #5369 [verbose] > │ Test case 1. Average Time: 165L │
00:01:34 #5370 [verbose] > │ │
00:01:34 #5371 [verbose] > │ Ranking │
00:01:34 #5372 [verbose] > │ Test case 1. Average Time: 165L │
00:01:34 #5373 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:34 #5374 [verbose] >
00:01:34 #5375 [verbose] > ── fsharp ──────────────────────────────────────────────────────────────────────
00:01:34 #5376 [verbose] > //// test
00:01:34 #5377 [verbose] >
00:01:34 #5378 [verbose] > let solutions = [[
00:01:34 #5379 [verbose] > "A",
00:01:34 #5380 [verbose] > fun (a: int[[]]) ->
00:01:34 #5381 [verbose] > let indices = System.Linq.Enumerable.Range(0, a.Length) |>
00:01:34 #5382 [verbose] > System.Linq.Enumerable.ToArray
00:01:34 #5383 [verbose] > System.Array.Sort (a, indices)
00:01:34 #5384 [verbose] >
00:01:34 #5385 [verbose] > indices
00:01:34 #5386 [verbose] > |> Array.take (a.Length - 1)
00:01:34 #5387 [verbose] > |> Array.exists (fun i -> a.[[i + 1]] - a.[[i]] = 1)
00:01:34 #5388 [verbose] > ]]
00:01:34 #5389 [verbose] > let testCases = seq {
00:01:34 #5390 [verbose] > [[| 0 |]], false
00:01:34 #5391 [verbose] > [[| 1; 2 |]], true
00:01:34 #5392 [verbose] > [[| 3; 5 |]], false
00:01:34 #5393 [verbose] > [[| 3; 4; 6 |]], true
00:01:34 #5394 [verbose] > [[| 2; 4; 6 |]], false
00:01:34 #5395 [verbose] > }
00:01:34 #5396 [verbose] > let rec hasAnyPairCloseToEachotherTests =
00:01:34 #5397 [verbose] > runAll (nameof hasAnyPairCloseToEachotherTests) _count solutions testCases
00:01:34 #5398 [verbose] > hasAnyPairCloseToEachotherTests
00:01:34 #5399 [verbose] > |> sortResultList
00:01:35 #5400 [verbose] >
00:01:35 #5401 [verbose] > ╭─[ 804.19ms - stdout ]────────────────────────────────────────────────────────╮
00:01:35 #5402 [verbose] > │ │
00:01:35 #5403 [verbose] > │ │
00:01:35 #5404 [verbose] > │ Test: hasAnyPairCloseToEachotherTests │
00:01:35 #5405 [verbose] > │ │
00:01:35 #5406 [verbose] > │ Solution: 0 │
00:01:35 #5407 [verbose] > │ Test case 1. A. Time: 2L │
00:01:35 #5408 [verbose] > │ │
00:01:35 #5409 [verbose] > │ Solution: 1,2 │
00:01:35 #5410 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5411 [verbose] > │ │
00:01:35 #5412 [verbose] > │ Solution: 3,5 │
00:01:35 #5413 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5414 [verbose] > │ │
00:01:35 #5415 [verbose] > │ Solution: 3,4,6 │
00:01:35 #5416 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5417 [verbose] > │ │
00:01:35 #5418 [verbose] > │ Solution: 2,4,6 │
00:01:35 #5419 [verbose] > │ Test case 1. A. Time: 0L │
00:01:35 #5420 [verbose] > │ │
00:01:35 #5421 [verbose] > │ Input | Expected | Result | Best │
00:01:35 #5422 [verbose] > │ --- | --- | --- | --- │
00:01:35 #5423 [verbose] > │ 0 | False | False | (1, 2) │
00:01:35 #5424 [verbose] > │ 1,2 | True | True | (1, 0) │
00:01:35 #5425 [verbose] > │ 3,5 | False | False | (1, 0) │
00:01:35 #5426 [verbose] > │ 3,4,6 | True | True | (1, 0) │
00:01:35 #5427 [verbose] > │ 2,4,6 | False | False | (1, 0) │
00:01:35 #5428 [verbose] > │ │
00:01:35 #5429 [verbose] > │ Average Ranking │
00:01:35 #5430 [verbose] > │ Test case 1. Average Time: 0L │
00:01:35 #5431 [verbose] > │ │
00:01:35 #5432 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:35 #5433 [verbose] >
00:01:35 #5434 [verbose] > ── spiral ──────────────────────────────────────────────────────────────────────
00:01:35 #5435 [verbose] > // // test
00:01:35 #5436 [verbose] >
00:01:35 #5437 [verbose] > ()
00:01:35 #5438 [verbose] > Building c:\home\git\polyglot\target\polyglot\spiral_eval\packages\8014057efde7e134b1cff739bd09ed6e4a1f298b31dc495e67550ecb034721ec\main.spi
00:01:35 #5439 [verbose] >
00:01:35 #5440 [verbose] > ╭─[ 392.68ms - stdout ]────────────────────────────────────────────────────────╮
00:01:35 #5441 [verbose] > │ let rec method0 () : unit = │
00:01:35 #5442 [verbose] > │ () │
00:01:35 #5443 [verbose] > │ method0() │
00:01:35 #5444 [verbose] > │ │
00:01:35 #5445 [verbose] > │ │
00:01:35 #5446 [verbose] > ╰──────────────────────────────────────────────────────────────────────────────╯
00:01:37 #5447 [verbose] > [NbConvertApp] Converting notebook Perf.dib.ipynb to html
00:01:37 #5448 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
00:01:37 #5449 [verbose] > validate(nb)
00:01:38 #5450 [verbose] > C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
00:01:38 #5451 [verbose] > return _pygments_highlight(
00:01:39 #5452 [verbose] > [NbConvertApp] Writing 567251 bytes to Perf.dib.html
00:01:40 #5453 [debug] executeAsync / exitCode: 0 / output.Length: 375794
00:01:40 #5454 [debug] main / executeCommand / exitCode: 0
00:01:42 #5455 [debug] runWithTimeoutChildAsync / timeout: 2000
00:00:00 #1 [debug] writeDibCode / output: Fs / path: Perf.dib
00:00:00 #2 [debug] parseDibCode / output: Fs / file: Perf.dib
In [ ]:
{ . "$ScriptDir/../apps/dir-tree-html/build.ps1" } | Invoke-Block
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ # DirTreeHtml (Polyglot) │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Notebooks.dib
#!import ../../lib/fsharp/Testing.dib
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.A
spNetCore.Html.Abstractions.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.Formatting.dll"
open System
open System.IO
open System.Text
open Microsoft.DotNet.Interactive.Formatting
── fsharp - import ─────────────────────────────────────────────────────────────
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.FSharp.dll"
open Microsoft.DotNet.Interactive.FSharp.FSharpKernelHelpers
#r
"C:/Users/i574n/.nuget/packages/dotnet-repl/0.1.204/tools/net7.0/any/Microsoft.D
otNet.Interactive.dll"
open type Microsoft.DotNet.Interactive.Kernel
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
Formatter.ListExpansionLimit <- 100
── fsharp - import ─────────────────────────────────────────────────────────────
type [[<Struct>]] US0 =
| US0_0
| US0_1
and [[<Struct>]] US1 =
| US1_0 of f0_0 : US0
| US1_1
let rec closure0 () (v0 : (unit -> unit)) : System.IDisposable =
let v1 : System.IDisposable option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : System.IDisposable = null |> unbox<System.IDisposable>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : System.IDisposable = null |> unbox<System.IDisposable>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : System.IDisposable = null |> unbox<System.IDisposable>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : System.ID...
── fsharp - import ─────────────────────────────────────────────────────────────
type Mut0 = {mutable l0 : int32; mutable l1 : string}
and Mut1 = {mutable l0 : int32}
let rec closure1 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.Contains v0
v2
and closure0 () (v0 : string) : (string -> bool) =
closure1(v0)
and closure3 (v0 : string) (v1 : string) : bool =
let v2 : bool = v1.EndsWith v0
v2
and closure2 () (v0 : string) : (string -> bool) =
closure3(v0)
and closure6 (v0 : int32, v1 : char) (v2 : string) : string =
let v3 : string = v2.PadLeft (v0, v1)
v3
and closure5 (v0 : int32) (v1 : char) : (string -> string) =
closure6(v0, v1)
and closure4 () (v0 : int32) : (char -> (string -> string)) =
closure5(v0)
and closure8 (v0 : int32) (v1 : string) : string =
let v2 : stri...
── fsharp - import ─────────────────────────────────────────────────────────────
type ICryptoCreateHash = abstract createHash: x: string -> obj
type Mut0 = {mutable l0 : int32}
let rec method0 (v0 : int32, v1 : Mut0) : bool =
let v2 : int32 = v1.l0
let v3 : bool = v2 < v0
v3
and closure0 () (v0 : string) : string =
let v1 : string option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : string = null |> unbox<string>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : string = null |> unbox<string>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : string = null |> unbox<string>
v4
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v5 : (unit -> System...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure1 (v0 : System.Guid) (v1 : System.DateTime) : System.Guid =
let v2 : (System.Guid -> string) = _.ToString()
let v3 : string = v2 v0
let v4 : string = v1.ToString "yyyyMMdd-HHmm-ssff-ffff-f"
let v5 : System.Guid = System.Guid $"{v4}{v3.[[v4.Length..]]}"
v5
and closure0 () (v0 : System.Guid) : (System.DateTime -> System.Guid) =
closure1(v0)
and closure5 (v0 : string, v1 : string) (v2 : string) : string =
let v3 : string = v2.Replace (v0, v1)
v3
and closure4 (v0 : string) (v1 : string) : (string -> string) =
closure5(v0, v1)
and closure3 () (v0 : string) : (string -> (string -> string)) =
closure4(v0)
and method0 () : (string -> (string -> (string -> string))) =
closure3()
and closure2 (...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () (v0 : System.Threading.CancellationToken) :
Async<System.Threading.CancellationToken> =
let v1 : Async<System.Threading.CancellationToken> option = None
let mutable _v1 = v1
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v2 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v2
#endif
#if FABLE_COMPILER_RUST && WASM
let v3 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v3
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v4 : Async<System.Threading.CancellationToken> = null |>
unbox<Async<System.Threading.CancellationToken>>
v4
#endif
#if !FABLE_COMPILER...
── fsharp - import ─────────────────────────────────────────────────────────────
let rec closure0 () () : bool =
let v0 : bool option = None
let mutable _v0 = v0
#if FABLE_COMPILER_RUST && !WASM && !CONTRACT
let v1 : bool = null |> unbox<bool>
v1
#endif
#if FABLE_COMPILER_RUST && WASM
let v2 : bool = null |> unbox<bool>
v2
#endif
#if FABLE_COMPILER_RUST && CONTRACT
let v3 : bool = null |> unbox<bool>
v3
#endif
#if !FABLE_COMPILER && !FABLE_COMPILER_RUST && !FABLE_COMPILER_TYPESCRIPT &&
!WASM && !CONTRACT
let v4 : System.Runtime.InteropServices.OSPlatform =
System.Runtime.InteropServices.OSPlatform.Windows
let v5 : (System.Runtime.InteropServices.OSPlatform -> bool) =
System.Runtime.InteropServices.RuntimeInformation.IsOSPlatform
let v6 : bool = v...
── fsharp - import ─────────────────────────────────────────────────────────────
#if FABLE_COMPILER // file_system.types
[[<Fable.Core.Erase; Fable.Core.Emit("str")>]] type Str = class end
[[<Fable.Core.Erase; Fable.Core.Emit("base64::DecodeError")>]] type
base64_DecodeError = class end
[[<Fable.Core.Erase; Fable.Core.Emit("borsh::io::Error")>]] type borsh_io_Error
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("js_sys::JsString")>]] type js_sys_JsString
= class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Error")>]] type
serde_json_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_json::Value")>]] type
serde_json_Value = class end
[[<Fable.Core.Erase; Fable.Core.Emit("serde_wasm_bindgen::Error")>]] type
serde_wasm_bindgen_Error = class end
[[<Fable.Core.Erase; Fable.Core.Emit("std::ffi::OsStr")>]] type std_ffi_O...
── fsharp - import ─────────────────────────────────────────────────────────────
module State = let mutable trace_state = None
type [[<Struct>]] US0 =
| US0_0
| US0_1
| US0_2
| US0_3
| US0_4
and Mut0 = {mutable l0 : int64}
and Mut1 = {mutable l0 : bool}
and Mut2 = {mutable l0 : US0}
and [[<Struct>]] US1 =
| US1_0 of f0_0 : int64
| US1_1
and [[<Struct>]] US2 =
| US2_0 of f0_0 : int64
| US2_1
let rec method1 (v0 : int64 option) : int64 option =
v0
and method2 (v0 : int64 option) : int64 option =
v0
and closure3 () () : struct (Mut0 * Mut1 * Mut1 * Mut2 * int64 option) =
let v0 : Mut1 = {l0 = true} : Mut1
let v1 : Mut0 = {l0 = 0L} : Mut0
let v2 : US0 = US0_0
let v3 : Mut2 = {l0 = v2} : Mut2
let v4 : Mut1 = {l0 = false} : Mut1
let v5 : int64 option option = None
...
── fsharp - import ─────────────────────────────────────────────────────────────
module SpiralTrace =
let get_trace_state () =
#if !INTERACTIVE
Trace.get_trace_state ()
#else
get_trace_state ()
#endif
let trace x =
#if !INTERACTIVE
Trace.trace x
#else
trace x
#endif
let US0_0 =
#if !INTERACTIVE
Trace.US0_0
#else
US0_0
#endif
let US0_1 =
#if !INTERACTIVE
Trace.US0_1
#else
US0_1
#endif
let US0_2 =
#if !INTERACTIVE
Trace.US0_2
#else
US0_2
#endif
let US0_3 =
#if !INTERACTIVE
Trace.US0_3
#else
US0_3
#endif
let US0_4 =
#if !INTERACTIVE
Trace.US0_4
#else
US0_4
#endif
#if !FABLE_COMPILER && !WASM && !CONTRACT
module SpiralAsync =
let merge_cancellation_token_with_default_async x ...
── fsharp - import ─────────────────────────────────────────────────────────────
#r @"../../../../../../../.nuget/packages/expecto/10.2.1/lib/net6.0/Expecto.dll"
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
type AssertExceptionFormatter (ex) =
member _.Text =
ex.ToString()
.Replace("32m", "<span style=\"color: green;\">")
.Replace("36m", "</span>")
.Replace("31m", "<span style=\"color: red;\">")
.Replace("\n", "<br/>\n")
Formatter.Register<AssertExceptionFormatter> ((fun (x :
AssertExceptionFormatter) -> x.Text), "text/html")
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __expect fn log expected actual =
if log then printfn $"{actual.ToDisplayString ()}"
try
"Testing.__expect" |> fn actual expected
with :? Expecto.AssertException as ex ->
AssertExceptionFormatter(ex).Display () |> ignore
failwith (ex.GetType().FullName)
let inline __contains log expected actual = __expect Expecto.Expect.contains log
expected actual
let inline _contains expected actual = __contains true expected actual
let inline __assertEqual log expected actual = __expect Expecto.Expect.equal log
expected actual
let inline _assertEqual expected actual = __assertEqual true expected actual
let inline __isGreaterThan log expected actual = __expect
Expecto.Expect.isGreaterThan log ex...
── fsharp - import ─────────────────────────────────────────────────────────────
//// test
let inline __isBetween log a b actual =
let inline isBetween actual (a, b) _ =
__isGreaterThanOrEqual log a actual
__isLessThanOrEqual log b actual
__expect isBetween log (a, b) actual
let inline _isBetween a b actual = __isBetween true a b actual
── fsharp ──────────────────────────────────────────────────────────────────────
#r
@"../../../../../../../.nuget/packages/fsharp.control.asyncseq/3.2.1/lib/netstan
dard2.1/FSharp.Control.AsyncSeq.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive/6.0.1-preview.1/lib/net6.
0/System.Reactive.dll"
#r
@"../../../../../../../.nuget/packages/system.reactive.linq/6.0.1-preview.1/lib/
netstandard2.0/System.Reactive.Linq.dll"
#r
@"../../../../../../../.nuget/packages/argu/6.2.2/lib/netstandard2.0/Argu.dll"
#r
@"../../../../../../../.nuget/packages/system.commandline/2.0.0-beta4.22272.1/li
b/net6.0/System.CommandLine.dll"
#r
@"../../../../../../../.nuget/packages/falco.markup/1.1.1/lib/netstandard2.0/Fal
co.Markup.dll"
── fsharp ──────────────────────────────────────────────────────────────────────
#!import ../../lib/fsharp/Common.fs
#!import ../../lib/fsharp/CommonFSharp.fs
#!import ../../lib/fsharp/Async.fs
#!import ../../lib/fsharp/AsyncSeq.fs
#!import ../../lib/fsharp/Networking.fs
#!import ../../lib/fsharp/Runtime.fs
#!import ../../lib/fsharp/FileSystem.fs
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Common =
#if !INTERACTIVE
open Lib
#endif
let nl = System.Environment.NewLine
let q = @""""
let inline cons head tail = head :: tail
/// ## memoize
let inline memoize fn =
let result = lazy fn ()
fun () -> result.Value
/// ## TraceLevel
type TraceLevel =
| Verbose
| Debug
| Info
| Warning
| Critical
let inline getLocals () = ""
/// ## trace
let to_trace_level = function
| Verbose -> SpiralTrace.US0_0
| Debug -> SpiralTrace.US0_1
| Info -> SpiralTrace.US0_2
| Warning -> SpiralTrace.US0_3
| Critical -> SpiralTrace.US0_4
let trace level fn g...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module CommonFSharp =
open Common
/// ## getUnionCaseName
let inline getUnionCaseName<'T> (x: 'T) =
match Reflection.FSharpValue.GetUnionFields(x, typeof<'T>) with
| case, _ -> case.Name
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Async =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## choice
let inline choice asyncs = async {
let e = Event<_> ()
use cts = new System.Threading.CancellationTokenSource ()
let fn =
asyncs
|> Seq.map (fun a -> async {
let! x = a
e.Trigger x
})
|> Async.Parallel
|> Async.Ignore
Async.Start (fn, cts.Token)
let! result = Async.AwaitEvent e.Publish
cts.Cancel ()
return result
}
/// ## map
let inline map fn a = async {
let! x = a
return fn x
}
/// ## catch
let inline catch a =
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module AsyncSeq =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## subscribeEvent
let inline subscribeEvent (event: IEvent<'H, 'A>) map =
let observable = System.Reactive.Linq.Observable.FromEventPattern<'H,
'A>(event.AddHandler, event.RemoveHandler)
System.Reactive.Linq.Observable.Select (observable, fun event -> map
event.EventArgs)
|> FSharp.Control.AsyncSeq.ofObservableBuffered
let subscribeToken (token : System.Threading.CancellationToken) =
let tcs = new System.Threading.Tasks.TaskCompletionSource ()
System.Action tcs.SetResult |> token.Register |> ignore
let start = System.DateTime.Now.Ticks
FSharp.Control.A...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Networking =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## testPortOpen
let inline testPortOpen port = async {
let! ct = Async.CancellationToken
use client = new System.Net.Sockets.TcpClient ()
try
do! client.ConnectAsync ("127.0.0.1", port, ct) |>
Async.awaitValueTaskUnit
return true
with ex ->
trace Verbose (fun () -> $"testPortOpen / ex: {ex |>
SpiralSm.format_exception}") getLocals
return false
}
let inline testPortOpenTimeout timeout port = async {
let! result =
testPortOpen port
|> Async.runWithTimeoutAsync timeout
return
...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module Runtime =
#if !INTERACTIVE
open Lib
#endif
open Common
/// ## splitCommand
type private CommandParseStep =
| Start
| Path of quoted: bool
| Arguments
let splitCommand (command: string) =
let rec loop (path, args) chars step =
match chars, step with
| ('"' | '\'') :: tail, _ when path = "" -> loop (path, args) tail
(Path true)
| ('"' | '\'') :: tail, Path true -> loop (path, args) tail (Path
false)
| ' ' :: tail, Path true -> loop ($"{path} ", args) tail (Path true)
| ' ' :: tail, (Start | Path _) -> loop (path, args) tail Arguments
| char :: tail, Arguments -> loo...
── fsharp - import ─────────────────────────────────────────────────────────────
#if !INTERACTIVE
namespace Polyglot
#endif
module FileSystem =
#if !INTERACTIVE
open Lib
#endif
open Common
open SpiralFileSystem.Operators
/// ## watchDirectory
[[<RequireQualifiedAccess>]]
type FileSystemChangeType =
| Failure
| Changed
| Created
| Deleted
| Renamed
[[<RequireQualifiedAccess>]]
type FileSystemChange =
| Failure of exn: exn
| Changed of path: string * content: string option
| Created of path: string * content: string option
| Deleted of path: string
| Renamed of oldPath: string * (string * string option)
let inline watchDirectoryWithFilter filter shouldReadContent path =
let fullPath = path |> Sys...
── fsharp ──────────────────────────────────────────────────────────────────────
#if !INTERACTIVE
open Lib
#endif
── fsharp ──────────────────────────────────────────────────────────────────────
open SpiralFileSystem.Operators
open Falco.Markup
── fsharp ──────────────────────────────────────────────────────────────────────
type FileSystemNode =
| File of string * string * int64
| Folder of string * string * FileSystemNode list
| Root of FileSystemNode list
let rec scanDirectory isRoot (basePath : string) (path : string) =
let relativePath =
path
|> SpiralSm.replace basePath ""
|> SpiralSm.replace "\\" "/"
|> SpiralSm.replace "//" "/"
|> SpiralSm.trim_start [[| '/' |]]
let directories =
path
|> System.IO.Directory.GetDirectories
|> Array.toList
|> List.sort
|> List.map (scanDirectory false basePath)
let files =
path
|> System.IO.Directory.GetFiles
|> Array.toList
|> List.sort
|> List.map (fun f -> File (System.IO.Path.GetFileName f, relativePath,
System.IO.FileInfo(f).Length))
let children = directories @ files
if isRoot
then Root children
else Folder (path |> System.IO.Path.GetFileName, relativePath, children)
let rec generateHtml fsNode =
let sizeLabel size =
match float size with
| size when size > 1024.0 * 1024.0 -> $"%.2f{size / 1024.0 / 1024.0} MB"
| size when size > 1024.0 -> $"%.2f{size / 1024.0} KB"
| size -> $"%.2f{size} B"
match fsNode with
| File (fileName, relativePath, size) ->
Elem.div [[]] [[
Text.raw "📄 "
Elem.a [[
Attr.href $"""{relativePath}{if relativePath = "" then "" else
"/"}{fileName}"""
]] [[
Text.raw fileName
]]
Elem.span [[]] [[
Text.raw $" ({size |> sizeLabel})"
]]
]]
| Folder (folderName, relativePath, children) ->
let size =
let rec loop children =
children
|> List.sumBy (function
| File (_, _, size) -> size
| Folder (_, _, children)
| Root children -> loop children
)
loop children
Elem.details [[
Attr.open' "true"
]] [[
Elem.summary [[]] [[
Text.raw "📂 "
Elem.a [[
Attr.href relativePath
]] [[
Text.raw folderName
]]
Elem.span [[]] [[
Text.raw $" ({size |> sizeLabel})"
]]
]]
Elem.div [[]] [[
yield! children |> List.map generateHtml
]]
]]
| Root children ->
Elem.div [[]] [[
yield! children |> List.map generateHtml
]]
let generateHtmlForFileSystem root =
$"""<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<style>
body {{
background-color: #222;
color: #ccc;
}}
a {{
color: #777;
font-size: 15px;
}}
span {{
font-size: 11px;
}}
div > div {{
padding-left: 10px;
}}
details > div {{
padding-left: 19px;
}}
</style>
</head>
<body>
{root |> generateHtml |> renderNode}
</body>
</html>
"""
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let struct (tempFolder, disposable) = SpiralFileSystem.create_temp_directory ()
let rec loop d n = async {
if n >= 0 then
tempFolder </> d |> System.IO.Directory.CreateDirectory |> ignore
do!
n
|> string
|> String.replicate (n + 1)
|> SpiralFileSystem.write_all_text_async (tempFolder </> d </>
$"file.txt")
do! loop $"{d}/{n}" (n - 1)
}
loop "_.root" 3
|> Async.RunSynchronously
let html =
scanDirectory true tempFolder tempFolder
|> generateHtmlForFileSystem
html
|> _assertEqual """<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<style>
body {
background-color: #222;
color: #ccc;
}
a {
color: #777;
font-size: 15px;
}
span {
font-size: 11px;
}
div > div {
padding-left: 10px;
}
details > div {
padding-left: 19px;
}
</style>
</head>
<body>
<div><details open="true"><summary>📂 <a href="_.root">_.root</a><span>
(10.00 B)</span></summary><div><details open="true"><summary>📂 <a
href="_.root/3">3</a><span> (6.00 B)</span></summary><div><details
open="true"><summary>📂 <a href="_.root/3/2">2</a><span> (3.00
B)</span></summary><div><details open="true"><summary>📂 <a
href="_.root/3/2/1">1</a><span> (1.00 B)</span></summary><div><div>📄 <a
href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00
B)</span></div></div></details><div>📄 <a
href="_.root/3/2/file.txt">file.txt</a><span> (2.00
B)</span></div></div></details><div>📄 <a
href="_.root/3/file.txt">file.txt</a><span> (3.00
B)</span></div></div></details><div>📄 <a
href="_.root/file.txt">file.txt</a><span> (4.00
B)</span></div></div></details></div>
</body>
</html>
"""
html |> Microsoft.DotNet.Interactive.Formatting.Html.ToHtmlContent
disposable.Dispose ()
╭─[ 168.43ms - stdout ]────────────────────────────────────────────────────────╮
│ <!DOCTYPE html> │
│ <html lang="en"> │
│ <head> │
│ <meta charset="UTF-8"> │
│ <style> │
│ body { │
│ background-color: #222; │
│ color: #ccc; │
│ } │
│ a { │
│ color: #777; │
│ font-size: 15px; │
│ } │
│ span { │
│ font-size: 11px; │
│ } │
│ div > div { │
│ padding-left: 10px; │
│ } │
│ details > div { │
│ padding-left: 19px; │
│ } │
│ </style> │
│ </head> │
│ <body> │
│ <div><details open="true"><summary>📂 <a │
│ href="_.root">_.root</a><span> (10.00 B)</span></summary><div><details │
│ open="true"><summary>📂 <a href="_.root/3">3</a><span> (6.00 │
│ B)</span></summary><div><details open="true"><summary>📂 <a │
│ href="_.root/3/2">2</a><span> (3.00 B)</span></summary><div><details │
│ open="true"><summary>📂 <a href="_.root/3/2/1">1</a><span> (1.00 │
│ B)</span></summary><div><div>📄 <a │
│ href="_.root/3/2/1/file.txt">file.txt</a><span> (1.00 │
│ B)</span></div></div></details><div>📄 <a │
│ href="_.root/3/2/file.txt">file.txt</a><span> (2.00 │
│ B)</span></div></div></details><div>📄 <a │
│ href="_.root/3/file.txt">file.txt</a><span> (3.00 │
│ B)</span></div></div></details><div>📄 <a │
│ href="_.root/file.txt">file.txt</a><span> (4.00 │
│ B)</span></div></div></details></div> │
│ </body> │
│ </html> │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## Arguments │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
[[<RequireQualifiedAccess>]]
type Arguments =
| [[<Argu.ArguAttributes.ExactlyOnce>]] Dir of string
| [[<Argu.ArguAttributes.ExactlyOnce>]] Html of string
interface Argu.IArgParserTemplate with
member s.Usage =
match s with
| Dir _ -> nameof Dir
| Html _ -> nameof Html
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
Argu.ArgumentParser.Create<Arguments>().PrintUsage ()
╭─[ 117.72ms - return value ]──────────────────────────────────────────────────╮
│ USAGE: dotnet-repl [--help] --dir <string> --html <string> │
│ │
│ OPTIONS: │
│ │
│ --dir <string> Dir │
│ --html <string> Html │
│ --help display this list of options. │
│ │
╰──────────────────────────────────────────────────────────────────────────────╯
── markdown ────────────────────────────────────────────────────────────────────
╭──────────────────────────────────────────────────────────────────────────────╮
│ ## main │
╰──────────────────────────────────────────────────────────────────────────────╯
── fsharp ──────────────────────────────────────────────────────────────────────
let main args =
let argsMap = args |> Runtime.parseArgsMap<Arguments>
let dir =
match argsMap.[[nameof Arguments.Dir]] with
| [[ Arguments.Dir dir ]] -> Some dir
| _ -> None
|> Option.get
let htmlPath =
match argsMap.[[nameof Arguments.Html]] with
| [[ Arguments.Html html ]] -> Some html
| _ -> None
|> Option.get
let fileSystem = scanDirectory true dir dir
let html = generateHtmlForFileSystem fileSystem
html |> SpiralFileSystem.write_all_text_async htmlPath
|> Async.runWithTimeout 30000
|> function
| Some () -> 0
| None -> 1
── fsharp ──────────────────────────────────────────────────────────────────────
//// test
let args =
System.Environment.GetEnvironmentVariable "ARGS"
|> Runtime.splitArgs
|> Seq.toArray
match args with
| [[||]] -> 0
| args -> if main args = 0 then 0 else failwith "main failed"
╭─[ 62.83ms - return value ]───────────────────────────────────────────────────╮
│ <div class="dni-plaintext"><pre>0</pre></div><style> │
│ .dni-code-hint { │
│ font-style: italic; │
│ overflow: hidden; │
│ white-space: nowrap; │
│ } │
│ .dni-treeview { │
│ white-space: nowrap; │
│ } │
│ .dni-treeview td { │
│ vertical-align: top; │
│ text-align: start; │
│ } │
│ details.dni-treeview { │
│ padding-left: 1em; │
│ } │
│ table td { │
│ text-align: start; │
│ } │
│ table tr { │
│ vertical-align: top; │
│ margin: 0em 0px; │
│ } │
│ table tr td pre │
│ { │
│ vertical-align: top !important; │
│ margin: 0em 0px !important; │
│ } │
│ table th { │
│ text-align: start; │
│ } │
│ </style> │
╰──────────────────────────────────────────────────────────────────────────────╯
[NbConvertApp] Converting notebook DirTreeHtml.dib.ipynb to html
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbformat\__init__.py:93: MissingIDFieldWarning: Code cell is missing an id field, this will become a hard error in future nbformat versions. You may want to use `normalize()` on your notebooks before validations (available since nbformat 5.1.4). Previous versions of nbformat are fixing this issue transparently, and will stop doing so in the future.
validate(nb)
C:\Users\i574n\scoop\apps\python\current\Lib\site-packages\nbconvert\filters\highlight.py:71: UserWarning: IPython3 lexer unavailable, falling back on Python 3
return _pygments_highlight(
[NbConvertApp] Writing 308515 bytes to DirTreeHtml.dib.html
00:00:00 #1 [debug] writeDibCode / output: Fs / path: DirTreeHtml.dib
00:00:00 #2 [debug] parseDibCode / output: Fs / file: DirTreeHtml.dib
00:00:00 #1 [debug] persistCodeProject / packages: [Argu; Falco.Markup; FSharp.Control.AsyncSeq; ... ] / modules: [lib/spiral/common.fsx; lib/spiral/sm.fsx; lib/spiral/crypto.fsx; ... ] / name: DirTreeHtml / code.Length: 4640
00:00:00 #2 [debug] buildProject / fullPath: C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj
00:00:00 #3 [debug] executeAsync / options: { Command =
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DirTreeHtml\DirTreeHtml.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\dir-tree-html\dist" --runtime linux-x64"
WorkingDirectory =
Some "C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml"
CancellationToken = None
OnLine = None }
00:00:00 #4 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:00 #5 [verbose] > Determining projects to restore...
00:00:02 #6 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj (in 1.34 sec).
00:00:02 #7 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj]
00:00:09 #8 [verbose] > DirTreeHtml -> C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\bin\Release\net9.0\linux-x64\DirTreeHtml.dll
00:00:11 #9 [verbose] > DirTreeHtml -> C:\home\git\polyglot\apps\dir-tree-html\dist\
00:00:11 #10 [debug] executeAsync / exitCode: 0 / output.Length: 732
00:00:11 #11 [debug] executeAsync / options: { Command =
"dotnet publish "C:\home\git\polyglot\target/polyglot/builder\DirTreeHtml\DirTreeHtml.fsproj" --configuration Release --output "C:\home\git\polyglot\apps\dir-tree-html\dist" --runtime win-x64"
WorkingDirectory =
Some "C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml"
CancellationToken = None
OnLine = None }
00:00:11 #12 [verbose] > MSBuild version 17.10.0-preview-24101-01+07fd5d51f for .NET
00:00:12 #13 [verbose] > Determining projects to restore...
00:00:12 #14 [verbose] > Restored C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj (in 383 ms).
00:00:12 #15 [verbose] > C:\Users\i574n\scoop\apps\dotnet-sdk-preview\current\sdk\9.0.100-preview.1.24101.2\Sdks\Microsoft.NET.Sdk\targets\Microsoft.NET.RuntimeIdentifierInference.targets(313,5): message NETSDK1057: You are using a preview version of .NET. See: https://aka.ms/dotnet-support-policy [C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\DirTreeHtml.fsproj]
00:00:19 #16 [verbose] > DirTreeHtml -> C:\home\git\polyglot\target\polyglot\builder\DirTreeHtml\bin\Release\net9.0\win-x64\DirTreeHtml.dll
00:00:22 #17 [verbose] > DirTreeHtml -> C:\home\git\polyglot\apps\dir-tree-html\dist\
00:00:22 #18 [debug] executeAsync / exitCode: 0 / output.Length: 728
In [ ]:
{ . "$ScriptDir/../apps/ipfs/build.ps1" } | Invoke-Block
bun install v1.1.0 (5903a614)
Done! Checked 220 packages (no changes) [1.55s]
In [ ]:
{ . "$ScriptDir/outdated.ps1" } | Invoke-Block
Paket version 8.1.0-alpha001+8e77fe66ac27ddecf519e0df5a4d3327ca9250e2
Resolving dependency graph...
Outdated packages found:
Group: Main
* Argu 6.2.2 -> 6.2.3
* Expecto.FsCheck 10.2.1-fscheck3 -> 10.2.1
* FsCheck 3.0.0-rc3 -> 2.16.6
* FSharp.Core 8.0.300-beta.24080.5 -> 8.0.300-beta.24178.1
* Microsoft.AspNetCore.Connections.Abstractions 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.Http.Connections.Client 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.Http.Connections.Common 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Client 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Client.Core 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Common 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.AspNetCore.SignalR.Protocols.Json 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.Extensions.DependencyInjection 8.0 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.DependencyInjection.Abstractions 8.0.1 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Features 7.0 -> 9.0.0-preview.3.24172.13
* Microsoft.Extensions.Logging 8.0 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Logging.Abstractions 8.0.1 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Options 8.0.2 -> 9.0.0-preview.3.24172.9
* Microsoft.Extensions.Primitives 8.0 -> 9.0.0-preview.3.24172.9
* System.IO.Pipelines 8.0 -> 9.0.0-preview.3.24172.9
* System.Threading.Channels 8.0 -> 9.0.0-preview.3.24172.9
Total time taken: 54 seconds
CheckToml / toml: C:\home\git\polyglot\Cargo.toml
chat_contract_tests
================
Name Project Compat Latest Kind Platform
---- ------- ------ ------ ---- --------
ahash 0.8.11 Removed Removed Normal ---
allocator-api2 0.2.16 Removed Removed Normal ---
cfg-if 1.0.0 Removed Removed Normal ---
equivalent 1.0.1 Removed Removed Normal ---
hashbrown 0.14.3 0.12.3 0.12.3 Normal ---
indexmap 2.2.6 1.9.3 1.9.3 Normal ---
once_cell 1.19.0 Removed Removed Normal cfg(not(all(target_arch = "arm", target_os = "none")))
proc-macro2 1.0.79 Removed Removed Normal ---
quote 1.0.36 Removed Removed Normal ---
syn 2.0.58 Removed Removed Normal ---
unicode-ident 1.0.12 Removed Removed Normal ---
version_check 0.9.4 Removed Removed Build ---
zerocopy 0.7.32 Removed Removed Normal ---
zerocopy-derive 0.7.32 Removed Removed Normal ---
CheckToml / toml: C:\home\git\polyglot\apps\chat\contract\Cargo.toml
All dependencies are up to date, yay!
CheckToml / toml: C:\home\git\polyglot\apps\chat\contract\tests\Cargo.toml
Name Project Compat Latest Kind Platform
---- ------- ------ ------ ---- --------
ahash->cfg-if 1.0.0 --- Removed Normal ---
ahash->once_cell 1.19.0 --- Removed Normal cfg(not(all(target_arch = "arm", target_os = "none")))
ahash->version_check 0.9.4 --- Removed Build ---
ahash->zerocopy 0.7.32 --- Removed Normal ---
hashbrown->ahash 0.8.11 --- Removed Normal ---
hashbrown->allocator-api2 0.2.16 --- Removed Normal ---
indexmap->autocfg 1.2.0 Removed --- Build ---
indexmap->equivalent 1.0.1 --- Removed Normal ---
indexmap->hashbrown 0.12.3 0.14.3 --- Normal ---
indexmap->hashbrown 0.14.3 --- 0.12.3 Normal ---
proc-macro2->unicode-ident 1.0.12 --- Removed Normal ---
quote->proc-macro2 1.0.79 --- Removed Normal ---
serde_with->indexmap 1.9.3 2.2.6 --- Normal ---
serde_with->indexmap 2.2.6 --- 1.9.3 Normal ---
syn->proc-macro2 1.0.79 --- Removed Normal ---
syn->quote 1.0.36 --- Removed Normal ---
syn->unicode-ident 1.0.12 --- Removed Normal ---
zerocopy->zerocopy-derive 0.7.32 --- Removed Normal ---
zerocopy-derive->proc-macro2 1.0.79 --- Removed Normal ---
zerocopy-derive->quote 1.0.36 --- Removed Normal ---
zerocopy-derive->syn 2.0.58 --- Removed Normal ---
CheckToml / toml: C:\home\git\polyglot\apps\plot\Cargo.toml
All dependencies are up to date, yay!
CheckJson / json: C:/home/git/polyglot
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\package.json
All dependencies match the greatest package versions :)
CheckJson / json: C:/home/git/polyglot/apps/ipfs
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\ipfs\package.json
All dependencies match the greatest package versions :)
CheckJson / json: C:/home/git/polyglot/apps/spiral/temp/extension
$ npm-check-updates --target greatest
Using bun
Checking C:\home\git\polyglot\apps\spiral\temp\extension\package.json
@playwright/test 1.42.1 → 1.44.0-alpha-2024-04-12
@types/chrome ~0.0.263 → ~0.0.266
Run ncu --target greatest -u to upgrade package.json